Raspbian Package Auto-Building

Build log for sbcl (2:1.2.12-1) on armhf

sbcl2:1.2.12-1armhf → 2015-06-11 09:40:37

sbuild (Debian sbuild) 0.65.2 (24 Mar 2015) on bm-wb-01

╔══════════════════════════════════════════════════════════════════════════════╗
║ sbcl 2:1.2.12-1 (armhf)                                    11 Jun 2015 06:43 ║
╚══════════════════════════════════════════════════════════════════════════════╝

Package: sbcl
Version: 2:1.2.12-1
Source Version: 2:1.2.12-1
Distribution: stretch-staging
Machine Architecture: armhf
Host Architecture: armhf
Build Architecture: armhf

I: NOTICE: Log filtering will replace 'build/sbcl-xMrQja/sbcl-1.2.12' with '«PKGBUILDDIR»'
I: NOTICE: Log filtering will replace 'build/sbcl-xMrQja' with '«BUILDDIR»'
I: NOTICE: Log filtering will replace 'var/lib/schroot/mount/stretch-staging-armhf-sbuild-0457a5d2-3457-49de-80d2-466c47e6d19e' with '«CHROOT»'

┌──────────────────────────────────────────────────────────────────────────────┐
│ Update chroot                                                                │
└──────────────────────────────────────────────────────────────────────────────┘

Get:1 http://172.17.0.1 stretch-staging InRelease [11.3 kB]
Get:2 http://172.17.0.1 stretch-staging/main Sources [7943 kB]
Get:3 http://172.17.0.1 stretch-staging/main armhf Packages [9735 kB]
Ign http://172.17.0.1 stretch-staging/main Translation-en
Fetched 17.7 MB in 33s (532 kB/s)
Reading package lists...

┌──────────────────────────────────────────────────────────────────────────────┐
│ Fetch source files                                                           │
└──────────────────────────────────────────────────────────────────────────────┘


Check APT
─────────

Checking available source versions...

Download source files with APT
──────────────────────────────

Reading package lists...
Building dependency tree...
NOTICE: 'sbcl' packaging is maintained in the 'Git' version control system at:
http://git.debian.org/git/pkg-common-lisp/sbcl.git
Need to get 5623 kB of source archives.
Get:1 http://172.17.0.1/private/ stretch-staging/main sbcl 2:1.2.12-1 (dsc) [2350 B]
Get:2 http://172.17.0.1/private/ stretch-staging/main sbcl 2:1.2.12-1 (tar) [5546 kB]
Get:3 http://172.17.0.1/private/ stretch-staging/main sbcl 2:1.2.12-1 (diff) [74.6 kB]
Fetched 5623 kB in 1s (3918 kB/s)
Download complete and in download only mode

Check architectures
───────────────────


Check dependencies
──────────────────

Merged Build-Depends: build-essential, fakeroot
Filtered Build-Depends: build-essential, fakeroot
dpkg-deb: building package `sbuild-build-depends-core-dummy' in `/«BUILDDIR»/resolver-bY9Kyb/apt_archive/sbuild-build-depends-core-dummy.deb'.
OK
Ign file: ./ InRelease
Get:1 file: ./ Release.gpg [299 B]
Get:2 file: ./ Release [2119 B]
Ign file: ./ Translation-en
Reading package lists...
Reading package lists...

┌──────────────────────────────────────────────────────────────────────────────┐
│ Install core build dependencies (apt-based resolver)                         │
└──────────────────────────────────────────────────────────────────────────────┘

Installing build dependencies
Reading package lists...
Building dependency tree...
The following NEW packages will be installed:
  sbuild-build-depends-core-dummy
debconf: delaying package configuration, since apt-utils is not installed
0 upgraded, 1 newly installed, 0 to remove and 70 not upgraded.
Need to get 0 B/812 B of archives.
After this operation, 0 B of additional disk space will be used.
Selecting previously unselected package sbuild-build-depends-core-dummy.
(Reading database ... 
(Reading database ... 5%
(Reading database ... 10%
(Reading database ... 15%
(Reading database ... 20%
(Reading database ... 25%
(Reading database ... 30%
(Reading database ... 35%
(Reading database ... 40%
(Reading database ... 45%
(Reading database ... 50%
(Reading database ... 55%
(Reading database ... 60%
(Reading database ... 65%
(Reading database ... 70%
(Reading database ... 75%
(Reading database ... 80%
(Reading database ... 85%
(Reading database ... 90%
(Reading database ... 95%
(Reading database ... 100%
(Reading database ... 11998 files and directories currently installed.)
Preparing to unpack .../sbuild-build-depends-core-dummy.deb ...
Unpacking sbuild-build-depends-core-dummy (0.invalid.0) ...
Setting up sbuild-build-depends-core-dummy (0.invalid.0) ...
Merged Build-Depends: libc6-dev | libc-dev, gcc (>= 4:4.9.1), g++ (>= 4:4.9.1), make, dpkg-dev (>= 1.17.11), dh-lisp, debhelper (>> 7.0.0), sbcl (>> 1:0.9.5.50-9), sbcl-source, texinfo, zlib1g-dev, texlive-extra-utils, texlive, locales, graphviz, ghostscript, texlive-generic-recommended, texlive-font-utils, cm-super-minimal, time, netbase
Filtered Build-Depends: libc6-dev, gcc (>= 4:4.9.1), g++ (>= 4:4.9.1), make, dpkg-dev (>= 1.17.11), dh-lisp, debhelper (>> 7.0.0), sbcl (>> 1:0.9.5.50-9), sbcl-source, texinfo, zlib1g-dev, texlive-extra-utils, texlive, locales, graphviz, ghostscript, texlive-generic-recommended, texlive-font-utils, cm-super-minimal, time, netbase
dpkg-deb: building package `sbuild-build-depends-sbcl-dummy' in `/«BUILDDIR»/resolver-Pk3kXL/apt_archive/sbuild-build-depends-sbcl-dummy.deb'.
OK
Ign file: ./ InRelease
Get:1 file: ./ Release.gpg [299 B]
Get:2 file: ./ Release [2119 B]
Ign file: ./ Translation-en
Reading package lists...
Reading package lists...

┌──────────────────────────────────────────────────────────────────────────────┐
│ Install sbcl build dependencies (apt-based resolver)                         │
└──────────────────────────────────────────────────────────────────────────────┘

Installing build dependencies
Reading package lists...
Building dependency tree...
Reading state information...
The following extra packages will be installed:
  bsdmainutils cm-super-minimal debhelper dh-lisp file fontconfig
  fontconfig-config fonts-dejavu-core gettext gettext-base ghostscript
  graphviz groff-base gsfonts intltool-debian libasprintf0c2 libavahi-client3
  libavahi-common-data libavahi-common3 libcairo2 libcdt5 libcgraph6 libcroco3
  libcups2 libcupsfilters1 libcupsimage2 libdatrie1 libexpat1 libffi6
  libfontconfig1 libfreetype6 libgd3 libglib2.0-0 libgnutls-deb0-28
  libgraphite2-3 libgs9 libgs9-common libgssapi-krb5-2 libgvc6 libgvpr2
  libharfbuzz-icu0 libharfbuzz0b libhogweed2 libice6 libicu52 libidn11
  libijs-0.35 libintl-perl libjasper1 libjbig0 libjbig2dec0 libjpeg62-turbo
  libk5crypto3 libkeyutils1 libkpathsea6 libkrb5-3 libkrb5support0 liblcms2-2
  libltdl7 libmagic1 libnettle4 libopenjpeg5 libp11-kit0 libpango-1.0-0
  libpangocairo-1.0-0 libpangoft2-1.0-0 libpaper-utils libpaper1 libpathplan4
  libpipeline1 libpixman-1-0 libpoppler46 libpotrace0 libptexenc1
  libpython2.7-minimal libpython2.7-stdlib libsm6 libsqlite3-0 libssl1.0.0
  libsynctex1 libtasn1-6 libtext-unidecode-perl libthai-data libthai0 libtiff5
  libunistring0 libvpx1 libx11-6 libx11-data libxau6 libxaw7 libxcb-render0
  libxcb-shm0 libxcb1 libxdmcp6 libxdot4 libxext6 libxi6 libxml-libxml-perl
  libxml-namespacesupport-perl libxml-sax-base-perl libxml-sax-perl libxml2
  libxmu6 libxpm4 libxrender1 libxt6 libzzip-0-13 locales man-db mime-support
  netbase po-debconf poppler-data python2.7 python2.7-minimal sbcl sbcl-source
  tex-common texinfo texlive texlive-base texlive-binaries texlive-extra-utils
  texlive-font-utils texlive-fonts-recommended texlive-generic-recommended
  texlive-latex-base texlive-latex-recommended time ucf x11-common xdg-utils
  zlib1g-dev
Suggested packages:
  wamerican wordlist whois vacation dh-make gettext-doc ghostscript-x
  graphviz-doc groff cups-common libgd-tools gnutls-bin krb5-doc krb5-user
  libintl-xs-perl libjasper-runtime liblcms2-utils less www-browser
  libmail-box-perl poppler-utils fonts-japanese-mincho fonts-ipafont-mincho
  fonts-japanese-gothic fonts-ipafont-gothic fonts-arphic-ukai
  fonts-arphic-uming fonts-nanum python2.7-doc binfmt-support sbcl-doc slime
  texinfo-doc-nonfree perl-tk gv postscript-viewer xpdf-reader pdf-viewer
  latexdiff latexmk dvidvi fragmaster lacheck purifyeps xindy chktex dvipng
  psutils t1utils texlive-pstricks gvfs-bin
Recommended packages:
  curl wget lynx-cur autopoint libasprintf-dev libgettextpo-dev
  fonts-liberation libglib2.0-data shared-mime-info xdg-user-dirs fonts-droid
  krb5-locales libxml-sax-expat-perl xml-core ifupdown libmail-sendmail-perl
  lmodern python ruby wish libfile-homedir-perl libyaml-tiny-perl ps2eps tipa
  texlive-fonts-recommended-doc tex-gyre texlive-latex-base-doc prosper
  texlive-latex-recommended-doc libfile-mimeinfo-perl libnet-dbus-perl
  libx11-protocol-perl x11-utils x11-xserver-utils
The following NEW packages will be installed:
  bsdmainutils cm-super-minimal debhelper dh-lisp file fontconfig
  fontconfig-config fonts-dejavu-core gettext gettext-base ghostscript
  graphviz groff-base gsfonts intltool-debian libasprintf0c2 libavahi-client3
  libavahi-common-data libavahi-common3 libcairo2 libcdt5 libcgraph6 libcroco3
  libcups2 libcupsfilters1 libcupsimage2 libdatrie1 libexpat1 libffi6
  libfontconfig1 libfreetype6 libgd3 libglib2.0-0 libgnutls-deb0-28
  libgraphite2-3 libgs9 libgs9-common libgssapi-krb5-2 libgvc6 libgvpr2
  libharfbuzz-icu0 libharfbuzz0b libhogweed2 libice6 libicu52 libidn11
  libijs-0.35 libintl-perl libjasper1 libjbig0 libjbig2dec0 libjpeg62-turbo
  libk5crypto3 libkeyutils1 libkpathsea6 libkrb5-3 libkrb5support0 liblcms2-2
  libltdl7 libmagic1 libnettle4 libopenjpeg5 libp11-kit0 libpango-1.0-0
  libpangocairo-1.0-0 libpangoft2-1.0-0 libpaper-utils libpaper1 libpathplan4
  libpipeline1 libpixman-1-0 libpoppler46 libpotrace0 libptexenc1
  libpython2.7-minimal libpython2.7-stdlib libsm6 libsqlite3-0 libssl1.0.0
  libsynctex1 libtasn1-6 libtext-unidecode-perl libthai-data libthai0 libtiff5
  libunistring0 libvpx1 libx11-6 libx11-data libxau6 libxaw7 libxcb-render0
  libxcb-shm0 libxcb1 libxdmcp6 libxdot4 libxext6 libxi6 libxml-libxml-perl
  libxml-namespacesupport-perl libxml-sax-base-perl libxml-sax-perl libxml2
  libxmu6 libxpm4 libxrender1 libxt6 libzzip-0-13 locales man-db mime-support
  netbase po-debconf poppler-data python2.7 python2.7-minimal sbcl sbcl-source
  sbuild-build-depends-sbcl-dummy tex-common texinfo texlive texlive-base
  texlive-binaries texlive-extra-utils texlive-font-utils
  texlive-fonts-recommended texlive-generic-recommended texlive-latex-base
  texlive-latex-recommended time ucf x11-common xdg-utils zlib1g-dev
0 upgraded, 135 newly installed, 0 to remove and 70 not upgraded.
Need to get 119 MB/119 MB of archives.
After this operation, 402 MB of additional disk space will be used.
Get:1 http://172.17.0.1/private/ stretch-staging/main libpipeline1 armhf 1.4.0-1 [24.0 kB]
Get:2 http://172.17.0.1/private/ stretch-staging/main libssl1.0.0 armhf 1.0.2a-1 [878 kB]
Get:3 http://172.17.0.1/private/ stretch-staging/main groff-base armhf 1.22.3-1 [1085 kB]
Get:4 http://172.17.0.1/private/ stretch-staging/main bsdmainutils armhf 9.0.6 [177 kB]
Get:5 http://172.17.0.1/private/ stretch-staging/main man-db armhf 2.7.0.2-5 [972 kB]
Get:6 http://172.17.0.1/private/ stretch-staging/main libasprintf0c2 armhf 0.19.4-1 [31.5 kB]
Get:7 http://172.17.0.1/private/ stretch-staging/main libnettle4 armhf 2.7.1-5 [178 kB]
Get:8 http://172.17.0.1/private/ stretch-staging/main libhogweed2 armhf 2.7.1-5 [117 kB]
Get:9 http://172.17.0.1/private/ stretch-staging/main libffi6 armhf 3.1-2 [18.1 kB]
Get:10 http://172.17.0.1/private/ stretch-staging/main libp11-kit0 armhf 0.23.1-2 [94.1 kB]
Get:11 http://172.17.0.1/private/ stretch-staging/main libtasn1-6 armhf 4.5-2 [43.9 kB]
Get:12 http://172.17.0.1/private/ stretch-staging/main libgnutls-deb0-28 armhf 3.3.15-2 [646 kB]
Get:13 http://172.17.0.1/private/ stretch-staging/main libkeyutils1 armhf 1.5.9-5 [10.9 kB]
Get:14 http://172.17.0.1/private/ stretch-staging/main libkrb5support0 armhf 1.12.1+dfsg-20 [54.9 kB]
Get:15 http://172.17.0.1/private/ stretch-staging/main libk5crypto3 armhf 1.12.1+dfsg-20 [108 kB]
Get:16 http://172.17.0.1/private/ stretch-staging/main libkrb5-3 armhf 1.12.1+dfsg-20 [258 kB]
Get:17 http://172.17.0.1/private/ stretch-staging/main libgssapi-krb5-2 armhf 1.12.1+dfsg-20 [128 kB]
Get:18 http://172.17.0.1/private/ stretch-staging/main libidn11 armhf 1.30-1 [166 kB]
Get:19 http://172.17.0.1/private/ stretch-staging/main libmagic1 armhf 1:5.22+15-2 [244 kB]
Get:20 http://172.17.0.1/private/ stretch-staging/main libxml2 armhf 2.9.1+dfsg1-5 [703 kB]
Get:21 http://172.17.0.1/private/ stretch-staging/main libpython2.7-minimal armhf 2.7.10-2 [380 kB]
Get:22 http://172.17.0.1/private/ stretch-staging/main python2.7-minimal armhf 2.7.10-2 [1162 kB]
Get:23 http://172.17.0.1/private/ stretch-staging/main libexpat1 armhf 2.1.0-6 [60.2 kB]
Get:24 http://172.17.0.1/private/ stretch-staging/main libfreetype6 armhf 2.5.2-4 [412 kB]
Get:25 http://172.17.0.1/private/ stretch-staging/main ucf all 3.0030 [69.7 kB]
Get:26 http://172.17.0.1/private/ stretch-staging/main fonts-dejavu-core all 2.35-1 [1064 kB]
Get:27 http://172.17.0.1/private/ stretch-staging/main fontconfig-config all 2.11.0-6.3 [273 kB]
Get:28 http://172.17.0.1/private/ stretch-staging/main libfontconfig1 armhf 2.11.0-6.3 [311 kB]
Get:29 http://172.17.0.1/private/ stretch-staging/main fontconfig armhf 2.11.0-6.3 [402 kB]
Get:30 http://172.17.0.1/private/ stretch-staging/main libavahi-common-data armhf 0.6.31-5 [98.8 kB]
Get:31 http://172.17.0.1/private/ stretch-staging/main libavahi-common3 armhf 0.6.31-5 [48.0 kB]
Get:32 http://172.17.0.1/private/ stretch-staging/main libavahi-client3 armhf 0.6.31-5 [50.6 kB]
Get:33 http://172.17.0.1/private/ stretch-staging/main libglib2.0-0 armhf 2.44.1-1 [2314 kB]
Get:34 http://172.17.0.1/private/ stretch-staging/main libcroco3 armhf 0.6.8-3 [121 kB]
Get:35 http://172.17.0.1/private/ stretch-staging/main libcups2 armhf 1.7.5-11 [252 kB]
Get:36 http://172.17.0.1/private/ stretch-staging/main libcupsimage2 armhf 1.7.5-11 [115 kB]
Get:37 http://172.17.0.1/private/ stretch-staging/main libjpeg62-turbo armhf 1:1.4.0-7 [102 kB]
Get:38 http://172.17.0.1/private/ stretch-staging/main libjbig0 armhf 2.1-3.1 [27.5 kB]
Get:39 http://172.17.0.1/private/ stretch-staging/main libtiff5 armhf 4.0.3-13 [193 kB]
Get:40 http://172.17.0.1/private/ stretch-staging/main libcupsfilters1 armhf 1.0.68-1 [99.6 kB]
Get:41 http://172.17.0.1/private/ stretch-staging/main libdatrie1 armhf 0.2.9-1 [31.4 kB]
Get:42 http://172.17.0.1/private/ stretch-staging/main libgraphite2-3 armhf 1.2.4-3 [48.2 kB]
Get:43 http://172.17.0.1/private/ stretch-staging/main x11-common all 1:7.7+9 [287 kB]
Get:44 http://172.17.0.1/private/ stretch-staging/main libice6 armhf 2:1.0.9-1 [51.2 kB]
Get:45 http://172.17.0.1/private/ stretch-staging/main libicu52 armhf 52.1-9 [6554 kB]
Get:46 http://172.17.0.1/private/ stretch-staging/main libijs-0.35 armhf 0.35-10 [18.5 kB]
Get:47 http://172.17.0.1/private/ stretch-staging/main libjasper1 armhf 1.900.1-debian1-2.4 [109 kB]
Get:48 http://172.17.0.1/private/ stretch-staging/main liblcms2-2 armhf 2.6-3 [113 kB]
Get:49 http://172.17.0.1/private/ stretch-staging/main libltdl7 armhf 2.4.2-1.11 [42.5 kB]
Get:50 http://172.17.0.1/private/ stretch-staging/main libthai-data all 0.1.22-1 [161 kB]
Get:51 http://172.17.0.1/private/ stretch-staging/main libthai0 armhf 0.1.22-1 [44.7 kB]
Get:52 http://172.17.0.1/private/ stretch-staging/main libpango-1.0-0 armhf 1.36.8-3 [274 kB]
Get:53 http://172.17.0.1/private/ stretch-staging/main libpixman-1-0 armhf 0.32.6-3 [422 kB]
Get:54 http://172.17.0.1/private/ stretch-staging/main libxau6 armhf 1:1.0.8-1 [19.9 kB]
Get:55 http://172.17.0.1/private/ stretch-staging/main libxdmcp6 armhf 1:1.1.2-1 [25.0 kB]
Get:56 http://172.17.0.1/private/ stretch-staging/main libxcb1 armhf 1.10-3 [38.1 kB]
Get:57 http://172.17.0.1/private/ stretch-staging/main libx11-data all 2:1.6.3-1 [128 kB]
Get:58 http://172.17.0.1/private/ stretch-staging/main libx11-6 armhf 2:1.6.3-1 [678 kB]
Get:59 http://172.17.0.1/private/ stretch-staging/main libxcb-render0 armhf 1.10-3 [16.0 kB]
Get:60 http://172.17.0.1/private/ stretch-staging/main libxcb-shm0 armhf 1.10-3 [11.0 kB]
Get:61 http://172.17.0.1/private/ stretch-staging/main libxext6 armhf 2:1.3.3-1 [48.1 kB]
Get:62 http://172.17.0.1/private/ stretch-staging/main libxrender1 armhf 1:0.9.8-1 [30.4 kB]
Get:63 http://172.17.0.1/private/ stretch-staging/main libcairo2 armhf 1.14.2-2 [672 kB]
Get:64 http://172.17.0.1/private/ stretch-staging/main libharfbuzz0b armhf 0.9.40-3 [482 kB]
Get:65 http://172.17.0.1/private/ stretch-staging/main libpangoft2-1.0-0 armhf 1.36.8-3 [207 kB]
Get:66 http://172.17.0.1/private/ stretch-staging/main libpangocairo-1.0-0 armhf 1.36.8-3 [197 kB]
Get:67 http://172.17.0.1/private/ stretch-staging/main libpaper1 armhf 1.1.24+nmu4 [21.4 kB]
Get:68 http://172.17.0.1/private/ stretch-staging/main libopenjpeg5 armhf 1:1.5.2-3.1 [93.6 kB]
Get:69 http://172.17.0.1/private/ stretch-staging/main libpoppler46 armhf 0.26.5-2 [1092 kB]
Get:70 http://172.17.0.1/private/ stretch-staging/main libsm6 armhf 2:1.2.2-1 [31.2 kB]
Get:71 http://172.17.0.1/private/ stretch-staging/main libunistring0 armhf 0.9.3-5.2 [253 kB]
Get:72 http://172.17.0.1/private/ stretch-staging/main libvpx1 armhf 1.3.0-3+rpi1 [352 kB]
Get:73 http://172.17.0.1/private/ stretch-staging/main libxt6 armhf 1:1.1.4-1 [183 kB]
Get:74 http://172.17.0.1/private/ stretch-staging/main libxmu6 armhf 2:1.1.2-1 [50.8 kB]
Get:75 http://172.17.0.1/private/ stretch-staging/main libxpm4 armhf 1:3.5.11-1 [41.7 kB]
Get:76 http://172.17.0.1/private/ stretch-staging/main libxaw7 armhf 2:1.0.12-2 [159 kB]
Get:77 http://172.17.0.1/private/ stretch-staging/main libxi6 armhf 2:1.7.4-1 [73.4 kB]
Get:78 http://172.17.0.1/private/ stretch-staging/main libzzip-0-13 armhf 0.13.62-3 [51.3 kB]
Get:79 http://172.17.0.1/private/ stretch-staging/main poppler-data all 0.4.7-3 [1470 kB]
Get:80 http://172.17.0.1/private/ stretch-staging/main netbase all 5.3 [19.0 kB]
Get:81 http://172.17.0.1/private/ stretch-staging/main file armhf 1:5.22+15-2 [59.9 kB]
Get:82 http://172.17.0.1/private/ stretch-staging/main gettext-base armhf 0.19.4-1 [117 kB]
Get:83 http://172.17.0.1/private/ stretch-staging/main mime-support all 3.58 [36.0 kB]
Get:84 http://172.17.0.1/private/ stretch-staging/main libsqlite3-0 armhf 3.8.10.2-1 [389 kB]
Get:85 http://172.17.0.1/private/ stretch-staging/main libpython2.7-stdlib armhf 2.7.10-2 [1814 kB]
Get:86 http://172.17.0.1/private/ stretch-staging/main locales all 2.19-18 [3924 kB]
Get:87 http://172.17.0.1/private/ stretch-staging/main python2.7 armhf 2.7.10-2 [258 kB]
Get:88 http://172.17.0.1/private/ stretch-staging/main time armhf 1.7-25 [30.7 kB]
Get:89 http://172.17.0.1/private/ stretch-staging/main tex-common all 5.03 [625 kB]
Get:90 http://172.17.0.1/private/ stretch-staging/main libkpathsea6 armhf 2014.20140926.35254-6 [145 kB]
Get:91 http://172.17.0.1/private/ stretch-staging/main libptexenc1 armhf 2014.20140926.35254-6 [52.1 kB]
Get:92 http://172.17.0.1/private/ stretch-staging/main libjbig2dec0 armhf 0.11+20120125-1 [46.4 kB]
Get:93 http://172.17.0.1/private/ stretch-staging/main libgs9-common all 9.06~dfsg-2 [1979 kB]
Get:94 http://172.17.0.1/private/ stretch-staging/main libgs9 armhf 9.06~dfsg-2 [1600 kB]
Get:95 http://172.17.0.1/private/ stretch-staging/main libharfbuzz-icu0 armhf 0.9.40-3 [375 kB]
Get:96 http://172.17.0.1/private/ stretch-staging/main libpotrace0 armhf 1.12-1 [22.9 kB]
Get:97 http://172.17.0.1/private/ stretch-staging/main libsynctex1 armhf 2014.20140926.35254-6 [54.4 kB]
Get:98 http://172.17.0.1/private/ stretch-staging/main texlive-binaries armhf 2014.20140926.35254-6 [5322 kB]
Get:99 http://172.17.0.1/private/ stretch-staging/main xdg-utils all 1.1.0~rc1+git20111210-7.4 [65.0 kB]
Get:100 http://172.17.0.1/private/ stretch-staging/main libpaper-utils armhf 1.1.24+nmu4 [17.2 kB]
Get:101 http://172.17.0.1/private/ stretch-staging/main texlive-base all 2014.20141024-2 [17.7 MB]
Get:102 http://172.17.0.1/private/ stretch-staging/main texlive-latex-base all 2014.20141024-2 [858 kB]
Get:103 http://172.17.0.1/private/ stretch-staging/main texlive-latex-recommended all 2014.20141024-2 [7630 kB]
Get:104 http://172.17.0.1/private/ stretch-staging/main cm-super-minimal all 0.3.4-9 [5834 kB]
Get:105 http://172.17.0.1/private/ stretch-staging/main gettext armhf 0.19.4-1 [1168 kB]
Get:106 http://172.17.0.1/private/ stretch-staging/main intltool-debian all 0.35.0+20060710.2 [25.9 kB]
Get:107 http://172.17.0.1/private/ stretch-staging/main po-debconf all 1.0.18 [248 kB]
Get:108 http://172.17.0.1/private/ stretch-staging/main debhelper all 9.20150507 [824 kB]
Get:109 http://172.17.0.1/private/ stretch-staging/main dh-lisp all 0.7.1 [10.1 kB]
Get:110 http://172.17.0.1/private/ stretch-staging/main gsfonts all 1:8.11+urwcyr1.0.7~pre44-4.2 [3364 kB]
Get:111 http://172.17.0.1/private/ stretch-staging/main ghostscript armhf 9.06~dfsg-2 [83.0 kB]
Get:112 http://172.17.0.1/private/ stretch-staging/main libcdt5 armhf 2.38.0-9 [60.2 kB]
Get:113 http://172.17.0.1/private/ stretch-staging/main libcgraph6 armhf 2.38.0-9 [78.8 kB]
Get:114 http://172.17.0.1/private/ stretch-staging/main libgd3 armhf 2.1.1-1 [126 kB]
Get:115 http://172.17.0.1/private/ stretch-staging/main libpathplan4 armhf 2.38.0-9 [63.4 kB]
Get:116 http://172.17.0.1/private/ stretch-staging/main libxdot4 armhf 2.38.0-9 [57.6 kB]
Get:117 http://172.17.0.1/private/ stretch-staging/main libgvc6 armhf 2.38.0-9 [537 kB]
Get:118 http://172.17.0.1/private/ stretch-staging/main libgvpr2 armhf 2.38.0-9 [189 kB]
Get:119 http://172.17.0.1/private/ stretch-staging/main graphviz armhf 2.38.0-9 [652 kB]
Get:120 http://172.17.0.1/private/ stretch-staging/main libintl-perl all 1.23-1 [1209 kB]
Get:121 http://172.17.0.1/private/ stretch-staging/main libtext-unidecode-perl all 1.22-1 [102 kB]
Get:122 http://172.17.0.1/private/ stretch-staging/main libxml-namespacesupport-perl all 1.11-1 [14.8 kB]
Get:123 http://172.17.0.1/private/ stretch-staging/main libxml-sax-base-perl all 1.07-1 [23.1 kB]
Get:124 http://172.17.0.1/private/ stretch-staging/main libxml-sax-perl all 0.99+dfsg-2 [68.3 kB]
Get:125 http://172.17.0.1/private/ stretch-staging/main libxml-libxml-perl armhf 2.0116+dfsg-3 [341 kB]
Get:126 http://172.17.0.1/private/ stretch-staging/main sbcl armhf 2:1.2.11-2 [8225 kB]
Get:127 http://172.17.0.1/private/ stretch-staging/main sbcl-source all 2:1.2.12-1 [2797 kB]
Get:128 http://172.17.0.1/private/ stretch-staging/main texinfo armhf 5.2.0.dfsg.1-6 [955 kB]
Get:129 http://172.17.0.1/private/ stretch-staging/main texlive-fonts-recommended all 2014.20141024-2 [5653 kB]
Get:130 http://172.17.0.1/private/ stretch-staging/main texlive all 2014.20141024-2 [29.0 kB]
Get:131 http://172.17.0.1/private/ stretch-staging/main texlive-extra-utils all 2014.20141024-1 [10.6 MB]
Get:132 http://172.17.0.1/private/ stretch-staging/main texlive-font-utils all 2014.20141024-1 [1728 kB]
Get:133 http://172.17.0.1/private/ stretch-staging/main texlive-generic-recommended all 2014.20141024-2 [2143 kB]
Get:134 http://172.17.0.1/private/ stretch-staging/main zlib1g-dev armhf 1:1.2.8.dfsg-2 [199 kB]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 119 MB in 28s (4125 kB/s)
Selecting previously unselected package libpipeline1:armhf.
(Reading database ... 
(Reading database ... 5%
(Reading database ... 10%
(Reading database ... 15%
(Reading database ... 20%
(Reading database ... 25%
(Reading database ... 30%
(Reading database ... 35%
(Reading database ... 40%
(Reading database ... 45%
(Reading database ... 50%
(Reading database ... 55%
(Reading database ... 60%
(Reading database ... 65%
(Reading database ... 70%
(Reading database ... 75%
(Reading database ... 80%
(Reading database ... 85%
(Reading database ... 90%
(Reading database ... 95%
(Reading database ... 100%
(Reading database ... 11998 files and directories currently installed.)
Preparing to unpack .../libpipeline1_1.4.0-1_armhf.deb ...
Unpacking libpipeline1:armhf (1.4.0-1) ...
Selecting previously unselected package libssl1.0.0:armhf.
Preparing to unpack .../libssl1.0.0_1.0.2a-1_armhf.deb ...
Unpacking libssl1.0.0:armhf (1.0.2a-1) ...
Selecting previously unselected package groff-base.
Preparing to unpack .../groff-base_1.22.3-1_armhf.deb ...
Unpacking groff-base (1.22.3-1) ...
Selecting previously unselected package bsdmainutils.
Preparing to unpack .../bsdmainutils_9.0.6_armhf.deb ...
Unpacking bsdmainutils (9.0.6) ...
Selecting previously unselected package man-db.
Preparing to unpack .../man-db_2.7.0.2-5_armhf.deb ...
Unpacking man-db (2.7.0.2-5) ...
Selecting previously unselected package libasprintf0c2:armhf.
Preparing to unpack .../libasprintf0c2_0.19.4-1_armhf.deb ...
Unpacking libasprintf0c2:armhf (0.19.4-1) ...
Selecting previously unselected package libnettle4:armhf.
Preparing to unpack .../libnettle4_2.7.1-5_armhf.deb ...
Unpacking libnettle4:armhf (2.7.1-5) ...
Selecting previously unselected package libhogweed2:armhf.
Preparing to unpack .../libhogweed2_2.7.1-5_armhf.deb ...
Unpacking libhogweed2:armhf (2.7.1-5) ...
Selecting previously unselected package libffi6:armhf.
Preparing to unpack .../libffi6_3.1-2_armhf.deb ...
Unpacking libffi6:armhf (3.1-2) ...
Selecting previously unselected package libp11-kit0:armhf.
Preparing to unpack .../libp11-kit0_0.23.1-2_armhf.deb ...
Unpacking libp11-kit0:armhf (0.23.1-2) ...
Selecting previously unselected package libtasn1-6:armhf.
Preparing to unpack .../libtasn1-6_4.5-2_armhf.deb ...
Unpacking libtasn1-6:armhf (4.5-2) ...
Selecting previously unselected package libgnutls-deb0-28:armhf.
Preparing to unpack .../libgnutls-deb0-28_3.3.15-2_armhf.deb ...
Unpacking libgnutls-deb0-28:armhf (3.3.15-2) ...
Selecting previously unselected package libkeyutils1:armhf.
Preparing to unpack .../libkeyutils1_1.5.9-5_armhf.deb ...
Unpacking libkeyutils1:armhf (1.5.9-5) ...
Selecting previously unselected package libkrb5support0:armhf.
Preparing to unpack .../libkrb5support0_1.12.1+dfsg-20_armhf.deb ...
Unpacking libkrb5support0:armhf (1.12.1+dfsg-20) ...
Selecting previously unselected package libk5crypto3:armhf.
Preparing to unpack .../libk5crypto3_1.12.1+dfsg-20_armhf.deb ...
Unpacking libk5crypto3:armhf (1.12.1+dfsg-20) ...
Selecting previously unselected package libkrb5-3:armhf.
Preparing to unpack .../libkrb5-3_1.12.1+dfsg-20_armhf.deb ...
Unpacking libkrb5-3:armhf (1.12.1+dfsg-20) ...
Selecting previously unselected package libgssapi-krb5-2:armhf.
Preparing to unpack .../libgssapi-krb5-2_1.12.1+dfsg-20_armhf.deb ...
Unpacking libgssapi-krb5-2:armhf (1.12.1+dfsg-20) ...
Selecting previously unselected package libidn11:armhf.
Preparing to unpack .../libidn11_1.30-1_armhf.deb ...
Unpacking libidn11:armhf (1.30-1) ...
Selecting previously unselected package libmagic1:armhf.
Preparing to unpack .../libmagic1_1%3a5.22+15-2_armhf.deb ...
Unpacking libmagic1:armhf (1:5.22+15-2) ...
Selecting previously unselected package libxml2:armhf.
Preparing to unpack .../libxml2_2.9.1+dfsg1-5_armhf.deb ...
Unpacking libxml2:armhf (2.9.1+dfsg1-5) ...
Selecting previously unselected package libpython2.7-minimal:armhf.
Preparing to unpack .../libpython2.7-minimal_2.7.10-2_armhf.deb ...
Unpacking libpython2.7-minimal:armhf (2.7.10-2) ...
Selecting previously unselected package python2.7-minimal.
Preparing to unpack .../python2.7-minimal_2.7.10-2_armhf.deb ...
Unpacking python2.7-minimal (2.7.10-2) ...
Selecting previously unselected package libexpat1:armhf.
Preparing to unpack .../libexpat1_2.1.0-6_armhf.deb ...
Unpacking libexpat1:armhf (2.1.0-6) ...
Selecting previously unselected package libfreetype6:armhf.
Preparing to unpack .../libfreetype6_2.5.2-4_armhf.deb ...
Unpacking libfreetype6:armhf (2.5.2-4) ...
Selecting previously unselected package ucf.
Preparing to unpack .../archives/ucf_3.0030_all.deb ...
Moving old data out of the way
Unpacking ucf (3.0030) ...
Selecting previously unselected package fonts-dejavu-core.
Preparing to unpack .../fonts-dejavu-core_2.35-1_all.deb ...
Unpacking fonts-dejavu-core (2.35-1) ...
Selecting previously unselected package fontconfig-config.
Preparing to unpack .../fontconfig-config_2.11.0-6.3_all.deb ...
Unpacking fontconfig-config (2.11.0-6.3) ...
Selecting previously unselected package libfontconfig1:armhf.
Preparing to unpack .../libfontconfig1_2.11.0-6.3_armhf.deb ...
Unpacking libfontconfig1:armhf (2.11.0-6.3) ...
Selecting previously unselected package fontconfig.
Preparing to unpack .../fontconfig_2.11.0-6.3_armhf.deb ...
Unpacking fontconfig (2.11.0-6.3) ...
Selecting previously unselected package libavahi-common-data:armhf.
Preparing to unpack .../libavahi-common-data_0.6.31-5_armhf.deb ...
Unpacking libavahi-common-data:armhf (0.6.31-5) ...
Selecting previously unselected package libavahi-common3:armhf.
Preparing to unpack .../libavahi-common3_0.6.31-5_armhf.deb ...
Unpacking libavahi-common3:armhf (0.6.31-5) ...
Selecting previously unselected package libavahi-client3:armhf.
Preparing to unpack .../libavahi-client3_0.6.31-5_armhf.deb ...
Unpacking libavahi-client3:armhf (0.6.31-5) ...
Selecting previously unselected package libglib2.0-0:armhf.
Preparing to unpack .../libglib2.0-0_2.44.1-1_armhf.deb ...
Unpacking libglib2.0-0:armhf (2.44.1-1) ...
Selecting previously unselected package libcroco3:armhf.
Preparing to unpack .../libcroco3_0.6.8-3_armhf.deb ...
Unpacking libcroco3:armhf (0.6.8-3) ...
Selecting previously unselected package libcups2:armhf.
Preparing to unpack .../libcups2_1.7.5-11_armhf.deb ...
Unpacking libcups2:armhf (1.7.5-11) ...
Selecting previously unselected package libcupsimage2:armhf.
Preparing to unpack .../libcupsimage2_1.7.5-11_armhf.deb ...
Unpacking libcupsimage2:armhf (1.7.5-11) ...
Selecting previously unselected package libjpeg62-turbo:armhf.
Preparing to unpack .../libjpeg62-turbo_1%3a1.4.0-7_armhf.deb ...
Unpacking libjpeg62-turbo:armhf (1:1.4.0-7) ...
Selecting previously unselected package libjbig0:armhf.
Preparing to unpack .../libjbig0_2.1-3.1_armhf.deb ...
Unpacking libjbig0:armhf (2.1-3.1) ...
Selecting previously unselected package libtiff5:armhf.
Preparing to unpack .../libtiff5_4.0.3-13_armhf.deb ...
Unpacking libtiff5:armhf (4.0.3-13) ...
Selecting previously unselected package libcupsfilters1:armhf.
Preparing to unpack .../libcupsfilters1_1.0.68-1_armhf.deb ...
Unpacking libcupsfilters1:armhf (1.0.68-1) ...
Selecting previously unselected package libdatrie1:armhf.
Preparing to unpack .../libdatrie1_0.2.9-1_armhf.deb ...
Unpacking libdatrie1:armhf (0.2.9-1) ...
Selecting previously unselected package libgraphite2-3:armhf.
Preparing to unpack .../libgraphite2-3_1.2.4-3_armhf.deb ...
Unpacking libgraphite2-3:armhf (1.2.4-3) ...
Selecting previously unselected package x11-common.
Preparing to unpack .../x11-common_1%3a7.7+9_all.deb ...
Unpacking x11-common (1:7.7+9) ...
Selecting previously unselected package libice6:armhf.
Preparing to unpack .../libice6_2%3a1.0.9-1_armhf.deb ...
Unpacking libice6:armhf (2:1.0.9-1) ...
Selecting previously unselected package libicu52:armhf.
Preparing to unpack .../libicu52_52.1-9_armhf.deb ...
Unpacking libicu52:armhf (52.1-9) ...
Selecting previously unselected package libijs-0.35:armhf.
Preparing to unpack .../libijs-0.35_0.35-10_armhf.deb ...
Unpacking libijs-0.35:armhf (0.35-10) ...
Selecting previously unselected package libjasper1:armhf.
Preparing to unpack .../libjasper1_1.900.1-debian1-2.4_armhf.deb ...
Unpacking libjasper1:armhf (1.900.1-debian1-2.4) ...
Selecting previously unselected package liblcms2-2:armhf.
Preparing to unpack .../liblcms2-2_2.6-3_armhf.deb ...
Unpacking liblcms2-2:armhf (2.6-3) ...
Selecting previously unselected package libltdl7:armhf.
Preparing to unpack .../libltdl7_2.4.2-1.11_armhf.deb ...
Unpacking libltdl7:armhf (2.4.2-1.11) ...
Selecting previously unselected package libthai-data.
Preparing to unpack .../libthai-data_0.1.22-1_all.deb ...
Unpacking libthai-data (0.1.22-1) ...
Selecting previously unselected package libthai0:armhf.
Preparing to unpack .../libthai0_0.1.22-1_armhf.deb ...
Unpacking libthai0:armhf (0.1.22-1) ...
Selecting previously unselected package libpango-1.0-0:armhf.
Preparing to unpack .../libpango-1.0-0_1.36.8-3_armhf.deb ...
Unpacking libpango-1.0-0:armhf (1.36.8-3) ...
Selecting previously unselected package libpixman-1-0:armhf.
Preparing to unpack .../libpixman-1-0_0.32.6-3_armhf.deb ...
Unpacking libpixman-1-0:armhf (0.32.6-3) ...
Selecting previously unselected package libxau6:armhf.
Preparing to unpack .../libxau6_1%3a1.0.8-1_armhf.deb ...
Unpacking libxau6:armhf (1:1.0.8-1) ...
Selecting previously unselected package libxdmcp6:armhf.
Preparing to unpack .../libxdmcp6_1%3a1.1.2-1_armhf.deb ...
Unpacking libxdmcp6:armhf (1:1.1.2-1) ...
Selecting previously unselected package libxcb1:armhf.
Preparing to unpack .../libxcb1_1.10-3_armhf.deb ...
Unpacking libxcb1:armhf (1.10-3) ...
Selecting previously unselected package libx11-data.
Preparing to unpack .../libx11-data_2%3a1.6.3-1_all.deb ...
Unpacking libx11-data (2:1.6.3-1) ...
Selecting previously unselected package libx11-6:armhf.
Preparing to unpack .../libx11-6_2%3a1.6.3-1_armhf.deb ...
Unpacking libx11-6:armhf (2:1.6.3-1) ...
Selecting previously unselected package libxcb-render0:armhf.
Preparing to unpack .../libxcb-render0_1.10-3_armhf.deb ...
Unpacking libxcb-render0:armhf (1.10-3) ...
Selecting previously unselected package libxcb-shm0:armhf.
Preparing to unpack .../libxcb-shm0_1.10-3_armhf.deb ...
Unpacking libxcb-shm0:armhf (1.10-3) ...
Selecting previously unselected package libxext6:armhf.
Preparing to unpack .../libxext6_2%3a1.3.3-1_armhf.deb ...
Unpacking libxext6:armhf (2:1.3.3-1) ...
Selecting previously unselected package libxrender1:armhf.
Preparing to unpack .../libxrender1_1%3a0.9.8-1_armhf.deb ...
Unpacking libxrender1:armhf (1:0.9.8-1) ...
Selecting previously unselected package libcairo2:armhf.
Preparing to unpack .../libcairo2_1.14.2-2_armhf.deb ...
Unpacking libcairo2:armhf (1.14.2-2) ...
Selecting previously unselected package libharfbuzz0b:armhf.
Preparing to unpack .../libharfbuzz0b_0.9.40-3_armhf.deb ...
Unpacking libharfbuzz0b:armhf (0.9.40-3) ...
Selecting previously unselected package libpangoft2-1.0-0:armhf.
Preparing to unpack .../libpangoft2-1.0-0_1.36.8-3_armhf.deb ...
Unpacking libpangoft2-1.0-0:armhf (1.36.8-3) ...
Selecting previously unselected package libpangocairo-1.0-0:armhf.
Preparing to unpack .../libpangocairo-1.0-0_1.36.8-3_armhf.deb ...
Unpacking libpangocairo-1.0-0:armhf (1.36.8-3) ...
Selecting previously unselected package libpaper1:armhf.
Preparing to unpack .../libpaper1_1.1.24+nmu4_armhf.deb ...
Unpacking libpaper1:armhf (1.1.24+nmu4) ...
Selecting previously unselected package libopenjpeg5:armhf.
Preparing to unpack .../libopenjpeg5_1%3a1.5.2-3.1_armhf.deb ...
Unpacking libopenjpeg5:armhf (1:1.5.2-3.1) ...
Selecting previously unselected package libpoppler46:armhf.
Preparing to unpack .../libpoppler46_0.26.5-2_armhf.deb ...
Unpacking libpoppler46:armhf (0.26.5-2) ...
Selecting previously unselected package libsm6:armhf.
Preparing to unpack .../libsm6_2%3a1.2.2-1_armhf.deb ...
Unpacking libsm6:armhf (2:1.2.2-1) ...
Selecting previously unselected package libunistring0:armhf.
Preparing to unpack .../libunistring0_0.9.3-5.2_armhf.deb ...
Unpacking libunistring0:armhf (0.9.3-5.2) ...
Selecting previously unselected package libvpx1:armhf.
Preparing to unpack .../libvpx1_1.3.0-3+rpi1_armhf.deb ...
Unpacking libvpx1:armhf (1.3.0-3+rpi1) ...
Selecting previously unselected package libxt6:armhf.
Preparing to unpack .../libxt6_1%3a1.1.4-1_armhf.deb ...
Unpacking libxt6:armhf (1:1.1.4-1) ...
Selecting previously unselected package libxmu6:armhf.
Preparing to unpack .../libxmu6_2%3a1.1.2-1_armhf.deb ...
Unpacking libxmu6:armhf (2:1.1.2-1) ...
Selecting previously unselected package libxpm4:armhf.
Preparing to unpack .../libxpm4_1%3a3.5.11-1_armhf.deb ...
Unpacking libxpm4:armhf (1:3.5.11-1) ...
Selecting previously unselected package libxaw7:armhf.
Preparing to unpack .../libxaw7_2%3a1.0.12-2_armhf.deb ...
Unpacking libxaw7:armhf (2:1.0.12-2) ...
Selecting previously unselected package libxi6:armhf.
Preparing to unpack .../libxi6_2%3a1.7.4-1_armhf.deb ...
Unpacking libxi6:armhf (2:1.7.4-1) ...
Selecting previously unselected package libzzip-0-13:armhf.
Preparing to unpack .../libzzip-0-13_0.13.62-3_armhf.deb ...
Unpacking libzzip-0-13:armhf (0.13.62-3) ...
Selecting previously unselected package poppler-data.
Preparing to unpack .../poppler-data_0.4.7-3_all.deb ...
Unpacking poppler-data (0.4.7-3) ...
Selecting previously unselected package netbase.
Preparing to unpack .../archives/netbase_5.3_all.deb ...
Unpacking netbase (5.3) ...
Selecting previously unselected package file.
Preparing to unpack .../file_1%3a5.22+15-2_armhf.deb ...
Unpacking file (1:5.22+15-2) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../gettext-base_0.19.4-1_armhf.deb ...
Unpacking gettext-base (0.19.4-1) ...
Selecting previously unselected package mime-support.
Preparing to unpack .../mime-support_3.58_all.deb ...
Unpacking mime-support (3.58) ...
Selecting previously unselected package libsqlite3-0:armhf.
Preparing to unpack .../libsqlite3-0_3.8.10.2-1_armhf.deb ...
Unpacking libsqlite3-0:armhf (3.8.10.2-1) ...
Selecting previously unselected package libpython2.7-stdlib:armhf.
Preparing to unpack .../libpython2.7-stdlib_2.7.10-2_armhf.deb ...
Unpacking libpython2.7-stdlib:armhf (2.7.10-2) ...
Selecting previously unselected package locales.
Preparing to unpack .../locales_2.19-18_all.deb ...
Unpacking locales (2.19-18) ...
Selecting previously unselected package python2.7.
Preparing to unpack .../python2.7_2.7.10-2_armhf.deb ...
Unpacking python2.7 (2.7.10-2) ...
Selecting previously unselected package time.
Preparing to unpack .../archives/time_1.7-25_armhf.deb ...
Unpacking time (1.7-25) ...
Selecting previously unselected package tex-common.
Preparing to unpack .../tex-common_5.03_all.deb ...
Unpacking tex-common (5.03) ...
Selecting previously unselected package libkpathsea6.
Preparing to unpack .../libkpathsea6_2014.20140926.35254-6_armhf.deb ...
Unpacking libkpathsea6 (2014.20140926.35254-6) ...
Selecting previously unselected package libptexenc1.
Preparing to unpack .../libptexenc1_2014.20140926.35254-6_armhf.deb ...
Unpacking libptexenc1 (2014.20140926.35254-6) ...
Selecting previously unselected package libjbig2dec0.
Preparing to unpack .../libjbig2dec0_0.11+20120125-1_armhf.deb ...
Unpacking libjbig2dec0 (0.11+20120125-1) ...
Selecting previously unselected package libgs9-common.
Preparing to unpack .../libgs9-common_9.06~dfsg-2_all.deb ...
Unpacking libgs9-common (9.06~dfsg-2) ...
Selecting previously unselected package libgs9.
Preparing to unpack .../libgs9_9.06~dfsg-2_armhf.deb ...
Unpacking libgs9 (9.06~dfsg-2) ...
Selecting previously unselected package libharfbuzz-icu0:armhf.
Preparing to unpack .../libharfbuzz-icu0_0.9.40-3_armhf.deb ...
Unpacking libharfbuzz-icu0:armhf (0.9.40-3) ...
Selecting previously unselected package libpotrace0.
Preparing to unpack .../libpotrace0_1.12-1_armhf.deb ...
Unpacking libpotrace0 (1.12-1) ...
Selecting previously unselected package libsynctex1.
Preparing to unpack .../libsynctex1_2014.20140926.35254-6_armhf.deb ...
Unpacking libsynctex1 (2014.20140926.35254-6) ...
Selecting previously unselected package texlive-binaries.
Preparing to unpack .../texlive-binaries_2014.20140926.35254-6_armhf.deb ...
Unpacking texlive-binaries (2014.20140926.35254-6) ...
Selecting previously unselected package xdg-utils.
Preparing to unpack .../xdg-utils_1.1.0~rc1+git20111210-7.4_all.deb ...
Unpacking xdg-utils (1.1.0~rc1+git20111210-7.4) ...
Selecting previously unselected package libpaper-utils.
Preparing to unpack .../libpaper-utils_1.1.24+nmu4_armhf.deb ...
Unpacking libpaper-utils (1.1.24+nmu4) ...
Selecting previously unselected package texlive-base.
Preparing to unpack .../texlive-base_2014.20141024-2_all.deb ...
Unpacking texlive-base (2014.20141024-2) ...
Selecting previously unselected package texlive-latex-base.
Preparing to unpack .../texlive-latex-base_2014.20141024-2_all.deb ...
Unpacking texlive-latex-base (2014.20141024-2) ...
Selecting previously unselected package texlive-latex-recommended.
Preparing to unpack .../texlive-latex-recommended_2014.20141024-2_all.deb ...
Unpacking texlive-latex-recommended (2014.20141024-2) ...
Selecting previously unselected package cm-super-minimal.
Preparing to unpack .../cm-super-minimal_0.3.4-9_all.deb ...
Unpacking cm-super-minimal (0.3.4-9) ...
Selecting previously unselected package gettext.
Preparing to unpack .../gettext_0.19.4-1_armhf.deb ...
Unpacking gettext (0.19.4-1) ...
Selecting previously unselected package intltool-debian.
Preparing to unpack .../intltool-debian_0.35.0+20060710.2_all.deb ...
Unpacking intltool-debian (0.35.0+20060710.2) ...
Selecting previously unselected package po-debconf.
Preparing to unpack .../po-debconf_1.0.18_all.deb ...
Unpacking po-debconf (1.0.18) ...
Selecting previously unselected package debhelper.
Preparing to unpack .../debhelper_9.20150507_all.deb ...
Unpacking debhelper (9.20150507) ...
Selecting previously unselected package dh-lisp.
Preparing to unpack .../archives/dh-lisp_0.7.1_all.deb ...
Unpacking dh-lisp (0.7.1) ...
Selecting previously unselected package gsfonts.
Preparing to unpack .../gsfonts_1%3a8.11+urwcyr1.0.7~pre44-4.2_all.deb ...
Unpacking gsfonts (1:8.11+urwcyr1.0.7~pre44-4.2) ...
Selecting previously unselected package ghostscript.
Preparing to unpack .../ghostscript_9.06~dfsg-2_armhf.deb ...
Unpacking ghostscript (9.06~dfsg-2) ...
Selecting previously unselected package libcdt5.
Preparing to unpack .../libcdt5_2.38.0-9_armhf.deb ...
Unpacking libcdt5 (2.38.0-9) ...
Selecting previously unselected package libcgraph6.
Preparing to unpack .../libcgraph6_2.38.0-9_armhf.deb ...
Unpacking libcgraph6 (2.38.0-9) ...
Selecting previously unselected package libgd3:armhf.
Preparing to unpack .../libgd3_2.1.1-1_armhf.deb ...
Unpacking libgd3:armhf (2.1.1-1) ...
Selecting previously unselected package libpathplan4.
Preparing to unpack .../libpathplan4_2.38.0-9_armhf.deb ...
Unpacking libpathplan4 (2.38.0-9) ...
Selecting previously unselected package libxdot4.
Preparing to unpack .../libxdot4_2.38.0-9_armhf.deb ...
Unpacking libxdot4 (2.38.0-9) ...
Selecting previously unselected package libgvc6.
Preparing to unpack .../libgvc6_2.38.0-9_armhf.deb ...
Unpacking libgvc6 (2.38.0-9) ...
Selecting previously unselected package libgvpr2.
Preparing to unpack .../libgvpr2_2.38.0-9_armhf.deb ...
Unpacking libgvpr2 (2.38.0-9) ...
Selecting previously unselected package graphviz.
Preparing to unpack .../graphviz_2.38.0-9_armhf.deb ...
Unpacking graphviz (2.38.0-9) ...
Selecting previously unselected package libintl-perl.
Preparing to unpack .../libintl-perl_1.23-1_all.deb ...
Unpacking libintl-perl (1.23-1) ...
Selecting previously unselected package libtext-unidecode-perl.
Preparing to unpack .../libtext-unidecode-perl_1.22-1_all.deb ...
Unpacking libtext-unidecode-perl (1.22-1) ...
Selecting previously unselected package libxml-namespacesupport-perl.
Preparing to unpack .../libxml-namespacesupport-perl_1.11-1_all.deb ...
Unpacking libxml-namespacesupport-perl (1.11-1) ...
Selecting previously unselected package libxml-sax-base-perl.
Preparing to unpack .../libxml-sax-base-perl_1.07-1_all.deb ...
Unpacking libxml-sax-base-perl (1.07-1) ...
Selecting previously unselected package libxml-sax-perl.
Preparing to unpack .../libxml-sax-perl_0.99+dfsg-2_all.deb ...
Unpacking libxml-sax-perl (0.99+dfsg-2) ...
Selecting previously unselected package libxml-libxml-perl.
Preparing to unpack .../libxml-libxml-perl_2.0116+dfsg-3_armhf.deb ...
Unpacking libxml-libxml-perl (2.0116+dfsg-3) ...
Selecting previously unselected package sbcl.
Preparing to unpack .../sbcl_2%3a1.2.11-2_armhf.deb ...
Unpacking sbcl (2:1.2.11-2) ...
Selecting previously unselected package sbcl-source.
Preparing to unpack .../sbcl-source_2%3a1.2.12-1_all.deb ...
Unpacking sbcl-source (2:1.2.12-1) ...
Selecting previously unselected package texinfo.
Preparing to unpack .../texinfo_5.2.0.dfsg.1-6_armhf.deb ...
Unpacking texinfo (5.2.0.dfsg.1-6) ...
Selecting previously unselected package texlive-fonts-recommended.
Preparing to unpack .../texlive-fonts-recommended_2014.20141024-2_all.deb ...
Unpacking texlive-fonts-recommended (2014.20141024-2) ...
Selecting previously unselected package texlive.
Preparing to unpack .../texlive_2014.20141024-2_all.deb ...
Unpacking texlive (2014.20141024-2) ...
Selecting previously unselected package texlive-extra-utils.
Preparing to unpack .../texlive-extra-utils_2014.20141024-1_all.deb ...
Unpacking texlive-extra-utils (2014.20141024-1) ...
Selecting previously unselected package texlive-font-utils.
Preparing to unpack .../texlive-font-utils_2014.20141024-1_all.deb ...
Unpacking texlive-font-utils (2014.20141024-1) ...
Selecting previously unselected package texlive-generic-recommended.
Preparing to unpack .../texlive-generic-recommended_2014.20141024-2_all.deb ...
Unpacking texlive-generic-recommended (2014.20141024-2) ...
Selecting previously unselected package zlib1g-dev:armhf.
Preparing to unpack .../zlib1g-dev_1%3a1.2.8.dfsg-2_armhf.deb ...
Unpacking zlib1g-dev:armhf (1:1.2.8.dfsg-2) ...
Selecting previously unselected package sbuild-build-depends-sbcl-dummy.
Preparing to unpack .../sbuild-build-depends-sbcl-dummy.deb ...
Unpacking sbuild-build-depends-sbcl-dummy (0.invalid.0) ...
Processing triggers for systemd (215-17) ...
Setting up libpipeline1:armhf (1.4.0-1) ...
Setting up libssl1.0.0:armhf (1.0.2a-1) ...
Setting up groff-base (1.22.3-1) ...
Setting up bsdmainutils (9.0.6) ...
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 man-db (2.7.0.2-5) ...
Not building database; man-db/auto-update is not 'true'.
Setting up libasprintf0c2:armhf (0.19.4-1) ...
Setting up libnettle4:armhf (2.7.1-5) ...
Setting up libhogweed2:armhf (2.7.1-5) ...
Setting up libffi6:armhf (3.1-2) ...
Setting up libp11-kit0:armhf (0.23.1-2) ...
Setting up libtasn1-6:armhf (4.5-2) ...
Setting up libgnutls-deb0-28:armhf (3.3.15-2) ...
Setting up libkeyutils1:armhf (1.5.9-5) ...
Setting up libkrb5support0:armhf (1.12.1+dfsg-20) ...
Setting up libk5crypto3:armhf (1.12.1+dfsg-20) ...
Setting up libkrb5-3:armhf (1.12.1+dfsg-20) ...
Setting up libgssapi-krb5-2:armhf (1.12.1+dfsg-20) ...
Setting up libidn11:armhf (1.30-1) ...
Setting up libmagic1:armhf (1:5.22+15-2) ...
Setting up libxml2:armhf (2.9.1+dfsg1-5) ...
Setting up libpython2.7-minimal:armhf (2.7.10-2) ...
Setting up python2.7-minimal (2.7.10-2) ...
Setting up libexpat1:armhf (2.1.0-6) ...
Setting up libfreetype6:armhf (2.5.2-4) ...
Setting up ucf (3.0030) ...
Setting up fonts-dejavu-core (2.35-1) ...
Setting up fontconfig-config (2.11.0-6.3) ...
Setting up libfontconfig1:armhf (2.11.0-6.3) ...
Setting up fontconfig (2.11.0-6.3) ...
Regenerating fonts cache... done.
Setting up libavahi-common-data:armhf (0.6.31-5) ...
Setting up libavahi-common3:armhf (0.6.31-5) ...
Setting up libavahi-client3:armhf (0.6.31-5) ...
Setting up libglib2.0-0:armhf (2.44.1-1) ...
No schema files found: doing nothing.
Setting up libcroco3:armhf (0.6.8-3) ...
Setting up libcups2:armhf (1.7.5-11) ...
Setting up libjpeg62-turbo:armhf (1:1.4.0-7) ...
Setting up libjbig0:armhf (2.1-3.1) ...
Setting up libtiff5:armhf (4.0.3-13) ...
Setting up libdatrie1:armhf (0.2.9-1) ...
Setting up libgraphite2-3:armhf (1.2.4-3) ...
Setting up x11-common (1:7.7+9) ...
update-rc.d: warning: start and stop actions are no longer supported; falling back to defaults
All runlevel operations denied by policy
invoke-rc.d: policy-rc.d denied execution of start.
Setting up libice6:armhf (2:1.0.9-1) ...
Setting up libicu52:armhf (52.1-9) ...
Setting up libijs-0.35:armhf (0.35-10) ...
Setting up libjasper1:armhf (1.900.1-debian1-2.4) ...
Setting up liblcms2-2:armhf (2.6-3) ...
Setting up libltdl7:armhf (2.4.2-1.11) ...
Setting up libthai-data (0.1.22-1) ...
Setting up libthai0:armhf (0.1.22-1) ...
Setting up libpango-1.0-0:armhf (1.36.8-3) ...
Setting up libpixman-1-0:armhf (0.32.6-3) ...
Setting up libxau6:armhf (1:1.0.8-1) ...
Setting up libxdmcp6:armhf (1:1.1.2-1) ...
Setting up libxcb1:armhf (1.10-3) ...
Setting up libx11-data (2:1.6.3-1) ...
Setting up libx11-6:armhf (2:1.6.3-1) ...
Setting up libxcb-render0:armhf (1.10-3) ...
Setting up libxcb-shm0:armhf (1.10-3) ...
Setting up libxext6:armhf (2:1.3.3-1) ...
Setting up libxrender1:armhf (1:0.9.8-1) ...
Setting up libcairo2:armhf (1.14.2-2) ...
Setting up libharfbuzz0b:armhf (0.9.40-3) ...
Setting up libpangoft2-1.0-0:armhf (1.36.8-3) ...
Setting up libpangocairo-1.0-0:armhf (1.36.8-3) ...
Setting up libpaper1:armhf (1.1.24+nmu4) ...

Creating config file /etc/papersize with new version
Setting up libopenjpeg5:armhf (1:1.5.2-3.1) ...
Setting up libpoppler46:armhf (0.26.5-2) ...
Setting up libsm6:armhf (2:1.2.2-1) ...
Setting up libunistring0:armhf (0.9.3-5.2) ...
Setting up libvpx1:armhf (1.3.0-3+rpi1) ...
Setting up libxt6:armhf (1:1.1.4-1) ...
Setting up libxmu6:armhf (2:1.1.2-1) ...
Setting up libxpm4:armhf (1:3.5.11-1) ...
Setting up libxaw7:armhf (2:1.0.12-2) ...
Setting up libxi6:armhf (2:1.7.4-1) ...
Setting up libzzip-0-13:armhf (0.13.62-3) ...
Setting up poppler-data (0.4.7-3) ...
Setting up netbase (5.3) ...
Setting up file (1:5.22+15-2) ...
Setting up gettext-base (0.19.4-1) ...
Setting up mime-support (3.58) ...
Setting up libsqlite3-0:armhf (3.8.10.2-1) ...
Setting up libpython2.7-stdlib:armhf (2.7.10-2) ...
Setting up locales (2.19-18) ...
Generating locales (this might take a while)...
Generation complete.
Setting up python2.7 (2.7.10-2) ...
Setting up time (1.7-25) ...
Setting up tex-common (5.03) ...
Setting up libkpathsea6 (2014.20140926.35254-6) ...
Setting up libptexenc1 (2014.20140926.35254-6) ...
Setting up libjbig2dec0 (0.11+20120125-1) ...
Setting up libgs9-common (9.06~dfsg-2) ...
Setting up libharfbuzz-icu0:armhf (0.9.40-3) ...
Setting up libpotrace0 (1.12-1) ...
Setting up libsynctex1 (2014.20140926.35254-6) ...
Setting up xdg-utils (1.1.0~rc1+git20111210-7.4) ...
Setting up libpaper-utils (1.1.24+nmu4) ...
Setting up gettext (0.19.4-1) ...
Setting up intltool-debian (0.35.0+20060710.2) ...
Setting up po-debconf (1.0.18) ...
Setting up debhelper (9.20150507) ...
Setting up dh-lisp (0.7.1) ...
Setting up gsfonts (1:8.11+urwcyr1.0.7~pre44-4.2) ...
Setting up libcdt5 (2.38.0-9) ...
Setting up libcgraph6 (2.38.0-9) ...
Setting up libgd3:armhf (2.1.1-1) ...
Setting up libpathplan4 (2.38.0-9) ...
Setting up libxdot4 (2.38.0-9) ...
Setting up libgvc6 (2.38.0-9) ...
Setting up libgvpr2 (2.38.0-9) ...
Setting up graphviz (2.38.0-9) ...
Setting up libintl-perl (1.23-1) ...
Setting up libtext-unidecode-perl (1.22-1) ...
Setting up libxml-namespacesupport-perl (1.11-1) ...
Setting up libxml-sax-base-perl (1.07-1) ...
Setting up libxml-sax-perl (0.99+dfsg-2) ...
update-perl-sax-parsers: Registering Perl SAX parser XML::SAX::PurePerl with priority 10...
update-perl-sax-parsers: Updating overall Perl SAX parser modules info file...

Creating config file /etc/perl/XML/SAX/ParserDetails.ini with new version
Setting up libxml-libxml-perl (2.0116+dfsg-3) ...
update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX::Parser with priority 50...
update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX with priority 50...
update-perl-sax-parsers: Updating overall Perl SAX parser modules info file...
Replacing config file /etc/perl/XML/SAX/ParserDetails.ini with new version
Setting up sbcl (2:1.2.11-2) ...
Setting up sbcl-source (2:1.2.12-1) ...
Setting up texinfo (5.2.0.dfsg.1-6) ...
Running mktexlsr. This may take some time. ... done.
Setting up zlib1g-dev:armhf (1:1.2.8.dfsg-2) ...
Setting up libcupsimage2:armhf (1.7.5-11) ...
Setting up libcupsfilters1:armhf (1.0.68-1) ...
Setting up libgs9 (9.06~dfsg-2) ...
Setting up texlive-binaries (2014.20140926.35254-6) ...
update-alternatives: using /usr/bin/xdvi-xaw to provide /usr/bin/xdvi.bin (xdvi.bin) in auto mode
update-alternatives: using /usr/bin/bibtex.original to provide /usr/bin/bibtex (bibtex) in auto mode
Building format(s) --refresh.
	This may take some time... done.
Setting up texlive-base (2014.20141024-2) ...
/usr/bin/tl-paper: setting paper size for dvips to a4.
/usr/bin/tl-paper: setting paper size for dvipdfmx to a4.
/usr/bin/tl-paper: setting paper size for xdvi to a4.
/usr/bin/tl-paper: setting paper size for pdftex to a4.
Running mktexlsr. This may take some time... done.
Building format(s) --all.
	This may take some time... done.
Setting up ghostscript (9.06~dfsg-2) ...
Processing triggers for tex-common (5.03) ...
Running updmap-sys. This may take some time... done.
Running mktexlsr /var/lib/texmf ... done.
Setting up texlive-font-utils (2014.20141024-1) ...
Setting up texlive-generic-recommended (2014.20141024-2) ...
Setting up texlive-latex-base (2014.20141024-2) ...
Running mktexlsr. This may take some time... done.
Building format(s) --all --cnffile /etc/texmf/fmt.d/10texlive-latex-base.cnf.
	This may take some time... done.
Setting up texlive-fonts-recommended (2014.20141024-2) ...
Processing triggers for tex-common (5.03) ...
Running mktexlsr. This may take some time... done.
Running updmap-sys. This may take some time... done.
Running mktexlsr /var/lib/texmf ... done.
Setting up texlive-extra-utils (2014.20141024-1) ...
Setting up texlive-latex-recommended (2014.20141024-2) ...
Processing triggers for tex-common (5.03) ...
Running mktexlsr. This may take some time... done.
Setting up texlive (2014.20141024-2) ...
Setting up cm-super-minimal (0.3.4-9) ...
Processing triggers for tex-common (5.03) ...
Running mktexlsr. This may take some time... done.
Running updmap-sys. This may take some time... done.
Running mktexlsr /var/lib/texmf ... done.
Setting up sbuild-build-depends-sbcl-dummy (0.invalid.0) ...
Processing triggers for libc-bin (2.19-18) ...
Processing triggers for systemd (215-17) ...

┌──────────────────────────────────────────────────────────────────────────────┐
│ Build environment                                                            │
└──────────────────────────────────────────────────────────────────────────────┘

Kernel: Linux 3.19.0-trunk-armmp armhf (armv7l)
Toolchain package versions: binutils_2.25-5 dpkg-dev_1.17.25 g++-4.9_4.9.2-10 gcc-4.9_4.9.2-10 libc6-dev_2.19-18 libstdc++-4.9-dev_4.9.2-10 libstdc++6_4.9.2-10 linux-libc-dev_3.16.7-ckt4-1+rpi1
Package versions: acl_2.2.52-2 adduser_3.113+nmu3 apt_1.0.9.8 base-files_8+rpi1 base-passwd_3.5.37 bash_4.3-11 binutils_2.25-5 bsdmainutils_9.0.6 bsdutils_1:2.25.2-6 build-essential_11.7 bzip2_1.0.6-7 cm-super-minimal_0.3.4-9 coreutils_8.23-4 cpio_2.11+dfsg-4.1 cpp_4:4.9.2-2 cpp-4.9_4.9.2-10 dash_0.5.7-4 debconf_1.5.56 debconf-i18n_1.5.56 debfoster_2.7-2 debhelper_9.20150507 debianutils_4.4 dh-lisp_0.7.1 diffutils_1:3.3-1 dmsetup_2:1.02.90-2.2 dpkg_1.17.25 dpkg-dev_1.17.25 e2fslibs_1.42.12-1.1 e2fsprogs_1.42.12-1.1 fakeroot_1.20.2-1 file_1:5.22+15-2 findutils_4.4.2-9 fontconfig_2.11.0-6.3 fontconfig-config_2.11.0-6.3 fonts-dejavu-core_2.35-1 g++_4:4.9.2-2 g++-4.9_4.9.2-10 gcc_4:4.9.2-2 gcc-4.6-base_4.6.4-5+rpi1 gcc-4.7-base_4.7.3-11+rpi1 gcc-4.8-base_4.8.4-1 gcc-4.9_4.9.2-10 gcc-4.9-base_4.9.2-10 gettext_0.19.4-1 gettext-base_0.19.4-1 ghostscript_9.06~dfsg-2 gnupg_1.4.18-7 gpgv_1.4.18-7 graphviz_2.38.0-9 grep_2.20-4.1 groff-base_1.22.3-1 gsfonts_1:8.11+urwcyr1.0.7~pre44-4.2 gzip_1.6-4 hostname_3.15 init_1.22 init-system-helpers_1.22 initramfs-tools_0.120 initscripts_2.88dsf-59 insserv_1.14.0-5 intltool-debian_0.35.0+20060710.2 klibc-utils_2.0.4-2+rpi1 kmod_18-3 libacl1_2.2.52-2 libapt-pkg4.12_1.0.9.8 libasan1_4.9.2-10 libasprintf0c2_0.19.4-1 libatomic1_4.9.2-10 libattr1_1:2.4.47-2 libaudit-common_1:2.4-1 libaudit1_1:2.4-1 libavahi-client3_0.6.31-5 libavahi-common-data_0.6.31-5 libavahi-common3_0.6.31-5 libblkid1_2.25.2-6 libbz2-1.0_1.0.6-7 libc-bin_2.19-18 libc-dev-bin_2.19-18 libc6_2.19-18 libc6-dev_2.19-18 libcairo2_1.14.2-2 libcap2_1:2.24-8 libcap2-bin_1:2.24-8 libcdt5_2.38.0-9 libcgraph6_2.38.0-9 libcloog-isl4_0.18.2-1 libcomerr2_1.42.12-1.1 libcroco3_0.6.8-3 libcryptsetup4_2:1.6.6-5 libcups2_1.7.5-11 libcupsfilters1_1.0.68-1 libcupsimage2_1.7.5-11 libdatrie1_0.2.9-1 libdb5.3_5.3.28-9 libdbus-1-3_1.8.16-1 libdebconfclient0_0.192 libdevmapper1.02.1_2:1.02.90-2.2 libdpkg-perl_1.17.25 libdrm2_2.4.58-2 libexpat1_2.1.0-6 libfakeroot_1.20.2-1 libffi6_3.1-2 libfontconfig1_2.11.0-6.3 libfreetype6_2.5.2-4 libgc1c2_1:7.2d-6.4 libgcc-4.9-dev_4.9.2-10 libgcc1_1:4.9.2-10 libgcrypt20_1.6.3-2 libgd3_2.1.1-1 libgdbm3_1.8.3-13.1 libglib2.0-0_2.44.1-1 libgmp10_2:6.0.0+dfsg-6+rpi1 libgnutls-deb0-28_3.3.15-2 libgomp1_4.9.2-10 libgpg-error0_1.17-3 libgraphite2-3_1.2.4-3 libgs9_9.06~dfsg-2 libgs9-common_9.06~dfsg-2 libgssapi-krb5-2_1.12.1+dfsg-20 libgvc6_2.38.0-9 libgvpr2_2.38.0-9 libharfbuzz-icu0_0.9.40-3 libharfbuzz0b_0.9.40-3 libhogweed2_2.7.1-5 libice6_2:1.0.9-1 libicu52_52.1-9 libidn11_1.30-1 libijs-0.35_0.35-10 libintl-perl_1.23-1 libisl10_0.12.2-2 libjasper1_1.900.1-debian1-2.4 libjbig0_2.1-3.1 libjbig2dec0_0.11+20120125-1 libjpeg62-turbo_1:1.4.0-7 libk5crypto3_1.12.1+dfsg-20 libkeyutils1_1.5.9-5 libklibc_2.0.4-2+rpi1 libkmod2_18-3 libkpathsea6_2014.20140926.35254-6 libkrb5-3_1.12.1+dfsg-20 libkrb5support0_1.12.1+dfsg-20 liblcms2-2_2.6-3 liblocale-gettext-perl_1.05-8+b1 libltdl7_2.4.2-1.11 liblzma5_5.1.1alpha+20120614-2 libmagic1_1:5.22+15-2 libmount1_2.25.2-6 libmpc3_1.0.2-1 libmpfr4_3.1.2-2 libncurses5_5.9+20140913-1 libncursesw5_5.9+20140913-1 libnettle4_2.7.1-5 libnih-dbus1_1.0.3-4.3 libnih1_1.0.3-4.3 libopenjpeg5_1:1.5.2-3.1 libp11-kit0_0.23.1-2 libpam-modules_1.1.8-3.1 libpam-modules-bin_1.1.8-3.1 libpam-runtime_1.1.8-3.1 libpam0g_1.1.8-3.1 libpango-1.0-0_1.36.8-3 libpangocairo-1.0-0_1.36.8-3 libpangoft2-1.0-0_1.36.8-3 libpaper-utils_1.1.24+nmu4 libpaper1_1.1.24+nmu4 libpathplan4_2.38.0-9 libpcre3_2:8.35-3.3 libpipeline1_1.4.0-1 libpixman-1-0_0.32.6-3 libpng12-0_1.2.50-2 libpoppler46_0.26.5-2 libpotrace0_1.12-1 libprocps3_2:3.3.9-9 libptexenc1_2014.20140926.35254-6 libpython2.7-minimal_2.7.10-2 libpython2.7-stdlib_2.7.10-2 libreadline6_6.3-8 libselinux1_2.3-2 libsemanage-common_2.3-1 libsemanage1_2.3-1 libsepol1_2.3-2 libslang2_2.3.0-2 libsm6_2:1.2.2-1 libsmartcols1_2.25.2-6 libsqlite3-0_3.8.10.2-1 libss2_1.42.12-1.1 libssl1.0.0_1.0.2a-1 libstdc++-4.9-dev_4.9.2-10 libstdc++6_4.9.2-10 libsynctex1_2014.20140926.35254-6 libsystemd0_215-17 libtasn1-6_4.5-2 libtext-charwidth-perl_0.04-7+b4 libtext-iconv-perl_1.7-5+b5 libtext-unidecode-perl_1.22-1 libtext-wrapi18n-perl_0.06-7 libthai-data_0.1.22-1 libthai0_0.1.22-1 libtiff5_4.0.3-13 libtimedate-perl_2.3000-2 libtinfo5_5.9+20140913-1 libubsan0_4.9.2-10 libudev1_215-17 libunistring0_0.9.3-5.2 libusb-0.1-4_2:0.1.12-25 libustr-1.0-1_1.0.4-3 libuuid1_2.25.2-6 libvpx1_1.3.0-3+rpi1 libx11-6_2:1.6.3-1 libx11-data_2:1.6.3-1 libxau6_1:1.0.8-1 libxaw7_2:1.0.12-2 libxcb-render0_1.10-3 libxcb-shm0_1.10-3 libxcb1_1.10-3 libxdmcp6_1:1.1.2-1 libxdot4_2.38.0-9 libxext6_2:1.3.3-1 libxi6_2:1.7.4-1 libxml-libxml-perl_2.0116+dfsg-3 libxml-namespacesupport-perl_1.11-1 libxml-sax-base-perl_1.07-1 libxml-sax-perl_0.99+dfsg-2 libxml2_2.9.1+dfsg1-5 libxmu6_2:1.1.2-1 libxpm4_1:3.5.11-1 libxrender1_1:0.9.8-1 libxt6_1:1.1.4-1 libzzip-0-13_0.13.62-3 linux-libc-dev_3.16.7-ckt4-1+rpi1 locales_2.19-18 login_1:4.2-3 lsb-base_4.1+Debian13+rpi1+nmu1 make_4.0-8.1 makedev_2.3.1-93 man-db_2.7.0.2-5 mawk_1.3.3-17 mime-support_3.58 mount_2.25.2-6 mountall_2.54 multiarch-support_2.19-18 ncurses-base_5.9+20140913-1 ncurses-bin_5.9+20140913-1 netbase_5.3 passwd_1:4.2-3 patch_2.7.5-1 perl_5.20.2-3 perl-base_5.20.2-3 perl-modules_5.20.2-3 plymouth_0.9.0-9 po-debconf_1.0.18 poppler-data_0.4.7-3 procps_2:3.3.9-9 python2.7_2.7.10-2 python2.7-minimal_2.7.10-2 raspbian-archive-keyring_20120528.2 readline-common_6.3-8 sbcl_2:1.2.11-2 sbcl-source_2:1.2.12-1 sbuild-build-depends-core-dummy_0.invalid.0 sbuild-build-depends-sbcl-dummy_0.invalid.0 sed_4.2.2-4 sensible-utils_0.0.9 startpar_0.59-3 systemd_215-17 systemd-sysv_215-17 sysv-rc_2.88dsf-59 sysvinit-utils_2.88dsf-59 tar_1.27.1-2 tex-common_5.03 texinfo_5.2.0.dfsg.1-6 texlive_2014.20141024-2 texlive-base_2014.20141024-2 texlive-binaries_2014.20140926.35254-6 texlive-extra-utils_2014.20141024-1 texlive-font-utils_2014.20141024-1 texlive-fonts-recommended_2014.20141024-2 texlive-generic-recommended_2014.20141024-2 texlive-latex-base_2014.20141024-2 texlive-latex-recommended_2014.20141024-2 time_1.7-25 tzdata_2015c-1 ucf_3.0030 udev_215-17 util-linux_2.25.2-6 x11-common_1:7.7+9 xdg-utils_1.1.0~rc1+git20111210-7.4 xz-utils_5.1.1alpha+20120614-2 zlib1g_1:1.2.8.dfsg-2 zlib1g-dev_1:1.2.8.dfsg-2

┌──────────────────────────────────────────────────────────────────────────────┐
│ Build                                                                        │
└──────────────────────────────────────────────────────────────────────────────┘


Unpack source
─────────────

gpgv: keyblock resource `/sbuild-nonexistent/.gnupg/trustedkeys.gpg': file open error
gpgv: Signature made Fri Jun  5 12:13:16 2015 UTC using RSA key ID 4008C6F9
gpgv: Can't check signature: public key not found
dpkg-source: warning: failed to verify signature on ./sbcl_1.2.12-1.dsc
dpkg-source: info: extracting sbcl in sbcl-1.2.12
dpkg-source: info: unpacking sbcl_1.2.12.orig.tar.bz2
dpkg-source: info: unpacking sbcl_1.2.12-1.debian.tar.xz
dpkg-source: info: applying set-debian-version.patch
dpkg-source: info: applying dont-split-doc.patch
dpkg-source: info: applying disable-version-build.patch
dpkg-source: info: applying kfreebsd-pthread-futex.patch
dpkg-source: info: applying powerpc-concurrency-fix.patch

Check disc space
────────────────

Sufficient free space for build

User Environment
────────────────

DEB_BUILD_OPTIONS=parallel=4
HOME=/sbuild-nonexistent
LOGNAME=root
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
SCHROOT_ALIAS_NAME=stretch-staging-armhf-sbuild
SCHROOT_CHROOT_NAME=stretch-staging-armhf-sbuild
SCHROOT_COMMAND=env
SCHROOT_GID=109
SCHROOT_GROUP=buildd
SCHROOT_SESSION_ID=stretch-staging-armhf-sbuild-0457a5d2-3457-49de-80d2-466c47e6d19e
SCHROOT_UID=104
SCHROOT_USER=buildd
SHELL=/bin/sh
TERM=xterm
USER=buildd

dpkg-buildpackage
─────────────────

dpkg-buildpackage: source package sbcl
dpkg-buildpackage: source version 2:1.2.12-1
dpkg-buildpackage: source distribution unstable
 dpkg-source --before-build sbcl-1.2.12
dpkg-buildpackage: host architecture armhf
 fakeroot debian/rules clean
dh_testdir
dh_testroot
rm -rf target || true
chmod 700 stage1
chmod: cannot access 'stage1': No such file or directory
make: [clean] Error 1 (ignored)
debian/rules:85: recipe for target 'clean' failed
rm -rf stage1 || true
rm -rf debian/tmpdir || true
rm -rf .fontconfig || true
GNUMAKE=make sh clean.sh || true
make[1]: Entering directory '/«PKGBUILDDIR»/doc/manual'
find: `../../obj/asdf-cache/sb-md5': No such file or directory
find: `../../obj/asdf-cache/sb-queue': No such file or directory
find: `../../obj/asdf-cache/sb-concurrency': No such file or directory
find: `../../obj/asdf-cache/sb-rotate-byte': No such file or directory
find: `../../obj/asdf-cache/sb-grovel': No such file or directory
find: `../../obj/asdf-cache/sb-sprof': No such file or directory
find: `../../obj/asdf-cache/sb-bsd-sockets': No such file or directory
find: `../../obj/asdf-cache/sb-cover': No such file or directory
find: `../../obj/asdf-cache/sb-posix': No such file or directory
rm -f *~ *.bak *.orig \#*\# .\#* texput.log *.fasl
rm -rf sbcl asdf "docstrings/"
rm -f  sbcl.html asdf.html
rm -f contrib-docs.texi-temp
rm -f package-locks.texi-temp
rm -f variables.texinfo
rm -f sbcl.ps asdf.ps sbcl.pdf asdf.pdf html-stamp tempfiles-stamp
rm -f asdf.aux asdf.cp asdf.cps asdf.fn asdf.fns asdf.ky asdf.log asdf.pg asdf.toc asdf.tp asdf.tps asdf.vr asdf.vrs sbcl.aux sbcl.cp sbcl.cps sbcl.fn sbcl.fns sbcl.ky sbcl.log sbcl.pg sbcl.toc sbcl.tp sbcl.tps sbcl.vr sbcl.vrs 
rm -f sbcl.info sbcl.info-* asdf.info
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
make[1]: Entering directory '/«PKGBUILDDIR»/doc/internals'
rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \
	*.tp *.vr *.aux *.eps *.png *.dvi *.ps *.txt *.fns \
	html-stamp sbcl-internals/
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/internals'
(cd src/runtime ; touch Config ; make clean ) || true
make[1]: Entering directory '/«PKGBUILDDIR»/src/runtime'
GNUmakefile:25: ../../output/prefix.def: No such file or directory
GNUmakefile:32: genesis/Makefile.features: No such file or directory
make[1]: *** No rule to make target 'genesis/Makefile.features'.  Stop.
make[1]: Leaving directory '/«PKGBUILDDIR»/src/runtime'
rmdir contrib/systems/ obj/ output/ || true
rmdir: failed to remove 'contrib/systems/': No such file or directory
rmdir: failed to remove 'obj/': No such file or directory
rmdir: failed to remove 'output/': No such file or directory
make -C doc/internals clean
make[1]: Entering directory '/«PKGBUILDDIR»/doc/internals'
rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \
	*.tp *.vr *.aux *.eps *.png *.dvi *.ps *.txt *.fns \
	html-stamp sbcl-internals/
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/internals'
dh_clean
	rm -f debian/sbcl.substvars
	rm -f debian/sbcl.*.debhelper
	rm -rf debian/sbcl/
	rm -f debian/sbcl-doc.substvars
	rm -f debian/sbcl-doc.*.debhelper
	rm -rf debian/sbcl-doc/
	rm -f debian/sbcl-source.substvars
	rm -f debian/sbcl-source.*.debhelper
	rm -rf debian/sbcl-source/
	rm -f debian/*.debhelper.log
	rm -f -- build-arch-stamp build-indep-stamp configure-stamp src/runtime/Config contrib/sb-bsd-sockets/foo.c contrib/sb-posix/foo.c doc/manual/variables.texinfo customize-target-features.lisp src/runtime/ldso-stubs.S doc/internals/sbcl-internals.cps whitespace-stamp
	rm -f debian/files
	find .  \( \( \
		\( -path .\*/.git -o -path .\*/.svn -o -path .\*/.bzr -o -path .\*/.hg -o -path .\*/CVS \) -prune -o -type f -a \
	        \( -name '#*#' -o -name '.*~' -o -name '*~' -o -name DEADJOE \
		 -o -name '*.orig' -o -name '*.rej' -o -name '*.bak' \
		 -o -name '.*.orig' -o -name .*.rej -o -name '.SUMS' \
		 -o -name TAGS -o \( -path '*/.deps/*' -a -name '*.P' \) \
		\) -exec rm -f {} + \) -o \
		\( -type d -a -name autom4te.cache -prune -exec rm -rf {} + \) \)
	rm -f *-stamp
 debian/rules build-arch
dh_testdir
touch configure-stamp
dh_testdir
mkdir -p debian/tmpdir/usr/lib/locale
localedef -i "en_US" -f "UTF-8" "debian/tmpdir/usr/lib/locale/en_US.UTF-8"
export LC_ALL=en_US.UTF-8
export LANG=en_US.UTF-8
export LOCPATH=debian/tmpdir/usr/lib/locale 
echo environment:
environment:
env
DH_OPTIONS=
DEB_BUILD_ARCH_OS=linux
DEB_TARGET_ARCH_CPU=arm
SHELL=/bin/sh
DEB_TARGET_ARCH_ENDIAN=little
DEB_TARGET_GNU_SYSTEM=linux-gnueabihf
SCHROOT_COMMAND=dpkg-buildpackage -us -uc -mRaspbian wandboard test autobuilder <root@raspbian.org> -B -rfakeroot
DEB_HOST_ARCH_BITS=32
DEB_BUILD_GNU_CPU=arm
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
DEB_HOST_ARCH_CPU=arm
DEB_TARGET_MULTIARCH=arm-linux-gnueabihf
DEB_HOST_GNU_SYSTEM=linux-gnueabihf
DEB_TARGET_ARCH_OS=linux
SCHROOT_ALIAS_NAME=stretch-staging-armhf-sbuild
DEB_BUILD_ARCH=armhf
HOME=/«PKGBUILDDIR»
SCHROOT_USER=buildd
DH_VERBOSE=1
SCHROOT_GID=109
LOGNAME=root
DEB_HOST_ARCH_ENDIAN=little
DEB_HOST_GNU_TYPE=arm-linux-gnueabihf
sbcl_arch=armhf
DEB_BUILD_OPTIONS=parallel=4
DEB_TARGET_GNU_CPU=arm
SCHROOT_CHROOT_NAME=stretch-staging-armhf-sbuild
DEB_TARGET_GNU_TYPE=arm-linux-gnueabihf
DEB_HOST_ARCH_OS=linux
SCHROOT_UID=104
DEB_BUILD_ARCH_BITS=32
USER=buildd
SCHROOT_SESSION_ID=stretch-staging-armhf-sbuild-0457a5d2-3457-49de-80d2-466c47e6d19e
SCHROOT_GROUP=buildd
MAKEFLAGS=
DEB_BUILD_GNU_TYPE=arm-linux-gnueabihf
MFLAGS=
DEB_BUILD_ARCH_CPU=arm
DEB_TARGET_ARCH=armhf
DEB_BUILD_ARCH_ENDIAN=little
DEB_HOST_GNU_CPU=arm
DEB_BUILD_GNU_SYSTEM=linux-gnueabihf
DEB_HOST_MULTIARCH=arm-linux-gnueabihf
DEB_TARGET_ARCH_BITS=32
DEB_HOST_ARCH=armhf
DEB_BUILD_MULTIARCH=arm-linux-gnueabihf
TERM=xterm
MAKELEVEL=1
echo

chmod a+x ./src/runtime/linux-nm ./make.sh ./install.sh ./clean.sh ./tools-for-build/canonicalize-whitespace
chmod a+x ./tools-for-build/whitespacely-canonical-filenames ./tools-for-build/grep-noncanonical-whitespace  
chmod a+x ./tools-for-build/check-canonical-whitespace ./tools-for-build/canonicalize-whitespace-1
./make.sh --xc-host="/usr/bin/sbcl --disable-debugger --no-sysinit --no-userinit" --prefix=/«PKGBUILDDIR»/stage1 --fancy
make[1]: Entering directory '/«PKGBUILDDIR»/doc/manual'
find: `../../obj/asdf-cache/sb-md5': No such file or directory
find: `../../obj/asdf-cache/sb-queue': No such file or directory
find: `../../obj/asdf-cache/sb-concurrency': No such file or directory
find: `../../obj/asdf-cache/sb-rotate-byte': No such file or directory
find: `../../obj/asdf-cache/sb-grovel': No such file or directory
find: `../../obj/asdf-cache/sb-sprof': No such file or directory
find: `../../obj/asdf-cache/sb-bsd-sockets': No such file or directory
find: `../../obj/asdf-cache/sb-cover': No such file or directory
find: `../../obj/asdf-cache/sb-posix': No such file or directory
rm -f *~ *.bak *.orig \#*\# .\#* texput.log *.fasl
rm -rf sbcl asdf "docstrings/"
rm -f  sbcl.html asdf.html
rm -f contrib-docs.texi-temp
rm -f package-locks.texi-temp
rm -f variables.texinfo
rm -f sbcl.ps asdf.ps sbcl.pdf asdf.pdf html-stamp tempfiles-stamp
rm -f asdf.aux asdf.cp asdf.cps asdf.fn asdf.fns asdf.ky asdf.log asdf.pg asdf.toc asdf.tp asdf.tps asdf.vr asdf.vrs sbcl.aux sbcl.cp sbcl.cps sbcl.fn sbcl.fns sbcl.ky sbcl.log sbcl.pg sbcl.toc sbcl.tp sbcl.tps sbcl.vr sbcl.vrs 
rm -f sbcl.info sbcl.info-* asdf.info
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
make[1]: Entering directory '/«PKGBUILDDIR»/doc/internals'
rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \
	*.tp *.vr *.aux *.eps *.png *.dvi *.ps *.txt *.fns \
	html-stamp sbcl-internals/
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/internals'
//entering make-config.sh
//ensuring the existence of output/ directory
//guessing default target CPU architecture from host architecture
//setting up CPU-architecture-dependent information
sbcl_arch="arm"
No threads on this platform.
//initializing /«PKGBUILDDIR»/local-target-features.lisp-expr
//setting up OS-dependent information
make[1]: Entering directory '/«PKGBUILDDIR»/tools-for-build'
cc -g -marm -march=armv5 -I../src/runtime   determine-endianness.c  -ldl -o determine-endianness
make[1]: Leaving directory '/«PKGBUILDDIR»/tools-for-build'
//finishing /«PKGBUILDDIR»/local-target-features.lisp-expr
//Starting build: Thu Jun 11 06:59:25 UTC 2015
//Options: --prefix='/«PKGBUILDDIR»/stage1' --xc-host='/usr/bin/sbcl --disable-debugger --no-sysinit --no-userinit'
/in canonicalize-whitespace-1
/$*=./make-target-2.lisp ./doc/manual/create-contrib-doc-list.lisp ./doc/manual/docstrings.lisp ./tools-for-build/ldso-stubs.lisp ./tools-for-build/ucd.lisp ./tools-for-build/rtf.lisp ./tools-for-build/wxs.lisp ./tests/condition-wait-sigcont.lisp ./tests/mop-26.impure.lisp ./tests/bit-vector.impure-cload.lisp ./tests/signals.impure.lisp ./tests/mop-22.impure-cload.lisp ./tests/info.before-xc.lisp ./tests/seq.pure.lisp ./tests/mop-23.impure.lisp ./tests/packages.impure.lisp ./tests/test-util.lisp ./tests/compiler-1.impure-cload.lisp ./tests/destructure.impure.lisp ./tests/unicode-collation.impure.lisp ./tests/mop-28.impure.lisp ./tests/compiler.pure.lisp ./tests/clos-ignore.interactive.lisp ./tests/colorize.lisp ./tests/mop-11.impure-cload.lisp ./tests/data/compile-file-pos.lisp ./tests/data/wonky1.lisp ./tests/data/wonky4.lisp ./tests/data/compile-file-pos-utf16be.lisp ./tests/data/wonky2.lisp ./tests/data/wonky3.lisp ./tests/defmacro-test.lisp ./tests/callback.impure.lisp ./tests/threads.impure.lisp ./tests/clos-typechecking.impure.lisp ./tests/condition.pure.lisp ./tests/style-warnings.impure.lisp ./tests/backq.impure.lisp ./tests/bug-414.lisp ./tests/call-into-lisp.impure.lisp ./tests/bug-doug-mcnaught-20030914.lisp ./tests/seq.impure.lisp ./tests/unicode-properties.impure.lisp ./tests/clos.impure.lisp ./tests/pathnames.impure.lisp ./tests/interface.impure.lisp ./tests/mop-1.impure-cload.lisp ./tests/backq.impure-cload.lisp ./tests/mop-3.impure-cload.lisp ./tests/clos-add-remove-method.impure.lisp ./tests/reader.pure.lisp ./tests/bug-943953.lisp ./tests/lambda-list.pure.lisp ./tests/float.impure.lisp ./tests/symbol-macrolet-test.lisp ./tests/ctor.impure.lisp ./tests/colorize-control-codes.lisp ./tests/type.pure.lisp ./tests/assertoid.lisp ./tests/parallel-fasl-load-test.lisp ./tests/system.impure.lisp ./tests/mop-10.impure-cload.lisp ./tests/mop.impure-cload.lisp ./tests/deprecation.impure.lisp ./tests/bug204-test.lisp ./tests/undefined-classoid-bug-1.lisp ./tests/mop-20.impure-cload.lisp ./tests/dynamic-extent.impure.lisp ./tests/reader.impure.lisp ./tests/mop-14.impure-cload.lisp ./tests/run-tests.lisp ./tests/define-compiler-macro.impure.lisp ./tests/bug-417.lisp ./tests/package-ctor-bug.lisp ./tests/compiler-2.impure-cload.lisp ./tests/clocc-ansi-test-known-bugs.lisp ./tests/mop-9.impure-cload.lisp ./tests/compiler.pure-cload.lisp ./tests/extended-sequences.impure.lisp ./tests/bug-503095.lisp ./tests/pure.lisp ./tests/fopcompiler.impure.lisp ./tests/mop-29.impure.lisp ./tests/break-on-signals.impure.lisp ./tests/random.pure.lisp ./tests/case.pure.lisp ./tests/deadline.impure.lisp ./tests/mop.pure.lisp ./tests/merge-lambdas.lisp ./tests/info.impure.lisp ./tests/colorize-windows-console.lisp ./tests/unicode-misc.pure.lisp ./tests/alien.impure.lisp ./tests/mop-24.impure.lisp ./tests/clos.pure.lisp ./tests/win32-foreign-stack-unwind.impure.lisp ./tests/list.pure.lisp ./tests/mop.impure.lisp ./tests/macro-policy-test.lisp ./tests/character.pure.lisp ./tests/assembler.pure.lisp ./tests/defstruct.impure.lisp ./tests/smoke.impure.lisp ./tests/package-locks.impure.lisp ./tests/hash.pure.lisp ./tests/bug-332.lisp ./tests/loop.impure.lisp ./tests/foreign-stack-alignment.impure.lisp ./tests/kill-non-lisp-thread.impure.lisp ./tests/fopcompiler.impure-cload.lisp ./tests/vector.impure.lisp ./tests/compiler-output-test.lisp ./tests/stress-gc.lisp ./tests/interface.pure.lisp ./tests/mop-16.impure-cload.lisp ./tests/dump.impure-cload.lisp ./tests/profile.impure.lisp ./tests/mop-19.impure-cload.lisp ./tests/vm.before-xc.lisp ./tests/run-program.impure.lisp ./tests/mop-12.impure-cload.lisp ./tests/clos-interrupts.impure.lisp ./tests/simd-pack.impure.lisp ./tests/debug.impure.lisp ./tests/filesys.pure.lisp ./tests/timer.impure.lisp ./tests/type.before-xc.lisp ./tests/compiler-3.impure-cload.lisp ./tests/mop-27.impure.lisp ./tests/unwind-to-frame-and-call.impure.lisp ./tests/enc-jpn.impure.lisp ./tests/unicode-normalization.impure.lisp ./tests/coerce.pure.lisp ./tests/mop-25.impure.lisp ./tests/threads.pure.lisp ./tests/clos.impure-cload.lisp ./tests/gray-streams.impure.lisp ./tests/stream.pure.lisp ./tests/mop-6.impure-cload.lisp ./tests/load.pure.lisp ./tests/with-compilation-unit.impure.lisp ./tests/deftype.impure.lisp ./tests/float.pure.lisp ./tests/full-eval.impure.lisp ./tests/custom-userinit.lisp ./tests/map-tests.impure.lisp ./tests/setf.impure.lisp ./tests/vector.pure.lisp ./tests/stream.impure.lisp ./tests/pprint.impure.lisp ./tests/mop-30.impure.lisp ./tests/type.after-xc.lisp ./tests/swap-lispobjs.impure.lisp ./tests/mop-18.impure-cload.lisp ./tests/octets.pure.lisp ./tests/loop.pure.lisp ./tests/type.impure.lisp ./tests/time.pure.lisp ./tests/arith.impure.lisp ./tests/mop-21.impure-cload.lisp ./tests/raw-slots-interleaved.impure.lisp ./tests/gc.impure.lisp ./tests/mop-15.impure-cload.lisp ./tests/circ-tree-test.lisp ./tests/enc-cn.impure.lisp ./tests/exhaust.impure.lisp ./tests/bivalent-stream.impure.lisp ./tests/derived-function-type-casts.lisp ./tests/mop-7.impure-cload.lisp ./tests/load.impure.lisp ./tests/mop-2.impure-cload.lisp ./tests/mop-4.impure-cload.lisp ./tests/hash.impure.lisp ./tests/static-alloc.impure.lisp ./tests/undefined-classoid-bug-2.lisp ./tests/defglobal.impure-cload.lisp ./tests/walk.impure.lisp ./tests/custom-sysinit.lisp ./tests/condition.impure.lisp ./tests/clos-1.impure.lisp ./tests/bug-503095-2.lisp ./tests/compiler.impure-cload.lisp ./tests/eval.impure.lisp ./tests/step.impure.lisp ./tests/unicode-breaking.impure.lisp ./tests/compiler.impure.lisp ./tests/compound-cons.impure.lisp ./tests/array.pure.lisp ./tests/mop-17.impure-cload.lisp ./tests/serve-event.pure.lisp ./tests/symbol.pure.lisp ./tests/stream.impure-cload.lisp ./tests/properties.impure.lisp ./tests/print.impure.lisp ./tests/compiler-test-util.lisp ./tests/mop-5.impure-cload.lisp ./tests/macroexpand.impure.lisp ./tests/defglobal.impure.lisp ./tests/mop-13.impure-cload.lisp ./tests/compare-and-swap.impure.lisp ./tests/string.pure.lisp ./tests/clos-cache.impure.lisp ./tests/mop-8.impure-cload.lisp ./tests/symbol.impure.lisp ./tests/arith.pure.lisp ./tests/gcd.pure.lisp ./tests/external-format.impure.lisp ./make-genesis-2.lisp ./make-host-1.lisp ./make-host-2.lisp ./contrib/sb-rotate-byte/rotate-byte-tests.lisp ./contrib/sb-rotate-byte/ppc-vm.lisp ./contrib/sb-rotate-byte/x86-vm.lisp ./contrib/sb-rotate-byte/arm-vm.lisp ./contrib/sb-rotate-byte/rotate-byte.lisp ./contrib/sb-rotate-byte/compiler.lisp ./contrib/sb-rotate-byte/package.lisp ./contrib/sb-rotate-byte/x86-64-vm.lisp ./contrib/sb-aclrepl/toplevel.lisp ./contrib/sb-aclrepl/tests.lisp ./contrib/sb-aclrepl/repl.lisp ./contrib/sb-aclrepl/debug.lisp ./contrib/sb-aclrepl/inspect.lisp ./contrib/sb-bsd-sockets/inet.lisp ./contrib/sb-bsd-sockets/win32-sockets.lisp ./contrib/sb-bsd-sockets/inet6.lisp ./contrib/sb-bsd-sockets/constants.lisp ./contrib/sb-bsd-sockets/name-service.lisp ./contrib/sb-bsd-sockets/local.lisp ./contrib/sb-bsd-sockets/defpackage.lisp ./contrib/sb-bsd-sockets/tests.lisp ./contrib/sb-bsd-sockets/sockopt.lisp ./contrib/sb-bsd-sockets/win32-lib.lisp ./contrib/sb-bsd-sockets/misc.lisp ./contrib/sb-bsd-sockets/win32-constants.lisp ./contrib/sb-bsd-sockets/util.lisp ./contrib/sb-bsd-sockets/sockets.lisp ./contrib/sb-bsd-sockets/protocol.lisp ./contrib/sb-bsd-sockets/inet4.lisp ./contrib/code-extras.lisp ./contrib/sb-cltl2/macroexpand.lisp ./contrib/sb-cltl2/defpackage.lisp ./contrib/sb-cltl2/env.lisp ./contrib/sb-cltl2/tests.lisp ./contrib/sb-cltl2/compiler-let.lisp ./contrib/sb-cover/cover.lisp ./contrib/sb-cover/tests.lisp ./contrib/sb-cover/test-data-1.lisp ./contrib/sb-cover/test-data-2.lisp ./contrib/sb-cover/test-data-3.lisp ./contrib/compiler-extras.lisp ./contrib/sb-md5/md5.lisp ./contrib/sb-md5/md5-tests.lisp ./contrib/sb-executable/sb-executable.lisp ./contrib/sb-posix/macros.lisp ./contrib/sb-posix/constants.lisp ./contrib/sb-posix/defpackage.lisp ./contrib/sb-posix/interface.lisp ./contrib/sb-posix/designator.lisp ./contrib/sb-posix/posix-tests.lisp ./contrib/sb-rt/rt.lisp ./contrib/sb-grovel/def-to-lisp.lisp ./contrib/sb-grovel/defpackage.lisp ./contrib/sb-grovel/foreign-glue.lisp ./contrib/sb-grovel/example-constants.lisp ./contrib/sb-gmp/gmp.lisp ./contrib/sb-gmp/bench.lisp ./contrib/sb-gmp/tests.lisp ./contrib/sb-gmp/tests-stress.lisp ./contrib/sb-mpfr/tests.lisp ./contrib/sb-mpfr/mpfr.lisp ./contrib/sb-introspect/introspect.lisp ./contrib/sb-introspect/load-test.lisp ./contrib/sb-introspect/xref-test-data.lisp ./contrib/sb-introspect/test-driver.lisp ./contrib/sb-introspect/test.lisp ./contrib/sb-introspect/xref-test.lisp ./contrib/sb-queue/package.lisp ./contrib/stale-symbols.lisp ./contrib/sb-simple-streams/simple-stream-tests.lisp ./contrib/sb-simple-streams/socket.lisp ./contrib/sb-simple-streams/strategy.lisp ./contrib/sb-simple-streams/null.lisp ./contrib/sb-simple-streams/classes.lisp ./contrib/sb-simple-streams/internal.lisp ./contrib/sb-simple-streams/file.lisp ./contrib/sb-simple-streams/direct.lisp ./contrib/sb-simple-streams/iodefs.lisp ./contrib/sb-simple-streams/impl.lisp ./contrib/sb-simple-streams/string.lisp ./contrib/sb-simple-streams/package.lisp ./contrib/sb-simple-streams/fndb.lisp ./contrib/sb-simple-streams/terminal.lisp ./contrib/asdf/asdf.lisp ./contrib/asdf/uiop.lisp ./contrib/asdf-stub.lisp ./contrib/sb-sprof/sb-sprof.lisp ./contrib/sb-sprof/test.lisp ./contrib/sb-concurrency/mailbox.lisp ./contrib/sb-concurrency/tests/test-gate.lisp ./contrib/sb-concurrency/tests/test-mailbox.lisp ./contrib/sb-concurrency/tests/package.lisp ./contrib/sb-concurrency/tests/test-queue.lisp ./contrib/sb-concurrency/tests/test-frlock.lisp ./contrib/sb-concurrency/tests/test-utils.lisp ./contrib/sb-concurrency/gate.lisp ./contrib/sb-concurrency/queue.lisp ./contrib/sb-concurrency/package.lisp ./contrib/sb-concurrency/frlock.lisp ./make-target-2-load.lisp ./src/assembly/sparc/assem-rtns.lisp ./src/assembly/sparc/alloc.lisp ./src/assembly/sparc/arith.lisp ./src/assembly/sparc/support.lisp ./src/assembly/sparc/array.lisp ./src/assembly/x86/assem-rtns.lisp ./src/assembly/x86/alloc.lisp ./src/assembly/x86/bit-bash.lisp ./src/assembly/x86/arith.lisp ./src/assembly/x86/support.lisp ./src/assembly/x86/array.lisp ./src/assembly/alpha/assem-rtns.lisp ./src/assembly/alpha/alloc.lisp ./src/assembly/alpha/arith.lisp ./src/assembly/alpha/support.lisp ./src/assembly/alpha/array.lisp ./src/assembly/mips/assem-rtns.lisp ./src/assembly/mips/alloc.lisp ./src/assembly/mips/arith.lisp ./src/assembly/mips/support.lisp ./src/assembly/mips/array.lisp ./src/assembly/assemfile.lisp ./src/assembly/arm/assem-rtns.lisp ./src/assembly/arm/alloc.lisp ./src/assembly/arm/arith.lisp ./src/assembly/arm/support.lisp ./src/assembly/arm/array.lisp ./src/assembly/ppc/assem-rtns.lisp ./src/assembly/ppc/alloc.lisp ./src/assembly/ppc/arith.lisp ./src/assembly/ppc/support.lisp ./src/assembly/ppc/array.lisp ./src/assembly/hppa/assem-rtns.lisp ./src/assembly/hppa/alloc.lisp ./src/assembly/hppa/arith.lisp ./src/assembly/hppa/support.lisp ./src/assembly/hppa/array.lisp ./src/assembly/x86-64/assem-rtns.lisp ./src/assembly/x86-64/alloc.lisp ./src/assembly/x86-64/bit-bash.lisp ./src/assembly/x86-64/arith.lisp ./src/assembly/x86-64/support.lisp ./src/assembly/x86-64/array.lisp ./src/compiler/fopcompile.lisp ./src/compiler/ir1opt.lisp ./src/compiler/compiler-deftype.lisp ./src/compiler/early-assem.lisp ./src/compiler/xref.lisp ./src/compiler/sparc/values.lisp ./src/compiler/sparc/c-call.lisp ./src/compiler/sparc/target-insts.lisp ./src/compiler/sparc/float.lisp ./src/compiler/sparc/macros.lisp ./src/compiler/sparc/alloc.lisp ./src/compiler/sparc/sap.lisp ./src/compiler/sparc/backend-parms.lisp ./src/compiler/sparc/pred.lisp ./src/compiler/sparc/system.lisp ./src/compiler/sparc/subprim.lisp ./src/compiler/sparc/show.lisp ./src/compiler/sparc/sanctify.lisp ./src/compiler/sparc/nlx.lisp ./src/compiler/sparc/type-vops.lisp ./src/compiler/sparc/move.lisp ./src/compiler/sparc/cell.lisp ./src/compiler/sparc/parms.lisp ./src/compiler/sparc/debug.lisp ./src/compiler/sparc/call.lisp ./src/compiler/sparc/char.lisp ./src/compiler/sparc/arith.lisp ./src/compiler/sparc/static-fn.lisp ./src/compiler/sparc/memory.lisp ./src/compiler/sparc/array.lisp ./src/compiler/sparc/insts.lisp ./src/compiler/sparc/vm.lisp ./src/compiler/dce.lisp ./src/compiler/disassem.lisp ./src/compiler/x86/values.lisp ./src/compiler/x86/c-call.lisp ./src/compiler/x86/target-insts.lisp ./src/compiler/x86/float.lisp ./src/compiler/x86/macros.lisp ./src/compiler/x86/alloc.lisp ./src/compiler/x86/sap.lisp ./src/compiler/x86/backend-parms.lisp ./src/compiler/x86/pred.lisp ./src/compiler/x86/system.lisp ./src/compiler/x86/subprim.lisp ./src/compiler/x86/show.lisp ./src/compiler/x86/nlx.lisp ./src/compiler/x86/type-vops.lisp ./src/compiler/x86/move.lisp ./src/compiler/x86/cell.lisp ./src/compiler/x86/parms.lisp ./src/compiler/x86/debug.lisp ./src/compiler/x86/call.lisp ./src/compiler/x86/char.lisp ./src/compiler/x86/arith.lisp ./src/compiler/x86/static-fn.lisp ./src/compiler/x86/memory.lisp ./src/compiler/x86/array.lisp ./src/compiler/x86/insts.lisp ./src/compiler/x86/vm.lisp ./src/compiler/info-functions.lisp ./src/compiler/constraint.lisp ./src/compiler/macros.lisp ./src/compiler/compiler-error.lisp ./src/compiler/parse-lambda-list.lisp ./src/compiler/meta-vmdef.lisp ./src/compiler/dyncount.lisp ./src/compiler/loop.lisp ./src/compiler/lexenv.lisp ./src/compiler/copyprop.lisp ./src/compiler/assem.lisp ./src/compiler/typetran.lisp ./src/compiler/fixup-type.lisp ./src/compiler/fixup.lisp ./src/compiler/ltv.lisp ./src/compiler/debug-dump.lisp ./src/compiler/defconstant.lisp ./src/compiler/stack.lisp ./src/compiler/late-proclaim.lisp ./src/compiler/target-disassem.lisp ./src/compiler/early-globaldb.lisp ./src/compiler/target-main.lisp ./src/compiler/entry.lisp ./src/compiler/gtn.lisp ./src/compiler/dfo.lisp ./src/compiler/target-dump.lisp ./src/compiler/ctype.lisp ./src/compiler/ir1util.lisp ./src/compiler/info-vector.lisp ./src/compiler/represent.lisp ./src/compiler/main.lisp ./src/compiler/bit-util.lisp ./src/compiler/ir2opt.lisp ./src/compiler/ir1-translators.lisp ./src/compiler/alpha/values.lisp ./src/compiler/alpha/c-call.lisp ./src/compiler/alpha/target-insts.lisp ./src/compiler/alpha/float.lisp ./src/compiler/alpha/macros.lisp ./src/compiler/alpha/alloc.lisp ./src/compiler/alpha/sap.lisp ./src/compiler/alpha/backend-parms.lisp ./src/compiler/alpha/pred.lisp ./src/compiler/alpha/system.lisp ./src/compiler/alpha/subprim.lisp ./src/compiler/alpha/show.lisp ./src/compiler/alpha/sanctify.lisp ./src/compiler/alpha/nlx.lisp ./src/compiler/alpha/type-vops.lisp ./src/compiler/alpha/move.lisp ./src/compiler/alpha/cell.lisp ./src/compiler/alpha/parms.lisp ./src/compiler/alpha/debug.lisp ./src/compiler/alpha/call.lisp ./src/compiler/alpha/char.lisp ./src/compiler/alpha/arith.lisp ./src/compiler/alpha/static-fn.lisp ./src/compiler/alpha/memory.lisp ./src/compiler/alpha/array.lisp ./src/compiler/alpha/insts.lisp ./src/compiler/alpha/vm.lisp ./src/compiler/early-c.lisp ./src/compiler/mips/values.lisp ./src/compiler/mips/c-call.lisp ./src/compiler/mips/target-insts.lisp ./src/compiler/mips/float.lisp ./src/compiler/mips/macros.lisp ./src/compiler/mips/alloc.lisp ./src/compiler/mips/sap.lisp ./src/compiler/mips/backend-parms.lisp ./src/compiler/mips/pred.lisp ./src/compiler/mips/system.lisp ./src/compiler/mips/subprim.lisp ./src/compiler/mips/show.lisp ./src/compiler/mips/sanctify.lisp ./src/compiler/mips/nlx.lisp ./src/compiler/mips/type-vops.lisp ./src/compiler/mips/move.lisp ./src/compiler/mips/cell.lisp ./src/compiler/mips/parms.lisp ./src/compiler/mips/debug.lisp ./src/compiler/mips/call.lisp ./src/compiler/mips/char.lisp ./src/compiler/mips/arith.lisp ./src/compiler/mips/static-fn.lisp ./src/compiler/mips/memory.lisp ./src/compiler/mips/array.lisp ./src/compiler/mips/insts.lisp ./src/compiler/mips/vm.lisp ./src/compiler/srctran.lisp ./src/compiler/vop.lisp ./src/compiler/proclaim.lisp ./src/compiler/policies.lisp ./src/compiler/life.lisp ./src/compiler/pack.lisp ./src/compiler/fun-info-funs.lisp ./src/compiler/early-backend.lisp ./src/compiler/ltn.lisp ./src/compiler/ir2tran.lisp ./src/compiler/checkgen.lisp ./src/compiler/arm/values.lisp ./src/compiler/arm/c-call.lisp ./src/compiler/arm/target-insts.lisp ./src/compiler/arm/float.lisp ./src/compiler/arm/macros.lisp ./src/compiler/arm/alloc.lisp ./src/compiler/arm/sap.lisp ./src/compiler/arm/backend-parms.lisp ./src/compiler/arm/pred.lisp ./src/compiler/arm/system.lisp ./src/compiler/arm/subprim.lisp ./src/compiler/arm/show.lisp ./src/compiler/arm/sanctify.lisp ./src/compiler/arm/nlx.lisp ./src/compiler/arm/type-vops.lisp ./src/compiler/arm/move.lisp ./src/compiler/arm/cell.lisp ./src/compiler/arm/parms.lisp ./src/compiler/arm/debug.lisp ./src/compiler/arm/call.lisp ./src/compiler/arm/char.lisp ./src/compiler/arm/arith.lisp ./src/compiler/arm/static-fn.lisp ./src/compiler/arm/memory.lisp ./src/compiler/arm/array.lisp ./src/compiler/arm/insts.lisp ./src/compiler/arm/vm.lisp ./src/compiler/saptran.lisp ./src/compiler/bitops-derive-type.lisp ./src/compiler/ppc/values.lisp ./src/compiler/ppc/c-call.lisp ./src/compiler/ppc/target-insts.lisp ./src/compiler/ppc/float.lisp ./src/compiler/ppc/macros.lisp ./src/compiler/ppc/alloc.lisp ./src/compiler/ppc/sap.lisp ./src/compiler/ppc/backend-parms.lisp ./src/compiler/ppc/pred.lisp ./src/compiler/ppc/system.lisp ./src/compiler/ppc/subprim.lisp ./src/compiler/ppc/show.lisp ./src/compiler/ppc/sanctify.lisp ./src/compiler/ppc/nlx.lisp ./src/compiler/ppc/type-vops.lisp ./src/compiler/ppc/move.lisp ./src/compiler/ppc/cell.lisp ./src/compiler/ppc/parms.lisp ./src/compiler/ppc/debug.lisp ./src/compiler/ppc/call.lisp ./src/compiler/ppc/char.lisp ./src/compiler/ppc/arith.lisp ./src/compiler/ppc/static-fn.lisp ./src/compiler/ppc/memory.lisp ./src/compiler/ppc/array.lisp ./src/compiler/ppc/insts.lisp ./src/compiler/ppc/vm.lisp ./src/compiler/backend.lisp ./src/compiler/debug.lisp ./src/compiler/policy.lisp ./src/compiler/locall.lisp ./src/compiler/hppa/values.lisp ./src/compiler/hppa/c-call.lisp ./src/compiler/hppa/target-insts.lisp ./src/compiler/hppa/float.lisp ./src/compiler/hppa/macros.lisp ./src/compiler/hppa/alloc.lisp ./src/compiler/hppa/sap.lisp ./src/compiler/hppa/backend-parms.lisp ./src/compiler/hppa/pred.lisp ./src/compiler/hppa/system.lisp ./src/compiler/hppa/subprim.lisp ./src/compiler/hppa/show.lisp ./src/compiler/hppa/sanctify.lisp ./src/compiler/hppa/nlx.lisp ./src/compiler/hppa/type-vops.lisp ./src/compiler/hppa/move.lisp ./src/compiler/hppa/cell.lisp ./src/compiler/hppa/parms.lisp ./src/compiler/hppa/debug.lisp ./src/compiler/hppa/call.lisp ./src/compiler/hppa/char.lisp ./src/compiler/hppa/arith.lisp ./src/compiler/hppa/static-fn.lisp ./src/compiler/hppa/memory.lisp ./src/compiler/hppa/array.lisp ./src/compiler/hppa/insts.lisp ./src/compiler/hppa/vm.lisp ./src/compiler/pack-iterative.lisp ./src/compiler/ir1tran.lisp ./src/compiler/node.lisp ./src/compiler/late-vmdef.lisp ./src/compiler/pseudo-vops.lisp ./src/compiler/globaldb.lisp ./src/compiler/generic/vm-type.lisp ./src/compiler/generic/early-vm.lisp ./src/compiler/generic/vm-tran.lisp ./src/compiler/generic/interr.lisp ./src/compiler/generic/early-type-vops.lisp ./src/compiler/generic/primtype.lisp ./src/compiler/generic/vm-fndb.lisp ./src/compiler/generic/early-objdef.lisp ./src/compiler/generic/objdef.lisp ./src/compiler/generic/vm-ir2tran.lisp ./src/compiler/generic/genesis.lisp ./src/compiler/generic/vm-macs.lisp ./src/compiler/generic/vm-typetran.lisp ./src/compiler/generic/parms.lisp ./src/compiler/generic/late-objdef.lisp ./src/compiler/generic/core.lisp ./src/compiler/generic/type-error.lisp ./src/compiler/generic/target-core.lisp ./src/compiler/generic/vm-array.lisp ./src/compiler/generic/late-nlx.lisp ./src/compiler/generic/late-type-vops.lisp ./src/compiler/generic/utils.lisp ./src/compiler/array-tran.lisp ./src/compiler/float-tran.lisp ./src/compiler/deftype.lisp ./src/compiler/control.lisp ./src/compiler/aliencomp.lisp ./src/compiler/x86-64/values.lisp ./src/compiler/x86-64/c-call.lisp ./src/compiler/x86-64/target-insts.lisp ./src/compiler/x86-64/float.lisp ./src/compiler/x86-64/simd-pack.lisp ./src/compiler/x86-64/macros.lisp ./src/compiler/x86-64/alloc.lisp ./src/compiler/x86-64/sap.lisp ./src/compiler/x86-64/backend-parms.lisp ./src/compiler/x86-64/pred.lisp ./src/compiler/x86-64/system.lisp ./src/compiler/x86-64/subprim.lisp ./src/compiler/x86-64/show.lisp ./src/compiler/x86-64/nlx.lisp ./src/compiler/x86-64/type-vops.lisp ./src/compiler/x86-64/move.lisp ./src/compiler/x86-64/cell.lisp ./src/compiler/x86-64/parms.lisp ./src/compiler/x86-64/debug.lisp ./src/compiler/x86-64/call.lisp ./src/compiler/x86-64/char.lisp ./src/compiler/x86-64/arith.lisp ./src/compiler/x86-64/static-fn.lisp ./src/compiler/x86-64/memory.lisp ./src/compiler/x86-64/array.lisp ./src/compiler/x86-64/insts.lisp ./src/compiler/x86-64/vm.lisp ./src/compiler/fndb.lisp ./src/compiler/seqtran.lisp ./src/compiler/integer-tran.lisp ./src/compiler/early-aliencomp.lisp ./src/compiler/constantp.lisp ./src/compiler/vmdef.lisp ./src/compiler/knownfun.lisp ./src/compiler/tn.lisp ./src/compiler/sset.lisp ./src/compiler/ir1tran-lambda.lisp ./src/compiler/ir1final.lisp ./src/compiler/late-macros.lisp ./src/compiler/dump.lisp ./src/compiler/ir1report.lisp ./src/compiler/physenvanal.lisp ./src/compiler/codegen.lisp ./src/cold/shebang.lisp ./src/cold/compile-cold-sbcl.lisp ./src/cold/snapshot.lisp ./src/cold/warm.lisp ./src/cold/slam.lisp ./src/cold/defun-load-or-cload-xcompiler.lisp ./src/cold/with-stuff.lisp ./src/cold/chill.lisp ./src/cold/rename-package-carefully.lisp ./src/cold/ansify.lisp ./src/cold/read-from-file.lisp ./src/cold/shared.lisp ./src/cold/set-up-cold-packages.lisp ./src/pcl/low.lisp ./src/pcl/combin.lisp ./src/pcl/vector.lisp ./src/pcl/fsc.lisp ./src/pcl/documentation.lisp ./src/pcl/macros.lisp ./src/pcl/fixup.lisp ./src/pcl/precom1.lisp ./src/pcl/wrapper.lisp ./src/pcl/slots-boot.lisp ./src/pcl/defs.lisp ./src/pcl/time.lisp ./src/pcl/dlisp.lisp ./src/pcl/boot.lisp ./src/pcl/ctor.lisp ./src/pcl/ctypes.lisp ./src/pcl/slots.lisp ./src/pcl/env.lisp ./src/pcl/dfun.lisp ./src/pcl/methods.lisp ./src/pcl/defcombin.lisp ./src/pcl/std-class.lisp ./src/pcl/gray-streams-class.lisp ./src/pcl/cpl.lisp ./src/pcl/compiler-support.lisp ./src/pcl/slot-name.lisp ./src/pcl/sequence.lisp ./src/pcl/braid.lisp ./src/pcl/generic-functions.lisp ./src/pcl/precom2.lisp ./src/pcl/print-object.lisp ./src/pcl/fngen.lisp ./src/pcl/walk.lisp ./src/pcl/cache.lisp ./src/pcl/gray-streams.lisp ./src/pcl/defclass.lisp ./src/pcl/early-low.lisp ./src/pcl/dlisp3.lisp ./src/pcl/init.lisp ./src/code/describe-policy.lisp ./src/code/sort.lisp ./src/code/defmacro.lisp ./src/code/sc-offset.lisp ./src/code/target-load.lisp ./src/code/mips-vm.lisp ./src/code/parse-defmacro-errors.lisp ./src/code/ppc-vm.lisp ./src/code/alien-type.lisp ./src/code/x86-vm.lisp ./src/code/final.lisp ./src/code/cold-error.lisp ./src/code/float.lisp ./src/code/kernel.lisp ./src/code/target-stream.lisp ./src/code/early-alieneval.lisp ./src/code/purify.lisp ./src/code/cl-specials.lisp ./src/code/arm-vm.lisp ./src/code/alpha-vm.lisp ./src/code/sharpm.lisp ./src/code/linkage-table.lisp ./src/code/macros.lisp ./src/code/type-init.lisp ./src/code/cross-early.lisp ./src/code/thread.lisp ./src/code/filesys.lisp ./src/code/alloc.lisp ./src/code/numbers.lisp ./src/code/bit-bash.lisp ./src/code/early-raw-slots.lisp ./src/code/defsetfs.lisp ./src/code/cross-thread.lisp ./src/code/dyncount.lisp ./src/code/loop.lisp ./src/code/target-sap.lisp ./src/code/uncross.lisp ./src/code/pathname.lisp ./src/code/eval.lisp ./src/code/host-c-call.lisp ./src/code/target-type.lisp ./src/code/bsd-os.lisp ./src/code/hpux-os.lisp ./src/code/typedefs.lisp ./src/code/target-error.lisp ./src/code/late-defbangmethod.lisp ./src/code/android-os.lisp ./src/code/fdefinition.lisp ./src/code/deadline.lisp ./src/code/hash-table.lisp ./src/code/cross-condition.lisp ./src/code/early-defstructs.lisp ./src/code/unportable-float.lisp ./src/code/primordial-extensions.lisp ./src/code/win32-pathname.lisp ./src/code/interr.lisp ./src/code/target-format.lisp ./src/code/error.lisp ./src/code/octets.lisp ./src/code/force-delayed-defbangconstants.lisp ./src/code/unix.lisp ./src/code/barrier.lisp ./src/code/pred.lisp ./src/code/class.lisp ./src/code/fd-stream.lisp ./src/code/specializable-array.lisp ./src/code/sxhash.lisp ./src/code/gc.lisp ./src/code/target-defstruct.lisp ./src/code/time.lisp ./src/code/misc-aliens.lisp ./src/code/defbangtype.lisp ./src/code/late-deftypes-for-target.lisp ./src/code/unix-pathname.lisp ./src/code/target-unicode.lisp ./src/code/stream.lisp ./src/code/force-delayed-defbangmethods.lisp ./src/code/restart.lisp ./src/code/force-delayed-defbangmacros.lisp ./src/code/toplevel.lisp ./src/code/funutils.lisp ./src/code/save.lisp ./src/code/target-exception.lisp ./src/code/bignum-random.lisp ./src/code/macroexpand.lisp ./src/code/describe.lisp ./src/code/unix-foreign-load.lisp ./src/code/defbangconstant.lisp ./src/code/defpackage.lisp ./src/code/host-alieneval.lisp ./src/code/cross-io.lisp ./src/code/pprint.lisp ./src/code/mipsstrops.lisp ./src/code/hppa-vm.lisp ./src/code/cross-boole.lisp ./src/code/signal.lisp ./src/code/debug-int.lisp ./src/code/setf-funs.lisp ./src/code/string.lisp ./src/code/early-type.lisp ./src/code/warm-lib.lisp ./src/code/linux-os.lisp ./src/code/error-error.lisp ./src/code/debug-var-io.lisp ./src/code/early-fasl.lisp ./src/code/host-pprint.lisp ./src/code/target-sxhash.lisp ./src/code/package.lisp ./src/code/exhaust.lisp ./src/code/defbangstruct.lisp ./src/code/target-package.lisp ./src/code/target-thread.lisp ./src/code/irrat.lisp ./src/code/defstruct.lisp ./src/code/cross-float.lisp ./src/code/late-condition.lisp ./src/code/early-thread.lisp ./src/code/early-format.lisp ./src/code/late-extensions.lisp ./src/code/misc.lisp ./src/code/show.lisp ./src/code/sparc-vm.lisp ./src/code/load.lisp ./src/code/cas.lisp ./src/code/defboot.lisp ./src/code/early-step.lisp ./src/code/late-type.lisp ./src/code/fop.lisp ./src/code/sysmacs.lisp ./src/code/class-init.lisp ./src/code/serve-event.lisp ./src/code/early-array.lisp ./src/code/x86-64-vm.lisp ./src/code/globals.lisp ./src/code/timer.lisp ./src/code/parse-defmacro.lisp ./src/code/common-os.lisp ./src/code/cross-sap.lisp ./src/code/debug-info.lisp ./src/code/readtable.lisp ./src/code/cross-modular.lisp ./src/code/module.lisp ./src/code/cross-type.lisp ./src/code/target-alieneval.lisp ./src/code/win32.lisp ./src/code/seq.lisp ./src/code/debug.lisp ./src/code/huffman.lisp ./src/code/cross-byte.lisp ./src/code/foreign.lisp ./src/code/bignum.lisp ./src/code/reader.lisp ./src/code/cold-init-helper-macros.lisp ./src/code/early-constants.lisp ./src/code/cross-char.lisp ./src/code/early-cl.lisp ./src/code/xset.lisp ./src/code/step.lisp ./src/code/full-eval.lisp ./src/code/target-char.lisp ./src/code/run-program.lisp ./src/code/function-names.lisp ./src/code/early-source-location.lisp ./src/code/cross-make-load-form.lisp ./src/code/foreign-load.lisp ./src/code/early-defbangmethod.lisp ./src/code/early-time.lisp ./src/code/stubs.lisp ./src/code/target-random.lisp ./src/code/external-formats/enc-cn.lisp ./src/code/external-formats/enc-basic.lisp ./src/code/external-formats/enc-cyr.lisp ./src/code/external-formats/enc-utf.lisp ./src/code/external-formats/enc-mac.lisp ./src/code/external-formats/enc-ucs.lisp ./src/code/external-formats/enc-cn-tbl.lisp ./src/code/external-formats/enc-iso.lisp ./src/code/external-formats/enc-ebcdic.lisp ./src/code/external-formats/enc-dos.lisp ./src/code/external-formats/enc-jpn-tbl.lisp ./src/code/external-formats/mb-util.lisp ./src/code/external-formats/enc-jpn.lisp ./src/code/external-formats/enc-win.lisp ./src/code/sunos-os.lisp ./src/code/condition.lisp ./src/code/target-misc.lisp ./src/code/parse-body.lisp ./src/code/source-location.lisp ./src/code/room.lisp ./src/code/early-package.lisp ./src/code/char.lisp ./src/code/format-time.lisp ./src/code/print.lisp ./src/code/setf.lisp ./src/code/early-pprint.lisp ./src/code/ansi-stream.lisp ./src/code/target-allocate.lisp ./src/code/symbol.lisp ./src/code/profile.lisp ./src/code/coerce.lisp ./src/code/target-signal.lisp ./src/code/primordial-type.lisp ./src/code/query.lisp ./src/code/defbangmacro.lisp ./src/code/target-c-call.lisp ./src/code/float-trap.lisp ./src/code/target-defbangmethod.lisp ./src/code/early-print.lisp ./src/code/backq.lisp ./src/code/early-float.lisp ./src/code/target-pathname.lisp ./src/code/ntrace.lisp ./src/code/osf1-os.lisp ./src/code/destructuring-bind.lisp ./src/code/win32-os.lisp ./src/code/early-full-eval.lisp ./src/code/win32-foreign-load.lisp ./src/code/inspect.lisp ./src/code/late-format.lisp ./src/code/type-class.lisp ./src/code/array.lisp ./src/code/list.lisp ./src/code/target-hash-table.lisp ./src/code/cross-misc.lisp ./src/code/typep.lisp ./src/code/deftypes-for-target.lisp ./src/code/random.lisp ./src/code/warm-mswin.lisp ./src/code/late-cas.lisp ./src/code/cold-init.lisp ./src/code/force-delayed-defbangstructs.lisp ./src/code/early-extensions.lisp ./src/code/weak.lisp ./src/code/early-impl.lisp ./src/code/target-extensions.lisp ./debian/fasl-version.lisp ./debian/install-clc.lisp ./.pc/powerpc-concurrency-fix.patch/contrib/sb-concurrency/frlock.lisp ./common-lisp-exports.lisp-expr ./build-order.lisp-expr ./src/code/early-defstruct-args.lisp-expr ./package-data-list.lisp-expr ./base-target-features.lisp-expr ./.pc/set-debian-version.patch/version.lisp-expr ./version.lisp-expr ./local-target-features.lisp-expr ./tools-for-build/arm-softfp-test.c ./tools-for-build/determine-endianness.c ./tools-for-build/os-provides-dlopen-test.c ./tools-for-build/os-provides-poll-test.c ./tools-for-build/where-is-mcontext.c ./tools-for-build/os-provides-suseconds-t-test.c ./tools-for-build/os-provides-dladdr-test.c ./tools-for-build/os-provides-getprotoby-r-test.c ./tools-for-build/grovel-headers.c ./tools-for-build/os-provides-putwc-test.c ./tools-for-build/os-provides-blksize-t-test.c ./tests/stack-alignment-offset.c ./tests/win32-stack-unwind.c ./tests/swap-lispobjs.c ./tests/alloca.c ./tests/kill-non-lisp-thread.c ./src/runtime/gencgc.c ./src/runtime/regnames.c ./src/runtime/sparc-arch.c ./src/runtime/pthreads_win32.c ./src/runtime/run-program.c ./src/runtime/ppc-bsd-os.c ./src/runtime/x86-64-sunos-os.c ./src/runtime/ppc-linux-os.c ./src/runtime/alpha-arch.c ./src/runtime/ppc-arch.c ./src/runtime/arm-linux-os.c ./src/runtime/x86-64-bsd-os.c ./src/runtime/interr.c ./src/runtime/util.c ./src/runtime/alpha-osf1-os.c ./src/runtime/hppa-linux-os.c ./src/runtime/print.c ./src/runtime/x86-64-darwin-os.c ./src/runtime/wrap.c ./src/runtime/time.c ./src/runtime/bsd-os.c ./src/runtime/android-os.c ./src/runtime/x86-arch.c ./src/runtime/osf1-os.c ./src/runtime/hppa-arch.c ./src/runtime/x86-darwin-os.c ./src/runtime/cheneygc.c ./src/runtime/vars.c ./src/runtime/safepoint.c ./src/runtime/x86-64-linux-os.c ./src/runtime/search.c ./src/runtime/sparc-sunos-os.c ./src/runtime/os-common.c ./src/runtime/trymap.c ./src/runtime/x86-sunos-os.c ./src/runtime/interrupt.c ./src/runtime/breakpoint.c ./src/runtime/x86-bsd-os.c ./src/runtime/mips-arch.c ./src/runtime/hppa-hpux-os.c ./src/runtime/linux-os.c ./src/runtime/parse.c ./src/runtime/coreparse.c ./src/runtime/x86-64-arch.c ./src/runtime/purify.c ./src/runtime/x86-win32-os.c ./src/runtime/validate.c ./src/runtime/funcall.c ./src/runtime/ppc-darwin-os.c ./src/runtime/undefineds.c ./src/runtime/alloc.c ./src/runtime/hpux-os.c ./src/runtime/darwin-os.c ./src/runtime/x86-64-win32-os.c ./src/runtime/save.c ./src/runtime/alpha-linux-os.c ./src/runtime/sunos-os.c ./src/runtime/x86-linux-os.c ./src/runtime/win32-os.c ./src/runtime/arm-arch.c ./src/runtime/monitor.c ./src/runtime/sparc-bsd-os.c ./src/runtime/sparc-linux-os.c ./src/runtime/mips-linux-os.c ./src/runtime/dynbind.c ./src/runtime/globals.c ./src/runtime/gc-common.c ./src/runtime/runtime.c ./src/runtime/arm-android-os.c ./src/runtime/largefile.c ./src/runtime/backtrace.c ./src/runtime/pthread-futex.c ./src/runtime/thread.c ./.pc/kfreebsd-pthread-futex.patch/src/runtime/pthread-futex.c ./.pc/kfreebsd-pthread-futex.patch/src/runtime/thread.c ./src/runtime/darwin-os.h ./src/runtime/interrupt.h ./src/runtime/parse.h ./src/runtime/arm-android-os.h ./src/runtime/gc.h ./src/runtime/ppc-darwin-os.h ./src/runtime/arm-lispregs.h ./src/runtime/hppa-linux-os.h ./src/runtime/gencgc.h ./src/runtime/alpha-arch.h ./src/runtime/alpha-osf1-os.h ./src/runtime/breakpoint.h ./src/runtime/mips-lispregs.h ./src/runtime/print.h ./src/runtime/android-os.h ./src/runtime/sparc-arch.h ./src/runtime/cheneygc-internal.h ./src/runtime/undefineds.h ./src/runtime/x86-64-arch.h ./src/runtime/alpha-lispregs.h ./src/runtime/hpux-os.h ./src/runtime/arm-linux-os.h ./src/runtime/sunos-os.h ./src/runtime/gc-internal.h ./src/runtime/globals.h ./src/runtime/win32-thread-private-events.h ./src/runtime/ppc-bsd-os.h ./src/runtime/validate.h ./src/runtime/x86-64-darwin-os.h ./src/runtime/cpputil.h ./src/runtime/sparc-sunos-os.h ./src/runtime/linux-os.h ./src/runtime/osf1-os.h ./src/runtime/alloc.h ./src/runtime/os.h ./src/runtime/interr.h ./src/runtime/sparc-linux-os.h ./src/runtime/mips-linux-os.h ./src/runtime/search.h ./src/runtime/ppc-arch.h ./src/runtime/x86-64-win32-os.h ./src/runtime/purify.h ./src/runtime/dynbind.h ./src/runtime/x86-64-lispregs.h ./src/runtime/fixnump.h ./src/runtime/mips-arch.h ./src/runtime/bsd-os.h ./src/runtime/ppc-lispregs.h ./src/runtime/x86-linux-os.h ./src/runtime/util.h ./src/runtime/win32-os.h ./src/runtime/vars.h ./src/runtime/save.h ./src/runtime/monitor.h ./src/runtime/hppa-lispregs.h ./src/runtime/pseudo-atomic.h ./src/runtime/x86-lispregs.h ./src/runtime/core.h ./src/runtime/arm-arch.h ./src/runtime/runtime.h ./src/runtime/arch.h ./src/runtime/x86-64-sunos-os.h ./src/runtime/sparc-bsd-os.h ./src/runtime/sparc-lispregs.h ./src/runtime/alpha-linux-os.h ./src/runtime/wrap.h ./src/runtime/ppc-linux-os.h ./src/runtime/gencgc-internal.h ./src/runtime/x86-win32-os.h ./src/runtime/thread.h ./src/runtime/x86-darwin-os.h ./src/runtime/hppa-arch.h ./src/runtime/hppa-hpux-os.h ./src/runtime/lispregs.h ./src/runtime/gencgc-alloc-region.h ./src/runtime/x86-sunos-os.h ./src/runtime/x86-bsd-os.h ./src/runtime/x86-64-linux-os.h ./src/runtime/x86-arch.h ./src/runtime/runtime-options.h ./src/runtime/x86-64-bsd-os.h ./src/runtime/pthreads_win32.h ./src/runtime/target-arch.h ./src/runtime/target-lispregs.h ./src/runtime/target-arch-os.h ./src/runtime/target-os.h ./contrib/sb-rotate-byte/sb-rotate-byte.asd ./contrib/sb-aclrepl/sb-aclrepl.asd ./contrib/sb-bsd-sockets/sb-bsd-sockets.asd ./contrib/sb-cltl2/sb-cltl2.asd ./contrib/sb-cover/sb-cover.asd ./contrib/sb-md5/sb-md5.asd ./contrib/sb-posix/sb-posix.asd ./contrib/sb-rt/sb-rt.asd ./contrib/sb-grovel/sb-grovel.asd ./contrib/sb-gmp/sb-gmp.asd ./contrib/sb-mpfr/sb-mpfr.asd ./contrib/sb-introspect/sb-introspect.asd ./contrib/sb-queue/sb-queue.asd ./contrib/sb-simple-streams/sb-simple-streams.asd ./contrib/sb-concurrency/sb-concurrency.asd
/$scratchfilename=/tmp/canonicalize-whitespace-1.3922.tmp
//entering make-host-1.sh
//building cross-compiler, and doing first genesis
This is SBCL 1.2.11.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* 
5
* target features *SHEBANG-FEATURES*=(:OS-PROVIDES-POLL
                                      :OS-PROVIDES-GETPROTOBY-R
                                      :OS-PROVIDES-SUSECONDS-T
                                      :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN
                                      :LITTLE-ENDIAN
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :PRECISE-ARG-COUNT-ERROR
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :STACK-ALLOCATABLE-VECTORS
                                      :STACK-ALLOCATABLE-FIXED-OBJECTS
                                      :STACK-ALLOCATABLE-LISTS
                                      :SYMBOL-INFO-VOPS :MULTIPLY-HIGH-VOPS
                                      :ASH-RIGHT-VOPS :ARM-VFPV2 :ARM-VFP
                                      :ALIEN-CALLBACKS :LINKAGE-TABLE :GENCGC
                                      :LARGEFILE :LINUX :ELF :UNIX :ARM
                                      :IEEE-FLOATING-POINT
                                      :PACKAGE-LOCAL-NICKNAMES
                                      :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE
                                      :SB-PACKAGE-LOCKS :SB-LDB :SB-TEST
                                      :SB-DOC :SBCL :COMMON-LISP :ANSI-CL
                                      :SB-CORE-COMPRESSION
                                      :SB-XREF-FOR-INTERNALS :SB-AFTER-XC-CORE)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-host/"
* 
T
* 
T
* 
T
* 
T
* 
creating directory: /«PKGBUILDDIR»/obj/
creating directory: /«PKGBUILDDIR»/obj/from-host/
creating directory: /«PKGBUILDDIR»/obj/from-host/src/
creating directory: /«PKGBUILDDIR»/obj/from-host/src/code/
; compiling file "/«PKGBUILDDIR»/src/code/early-source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN SOURCE-LOCATION ...)
; compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...)
; compiling (DEFMACRO WITH-SOURCE-LOCATION ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-source-location.fasl-tmp written
; compilation finished in 0:00:00.056
; compiling file "/«PKGBUILDDIR»/src/code/cross-early.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (DECLARATION TRULY-DYNAMIC-EXTENT))
; compiling (DECLAIM (DECLARATION FREEZE-TYPE ...))
; compiling (DECLAIM (DECLARATION INHIBIT-WARNINGS))

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-early.fasl-tmp written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/src/code/show.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFMACRO /SHOW ...)
; compiling (DEFMACRO /NOSHOW ...)
; compiling (DEFMACRO /XHOW ...)
; compiling (DEFMACRO /NOXHOW ...)
; compiling (DEFMACRO /SHOW0 ...)
; compiling (DEFMACRO /NOSHOW0 ...)
; compiling (DEFMACRO /PRIMITIVE-PRINT ...)
; compiling (DEFMACRO /HEXSTR ...)
; compiling (DEFMACRO /NOHEXSTR ...)
; compiling (/SHOW0 "done with show.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/show.fasl-tmp written
; compilation finished in 0:00:00.210
; compiling file "/«PKGBUILDDIR»/src/code/early-constants.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-constants.fasl-tmp written
; compilation finished in 0:00:00.031
; compiling file "/«PKGBUILDDIR»/src/code/backq.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (/SHOW0 "entering backq.lisp")
; compiling (DEFSTRUCT (COMMA # ...) ...)
; compiling (DEFCONSTANT !+COMMA-DOT+ ...)
; compiling (DEFCONSTANT !+COMMA-AT+ ...)
; compiling (DEFUN UNQUOTE-NSPLICE ...)
; compiling (DEFUN UNQUOTE-SPLICE ...)
; compiling (DEFUN UNQUOTE* ...)
; compiling (DEFUN UNQUOTE*-SPLICE ...)
; compiling (DECLAIM (INLINE COMMA-CONSTRUCTOR ...))
; compiling (DEFUN COMMA-CONSTRUCTOR ...)
; compiling (DEFUN COMMA-SPLICING-P ...)
; compiling (DECLAIM (INLINE SINGLETON-P))
; compiling (DEFUN SINGLETON-P ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (SETF (GET # ...) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *BACKQUOTE-DEPTH* ...)
; compiling (DEFVAR *BQ-ERROR* ...)
; compiling (/SHOW0 "backq.lisp 50")
; compiling (DEFUN BACKQUOTE-CHARMACRO ...)
; compiling (/SHOW0 "backq.lisp 64")
; compiling (DEFUN COMMA-CHARMACRO ...)
; compiling (/SHOW0 "backq.lisp 83")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (INLINE QQ-SUBFORM-SPLICING-P))
; compiling (DEFUN QQ-SUBFORM-SPLICING-P ...)
; compiling (DEFUN EXPAND-QUASIQUOTE ...)
; compiling (DEFINE-COMPILER-MACRO QUASIQUOTE ...)
; compiling (DEFMACRO QUASIQUOTE ...)
; compiling (DEFUN QQ-TEMPLATE-TO-SEXPR ...)
; compiling (/SHOW0 "backq.lisp 139")
; compiling (DEFUN QQ-FOLD-SUFFIX ...)
; compiling (DEFUN QQ-MAP-TEMPLATE-TO-LIST ...)
; compiling (DEFUN QQ-TEMPLATE-1 ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN !BACKQ-COLD-INIT ...)
; compiling (!BACKQ-COLD-INIT)
; compiling (DEFUN SIMPLE-READER-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/backq.lisp
; in: DEFUN SIMPLE-READER-ERROR
;     (SB!INT:BUG "READER-ERROR on stream ~S: ~?" STREAM SB!IMPL::FORMAT-STRING
;      SB!IMPL::FORMAT-ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: BUG
; 
; compilation unit finished
;   Undefined function:
;     BUG
;   caught 1 STYLE-WARNING condition
; compiling (/SHOW0 "done with backq.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/backq.fasl-tmp written
; compilation finished in 0:00:01.109
; compiling file "/«PKGBUILDDIR»/src/code/defsetfs.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (SB!INT:/SHOW0 "entering defsetfs.lisp")
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (DEFSETF SLOT ...)
; compiling (DEFSETF DEREF ...)
; compiling (DEFSETF %HEAP-ALIEN ...)
; compiling (IN-PACKAGE "SB!BIGNUM")
; compiling (DEFSETF %BIGNUM-REF ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFSETF WORD-SAP-REF ...)
; compiling (IN-PACKAGE "SB!DI")
; compiling (DEFSETF STACK-REF ...)
; compiling (DEFSETF DEBUG-VAR-VALUE ...)
; compiling (DEFSETF DEBUG-VAR-VALUE ...)
; compiling (DEFSETF BREAKPOINT-INFO ...)
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFSETF %INSTANCE-REF ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; compiling (DEFSETF %INSTANCE-LAYOUT ...)
; compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN %CXR-SETF-EXPANDER ...)
; compiling (DEFSETF %ARRAY-DIMENSION ...)
; compiling (DEFSETF %VECTOR-RAW-BITS ...)
; compiling (DEFSETF SAP-REF-8 ...)
; compiling (DEFSETF SIGNED-SAP-REF-8 ...)
; compiling (DEFSETF SAP-REF-16 ...)
; compiling (DEFSETF SIGNED-SAP-REF-16 ...)
; compiling (DEFSETF SAP-REF-32 ...)
; compiling (DEFSETF SIGNED-SAP-REF-32 ...)
; compiling (DEFSETF SAP-REF-64 ...)
; compiling (DEFSETF SIGNED-SAP-REF-64 ...)
; compiling (DEFSETF SAP-REF-WORD ...)
; compiling (DEFSETF SIGNED-SAP-REF-WORD ...)
; compiling (DEFSETF SAP-REF-SAP ...)
; compiling (DEFSETF SAP-REF-LISPOBJ ...)
; compiling (DEFSETF SAP-REF-SINGLE ...)
; compiling (DEFSETF SAP-REF-DOUBLE ...)
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFSETF CODE-HEADER-REF ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFSETF CONTEXT-REGISTER ...)
; compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...)

; file: /«PKGBUILDDIR»/src/code/defsetfs.lisp
; in: DEFUN SB!IMPL::%CXR-SETF-EXPANDER
;     (SB-XC:GENSYM "LIST")
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GENSYM
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GENSYM
;   caught 1 STYLE-WARNING condition
; compiling (/SHOW0 "leaving defsetfs.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/defsetfs.fasl-tmp written
; compilation finished in 0:00:00.182
; compiling file "/«PKGBUILDDIR»/src/code/cold-init-helper-macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFVAR *!COLD-INIT-FORMS*)
; compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...)
; compiling (DEFMACRO !COLD-INIT-FORMS ...)
; compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...)
; compiling (DEF !DEFGLOBAL ...)
; compiling (DEF !DEFPARAMETER ...)
; compiling (DEF !DEFVAR ...)
; compiling (DEFUN !DELAYED-COLD-SET-SYMBOL-VALUE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cold-init-helper-macros.fasl-tmp written
; compilation finished in 0:00:00.224
; compiling file "/«PKGBUILDDIR»/src/code/cross-misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO TRULY-THE ...)
; compiling (DEFMACRO NAMED-LAMBDA ...)
; compiling (DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (DEFMACRO WITH-LOCKED-HASH-TABLE ...)
; compiling (DEFMACRO WITH-LOCKED-SYSTEM-TABLE ...)
; compiling (DEFMACRO DEFGLOBAL ...)
; compiling (DEFTYPE ANSI-STREAM ...)
; compiling (DEFTYPE INSTANCE ...)
; compiling (DEFTYPE FUNCALLABLE-INSTANCE ...)
; compiling (DEFUN %INSTANCEP ...)
; compiling (DEFUN FUNCALLABLE-INSTANCE-P ...)
; compiling (DEFUN ARRAY-HEADER-P ...)
; compiling (DEFVAR SB-XC:*GENSYM-COUNTER* ...)
; compiling (DEFUN SB-XC:GENSYM ...)
; compiling (DEFUN SIMPLE-ARRAY-NIL-P ...)
; compiling (DEFUN %NEGATE ...)
; compiling (DEFUN %SINGLE-FLOAT ...)
; compiling (DEFUN %DOUBLE-FLOAT ...)
; compiling (DEFUN %LDB ...)
; compiling (DEFUN %DPB ...)
; compiling (DEFUN %WITH-ARRAY-DATA ...)
; compiling (DEFUN %WITH-ARRAY-DATA/FP ...)
; compiling (DEFUN SIGNED-BYTE-32-P ...)
; compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...)
; compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...)
; compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...)
; compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; compiling (DECLAIM (DECLARATION ENABLE-PACKAGE-LOCKS ...))

; file: /«PKGBUILDDIR»/src/code/cross-misc.lisp
; in: DEFUN %DPB
;     (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN)
; 
; caught STYLE-WARNING:
;   undefined function: BYTE

; in: DEFUN %LDB
;     (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN)
; 
; caught STYLE-WARNING:
;   undefined function: BYTE

; in: DEFUN %DPB
;     (SB-XC:DPB SB!IMPL::NEWBYTE (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER)
; 
; caught STYLE-WARNING:
;   undefined function: DPB

; in: DEFUN %LDB
;     (SB-XC:LDB (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER)
; 
; caught STYLE-WARNING:
;   undefined function: LDB
; 
; compilation unit finished
;   Undefined functions:
;     BYTE DPB LDB
;   caught 4 STYLE-WARNING conditions
; compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-misc.fasl-tmp written
; compilation finished in 0:00:00.567
; compiling file "/«PKGBUILDDIR»/src/code/cross-char.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (LET (#) ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-char.fasl-tmp written
; compilation finished in 0:00:00.077
; compiling file "/«PKGBUILDDIR»/src/code/cross-byte.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFUN BYTE ...)
; compiling (DEFUN BYTE-SIZE ...)
; compiling (DEFUN BYTE-POSITION ...)
; compiling (DEFUN UNCROSS-BYTE ...)
; compiling (DEFUN LDB ...)
; compiling (DEFUN LDB-TEST ...)
; compiling (DEFUN DPB ...)
; compiling (DEFUN MASK-FIELD ...)
; compiling (DEFUN DEPOSIT-FIELD ...)
; compiling (DEFINE-SETF-EXPANDER LDB ...)

; file: /«PKGBUILDDIR»/src/code/cross-byte.lisp
; in: DEFINE-SETF-EXPANDER MASK-FIELD
;     (SB!INT:BUG "SETF SB!XC:MASK-FIELD too hairy!")
; 
; caught STYLE-WARNING:
;   undefined function: BUG

; in: DEFINE-SETF-EXPANDER LDB
;     (SB!INT:BUG "SETF SB!XC:LDB too hairy!")
; 
; caught STYLE-WARNING:
;   undefined function: BUG
; 
; compilation unit finished
;   Undefined function:
;     BUG
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-SETF-EXPANDER MASK-FIELD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-byte.fasl-tmp written
; compilation finished in 0:00:00.160
; compiling file "/«PKGBUILDDIR»/src/code/cross-boole.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFCONSTANT BOOLE-CLR ...)
; compiling (DEFCONSTANT BOOLE-SET ...)
; compiling (DEFCONSTANT BOOLE-1 ...)
; compiling (DEFCONSTANT BOOLE-2 ...)
; compiling (DEFCONSTANT BOOLE-C1 ...)
; compiling (DEFCONSTANT BOOLE-C2 ...)
; compiling (DEFCONSTANT BOOLE-AND ...)
; compiling (DEFCONSTANT BOOLE-IOR ...)
; compiling (DEFCONSTANT BOOLE-XOR ...)
; compiling (DEFCONSTANT BOOLE-EQV ...)
; compiling (DEFCONSTANT BOOLE-NAND ...)
; compiling (DEFCONSTANT BOOLE-NOR ...)
; compiling (DEFCONSTANT BOOLE-ANDC1 ...)
; compiling (DEFCONSTANT BOOLE-ANDC2 ...)
; compiling (DEFCONSTANT BOOLE-ORC1 ...)
; compiling (DEFCONSTANT BOOLE-ORC2 ...)
; compiling (DEFUN BOOLE ...)
; compiling (DEFUN UNCROSS-BOOLE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-boole.fasl-tmp written
; compilation finished in 0:00:00.054
; compiling file "/«PKGBUILDDIR»/src/code/cross-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...)
; compiling (DEFUN MASK-AND-SIGN-EXTEND ...)
; compiling (DEFUN SINGLE-FLOAT-BITS ...)
; compiling (DEFUN DOUBLE-FLOAT-BITS ...)
; compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...)
; compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...)
; compiling (DEFUN KLUDGE-OPAQUE-EXPT ...)
; compiling (DEFUN MAKE-SINGLE-FLOAT ...)
; compiling (DEFUN MAKE-DOUBLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-float.fasl-tmp written
; compilation finished in 0:00:00.361
; compiling file "/«PKGBUILDDIR»/src/code/cross-io.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFMACRO WITH-FAST-READ-BYTE ...)
; compiling (DEFUN FORM-TRACKING-STREAM-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-io.fasl-tmp written
; compilation finished in 0:00:00.079
; compiling file "/«PKGBUILDDIR»/src/code/cross-sap.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!SYS")
; compiling (DEFSTRUCT (SYSTEM-AREA-POINTER # ...) ...)
; compiling (DEFUN SAP+ ...)
; compiling (DEFUN SAP< ...)
; compiling (DEFUN SAP<= ...)
; compiling (DEFUN SAP= ...)
; compiling (DEFUN SAP>= ...)
; compiling (DEFUN SAP> ...)
; compiling (DEFUN SAP- ...)
; compiling (DEFUN SAP-REF-STUB ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-8 ...)
; compiling (DEFUN #:SETTER-STUB-116 ...)
; compiling (DEFSETF SAP-REF-8 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-16 ...)
; compiling (DEFUN #:SETTER-STUB-117 ...)
; compiling (DEFSETF SAP-REF-16 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-32 ...)
; compiling (DEFUN #:SETTER-STUB-118 ...)
; compiling (DEFSETF SAP-REF-32 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-64 ...)
; compiling (DEFUN #:SETTER-STUB-119 ...)
; compiling (DEFSETF SAP-REF-64 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-SAP ...)
; compiling (DEFUN #:SETTER-STUB-120 ...)
; compiling (DEFSETF SAP-REF-SAP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-WORD ...)
; compiling (DEFUN #:SETTER-STUB-121 ...)
; compiling (DEFSETF SAP-REF-WORD ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-SINGLE ...)
; compiling (DEFUN #:SETTER-STUB-122 ...)
; compiling (DEFSETF SAP-REF-SINGLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-DOUBLE ...)
; compiling (DEFUN #:SETTER-STUB-123 ...)
; compiling (DEFSETF SAP-REF-DOUBLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-8 ...)
; compiling (DEFUN #:SETTER-STUB-124 ...)
; compiling (DEFSETF SIGNED-SAP-REF-8 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-16 ...)
; compiling (DEFUN #:SETTER-STUB-125 ...)
; compiling (DEFSETF SIGNED-SAP-REF-16 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-32 ...)
; compiling (DEFUN #:SETTER-STUB-126 ...)
; compiling (DEFSETF SIGNED-SAP-REF-32 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-64 ...)
; compiling (DEFUN #:SETTER-STUB-127 ...)
; compiling (DEFSETF SIGNED-SAP-REF-64 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-WORD ...)
; compiling (DEFUN #:SETTER-STUB-128 ...)

; file: /«PKGBUILDDIR»/src/code/cross-sap.lisp
; in: DEFUN SAP+
;     (SB!SYS::MAKE-SAP :INT (+ (SB!SYS:SAP-INT SB!SYS::SAP) SB!SYS::OFFSET))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SAP

;     (DEFUN SB!SYS:SAP+ (SB!SYS::SAP SB!SYS::OFFSET)
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!SYS::SAP)
;                (TYPE SB!SYS:SAP-INT SB!SYS::OFFSET))
;       (SB!SYS::MAKE-SAP :INT (+ (SB!SYS:SAP-INT SB!SYS::SAP) SB!SYS::OFFSET)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G41 'SB!SYS:SAP-INT)
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT

;     (TYPE SB!SYS:SAP-INT SB!SYS::OFFSET)
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT
; 
; compilation unit finished
;   Undefined type:
;     SAP-INT
;   Undefined function:
;     MAKE-SAP
;   caught 3 STYLE-WARNING conditions
; compiling (DEFSETF SIGNED-SAP-REF-WORD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-sap.fasl-tmp written
; compilation finished in 0:00:00.797
; compiling file "/«PKGBUILDDIR»/src/code/cross-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEFUN MAKE-MUTEX ...)
; compiling (DEFMACRO WITH-MUTEX ...)
; compiling (DEFMACRO WITH-RECURSIVE-LOCK ...)
; compiling (DEFMACRO BARRIER ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-thread.fasl-tmp written
; compilation finished in 0:00:00.141
; compiling file "/«PKGBUILDDIR»/src/code/cross-make-load-form.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")

; file: /«PKGBUILDDIR»/src/code/cross-make-load-form.lisp
; in: DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS
;     (SB!INT:BUG "MAKE-LOAD-FORM-SAVING-SLOTS ~
;                   called with :SLOT-NAMES argument during cross-compilation")
; 
; caught STYLE-WARNING:
;   undefined function: BUG
; 
; compilation unit finished
;   Undefined function:
;     BUG
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-make-load-form.fasl-tmp written
; compilation finished in 0:00:00.057
; compiling file "/«PKGBUILDDIR»/src/code/cross-condition.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...)
; compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...)
; compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...)
; compiling (DEFINE-CONDITION REFERENCE-CONDITION ...)
; compiling (DEFINE-CONDITION TYPE-WARNING ...)
; compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION BUG ...)
; compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...)
; compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...)
; compiling (DEFTYPE PACKAGE-LOCK-VIOLATION ...)
; compiling (DEFTYPE PACKAGE-LOCKED-ERROR ...)
; compiling (DEFTYPE SYMBOL-PACKAGE-LOCKED-ERROR ...)
; compiling (DEFINE-CONDITION SB!C:INLINING-DEPENDENCY-FAILURE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-condition.fasl-tmp written
; compilation finished in 0:00:00.252
; compiling file "/«PKGBUILDDIR»/src/code/uncross.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (LET (#) ...)
; compiling (DEFMACRO !UNCROSS-FORMAT-CONTROL ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/uncross.fasl-tmp written
; compilation finished in 0:00:00.091
; compiling file "/«PKGBUILDDIR»/src/code/primordial-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!DEFGLOBAL *TYPE-SYSTEM-INITIALIZED* ...)
; compiling (DEFGLOBAL *WILD-TYPE* ...)
; compiling (DEFGLOBAL *EMPTY-TYPE* ...)
; compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...)
; compiling (DEFGLOBAL *INSTANCE-TYPE* ...)
; compiling (DEFGLOBAL *FUNCALLABLE-INSTANCE-TYPE* ...)
; compiling (DEFGLOBAL *EXTENDED-SEQUENCE-TYPE* ...)
; compiling (DEFGLOBAL *UNIVERSAL-FUN-TYPE* ...)
; compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; /«PKGBUILDDIR»/obj/from-host/src/code/primordial-type.fasl-tmp written
; compilation finished in 0:00:00.022
; compiling file "/«PKGBUILDDIR»/src/code/early-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO DEF!METHOD ...)
; compiling (DEFMACRO SB-XC:DEFMETHOD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-defbangmethod.fasl-tmp written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/src/code/defbangtype.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO DEF!TYPE ...)
; compiling (/SHOW "binding *DELAYED-DEF!TYPES*")
; compiling (DEFVAR *DELAYED-DEF!TYPES* ...)
; compiling (/SHOW "done binding *DELAYED-DEF!TYPES*")
; compiling (DEFUN FORCE-DELAYED-DEF!TYPES ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangtype.fasl-tmp written
; compilation finished in 0:00:00.054
; compiling file "/«PKGBUILDDIR»/src/code/defbangmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFSTRUCT DELAYED-DEF!MACRO ...)
; compiling (DEFVAR *DELAYED-DEF!MACROS* ...)
; compiling (DEFMACRO DEF!MACRO ...)

; file: /«PKGBUILDDIR»/src/code/defbangmacro.lisp
; in: DEFSTRUCT DELAYED-DEF!MACRO
;     (SB!INT:MISSING-ARG)
; 
; caught STYLE-WARNING:
;   undefined function: MISSING-ARG

;     (SB!INT:SANE-PACKAGE)
; 
; caught STYLE-WARNING:
;   undefined function: SANE-PACKAGE
; 
; compilation unit finished
;   Undefined functions:
;     MISSING-ARG SANE-PACKAGE
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN FORCE-DELAYED-DEF!MACROS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangmacro.fasl-tmp written
; compilation finished in 0:00:00.228
; compiling file "/«PKGBUILDDIR»/src/code/defbangconstant.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO DEF!CONSTANT ...)
; compiling (/SHOW "binding *DELAYED-DEF!CONSTANTS*")
; compiling (DEFVAR *DELAYED-DEF!CONSTANTS* ...)
; compiling (/SHOW "done binding *DELAYED-DEF!CONSTANTS*")
; compiling (DEFUN FORCE-DELAYED-DEF!CONSTANTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangconstant.fasl-tmp written
; compilation finished in 0:00:00.080
; compiling file "/«PKGBUILDDIR»/src/code/primordial-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...)
; compiling (DEFUN FROB-DO-BODY ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-GENSYM-LIST ...)
; compiling (DECLAIM (TYPE PACKAGE ...))
; compiling (DEFGLOBAL *CL-PACKAGE* ...)
; compiling (DEFGLOBAL *KEYWORD-PACKAGE* ...)
; compiling (DEFUN SYMBOLICATE ...)
; compiling (DEFUN GENSYMIFY ...)
; compiling (DEFUN KEYWORDICATE ...)

; file: /«PKGBUILDDIR»/src/code/primordial-extensions.lisp
; in: DEFUN SANE-PACKAGE
;     (LET ((SB!IMPL::REALLY-PACKAGE (FIND-PACKAGE :CL-USER)))
;       (SETF *PACKAGE* SB!IMPL::REALLY-PACKAGE)
;       (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!IMPL::MAYBE-PACKAGE :EXPECTED-TYPE
;              '(AND PACKAGE (SATISFIES PACKAGE-NAME)) :FORMAT-CONTROL
;              "~@<~S can't be a ~A: ~2I~_~S has been reset to ~S.~:>"
;              :FORMAT-ARGUMENTS
;              (LIST '*PACKAGE*
;                    (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE)
;                        "deleted package"
;                        (TYPE-OF SB!IMPL::MAYBE-PACKAGE))
;                    '*PACKAGE* SB!IMPL::REALLY-PACKAGE)))
; 
; note: deleting unreachable code

;     (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE)
;         "deleted package"
;         (TYPE-OF SB!IMPL::MAYBE-PACKAGE))
; ==>
;   "deleted package"
; 
; note: deleting unreachable code

;     (TYPE-OF SB!IMPL::MAYBE-PACKAGE)
; ==>
;   SB!IMPL::MAYBE-PACKAGE
; 
; note: deleting unreachable code

;     '*PACKAGE*
; 
; note: deleting unreachable code

;     (LET ((SB!IMPL::REALLY-PACKAGE (FIND-PACKAGE :CL-USER)))
;       (SETF *PACKAGE* SB!IMPL::REALLY-PACKAGE)
;       (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!IMPL::MAYBE-PACKAGE :EXPECTED-TYPE
;              '(AND PACKAGE (SATISFIES PACKAGE-NAME)) :FORMAT-CONTROL
;              "~@<~S can't be a ~A: ~2I~_~S has been reset to ~S.~:>"
;              :FORMAT-ARGUMENTS
;              (LIST '*PACKAGE*
;                    (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE)
;                        "deleted package"
;                        (TYPE-OF SB!IMPL::MAYBE-PACKAGE))
;                    '*PACKAGE* SB!IMPL::REALLY-PACKAGE)))
; 
; note: deleting unreachable code
; compiling (DEFUN SANE-PACKAGE ...)
; compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...)
; compiling (DEF!MACRO STRING-DISPATCH ...)
; compiling (DEFMACRO DEFENUM ...)
; compiling (DEFMACRO DEFCONSTANT-EQX ...)
; compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...)
; compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...)
; compiling (DEFUN PROPER-LIST-P ...)
; compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...)

; file: /«PKGBUILDDIR»/src/code/primordial-extensions.lisp
; in: DEFUN MAKE-GENSYM-LIST
;     (DEFUN SB!INT:MAKE-GENSYM-LIST (SB!IMPL::N &OPTIONAL SB!IMPL::NAME)
;       (WHEN (EQ T SB!IMPL::NAME) (BREAK))
;       (IF SB!IMPL::NAME
;           (LOOP SB!IMPL::REPEAT SB!IMPL::N
;                 SB!INT:COLLECT (SB-XC:GENSYM (STRING SB!IMPL::NAME)))
;           (LOOP SB!IMPL::REPEAT SB!IMPL::N
;                 SB!INT:COLLECT (SB-XC:GENSYM))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND 
; --> IF COND THE PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G88 'SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined type: INDEX

; in:
;      DECLAIM (FTYPE (FUNCTION (INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL))
;           MAKE-GENSYM-LIST)
;     (DECLAIM
;      (FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL))
;       SB!INT:MAKE-GENSYM-LIST))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL))
;      SB!INT:MAKE-GENSYM-LIST)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: INDEX

; in: DEFUN FROB-DO-BODY
;     (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY
; 
; compilation unit finished
;   Undefined type:
;     INDEX
;   Undefined function:
;     PARSE-BODY
;   caught 3 STYLE-WARNING conditions
;   printed 5 notes
; compiling (DEF!MACRO DO-ANONYMOUS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/primordial-extensions.fasl-tmp written
; compilation finished in 0:00:00.829
creating directory: /«PKGBUILDDIR»/obj/from-host/src/compiler/
; compiling file "/«PKGBUILDDIR»/src/compiler/early-globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT INFO-NUMBER-BITS ...)
; compiling (DEFTYPE INFO-NUMBER ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (!DEFGLOBAL *INFO-TYPES* ...)
; compiling (DEF INFO ...)
; compiling (DEF (SETF INFO) ...)

; file: /«PKGBUILDDIR»/src/compiler/early-globaldb.lisp
; in: DEF (SETF INFO)
;     (SB!C::DEF (SETF SB!INT:INFO)
;      (SB!C::NEW-VALUE SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;      (LET* ((SB-XC:*GENSYM-COUNTER* SB-XC:*GENSYM-COUNTER*)
;             (SB!C::TIN (SB!C::META-INFO-NUMBER SB!C::META-INFO))
;             (SB!C::TYPE-SPEC (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO))
;             (SB!C::CHECK (WHEN # #)))
;        (SB!INT:WITH-UNIQUE-NAMES (SB!C::NEW)
;          (SB!INT:QUASIQUOTE
;           (LET #
;             #)))))
; --> DEFINE-COMPILER-MACRO PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO 
; --> SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* LET* BLOCK IF LET AND IF AND 
; --> THE 
; ==>
;   (SB!C::META-INFO SB!C::CATEGORY SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO

; in: DEF INFO
;     (SB!C::DEF SB!INT:INFO (SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;      (SB!INT:QUASIQUOTE
;       (SB!EXT:TRULY-THE (VALUES #S(SB!IMPL::COMMA :EXPR # :KIND 0) BOOLEAN)
;                         (SB!C::GET-INFO-VALUE
;                          #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;                          #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> DEFINE-COMPILER-MACRO PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO 
; --> SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* LET* BLOCK IF LET AND IF AND 
; --> THE 
; ==>
;   (SB!C::META-INFO SB!C::CATEGORY SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO

; in:
;      MACROLET ((DEF (NAME LAMBDA-LIST FORM) (ASSERT (AND # #))
;             (QUASIQUOTE
;              (DEFINE-COMPILER-MACRO #
;                  #
;                #))))
;     (MACROLET ((SB!C::DEF (SB!C::NAME SB!C::LAMBDA-LIST SB!KERNEL:FORM)
;                  (ASSERT (AND # #))
;                  (SB!INT:QUASIQUOTE
;                   (DEFINE-COMPILER-MACRO #
;                       #
;                     #))))
;       (SB!C::DEF SB!INT:INFO (SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;        (SB!INT:QUASIQUOTE
;         (SB!EXT:TRULY-THE (VALUES # BOOLEAN) (SB!C::GET-INFO-VALUE # #))))
;       (SB!C::DEF (SETF SB!INT:INFO)
;        (SB!C::NEW-VALUE SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;        (LET* ((SB-XC:*GENSYM-COUNTER* SB-XC:*GENSYM-COUNTER*)
;               (SB!C::TIN #)
;               (SB!C::TYPE-SPEC #)
;               (SB!C::CHECK #))
;          (SB!INT:WITH-UNIQUE-NAMES (SB!C::NEW)
;            (SB!INT:QUASIQUOTE #))))
;       (SB!C::DEF SB!INT:CLEAR-INFO (SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;        (SB!INT:QUASIQUOTE
;         (SB!C::CLEAR-INFO-VALUES #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;          '(#)))))
; --> PROGN FUNCTION LET* LET* BLOCK IF LET AND IF AND THE 
; ==>
;   (SB!C::META-INFO SB!C::CATEGORY SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO

; 
; caught STYLE-WARNING:
;   1 more use of undefined function META-INFO


; file: /«PKGBUILDDIR»/src/compiler/early-globaldb.lisp
; in: DEF CLEAR-INFO
;     (SB!INT:QUASIQUOTE
;      (SB!C::CLEAR-INFO-VALUES #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;       '(#S(SB!IMPL::COMMA
;            :EXPR (SB!C::META-INFO-NUMBER SB!C::META-INFO)
;            :KIND 0))))
; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| 
; ==>
;   (SB!C::META-INFO-NUMBER SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-NUMBER

; in: DEF (SETF INFO)
;     (SB!C::META-INFO-NUMBER SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-NUMBER

; in: DEF INFO
;     (SB!INT:QUASIQUOTE
;      (SB!EXT:TRULY-THE
;       (VALUES
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
;           :KIND 0)
;        BOOLEAN)
;       (SB!C::GET-INFO-VALUE #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-NUMBER SB!C::META-INFO)
;           :KIND 0))))
; --> SB!IMPL::|List| SB!IMPL::|List| 
; ==>
;   (SB!C::META-INFO-NUMBER SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-NUMBER

; in: DEF (SETF INFO)
;     (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-TYPE-SPEC

; in: DEF INFO
;     (SB!INT:QUASIQUOTE
;      (SB!EXT:TRULY-THE
;       (VALUES
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
;           :KIND 0)
;        BOOLEAN)
;       (SB!C::GET-INFO-VALUE #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-NUMBER SB!C::META-INFO)
;           :KIND 0))))
; --> SB!IMPL::|List| SB!IMPL::|List*| 
; ==>
;   (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-TYPE-SPEC

; in: DEF (SETF INFO)
;     (SB!C::META-INFO-VALIDATE-FUNCTION SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-VALIDATE-FUNCTION
; 
; compilation unit finished
;   Undefined functions:
;     META-INFO META-INFO-NUMBER META-INFO-TYPE-SPEC META-INFO-VALIDATE-FUNCTION
;   caught 10 STYLE-WARNING conditions
; compiling (DEF CLEAR-INFO ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-globaldb.fasl-tmp written
; compilation finished in 0:00:00.319
; compiling file "/«PKGBUILDDIR»/src/code/function-names.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (!DEFVAR *VALID-FUN-NAMES-ALIST* ...)
; compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...)
; compiling (DEFUN VALID-FUNCTION-NAME-P ...)
; compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...)
; compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...)
; compiling (DEFUN MACRO-FUNCTION-NAME ...)
; compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...)

; file: /«PKGBUILDDIR»/src/code/function-names.lisp
; in: SETF (GET '%DEFINE-FUN-NAME-SYNTAX :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::COLD-CONS (SB!FASL::COLD-INTERN SYMBOL) SB!IMPL::CHECKER)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-CONS

;     (SB!FASL::COLD-INTERN SYMBOL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-INTERN

;     (SB!FASL::TARGET-PUSH
;      (SB!FASL::COLD-CONS (SB!FASL::COLD-INTERN SYMBOL) SB!IMPL::CHECKER)
;      'SB!IMPL::*VALID-FUN-NAMES-ALIST*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::TARGET-PUSH
; 
; compilation unit finished
;   Undefined functions:
;     SB!FASL::COLD-CONS SB!FASL::COLD-INTERN SB!FASL::TARGET-PUSH
;   caught 3 STYLE-WARNING conditions
; compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/function-names.fasl-tmp written
; compilation finished in 0:00:00.163
creating directory: /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...)
; compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...)
; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...)
; compiling (DEF!CONSTANT TLS-SIZE ...)
; compiling (DEF!CONSTANT MAX-INTERRUPTS ...)
; compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...)
; compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/parms.fasl-tmp written
; compilation finished in 0:00:00.619
creating directory: /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT N-WORD-BITS ...)
; compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...)
; compiling (DEF!CONSTANT N-BYTE-BITS ...)
; compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-INPUT-DENORMAL-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...)
; compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...)
; compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...)
; compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...)
; compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...)
; compiling (DEF!CONSTANT FLOAT-FAST-BIT ...)
; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-START ...)
; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-END ...)
; compiling (DEF!CONSTANT READ-ONLY-SPACE-START ...)
; compiling (DEF!CONSTANT READ-ONLY-SPACE-END ...)
; compiling (DEF!CONSTANT STATIC-SPACE-START ...)
; compiling (DEF!CONSTANT STATIC-SPACE-END ...)
; compiling (DEF!CONSTANT DYNAMIC-SPACE-START ...)
; compiling (DEF!CONSTANT DYNAMIC-SPACE-END ...)
; compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...)
; compiling (DEFENUM (:START 8) ...)
; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *STATIC-FUNS* ...)
; compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...)
; compiling (DEFVAR *ALLOCATION-POINTER*)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/parms.fasl-tmp written
; compilation finished in 0:00:00.189
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT N-LOWTAG-BITS ...)
; compiling (DEF!CONSTANT LOWTAG-MASK ...)
; compiling (DEF!CONSTANT LOWTAG-LIMIT ...)
; compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...)
; compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...)
; compiling (DEF!CONSTANT N-FIXNUM-BITS ...)
; compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...)
; compiling (DEF!CONSTANT WORD-SHIFT ...)
; compiling (DEF!CONSTANT N-WORD-BYTES ...)
; compiling (DEF!CONSTANT N-WIDETAG-BITS ...)
; compiling (DEF!CONSTANT WIDETAG-MASK ...)
; compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...)
; compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp
; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END
;     (MIN SB!VM::STOP SB!VM::OTHER-START)
; --> LET 
; ==>
;   SB!VM::STOP
; 
; note: deleting unreachable code

; --> LET LET MIN LET 
; ==>
;   SB!VM::OTHER-START
; 
; note: deleting unreachable code
; compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...)
; 
; compilation unit finished
;   printed 2 notes
; compiling (DEF!CONSTANT INSTANCE-DATA-START ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/early-vm.fasl-tmp written
; compilation finished in 0:00:00.104
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFENUM NIL ...)
; compiling (DEF!CONSTANT NIL-VALUE ...)
; compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...)
; compiling (DEFENUM (:START # ...) ...)
; compiling (DEFENUM NIL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/early-objdef.fasl-tmp written
; compilation finished in 0:00:00.274
; compiling file "/«PKGBUILDDIR»/src/code/early-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT SB-XC:ARRAY-RANK-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:ARRAY-DIMENSION-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:ARRAY-TOTAL-SIZE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-array.fasl-tmp written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/src/code/early-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *CORE-PATHNAME* ...)
; compiling (DEFVAR *RUNTIME-PATHNAME* ...)
; compiling (DEFGLOBAL *EOF-OBJECT* ...)
; compiling (DEFCONSTANT MAX-HASH ...)
; compiling (DEF!TYPE HASH ...)
; compiling (DEF!TYPE INDEX ...)
; compiling (DEF!TYPE INDEX/2 ...)
; compiling (DEF!TYPE INDEX-OR-MINUS-1 ...)
; compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE LOAD/STORE-INDEX ...)
; compiling (DEF!TYPE SFUNCTION ...)
; compiling (DEF!TYPE TYPE-SPECIFIER ...)
; compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...)
; compiling (DEF!CONSTANT BELL-CHAR-CODE ...)
; compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...)
; compiling (DEF!CONSTANT TAB-CHAR-CODE ...)
; compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT RETURN-CHAR-CODE ...)
; compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...)
; compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...)
; compiling (DEFUN MAYBE-CYCLIC-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...)
; compiling (DEFUN POSITIVE-PRIMEP ...)
; compiling (DEFUN COMPOUND-OBJECT-P ...)
; compiling (DEFUN COLLECT-NORMAL-EXPANDER ...)
; compiling (DEFUN COLLECT-LIST-EXPANDER ...)
; compiling (DEFMACRO COLLECT ...)
; compiling (DEFUN MEMQ ...)
; compiling (DEFUN ASSQ ...)
; compiling (DEFUN DELQ ...)
; compiling (DEFUN POSQ ...)
; compiling (DECLAIM (INLINE NEQ))
; compiling (DEFUN NEQ ...)
; compiling (DECLAIM (INLINE NTH-BUT-WITH-SANE-ARG-ORDER))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NTH-BUT-WITH-SANE-ARG-ORDER ...)
; compiling (DEFUN ADJUST-LIST ...)
; compiling (DEFMACRO NAMED-LET ...)
; compiling (DEFUN FILTER-DOLIST-DECLARATIONS ...)
; compiling (DEFMACRO DOVECTOR ...)
; compiling (DEFMACRO DOHASH ...)
; compiling (DEFMACRO DOPLIST ...)
; compiling (DEFVAR *PROFILE-HASH-CACHE* ...)
; compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...)
; compiling (DEFUN DROP-ALL-HASH-CACHES ...)
; compiling (DEFUN ALLOC-HASH-CACHE ...)
; compiling (DEF 2)
; compiling (DEF 3)
; compiling (DEF 4)
; compiling (DEF 5)
; compiling (DEF 6)
; compiling (DEFMACRO !DEFINE-HASH-CACHE ...)
; compiling (DEFMACRO DEFUN-CACHED ...)
; compiling (DEFUN EQUAL-BUT-NO-CAR-RECURSION ...)
; compiling (DEFUN %FIND-PACKAGE-OR-LOSE ...)
; compiling (DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; compiling (DECLAIM (INLINE LEGAL-FUN-NAME-P))
; compiling (DEFUN LEGAL-FUN-NAME-P ...)
; compiling (DEFTYPE FUNCTION-NAME ...)
; compiling (DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUN-NAME-BLOCK-NAME ...)
; compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...)
; compiling (DEFMACRO ONCE-ONLY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MISSING-ARG ...)
; compiling (DEFMACRO AVER ...)
; compiling (DEFUN %FAILED-AVER ...)
; compiling (DEFUN BUG ...)
; compiling (DEFMACRO ENFORCE-TYPE ...)
; compiling (DEFUN %FAILED-ENFORCE-TYPE ...)
; compiling (DECLAIM (INLINE SWAPPED-ARGS-FUN))
; compiling (DEFUN SWAPPED-ARGS-FUN ...)
; compiling (DEFUN TYPE-BOUND-NUMBER ...)
; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-T ...)
; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-NIL ...)
; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-0 ...)
; compiling (DEFUN FEATUREP ...)
; compiling (DEFMACRO NOT/TYPE ...)
; compiling (DEFMACRO AND/TYPE ...)
; compiling (DEFUN ANY/TYPE ...)
; compiling (DEFUN EVERY/TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEFPRINTER-PRIN1 ...)
; compiling (DEFUN DEFPRINTER-PRINC ...)
; compiling (DEFUN DEFPRINTER-PRINX ...)
; compiling (DEFUN DEFPRINTER-PRINT-SPACE ...)
; compiling (DEFMACRO DEFPRINTER ...)
; compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...)
; compiling (DEFUN PHYSICALIZE-PATHNAME ...)
; compiling (DEFUN NORMALIZE-DEPRECATION-REPLACEMENTS ...)
; compiling (DEFUN DEPRECATION-ERROR ...)
; compiling (DEFUN DEPRECATION-WARNING ...)
; compiling (DEFUN DEPRECATED-FUNCTION ...)
; compiling (DEFUN DEPRECATION-COMPILER-MACRO ...)
; compiling (DEFUN DEPRECATED-THING-P ...)
; compiling (DEFUN LOADER-DEPRECATION-WARN ...)
; compiling (DEFTYPE DEPRECATION-STATE ...)
; compiling (DEFUN PRINT-DEPRECATION-MESSAGE ...)
; compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...)
; compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...)
; compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...)
; compiling (DEFMACRO AWHEN ...)
; compiling (DEFMACRO ACOND ...)
; compiling (DEFUN EXTRACT-VAR-DECLS ...)
; compiling (DEFMACRO BINDING* ...)
; compiling (DEFMACRO DELAY ...)
; compiling (DEFUN FORCE ...)
; compiling (DEFUN PROMISE-READY-P ...)
; compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...)
; compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...)
; compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...)
; compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...)
; compiling (DEFUN LIST-MEMBERS ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (!DEFPARAMETER *EVALUATOR-MODE* ...)
; compiling (DEFMACRO DX-FLET ...)
; compiling (DEFMACRO DX-LET ...)
; compiling NIL
; compiling NIL
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN FP-ZERO-P ...)
; compiling (DEFUN NEG-FP-ZERO ...)
; compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...)
; compiling (DEFUN STREAM-ERROR-POSITION-INFO ...)
; compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST))
; compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...)

; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN DEPRECATED-THING-P
;     (SB!KERNEL:%FUN-NAME SB!IMPL::MACRO-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: %FUN-NAME

; in: DEFUN SB!IMPL::DEPRECATED-FUNCTION
;     (SETF (SB!KERNEL:%FUN-DOC SB!KERNEL:CLOSURE) SB!IMPL::DOC)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:%FUN-DOC) #:NEW834 #:CLOSURE835)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF %FUN-DOC)

; in: DEFUN DEPRECATED-THING-P
;     (SB!KERNEL:CLOSUREP SB!IMPL::MACRO-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: CLOSUREP

;     (SB!IMPL::FIND-IF-IN-CLOSURE
;      (LAMBDA (SB!IMPL::X) (MEMBER SB!IMPL::X '(:EARLY :LATE :FINAL)))
;      SB!IMPL::MACRO-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::FIND-IF-IN-CLOSURE

; in: DEFUN EXTRACT-VAR-DECLS
;     (SB!INT:INFO :TYPE :KIND SB!IMPL::ID)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN CHECK-DEPRECATED-VARIABLE
;     (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN DEPRECATED-THING-P
;     (SB!INT:INFO :FUNCTION :COMPILER-MACRO-FUNCTION SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN STREAM-ERROR-POSITION-INFO
;     (SB!INT:LINE/COL-FROM-CHARPOS STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: LINE/COL-FROM-CHARPOS

; in: DEFUN NEG-FP-ZERO
;     (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-UNPORTABLE-FLOAT

; in: DEFMACRO DEFUN-CACHED
;     (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; in: DEFMACRO DOHASH
;     (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; in: DEFMACRO DOVECTOR
;     (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function PARSE-BODY


; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN SB!IMPL::DEPRECATED-FUNCTION
;     (SB!IMPL::SET-CLOSURE-NAME
;      (LAMBDA (&REST SB!IMPL::DEPRECATED-FUNCTION-ARGS)
;        (DECLARE (IGNORE SB!IMPL::DEPRECATED-FUNCTION-ARGS))
;        (SB!INT:DEPRECATION-ERROR SB!IMPL::SINCE SB!IMPL::NAME
;         SB!IMPL::REPLACEMENTS))
;      SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::SET-CLOSURE-NAME
; 
; compilation unit finished
;   Undefined functions:
;     %FUN-NAME (SETF %FUN-DOC) CLOSUREP SB!IMPL::FIND-IF-IN-CLOSURE INFO LINE/COL-FROM-CHARPOS MAKE-UNPORTABLE-FLOAT PARSE-BODY SB!IMPL::SET-CLOSURE-NAME
;   caught 14 STYLE-WARNING conditions
; compiling (DEFMACRO WITH-SIMPLE-OUTPUT-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-extensions.fasl-tmp written
; compilation finished in 0:00:04.637
; compiling file "/«PKGBUILDDIR»/src/code/parse-body.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (/SHOW0 "entering parse-body.lisp")
; compiling (DEFUN PARSE-BODY ...)

; file: /«PKGBUILDDIR»/src/code/parse-body.lisp
; in: DEFUN PARSE-BODY
;     (SB!INT:STYLE-WARN "DECLAIM where DECLARE was probably intended")
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined function:
;     STYLE-WARN
;   caught 1 STYLE-WARNING condition
; compiling (/SHOW0 "leaving parse-body.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/parse-body.fasl-tmp written
; compilation finished in 0:00:00.079
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFVAR *ARG-TESTS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *SYSTEM-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *USER-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *ENV-VAR*)
; compiling (DEFVAR *DEFAULT-DEFAULT*)
; compiling (DEFVAR *IGNORABLE-VARS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFUN PARSE-DEFMACRO ...)
; compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...)
; compiling (DEFUN ARG-COUNT-ERROR ...)
; compiling (DEFUN PUSH-SUBLIST-BINDING ...)
; compiling (DEFUN PUSH-LET-BINDING ...)
; compiling (DEFUN PUSH-OPTIONAL-BINDING ...)
; compiling (DEFUN DEFMACRO-ERROR ...)
; compiling (DEFUN CHECK-DEFMACRO-ARG ...)
; compiling (DEFUN VERIFY-KEYWORDS ...)
; compiling (DEFUN LOOKUP-KEYWORD ...)

; file: /«PKGBUILDDIR»/src/code/parse-defmacro.lisp
; in: DEFUN PARSE-DEFMACRO
;     (SB!INT:BAD-TYPE SB!KERNEL::LAMBDA-LIST 'LIST
;      "~S lambda-list is not a list: ~S" SB!KERNEL::CONTEXT SB!KERNEL::LAMBDA-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN KEYWORD-SUPPLIED-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/parse-defmacro.fasl-tmp written
; compilation finished in 0:00:00.861
; compiling file "/«PKGBUILDDIR»/src/compiler/deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN CONSTANT-TYPE-EXPANDER ...)
; compiling (DEFUN %DEFTYPE ...)
; compiling (DEFVAR !*XC-PROCESSED-DEFTYPES* ...)

; file: /«PKGBUILDDIR»/src/compiler/deftype.lisp
; in: DEFUN %DEFTYPE
;     (SETF (SB!KERNEL:CLASSOID-CELL-PCL-CLASS
;            (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T))
;             NIL)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) #:NEW4 #:G5)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF CLASSOID-CELL-PCL-CLASS)

; in: DEF!MACRO SB-XC:DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE

; in: DEFUN %DEFTYPE
;     (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID-CELL
; 
; compilation unit finished
;   Undefined functions:
;     (SETF CLASSOID-CELL-PCL-CLASS) BAD-TYPE FIND-CLASSOID-CELL
;   caught 3 STYLE-WARNING conditions
; compiling (DEF!MACRO SB-XC:DEFTYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/deftype.fasl-tmp written
; compilation finished in 0:00:00.186
; compiling file "/«PKGBUILDDIR»/src/compiler/defconstant.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN (SETF SB!C::XC-CONSTANT-VALUE) ...)
; compiling (DEFUN SB!C::XC-CONSTANT-VALUE ...)
; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...)

; file: /«PKGBUILDDIR»/src/compiler/defconstant.lisp
; in: DEFUN SB!C::%DEFCONSTANT
;     (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'VARIABLE) SB!IMPL::DOC)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW57 #:NAME58 'VARIABLE)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF FDOCUMENTATION)

;     (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME)
;             SB!IMPL::SOURCE-LOCATION)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW18 :SOURCE-LOCATION :CONSTANT
;                   #:NAME19)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF INFO)

;     (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SB!IMPL::NAME 'DEFCONSTANT)
; 
; caught STYLE-WARNING:
;   undefined function: ABOUT-TO-MODIFY-SYMBOL-VALUE

;     (SB!INT:CLEAR-INFO :VARIABLE :MACRO-EXPANSION SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: CLEAR-INFO

;     (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

;     (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME
;      :FORMAT-CONTROL "defining ~S as a constant" :FORMAT-ARGUMENTS
;      (LIST SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     (SETF FDOCUMENTATION) (SETF INFO) ABOUT-TO-MODIFY-SYMBOL-VALUE CLEAR-INFO INFO STYLE-WARN
;   caught 6 STYLE-WARNING conditions
; compiling (DEFUN SB!C::%DEFCONSTANT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/defconstant.fasl-tmp written
; compilation finished in 0:00:00.231
; compiling file "/«PKGBUILDDIR»/src/code/early-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...)
; compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...)
; compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*)
; compiling (DEFVAR *VALUES-TYPE-OKAY* ...)
; compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-alieneval.fasl-tmp written
; compilation finished in 0:00:00.016
; compiling file "/«PKGBUILDDIR»/src/code/specializable-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO !MAKE-SPECIALIZED-ARRAY ...)
; compiling (DEFUN !COERCE-TO-SPECIALIZED ...)
; compiling (DEFUN REGISTER-SPECIALIZED-ARRAY ...)
; compiling (DEFUN !SPECIALIZED-ARRAY-ELEMENT-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/specializable-array.fasl-tmp written
; compilation finished in 0:00:00.084
; compiling file "/«PKGBUILDDIR»/src/code/early-cl.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (PROCLAIM (QUOTE #))
; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-cl.fasl-tmp written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/src/code/early-fasl.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...)
; compiling (DEFINE-FASL-FORMAT-FEATURES)
; compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...)
; compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFVAR *FASL-FILE-TYPE* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ASSEMBLER-ROUTINES* ...)
; compiling (DECLAIM (SIMPLE-VECTOR **FOP-NAMES** ...))
; compiling (DEFGLOBAL **FOP-NAMES** ...)
; compiling (DEFGLOBAL **FOP-FUNS** ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFGLOBAL **FOP-SIGNATURES** ...)
; compiling (DEFVAR *LOAD-DEPTH* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (FASL-INPUT # ...) ...)

; file: /«PKGBUILDDIR»/src/code/early-fasl.lisp
; in: DEFSTRUCT FASL-INPUT
;     (SB!FASL::MAKE-FOP-VECTOR 100)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-FOP-VECTOR
; 
; compilation unit finished
;   Undefined function:
;     MAKE-FOP-VECTOR
;   caught 1 STYLE-WARNING condition
; compiling (DECLAIM (FREEZE-TYPE FASL-INPUT))

; /«PKGBUILDDIR»/obj/from-host/src/code/early-fasl.fasl-tmp written
; compilation finished in 0:00:00.201
; compiling file "/«PKGBUILDDIR»/src/code/debug-var-io.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN %READ-VAR-INTEGER ...)
; compiling (DEFMACRO READ-VAR-INTEGER ...)
; compiling (DEFUN WRITE-VAR-INTEGER ...)
; compiling (DEFMACRO READ-VAR-STRING ...)
; compiling (DEFUN WRITE-VAR-STRING ...)
; compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/debug-var-io.fasl-tmp written
; compilation finished in 0:00:00.267
; compiling file "/«PKGBUILDDIR»/src/code/early-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEFVAR *CURRENT-THREAD* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-thread.fasl-tmp written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/src/code/early-raw-slots.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!TYPE WORD ...)
; compiling (DEF!TYPE SB!VM:SIGNED-WORD ...)
; compiling (DEFTYPE LAYOUT-RAW-SLOT-METADATA-TYPE ...)
; compiling (DEFMACRO LAYOUT-RAW-SLOT-METADATA ...)
; compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA))
; compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...)

; file: /«PKGBUILDDIR»/src/code/early-raw-slots.lisp
; in: SETQ *RAW-SLOT-DATA-LIST*
;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
; compiling (SETQ *RAW-SLOT-DATA-LIST* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...)
; compiling (DEFUN RAW-SLOT-WORDS ...)

; file: /«PKGBUILDDIR»/src/code/early-raw-slots.lisp
; in: SETQ *RAW-SLOT-DATA-LIST*
;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/COMPLEX-DOUBLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/COMPLEX-SINGLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/DOUBLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/SINGLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/WORD
; 
; compilation unit finished
;   Undefined functions:
;     %RAW-INSTANCE-REF/COMPLEX-DOUBLE %RAW-INSTANCE-REF/COMPLEX-SINGLE %RAW-INSTANCE-REF/DOUBLE %RAW-INSTANCE-REF/SINGLE %RAW-INSTANCE-REF/WORD
;   caught 5 STYLE-WARNING conditions
;   printed 45 notes
; compiling (DEFMACRO DO-INSTANCE-TAGGED-SLOT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-raw-slots.fasl-tmp written
; compilation finished in 0:00:00.650
; compiling file "/«PKGBUILDDIR»/src/code/defbangstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...)
; compiling (DEFUN DEF!STRUCT-SUPERTYPE ...)
; compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...)
; compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...)
; compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...)
; compiling (DEFUN JUST-DUMP-IT-NORMALLY ...)
; compiling (DEFUN IGNORE-IT ...)
; compiling (DEFSTRUCT DELAYED-DEF!STRUCT ...)
; compiling (DEFVAR *DELAYED-DEF!STRUCTS* ...)
; compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...)
; compiling (DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ...)
; compiling (DEFUN %INSTANCE-LAYOUT ...)
; compiling (DEFUN %INSTANCE-LENGTH ...)
; compiling (DEFUN %INSTANCE-REF ...)
; compiling (DEFUN %INSTANCE-SET ...)
; compiling (DEFUN UNCROSS-DEFSTRUCT-ARGS ...)
; compiling (DEFMACRO DEF!STRUCT ...)
; compiling (DEFUN FORCE-DELAYED-DEF!STRUCTS ...)
; compiling (DEF!STRUCT (STRUCTURE!OBJECT # ...))
; compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)

; file: /«PKGBUILDDIR»/src/code/defbangstruct.lisp
; in: DEFUN %INSTANCE-LAYOUT
;     (SB!KERNEL:CLASSOID-LAYOUT
;      (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)))
; 
; caught STYLE-WARNING:
;   undefined function: CLASSOID-LAYOUT

; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P
;     (SB!KERNEL::COMPILER-LAYOUT-READY-P SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-LAYOUT-READY-P

; in: DEFUN %INSTANCE-SET
;     (SB!KERNEL:DD-SLOTS SB!KERNEL::DD)
; 
; caught STYLE-WARNING:
;   undefined function: DD-SLOTS

; in: DEFUN %INSTANCE-REF
;     (SB!KERNEL:DD-SLOTS SB!KERNEL::DD)
; 
; caught STYLE-WARNING:
;   undefined function: DD-SLOTS

; in: DEFUN %INSTANCE-SET
;     (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-ACCESSOR-NAME

; in: DEFUN %INSTANCE-REF
;     (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-ACCESSOR-NAME

;     (SB!KERNEL:DSD-INDEX SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-INDEX

;     (SB!KERNEL:DSD-RAW-TYPE SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-RAW-TYPE

; in: DEFUN %INSTANCE-LAYOUT
;     (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID

; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P
;     (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN %INSTANCE-SET
;     (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-INFO

; in: DEFUN %INSTANCE-REF
;     (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-INFO

; in: DEFUN %INSTANCE-LENGTH
;     (SB!KERNEL:LAYOUT-LENGTH (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL:INSTANCE))
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-LENGTH

; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P
;     (SB!KERNEL:LAYOUT-RAW-SLOT-METADATA
;      (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME))
; ==>
;   (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS
;    (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-N-UNTAGGED-SLOTS
; 
; compilation unit finished
;   Undefined functions:
;     CLASSOID-LAYOUT COMPILER-LAYOUT-READY-P DD-SLOTS DSD-ACCESSOR-NAME DSD-INDEX DSD-RAW-TYPE FIND-CLASSOID INFO LAYOUT-INFO LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS
;   caught 14 STYLE-WARNING conditions
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangstruct.fasl-tmp written
; compilation finished in 0:00:00.909
; compiling file "/«PKGBUILDDIR»/src/code/unportable-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/unportable-float.fasl-tmp written
; compilation finished in 0:00:00.024
; compiling file "/«PKGBUILDDIR»/src/code/type-class.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFVAR *CTYPE-LCG-STATE* ...)
; compiling (DEFVAR *CTYPE-HASH-STATE* ...)
; compiling (DEFVAR *TYPE-CLASSES* ...)
; compiling (DEFUN TYPE-CLASS-OR-LOSE ...)
; compiling (DEFUN MUST-SUPPLY-THIS ...)
; compiling (DEF!STRUCT (TYPE-CLASS #) ...)
; compiling (DECLAIM (FREEZE-TYPE TYPE-CLASS))
; compiling (DEFCONSTANT-EQX !TYPE-CLASS-FUN-SLOTS ...)
; compiling (DEFUN !TYPE-CLASS-FUN-SLOT ...)
; compiling (DEFMACRO !DEFINE-TYPE-METHOD ...)
; compiling (DEFMACRO !DEFINE-TYPE-CLASS ...)
; compiling (DEFMACRO !INVOKE-TYPE-METHOD ...)
; compiling (DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ...)
; compiling (DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ...)

; file: /«PKGBUILDDIR»/src/code/type-class.lisp
; in:
;      DEF!STRUCT (TYPE-CLASS
;              (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;     #'SB!KERNEL::HIERARCHICAL-INTERSECTION2
; 
; caught STYLE-WARNING:
;   undefined function: HIERARCHICAL-INTERSECTION2

;     #'SB!KERNEL::HIERARCHICAL-UNION2
; 
; caught STYLE-WARNING:
;   undefined function: HIERARCHICAL-UNION2

; in: DEFUN INVOKE-COMPLEX-=-OTHER-METHOD
;     (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CLASS-INFO

; in: DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD
;     (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CLASS-INFO
; 
; compilation unit finished
;   Undefined functions:
;     HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO
;   caught 4 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPE-CLASS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/type-class.fasl-tmp written
; compilation finished in 0:00:01.194
; compiling file "/«PKGBUILDDIR»/src/compiler/early-backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *BACKEND-PAGE-BYTES* ...)
; compiling (DECLAIM (TYPE INDEX ...))

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-backend.fasl-tmp written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/src/compiler/info-vector.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT +EMPTY-KEY+ ...)
; compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...)
; compiling (DEFTYPE INFO-CELL-INDEX ...)
; compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...)
; compiling (DEFSTRUCT (INFO-STORAGE # ...) ...)
; compiling (DEFUN MAKE-INFO-STORAGE ...)
; compiling (DEFSTRUCT (INFO-HASHTABLE #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFMACRO INFO-CAS ...)
; compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT))
; compiling (DEFUN INFO-ENV-ADJUST-COUNT ...)
; compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...)
; compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...)
; compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...)
; compiling (DEFUN INFO-VALUE-MOVED-P ...)
; compiling (DEFMACRO !DO-PROBE-SEQUENCE ...)
; compiling (DEFUN %WAIT-FOR-REHASH ...)
; compiling (DEFUN INFO-GETHASH ...)

; file: /«PKGBUILDDIR»/src/compiler/info-vector.lisp
; in: DEFUN INFO-PUTHASH
;     (SB!C::INFO-ENV-COMPARATOR SB!C::ENV)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!C::ENV
; 
; note: deleting unreachable code

;     (SB!C::FOLLOW/UPDATE SB!C::STORAGE (SB!C::VALUE-INDEX))
; ==>
;   SB!C::STORAGE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!C::PROBE SB!C::HASHVAL (SB!C::%WAIT-FOR-REHASH SB!C::ENV SB!C::STORAGE))
; ==>
;   SB!C::HASHVAL
; 
; note: deleting unreachable code
; compiling (DEFUN INFO-PUTHASH ...)
; compiling (DEFUN INFO-ENV-REHASH ...)
; compiling (DEFMACRO INFO-MAPHASH ...)
; compiling (DEFUN (SETF INFO-GETHASH) ...)
; compiling (DEFUN SHOW-INFO-ENV ...)
; compiling (DEFCONSTANT INFO-NUM-MASK ...)
; compiling (DEFCONSTANT +INFOS-PER-WORD+ ...)
; compiling (DEFTYPE INFO-DESCRIPTOR ...)
; compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...)
; compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...)
; compiling (DEFCONSTANT +FDEFN-INFO-NUM+ ...)
; compiling (DECLAIM (INLINE PACKED-INFO-FIELD))

; file: /«PKGBUILDDIR»/src/compiler/info-vector.lisp
; in: DEFUN PACKED-INFO-FIELD
;     (THE SB!INT:INFO-NUMBER
;          (SB-XC:LDB
;           (SB-XC:BYTE SB!INT:INFO-NUMBER-BITS
;                       (* (THE # SB!C::FIELD-INDEX) SB!INT:INFO-NUMBER-BITS))
;           (THE SB!C::INFO-DESCRIPTOR (SVREF VECTOR SB!C::DESC-INDEX))))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 6) &REST T).
; compiling (DEFUN PACKED-INFO-FIELD ...)
; compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...)
; compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...)
; compiling (DEFUN PACKIFY-INFOS ...)
; compiling (DEFMACRO !WITH-PACKED-INFO-ITERATOR ...)
; compiling (DEFMACRO !DO-PACKED-INFO-VECTOR-AUX-KEY ...)
; compiling (DEFUN INFO-VECTOR-NAME-LIST ...)
; compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...)
; compiling (DEFUN UNPACKIFY-INFOS ...)
; compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...)
; compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...)
; compiling (DEFUN %PACKED-INFO-INSERT ...)
; compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P))
; compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...)
; compiling (DEFUN QUICK-PACKED-INFO-INSERT ...)
; compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT))
; compiling (DEFUN PACKED-INFO-INSERT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PACKED-INFO-VALUE-INDEX ...)
; compiling (DEFUN PACKED-INFO-REMOVE ...)
; compiling (DEFCONSTANT-EQX !+PCL-READER-NAME+ ...)
; compiling (DEFCONSTANT-EQX !+PCL-WRITER-NAME+ ...)
; compiling (DEFCONSTANT-EQX !+PCL-BOUNDP-NAME+ ...)
; compiling (DEFUN PCL-GLOBAL-ACCESSOR-NAME-P ...)
; compiling (DEFUN CONSTRUCT-GLOBALDB-NAME ...)
; compiling (DEFUN %CALL-WITH-EACH-INFO ...)
; compiling (DEFUN !TEST-PACKIFY-INFOS ...)
; compiling (DEFMACRO WITH-GLOBALDB-NAME ...)
; compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN))
; compiling (DEFUN INFO-VECTOR-FDEFN ...)
; compiling (DEFUN SYMBOL-INFO ...)
; compiling (DEFUN UPDATE-SYMBOL-INFO ...)
; compiling (DEFUN SYMBOL-INFO-VECTOR ...)
; compiling (DECLAIM (TYPE INFO-HASHTABLE ...))
; compiling (DEFVAR *INFO-ENVIRONMENT*)
; compiling (DEFUN SET-INFO-VALUE ...)
; compiling (DEFUN %ATOMIC-SET-INFO-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/info-vector.lisp
; in: DEFUN INFO-PUTHASH
;     (SB!C::INFO-VALUE-MOVED-P SB!C::VALUE)
; --> BLOCK 
; ==>
;   (SB!INT:FIXNUMP SB!C::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMP

; in: DEFUN INFO-GETHASH
;     (SB!C::INFO-VALUE-MOVED-P SB!C::VALUE)
; --> BLOCK 
; ==>
;   (SB!INT:FIXNUMP SB!C::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMP

; in: DEFUN INFO-VALUE-MOVED-P
;     (SB!INT:FIXNUMP SB!C::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMP

; in: DEFSTRUCT INFO-HASHTABLE
;     #'SB!C::GLOBALDB-SXHASHOID
; 
; caught STYLE-WARNING:
;   undefined function: GLOBALDB-SXHASHOID

; in: DEFUN MAKE-INFO-STORAGE
;     (SB!C::PRIMIFY (CEILING SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR))
; 
; caught STYLE-WARNING:
;   undefined function: PRIMIFY

; in: DEFUN CONSTRUCT-GLOBALDB-NAME
;     (SB!PCL::SLOT-BOUNDP-NAME SB!C::STEM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SLOT-BOUNDP-NAME

;     (SB!PCL::SLOT-READER-NAME SB!C::STEM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SLOT-READER-NAME

;     (SB!PCL::SLOT-WRITER-NAME SB!C::STEM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SLOT-WRITER-NAME

; in: DEFUN %WAIT-FOR-REHASH
;     (SB!THREAD:THREAD-YIELD)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD:THREAD-YIELD
; 
; compilation unit finished
;   Undefined functions:
;     FIXNUMP GLOBALDB-SXHASHOID PRIMIFY SB!PCL::SLOT-BOUNDP-NAME SB!PCL::SLOT-READER-NAME SB!PCL::SLOT-WRITER-NAME SB!THREAD:THREAD-YIELD
;   caught 9 STYLE-WARNING conditions
;   printed 5 notes
; compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/info-vector.fasl-tmp written
; compilation finished in 0:00:04.879
; compiling file "/«PKGBUILDDIR»/src/code/typedefs.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...)
; compiling (DEFUN CTYPE-RANDOM ...)
; compiling (DEFCONSTANT +CTYPE-HASH-MASK+ ...)

; file: /«PKGBUILDDIR»/src/code/typedefs.lisp
; in:
;      DEF!STRUCT (CTYPE (:CONC-NAME TYPE-) (:CONSTRUCTOR NIL)
;              (:MAKE-LOAD-FORM-FUN MAKE-TYPE-LOAD-FORM))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:CTYPE (:CONC-NAME SB!KERNEL::TYPE-) (:CONSTRUCTOR NIL)
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-TYPE-LOAD-FORM))
;      (SB!KERNEL::CLASS-INFO (SB!INT:MISSING-ARG) :TYPE SB!KERNEL::TYPE-CLASS)
;      (SB!KERNEL::HASH-VALUE
;       (SB!KERNEL::CTYPE-RANDOM SB!KERNEL::+CTYPE-HASH-MASK+) :TYPE
;       (SIGNED-BYTE 30) :READ-ONLY NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CTYPE {52716C69}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {539A6259}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL::TYPE-CLASS-INFO could not be inlined
;   because the structure definition for SB!KERNEL:CTYPE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (CTYPE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFCONSTANT +TYPE-ADMITS-TYPE=-OPTIMIZATION+ ...)
; compiling (DEFUN MARK-CTYPE-INTERNED ...)
; compiling (DECLAIM (INLINE TYPE-MIGHT-CONTAIN-OTHER-TYPES-P))
; compiling (DEFUN TYPE-MIGHT-CONTAIN-OTHER-TYPES-P ...)
; compiling (DECLAIM (INLINE TYPE-ENUMERABLE))
; compiling (DEFUN TYPE-ENUMERABLE ...)
; compiling (DEFUN MAKE-TYPE-LOAD-FORM ...)
; compiling (DEFUN HIERARCHICAL-INTERSECTION2 ...)
; compiling (DEFUN HIERARCHICAL-UNION2 ...)
; compiling (DECLAIM (INLINE TYPE-CACHE-HASH))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN TYPE-CACHE-HASH ...)
; compiling (DECLAIM (INLINE TYPE-LIST-CACHE-HASH))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN TYPE-LIST-CACHE-HASH ...)

; file: /«PKGBUILDDIR»/src/code/typedefs.lisp
; in: DEFUN HIERARCHICAL-UNION2
;     (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2)
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN HIERARCHICAL-INTERSECTION2
;     (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE2 SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN MAKE-TYPE-LOAD-FORM
;     (SB!INT:QUASIQUOTE
;      (SB!KERNEL:SPECIFIER-TYPE
;       '#S(SB!IMPL::COMMA :EXPR (SB!KERNEL:TYPE-SPECIFIER TYPE) :KIND 0)))
; --> SB!IMPL::|List| SB!IMPL::|List| 
; ==>
;   (SB!KERNEL:TYPE-SPECIFIER TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-SPECIFIER

; in: DEF!METHOD PRINT-OBJECT
;     (SB!KERNEL:TYPE-SPECIFIER SB!KERNEL:CTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-SPECIFIER
; 
; compilation unit finished
;   Undefined functions:
;     CSUBTYPEP TYPE-SPECIFIER
;   caught 5 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPEDEFS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/typedefs.fasl-tmp written
; compilation finished in 0:00:00.422
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-array.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...)
; compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; compiling (SETQ *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; compiling (DEFUN VALID-BIT-BASH-SAETP-P ...)
; compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...)
; compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-SAETP ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/vm-array.lisp
; in: DEFUN FIND-SAETP-BY-CTYPE
;     #'SB!KERNEL:CSUBTYPEP
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP
; 
; compilation unit finished
;   Undefined function:
;     CSUBTYPEP
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN FIND-SAETP-BY-CTYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-array.fasl-tmp written
; compilation finished in 0:00:00.425
; compiling file "/«PKGBUILDDIR»/src/code/sc-offset.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT-EQX SC-OFFSET-SCN-BYTE ...)
; compiling (DEFCONSTANT-EQX SC-OFFSET-OFFSET-BYTE ...)
; compiling (DEF!TYPE SC-OFFSET ...)
; compiling (DEFMACRO MAKE-SC-OFFSET ...)
; compiling (DEFMACRO SC-OFFSET-SCN ...)
; compiling (DEFMACRO SC-OFFSET-OFFSET ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/sc-offset.fasl-tmp written
; compilation finished in 0:00:00.094
; compiling file "/«PKGBUILDDIR»/src/code/char.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...)
; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/char.fasl-tmp written
; compilation finished in 0:00:00.017
; compiling file "/«PKGBUILDDIR»/src/code/huffman.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFSTRUCT (HUFFMAN-NODE #) ...)
; compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...)
; compiling (DEFUN HUFFMAN-WEIGHTS ...)
; compiling (DEFUN MAKE-HUFFMAN-TREE ...)
; compiling (DEFUN HUFFMAN-DECODE ...)
; compiling (DEFUN HUFFMAN-MATCH ...)
; compiling (DEFUN HUFFMAN-ENCODE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/huffman.fasl-tmp written
; compilation finished in 0:00:00.448
; compiling file "/«PKGBUILDDIR»/src/code/misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...)
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/misc.fasl-tmp written
; compilation finished in 0:00:00.017
; compiling file "/«PKGBUILDDIR»/src/code/early-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FORMAT")
; compiling (DEFPARAMETER *FORMAT-WHITESPACE-CHARS* ...)
; compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...)
; compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...)
; compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...)
; compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...)
; compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...)
; compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...)
; compiling (DEFVAR *ONLY-SIMPLE-ARGS*)
; compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...)
; compiling (DEFVAR *SIMPLE-ARGS*)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-format.fasl-tmp written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/src/compiler/early-c.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT*)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*)
; compiling (DEF!TYPE LAYOUT-DEPTHOID ...)
; compiling (DEFTYPE INLINEP ...)
; compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...)
; compiling (DEFVAR *LEXENV*)
; compiling (DECLAIM (TYPE LEXENV ...))
; compiling (DEFVAR *FREE-VARS*)
; compiling (DEFVAR *FREE-FUNS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *CONSTANTS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ALLOW-INSTRUMENTING*)
; compiling (DEFVAR *CODE-SEGMENT*)
; compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; compiling (DEFVAR *COMPILER-ERROR-CONTEXT*)
; compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT*)
; compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; compiling (DEFVAR *CURRENT-PATH*)
; compiling (DEFVAR *CURRENT-COMPONENT*)
; compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*)
; compiling (DEFVAR *EVAL-TLF-INDEX*)
; compiling (DEFVAR *HANDLED-CONDITIONS*)
; compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*)
; compiling (DEFVAR *POLICY*)
; compiling (DEFVAR *MACRO-POLICY* ...)
; compiling (DEFVAR *DYNAMIC-COUNTS-TN*)
; compiling (DEFVAR *ELSEWHERE*)
; compiling (DEFVAR *EVENT-INFO*)
; compiling (DEFVAR *EVENT-NOTE-THRESHOLD*)
; compiling (DEFVAR *FAILURE-P*)
; compiling (DEFVAR *FIXUP-NOTES*)
; compiling (DEFVAR *LEXENV*)
; compiling (DEFVAR *SOURCE-INFO*)
; compiling (DEFVAR *SOURCE-PLIST*)
; compiling (DEFVAR *SOURCE-NAMESTRING*)
; compiling (DEFVAR *UNDEFINED-WARNINGS*)
; compiling (DEFVAR *WARNINGS-P*)
; compiling (DEFVAR *LAMBDA-CONVERSIONS*)
; compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...)
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFGLOBAL **WORLD-LOCK** ...)
; compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT)
; compiling (DEFMACRO WITH-WORLD-LOCK ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *COMPILER-SSET-COUNTER* ...)
; compiling (DECLAIM (FIXNUM *TYPE-CACHE-NONCE*))
; compiling (!DEFGLOBAL *TYPE-CACHE-NONCE* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-NAME-DEFINED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...))
; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...)
; compiling (DEFVAR *DEBUG-NAME-LENGTH* ...)
; compiling (DEFVAR *DEBUG-NAME-PUNT*)
; compiling (DEFVAR *DEBUG-NAME-SHARP*)
; compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*)
; compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...)
; compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...)
; compiling (SETF *DEBUG-NAME-SHARP* ...)
; compiling (DEFUN DEBUG-NAME ...)
; compiling (DECLAIM (INLINE LL-KWDS-KEYP ...))
; compiling (DEFUN LL-KWDS-KEYP ...)

; file: /«PKGBUILDDIR»/src/compiler/early-c.lisp
; in: DECLAIM (TYPE LEXENV *LEXENV*)
;     (DECLAIM (TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; in: DEFUN DEBUG-NAME
;     (SB!C::NAME-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-CONTEXT

; in: DEFUN NOTE-LEXICAL-BINDING
;     (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME
;      :FORMAT-CONTROL "using the lexical binding of the symbol ~
;                    ~/sb-impl::print-symbol-with-prefix/, not the~@
;                    dynamic binding"
;      :FORMAT-ARGUMENTS (LIST SYMBOL))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN NOTE-NAME-DEFINED
;     (SB!C::UNDEFINED-WARNING-KIND SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: UNDEFINED-WARNING-KIND

;     (SB!C::UNDEFINED-WARNING-NAME SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: UNDEFINED-WARNING-NAME
; 
; compilation unit finished
;   Undefined type:
;     LEXENV
;   Undefined functions:
;     NAME-CONTEXT STYLE-WARN UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME
;   caught 5 STYLE-WARNING conditions
; compiling (DEFUN LL-KWDS-ALLOWP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-c.fasl-tmp written
; compilation finished in 0:00:00.431
; compiling file "/«PKGBUILDDIR»/src/compiler/policy.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!TYPE POLICY-QUALITY ...)
; compiling (DEFVAR *POLICY-RESTRICTIONS* ...)
; compiling (DEFUN RESTRICT-COMPILER-POLICY ...)
; compiling (DEFSTRUCT (POLICY-DEPENDENT-QUALITY #) ...)
; compiling (DECLAIM (SIMPLE-VECTOR **POLICY-PRIMARY-QUALITIES** ...))
; compiling (!DEFGLOBAL **POLICY-PRIMARY-QUALITIES** ...)
; compiling (DEFGLOBAL **POLICY-DEPENDENT-QUALITIES** ...)
; compiling (DEFCONSTANT N-POLICY-PRIMARY-QUALITIES ...)
; compiling (DEFCONSTANT MAX-POLICY-QUALITIES ...)
; compiling (DEFSTRUCT (POLICY #) ...)
; compiling (DEFUN POLICY-TO-DECL-SPEC ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN POLICY= ...)
; compiling (DEFUN POLICY-QUALITY-NAME-P ...)
; compiling (DEFUN ALTER-POLICY ...)
; compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...)
; compiling (DECLAIM (TYPE POLICY ...) ...)
; compiling (DEFGLOBAL **BASELINE-POLICY** ...)
; compiling (DEFGLOBAL **ZERO-TYPECHECK-POLICY** ...)
; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...)
; compiling (DEFUN POLICY-QUALITY ...)
; compiling (DEFINE-COMPILER-MACRO POLICY-QUALITY ...)
; compiling (DEFUN %POLICY-QUALITY ...)
; compiling (DEFMACRO POLICY ...)
; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...)
; compiling (DEFUN SET-MACRO-POLICY ...)

; file: /«PKGBUILDDIR»/src/compiler/policy.lisp
; in: DEFUN SET-MACRO-POLICY
;     (SB!C::PROCESS-OPTIMIZE-DECL
;      (SB!INT:QUASIQUOTE (OPTIMIZE #S(SB!IMPL::COMMA :EXPR LIST :KIND 2)))
;      SB!C::**BASELINE-POLICY**)
; 
; caught STYLE-WARNING:
;   undefined function: PROCESS-OPTIMIZE-DECL
; 
; compilation unit finished
;   Undefined function:
;     PROCESS-OPTIMIZE-DECL
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN MACRO-POLICY-DECLS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/policy.fasl-tmp written
; compilation finished in 0:00:01.770
; compiling file "/«PKGBUILDDIR»/src/compiler/policies.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-CLOSURE-DEBUG-POINTER ...)

; file: /«PKGBUILDDIR»/src/compiler/policies.lisp
; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE
;                                        (COND ((= SAFETY 0) 0) (T 3))
;                                        ("no" "maybe" "yes" "yes")
;                                        "Control whether GO and RETURN-FROM check liveness of the destination tag.
;   Enabling this option can increase heap consing of closures.")
; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY 
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK
;                                        (COND ((= SAFETY 0) 0)
;                                              ((AND (< SAFETY 2) (< SAFETY SPEED))
;                                               2)
;                                              (T 3))
;                                        ("no" "maybe" "weak" "full")
;                                        "Control the way to perform runtime type checking:
;   0: declared types are simply trusted; no runtime checks are performed;
;   2: fast checks are performed: declared types are weakened to
;      FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.;
;   3: declared types are fully checked (several exceptions exist;
;      see \"SBCL User Manual\", Compiler->Handling of Types->
;      Implementation Limitations for details).")
; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY 
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY
;                                        ("no" "maybe" "yes" "yes")
;                                        "Control whether the compiler should check for constant
;   modification. Defaults to SAFETY.")
; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY 
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; 
; caught STYLE-WARNING:
;   26 more uses of undefined function %COERCE-TO-POLICY
; 
; compilation unit finished
;   Undefined function:
;     %COERCE-TO-POLICY
;   caught 4 STYLE-WARNING conditions
; compiling (!POLICY-COLD-INIT-OR-RESANIFY)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/policies.fasl-tmp written
; compilation finished in 0:00:02.401
; compiling file "/«PKGBUILDDIR»/src/compiler/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; compiling (DEFMACRO DEF-IR1-TRANSLATOR ...)
; compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...)
; compiling (DEFTYPE ATTRIBUTES ...)
; compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...)
; compiling (DEF!MACRO !DEF-BOOLEAN-ATTRIBUTE ...)
; compiling (DEFUN GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER ...)
; compiling (DEFMACRO !DEF-BOOLEAN-ATTRIBUTE-SETTER ...)
; compiling (DEFMACRO ATTRIBUTES-UNION ...)
; compiling (DEFMACRO ATTRIBUTES-INTERSECTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (INLINE ATTRIBUTES=))
; compiling (DEFUN ATTRIBUTES= ...)
; compiling (DEFUN PARSE-DEFTRANSFORM ...)
; compiling (DEFMACRO DEFTRANSFORM ...)
; compiling (DEFMACRO DEFKNOWN ...)
; compiling (DEFMACRO DEFOPTIMIZER ...)
; compiling (DEFMACRO DO-BLOCKS ...)
; compiling (DEFMACRO DO-BLOCKS-BACKWARDS ...)
; compiling (DEFMACRO DO-USES ...)
; compiling (DEFMACRO DO-NODES ...)
; compiling (DEFMACRO DO-NODES-BACKWARDS ...)
; compiling (DEFMACRO DO-NODES-CAREFULLY ...)
; compiling (DEFMACRO DO-NESTED-CLEANUPS ...)
; compiling (DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; compiling (DEFMACRO WITH-SOURCE-PATHS ...)
; compiling (DEFMACRO WITH-IR1-NAMESPACE ...)
; compiling (DEFMACRO LEXENV-FIND ...)
; compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...)
; compiling (DEFSTRUCT (EVENT-INFO #) ...)
; compiling (DEFVAR *EVENT-INFO* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-INFO-OR-LOSE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-COUNT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-ACTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %SET-EVENT-ACTION ...)
; compiling (DEFSETF EVENT-ACTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-LEVEL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %SET-EVENT-LEVEL ...)
; compiling (DEFSETF EVENT-LEVEL ...)
; compiling (DEFMACRO DEFEVENT ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...)
; compiling (DEFMACRO EVENT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-STATISTICS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CLEAR-EVENT-STATISTICS ...)
; compiling (DECLAIM (INLINE FIND-IN ...))
; compiling (DEFUN FIND-IN ...)
; compiling (DEFUN POSITION-IN ...)
; compiling (DEF!MACRO DELETEF-IN ...)
; compiling (DEF!MACRO PUSH-IN ...)
; compiling (DEFMACRO POSITION-OR-LOSE ...)
; compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...)
; compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...)

; file: /«PKGBUILDDIR»/src/compiler/macros.lisp
; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE
;     (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: AVER-LIVE-COMPONENT

;     (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE))
;           (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE))
;           (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
;       (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;       (FUNCALL SB!C::FUN))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G565 '(OR SB!KERNEL:LEXENV NULL))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

;     (DEFUN SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE (SB!C::NODE SB!C::FUN)
;       (DECLARE (TYPE SB!C::NODE SB!C::NODE)
;                (TYPE FUNCTION SB!C::FUN))
;       (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE))
;             (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE))
;             (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
;         (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;         (FUNCALL SB!C::FUN)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G572 'SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined type: NODE

;     (TYPE SB!C::NODE SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined type: NODE

;     (SB!C::NODE-COMPONENT SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

;     (SB!C::NODE-LEXENV SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-LEXENV

;     (SB!C::NODE-SOURCE-PATH SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-SOURCE-PATH

; in: DEFUN PARSE-DEFTRANSFORM
;     (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-LAMBDA-LIST
; 
; compilation unit finished
;   Undefined types:
;     LEXENV NODE
;   Undefined functions:
;     AVER-LIVE-COMPONENT NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST
;   caught 8 STYLE-WARNING conditions
; compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/macros.fasl-tmp written
; compilation finished in 0:00:04.382
; compiling file "/«PKGBUILDDIR»/src/compiler/globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFUN GLOBALDB-SXHASHOID ...)
; compiling (DEFUN PRIMIFY ...)

; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in:
;      DEF!STRUCT (META-INFO
;              (:PRINT-OBJECT (LAMBDA (X S) (PRINT-UNREADABLE-OBJECT # #)))
;              (:CONSTRUCTOR !MAKE-META-INFO
;               (NUMBER CATEGORY KIND TYPE-SPEC TYPE-CHECKER ...))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::META-INFO
;       (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #)))
;       (:CONSTRUCTOR SB!C::!MAKE-META-INFO
;        (NUMBER SB!C::CATEGORY SB!C::KIND SB!C::TYPE-SPEC SB!C::TYPE-CHECKER
;         SB!C::VALIDATE-FUNCTION SB!C::DEFAULT))
;       (:COPIER NIL))
;      (NUMBER NIL :TYPE SB!INT:INFO-NUMBER :READ-ONLY T)
;      (SB!C::CATEGORY NIL :TYPE KEYWORD :READ-ONLY T)
;      (SB!C::KIND NIL :TYPE KEYWORD :READ-ONLY T)
;      (SB!C::TYPE-SPEC NIL :TYPE T :READ-ONLY T)
;      (SB!C::TYPE-CHECKER NIL :TYPE FUNCTION :READ-ONLY T)
;      (SB!C::VALIDATE-FUNCTION NIL :TYPE (OR FUNCTION NULL) :READ-ONLY T)
;      (SB!C::DEFAULT NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::META-INFO {52C5CD51}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::META-INFO-NUMBER, SB!C::META-INFO-TYPE-SPEC
;   and SB!C::META-INFO-VALIDATE-FUNCTION could not be inlined because the
;   structure definition for SB!C::META-INFO was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (META-INFO # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE META-INFO))
; compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...)
; compiling (DEFMACRO !GET-META-INFOS ...)
; compiling (DEFUN META-INFO ...)
; compiling (DEFUN !REGISTER-META-INFO ...)
; compiling (DEFUN !%DEFINE-INFO-TYPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (!COLD-INIT-FORMS (DOVECTOR # ...))
; compiling (DEFUN INFO ...)
; compiling (DEFUN (SETF INFO) ...)
; compiling (DEFUN CLEAR-INFO ...)
; compiling (DEFUN CLEAR-INFO-VALUES ...)
; compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET-INFO-VALUE ...)
; compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...)
; compiling (DEF!MACRO ATOMIC-SET-INFO-VALUE ...)
; compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :EMITTED-FULL-CALLS) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...)
; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...)
; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...)
; compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...)
; compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...)
; compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...)
; compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...)
; compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...)
; compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...)
; compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...)
; compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VOP) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :DECLARATION) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :ALIEN-TYPE) ...)
; compiling (DEFUN CALL-WITH-EACH-INFO ...)
; compiling (DEFUN SHOW-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in: DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION)
;     (SB!C::DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL))
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET 
; --> OR LET 
; ==>
;   (TYPEP #:N-OBJ4 'SB!ALIEN-INTERNALS:ALIEN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE

; in: DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT)
;     (SB!C::DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL))
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET 
; --> OR LET 
; ==>
;   (TYPEP #:N-OBJ4 'SB!ALIEN-INTERNALS:ALIEN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE

; in: DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION)
;     (SB!C::DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL))
; ==>
;   (THE (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE

; 
; caught STYLE-WARNING:
;   6 more uses of undefined type ALIEN-TYPE


; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::ALLOCATE-STRUCT SB!FASL::*DYNAMIC* SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::ALLOCATE-STRUCT

; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT)
;     (SB!KERNEL:CLASSOID-LAYOUT CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: CLASSOID-LAYOUT

; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::COLD-SVSET (SB!FASL::COLD-SYMBOL-VALUE 'SB!C::*INFO-TYPES*)
;      SB!C::ID
;      (SB!FASL::WRITE-SLOTS
;       (SB!FASL::ALLOCATE-STRUCT SB!FASL::*DYNAMIC* SB!KERNEL:LAYOUT)
;       (SB!KERNEL:FIND-LAYOUT 'SB!C::META-INFO) :CATEGORY SB!C::CATEGORY :KIND
;       SB!C::KIND :TYPE-SPEC SB!C::TYPE-SPEC :TYPE-CHECKER SB!C::CHECKER
;       :VALIDATE-FUNCTION ...))
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-SVSET

;     (SB!FASL::COLD-SYMBOL-VALUE 'SB!C::*INFO-TYPES*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-SYMBOL-VALUE

; in: DEFINE-INFO-TYPE (:FUNCTION :DEFINITION)
;     (SB!C::DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) :TYPE-SPEC
;                             (OR SB!KERNEL:FDEFN NULL))
; ==>
;   (THE (OR SB!KERNEL:FDEFN NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: FDEFN

; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT)
;     (SB!KERNEL:FIND-CLASSOID SB!C::NAME NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID

; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!KERNEL:FIND-LAYOUT 'SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-LAYOUT

; in: DEFINE-INFO-TYPE (:FUNCTION :INFO)
;     (SB!C::DEFINE-INFO-TYPE (:FUNCTION :INFO) :TYPE-SPEC (OR SB!C::FUN-INFO NULL))
; ==>
;   (THE (OR SB!C::FUN-INFO NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO)
;     (SB!C::DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:HEAP-ALIEN-INFO NULL))
; ==>
;   (THE (OR SB!ALIEN-INTERNALS:HEAP-ALIEN-INFO NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: HEAP-ALIEN-INFO

; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT)
;     (SB!C::DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) :TYPE-SPEC
;                             (OR SB!KERNEL:LAYOUT NULL) :DEFAULT
;                             (LAMBDA (SB!C::NAME)
;                               (LET ((CLASS #))
;                                 (WHEN CLASS (SB!KERNEL:CLASSOID-LAYOUT CLASS)))))
; ==>
;   (THE (OR SB!KERNEL:LAYOUT NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: LAYOUT

; in: DEFINE-INFO-TYPE (:FUNCTION :TYPE)
;     (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::WRITE-SLOTS
;      (SB!FASL::ALLOCATE-STRUCT SB!FASL::*DYNAMIC* SB!KERNEL:LAYOUT)
;      (SB!KERNEL:FIND-LAYOUT 'SB!C::META-INFO) :CATEGORY SB!C::CATEGORY :KIND
;      SB!C::KIND :TYPE-SPEC SB!C::TYPE-SPEC :TYPE-CHECKER SB!C::CHECKER
;      :VALIDATE-FUNCTION ...)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::WRITE-SLOTS
; 
; compilation unit finished
;   Undefined types:
;     ALIEN-TYPE FDEFN FUN-INFO HEAP-ALIEN-INFO LAYOUT
;   Undefined functions:
;     SB!FASL::ALLOCATE-STRUCT CLASSOID-LAYOUT SB!FASL::COLD-SVSET SB!FASL::COLD-SYMBOL-VALUE FIND-CLASSOID FIND-LAYOUT SPECIFIER-TYPE SB!FASL::WRITE-SLOTS
;   caught 17 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/globaldb.fasl-tmp written
; compilation finished in 0:00:03.400
; compiling file "/«PKGBUILDDIR»/src/compiler/info-functions.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN CHECK-FUN-NAME ...)
; compiling (DEFUN PROCLAIM-AS-FUN-NAME ...)
; compiling (DEFUN WARN-IF-SETF-MACRO ...)
; compiling (DEFUN UNDEFINE-FUN-NAME ...)
; compiling (DEFUN BECOME-DEFINED-FUN-NAME ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...)
; compiling (DEFUN SB-XC:MACRO-FUNCTION ...)
; compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...)
; compiling (DEFUN INSTALL-GUARD-FUNCTION ...)
; compiling (DEFUN FUN-LOCALLY-DEFINED-P ...)
; compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...)
; compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...)
; compiling (DEFUN FDOCUMENTATION ...)
; compiling (DEFUN (SETF FDOCUMENTATION) ...)
; compiling (DEFUN RANDOM-DOCUMENTATION ...)
; compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...)

; file: /«PKGBUILDDIR»/src/compiler/info-functions.lisp
; in: DEFUN FDOCUMENTATION
;     (SB!KERNEL:%FUN-DOC SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: %FUN-DOC

; in: DEFUN (SETF FDOCUMENTATION)
;     (SETF (SB!KERNEL:%FUN-DOC (FDEFINITION SB!C::NAME)) STRING)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:%FUN-DOC) #:NEW471 #:G472)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF %FUN-DOC)

; in: DEFUN CHECK-FUN-NAME
;     (SB!C:COMPILER-ERROR "illegal function name: ~S" SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN PROCLAIM-AS-FUN-NAME
;     (SB!C:COMPILER-STYLE-WARN "~S was previously defined as a macro." SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARN

; in: DEFUN FUN-LOCALLY-DEFINED-P
;     (SB!C::GLOBAL-VAR-P SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: GLOBAL-VAR-P

;     (SB!C::LEXENV-FUNS SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-FUNS

; in: DEFUN SB-XC:MACRO-FUNCTION
;     (SB!C::LEXENV-FUNS SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-FUNS

; in: DEFUN FDOCUMENTATION
;     (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: PACKAGE-DOC-STRING
; 
; compilation unit finished
;   Undefined functions:
;     %FUN-DOC (SETF %FUN-DOC) COMPILER-ERROR COMPILER-STYLE-WARN GLOBAL-VAR-P LEXENV-FUNS PACKAGE-DOC-STRING
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN EMITTED-FULL-CALL-COUNT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/info-functions.fasl-tmp written
; compilation finished in 0:00:00.741
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-macs.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFMACRO PAD-DATA-BLOCK ...)
; compiling (DEFUN REMOVE-KEYWORDS ...)
; compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...)
; compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...)
; compiling (DEFVAR *PRIMITIVE-OBJECTS* ...)
; compiling (DEFUN !%DEFINE-PRIMITIVE-OBJECT ...)
; compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...)
; compiling (DEFMACRO !DEFINE-PRIMITIVE-OBJECT ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEF-REFFER ...)
; compiling (DEFMACRO DEF-SETTER ...)
; compiling (DEFMACRO DEF-ALLOC ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...)
; compiling (DEFSTRUCT MODULAR-CLASS ...)
; compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...)
; compiling (DEFUN FIND-MODULAR-CLASS ...)
; compiling (DEFSTRUCT MODULAR-FUN-INFO ...)
; compiling (DEFUN FIND-MODULAR-VERSION ...)
; compiling (DEFUN MODULAR-VERSION-INFO ...)
; compiling (DEFUN %DEFINE-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-MODULAR-FUN ...)
; compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/vm-macs.lisp
; in: DEFUN %DEFINE-MODULAR-FUN
;     (SB!INT:STYLE-WARN "Redefining modular version ~S of ~S for ~
;                          ~:[un~;~]signed width ~S."
;      SB!C::NAME SB!C::PROTOTYPE SB!C::SIGNEDP SB!C::WIDTH)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined function:
;     STYLE-WARN
;   caught 1 STYLE-WARNING condition
; compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-macs.fasl-tmp written
; compilation finished in 0:00:02.376
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SINGLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (BINDING) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (THREAD) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/objdef.fasl-tmp written
; compilation finished in 0:00:01.202
; compiling file "/«PKGBUILDDIR»/src/compiler/sset.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...)
; compiling (DEFSTRUCT (SSET #) ...)
; compiling (DEFPRINTER (SSET) ...)
; compiling (DEFMACRO DO-SSET-ELEMENTS ...)
; compiling (DECLAIM (INLINE SSET-HASH1))
; compiling (DEFUN SSET-HASH1 ...)
; compiling (DECLAIM (INLINE SSET-HASH2))
; compiling (DEFUN SSET-HASH2 ...)
; compiling (DEFUN SSET-GROW ...)
; compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/sset.lisp
; in: DEFUN SSET-ADJOIN
;     (LOOP SB!C::WITH VECTOR = (SB!C::SSET-VECTOR SET)
;           SB!C::WITH SB!C::MASK SB!C::OF-TYPE FIXNUM = (1- (LENGTH VECTOR))
;           SB!C::WITH ...)
; --> BLOCK LET LET LET LET LET LET SB-LOOP::LOOP-BODY TAGBODY 
; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; --> PROGN 
; ==>
;   (SB-C::%TYPE-CHECK-ERROR/C #:G269 'SB-KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; compiling (DEFUN SSET-ADJOIN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-DELETE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-MEMBER ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET= ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-EMPTY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COPY-SSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-UNION ...)
; compiling (DEFUN SSET-INTERSECTION ...)
; compiling (DEFUN SSET-DIFFERENCE ...)
; compiling (DECLAIM (FTYPE # ...))
; 
; compilation unit finished
;   printed 1 note
; compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/sset.fasl-tmp written
; compilation finished in 0:00:01.094
; compiling file "/«PKGBUILDDIR»/src/compiler/node.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (CTRAN # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (LVAR # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (NODE (:CONSTRUCTOR NIL)
;              (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::NODE (:CONSTRUCTOR NIL)
;       (:INCLUDE SB!ASSEM:SSET-ELEMENT
;        (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;       (:COPIER NIL))
;      (SB!C::REOPTIMIZE T :TYPE BOOLEAN)
;      (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST)
;      (SB!C::TAIL-P NIL :TYPE BOOLEAN))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::NODE {53490771}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {524751D9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::NODE-LEXENV and SB!C::NODE-SOURCE-PATH could
;   not be inlined because the structure definition for SB!C::NODE was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (NODE # ...) ...)
; compiling (DEF!STRUCT (VALUED-NODE # ...) ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...)
; compiling (DEFATTR BLOCK-REOPTIMIZE)
; compiling (DEFATTR BLOCK-FLUSH-P)
; compiling (DEFATTR BLOCK-TYPE-CHECK)
; compiling (DEFATTR BLOCK-DELETE-P)
; compiling (DEFATTR BLOCK-TYPE-ASSERTED)
; compiling (DEFATTR BLOCK-TEST-MODIFIED)
; compiling (DEF!STRUCT (CBLOCK # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...)
; compiling (DEF!STRUCT (COMPONENT # ...) ...)
; compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...)
; compiling (DEFUN AVER-LIVE-COMPONENT ...)
; compiling (DEFUN LAMBDA-TOPLEVELISH-P ...)
; compiling (DEFUN COMPONENT-TOPLEVELISH-P ...)
; compiling (DEF!STRUCT (CLEANUP #) ...)
; compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...)
; compiling (DEF!STRUCT (PHYSENV #) ...)
; compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...)
; compiling (DEF!STRUCT (TAIL-SET) ...)
; compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...)
; compiling (DEF!STRUCT (NLX-INFO # ...) ...)
; compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...)
; compiling (DEF!STRUCT (LEAF # ...) ...)
; compiling (DEFUN LEAF-DYNAMIC-EXTENT ...)
; compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...)
; compiling (DEFUN LEAF-SOURCE-NAME ...)
; compiling (DEFUN LEAF-DEBUG-NAME ...)
; compiling (DEFUN LEAF-%DEBUG-NAME ...)
; compiling (DEF!STRUCT (CONSTANT # ...) ...)
; compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...)
; compiling (DEF!STRUCT (BASIC-VAR # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEF!STRUCT (GLOBAL-VAR (:INCLUDE BASIC-VAR))
;     (SB!INT:DEF!STRUCT (SB!C::GLOBAL-VAR (:INCLUDE SB!C::BASIC-VAR))
;                        (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE
;                         (MEMBER :SPECIAL :GLOBAL-FUNCTION :GLOBAL :UNKNOWN)))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::GLOBAL-VAR {52ED0EF1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {539C7179}>
;       #<SB-KERNEL:LAYOUT for SB!C::LEAF {51F12239}>
;       #<SB-KERNEL:LAYOUT for SB!C::BASIC-VAR {52C213C9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::GLOBAL-VAR-P could not be inlined because the
;   structure definition for SB!C::GLOBAL-VAR was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (GLOBAL-VAR #) ...)
; compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...)
; compiling (DEF!STRUCT (DEFINED-FUN #) ...)
; compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (FUNCTIONAL
;              (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED)
;               (TYPE (SPECIFIER-TYPE 'FUNCTION))))
;     (SB!INT:DEF!STRUCT
;      (SB!C::FUNCTIONAL
;       (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;        (SB!C::WHERE-FROM :DEFINED) (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))))
;      (SB!C::%DEBUG-NAME NIL :TYPE
;       (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T)
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET
;               :MV-LET :ASSIGNMENT :ZOMBIE ...))
;      (SB!C::HAS-EXTERNAL-REFERENCES-P NIL)
;      (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL))
;      (SB!C::INLINEP NIL :TYPE SB!C::INLINEP)
;      (SB!C::INLINE-EXPANSION NIL :TYPE LIST)
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED)))
;      (DOCUMENTATION NIL :TYPE (OR NULL STRING))
;      (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::FUNCTIONAL {51D7A971}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {539C7179}>
;       #<SB-KERNEL:LAYOUT for SB!C::LEAF {53EB4309}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::FUNCTIONAL-P and
;   SB!C::FUNCTIONAL-%DEBUG-NAME could not be inlined because the structure
;   definition for SB!C::FUNCTIONAL was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (FUNCTIONAL #) ...)
; compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...)
; compiling (DEFUN FUNCTIONAL-LETLIKE-P ...)
; compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...)
; compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-)
;              (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;       (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;       (:COPIER SB!C::COPY-LAMBDA))
;      (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;      (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;      (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;      (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;      (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST)
;      (SB!C::ENTRIES NIL :TYPE LIST)
;      (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;      (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;      (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::CLAMBDA {52E0F759}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {539C7179}>
;       #<SB-KERNEL:LAYOUT for SB!C::LEAF {53EB4309}>
;       #<SB-KERNEL:LAYOUT for SB!C::FUNCTIONAL {51DFFA69}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::LAMBDA-KIND and
;   SB!C::LAMBDA-HAS-EXTERNAL-REFERENCES-P could not be inlined because the
;   structure definition for SB!C::CLAMBDA was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (CLAMBDA # ...) ...)
; compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...)
; compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...)
; compiling (DEF!STRUCT ARG-INFO ...)
; compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...)
; compiling (DEF!STRUCT (LAMBDA-VAR #) ...)
; compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...)
; compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...)
; compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...)
; compiling (DEFMACRO LAMBDA-VAR-DELETED ...)
; compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...)
; compiling (DEF!STRUCT (REF # ...) ...)
; compiling (DEFPRINTER (REF :IDENTITY ...) ...)
; compiling (DEF!STRUCT (CIF # ...) ...)
; compiling (DEFPRINTER (CIF :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (CSET # ...) ...)
; compiling (DEFPRINTER (CSET :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...)
; compiling (DEF!STRUCT (COMBINATION # ...))
; compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...)
; compiling (DEF!STRUCT (MV-COMBINATION # ...))
; compiling (DEFPRINTER (MV-COMBINATION) ...)
; compiling (DEF!STRUCT (BIND # ...) ...)
; compiling (DEFPRINTER (BIND) ...)
; compiling (DEF!STRUCT (CRETURN # ...) ...)
; compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (CAST # ...) ...)
; compiling (DEFPRINTER (CAST :IDENTITY ...) ...)
; compiling (DEF!STRUCT (ENTRY # ...) ...)
; compiling (DEFPRINTER (ENTRY :IDENTITY ...))
; compiling (DEF!STRUCT (EXIT # ...) ...)
; compiling (DEFPRINTER (EXIT :IDENTITY ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (UNDEFINED-WARNING
;              (:PRINT-OBJECT (LAMBDA (X S) (PRINT-UNREADABLE-OBJECT # #)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::UNDEFINED-WARNING
;       (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #)))
;       (:COPIER NIL))
;      (SB!C::NAME NIL :TYPE (OR SYMBOL LIST))
;      (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE (MEMBER :FUNCTION :TYPE :VARIABLE))
;      (COUNT 0 :TYPE UNSIGNED-BYTE) (SB!C::WARNINGS NIL :TYPE LIST))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::UNDEFINED-WARNING {532FB959}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::UNDEFINED-WARNING-NAME and
;   SB!C::UNDEFINED-WARNING-KIND could not be inlined because the structure
;   definition for SB!C::UNDEFINED-WARNING was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (DEFUN SB!C::%COERCE-TO-POLICY (SB!C::THING)
;       (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;             (SB!C::THING (SB!C::LEXENV-POLICY (ETYPECASE SB!C::THING # # #)))
;             (T SB!C::**BASELINE-POLICY**)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::%COERCE-TO-POLICY
;         (SB!C::THING)
;       (BLOCK SB!C::%COERCE-TO-POLICY
;         (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;               (SB!C::THING (SB!C::LEXENV-POLICY #))
;               (T SB!C::**BASELINE-POLICY**))))
; 
; note: type assertion too complex to check:
;  (VALUES POLICY &REST T).
; compiling (DEFUN %COERCE-TO-POLICY ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in:
;      DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START))
;              (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;       (:PREDICATE SB!C::BLOCK-P))
;      (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST)
;      (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;      (LAST NIL :TYPE (OR SB!C::NODE NULL))
;      (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::FLAGS
;       (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                               SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;       :TYPE SB!C:ATTRIBUTES)
;      (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;        (:PREDICATE SB!C::BLOCK-P))
;     (SB!C::PRED NIL :TYPE LIST)
;     (SB!C::SUCC NIL :TYPE LIST)
;     (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;     (LAST NIL :TYPE (OR SB!C::NODE NULL))
;     (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::FLAGS
;      (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                              SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;      :TYPE SB!C:ATTRIBUTES)
;     (SB!C::KILL NIL)
;     (SB!C::GEN NIL)
;     (SB!C::IN NIL)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in: DEF!METHOD PRINT-OBJECT
;     (SB!C::CONT-NUM (SB!C::BLOCK-START SB!C::CBLOCK))
; 
; caught STYLE-WARNING:
;   undefined function: CONT-NUM

;     (SB!C::CONT-NUM SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: CONT-NUM
; 
; caught STYLE-WARNING:
;   undefined function: CONT-NUM

; in:
;      DEF!STRUCT (CONSTANT
;              (:CONSTRUCTOR MAKE-CONSTANT
;               (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.)
;                (WHERE-FROM :DEFINED)))
;              (:INCLUDE LEAF))
;     (SB!KERNEL:CTYPE-OF SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in:
;      DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (TRULY-THE (OR SB!C::FUN-INFO NULL)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!C::MV-COMBINATION SB-KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (TRULY-THE (OR SB!C::FUN-INFO NULL)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!C::COMBINATION SB-KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL)
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;       (:COPIER NIL))
;      (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;      (SB!C::ARGS NIL :TYPE LIST)
;      (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;      (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;      (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;        (:COPIER NIL))
;     (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;     (SB!C::ARGS NIL :TYPE LIST)
;     (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;     (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;     (SB!C::TYPE-VALIDATED-FOR-LEAF NIL)
;     (SB!INT:INFO NIL)
;     (SB!C::STEP-INFO))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: DEFUN AVER-LIVE-COMPONENT
;     (SB!C:COMPONENT-INFO SB!C:COMPONENT)
; ==>
;   (TRULY-THE (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))
;              (SB-KERNEL:%INSTANCE-REF (THE SB!C:COMPONENT SB!C:COMPONENT) 10))
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT

; in:
;      DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-)
;              (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;       (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;       (:COPIER SB!C::COPY-LAMBDA))
;      (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;      (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;      (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;      (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;      (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST)
;      (SB!C::ENTRIES NIL :TYPE LIST)
;      (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;      (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;      (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;        (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;        (:COPIER SB!C::COPY-LAMBDA))
;     (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;     (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;     (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;     (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;     (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL))
;     (SB!C::LETS NIL :TYPE LIST)
;     (SB!C::ENTRIES NIL :TYPE LIST)
;     (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;     (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;     (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; in:
;      DEF!STRUCT (FUNCTIONAL
;              (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED)
;               (TYPE (SPECIFIER-TYPE 'FUNCTION))))
;     (SB!INT:DEF!STRUCT
;      (SB!C::FUNCTIONAL
;       (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;        (SB!C::WHERE-FROM :DEFINED) (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))))
;      (SB!C::%DEBUG-NAME NIL :TYPE
;       (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T)
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET
;               :MV-LET :ASSIGNMENT :ZOMBIE ...))
;      (SB!C::HAS-EXTERNAL-REFERENCES-P NIL)
;      (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL))
;      (SB!C::INLINEP NIL :TYPE SB!C::INLINEP)
;      (SB!C::INLINE-EXPANSION NIL :TYPE LIST)
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED)))
;      (DOCUMENTATION NIL :TYPE (OR NULL STRING))
;      (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::FUNCTIONAL
;        (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;         (SB!C::WHERE-FROM :DEFINED)
;         (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))))
;     (SB!C::%DEBUG-NAME NIL :TYPE
;      (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T)
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET
;              :MV-LET :ASSIGNMENT :ZOMBIE ...))
;     (SB!C::HAS-EXTERNAL-REFERENCES-P NIL)
;     (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL))
;     (SB!C::INLINEP NIL :TYPE SB!C::INLINEP)
;     (SB!C::INLINE-EXPANSION NIL :TYPE LIST)
;     (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;     (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED)))
;     (DOCUMENTATION NIL :TYPE (OR NULL STRING))
;     (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; in:
;      DEF!STRUCT (NODE (:CONSTRUCTOR NIL)
;              (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::NODE (:CONSTRUCTOR NIL)
;       (:INCLUDE SB!ASSEM:SSET-ELEMENT
;        (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;       (:COPIER NIL))
;      (SB!C::REOPTIMIZE T :TYPE BOOLEAN)
;      (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST)
;      (SB!C::TAIL-P NIL :TYPE BOOLEAN))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::NODE (:CONSTRUCTOR NIL)
;        (:INCLUDE SB!ASSEM:SSET-ELEMENT
;         (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;        (:COPIER NIL))
;     (SB!C::REOPTIMIZE T :TYPE BOOLEAN)
;     (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL))
;     (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL))
;     (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;     (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST)
;     (SB!C::TAIL-P NIL :TYPE BOOLEAN))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; 
; caught STYLE-WARNING:
;   192 more uses of undefined type LEXENV


; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (SB!C::LEXENV-POLICY
;      (ETYPECASE SB!C::THING
;        (SB!KERNEL:LEXENV SB!C::THING)
;        (SB!C::NODE (SB!C::NODE-LEXENV SB!C::THING))
;        (SB!C::FUNCTIONAL (SB!C::FUNCTIONAL-LEXENV SB!C::THING))))
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-POLICY

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LOOP

; in:
;      DEF!STRUCT (CSET
;              (:INCLUDE VALUED-NODE
;               (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*)))
;              (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...)
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL))
;              (:CONSTRUCTOR MAKE-REF
;               (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #)
;                ...))
;              (:COPIER NIL))
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (NLX-INFO
;              (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #)))
;              (:MAKE-LOAD-FORM-FUN IGNORE-IT))
;     (SB!C::NODE-BLOCK SB!EXT:EXIT)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-BLOCK

; in: DEF!STRUCT (OPTIONAL-DISPATCH (:INCLUDE FUNCTIONAL))
;     (SB!INT:DEF!STRUCT (SB!C::OPTIONAL-DISPATCH (:INCLUDE SB!C::FUNCTIONAL))
;                        (SB!C::ARGLIST NIL :TYPE LIST)
;                        (SB!C::ALLOWP NIL :TYPE BOOLEAN)
;                        (SB!C::KEYP NIL :TYPE BOOLEAN)
;                        (SB!C::MIN-ARGS 0 :TYPE UNSIGNED-BYTE)
;                        (SB!C::MAX-ARGS 0 :TYPE UNSIGNED-BYTE)
;                        (SB!C::ENTRY-POINTS NIL :TYPE LIST)
;                        (SB!C::MORE-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL))
;                        (SB!C::MAIN-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL)))
; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION IF 
; ==>
;   (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in:
;      DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-)
;              (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;       (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;       (:COPIER SB!C::COPY-LAMBDA))
;      (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;      (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;      (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;      (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;      (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST)
;      (SB!C::ENTRIES NIL :TYPE LIST)
;      (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;      (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;      (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...)
; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION IF 
; ==>
;   (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in:
;      DEF!STRUCT (FUNCTIONAL
;              (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED)
;               (TYPE (SPECIFIER-TYPE 'FUNCTION))))
;     (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in:
;      DEF!STRUCT (CONSTANT
;              (:CONSTRUCTOR MAKE-CONSTANT
;               (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.)
;                (WHERE-FROM :DEFINED)))
;              (:INCLUDE LEAF))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:CONSTANT
;       (:CONSTRUCTOR SB!C::MAKE-CONSTANT
;        (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;         (SB!C::WHERE-FROM :DEFINED)))
;       (:INCLUDE SB!C::LEAF))
;      (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T)
;      (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN)))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!KERNEL:CONSTANT
;        (:CONSTRUCTOR SB!C::MAKE-CONSTANT
;         (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;          (SB!C::WHERE-FROM :DEFINED)))
;        (:INCLUDE SB!C::LEAF))
;     (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T)
;     (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN)))
; 
; caught STYLE-WARNING:
;   undefined type: TN
; 
; compilation unit finished
;   Undefined types:
;     CLOOP FUN-INFO IR2-COMPONENT LEXENV TN
;   Undefined functions:
;     CONT-NUM CTYPE-OF LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE
;   caught 29 STYLE-WARNING conditions
;   printed 1 note
; compiling (DECLAIM (FREEZE-TYPE NODE ...))

; /«PKGBUILDDIR»/obj/from-host/src/compiler/node.fasl-tmp written
; compilation finished in 0:00:25.867
; compiling file "/«PKGBUILDDIR»/src/compiler/vop.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...)
; compiling (DEFTYPE LOCAL-TN-NUMBER ...)
; compiling (DEFTYPE LOCAL-TN-COUNT ...)
; compiling (DEFTYPE LOCAL-TN-VECTOR ...)
; compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...)
; compiling (DEFTYPE SC-NUMBER ...)
; compiling (DEFTYPE SC-VECTOR ...)
; compiling (DEFTYPE SC-BIT-VECTOR ...)
; compiling (DEFTYPE LTN-POLICY ...)
; compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...)
; compiling (DEFPRINTER (PRIMITIVE-TYPE) ...)
; compiling (DEFSTRUCT (IR2-BLOCK # ...) ...)
; compiling (DEFPRINTER (IR2-BLOCK) ...)
; compiling (DEFSTRUCT (IR2-LVAR # ...) ...)
; compiling (DEFPRINTER (IR2-LVAR) ...)
; compiling (DEFSTRUCT (IR2-COMPONENT #) ...)
; compiling (DEFSTRUCT (ENTRY-INFO #) ...)
; compiling (DEFSTRUCT (IR2-PHYSENV #) ...)
; compiling (DEFPRINTER (IR2-PHYSENV) ...)
; compiling (DEFSTRUCT (RETURN-INFO #) ...)
; compiling (DEFPRINTER (RETURN-INFO) ...)
; compiling (DEFSTRUCT (IR2-NLX-INFO #) ...)
; compiling (DEFPRINTER (IR2-NLX-INFO) ...)
; compiling (DEFSTRUCT (CLOOP # ...) ...)
; compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (VOP # ...) ...)
; compiling (DEFPRINTER (VOP) ...)
; compiling (DEF!STRUCT (TN-REF # ...) ...)
; compiling (DEFPRINTER (TN-REF) ...)
; compiling (DEF!STRUCT (TEMPLATE #) ...)
; compiling (DEFPRINTER (TEMPLATE) ...)

; file: /«PKGBUILDDIR»/src/compiler/vop.lisp
; in:
;      DEF!STRUCT (VOP-INFO (:INCLUDE TEMPLATE) (:MAKE-LOAD-FORM-FUN IGNORE-IT))
;     (SB!INT:DEF!STRUCT
;      (SB!C::VOP-INFO (:INCLUDE SB!C::TEMPLATE)
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT))
;      (SB!C::EFFECTS (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES)
;      (SB!C::AFFECTED (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES)
;      (SB!C::SAVE-P NIL :TYPE (MEMBER T NIL :FORCE-TO-STACK :COMPUTE-ONLY))
;      (SB!C::MOVE-ARGS NIL :TYPE
;       (MEMBER NIL :FULL-CALL :LOCAL-CALL :KNOWN-RETURN))
;      (SB!C::ARG-COSTS NIL :TYPE LIST) (SB!C::RESULT-COSTS NIL :TYPE LIST)
;      (SB!C::MORE-ARG-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL))
;      (SB!C::MORE-RESULT-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL))
;      (SB!C::ARG-LOAD-SCS NIL :TYPE LIST) (SB!C::RESULT-LOAD-SCS NIL :TYPE LIST)
;      ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::VOP-INFO {5428D911}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!C::TEMPLATE {53E1F319}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::VOP-INFO-NAME could not be inlined because
;   the structure definition for SB!C::VOP-INFO was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (VOP-INFO # ...) ...)
; compiling (DEF!STRUCT (SB #) ...)
; compiling (DEFPRINTER (SB) ...)
; compiling (DEF!STRUCT (FINITE-SB #) ...)
; compiling (DEF!STRUCT (SC #) ...)
; compiling (DEFPRINTER (SC) ...)
; compiling (DEF!STRUCT (TN # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/vop.lisp
; in: DEFSTRUCT IR2-NLX-INFO
;     (SB!ASSEM:GEN-LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: GEN-LABEL

;     (DEFSTRUCT (SB!C::IR2-NLX-INFO (:COPIER NIL))
;       (SB!C::HOME NIL :TYPE (OR SB!C:TN NULL))
;       (SB!C::SAVE-SP (SB!INT:MISSING-ARG) :TYPE SB!C:TN)
;       (SB!C::DYNAMIC-STATE
;        (LIST* (SB!C:MAKE-STACK-POINTER-TN) (SB!C:MAKE-DYNAMIC-STATE-TNS)) :TYPE
;        LIST)
;       (SB!C::TARGET (SB!ASSEM:GEN-LABEL) :TYPE SB!ASSEM:LABEL))
; 
; caught STYLE-WARNING:
;   undefined type: LABEL

; in: DEFSTRUCT IR2-PHYSENV
;     (DEFSTRUCT (SB!C::IR2-PHYSENV (:COPIER NIL))
;       (SB!KERNEL:CLOSURE (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T)
;       (SB!C::OLD-FP NIL :TYPE (OR SB!C:TN NULL))
;       (SB!C::RETURN-PC NIL :TYPE (OR SB!C:TN NULL))
;       (SB!C::RETURN-PC-PASS (SB!INT:MISSING-ARG) :TYPE SB!C:TN :READ-ONLY T)
;       (SB!C::NUMBER-STACK-P NIL :TYPE BOOLEAN)
;       (SB!C::LIVE-TNS NIL :TYPE LIST)
;       (SB!C::DEBUG-LIVE-TNS NIL :TYPE LIST)
;       (SB!C::ELSEWHERE-START NIL :TYPE (OR SB!ASSEM:LABEL NULL))
;       (SB!C::ENVIRONMENT-START NIL :TYPE (OR SB!ASSEM:LABEL NULL))
;       (SB!C::CLOSURE-SAVE-TN NIL :TYPE (OR SB!C:TN NULL))
;       ...)
; --> PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (TRULY-THE (OR SB!ASSEM:LABEL NULL)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!C::IR2-PHYSENV SB-KERNEL:INSTANCE) 8))
; 
; caught STYLE-WARNING:
;   undefined type: LABEL

; in: DEFSTRUCT ENTRY-INFO
;     (DEFSTRUCT (SB!C::ENTRY-INFO (:COPIER NIL))
;       (SB!C::CLOSURE-TN NIL :TYPE (OR NULL SB!C:TN))
;       (SB!C::OFFSET NIL :TYPE (OR SB!ASSEM:LABEL NULL))
;       (SB!C::NAME "<not computed>" :TYPE (OR SIMPLE-STRING LIST SYMBOL))
;       (SB!C::ARGUMENTS NIL :TYPE LIST)
;       (TYPE 'FUNCTION :TYPE (OR LIST (MEMBER FUNCTION)))
;       (SB!INT:INFO NIL :TYPE
;                    (OR NULL SIMPLE-VECTOR STRING (CONS STRING SIMPLE-VECTOR))))
; 
; caught STYLE-WARNING:
;   undefined type: LABEL

; in: DEFSTRUCT IR2-NLX-INFO
;     (SB!C:MAKE-DYNAMIC-STATE-TNS)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-DYNAMIC-STATE-TNS

;     (SB!C:MAKE-STACK-POINTER-TN)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-STACK-POINTER-TN

; in: DEF!METHOD PRINT-OBJECT
;     (SB!C::PRINT-TN-GUTS SB!C:TN STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-TN-GUTS
; 
; compilation unit finished
;   Undefined type:
;     LABEL
;   Undefined functions:
;     GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN PRINT-TN-GUTS
;   caught 8 STYLE-WARNING conditions
; compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/vop.fasl-tmp written
; compilation finished in 0:00:12.080
; compiling file "/«PKGBUILDDIR»/src/compiler/backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFVAR *BACKEND-BYTE-ORDER*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *BACKEND-SC-NUMBERS* ...)
; compiling (DECLAIM (TYPE SC-VECTOR ...))
; compiling (DEFVAR *BACKEND-SB-LIST* ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-SC-NAMES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*)
; compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...))
; compiling (DEFVAR *BACKEND-PARSED-VOPS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...)
; compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *BACKEND-SUBFEATURES* ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/backend.fasl-tmp written
; compilation finished in 0:00:00.051
; compiling file "/«PKGBUILDDIR»/src/compiler/vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN TEMPLATE-OR-LOSE ...)
; compiling (DEFUN SC-OR-LOSE ...)
; compiling (DEFUN SB-OR-LOSE ...)
; compiling (DEFUN SC-NUMBER-OR-LOSE ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...)
; compiling (DEFUN COMPUTE-MOVE-COSTS ...)
; compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...)
; compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...)
; compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *VOP-TN-REFS* ...)
; compiling (DEF!CONSTANT SC-BITS ...)
; compiling (DEFUN EMIT-VOP ...)
; compiling (DEFUN ADJOIN-TEMPLATE ...)
; compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P))
; compiling (DEFUN TEMPLATE-CONDITIONAL-P ...)

; file: /«PKGBUILDDIR»/src/compiler/vmdef.lisp
; in: DEFUN EMIT-VOP
;     (SB!C:MAKE-RESTRICTED-TN NIL (ASH SB!C::TEMP -1))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-RESTRICTED-TN

;     (SB!C:MAKE-WIRED-TN NIL (SB-XC:LDB (SB-XC:BYTE SB!C::SC-BITS 1) SB!C::TEMP)
;      (ASH SB!C::TEMP (- (1+ SB!C::SC-BITS))))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-WIRED-TN

;     (SB!C::REFERENCE-TN SB!C:TN NIL)
; 
; caught STYLE-WARNING:
;   undefined function: REFERENCE-TN

;     (SB!REGALLOC:TARGET-IF-DESIRABLE
;      (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 8) SB!C::TARGET))
;      (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 0) SB!C::TARGET)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!REGALLOC:TARGET-IF-DESIRABLE
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN SB!REGALLOC:TARGET-IF-DESIRABLE
;   caught 4 STYLE-WARNING conditions
; compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/vmdef.fasl-tmp written
; compilation finished in 0:00:00.796
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/backend-parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...)
; compiling (SETF *BACKEND-BYTE-ORDER* ...)
; compiling (SETF *BACKEND-PAGE-BYTES* ...)
; compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...)
; compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...)
; compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/backend-parms.fasl-tmp written
; compilation finished in 0:00:00.030
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangconstants.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (FORCE-DELAYED-DEF!CONSTANTS)

; /«PKGBUILDDIR»/obj/from-host/src/code/force-delayed-defbangconstants.fasl-tmp written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/src/code/defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...)
; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; compiling (DEF (:COMPILE-TOPLEVEL) ...)
; compiling (DEFMACRO SB-XC:DEFMACRO ...)
; compiling (SB-XC:DEFMACRO DEFMACRO ...)

; file: /«PKGBUILDDIR»/src/code/defmacro.lisp
; in: MACROLET ((DEF (TIMES SET-P) (QUASIQUOTE (EVAL-WHEN # #))))
;     (MACROLET ((SB!IMPL::DEF (SB!IMPL::TIMES SB!IMPL::SET-P)
;                  (SB!INT:QUASIQUOTE (EVAL-WHEN # #))))
;       (PROGN
;        (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL)
;        (SB!IMPL::DEF (:COMPILE-TOPLEVEL) NIL)))
; --> BLOCK LET SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN IF PROGN 
; ==>
;   (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~
;                      previously ~(~A~) to be a function."
;    SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEF (:LOAD-TOPLEVEL :EXECUTE)
;     (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL)
; --> EVAL-WHEN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN 
; --> IF PROGN 
; ==>
;   (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~
;                      previously ~(~A~) to be a function."
;    SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined function:
;     STYLE-WARN
;   caught 2 STYLE-WARNING conditions
; compiling (DEF!MACRO DEFMACRO-MUNDANELY ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defmacro.fasl-tmp written
; compilation finished in 0:00:00.272
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangmacros.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (FORCE-DELAYED-DEF!MACROS)

; /«PKGBUILDDIR»/obj/from-host/src/code/force-delayed-defbangmacros.fasl-tmp written
; compilation finished in 0:00:00.009
; in: SB-XC:DEFMACRO DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition

; compiling file "/«PKGBUILDDIR»/src/compiler/late-macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (SB-XC:DEFMACRO DELETEF-IN ...)
; compiling (SB-XC:DEFMACRO PUSH-IN ...)

; file: /«PKGBUILDDIR»/src/compiler/late-macros.lisp
; in: SB-XC:DEFMACRO PUSH-IN
;     (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION

; in: SB-XC:DEFMACRO DELETEF-IN
;     (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 2 STYLE-WARNING conditions
; compiling (DEFMACRO-MUNDANELY !DEF-BOOLEAN-ATTRIBUTE-SETTER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/late-macros.fasl-tmp written
; compilation finished in 0:00:00.177
; compiling file "/«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-STORAGE-BASE ...)
; compiling (DEFMACRO DEFINE-STORAGE-CLASS ...)
; compiling (DEFMACRO DO-SC-PAIRS ...)
; compiling (DEFMACRO DEFINE-MOVE-FUN ...)
; compiling (DEFPARAMETER *SC-VOP-SLOTS* ...)
; compiling (DEFMACRO DEFINE-MOVE-VOP ...)
; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...)
; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...)
; compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...)
; compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...)

; file: /«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp
; in: DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY))
;     (SB!INT:DEF!STRUCT
;      (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY))
;      (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL))
;      (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST)
;      (SB!C::TEMPS NIL :TYPE LIST)
;      (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL))
;      (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL))
;      (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST)
;      (SB!C::CONDITIONAL-P NIL) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::VOP-PARSE {52D6B5C1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::VOP-PARSE-COST could not be inlined because
;   the structure definition for SB!C::VOP-PARSE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (VOP-PARSE #) ...)
; compiling (DEFPRINTER (VOP-PARSE) ...)
; compiling (DEF!STRUCT (OPERAND-PARSE #) ...)
; compiling (DEFPRINTER (OPERAND-PARSE) ...)
; compiling (DEFUN FIND-OPERAND ...)
; compiling (DEFUN VOP-PARSE-OR-LOSE ...)
; compiling (DEFUN ACCESS-OPERANDS ...)
; compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...)
; compiling (DEFUN VOP-SPEC-ARG ...)
; compiling (DEFUN PARSE-TIME-SPEC ...)
; compiling (DEFUN TIME-SPEC-ORDER ...)
; compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...)
; compiling (DEFUN COMPUTE-REF-ORDERING ...)
; compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...)
; compiling (DEFUN FIND-MOVE-FUNS ...)
; compiling (DEFUN CALL-MOVE-FUN ...)
; compiling (DEFUN DECIDE-TO-LOAD ...)
; compiling (DEFUN MAKE-GENERATOR-FUNCTION ...)
; compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*)
; compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...)
; compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...)
; compiling (DEFUN PARSE-VOP-OPERANDS ...)
; compiling (DEFUN PARSE-TEMPORARY ...)
; compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...)
; compiling (DEFUN PARSE-DEFINE-VOP ...)
; compiling (DEFUN COMPUTE-LOADING-COSTS ...)
; compiling (DEFPARAMETER *NO-COSTS* ...)
; compiling (DEFPARAMETER *NO-LOADS* ...)
; compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...)
; compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...)
; compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...)
; compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...)
; compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...)
; compiling (DEFUN CHECK-OPERAND-TYPES ...)
; compiling (DEFUN GROVEL-VOP-OPERANDS ...)
; compiling (DEFUN SET-UP-FUN-TRANSLATION ...)
; compiling (DEFUN MAKE-OPERAND-TYPE ...)
; compiling (DEFUN SPECIFY-OPERAND-TYPES ...)
; compiling (DEFUN MAKE-VOP-INFO-TYPES ...)
; compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...)
; compiling (DEFMACRO INHERIT-VOP-INFO ...)
; compiling (DEFUN SET-UP-VOP-INFO ...)
; compiling (DEF!MACRO DEFINE-VOP ...)
; compiling (DEFUN STORE-VOP-INFO ...)
; compiling (DEFUN MAKE-OPERAND-LIST ...)
; compiling (DEFMACRO EMIT-TEMPLATE ...)
; compiling (DEFMACRO VOP ...)
; compiling (DEFMACRO VOP* ...)
; compiling (DEF!MACRO SC-CASE ...)
; compiling (DEFMACRO SC-IS ...)
; compiling (DEFMACRO DO-IR2-BLOCKS ...)
; compiling (DEFMACRO DO-LIVE-TNS ...)

; file: /«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp
; in: DEFUN STORE-VOP-INFO
;     (SB!KERNEL:SPECIFIER-TYPE SB!C::MY-TYPE-SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

;     (SB!KERNEL:TYPE= (SB!C::VOP-INFO-TYPE SB!C::OTHER) SB!C::MY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=
; 
; compilation unit finished
;   Undefined functions:
;     SPECIFIER-TYPE TYPE=
;   caught 3 STYLE-WARNING conditions
; compiling (DEFMACRO DO-PHYSENV-IR2-BLOCKS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/meta-vmdef.fasl-tmp written
; compilation finished in 0:00:07.066
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFVAR *REGISTER-NAMES* ...)
; compiling (DEFREG R0 ...)
; compiling (DEFREG R1 ...)
; compiling (DEFREG R2 ...)
; compiling (DEFREG LEXENV ...)
; compiling (DEFREG NL2 ...)
; compiling (DEFREG CODE ...)
; compiling (DEFREG NL3 ...)
; compiling (DEFREG OCFP ...)
; compiling (DEFREG R8 ...)
; compiling (DEFREG NFP ...)
; compiling (DEFREG NULL ...)
; compiling (DEFREG CFP ...)
; compiling (DEFREG NARGS ...)
; compiling (DEFREG NSP ...)
; compiling (DEFREG LR ...)
; compiling (DEFREG PC ...)
; compiling (DEFREGSET SYSTEM-REGS ...)
; compiling (DEFREGSET DESCRIPTOR-REGS ...)
; compiling (DEFREGSET NON-DESCRIPTOR-REGS ...)
; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...)
; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...)
; compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...)
; compiling (DEFINE-STORAGE-BASE REGISTERS ...)
; compiling (DEFINE-STORAGE-BASE CONTROL-STACK ...)
; compiling (DEFINE-STORAGE-BASE NON-DESCRIPTOR-STACK ...)
; compiling (DEFINE-STORAGE-BASE CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...)
; compiling (DEFMACRO DEFINE-STORAGE-CLASSES ...)
; compiling (DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...)
; compiling (DEFREGTN NULL ...)
; compiling (DEFREGTN CODE ...)
; compiling (DEFREGTN NARGS ...)
; compiling (DEFREGTN OCFP ...)
; compiling (DEFREGTN NSP ...)
; compiling (DEFREGTN CFP ...)
; compiling (DEFREGTN LR ...)
; compiling (DEFREGTN PC ...)
; compiling (DEFUN IMMEDIATE-CONSTANT-SC ...)
; compiling (DEFUN BOXED-IMMEDIATE-SC-P ...)
; compiling (DEF!CONSTANT REGISTER-ARG-SCN ...)
; compiling (DEF!CONSTANT IMMEDIATE-ARG-SCN ...)
; compiling (DEF!CONSTANT CONTROL-STACK-ARG-SCN ...)
; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT NFP-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...)
; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...)
; compiling (DEFUN LOCATION-PRINT-NAME ...)
; compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/vm.lisp
; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE
;     (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME

;     (SB!KERNEL:SPECIFIER-TYPE
;      (SB!INT:QUASIQUOTE
;       (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0)
;        #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0))))
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in: DEFUN IMMEDIATE-CONSTANT-SC
;     (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: STATIC-SYMBOL-P

; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE
;     (SB!C::VALID-FUN-USE SB!VM::NODE
;      (SB!KERNEL:SPECIFIER-TYPE
;       (SB!INT:QUASIQUOTE
;        (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0)
;         #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0)))))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::VALID-FUN-USE
; 
; compilation unit finished
;   Undefined functions:
;     SB!C::COMBINATION-FUN-SOURCE-NAME SPECIFIER-TYPE STATIC-SYMBOL-P SB!C::VALID-FUN-USE
;   caught 4 STYLE-WARNING conditions
; compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/vm.fasl-tmp written
; compilation finished in 0:00:01.972
; compiling file "/«PKGBUILDDIR»/src/code/xset.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DECLAIM (INLINE ALLOC-XSET ...))
; compiling (DEFSTRUCT (XSET # ...) ...)
; compiling (DEFUN XSET-COUNT ...)
; compiling (DEFUN MAP-XSET ...)
; compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...)
; compiling (DEFUN ADD-TO-XSET ...)
; compiling (DEFUN XSET-FROM-LIST ...)
; compiling (DEFUN XSET-UNION ...)
; compiling (DEFUN XSET-MEMBER-P ...)
; compiling (DEFUN XSET-MEMBERS ...)
; compiling (DEFUN XSET-INTERSECTION ...)
; compiling (DEFUN XSET-SUBSET-P ...)
; compiling (DECLAIM (INLINE XSET-EMPTY-P))
; compiling (DEFUN XSET-EMPTY-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/xset.fasl-tmp written
; compilation finished in 0:00:00.460
; compiling file "/«PKGBUILDDIR»/src/code/early-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS HAIRY ...)
; compiling (DEFSTRUCT (UNKNOWN-TYPE # ...))
; compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...)
; compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...)
; compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS NEGATION ...)
; compiling (DEFSTRUCT (ARGS-TYPE # ...) ...)
; compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...)
; compiling (DEFUN PARSE-ARGS-TYPES ...)
; compiling (DEFSTRUCT (VALUES-TYPE # ...))
; compiling (DECLAIM (INLINE VALUES-TYPE-P))
; compiling (DEFUN VALUES-TYPE-P ...)
; compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...)
; compiling (DEFUN MAKE-VALUES-TYPE ...)
; compiling (!DEFINE-TYPE-CLASS VALUES ...)
; compiling (DEFSTRUCT (FUN-TYPE # ...) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFGLOBAL *INTERNED-FUN-TYPES* ...)
; compiling (DEFUN !INTERN-IMPORTANT-FUN-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-FUN-TYPE ...)
; compiling (DEFSTRUCT (CONSTANT-TYPE # ...) ...)
; compiling (DEFSTRUCT (NAMED-TYPE # ...) ...)
; compiling (DEFPARAMETER *FLOAT-FORMATS* ...)
; compiling (DEFTYPE FLOAT-FORMAT ...)
; compiling (DEFSTRUCT (NUMERIC-TYPE # ...) ...)
; compiling (DEFGLOBAL *UNSIGNED-BYTE-TYPE* ...)
; compiling (DEFGLOBAL *INTEGER-TYPE* ...)
; compiling (DEFGLOBAL *UNSIGNED-BYTE-N-TYPES* ...)
; compiling (DEFGLOBAL *SIGNED-BYTE-N-TYPES* ...)
; compiling (DEFGLOBAL *REAL-FFLOAT-TYPE* ...)
; compiling (DEFGLOBAL *REAL-DFLOAT-TYPE* ...)
; compiling (DEFGLOBAL *COMPLEX-FFLOAT-TYPE* ...)
; compiling (DEFGLOBAL *COMPLEX-DFLOAT-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-NUMERIC-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-NUMERIC-TYPE ...)
; compiling (DEFUN MODIFIED-NUMERIC-TYPE ...)
; compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...)
; compiling (DEFGLOBAL *CHARACTER-TYPE* ...)
; compiling (DEFGLOBAL *BASE-CHAR-TYPE* ...)
; compiling (DEFGLOBAL *EXTENDED-CHAR-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-CHARACTER-SET-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...)
; compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...)
; compiling (DEFGLOBAL *RANK-1-ARRAY-CTYPES* ...)
; compiling (DEFCONSTANT +CANON-ARRAY-CTYPE-HASH-DIVISOR+ ...)
; compiling (DEFUN !INTERN-IMPORTANT-ARRAY-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-ARRAY-TYPE ...)
; compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...)
; compiling (DEFGLOBAL *NULL-TYPE* ...)
; compiling (DEFGLOBAL *EQL-T-TYPE* ...)
; compiling (DEFGLOBAL *BOOLEAN-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-MEMBER-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-MEMBER-TYPE ...)
; compiling (DEFUN MEMBER-TYPE-SIZE ...)
; compiling (DEFUN MEMBER-TYPE-MEMBER-P ...)
; compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MEMBER-TYPE-MEMBERS ...)
; compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...)
; compiling (DEFSTRUCT (UNION-TYPE # ...))
; compiling (DEFSTRUCT (INTERSECTION-TYPE # ...))
; compiling (DEFUN TYPE-*-TO-T ...)
; compiling (DEFSTRUCT (CONS-TYPE # ...) ...)
; compiling (DEFGLOBAL *CONS-T-T-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-CONS-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-CONS-TYPE ...)
; compiling (DEFUN CONS-TYPE-LENGTH-INFO ...)
; compiling (DEFMACRO !VALUES-SPECIFIER-TYPE-BODY ...)
; compiling (LET (#) ...)
; compiling (DEFUN SPECIFIER-TYPE ...)
; compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...)
; compiling (DEFUN TYPEXPAND-1 ...)
; compiling (DEFUN TYPEXPAND ...)
; compiling (DEFUN TYPEXPAND-ALL ...)
; compiling (DEFUN DEFINED-TYPE-NAME-P ...)
; compiling (DEFUN VALID-TYPE-SPECIFIER-P ...)
; compiling (DEFUN %NOTE-TYPE-DEFINED ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFUN VALUES-SPECIFIER-TYPE
;     (SB!KERNEL::!VALUES-SPECIFIER-TYPE-BODY SB!KERNEL::SPECIFIER)
; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF PROGN IF 
; ==>
;   (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined type: BUILT-IN-CLASSOID

; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF PROGN IF 
; --> OR LET 
; ==>
;   (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: BUILT-IN-CLASSOID-TRANSLATION

; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF 
; ==>
;   (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined type: CLASSOID

; in: DEFUN CONS-TYPE-LENGTH-INFO
;     (SB!KERNEL:CSUBTYPEP CDR (SB!KERNEL:SPECIFIER-TYPE 'NULL))
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN MAKE-MEMBER-TYPE
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::Z)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: DEFUN VALUES-SPECIFIER-TYPE
;     (SB!KERNEL::!VALUES-SPECIFIER-TYPE-BODY SB!KERNEL::SPECIFIER)
; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF PROGN 
; ==>
;   (SB!KERNEL:FIND-CLASSOID SB!KERNEL::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID

; in: DEFUN PARSE-ARGS-TYPES
;     #'SB!KERNEL:KEY-INFO-NAME
; 
; caught STYLE-WARNING:
;   undefined function: KEY-INFO-NAME

;     (SB!KERNEL:MAKE-KEY-INFO :NAME SB!KERNEL::KWD :TYPE
;      (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE (SECOND SB!KERNEL::KEY)))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-KEY-INFO

;     (SB!INT:PARSE-LAMBDA-LIST SB!KERNEL::LAMBDA-LISTY-THING :CONTEXT 'TYPE
;      :DISALLOW '(&AUX &ENVIRONMENT) :SILENT T)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-LAMBDA-LIST

; in: DEFUN VALID-TYPE-SPECIFIER-P
;     (HANDLER-CASE
;      (PROG1 T (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER))
;      (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL NIL) (ERROR NIL NIL))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: PARSE-UNKNOWN-TYPE

; in: DEFUN CONS-TYPE-LENGTH-INFO
;     (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-INTERSECTION

; in: DEFUN TYPEXPAND-ALL
;     (SB!KERNEL:TYPE-SPECIFIER
;      (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER))
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-SPECIFIER

; in: DEFUN CONS-TYPE-LENGTH-INFO
;     (SB!KERNEL:TYPE/=
;      (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR)
;      SB!KERNEL:*EMPTY-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE/=

; in: DEFUN MAKE-CONS-TYPE
;     (SB!KERNEL:TYPE= SB!KERNEL::CAR-TYPE SB!KERNEL:*UNIVERSAL-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=

; in: DEFUN TYPE-*-TO-T
;     (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=
; 
; compilation unit finished
;   Undefined types:
;     BUILT-IN-CLASSOID CLASSOID PARSE-UNKNOWN-TYPE
;   Undefined functions:
;     BUILT-IN-CLASSOID-TRANSLATION CSUBTYPEP CTYPE-OF FIND-CLASSOID KEY-INFO-NAME MAKE-KEY-INFO PARSE-LAMBDA-LIST TYPE-INTERSECTION TYPE-SPECIFIER TYPE/= TYPE=
;   caught 15 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-type.fasl-tmp written
; compilation finished in 0:00:06.031
; compiling file "/«PKGBUILDDIR»/src/code/class.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (CLASSOID (:MAKE-LOAD-FORM-FUN CLASSOID-MAKE-LOAD-FORM-FUN)
;              (:INCLUDE CTYPE (CLASS-INFO (TYPE-CLASS-OR-LOSE 'CLASSOID)))
;              (:CONSTRUCTOR NIL)
;              (:PRINT-OBJECT
;               (LAMBDA (CLASS STREAM)
;                 (LET #
;                   #))))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:CLASSOID
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::CLASSOID-MAKE-LOAD-FORM-FUN)
;       (:INCLUDE SB!KERNEL:CTYPE
;        (SB!KERNEL::CLASS-INFO
;         (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CLASSOID)))
;       (:CONSTRUCTOR NIL)
;       (:PRINT-OBJECT
;        (LAMBDA (CLASS STREAM)
;          (LET #
;            #))))
;      (SB!KERNEL::NAME NIL :TYPE SYMBOL)
;      (SB!KERNEL:LAYOUT NIL :TYPE (OR SB!KERNEL:LAYOUT NULL))
;      (SB!KERNEL::STATE NIL :TYPE (MEMBER NIL :READ-ONLY :SEALED))
;      (SB!KERNEL::DIRECT-SUPERCLASSES NIL :TYPE LIST)
;      (SB!KERNEL::SUBCLASSES NIL :TYPE (OR NULL HASH-TABLE))
;      (SB!KERNEL::PCL-CLASS NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CLASSOID {52D966A1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CTYPE {51FA0581}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:CLASSOID-LAYOUT could not be inlined
;   because the structure definition for SB!KERNEL:CLASSOID was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (CLASSOID # ...) ...)
; compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...)
; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...)
; compiling (DEF!TYPE LAYOUT-CLOS-HASH ...)
; compiling (DEFVAR *!INITIAL-LAYOUTS*)
; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*)
; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEF!STRUCT (LAYOUT (:MAKE-LOAD-FORM-FUN MAKE-LOAD-FORM-FOR-LAYOUT))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LAYOUT
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-LOAD-FORM-FOR-LAYOUT))
;      (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE
;       SB!KERNEL:LAYOUT-CLOS-HASH)
;      (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID)
;      (SB!KERNEL::INVALID :UNINITIALIZED :TYPE
;       (OR CONS (MEMBER NIL T :UNINITIALIZED)))
;      (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR)
;      (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID)
;      (LENGTH 0 :TYPE SB!INT:INDEX)
;      (SB!INT:INFO NIL :TYPE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION))
;      (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0))
;      (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX)
;      (SB!KERNEL::SOURCE-LOCATION NIL) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:LAYOUT {536F6F91}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:LAYOUT-LENGTH, SB!KERNEL:LAYOUT-INFO and
;   SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS could not be inlined because the structure
;   definition for SB!KERNEL:LAYOUT was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (LAYOUT #) ...)
; compiling (DECLAIM (FREEZE-TYPE LAYOUT))
; compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P))
; compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN LAYOUT-PROPER-NAME ...)
; compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*)
; compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...)
; compiling (DEFUN MAKE-LOAD-FORM-FOR-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN REDEFINE-LAYOUT-WARNING ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...)
; compiling (DEFUN REGISTER-LAYOUT ...)
; compiling (DEFUN ORDER-LAYOUT-INHERITS ...)
; compiling (DEFUN TOPOLOGICAL-SORT ...)
; compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (UNDEFINED-CLASSOID (:INCLUDE CLASSOID)
;              (:CONSTRUCTOR MAKE-UNDEFINED-CLASSOID (NAME)))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL::UNDEFINED-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID)
;       (:CONSTRUCTOR SB!KERNEL:MAKE-UNDEFINED-CLASSOID (SB!KERNEL::NAME))))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL::UNDEFINED-CLASSOID {525CC2D1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CTYPE {51FA0581}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CLASSOID {5463C419}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL::UNDEFINED-CLASSOID-P could not be
;   inlined because the structure definition for SB!KERNEL::UNDEFINED-CLASSOID was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (BUILT-IN-CLASSOID (:INCLUDE CLASSOID)
;              (:CONSTRUCTOR MAKE-BUILT-IN-CLASSOID))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:BUILT-IN-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID)
;       (:CONSTRUCTOR SB!KERNEL::MAKE-BUILT-IN-CLASSOID))
;      (SB!KERNEL::TRANSLATION NIL :TYPE
;       (OR SB!KERNEL:CTYPE (MEMBER NIL :INITIALIZING))))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:BUILT-IN-CLASSOID {52899849}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CTYPE {51FA0581}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CLASSOID {5463C419}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION could not
;   be inlined because the structure definition for SB!KERNEL:BUILT-IN-CLASSOID was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...)
; compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...))
; compiling (DEFUN MAKE-STRUCTURE-CLASSOID ...)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (CLASSOID-CELL
;              (:CONSTRUCTOR MAKE-CLASSOID-CELL (NAME &OPTIONAL CLASSOID))
;              (:MAKE-LOAD-FORM-FUN (LAMBDA (C) (QUASIQUOTE #)))
;              (:PRINT-OBJECT (LAMBDA (S STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL::CLASSOID-CELL
;       (:CONSTRUCTOR SB!KERNEL::MAKE-CLASSOID-CELL
;        (SB!KERNEL::NAME &OPTIONAL SB!KERNEL:CLASSOID))
;       (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!KERNEL::C) (SB!INT:QUASIQUOTE #)))
;       (:PRINT-OBJECT
;        (LAMBDA (SB!KERNEL::S STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;      (SB!KERNEL::NAME NIL :TYPE SYMBOL :READ-ONLY T)
;      (SB!KERNEL:CLASSOID NIL :TYPE (OR SB!KERNEL:CLASSOID NULL))
;      (SB!KERNEL::PCL-CLASS NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL::CLASSOID-CELL {535CC3F9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51FA0449}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to
;   (COMMON-LISP:SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) could not be inlined
;   because the structure definition for SB!KERNEL::CLASSOID-CELL was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE CLASSOID-CELL))
; compiling (DEFUN FIND-CLASSOID-CELL ...)
; compiling (DEFUN FIND-CLASSOID ...)
; compiling (DEFUN (SETF FIND-CLASSOID) ...)
; compiling (DEFUN %CLEAR-CLASSOID ...)
; compiling (DEFUN INSURED-FIND-CLASSOID ...)
; compiling (DEFUN CLASSOID-PROPER-NAME ...)
; compiling (DEFUN CLASSOID-ENUMERABLE-P ...)
; compiling (!DEFINE-TYPE-CLASS CLASSOID ...)
; compiling (DEFUN %ENSURE-CLASSOID-VALID ...)
; compiling (DEFUN %ENSURE-BOTH-CLASSOIDS-VALID ...)
; compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...)
; compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...)
; compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...)
; compiling (DEF!STRUCT (STANDARD-CLASSOID # ...))
; compiling (DEF!STRUCT (STATIC-CLASSOID # ...))
; compiling (!DEFVAR *!BUILT-IN-CLASSES* ...)
; compiling (!COLD-INIT-FORMS (DOLIST # ...) ...)
; compiling (!COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes") ...)
; compiling (!COLD-INIT-FORMS (DOLIST # ...))
; compiling (DEFUN %MODIFY-CLASSOID ...)
; compiling (DEFUN %INVALIDATE-LAYOUT ...)
; compiling (DEFUN !CLASS-FINALIZE ...)
; compiling (!COLD-INIT-FORMS (SETQ **BUILT-IN-CLASS-CODES** ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!PCL::%FORCE-CACHE-FLUSHES CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::%FORCE-CACHE-FLUSHES

; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID
;     (SB!C::%LAYOUT-INVALID-ERROR SB!KERNEL::OBJECT SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::%LAYOUT-INVALID-ERROR

;     (SB!PCL::CHECK-WRAPPER-VALIDITY SB!KERNEL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::CHECK-WRAPPER-VALIDITY

; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!MOP:CLASS-FINALIZED-P CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!MOP:CLASS-FINALIZED-P

; in: !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP)
;     (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P
;      (SB!KERNEL:CLASSOID-PCL-CLASS SB!KERNEL::CLASS2))
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P

; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P

; in: DEFUN %MODIFY-CLASSOID
;     (SB!KERNEL::CLEAR-TYPE-CACHES)
; 
; caught STYLE-WARNING:
;   undefined function: CLEAR-TYPE-CACHES

; in: DEFUN MAKE-LOAD-FORM-FOR-LAYOUT
;     (SB!KERNEL::COMPILER-ERROR "can't dump reference to obsolete class: ~S"
;      (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN REGISTER-LAYOUT
;     (SETF (SB!KERNEL:LAYOUT-INVALID SB!KERNEL::DESTRUCT-LAYOUT) NIL
;           (SB!KERNEL:LAYOUT-INHERITS SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-INHERITS SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-DEPTHOID SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-DEPTHOID SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-LENGTH SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-LENGTH SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-RAW-SLOT-METADATA SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-RAW-SLOT-METADATA SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-INFO SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
;           ...)
; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL 
; --> (SETF SB!KERNEL:LAYOUT-INFO) LET SB-KERNEL:%INSTANCE-SET 
; ==>
;   (THE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION) #:NEW34)
; 
; caught STYLE-WARNING:
;   undefined type: DEFSTRUCT-DESCRIPTION

; in: DEF!STRUCT (LAYOUT (:MAKE-LOAD-FORM-FUN MAKE-LOAD-FORM-FOR-LAYOUT))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LAYOUT
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-LOAD-FORM-FOR-LAYOUT))
;      (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE
;       SB!KERNEL:LAYOUT-CLOS-HASH)
;      (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID)
;      (SB!KERNEL::INVALID :UNINITIALIZED :TYPE
;       (OR CONS (MEMBER NIL T :UNINITIALIZED)))
;      (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR)
;      (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID)
;      (LENGTH 0 :TYPE SB!INT:INDEX)
;      (SB!INT:INFO NIL :TYPE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION))
;      (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0))
;      (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX)
;      (SB!KERNEL::SOURCE-LOCATION NIL) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT (SB!KERNEL:LAYOUT (:INCLUDE SB!SYS:STRUCTURE!OBJECT))
;     (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE
;      SB!KERNEL:LAYOUT-CLOS-HASH)
;     (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID)
;     (SB!KERNEL::INVALID :UNINITIALIZED :TYPE
;      (OR CONS (MEMBER NIL T :UNINITIALIZED)))
;     (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR)
;     (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID)
;     (LENGTH 0 :TYPE SB!INT:INDEX)
;     (SB!INT:INFO NIL :TYPE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION))
;     (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0))
;     (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX)
;     (SB!KERNEL::SOURCE-LOCATION NIL)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: DEFSTRUCT-DESCRIPTION

; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!MOP:FINALIZE-INHERITANCE CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!MOP:FINALIZE-INHERITANCE

; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID
;     (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-OF

; in: DEFUN SEALED-CLASS-INTERSECTION2
;     (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS))
; --> PROGN SETQ THE 
; ==>
;   (SB!KERNEL:TYPE-UNION (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)
;    #:RES-N-VALUE-2374)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-UNION
; 
; compilation unit finished
;   Undefined type:
;     DEFSTRUCT-DESCRIPTION
;   Undefined functions:
;     SB!PCL::%FORCE-CACHE-FLUSHES SB!C::%LAYOUT-INVALID-ERROR SB!PCL::CHECK-WRAPPER-VALIDITY SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLEAR-TYPE-CACHES COMPILER-ERROR SB!MOP:FINALIZE-INHERITANCE LAYOUT-OF TYPE-UNION
;   caught 18 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/class.fasl-tmp written
; compilation finished in 0:00:06.553
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/primtype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (/SHOW0 "primtype.lisp 17")
; compiling (!DEF-PRIMITIVE-TYPE T ...)
; compiling (/SHOW0 "primtype.lisp 20")
; compiling (SETF *BACKEND-T-PRIMITIVE-TYPE* ...)
; compiling (/SHOW0 "primtype.lisp 24")
; compiling (!DEF-PRIMITIVE-TYPE POSITIVE-FIXNUM ...)
; compiling (/SHOW0 "primtype.lisp 27")
; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-31 ...)
; compiling (/SHOW0 "primtype.lisp 31")
; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-32 ...)
; compiling (/SHOW0 "primtype.lisp 35")
; compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...)
; compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-32 ...)
; compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...)
; compiling (/SHOW0 "primtype.lisp 53")
; compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED)
;     '(SB!VM::UNSIGNED-BYTE-64 SB!VM::UNSIGNED-BYTE-63 SB!VM::POSITIVE-FIXNUM)
; 
; note: deleting unreachable code
; compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...)
; compiling (/SHOW0 "primtype.lisp 68")
; compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...)
; compiling (/SHOW0 "primtype.lisp 73")
; compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...)
; compiling (!DEF-PRIMITIVE-TYPE LIST ...)
; compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...)
; compiling (/SHOW0 "primtype.lisp 77")
; compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...)
; compiling (/SHOW0 "primtype.lisp 81")
; compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...)
; compiling (!DEF-PRIMITIVE-TYPE RATIO ...)
; compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...)
; compiling (/SHOW0 "primtype.lisp 96")
; compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES)
; compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...)
; compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...)
; compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...)
; compiling (/SHOW0 "primtype.lisp 147")
; compiling (DEFUN PRIMITIVE-TYPE-OF ...)
; compiling (/SHOW0 "primtype.lisp 188")
; compiling (DEFUN PRIMITIVE-TYPE ...)
; compiling (/SHOW0 "primtype.lisp 191")

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                ...)
;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code
; compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                ...)
;     (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN PRIMITIVE-TYPE-OF
;     (SB!KERNEL:CTYPE-OF SB!VM::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                ...)
;     (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST))
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=
; 
; compilation unit finished
;   Undefined functions:
;     CSUBTYPEP CTYPE-OF TYPE=
;   caught 3 STYLE-WARNING conditions
;   printed 7 notes
; compiling (/SHOW0 "primtype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/primtype.fasl-tmp written
; compilation finished in 0:00:01.256
; compiling file "/«PKGBUILDDIR»/src/compiler/parse-lambda-list.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (/SHOW0 "parse-lambda-list.lisp 12")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PARSE-LAMBDA-LIST ...)

; file: /«PKGBUILDDIR»/src/compiler/parse-lambda-list.lisp
; in: DEFUN PARSE-LAMBDA-LIST
;     (SB!C:COMPILER-ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL STRING
;      :FORMAT-ARGUMENTS SB!C::ERR-ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

;     (SB!INT:STYLE-WARN "suspicious variable in lambda list: ~S." SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     COMPILER-ERROR STYLE-WARN
;   caught 2 STYLE-WARNING conditions
; compiling (/SHOW0 "parse-lambda-list.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/parse-lambda-list.fasl-tmp written
; compilation finished in 0:00:02.176
; compiling file "/«PKGBUILDDIR»/src/code/host-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (/SHOW0 "host-alieneval.lisp 15")
; compiling (DEFUN ALIGN-OFFSET ...)
; compiling (DEFUN GUESS-ALIGNMENT ...)
; compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...)
; compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...)
; compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...)
; compiling (DEFUN METHOD-SLOT ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...)
; compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...)
; compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...)
; compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN PARSE-ALIEN-TYPE ...)
; compiling (DEFUN AUXILIARY-ALIEN-TYPE ...)
; compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...)
; compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...)
; compiling (DEFUN UNPARSE-ALIEN-TYPE ...)
; compiling (DEFUN %UNPARSE-ALIEN-TYPE ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...)
; compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE ...)
; compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in:
;      DEF!STRUCT (ALIEN-TYPE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;              (:CONSTRUCTOR MAKE-ALIEN-TYPE
;               (&KEY CLASS BITS ALIGNMENT &AUX ...)))
;     (SB!INT:DEF!STRUCT
;      (SB!ALIEN-INTERNALS:ALIEN-TYPE
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;       (:CONSTRUCTOR SB!ALIEN::MAKE-ALIEN-TYPE
;        (&KEY CLASS SB!ALIEN::BITS SB!ALIEN::ALIGNMENT &AUX
;         (SB!ALIEN::ALIGNMENT #))))
;      (CLASS 'SB!ALIEN::ROOT :TYPE SYMBOL)
;      (SB!ALIEN::BITS NIL :TYPE (OR NULL UNSIGNED-BYTE))
;      (SB!ALIEN::ALIGNMENT NIL :TYPE (OR NULL UNSIGNED-BYTE)))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!ALIEN-INTERNALS:ALIEN-TYPE {525AE811}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B10689}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!ALIEN::ALIEN-TYPE-CLASS could not be inlined
;   because the structure definition for SB!ALIEN-INTERNALS:ALIEN-TYPE was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...)
; compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...)
; compiling (DEFUN HEAP-ALIEN-INFO-SAP ...)
; compiling (DEFUN ALIEN-TYPE-= ...)
; compiling (DEFUN ALIEN-SUBTYPE-P ...)
; compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...)
; compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...)
; compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...)
; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...)
; compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...)
; compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...)
; compiling (DEFUN COMPUTE-LISP-REP-TYPE ...)
; compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...)
; compiling (DEFUN PARSE-ENUM ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...)
; compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...)
; compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...)
; compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...)
; compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...)
; compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...)
; compiling (DEFUN RECORD-FIELDS-MATCH-P ...)
; compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...)
; compiling (DEF!TYPE CALLING-CONVENTION ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...)
; compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFMACRO-MUNDANELY ADDR ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFMACRO-MUNDANELY ADDR
;     (SB!INT:%MACROEXPAND SB!ALIEN::EXPR SB!ALIEN::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN AUXILIARY-TYPE-DEFINITIONS
;     (SB!INT:%MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM
;     (SETF (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT))
; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-FROM) #:NEW1 #:OLD2)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-FROM)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-KIND) #:NEW5 #:OLD6)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-KIND)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-OFFSET) #:NEW7 #:OLD8)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-OFFSET)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-SIGNED) #:NEW9 #:OLD10)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-SIGNED)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-TO) #:NEW3 #:OLD4)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-TO)

;     (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-FROM

;     (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-KIND

;     (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-OFFSET

;     (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-SIGNED

;     (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-TO

; in: DEFUN HEAP-ALIEN-INFO-SAP
;     (SB!SYS:FOREIGN-SYMBOL-SAP (SB!ALIEN::HEAP-ALIEN-INFO-ALIEN-NAME SB!INT:INFO)
;      (SB!ALIEN::HEAP-ALIEN-INFO-DATAP SB!INT:INFO))
; 
; caught STYLE-WARNING:
;   undefined function: FOREIGN-SYMBOL-SAP

; in: DEFUN AUXILIARY-ALIEN-TYPE
;     (DEFUN SB!ALIEN::AUXILIARY-ALIEN-TYPE
;            (SB!ALIEN::KIND SB!ALIEN::NAME SB!ALIEN::ENV)
;       (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV))
;       (FLET ((SB!ALIEN::AUX-DEFN-MATCHES (SB!ALIEN::X)
;                (AND # #)))
;         (LET ((SB!ALIEN::IN-AUXILIARIES #))
;           (IF SB!ALIEN::IN-AUXILIARIES
;               (VALUES # T)
;               (ECASE SB!ALIEN::KIND # # #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET OR LET 
; ==>
;   (TYPEP #:N-OBJ797 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

; in: DEFUN PARSE-ALIEN-TYPE
;     (DEFUN SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE (TYPE SB!ALIEN::ENV)
;       (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV))
;       (IF (CONSP TYPE)
;           (LET ((SB!ALIEN::TRANSLATOR #))
;             (UNLESS SB!ALIEN::TRANSLATOR (ERROR "unknown alien type: ~S" TYPE))
;             (FUNCALL SB!ALIEN::TRANSLATOR TYPE SB!ALIEN::ENV))
;           (ECASE (SB!INT:INFO :ALIEN-TYPE :KIND TYPE)
;             (:PRIMITIVE
;              (LET #
;                #
;                #))
;             (:DEFINED (OR # #))
;             (:UNKNOWN (ERROR "unknown alien type: ~S" TYPE)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET OR LET 
; ==>
;   (TYPEP #:N-OBJ730 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

;     (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

; 
; caught STYLE-WARNING:
;   8 more uses of undefined type SB!KERNEL:LEXENV


; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFUN PARSE-ENUM
;     (SB!INT:STYLE-WARN "The element value ~S is used more than once."
;      SB!ALIEN::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL:LEXENV
;   Undefined functions:
;     %MACROEXPAND (SETF ALIEN-TYPE-FROM) (SETF ALIEN-TYPE-KIND) (SETF ALIEN-TYPE-OFFSET) (SETF ALIEN-TYPE-SIGNED) (SETF ALIEN-TYPE-TO) ALIEN-TYPE-FROM ALIEN-TYPE-KIND ALIEN-TYPE-OFFSET ALIEN-TYPE-SIGNED ALIEN-TYPE-TO FOREIGN-SYMBOL-SAP STYLE-WARN
;   caught 19 STYLE-WARNING conditions
; compiling (/SHOW0 "host-alieneval.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/host-alieneval.fasl-tmp written
; compilation finished in 0:00:11.739
; compiling file "/«PKGBUILDDIR»/src/code/host-c-call.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (/SHOW0 "host-c-call.lisp 12")
; compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...)
; compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...)
; compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NULL-ERROR ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...)

; file: /«PKGBUILDDIR»/src/code/host-c-call.lisp
; in: DEFUN C-STRING-EXTERNAL-FORMAT => DEFAULT-C-STRING-EXTERNAL-FORMAT
;     (SB!ALIEN::DEFAULT-C-STRING-EXTERNAL-FORMAT)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-C-STRING-EXTERNAL-FORMAT

; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING
;     (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE 'CHAR (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

;     (SB!KERNEL:MAKE-NULL-LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:MAKE-NULL-LEXENV
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL:LEXENV
;   Undefined functions:
;     DEFAULT-C-STRING-EXTERNAL-FORMAT SB!KERNEL:MAKE-NULL-LEXENV
;   caught 3 STYLE-WARNING conditions
; compiling (/SHOW0 "host-c-call.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/host-c-call.fasl-tmp written
; compilation finished in 0:00:00.597
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (/SHOW0 "compiler-deftype.lisp 14")

; file: /«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp
; in: DEFUN %COMPILER-DEFTYPE
;     (DEFUN SB!IMPL::%COMPILER-DEFTYPE
;            (SB!IMPL::NAME SB!IMPL::LAMBDA-LIST SB!IMPL::EXPANDER SB!IMPL::DOC
;             SB!IMPL::SOURCE-LOCATION)
;       (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SB!IMPL::NAME
;                                                    "defining ~A as a type specifier"))
;       (ECASE (SB!INT:INFO :TYPE :KIND SB!IMPL::NAME)
;         (:PRIMITIVE
;          (WHEN (AND SB!KERNEL:*TYPE-SYSTEM-INITIALIZED* #)
;            (ERROR "illegal to redefine standard type: ~S" SB!IMPL::NAME)))
;         (:INSTANCE
;          (WARN "The class ~S is being redefined to be a DEFTYPE." SB!IMPL::NAME)
;          (SB!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME)
;           T)
;          (SETF # NIL)
;          (SB!INT:CLEAR-INFO :TYPE :COMPILER-LAYOUT SB!IMPL::NAME)
;          (SETF # :DEFINED))
;         (:DEFINED)
;         ((NIL :FORTHCOMING-DEFCLASS-TYPE) (SETF # :DEFINED)))
;       (SETF (SB!INT:INFO :TYPE :EXPANDER SB!IMPL::NAME) SB!IMPL::EXPANDER)
;       (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION)
;         (SETF (SB!INT:INFO :TYPE :SOURCE-LOCATION SB!IMPL::NAME)
;                 SB!IMPL::SOURCE-LOCATION))
;       (WHEN SB!IMPL::DOC
;         (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'TYPE) SB!IMPL::DOC))
;       (SB!KERNEL:%NOTE-TYPE-DEFINED SB!IMPL::NAME)
;       SB!IMPL::NAME)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!IMPL::%COMPILER-DEFTYPE
;         (SB!IMPL::NAME SB!IMPL::LAMBDA-LIST SB!IMPL::EXPANDER SB!IMPL::DOC
;          SB!IMPL::SOURCE-LOCATION)
;       (BLOCK SB!IMPL::%COMPILER-DEFTYPE
;         (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SB!IMPL::NAME
;                                                      "defining ~A as a type specifier"))
;         (ECASE (SB!INT:INFO :TYPE :KIND SB!IMPL::NAME)
;           (:PRIMITIVE (WHEN # #))
;           (:INSTANCE
;            (WARN "The class ~S is being redefined to be a DEFTYPE."
;                  SB!IMPL::NAME)
;            (SB!KERNEL:UNDECLARE-STRUCTURE # T)
;            (SETF #)
;            (SB!INT:CLEAR-INFO :TYPE :COMPILER-LAYOUT SB!IMPL::NAME)
;            (SETF #))
;           (:DEFINED)
;           ((NIL :FORTHCOMING-DEFCLASS-TYPE) (SETF #)))
;         (SETF (SB!INT:INFO :TYPE :EXPANDER SB!IMPL::NAME) SB!IMPL::EXPANDER)
;         (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION)
;           (SETF # SB!IMPL::SOURCE-LOCATION))
;         (WHEN SB!IMPL::DOC (SETF # SB!IMPL::DOC))
;         (SB!KERNEL:%NOTE-TYPE-DEFINED SB!IMPL::NAME)
;         SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   The variable LAMBDA-LIST is defined but never used.
; compiling (DEFUN %COMPILER-DEFTYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp
; in: DEFUN %COMPILER-DEFTYPE
;     (SB!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME) T)
; 
; caught STYLE-WARNING:
;   undefined function: UNDECLARE-STRUCTURE
; 
; compilation unit finished
;   Undefined function:
;     UNDECLARE-STRUCTURE
;   caught 2 STYLE-WARNING conditions
; compiling (/SHOW0 "compiler-deftype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/compiler-deftype.fasl-tmp written
; compilation finished in 0:00:00.158
; compiling file "/«PKGBUILDDIR»/src/code/late-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "late-type.lisp 19")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...)
; compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...)
; compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...)
; compiling (DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...)
; compiling (DEFMACRO !DEFINE-SUPERCLASSES ...)
; compiling (DEFSTRUCT (KEY-INFO #) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...)
; compiling (DEFUN TYPE=-LIST ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-CLASS FUNCTION ...)
; compiling (!DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY* ...)
; compiling (!DEFVAR *UNPARSE-ALLOW-NEGATION* ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES FUNCTION ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-CLASS CONSTANT ...)
; compiling (!DEFINE-TYPE-METHOD (CONSTANT :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONSTANT :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR CONSTANT-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN UNPARSE-ARGS-TYPES ...)
; compiling (!DEF-TYPE-TRANSLATOR FUNCTION ...)
; compiling (!DEF-TYPE-TRANSLATOR VALUES ...)
; compiling (DEFUN VALUES-TYPE-MIN-VALUE-COUNT ...)
; compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...)
; compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...)
; compiling (DEFUN TYPE-SINGLE-VALUE-P ...)
; compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE))
; compiling (DEFUN SINGLE-VALUE-TYPE ...)
; compiling (DEFUN FUN-TYPE-NARGS ...)
; compiling (DEFUN VALUES-TYPES ...)
; compiling (DEFUN VALUES-TYPE-TYPES ...)
; compiling (DEFUN VALUES-TYPE-OUT ...)
; compiling (DEFUN VALUES-TYPE-IN ...)
; compiling (DEFUN FIXED-VALUES-OP ...)
; compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...)
; compiling (DEFUN COERCE-TO-VALUES ...)
; compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...)
; compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...)
; compiling (DEFUN ARGS-TYPE-OP ...)
; compiling (DEFUN VALUES-TYPE-OP ...)
; compiling (DEFUN COMPARE-KEY-ARGS ...)
; compiling (DEFUN TYPE=-ARGS ...)
; compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...)
; compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...)
; compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...)
; compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...)
; compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...)
; compiling (DEFUN SB-XC:SUBTYPEP ...)
; compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...)
; compiling (DEFUN TYPE/= ...)
; compiling (DEFUN %TYPE-UNION2 ...)
; compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...)
; compiling (DEFUN %TYPE-INTERSECTION2 ...)
; compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...)
; compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...)
; compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...)
; compiling (DEFUN TYPE-SPECIFIER ...)
; compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...)
; compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN !PRECOMPUTE-TYPES ...)
; compiling (DEF SIMPLIFY-INTERSECTIONS ...)
; compiling (DEF SIMPLIFY-UNIONS ...)
; compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...)
; compiling (DEFUN TYPE-INTERSECTION ...)
; compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...)
; compiling (DEFUN TYPE-UNION ...)
; compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...)
; compiling (!DEFINE-TYPE-CLASS NAMED ...)
; compiling (DEFGLOBAL *SATISFIES-KEYWORDP-TYPE* ...)
; compiling (DEFGLOBAL *FUN-NAME-TYPE* ...)
; compiling (DEFUN !LATE-TYPE-COLD-INIT2 ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-=) ...)
; compiling (DEFUN CONS-TYPE-MIGHT-BE-EMPTY-TYPE ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-=) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 ...) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR SATISFIES ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR NOT ...)
; compiling (!DEFINE-TYPE-CLASS NUMBER ...)
; compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL))
; compiling (DEFUN NUMERIC-TYPE-EQUAL ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...)
; compiling (DEFMACRO NUMERIC-BOUND-TEST ...)
; compiling (DEFMACRO NUMERIC-BOUND-TEST* ...)
; compiling (DEFMACRO NUMERIC-BOUND-MAX ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES NUMBER ...)
; compiling (DEFUN NUMERIC-TYPES-ADJACENT ...)
; compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...)
; compiling (!COLD-INIT-FORMS (SETF # ...) ...)
; compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...)
; compiling (DECLAIM (INLINE CANONICALIZED-BOUND))
; compiling (DEFUN CANONICALIZED-BOUND ...)
; compiling (!DEF-TYPE-TRANSLATOR INTEGER ...)
; compiling (DEFMACRO !DEF-BOUNDED-TYPE ...)
; compiling (!DEF-BOUNDED-TYPE RATIONAL ...)
; compiling (DEFUN COERCE-BOUND ...)
; compiling (DEFUN INNER-COERCE-REAL-BOUND ...)
; compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...)
; compiling (DEFUN COERCED-REAL-BOUND ...)
; compiling (DEFUN COERCED-FLOAT-BOUND ...)
; compiling (!DEF-TYPE-TRANSLATOR REAL ...)
; compiling (!DEF-TYPE-TRANSLATOR FLOAT ...)
; compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...)
; compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT)
; compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT)
; compiling (DEFUN NUMERIC-TYPES-INTERSECT ...)
; compiling (DEFUN ROUND-NUMERIC-BOUND ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN FLOAT-FORMAT-MAX ...)
; compiling (DEFUN NUMERIC-CONTAGION ...)
; compiling (!DEFINE-TYPE-CLASS ARRAY ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES ARRAY ...)
; compiling (DEFUN ARRAY-TYPES-INTERSECT ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...)
; compiling (!DEFINE-TYPE-CLASS MEMBER ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR MEMBER ...)
; compiling (!DEFINE-TYPE-CLASS INTERSECTION ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...)
; compiling (DEFUN TYPE=-SET ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...)
; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...)
; compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...)
; compiling (!DEF-TYPE-TRANSLATOR AND ...)
; compiling (!DEFINE-TYPE-CLASS UNION ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...)
; compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...)
; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...)
; compiling (!DEF-TYPE-TRANSLATOR OR ...)
; compiling (!DEFINE-TYPE-CLASS CONS ...)
; compiling (!DEF-TYPE-TRANSLATOR CONS ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...)
; compiling (!DEFINE-SUPERCLASSES CONS ...)
; compiling (!DEFINE-TYPE-CLASS CHARACTER-SET ...)
; compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN INTERSECT-TYPE-PAIRS ...)
; compiling (DEFUN TYPE-DIFFERENCE ...)
; compiling (!DEF-TYPE-TRANSLATOR ARRAY ...)
; compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...)
; compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...)
; compiling (DEFUN CTYPE-OF-NUMBER ...)
; compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION))
; compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...)
; compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION))

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION
;     (SB!KERNEL:GENERIC-ABSTRACT-TYPE-FUNCTION TYPE SB!KERNEL::OVERAPPROXIMATE
;      #'UNION #'INTERSECTION #'SET-DIFFERENCE '* NIL SB!KERNEL::OVER
;      SB!KERNEL::UNDER)
; --> BLOCK LABELS BLOCK UNLESS IF PROGN RETURN-FROM SB!KERNEL::DEFAULT 
; ==>
;   SB!KERNEL::OVERAPPROXIMATE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...)
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT)
; compiling (!LATE-TYPE-COLD-INIT2)

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: !DEF-TYPE-TRANSLATOR SIMPLE-ARRAY
;     (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE

; in: !DEF-TYPE-TRANSLATOR ARRAY
;     (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE

; in: !DEFINE-TYPE-METHOD (ARRAY :UNPARSE)
;     (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::DTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE

; in: !DEF-TYPE-TRANSLATOR MEMBER
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::M)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: !DEFINE-TYPE-METHOD (MEMBER :NEGATE)
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::OPPOSITE)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: !DEF-TYPE-TRANSLATOR COMPLEX
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::X)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: DEFUN TYPE-DIFFERENCE
;     (SB!KERNEL:CTYPEP ELT SB!KERNEL::Y)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2)
;     (SB!KERNEL:CTYPEP MEMBER SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1)
;     (SB!KERNEL:CTYPEP ELT SB!KERNEL::TYPE2)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: DEFUN CTYPE-OF-NUMBER
;     (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-FORMAT-NAME

; in: !DEF-TYPE-TRANSLATOR OR
;     (SB!KERNEL::SIMPLIFY-ARRAY-UNIONS TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SIMPLIFY-ARRAY-UNIONS

; in: !DEF-TYPE-TRANSLATOR INTEGER
;     (SB!KERNEL::CANONICALIZED-BOUND SB!KERNEL::HIGH 'INTEGER)
; --> BLOCK COND IF COND IF OR LET IF OR THE AND IF AND IF 
; ==>
;   (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP

; in: DEFUN CANONICALIZED-BOUND
;     (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP

; in: DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1
;     (SB-XC:TYPEP SB!KERNEL::TYPE2 'SB!KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function SB-XC:TYPEP
; 
; compilation unit finished
;   Undefined functions:
;     %UPGRADED-ARRAY-ELEMENT-TYPE CTYPE-OF CTYPEP FLOAT-FORMAT-NAME SIMPLIFY-ARRAY-UNIONS SB-XC:TYPEP
;   caught 15 STYLE-WARNING conditions
;   printed 3 notes
; compiling (/SHOW0 "late-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/late-type.fasl-tmp written
; compilation finished in 0:00:14.108
; compiling file "/«PKGBUILDDIR»/src/code/deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "deftypes-for-target.lisp 14")
; compiling (/SHOW "about to force delayed DEF!TYPEs")
; compiling (FORCE-DELAYED-DEF!TYPES)
; compiling (/SHOW "done forcing delayed DEF!TYPEs")
; compiling (SB-XC:DEFTYPE BOOLEAN ...)
; compiling (SB-XC:DEFTYPE MOD ...)
; compiling (SB-XC:DEFTYPE SIGNED-BYTE ...)
; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...)
; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...)
; compiling (SB-XC:DEFTYPE BIT ...)
; compiling (SB-XC:DEFTYPE ATOM ...)
; compiling (SB-XC:DEFTYPE BASE-CHAR ...)
; compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...)
; compiling (SB-XC:DEFTYPE STANDARD-CHAR ...)
; compiling (SB-XC:DEFTYPE KEYWORD ...)
; compiling (SB-XC:DEFTYPE EQL ...)
; compiling (SB-XC:DEFTYPE VECTOR ...)
; compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...)
; compiling (SB-XC:DEFTYPE BASE-STRING ...)
; compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...)
; compiling (SB-XC:DEFTYPE STRING ...)
; compiling (SB-XC:DEFTYPE SIMPLE-STRING ...)
; compiling (SB-XC:DEFTYPE BIT-VECTOR ...)
; compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...)
; compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...)
; compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...)
; compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE ARRAY-RANK ...)
; compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...)
; compiling (SB-XC:DEFTYPE FORM ...)
; compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE FILENAME ...)
; compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE IRRATIONAL ...)
; compiling (SB-XC:DEFTYPE CHAR-CODE ...)
; compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...)
; compiling (SB-XC:DEFTYPE SEQUENCE-END ...)
; compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...)
; compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE CALLABLE ...)
; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...)
; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...)
; compiling (/SHOW0 "deftypes-for-target.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/deftypes-for-target.fasl-tmp written
; compilation finished in 0:00:01.018
; compiling file "/«PKGBUILDDIR»/src/compiler/knownfun.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (/SHOW0 "knownfun.lisp 17")
; compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...)
; compiling (DEFSTRUCT (FUN-INFO) ...)
; compiling (DEFPRINTER (FUN-INFO) ...)
; compiling (DEFSTRUCT (TRANSFORM #) ...)
; compiling (DEFPRINTER (TRANSFORM) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DEFTRANSFORM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DEFKNOWN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUN-INFO-OR-LOSE ...)
; compiling (DEFUN RESULT-TYPE-FIRST-ARG ...)
; compiling (DEFUN RESULT-TYPE-LAST-ARG ...)
; compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...)
; compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...)
; compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...)
; compiling (DEFUN NTH-CONSTANT-ARGS ...)
; compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...)
; compiling (DEFUN READ-ELT-TYPE-DERIVER ...)
; compiling (DEFUN COUNT/POSITION-MAX-VALUE ...)
; compiling (DEFUN POSITION-DERIVE-TYPE ...)
; compiling (DEFUN COUNT-DERIVE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CAREFUL-SPECIFIER-TYPE
;      (SB!INT:QUASIQUOTE
;       (VECTOR CHARACTER
;               #S(SB!IMPL::COMMA :EXPR (WHEN SB!C::SIZE SB!C::SIZE) :KIND 2))))
; 
; caught STYLE-WARNING:
;   undefined function: CAREFUL-SPECIFIER-TYPE

; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CAREFUL-SPECIFIER-TYPE (SB!C::LVAR-VALUE SB!C::LVAR))
; 
; caught STYLE-WARNING:
;   undefined function: CAREFUL-SPECIFIER-TYPE

; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS
;     #'SB!C::CONSTANT-LVAR-P
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function CONSTANT-LVAR-P


; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN RESULT-TYPE-FLOAT-CONTAGION
;     #'SB!C::LVAR-TYPE
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN RESULT-TYPE-LAST-ARG
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN RESULT-TYPE-FIRST-ARG
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function LVAR-TYPE


; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS
;     #'SB!C::LVAR-VALUE
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function LVAR-VALUE


; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN %DEFTRANSFORM
;     (SB!INT:STYLE-WARN 'SB!KERNEL:REDEFINITION-WITH-DEFTRANSFORM :TRANSFORM
;      SB!C::OLD)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P LVAR-TYPE LVAR-VALUE STYLE-WARN
;   caught 15 STYLE-WARNING conditions
; compiling (/SHOW0 "knownfun.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/knownfun.fasl-tmp written
; compilation finished in 0:00:02.272
; compiling file "/«PKGBUILDDIR»/src/compiler/constantp.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFGLOBAL **SPECIAL-FORM-CONSTANTP-TESTS** ...)
; compiling (!COLD-INIT-FORMS (SETF **SPECIAL-FORM-CONSTANTP-TESTS** ...))
; compiling (!DEFVAR *SPECIAL-CONSTANT-VARIABLES* ...)
; compiling (DEFUN %CONSTANTP ...)
; compiling (DEFUN %CONSTANT-FORM-VALUE ...)
; compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...)
; compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...)
; compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...)
; compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...)
; compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...)
; compiling (DECLAIM (INLINE SB-XC:CONSTANTP))
; compiling (DEFUN SB-XC:CONSTANTP ...)
; compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE))
; compiling (DEFUN CONSTANT-FORM-VALUE ...)
; compiling (DECLAIM (INLINE CONSTANT-TYPEP))
; compiling (DEFUN CONSTANT-TYPEP ...)
; compiling (DEFMACRO !DEFCONSTANTP ...)
; compiling (!DEFCONSTANTP QUOTE ...)
; compiling (!DEFCONSTANTP IF ...)
; compiling (!DEFCONSTANTP PROGN ...)
; compiling (!DEFCONSTANTP UNWIND-PROTECT ...)
; compiling (!DEFCONSTANTP THE ...)
; compiling (!DEFCONSTANTP BLOCK ...)
; compiling (!DEFCONSTANTP MULTIPLE-VALUE-PROG1 ...)
; compiling (!DEFCONSTANTP PROGV ...)

; file: /«PKGBUILDDIR»/src/compiler/constantp.lisp
; in: DEFUN %CONSTANT-FORM-VALUE
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN %CONSTANTP
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: !DEFCONSTANTP THE
;     (SB!C::CAREFUL-SPECIFIER-TYPE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: CAREFUL-SPECIFIER-TYPE

; in: DEFUN CONSTANT-TYPEP
;     (SB-XC:TYPEP
;      (SB!C::%CONSTANT-FORM-VALUE SB!KERNEL:FORM SB!C::ENVIRONMENT SB!C::ENVP)
;      TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP
; 
; compilation unit finished
;   Undefined functions:
;     %MACROEXPAND CAREFUL-SPECIFIER-TYPE SB-XC:TYPEP
;   caught 4 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/constantp.fasl-tmp written
; compilation finished in 0:00:00.728
; compiling file "/«PKGBUILDDIR»/src/compiler/fun-info-funs.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN %DEF-REFFER ...)
; compiling (DEFUN %DEF-SETTER ...)
; compiling (DEFUN %DEF-ALLOC ...)

; file: /«PKGBUILDDIR»/src/compiler/fun-info-funs.lisp
; in: DEFUN %DEF-CASSER
;     (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-CASSER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS
;      SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FIXED-ALLOCATION

; in: DEFUN %DEF-REFFER
;     (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-REFFER

; in: DEFUN %DEF-SETTER
;     (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETFER

;     (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETTER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;      SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION

;     (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;      SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-VARIABLE-ALLOCATION
; 
; compilation unit finished
;   Undefined functions:
;     IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION
;   caught 7 STYLE-WARNING conditions
; compiling (DEFUN %DEF-CASSER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fun-info-funs.fasl-tmp written
; compilation finished in 0:00:00.922
; compiling file "/«PKGBUILDDIR»/src/code/cross-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN FIXNUMP ...)
; compiling (DEFINE-CONDITION CROSS-TYPE-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION CROSS-TYPE-GIVING-UP-CONSERVATIVELY ...)
; compiling (DEFUN WARN-POSSIBLE-CROSS-TYPE-FLOAT-INFO-LOSS ...)
; compiling (DEFUN SB-XC:TYPE-OF ...)
; compiling (DEFUN IN-CL-PACKAGE-P ...)
; compiling (DEFUN ACCEPTABLE-CROSS-TYPEP-PRED ...)
; compiling (DEFUN CROSS-TYPEP ...)
; compiling (DEFUN SB-XC:TYPEP ...)
; compiling (DEFUN CTYPEP ...)
; compiling (DEFUN CTYPE-OF ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-type.fasl-tmp written
; compilation finished in 0:00:00.689
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (SB-XC:DEFTYPE LONG-FLOAT ...)
; compiling (SB-XC:DEFTYPE SHORT-FLOAT ...)
; compiling (SB-XC:DEFTYPE FLOAT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE FLOAT-DIGITS ...)
; compiling (SB-XC:DEFTYPE FLOAT-RADIX ...)
; compiling (SB-XC:DEFTYPE FLOAT-INT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE BOOLE-CODE ...)
; compiling (SB-XC:DEFTYPE BYTE-SPECIFIER ...)
; compiling (SB-XC:DEFTYPE CHAR-INT ...)
; compiling (SB-XC:DEFTYPE PATHNAME-HOST ...)
; compiling (SB-XC:DEFTYPE PATHNAME-DEVICE ...)
; compiling (SB-XC:DEFTYPE PATHNAME-DIRECTORY ...)
; compiling (SB-XC:DEFTYPE PATHNAME-NAME ...)
; compiling (SB-XC:DEFTYPE PATHNAME-TYPE ...)
; compiling (SB-XC:DEFTYPE PATHNAME-VERSION ...)
; compiling (SB-XC:DEFTYPE INTERNAL-TIME ...)
; compiling (SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE ...)
; compiling (SB-XC:DEFTYPE BIGNUM-TYPE ...)
; compiling (SB-XC:DEFTYPE BIGNUM-INDEX ...)
; compiling (SB-XC:DEFTYPE BIGNUM-LENGTH ...)
; compiling (SB-XC:DEFTYPE BIT-INDEX ...)
; compiling (SB-XC:DEFTYPE UNBOXED-ARRAY ...)
; compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...)
; compiling (SB-XC:DEFTYPE COMPLEX-VECTOR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FLOAT-FORMAT-NAME ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...)
; compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...)
; compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...)
; compiling (DEFUN CONTAINING-INTEGER-TYPE ...)
; compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...)
; compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...)
; compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-type.fasl-tmp written
; compilation finished in 0:00:01.053
; compiling file "/«PKGBUILDDIR»/src/compiler/proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *UNDEFINED-WARNINGS*)
; compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET-OLD-VARS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-OPTIMIZE-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...)
; compiling (!DEFVAR *QUEUED-PROCLAIMS* ...)
; compiling (DEFUN PROCESS-VARIABLE-DECLARATION ...)
; compiling (DEFUN PROCLAIM-TYPE ...)
; compiling (DEFUN PROCLAIM-FTYPE ...)
; compiling (DEFUN SEAL-CLASS ...)
; compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...)
; compiling (DEFUN PROCESS-INLINE-DECLARATION ...)
; compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...)
; compiling (DEFUN CANONIZED-DECL-SPEC ...)
; compiling (DEFUN %PROCLAIM ...)
; compiling (DEFUN SB-XC:PROCLAIM ...)

; file: /«PKGBUILDDIR»/src/compiler/proclaim.lisp
; in: DEFUN CANONIZED-DECL-SPEC
;     (SB!C:COMPILER-ERROR "ambiguous declaration ~S:~%  ~
;                ~S was declared as a DECLARATION, but is also a type name."
;      SB!C::DECL-SPEC SB!C::ID)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN GET-OLD-VARS
;     (SB!C:COMPILER-ERROR "The name ~S is not a symbol." SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES
;     (SB!C:COMPILER-STYLE-WARN "Repeated OPTIMIZE qualit~@P. Using ~{~S~^ and ~}"
;      (LENGTH SB!C::DUPS) SB!C::DUPS)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARN

; in: DEFUN %PROCLAIM
;     (SB!C:COMPILER-WARN "unrecognized declaration ~S" SB!C::RAW-FORM)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARN

; in: DEFUN PROCESS-OPTIMIZE-DECL
;     (SB!C:COMPILER-WARN "~@<Ignoring unknown optimization quality ~S in:~_ ~S~:>"
;      SB!C::QUALITY SB!C::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARN

; in: DEFUN PROCLAIM-FTYPE
;     (SB!KERNEL:FTYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME
;      (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE))
; 
; caught STYLE-WARNING:
;   undefined function: FTYPE-PROCLAMATION-MISMATCH-WARN

; in: DEFUN PROCLAIM-TYPE
;     (SB!KERNEL:TYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME
;      (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE))
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-PROCLAMATION-MISMATCH-WARN

; in: DEFUN PROCESS-INLINE-DECLARATION
;     (SB!C::WARN-IF-INLINE-FAILED/PROCLAIM SB!C::NAME SB!C::NEWVAL)
; 
; caught STYLE-WARNING:
;   undefined function: WARN-IF-INLINE-FAILED/PROCLAIM
; 
; compilation unit finished
;   Undefined functions:
;     COMPILER-ERROR COMPILER-STYLE-WARN COMPILER-WARN FTYPE-PROCLAMATION-MISMATCH-WARN TYPE-PROCLAMATION-MISMATCH-WARN WARN-IF-INLINE-FAILED/PROCLAIM
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/proclaim.fasl-tmp written
; compilation finished in 0:00:00.871
; compiling file "/«PKGBUILDDIR»/src/code/class-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "beginning class-init.lisp")
; compiling (DOLIST (X *!BUILT-IN-CLASSES*) ...)
; compiling (/SHOW0 "done with class-init.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/class-init.fasl-tmp written
; compilation finished in 0:00:00.096
; compiling file "/«PKGBUILDDIR»/src/code/defstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "code/defstruct.lisp 15")
; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...)
; compiling (DEFUN COMPILER-LAYOUT-READY-P ...)
; compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...)

; file: /«PKGBUILDDIR»/src/code/defstruct.lisp
; in:
;      DEF!STRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-)
;              (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)
;              (:CONSTRUCTOR MAKE-DEFSTRUCT-DESCRIPTION (NAME)))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:DEFSTRUCT-DESCRIPTION (:CONC-NAME SB!KERNEL::DD-)
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;       (:CONSTRUCTOR SB!KERNEL::MAKE-DEFSTRUCT-DESCRIPTION (SB!KERNEL::NAME)))
;      (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T)
;      (SB!KERNEL::DOC NIL :TYPE (OR STRING NULL))
;      (SB!KERNEL::CONC-NAME NIL :TYPE (OR STRING NULL))
;      (SB!KERNEL::DEFAULT-CONSTRUCTOR NIL :TYPE SYMBOL)
;      (SB!KERNEL::CONSTRUCTORS NIL :TYPE LIST)
;      (SB!KERNEL::COPIER-NAME NIL :TYPE SYMBOL)
;      (SB!KERNEL::PREDICATE-NAME NIL :TYPE SYMBOL)
;      (SB!KERNEL::INCLUDE NIL :TYPE LIST)
;      (SB!KERNEL::ALTERNATE-METACLASS NIL :TYPE LIST)
;      (SB!KERNEL::SLOTS NIL :TYPE LIST) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:DEFSTRUCT-DESCRIPTION
;       {52021E29}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B10689}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:DD-NAME, SB!KERNEL:DD-SLOTS and
;   SB!KERNEL:DD-LENGTH could not be inlined because the structure definition for
;   SB!KERNEL:DEFSTRUCT-DESCRIPTION was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN DD-CLASS-P ...)
; compiling (DEFUN DD-LAYOUT-OR-LOSE ...)

; file: /«PKGBUILDDIR»/src/code/defstruct.lisp
; in:
;      DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION
;              (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:CONC-NAME DSD-)
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;       (:CONC-NAME SB!KERNEL::DSD-) (:COPIER NIL))
;      SB!KERNEL::NAME (SB!INT:INDEX (SB!INT:MISSING-ARG) :TYPE FIXNUM)
;      (SB!KERNEL::ACCESSOR-NAME NIL :TYPE SYMBOL) SB!KERNEL::DEFAULT (TYPE T)
;      (SB!KERNEL::SAFE-P T :TYPE BOOLEAN)
;      (SB!KERNEL::RAW-TYPE T :TYPE
;       (MEMBER T SINGLE-FLOAT DOUBLE-FLOAT SB!KERNEL::COMPLEX-SINGLE-FLOAT
;               SB!KERNEL::COMPLEX-DOUBLE-FLOAT SB!EXT:WORD))
;      (SB!KERNEL::READ-ONLY NIL :TYPE (MEMBER T NIL)))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION
;       {529E36C1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B10689}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:DSD-INDEX, SB!KERNEL:DSD-ACCESSOR-NAME
;   and SB!KERNEL:DSD-RAW-TYPE could not be inlined because the structure
;   definition for SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN DD-LISP-TYPE ...)
; compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...)
; compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...)
; compiling (SB-XC:DEFMACRO DEFSTRUCT ...)
; compiling (DEFMACRO SB-XC:DEFSTRUCT ...)
; compiling (DEFUN ACCESSOR-INHERITED-DATA ...)
; compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...)
; compiling (DEFUN TYPED-COPIER-DEFINITIONS ...)
; compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...)
; compiling (DEFCONSTANT-EQX +DD-OPTION-NAMES+ ...)
; compiling (DEFUN PARSE-1-DD-OPTION ...)
; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...)
; compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...)
; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...)
; compiling (DEFUN PARSE-1-DSD ...)
; compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...)
; compiling (DEFUN ALLOCATE-1-SLOT ...)
; compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...)
; compiling (DEFUN FROB-DD-INCLUSION-STUFF ...)
; compiling (DEFUN INHERITS-FOR-STRUCTURE ...)
; compiling (DEFUN %DEFSTRUCT ...)
; compiling (DEFUN %ACCESSOR-PLACE-FORM ...)
; compiling (DEFUN SLOT-ACCESS-TRANSFORM ...)
; compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...)
; compiling (DEFUN UNDECLARE-STRUCTURE ...)
; compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...)
; compiling (DEFUN %COMPILER-DEFSTRUCT ...)
; compiling (DEFUN COMPARE-SLOTS ...)
; compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...)
; compiling (DEFUN %REDEFINE-DEFSTRUCT ...)
; compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH))
; compiling (DEFUN DD-LAYOUT-LENGTH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DD-INSTANCE-LENGTH ...)
; compiling (DEFUN DD-BITMAP ...)
; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...)
; compiling (DEFUN FIND-NAME-INDICES ...)
; compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...)
; compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...)
; compiling (DEFUN ACCESSOR-DEFINITIONS ...)
; compiling (DEFUN COPIER-DEFINITION ...)
; compiling (DEFUN PREDICATE-DEFINITION ...)
; compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...)
; compiling (DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...)
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...)
; compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...)
; compiling (!SET-UP-STRUCTURE-OBJECT-CLASS)
; compiling (DOLIST (ARGS #) ...)
; compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...)
; compiling (DEFUN STRUCTURE-INSTANCE-ACCESSOR-P ...)

; file: /«PKGBUILDDIR»/src/code/defstruct.lisp
; in: SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT
;     (SB!C:COMPILER-NOTIFY "implementation limitation: ~
;                Non-toplevel DEFSTRUCT constructors are slow.")
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:COMPILER-NOTIFY

; in: DEFUN %COMPILER-DEFSTRUCT
;     (SB!C:COMPILER-STYLE-WARN 'SB!C:INLINING-DEPENDENCY-FAILURE :FORMAT-CONTROL
;      (SB!INT:!UNCROSS-FORMAT-CONTROL "~@<Previously compiled call~P to ~
;   ~{~/sb!impl:print-symbol-with-prefix/~^~#[~; and~:;,~] ~} ~
;   could not be inlined because the structure definition for ~
;   ~/sb!impl:print-symbol-with-prefix/ was not yet seen. To avoid this warning, ~
;   DEFSTRUCT should precede references to the affected functions, ~
;   or they must be declared locally notinline at each call site.~@:>")
;      :FORMAT-ARGUMENTS
;      (LIST (LENGTH SB!INT:IT) (NREVERSE SB!INT:IT)
;            (SB!KERNEL:DD-NAME SB!KERNEL::DD)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:COMPILER-STYLE-WARN

;     (SB!INT:STYLE-WARN "~@<Non-overwritten accessor ~S does not access ~
;                               slot with name ~S (accessing an inherited slot ~
;                               instead).~:@>"
;      SB!KERNEL::ACCESSOR-NAME (SB!KERNEL:DSD-NAME SB!KERNEL::DSD))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN PARSE-1-DSD
;     (SB!INT:STYLE-WARN
;      "~@<The structure accessor name ~S is the same as the name of the ~
;             structure type predicate. ANSI doesn't specify what to do in ~
;             this case. We'll overwrite the type predicate with the slot ~
;             accessor, but you can't rely on this behavior, so it'd be wise to ~
;             remove the ambiguity in your code.~@:>"
;      SB!KERNEL::ACCESSOR-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN TYPED-ACCESSOR-DEFINITIONS
;     (SB!INT:STYLE-WARN "~@<Non-overwritten accessor ~S does not access ~
;                               slot with name ~S (accessing an inherited slot ~
;                               instead).~:@>"
;      SB!KERNEL::NAME (SB!KERNEL:DSD-NAME SB!ALIEN:SLOT))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     SB!C:COMPILER-NOTIFY SB!C:COMPILER-STYLE-WARN STYLE-WARN
;   caught 7 STYLE-WARNING conditions
; compiling (/SHOW0 "code/defstruct.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/defstruct.fasl-tmp written
; compilation finished in 0:00:07.468
; compiling file "/«PKGBUILDDIR»/src/code/alien-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "code/alien-type.lisp 16")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFSTRUCT (ALIEN-TYPE-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS ALIEN ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES ALIEN ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR ALIEN ...)
; compiling (DEFUN MAKE-ALIEN-TYPE-TYPE ...)
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT)

; file: /«PKGBUILDDIR»/src/code/alien-type.lisp
; in: !DEF-TYPE-TRANSLATOR ALIEN
;     (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE
;                                          (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

;     (SB!KERNEL:MAKE-NULL-LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-NULL-LEXENV
; 
; compilation unit finished
;   Undefined type:
;     LEXENV
;   Undefined function:
;     MAKE-NULL-LEXENV
;   caught 2 STYLE-WARNING conditions
; compiling (/SHOW0 "code/alien-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/alien-type.fasl-tmp written
; compilation finished in 0:00:00.294
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangstructs.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (FORCE-DELAYED-DEF!STRUCTS)

; /«PKGBUILDDIR»/obj/from-host/src/code/force-delayed-defbangstructs.fasl-tmp written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/src/code/early-full-eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!EVAL")
; compiling (SB!INT:!DEFPARAMETER *EVAL-LEVEL* ...)
; compiling (SB!INT:!DEFPARAMETER *EVAL-VERBOSE* ...)
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...)
; compiling (SB!C::SEAL-CLASS (SPECIFIER-TYPE #))
; compiling (DECLAIM (FREEZE-TYPE INTERPRETED-FUNCTION))

; /«PKGBUILDDIR»/obj/from-host/src/code/early-full-eval.fasl-tmp written
; compilation finished in 0:00:00.039
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *COMPILER-ERROR-BAILOUT*)
; compiling (DEFINE-CONDITION COMPILER-ERROR ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.")
; ==>
;   "Control returned from *COMPILER-ERROR-BAILOUT*."
; 
; note: deleting unreachable code
; compiling (DEFUN COMPILER-ERROR ...)
; compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...)
; compiling (DEFUN COMPILER-WARN ...)
; compiling (DEFUN COMPILER-STYLE-WARN ...)
; compiling (DEFUN SOURCE-TO-STRING ...)
; compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...)
; compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...)
; compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...)

; file: /«PKGBUILDDIR»/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGUMENTS
;      'SB!INT:SIMPLE-PROGRAM-ERROR 'SB!C:COMPILER-ERROR)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN COMPILER-STYLE-WARN
;     #'SB!INT:STYLE-WARN
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     COERCE-TO-CONDITION STYLE-WARN
;   caught 2 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/compiler-error.fasl-tmp written
; compilation finished in 0:00:00.395
; compiling file "/«PKGBUILDDIR»/src/code/late-deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...)
; compiling (SETQ SB!IMPL::!*XC-PROCESSED-DEFTYPES* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-deftypes-for-target.fasl-tmp written
; compilation finished in 0:00:00.026
; compiling file "/«PKGBUILDDIR»/src/code/type-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "precomputing built-in symbol type specifiers")
; compiling (!PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*)
; compiling (SETF *TYPE-SYSTEM-INITIALIZED* ...)
; compiling (/SHOW0 "done with type-init.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/type-init.fasl-tmp written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (!COLD-INIT-FORMS (MAP # ...))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fixup-type.fasl-tmp written
; compilation finished in 0:00:00.035
; compiling file "/«PKGBUILDDIR»/src/code/package.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!TYPE HASH-VECTOR ...)
; compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in:
;      DEF!STRUCT (SB-XC:PACKAGE
;              (:CONSTRUCTOR %MAKE-PACKAGE
;               (%NAME INTERNAL-SYMBOLS EXTERNAL-SYMBOLS))
;              (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL)))
;              (:PREDICATE SB-XC:PACKAGEP))
;     (SB!INT:DEF!STRUCT
;      (SB-XC:PACKAGE
;       (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE
;        (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS))
;       (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL)))
;       (:PREDICATE SB-XC:PACKAGEP))
;      "the standard structure for the description of a package"
;      (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL))
;      (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST)
;      (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR)
;      (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX)
;      (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST)
;      (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-XC:PACKAGE {537FE789}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B10689}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:PACKAGE-DOC-STRING could not be inlined
;   because the structure definition for SB-XC:PACKAGE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...)
; compiling (FLET (#) ...)
; compiling (DEFUN PACKAGE-ITER-INIT ...)
; compiling (DECLAIM (INLINE PKG-SYMBOL-VALID-P))
; compiling (DEFUN PKG-SYMBOL-VALID-P ...)
; compiling (DEFCONSTANT +PACKAGE-ITER-CHECK-SHADOWS+ ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in: DEFUN PACKAGE-ITER-STEP
;     (LOGIOR (SB-XC:MASK-FIELD (SB-XC:BYTE 3 3) SB!IMPL::START-STATE)
;             SB!IMPL::NEXT-STATE)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, 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 3) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -536870848 536870911), not a (UNSIGNED-BYTE
;                                                                       32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (THE FIXNUM (+ SB!IMPL::STATE (ASH 1 6)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN PACKAGE-ITER-STEP ...)
; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in:
;      DEF!STRUCT (SB-XC:PACKAGE
;              (:CONSTRUCTOR %MAKE-PACKAGE
;               (%NAME INTERNAL-SYMBOLS EXTERNAL-SYMBOLS))
;              (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL)))
;              (:PREDICATE SB-XC:PACKAGEP))
;     (SB!INT:DEF!STRUCT
;      (SB-XC:PACKAGE
;       (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE
;        (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS))
;       (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL)))
;       (:PREDICATE SB-XC:PACKAGEP))
;      "the standard structure for the description of a package"
;      (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL))
;      (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST)
;      (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR)
;      (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX)
;      (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST)
;      (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB-XC:PACKAGE (:INCLUDE SB!SYS:STRUCTURE!OBJECT)
;        (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE
;         (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS))
;        (:PREDICATE SB-XC:PACKAGEP))
;     "the standard structure for the description of a package"
;     (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL))
;     (SB!IMPL::%NICKNAMES NIL :TYPE LIST)
;     (SB!IMPL::%USE-LIST NIL :TYPE LIST)
;     (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR)
;     (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX)
;     (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST)
;     (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;     (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;     (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C:DEFINITION-SOURCE-LOCATION

; in: DEFUN PACKAGE-ITER-INIT
;     (SB!IMPL::PACKAGE-LISTIFY SB!IMPL::PKG-DESIGNATOR-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: PACKAGE-LISTIFY
; 
; compilation unit finished
;   Undefined type:
;     SB!C:DEFINITION-SOURCE-LOCATION
;   Undefined function:
;     PACKAGE-LISTIFY
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes
; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/package.fasl-tmp written
; compilation finished in 0:00:01.077
; compiling file "/«PKGBUILDDIR»/src/code/random.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...)
; compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/random.fasl-tmp written
; compilation finished in 0:00:00.058
; compiling file "/«PKGBUILDDIR»/src/code/hash-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...)
; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...)
; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...)
; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...)
; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...)
; compiling (DEFUN %HASH-TABLE-ALIST ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/hash-table.fasl-tmp written
; compilation finished in 0:00:00.870
; compiling file "/«PKGBUILDDIR»/src/code/readtable.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...)
; compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE READTABLE))

; /«PKGBUILDDIR»/obj/from-host/src/code/readtable.fasl-tmp written
; compilation finished in 0:00:00.075
; compiling file "/«PKGBUILDDIR»/src/code/pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!STRUCT (HOST #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN ...)
; compiling (DEF!STRUCT (PATTERN #) ...)
; compiling (DEF!TYPE PATHNAME-COMPONENT-TOKENS ...)
; compiling (SB-XC:DEFSTRUCT (PATHNAME # ...) ...)
; compiling (SB-XC:DEFSTRUCT (LOGICAL-PATHNAME # ...))
; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...)

; file: /«PKGBUILDDIR»/src/code/pathname.lisp
; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY
;     (SB!IMPL::%PATHNAME-DIRECTORY PATHNAME)
; 
; caught STYLE-WARNING:
;   undefined function: %PATHNAME-DIRECTORY

; in:
;      DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN)
;              (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING)
;               (PARSE-NATIVE (LAMBDA # #))
;               (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...))
;     (SB!IMPL::%PATHNAME-HOST SB!IMPL::X)
; 
; caught STYLE-WARNING:
;   undefined function: %PATHNAME-HOST

;     #'SB!IMPL::PARSE-LOGICAL-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-LOGICAL-NAMESTRING

;     #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-ENOUGH-NAMESTRING

;     #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-DIRECTORY

;     #'SB!IMPL::UNPARSE-LOGICAL-FILE
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-FILE

;     #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-NAMESTRING

; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST
;     (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::DIR SB!IMPL::ESCAPE-CHAR)
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-PHYSICAL-PIECE
; 
; compilation unit finished
;   Undefined functions:
;     %PATHNAME-DIRECTORY %PATHNAME-HOST PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING UNPARSE-PHYSICAL-PIECE
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/pathname.fasl-tmp written
; compilation finished in 0:00:01.345
; compiling file "/«PKGBUILDDIR»/src/code/host-pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!PRETTY")
; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/host-pprint.fasl-tmp written
; compilation finished in 0:00:00.204
; compiling file "/«PKGBUILDDIR»/src/compiler/lexenv.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV))

; file: /«PKGBUILDDIR»/src/compiler/lexenv.lisp
; in:
;      DEF!STRUCT (LEXENV (:PRINT-FUNCTION PRINT-LEXENV)
;              (:CONSTRUCTOR MAKE-NULL-LEXENV NIL)
;              (:CONSTRUCTOR INTERNAL-MAKE-LEXENV
;               (FUNS VARS BLOCKS TAGS TYPE-RESTRICTIONS ...)))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LEXENV (:PRINT-FUNCTION SB!C::PRINT-LEXENV)
;       (:CONSTRUCTOR SB!KERNEL:MAKE-NULL-LEXENV NIL)
;       (:CONSTRUCTOR SB!C::INTERNAL-MAKE-LEXENV
;        (SB!C::FUNS SB!C::VARS SB!C::BLOCKS SB!C::TAGS SB!C::TYPE-RESTRICTIONS
;         LAMBDA SB!C::CLEANUP SB!C::HANDLED-CONDITIONS
;         SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::%POLICY SB!C::USER-DATA)))
;      (SB!C::FUNS NIL :TYPE LIST) (SB!C::VARS NIL :TYPE LIST)
;      (SB!C::BLOCKS NIL :TYPE LIST) (SB!C::TAGS NIL :TYPE LIST)
;      (SB!C::TYPE-RESTRICTIONS NIL :TYPE LIST) (LAMBDA ()) (SB!C::CLEANUP NIL)
;      (SB!C::HANDLED-CONDITIONS SB!C::*HANDLED-CONDITIONS*)
;      (SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::*DISABLED-PACKAGE-LOCKS*)
;      (SB!C::%POLICY NIL :TYPE (OR NULL SB!C:POLICY)) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:LEXENV {5381E2C9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B10689}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::LEXENV-FUNS could not be inlined because the
;   structure definition for SB!KERNEL:LEXENV was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (LEXENV # ...) ...)
; compiling (DEFUN LEXENV-POLICY ...)
; compiling (DEFUN NULL-LEXENV-P ...)
; compiling (DEFUN COERCE-TO-LEXENV ...)
; compiling (DEFUN PRINT-LEXENV ...)

; file: /«PKGBUILDDIR»/src/compiler/lexenv.lisp
; in: DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE
;     (SB!INT:COLLECT ((SB!C::DECLS) (SB!C::MACROS) (SB!C::SYMBOL-MACROS))
;       (COND
;        ((OR (SB!C::LEXENV-BLOCKS SB!KERNEL:LEXENV)
;             (SB!C::LEXENV-TAGS SB!KERNEL:LEXENV))
;         NIL)
;        ((AND (NULL SB!C::VARS) (NULL SB!C::FUNS))
;         (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL #)))
;        ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL)
;        ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL)
;        (T (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV # # # #)))))
; --> MACROLET 
; ==>
;   (LET* ((#:DECLS-N-VALUE-286 NIL)
;          #:DECLS-N-TAIL-287
;          (#:MACROS-N-VALUE-288 NIL)
;          #:MACROS-N-TAIL-289
;          (#:SYMBOL-MACROS-N-VALUE-290 NIL)
;          #:SYMBOL-MACROS-N-TAIL-291)
;     (COND
;      ((OR (SB!C::LEXENV-BLOCKS SB!KERNEL:LEXENV)
;           (SB!C::LEXENV-TAGS SB!KERNEL:LEXENV))
;       NIL)
;      ((AND (NULL SB!C::VARS) (NULL SB!C::FUNS))
;       (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL #)))
;      ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL)
;      ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL)
;      (T (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV # # # #)))))
; 
; caught STYLE-WARNING:
;   The variable #:DECLS-N-TAIL-287 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable #:MACROS-N-TAIL-289 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable #:SYMBOL-MACROS-N-TAIL-291 is defined but never used.

;     (DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((SB!C::X (CAR #:N-LIST302)))
;     (SETQ #:N-LIST302 (CDR #:N-LIST302))
;     (TAGBODY (RETURN T)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.

;     (DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((SB!C::X (CAR #:N-LIST304)))
;     (SETQ #:N-LIST304 (CDR #:N-LIST304))
;     (TAGBODY (RETURN T)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions
; compiling (DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/lexenv.fasl-tmp written
; compilation finished in 0:00:00.587
; compiling file "/«PKGBUILDDIR»/src/compiler/fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN COERCE ...)
; compiling (DEFKNOWN LIST-TO-VECTOR* ...)
; compiling (DEFKNOWN VECTOR-TO-VECTOR* ...)
; compiling (DEFKNOWN TYPE-OF ...)
; compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...)
; compiling (DEFKNOWN TYPEP ...)
; compiling (DEFKNOWN SUBTYPEP ...)
; compiling (DEFKNOWN (NULL SYMBOLP ...) ...)
; compiling (DEFKNOWN (EQ EQL ...) ...)
; compiling (DEFKNOWN (EQUAL EQUALP) ...)
; compiling (DEFKNOWN FIXNUM-MOD-P ...)
; compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...)
; compiling (DEFKNOWN CLASSOID-NAME ...)
; compiling (DEFKNOWN FIND-CLASSOID ...)
; compiling (DEFKNOWN CLASSOID-OF ...)
; compiling (DEFKNOWN LAYOUT-OF ...)
; compiling (DEFKNOWN COPY-STRUCTURE ...)
; compiling (DEFKNOWN (SYMBOL-VALUE) ...)
; compiling (DEFKNOWN ABOUT-TO-MODIFY-SYMBOL-VALUE ...)
; compiling (DEFKNOWN (SYMBOL-FUNCTION) ...)
; compiling (DEFKNOWN BOUNDP ...)
; compiling (DEFKNOWN FBOUNDP ...)
; compiling (DEFKNOWN SPECIAL-OPERATOR-P ...)
; compiling (DEFKNOWN SET ...)
; compiling (DEFKNOWN FDEFINITION ...)
; compiling (DEFKNOWN %SET-FDEFINITION ...)
; compiling (DEFKNOWN MAKUNBOUND ...)
; compiling (DEFKNOWN FMAKUNBOUND ...)
; compiling (DEFKNOWN APPLY ...)
; compiling (DEFKNOWN FUNCALL ...)
; compiling (DEFKNOWN (MAPCAR MAPLIST) ...)
; compiling (DEFKNOWN (MAPCAN MAPCON) ...)
; compiling (DEFKNOWN (MAPC MAPL) ...)
; compiling (DEFKNOWN VALUES ...)
; compiling (DEFKNOWN VALUES-LIST ...)
; compiling (DEFKNOWN MACRO-FUNCTION ...)
; compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...)
; compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...)
; compiling (DEFKNOWN PROCLAIM ...)
; compiling (DEFKNOWN GET ...)
; compiling (DEFKNOWN SB!IMPL::GET3 ...)
; compiling (DEFKNOWN REMPROP ...)
; compiling (DEFKNOWN SYMBOL-PLIST ...)
; compiling (DEFKNOWN GETF ...)
; compiling (DEFKNOWN GET-PROPERTIES ...)
; compiling (DEFKNOWN SYMBOL-NAME ...)
; compiling (DEFKNOWN MAKE-SYMBOL ...)
; compiling (DEFKNOWN %MAKE-SYMBOL ...)
; compiling (DEFKNOWN COPY-SYMBOL ...)
; compiling (DEFKNOWN GENSYM ...)
; compiling (DEFKNOWN SYMBOL-PACKAGE ...)
; compiling (DEFKNOWN KEYWORDP ...)
; compiling (DEFKNOWN GENTEMP ...)
; compiling (DEFKNOWN MAKE-PACKAGE ...)
; compiling (DEFKNOWN FIND-PACKAGE ...)
; compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; compiling (DEFKNOWN PACKAGE-NAME ...)
; compiling (DEFKNOWN PACKAGE-NICKNAMES ...)
; compiling (DEFKNOWN RENAME-PACKAGE ...)
; compiling (DEFKNOWN PACKAGE-USE-LIST ...)
; compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...)
; compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...)
; compiling (DEFKNOWN LIST-ALL-PACKAGES ...)
; compiling (DEFKNOWN INTERN ...)
; compiling (DEFKNOWN FIND-SYMBOL ...)
; compiling (DEFKNOWN (EXPORT IMPORT) ...)
; compiling (DEFKNOWN UNINTERN ...)
; compiling (DEFKNOWN UNEXPORT ...)
; compiling (DEFKNOWN SHADOWING-IMPORT ...)
; compiling (DEFKNOWN SHADOW ...)
; compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...)
; compiling (DEFKNOWN FIND-ALL-SYMBOLS ...)
; compiling (DEFKNOWN PACKAGE-ITER-STEP ...)
; compiling (DEFKNOWN ZEROP ...)
; compiling (DEFKNOWN (PLUSP MINUSP) ...)
; compiling (DEFKNOWN (ODDP EVENP) ...)
; compiling (DEFKNOWN (=) ...)
; compiling (DEFKNOWN (/=) ...)
; compiling (DEFKNOWN (< > ...) ...)
; compiling (DEFKNOWN (MAX MIN) ...)
; compiling (DEFKNOWN (+ *) ...)
; compiling (DEFKNOWN - ...)
; compiling (DEFKNOWN / ...)
; compiling (DEFKNOWN (1+ 1-) ...)
; compiling (DEFKNOWN CONJUGATE ...)
; compiling (DEFKNOWN GCD ...)
; compiling (DEFKNOWN LCM ...)
; compiling (DEFKNOWN EXP ...)
; compiling (DEFKNOWN EXPT ...)
; compiling (DEFKNOWN LOG ...)
; compiling (DEFKNOWN SQRT ...)
; compiling (DEFKNOWN ISQRT ...)
; compiling (DEFKNOWN (ABS PHASE ...) ...)
; compiling (DEFKNOWN CIS ...)
; compiling (DEFKNOWN (SIN COS) ...)
; compiling (DEFKNOWN ATAN ...)
; compiling (DEFKNOWN (TAN SINH ...) ...)
; compiling (DEFKNOWN (ASIN ACOS ...) ...)
; compiling (DEFKNOWN FLOAT ...)
; compiling (DEFKNOWN (RATIONAL) ...)
; compiling (DEFKNOWN (RATIONALIZE) ...)
; compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...)
; compiling (DEFKNOWN (FLOOR CEILING ...) ...)
; compiling (DEFKNOWN TRUNCATE ...)
; compiling (DEFKNOWN %MULTIPLY-HIGH ...)
; compiling (DEFKNOWN (MOD REM) ...)
; compiling (DEFKNOWN (FFLOOR FCEILING ...) ...)
; compiling (DEFKNOWN DECODE-FLOAT ...)
; compiling (DEFKNOWN SCALE-FLOAT ...)
; compiling (DEFKNOWN FLOAT-RADIX ...)
; compiling (DEFKNOWN FLOAT-SIGN ...)
; compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...)
; compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...)
; compiling (DEFKNOWN COMPLEX ...)
; compiling (DEFKNOWN (REALPART IMAGPART) ...)
; compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...)
; compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...)
; compiling (DEFKNOWN BOOLE ...)
; compiling (DEFKNOWN LOGNOT ...)
; compiling (DEFKNOWN LOGTEST ...)
; compiling (DEFKNOWN LOGBITP ...)
; compiling (DEFKNOWN ASH ...)
; compiling (DEFKNOWN %ASH/RIGHT ...)
; compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...)
; compiling (DEFKNOWN BYTE ...)
; compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...)
; compiling (DEFKNOWN LDB ...)
; compiling (DEFKNOWN LDB-TEST ...)
; compiling (DEFKNOWN MASK-FIELD ...)
; compiling (DEFKNOWN DPB ...)
; compiling (DEFKNOWN DEPOSIT-FIELD ...)
; compiling (DEFKNOWN RANDOM ...)
; compiling (DEFKNOWN MAKE-RANDOM-STATE ...)
; compiling (DEFKNOWN SEED-RANDOM-STATE ...)
; compiling (DEFKNOWN RANDOM-STATE-P ...)
; compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...)
; compiling (DEFKNOWN DIGIT-CHAR-P ...)
; compiling (DEFKNOWN (CHAR=) ...)
; compiling (DEFKNOWN (CHAR/= CHAR< ...) ...)
; compiling (DEFKNOWN (CHAR-EQUAL CHAR-LESSP ...) ...)
; compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...)
; compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...)
; compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...)
; compiling (DEFKNOWN CHARACTER ...)
; compiling (DEFKNOWN CHAR-CODE ...)
; compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...)
; compiling (DEFKNOWN DIGIT-CHAR ...)
; compiling (DEFKNOWN CHAR-INT ...)
; compiling (DEFKNOWN CHAR-NAME ...)
; compiling (DEFKNOWN NAME-CHAR ...)
; compiling (DEFKNOWN CODE-CHAR ...)
; compiling (DEFKNOWN ELT ...)
; compiling (DEFKNOWN SUBSEQ ...)
; compiling (DEFKNOWN COPY-SEQ ...)
; compiling (DEFKNOWN LENGTH ...)
; compiling (DEFKNOWN REVERSE ...)
; compiling (DEFKNOWN NREVERSE ...)
; compiling (DEFKNOWN MAKE-SEQUENCE ...)
; compiling (DEFKNOWN CONCATENATE ...)
; compiling (DEFKNOWN %CONCATENATE-TO-STRING ...)
; compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...)
; compiling (DEFKNOWN (MAP %MAP) ...)
; compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...)
; compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...)
; compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...)
; compiling (DEFKNOWN MAP-INTO ...)
; compiling (DEFKNOWN (SB!IMPL::VECTOR-MAP-INTO/SIMPLE-ARRAY-NIL SB!IMPL::VECTOR-MAP-INTO/SIMPLE-BASE-STRING ...) ...)
; compiling (DEFKNOWN SOME ...)
; compiling (DEFKNOWN (EVERY NOTANY ...) ...)
; compiling (DEFKNOWN REDUCE ...)
; compiling (DEFKNOWN FILL ...)
; compiling (DEFKNOWN REPLACE ...)
; compiling (DEFKNOWN REMOVE ...)
; compiling (DEFKNOWN SUBSTITUTE ...)
; compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...)
; compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...)
; compiling (DEFKNOWN DELETE ...)
; compiling (DEFKNOWN NSUBSTITUTE ...)
; compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...)
; compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...)
; compiling (DEFKNOWN REMOVE-DUPLICATES ...)
; compiling (DEFKNOWN DELETE-DUPLICATES ...)
; compiling (DEFKNOWN FIND ...)
; compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...)
; compiling (DEFKNOWN POSITION ...)
; compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...)
; compiling (DEFKNOWN COUNT ...)
; compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...)
; compiling (DEFKNOWN (MISMATCH SEARCH) ...)
; compiling (DEFKNOWN (STABLE-SORT SORT) ...)
; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...)
; compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...)
; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...)
; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...)
; compiling (DEFKNOWN MERGE ...)
; compiling (DEFKNOWN READ-SEQUENCE ...)
; compiling (DEFKNOWN WRITE-SEQUENCE ...)
; compiling (DEFKNOWN (CAR CDR ...) ...)
; compiling (DEFKNOWN (CAAR CADR ...) ...)
; compiling (DEFKNOWN CONS ...)
; compiling (DEFKNOWN TREE-EQUAL ...)
; compiling (DEFKNOWN ENDP ...)
; compiling (DEFKNOWN LIST-LENGTH ...)
; compiling (DEFKNOWN (NTH FAST-&REST-NTH) ...)
; compiling (DEFKNOWN NTHCDR ...)
; compiling (DEFKNOWN LAST ...)
; compiling (DEFKNOWN %LAST0 ...)
; compiling (DEFKNOWN %LAST1 ...)
; compiling (DEFKNOWN %LASTN/FIXNUM ...)
; compiling (DEFKNOWN %LASTN/BIGNUM ...)
; compiling (DEFKNOWN LIST ...)
; compiling (DEFKNOWN LIST* ...)
; compiling (DEFKNOWN MAKE-LIST ...)
; compiling (DEFKNOWN SB!IMPL::|List| ...)
; compiling (DEFKNOWN SB!IMPL::|List*| ...)
; compiling (DEFKNOWN SB!IMPL::|Append| ...)
; compiling (DEFKNOWN SB!IMPL::|Vector| ...)
; compiling (DEFKNOWN APPEND ...)
; compiling (DEFKNOWN SB!IMPL::APPEND2 ...)
; compiling (DEFKNOWN COPY-LIST ...)
; compiling (DEFKNOWN COPY-ALIST ...)
; compiling (DEFKNOWN COPY-TREE ...)
; compiling (DEFKNOWN REVAPPEND ...)
; compiling (DEFKNOWN NCONC ...)
; compiling (DEFKNOWN NRECONC ...)
; compiling (DEFKNOWN BUTLAST ...)
; compiling (DEFKNOWN NBUTLAST ...)
; compiling (DEFKNOWN LDIFF ...)
; compiling (DEFKNOWN (RPLACA RPLACD) ...)
; compiling (DEFKNOWN SUBST ...)
; compiling (DEFKNOWN NSUBST ...)
; compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...)
; compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...)
; compiling (DEFKNOWN SUBLIS ...)
; compiling (DEFKNOWN NSUBLIS ...)
; compiling (DEFKNOWN MEMBER ...)
; compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...)
; compiling (DEFKNOWN TAILP ...)
; compiling (DEFKNOWN ADJOIN ...)
; compiling (DEFKNOWN (UNION INTERSECTION ...) ...)
; compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...)
; compiling (DEFKNOWN SUBSETP ...)
; compiling (DEFKNOWN ACONS ...)
; compiling (DEFKNOWN PAIRLIS ...)
; compiling (DEFKNOWN (RASSOC ASSOC) ...)
; compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...)
; compiling (DEFKNOWN (MEMQ ASSQ) ...)
; compiling (DEFKNOWN DELQ ...)
; compiling (DEFKNOWN MAKE-HASH-TABLE ...)
; compiling (DEFKNOWN HASH-TABLE-P ...)
; compiling (DEFKNOWN GETHASH ...)
; compiling (DEFKNOWN SB!IMPL::GETHASH3 ...)
; compiling (DEFKNOWN %PUTHASH ...)
; compiling (DEFKNOWN REMHASH ...)
; compiling (DEFKNOWN MAPHASH ...)
; compiling (DEFKNOWN CLRHASH ...)
; compiling (DEFKNOWN HASH-TABLE-COUNT ...)
; compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...)
; compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...)
; compiling (DEFKNOWN HASH-TABLE-SIZE ...)
; compiling (DEFKNOWN HASH-TABLE-TEST ...)
; compiling (DEFKNOWN SXHASH ...)
; compiling (DEFKNOWN PSXHASH ...)
; compiling (DEFKNOWN HASH-TABLE-EQUALP ...)
; compiling (DEFKNOWN MAKE-ARRAY ...)
; compiling (DEFKNOWN %MAKE-ARRAY ...)
; compiling (DEFKNOWN SB!IMPL::FILL-DATA-VECTOR ...)
; compiling (DEFKNOWN VECTOR ...)
; compiling (DEFKNOWN AREF ...)
; compiling (DEFKNOWN ROW-MAJOR-AREF ...)
; compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...)
; compiling (DEFKNOWN ARRAY-RANK ...)
; compiling (DEFKNOWN ARRAY-DIMENSION ...)
; compiling (DEFKNOWN ARRAY-DIMENSIONS ...)
; compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...)
; compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...)
; compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...)
; compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...)
; compiling (DEFKNOWN SVREF ...)
; compiling (DEFKNOWN BIT ...)
; compiling (DEFKNOWN SBIT ...)
; compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...)
; compiling (DEFKNOWN BIT-NOT ...)
; compiling (DEFKNOWN BIT-VECTOR-= ...)
; compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...)
; compiling (DEFKNOWN FILL-POINTER ...)
; compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...)
; compiling (DEFKNOWN VECTOR-PUSH ...)
; compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...)
; compiling (DEFKNOWN VECTOR-POP ...)
; compiling (DEFKNOWN ADJUST-ARRAY ...)
; compiling (DEFKNOWN CHAR ...)
; compiling (DEFKNOWN SCHAR ...)
; compiling (DEFKNOWN (STRING= STRING-EQUAL) ...)
; compiling (DEFKNOWN (STRING< STRING> ...) ...)
; compiling (DEFKNOWN MAKE-STRING ...)
; compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...)
; compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...)
; compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...)
; compiling (DEFKNOWN STRING ...)
; compiling (DEFKNOWN (STRING<* STRING>* ...) ...)
; compiling (DEFKNOWN STRING=* ...)
; compiling (DEFKNOWN EVAL ...)
; compiling (DEFKNOWN CONSTANTP ...)
; compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...)
; compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...)
; compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...)
; compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...)
; compiling (DEFKNOWN MAKE-ECHO-STREAM ...)
; compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...)
; compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...)
; compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...)
; compiling (DEFKNOWN STREAMP ...)
; compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...)
; compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...)
; compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...)
; compiling (DEFKNOWN OPEN-STREAM-P ...)
; compiling (DEFKNOWN CLOSE ...)
; compiling (DEFKNOWN FILE-STRING-LENGTH ...)
; compiling (DEFKNOWN COPY-READTABLE ...)
; compiling (DEFKNOWN READTABLEP ...)
; compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...)
; compiling (DEFKNOWN SET-MACRO-CHARACTER ...)
; compiling (DEFKNOWN GET-MACRO-CHARACTER ...)
; compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...)
; compiling (DEFKNOWN PPRINT-DISPATCH ...)
; compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...)
; compiling (DEFKNOWN PPRINT-TABULAR ...)
; compiling (DEFKNOWN PPRINT-INDENT ...)
; compiling (DEFKNOWN PPRINT-NEWLINE ...)
; compiling (DEFKNOWN PPRINT-TAB ...)
; compiling (DEFKNOWN SET-PPRINT-DISPATCH ...)
; compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...)
; compiling (DEFKNOWN READ-CHAR ...)
; compiling (DEFKNOWN READ-CHAR-NO-HANG ...)
; compiling (DEFKNOWN READ-DELIMITED-LIST ...)
; compiling (DEFKNOWN READ-LINE ...)
; compiling (DEFKNOWN UNREAD-CHAR ...)
; compiling (DEFKNOWN PEEK-CHAR ...)
; compiling (DEFKNOWN LISTEN ...)
; compiling (DEFKNOWN CLEAR-INPUT ...)
; compiling (DEFKNOWN READ-FROM-STRING ...)
; compiling (DEFKNOWN PARSE-INTEGER ...)
; compiling (DEFKNOWN READ-BYTE ...)
; compiling (DEFKNOWN (PRIN1 PRINT ...) ...)
; compiling (DEFKNOWN OUTPUT-OBJECT ...)
; compiling (DEFKNOWN (PPRINT) ...)
; compiling (DEFFROB WRITE ...)
; compiling (DEFFROB WRITE-TO-STRING ...)
; compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...)
; compiling (DEFKNOWN SB!IMPL::STRINGIFY-OBJECT ...)
; compiling (DEFKNOWN WRITE-CHAR ...)
; compiling (DEFKNOWN (WRITE-STRING WRITE-LINE) ...)
; compiling (DEFKNOWN (TERPRI FINISH-OUTPUT ...) ...)
; compiling (DEFKNOWN FRESH-LINE ...)
; compiling (DEFKNOWN WRITE-BYTE ...)
; compiling (DEFKNOWN FORMAT ...)
; compiling (DEFKNOWN SB!FORMAT::ARGS-EXHAUSTED ...)
; compiling (DEFKNOWN (Y-OR-N-P YES-OR-NO-P) ...)
; compiling (DEFKNOWN WILD-PATHNAME-P ...)
; compiling (DEFKNOWN PATHNAME-MATCH-P ...)
; compiling (DEFKNOWN TRANSLATE-PATHNAME ...)
; compiling (DEFKNOWN LOGICAL-PATHNAME ...)
; compiling (DEFKNOWN TRANSLATE-LOGICAL-PATHNAME ...)
; compiling (DEFKNOWN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...)
; compiling (DEFKNOWN LOGICAL-PATHNAME-TRANSLATIONS ...)
; compiling (DEFKNOWN PATHNAME ...)
; compiling (DEFKNOWN TRUENAME ...)
; compiling (DEFKNOWN PARSE-NAMESTRING ...)
; compiling (DEFKNOWN MERGE-PATHNAMES ...)
; compiling (DEFKNOWN MAKE-PATHNAME ...)
; compiling (DEFKNOWN PATHNAMEP ...)
; compiling (DEFKNOWN PATHNAME-HOST ...)
; compiling (DEFKNOWN PATHNAME-DEVICE ...)
; compiling (DEFKNOWN PATHNAME-DIRECTORY ...)
; compiling (DEFKNOWN PATHNAME-NAME ...)
; compiling (DEFKNOWN PATHNAME-TYPE ...)
; compiling (DEFKNOWN PATHNAME-VERSION ...)
; compiling (DEFKNOWN PATHNAME= ...)
; compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...)
; compiling (DEFKNOWN ENOUGH-NAMESTRING ...)
; compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...)
; compiling (DEFKNOWN OPEN ...)
; compiling (DEFKNOWN RENAME-FILE ...)
; compiling (DEFKNOWN DELETE-FILE ...)
; compiling (DEFKNOWN PROBE-FILE ...)
; compiling (DEFKNOWN FILE-WRITE-DATE ...)
; compiling (DEFKNOWN FILE-AUTHOR ...)
; compiling (DEFKNOWN FILE-POSITION ...)
; compiling (DEFKNOWN FILE-LENGTH ...)
; compiling (DEFKNOWN LOAD ...)
; compiling (DEFKNOWN DIRECTORY ...)
; compiling (DEFKNOWN ERROR ...)
; compiling (DEFKNOWN CERROR ...)
; compiling (DEFKNOWN INVALID-METHOD-ERROR ...)
; compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...)
; compiling (DEFKNOWN SIGNAL ...)
; compiling (DEFKNOWN WARN ...)
; compiling (DEFKNOWN INVOKE-DEBUGGER ...)
; compiling (DEFKNOWN BREAK ...)
; compiling (DEFKNOWN MAKE-CONDITION ...)
; compiling (DEFKNOWN COMPUTE-RESTARTS ...)
; compiling (DEFKNOWN FIND-RESTART ...)
; compiling (DEFKNOWN INVOKE-RESTART ...)
; compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...)
; compiling (DEFKNOWN RESTART-NAME ...)
; compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...)
; compiling (DEFKNOWN CONTINUE ...)
; compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...)
; compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...)
; compiling (DEFKNOWN BUG ...)
; compiling (DEFKNOWN SIMPLE-READER-ERROR ...)
; compiling (DEFKNOWN READER-EOF-ERROR ...)
; compiling (DEFKNOWN COMPILE ...)
; compiling (DEFKNOWN COMPILE-FILE ...)
; compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...)
; compiling (DEFKNOWN DISASSEMBLE ...)
; compiling (DEFKNOWN DESCRIBE ...)
; compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...)
; compiling (DEFKNOWN INSPECT ...)
; compiling (DEFKNOWN ROOM ...)
; compiling (DEFKNOWN ED ...)
; compiling (DEFKNOWN DRIBBLE ...)
; compiling (DEFKNOWN APROPOS ...)
; compiling (DEFKNOWN APROPOS-LIST ...)
; compiling (DEFKNOWN GET-DECODED-TIME ...)
; compiling (DEFKNOWN GET-UNIVERSAL-TIME ...)
; compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...)
; compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...)
; compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...)
; compiling (DEFKNOWN SLEEP ...)
; compiling (DEFKNOWN CALL-WITH-TIMING ...)
; compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...)
; compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...)
; compiling (DEFKNOWN IDENTITY ...)
; compiling (DEFKNOWN CONSTANTLY ...)
; compiling (DEFKNOWN COMPLEMENT ...)
; compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...)
; compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...)
; compiling (DEFKNOWN GET-BYTES-CONSED ...)
; compiling (DEFKNOWN MASK-SIGNED-FIELD ...)
; compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...)
; compiling (DEFKNOWN %REST-VALUES ...)
; compiling (DEFKNOWN %REST-REF ...)
; compiling (DEFKNOWN %REST-LENGTH ...)
; compiling (DEFKNOWN %REST-NULL ...)
; compiling (DEFKNOWN %REST-TRUE ...)
; compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; compiling (DEFKNOWN %TYPEP ...)
; compiling (DEFKNOWN %INSTANCE-TYPEP ...)
; compiling (DEFKNOWN %TYPEP-WRAPPER ...)
; compiling (DEFKNOWN %CLEANUP-POINT ...)
; compiling (DEFKNOWN %SPECIAL-BIND ...)
; compiling (DEFKNOWN %SPECIAL-UNBIND ...)
; compiling (DEFKNOWN %LISTIFY-REST-ARGS ...)
; compiling (DEFKNOWN %MORE-ARG-CONTEXT ...)
; compiling (DEFKNOWN %MORE-ARG ...)
; compiling (DEFKNOWN %MORE-ARG-VALUES ...)
; compiling (DEFKNOWN %ARG-COUNT-ERROR ...)
; compiling (DEFKNOWN %UNKNOWN-VALUES ...)
; compiling (DEFKNOWN %CATCH ...)
; compiling (DEFKNOWN %UNWIND-PROTECT ...)
; compiling (DEFKNOWN (%CATCH-BREAKUP %UNWIND-PROTECT-BREAKUP) ...)
; compiling (DEFKNOWN %LEXICAL-EXIT-BREAKUP ...)
; compiling (DEFKNOWN %CONTINUE-UNWIND ...)
; compiling (DEFKNOWN %THROW ...)
; compiling (DEFKNOWN %NLX-ENTRY ...)
; compiling (DEFKNOWN %%PRIMITIVE ...)
; compiling (DEFKNOWN %POP-VALUES ...)
; compiling (DEFKNOWN %NIP-VALUES ...)
; compiling (DEFKNOWN %DUMMY-DX-ALLOC ...)
; compiling (DEFKNOWN %ALLOCATE-CLOSURES ...)
; compiling (DEFKNOWN %TYPE-CHECK-ERROR ...)
; compiling (DEFKNOWN %TYPE-CHECK-ERROR/C ...)
; compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...)
; compiling (DEFKNOWN CASE-FAILURE ...)
; compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...)
; compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...)
; compiling (DEFKNOWN (%LDB %MASK-FIELD) ...)
; compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...)
; compiling (DEFKNOWN %NEGATE ...)
; compiling (DEFKNOWN %CHECK-BOUND ...)
; compiling (DEFKNOWN DATA-VECTOR-REF ...)
; compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...)
; compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...)
; compiling (DEFKNOWN DATA-VECTOR-SET ...)
; compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFKNOWN %CALLER-FRAME ...)
; compiling (DEFKNOWN %CALLER-PC ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...)
; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...)
; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...)
; compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN %FIND-POSITION ...)
; compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...)
; compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...)
; compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...)
; compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...)
; compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...)
; compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...)
; compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...)
; compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...)
; compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...)
; compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...)
; compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...)
; compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; compiling (DEFKNOWN ARG-COUNT-ERROR ...)
; compiling (DEFKNOWN (SETF AREF) ...)
; compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...)
; compiling (DEFKNOWN (%RPLACA %RPLACD) ...)
; compiling (DEFKNOWN %PUT ...)
; compiling (DEFKNOWN %SETELT ...)
; compiling (DEFKNOWN %SVSET ...)
; compiling (DEFKNOWN (SETF BIT) ...)
; compiling (DEFKNOWN (SETF SBIT) ...)
; compiling (DEFKNOWN %CHARSET ...)
; compiling (DEFKNOWN %SCHARSET ...)
; compiling (DEFKNOWN %SET-SYMBOL-VALUE ...)
; compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...)
; compiling (DEFKNOWN %SET-SYMBOL-PLIST ...)
; compiling (DEFKNOWN %SETNTH ...)
; compiling (DEFKNOWN %SET-FILL-POINTER ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFKNOWN %FUN-NAME ...)
; compiling (DEFKNOWN (SETF %FUN-NAME) ...)
; compiling (DEFKNOWN POLICY-QUALITY ...)
; compiling (DEFKNOWN COMPILER-ERROR ...)
; compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...)
; compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...)
; compiling (DEFKNOWN STYLE-WARN ...)
; compiling (DEFKNOWN COERCE-TO-CONDITION ...)
; compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...)
; compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...)
; compiling (DEFKNOWN SET-INFO-VALUE ...)
; compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%READ-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; compiling (DEFKNOWN (%ATOMIC-DEC-SYMBOL-GLOBAL-VALUE %ATOMIC-INC-SYMBOL-GLOBAL-VALUE) ...)
; compiling (DEFKNOWN (%ATOMIC-DEC-CAR %ATOMIC-INC-CAR ...) ...)
; compiling (DEFKNOWN SPIN-LOOP-HINT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fndb.fasl-tmp written
; compilation finished in 0:00:00.613
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...)
; compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...)
; compiling (DEFKNOWN %OTHER-POINTER-P ...)
; compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...)
; compiling (DEFKNOWN POINTER-HASH ...)
; compiling (DEFKNOWN %SP-STRING-COMPARE ...)
; compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...)
; compiling (DEFKNOWN (%SXHASH-SIMPLE-SUBSTRING COMPUTE-SYMBOL-HASH) ...)
; compiling (DEFKNOWN SYMBOL-HASH ...)
; compiling (DEFKNOWN %SET-SYMBOL-HASH ...)
; compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...)
; compiling (DEFKNOWN INITIALIZE-VECTOR ...)
; compiling (DEFKNOWN VECTOR-FILL* ...)
; compiling (DEFKNOWN VECTOR-LENGTH ...)
; compiling (DEFKNOWN VECTOR-SAP ...)
; compiling (DEFKNOWN LOWTAG-OF ...)
; compiling (DEFKNOWN WIDETAG-OF ...)
; compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...)
; compiling (DEFKNOWN SET-HEADER-DATA ...)
; compiling (DEFKNOWN %ARRAY-DIMENSION ...)
; compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...)
; compiling (DEFKNOWN %ARRAY-RANK ...)
; compiling (DEFKNOWN %MAKE-INSTANCE ...)
; compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFKNOWN %INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %INSTANCE-LENGTH ...)
; compiling (DEFKNOWN %INSTANCE-REF ...)
; compiling (DEFKNOWN %INSTANCE-SET ...)
; compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %VECTOR-RAW-BITS ...)
; compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...)
; compiling (DEFKNOWN ALLOCATE-VECTOR ...)
; compiling (DEFKNOWN MAKE-ARRAY-HEADER ...)
; compiling (DEFKNOWN MAKE-WEAK-POINTER ...)
; compiling (DEFKNOWN %MAKE-COMPLEX ...)
; compiling (DEFKNOWN %MAKE-RATIO ...)
; compiling (DEFKNOWN MAKE-VALUE-CELL ...)
; compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...)
; compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...)
; compiling (DEFKNOWN CURRENT-SP ...)
; compiling (DEFKNOWN CURRENT-FP ...)
; compiling (DEFKNOWN STACK-REF ...)
; compiling (DEFKNOWN %SET-STACK-REF ...)
; compiling (DEFKNOWN LRA-CODE-HEADER ...)
; compiling (DEFKNOWN FUN-CODE-HEADER ...)
; compiling (DEFKNOWN %MAKE-LISP-OBJ ...)
; compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...)
; compiling (DEFKNOWN FUN-WORD-OFFSET ...)
; compiling (DEFKNOWN WORD-LOGICAL-NOT ...)
; compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...)
; compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...)
; compiling (DEFKNOWN %ALLOCATE-BIGNUM ...)
; compiling (DEFKNOWN %BIGNUM-LENGTH ...)
; compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...)
; compiling (DEFKNOWN %BIGNUM-REF ...)
; compiling (DEFKNOWN %BIGNUM-SET ...)
; compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...)
; compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...)
; compiling (DEFKNOWN %MULTIPLY-AND-ADD ...)
; compiling (DEFKNOWN %MULTIPLY ...)
; compiling (DEFKNOWN %LOGNOT ...)
; compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...)
; compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...)
; compiling (DEFKNOWN %BIGFLOOR ...)
; compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...)
; compiling (DEFKNOWN (%ASHL %ASHR ...) ...)
; compiling (DEFINE-KNOWN-COPIERS)
; compiling (DEFKNOWN %BYTE-BLT ...)
; compiling (DEFKNOWN CODE-INSTRUCTIONS ...)
; compiling (DEFKNOWN CODE-HEADER-REF ...)
; compiling (DEFKNOWN CODE-HEADER-SET ...)
; compiling (DEFKNOWN FUN-SUBTYPE ...)
; compiling (DEFKNOWN (#) ...)
; compiling (DEFKNOWN MAKE-FDEFN ...)
; compiling (DEFKNOWN FDEFN-P ...)
; compiling (DEFKNOWN FDEFN-NAME ...)
; compiling (DEFKNOWN FDEFN-FUN ...)
; compiling (DEFKNOWN (SETF FDEFN-FUN) ...)
; compiling (DEFKNOWN FDEFN-MAKUNBOUND ...)
; compiling (DEFKNOWN %SIMPLE-FUN-SELF ...)
; compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...)
; compiling (DEFKNOWN %CLOSURE-FUN ...)
; compiling (DEFKNOWN %CLOSURE-INDEX-REF ...)
; compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...)
; compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-fndb.fasl-tmp written
; compilation finished in 0:00:00.388
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (FROB)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/late-objdef.fasl-tmp written
; compilation finished in 0:00:00.030
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/interr.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...)
; compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...)
; compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/interr.fasl-tmp written
; compilation finished in 0:00:00.111
; compiling file "/«PKGBUILDDIR»/src/compiler/bit-util.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (INLINE CLEAR-BIT-VECTOR ...))
; compiling (DEFUN CLEAR-BIT-VECTOR ...)
; compiling (DEFUN SET-BIT-VECTOR ...)
; compiling (DEFUN BIT-VECTOR-REPLACE ...)
; compiling (DEFUN BIT-VECTOR-COPY ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/bit-util.fasl-tmp written
; compilation finished in 0:00:00.228
; compiling file "/«PKGBUILDDIR»/src/compiler/early-assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!ASSEM")
; compiling (DEF!CONSTANT ASSEMBLY-UNIT-BITS ...)
; compiling (DEF!CONSTANT ASSEMBLY-UNIT-MASK ...)
; compiling (DEF!TYPE ASSEMBLY-UNIT ...)
; compiling (DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT ...)
; compiling (DEF!CONSTANT MAX-ALIGNMENT ...)
; compiling (DEF!TYPE ALIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-assem.fasl-tmp written
; compilation finished in 0:00:00.119
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/core.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFSTRUCT (CORE-OBJECT # ...) ...)
; compiling (DEFUN NOTE-FUN ...)
; compiling (DEFUN DO-CORE-FIXUPS ...)
; compiling (DEFUN REFERENCE-CORE-FUN ...)
; compiling (DEFUN CORE-CALL-TOPLEVEL-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/core.lisp
; in: DEFUN FIX-CORE-SOURCE-INFO
;     (SETF (SB!C::DEBUG-INFO-SOURCE SB!INT:INFO) SB!C::SOURCE)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-INFO-SOURCE) #:NEW156 #:INFO157)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF DEBUG-INFO-SOURCE)

; in: DEFUN REFERENCE-CORE-FUN
;     (SETF (SB!KERNEL:CODE-HEADER-REF SB!C::CODE-OBJ SB!C::I) SB!C::FOUND)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET SB!C::CODE-OBJ SB!C::I SB!C::FOUND)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: DEFUN NOTE-FUN
;     (SETF (SB!KERNEL:CODE-HEADER-REF (CAR SB!C::PATCH)
;            (THE SB!INT:INDEX (CDR SB!C::PATCH)))
;             FUNCTION)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET (CAR SB!C::PATCH)
;    (THE SB!INT:INDEX (CDR SB!C::PATCH)) FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: DEFUN FIX-CORE-SOURCE-INFO
;     (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: DEBUG-SOURCE-FOR-INFO

; in: DEFUN DO-CORE-FIXUPS
;     (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-SYMBOL-TLS-INDEX

;     (SB!VM:FIXUP-CODE-OBJECT SB!C::CODE POSITION SB!C::VALUE SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

;     (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-FLAVOR

;     (SB!C:FIXUP-NAME SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NAME

;     (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-FIXUP

;     (SB!C:FIXUP-NOTE-KIND SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-KIND

;     (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-POSITION

;     (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FOREIGN-SYMBOL-ADDRESS
; 
; compilation unit finished
;   Undefined functions:
;     (SETF DEBUG-INFO-SOURCE) CODE-HEADER-SET DEBUG-SOURCE-FOR-INFO ENSURE-SYMBOL-TLS-INDEX SB!VM:FIXUP-CODE-OBJECT FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FOREIGN-SYMBOL-ADDRESS
;   caught 12 STYLE-WARNING conditions
; compiling (DEFUN FIX-CORE-SOURCE-INFO ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/core.fasl-tmp written
; compilation finished in 0:00:00.354
; compiling file "/«PKGBUILDDIR»/src/code/thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (DEF!TYPE THREAD-NAME ...)
; compiling (DEF!STRUCT (THREAD #) ...)
; compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...)

; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DECLAIM (INLINE MAKE-MUTEX)
;     (DECLAIM (INLINE SB!THREAD:MAKE-MUTEX))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!THREAD:MAKE-MUTEX) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!THREAD:MAKE-MUTEX to be INLINE, but 5 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; compiling (DECLAIM (INLINE MAKE-MUTEX))
; compiling (DEF!STRUCT MUTEX ...)
; compiling (DECLAIM (NOTINLINE MAKE-MUTEX))
; compiling (DEFUN MUTEX-VALUE ...)
; compiling (DEFUN HOLDING-MUTEX-P ...)
; compiling (DEFSETF MUTEX-VALUE ...)
; compiling (DECLAIM (INLINE SET-MUTEX-VALUE))
; compiling (DEFUN SET-MUTEX-VALUE ...)
; compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...)
; compiling (DEFTYPE SPINLOCK ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...)
; compiling (SB-XC:DEFMACRO WITH-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEFUN CALL-WITH-MUTEX ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK ...)

; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DEF CALL-WITH-SYSTEM-MUTEX
;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM WHEN IF SETF SETQ THE 
; ==>
;   (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: GRAB-MUTEX

;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM WHEN IF SETF SETQ THE 
; ==>
;   (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: GRAB-MUTEX

; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!THREAD:GRAB-MUTEX SB!THREAD::LOCK)
; 
; caught STYLE-WARNING:
;   undefined function: GRAB-MUTEX

; 
; caught STYLE-WARNING:
;   1 more use of undefined function GRAB-MUTEX


; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK)
; 
; caught STYLE-WARNING:
;   undefined function: MUTEX-OWNER

; in: DEF CALL-WITH-SYSTEM-MUTEX
;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK WHEN IF 
; --> PROGN 
; ==>
;   (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: RELEASE-MUTEX

;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK WHEN IF 
; --> PROGN 
; ==>
;   (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: RELEASE-MUTEX

; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!THREAD:RELEASE-MUTEX SB!THREAD::LOCK)
; 
; caught STYLE-WARNING:
;   undefined function: RELEASE-MUTEX

; 
; caught STYLE-WARNING:
;   1 more use of undefined function RELEASE-MUTEX


; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING
;     (SB!SYS:WITHOUT-GCING (FUNCALL FUNCTION))
; 
; caught STYLE-WARNING:
;   undefined function: WITHOUT-GCING

; in: DEF CALL-WITH-SYSTEM-MUTEX
;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET 
; ==>
;   (SB!SYS:WITHOUT-GCING (SB!THREAD::%CALL-WITH-SYSTEM-MUTEX))
; 
; caught STYLE-WARNING:
;   undefined function: WITHOUT-GCING
; 
; compilation unit finished
;   Undefined functions:
;     GRAB-MUTEX MUTEX-OWNER RELEASE-MUTEX WITHOUT-GCING
;   caught 12 STYLE-WARNING conditions
; compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/thread.fasl-tmp written
; compilation finished in 0:00:01.538
STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN
; compiling file "/«PKGBUILDDIR»/src/code/load.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFUN LOAD-FRESH-LINE ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN MAYBE-ANNOUNCE-LOAD
;     (FORMAT T "loading ~S~%" SB!FASL::NAME)
; ==>
;   "loading ~S~%"
; 
; note: deleting unreachable code
; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...)
; compiling (DECLAIM (INLINE READ-BYTE))
; compiling (DEFMACRO FAST-READ-U-INTEGER ...)
; compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...)
; compiling (DEFMACRO FAST-READ-S-INTEGER ...)
; compiling (DEFMACRO READ-ARG ...)
; compiling (DECLAIM (INLINE READ-BYTE-ARG ...))
; compiling (DEFUN READ-BYTE-ARG ...)
; compiling (DEFUN READ-HALFWORD-ARG ...)
; compiling (DEFUN READ-WORD-ARG ...)
; compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...)
; compiling (DECLAIM (INLINE REF-FOP-TABLE))
; compiling (DEFUN REF-FOP-TABLE ...)
; compiling (DEFUN PUSH-FOP-TABLE ...)
; compiling (DEFUN MAKE-FOP-VECTOR ...)
; compiling (DEFUN GROW-FOP-VECTOR ...)
; compiling (DEFUN NUKE-FOP-VECTOR ...)
; compiling (DECLAIM (INLINE FOP-STACK-EMPTY-P))
; compiling (DEFUN FOP-STACK-EMPTY-P ...)
; compiling (DEFUN FOP-STACK-POP-N ...)
; compiling (DEFUN PUSH-FOP-STACK ...)
; compiling (DEFINE-CONDITION INVALID-FASL ...)
; compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...)
; compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...)
; compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...)
; compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN MAYBE-SKIP-SHEBANG-LINE
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; compiling (DEFUN MAYBE-SKIP-SHEBANG-LINE ...)
; compiling (DEFUN FASL-HEADER-P ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN CHECK-FASL-HEADER
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; compiling (DEFUN CHECK-FASL-HEADER ...)
; compiling (DEFCONSTANT +2-OPERAND-FOPS+ ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN LOAD-FASL-GROUP
;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   "~&~6x : [~D,~D] ~2,'0x(~A)"
; 
; note: deleting unreachable code

;     (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!FASL::FASL-INPUT
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   SB-XC:BYTE
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "{~D~@[,~D~]}" SB!FASL::ARG1 SB!FASL::ARG2)
; ==>
;   "{~D~@[,~D~]}"
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; ==>
;   " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]"
; 
; note: deleting unreachable code

;     (EQL SB!FASL::PTR 0)
; ==>
;   SB!FASL::PTR
; 
; note: deleting unreachable code

;     (AREF SB!FASL::STACK SB!FASL::PTR)
; ==>
;   SB!FASL::STACK
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; 
; note: deleting unreachable code
; compiling (DEFUN LOAD-FASL-GROUP ...)
; compiling (DEFUN LOAD-AS-FASL ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN FASL-HEADER-P
;     (TYPEP STREAM 'SB!SYS:FD-STREAM)
; 
; caught STYLE-WARNING:
;   undefined type: FD-STREAM

;     (SB!IMPL::FD-STREAM-BIVALENT-P STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::FD-STREAM-BIVALENT-P

;     (SB!IMPL::FD-STREAM-FILE STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::FD-STREAM-FILE

; in: DEFUN CHECK-FASL-HEADER
;     (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: READ-STRING-AS-BYTES
; 
; compilation unit finished
;   Undefined type:
;     FD-STREAM
;   Undefined functions:
;     SB!IMPL::FD-STREAM-BIVALENT-P SB!IMPL::FD-STREAM-FILE READ-STRING-AS-BYTES
;   caught 4 STYLE-WARNING conditions
;   printed 11 notes
; compiling (DECLAIM (NOTINLINE READ-BYTE))

; /«PKGBUILDDIR»/obj/from-host/src/code/load.fasl-tmp written
; compilation finished in 0:00:03.019
; compiling file "/«PKGBUILDDIR»/src/code/foreign.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN EXTERN-ALIEN-NAME ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...)
; compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...)

; file: /«PKGBUILDDIR»/src/code/foreign.lisp
; in: DEFUN FOREIGN-SYMBOL-SAP
;     (SB!SYS:INT-SAP (SB!SYS:SAP-REF-WORD (SB!SYS:INT-SAP SB!ALIEN:ADDR) 0))
; 
; note: The first argument never returns a value.
; 
; note: deleting unreachable code
; compiling (DEFUN FOREIGN-SYMBOL-SAP ...)
; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL))
; compiling (DEFUN SAP-FOREIGN-SYMBOL ...)

; file: /«PKGBUILDDIR»/src/code/foreign.lisp
; in: DEFUN FIND-FOREIGN-SYMBOL-ADDRESS
;     (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
; 
; compilation unit finished
;   Undefined function:
;     FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*)

; /«PKGBUILDDIR»/obj/from-host/src/code/foreign.fasl-tmp written
; compilation finished in 0:00:00.163
; compiling file "/«PKGBUILDDIR»/src/code/fop.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFMACRO WITH-FOP-STACK ...)
; compiling (DEFMACRO !DEFINE-FOP ...)
; compiling (DEFUN !%DEFINE-FOP ...)
; compiling (DEFUN READ-STRING-AS-BYTES ...)
; compiling (DEFUN READ-BASE-STRING-AS-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN READ-STRING-AS-UNSIGNED-BYTE-32
;     (SB-XC:CODE-CHAR (SB!INT:FAST-READ-U-INTEGER 4))
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...)
; compiling (!DEFINE-FOP 137 ...)
; compiling (!DEFINE-FOP 0 ...)
; compiling (!DEFINE-FOP 1 ...)
; compiling (!DEFINE-FOP 2 ...)
; compiling (!DEFINE-FOP 3 ...)
; compiling (!DEFINE-FOP 4 ...)
; compiling (!DEFINE-FOP 66 ...)
; compiling (!DEFINE-FOP 76 ...)
; compiling (!DEFINE-FOP 48 ...)
; compiling (!DEFINE-FOP 45 ...)
; compiling (!DEFINE-FOP 68 ...)
; compiling (!DEFINE-FOP 69 ...)
; compiling (!DEFINE-FOP 64 ...)
; compiling (!DEFINE-FOP 62 ...)
; compiling (!DEFINE-FOP 63 ...)
; compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...)
; compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE))
; compiling (DEFUN AUX-FOP-INTERN ...)
; compiling (!DEFINE-FOP 80 ...)
; compiling (!DEFINE-FOP 84 ...)
; compiling (!DEFINE-FOP 240 ...)
; compiling (!DEFINE-FOP 96 ...)
; compiling (!DEFINE-FOP 104 ...)
; compiling (!DEFINE-FOP 44 ...)
; compiling (!DEFINE-FOP 156 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN LOAD-S-INTEGER
;     (ASH 1 SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &REST T).
;       etc.

;     (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a (INTEGER 1), 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 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (ASH SB-XC:BYTE SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX))
;           (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE))
;           (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)))
;           (SB!FASL::BITS 0 (+ SB!FASL::BITS 8)))
;          ((= SB!INT:INDEX 0)
;           (IF (LOGBITP 7 SB-XC:BYTE)
;               (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
;               SB!FASL::RESULT))
;       (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS)))
; --> BLOCK LET* TAGBODY SETQ SETQ 
; ==>
;   (THE FIXNUM (1- SB!INT:INDEX))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; ==>
;   (THE FIXNUM (+ SB!FASL::BITS 8))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN LOAD-S-INTEGER ...)
; compiling (!DEFINE-FOP 36 ...)
; compiling (!DEFINE-FOP 34 ...)
; compiling (!DEFINE-FOP 35 ...)
; compiling (!DEFINE-FOP 70 ...)
; compiling (!DEFINE-FOP 71 ...)
; compiling (DEFINE-COMPLEX-FOP 72 ...)
; compiling (DEFINE-COMPLEX-FOP 73 ...)
; compiling (DEFINE-FLOAT-FOP 46 ...)
; compiling (DEFINE-FLOAT-FOP 47 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN FOP-LIST-FROM-STACK
;     (DO* ((SB!FASL::I (+ SB!FASL::PTR SB!FASL::N) (1- SB!FASL::I))
;           (SB!FASL::RES NIL
;                         (CONS (SB!FASL::FOP-STACK-REF SB!FASL::I) SB!FASL::RES)))
;          ((= SB!FASL::I SB!FASL::PTR) SB!FASL::RES)
;       (DECLARE (TYPE SB!INT:INDEX SB!FASL::I)))
; --> BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB-C::%TYPE-CHECK-ERROR/C #:G1375 'SB-KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; compiling (DEFUN FOP-LIST-FROM-STACK ...)
; compiling (!DEFINE-FOP 33 ...)
; compiling (!DEFINE-FOP 16 ...)
; compiling (FROB FOP-LIST-1 ...)
; compiling (FROB FOP-LIST-2 ...)
; compiling (FROB FOP-LIST-3 ...)
; compiling (FROB FOP-LIST-4 ...)
; compiling (FROB FOP-LIST-5 ...)
; compiling (FROB FOP-LIST-6 ...)
; compiling (FROB FOP-LIST-7 ...)
; compiling (FROB FOP-LIST-8 ...)
; compiling (FROB FOP-LIST*-1 ...)
; compiling (FROB FOP-LIST*-2 ...)
; compiling (FROB FOP-LIST*-3 ...)
; compiling (FROB FOP-LIST*-4 ...)
; compiling (FROB FOP-LIST*-5 ...)
; compiling (FROB FOP-LIST*-6 ...)
; compiling (FROB FOP-LIST*-7 ...)
; compiling (FROB FOP-LIST*-8 ...)
; compiling (!DEFINE-FOP 100 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in:
;      PROGN (!DEFINE-FOP 160
;            (FOP-CHARACTER-STRING ((:OPERANDS LENGTH)))
;          (BUG "CHARACTER-STRING FOP encountered"))
;     (SB!FASL::!DEFINE-FOP 160
;         (SB!FASL::FOP-CHARACTER-STRING ((:OPERANDS LENGTH)))
;       (SB!INT:BUG "CHARACTER-STRING FOP encountered"))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!FASL::FOP-CHARACTER-STRING
;         (SB!FASL::.FASL-INPUT. LENGTH)
;       (DECLARE (IGNORABLE SB!FASL::.FASL-INPUT.))
;       (BLOCK SB!FASL::FOP-CHARACTER-STRING
;         (MACROLET ((SB!FASL::FASL-INPUT #
;                      '#)
;                    (SB!FASL::FASL-INPUT-STREAM #
;                      '#)
;                    (SB!FASL::OPERAND-STACK #
;                      '#)
;                    (SB!FASL::SKIP-UNTIL #
;                      '#))
;           (SB!INT:BUG "CHARACTER-STRING FOP encountered"))))
; 
; caught STYLE-WARNING:
;   The variable LENGTH is defined but never used.
; compiling (!DEFINE-FOP 160 ...)
; compiling (!DEFINE-FOP 92 ...)
; compiling (!DEFINE-FOP 89 ...)
; compiling (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (!DEFINE-FOP 43 ...)
; compiling (!DEFINE-FOP 53 ...)
; compiling (!DEFINE-FOP 54 ...)
; compiling (DEFUN FOP-FUNCALL* ...)
; compiling (!DEFINE-FOP 55 ...)
; compiling (!DEFINE-FOP 56 ...)
; compiling (!DEFINE-FOP 200 ...)
; compiling (!DEFINE-FOP 201 ...)
; compiling (!DEFINE-FOP 202 ...)
; compiling (!DEFINE-FOP 204 ...)
; compiling (!DEFINE-FOP 203 ...)
; compiling (!DEFINE-FOP 224 ...)
; compiling (!DEFINE-FOP 60 ...)
; compiling (!DEFINE-FOP 65 ...)
; compiling (!DEFINE-FOP 61 ...)
; compiling (!DEFINE-FOP 174 ...)
; compiling (!DEFINE-FOP 140 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 139
;     (SB!FASL::!DEFINE-FOP 139
;         (SB!FASL::FOP-FUN-ENTRY
;          (SB!FASL::CODE-OBJECT SB!FASL::NAME SB!FASL::ARGLIST TYPE SB!INT:INFO))
;       (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE."))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MACROLET SB!FASL::WITH-FOP-STACK LET* MACROLET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (SB!FASL::CODE-OBJECT) (SB!FASL::NAME) (SB!FASL::ARGLIST)
;          (TYPE) (SB!INT:INFO)
;          &REST #:G3346)
;       (DECLARE (IGNORE #:G3346))
;       (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE."))
; 
; caught STYLE-WARNING:
;   The variable CODE-OBJECT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGLIST is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INFO is defined but never used.
; compiling (!DEFINE-FOP 139 ...)
; compiling (!DEFINE-FOP 144 ...)
; compiling (!DEFINE-FOP 145 ...)
; compiling (!DEFINE-FOP 146 ...)
; compiling (!DEFINE-FOP 147 ...)
; compiling (!DEFINE-FOP 148 ...)
; compiling (!DEFINE-FOP 149 ...)
; compiling (!DEFINE-FOP 150 ...)
; compiling (!DEFINE-FOP 151 ...)
; compiling (!DEFINE-FOP 152 ...)
; compiling (!DEFINE-FOP 153 ...)
; compiling (!DEFINE-FOP 154 ...)
; compiling (!DEFINE-FOP 155 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 65
;     (SB!KERNEL:%COERCE-NAME-TO-FUN SB!FASL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-NAME-TO-FUN

; in: !DEFINE-FOP 71
;     (SB!KERNEL:%MAKE-COMPLEX REALPART IMAGPART)
; 
; caught STYLE-WARNING:
;   undefined function: %MAKE-COMPLEX

; in: !DEFINE-FOP 48
;     (SB!KERNEL:%MAKE-INSTANCE SB!FASL::SIZE)
; 
; caught STYLE-WARNING:
;   undefined function: %MAKE-INSTANCE

; in: !DEFINE-FOP 70
;     (SB!KERNEL:%MAKE-RATIO SB!FASL::NUM SB!FASL::DEN)
; 
; caught STYLE-WARNING:
;   undefined function: %MAKE-RATIO

; in: !DEFINE-FOP 48
;     (SETF (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!FASL::RES
;            (- SB!FASL::NUNTAGGED SB!FASL::N 1))
;             (SB!FASL::FOP-STACK-REF (DECF SB!FASL::PTR)))
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-SET/WORD SB!FASL::RES
;    (- SB!FASL::NUNTAGGED SB!FASL::N 1)
;    (SB!FASL::FOP-STACK-REF (DECF SB!FASL::PTR)))
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-SET/WORD

;     (SETF (SB!KERNEL:%INSTANCE-LAYOUT SB!FASL::RES) SB!KERNEL:LAYOUT)
; ==>
;   (SB!KERNEL:%SET-INSTANCE-LAYOUT SB!FASL::RES SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: %SET-INSTANCE-LAYOUT

; in: !DEFINE-FOP 174
;     (SETF (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::DEBUG-SOURCE)
;             (GET-UNIVERSAL-TIME)
;           (SB!C::DEBUG-SOURCE-CREATED SB!FASL::DEBUG-SOURCE)
;             (FILE-WRITE-DATE
;              (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE)))
; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-COMPILED) #:NEW3267
;                   #:DEBUG-SOURCE3268)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SB!C::DEBUG-SOURCE-COMPILED)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-CREATED) #:NEW3269
;                   #:DEBUG-SOURCE3270)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SB!C::DEBUG-SOURCE-CREATED)

; in: !DEFINE-FOP 43
;     (SB!KERNEL:ALLOCATE-VECTOR SB!FASL::WIDETAG LENGTH SB!SYS:WORDS)
; 
; caught STYLE-WARNING:
;   undefined function: ALLOCATE-VECTOR

; in: !DEFINE-FOP 140
;     (SETF (SB!KERNEL:CODE-HEADER-REF SB!FASL::CODE SB!INT:INDEX) SB!FASL::VALUE)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET SB!FASL::CODE SB!INT:INDEX SB!FASL::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: !DEFINE-FOP 174
;     (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-SOURCE-NAMESTRING

; in: !DEFINE-FOP 146
;     (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-SYMBOL-TLS-INDEX

; in: !DEFINE-FOP 60
;     (SB!KERNEL:FIND-OR-CREATE-FDEFN SB!FASL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-OR-CREATE-FDEFN

; in: !DEFINE-FOP 148
;     (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
;      (SB!FASL::READ-WORD-ARG (SB!FASL::FASL-INPUT-STREAM)) SB!FASL::VALUE
;      SB!FASL::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

; in: !DEFINE-FOP 147
;     (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
;      (SB!FASL::READ-WORD-ARG (SB!FASL::FASL-INPUT-STREAM))
;      (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!FASL::SYM) SB!FASL::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

; in: !DEFINE-FOP 146
;     (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
;      (SB!FASL::READ-WORD-ARG (SB!FASL::FASL-INPUT-STREAM))
;      (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL) SB!FASL::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function SB!VM:FIXUP-CODE-OBJECT


; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 149
;     (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!FASL::CODE-OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: GET-LISP-OBJ-ADDRESS

; in: DEFUN AUX-FOP-INTERN
;     (SB!INT:INTERN* SB!FASL::BUFFER SB!FASL::SIZE PACKAGE :NO-COPY T)
; 
; caught STYLE-WARNING:
;   undefined function: INTERN*

; in: !DEFINE-FOP 224
;     (SB!FASL::LOAD-CODE SB!FASL::N-BOXED-WORDS SB!FASL::N-UNBOXED-BYTES
;      SB!FASL::STACK SB!FASL::PTR (SB!FASL::FASL-INPUT-STREAM))
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-CODE

; in: !DEFINE-FOP 89
;     (SB!KERNEL:MAKE-ARRAY-HEADER SB!VM:SIMPLE-ARRAY-WIDETAG SB!FASL::RANK)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-ARRAY-HEADER

; in: !DEFINE-FOP 150
;     (SB!SYS:READ-N-BYTES (SB!FASL::FASL-INPUT-STREAM) SB!FASL::SYM 0 SB!FASL::LEN)
; 
; caught STYLE-WARNING:
;   undefined function: READ-N-BYTES

; in: !DEFINE-FOP 147
;     (SB!SYS:READ-N-BYTES (SB!FASL::FASL-INPUT-STREAM) SB!FASL::SYM 0 SB!FASL::LEN)
; 
; caught STYLE-WARNING:
;   undefined function: READ-N-BYTES

; in: !DEFINE-FOP 43
;     (SB!SYS:READ-N-BYTES (SB!FASL::FASL-INPUT-STREAM) VECTOR 0 SB!FASL::BYTES)
; 
; caught STYLE-WARNING:
;   undefined function: READ-N-BYTES

; in: !DEFINE-FOP 61
;     (SB!VM:SANCTIFY-FOR-EXECUTION SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:SANCTIFY-FOR-EXECUTION

; in: !DEFINE-FOP 89
;     (SB!KERNEL:SET-ARRAY-HEADER SB!FASL::RES SB!FASL::VEC LENGTH NIL 0
;      (SB!FASL::FOP-LIST-FROM-STACK (SB!FASL::OPERAND-STACK) SB!FASL::RANK) NIL T)
; 
; caught STYLE-WARNING:
;   undefined function: SET-ARRAY-HEADER

; in: !DEFINE-FOP 69
;     (SB!PCL::SET-SLOT-VALUE SB!FASL::OBJ SB!FASL::SLOT-NAME SB!FASL::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SET-SLOT-VALUE

; in: !DEFINE-FOP 156
;     (HANDLER-CASE (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE PACKAGE-NAME)
;                   (SB!KERNEL:SIMPLE-PACKAGE-ERROR (SB!FASL::C)
;                    (SB!FASL::MAKE-UNDEFINED-PACKAGE :ERROR
;                     (PRINC-TO-STRING SB!FASL::C))))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL:SIMPLE-PACKAGE-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SIMPLE-PACKAGE-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SIMPLE-PACKAGE-ERROR
;   Undefined functions:
;     %COERCE-NAME-TO-FUN %MAKE-COMPLEX %MAKE-INSTANCE %MAKE-RATIO %RAW-INSTANCE-SET/WORD %SET-INSTANCE-LAYOUT (SETF SB!C::DEBUG-SOURCE-COMPILED) (SETF SB!C::DEBUG-SOURCE-CREATED) ALLOCATE-VECTOR CODE-HEADER-SET SB!C::DEBUG-SOURCE-NAMESTRING ENSURE-SYMBOL-TLS-INDEX FIND-OR-CREATE-FDEFN SB!VM:FIXUP-CODE-OBJECT GET-LISP-OBJ-ADDRESS INTERN* LOAD-CODE MAKE-ARRAY-HEADER READ-N-BYTES SB!VM:SANCTIFY-FOR-EXECUTION SET-ARRAY-HEADER SB!PCL::SET-SLOT-VALUE
;   caught 34 STYLE-WARNING conditions
;   printed 8 notes
; compiling (FROB (108 T) ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/fop.fasl-tmp written
; compilation finished in 0:00:08.317
; compiling file "/«PKGBUILDDIR»/src/compiler/ctype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LOSSAGE-FUN*)
; compiling (DEFVAR *UNWINNAGE-FUN*)
; compiling (DEFVAR *CTYPE-TEST-FUN*)
; compiling (DEFVAR *LOSSAGE-DETECTED*)
; compiling (DEFVAR *UNWINNAGE-DETECTED*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LOSSAGE ...)
; compiling (DEFUN NOTE-UNWINNAGE ...)
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; compiling (DEFUN ALWAYS-SUBTYPEP ...)
; compiling (DEFUN VALID-FUN-USE ...)
; compiling (DEFUN CHECK-ARG-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-FIXED-AND-REST ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-KEY-ARGS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEFINITION-TYPE ...)
; compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...)
; compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-FUN-USE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VALID-APPROXIMATE-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...)
; compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...)
; compiling (DEFUN TRY-TYPE-INTERSECTIONS ...)
; compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...)
; compiling (DEFUN FIND-LAMBDA-TYPES ...)
; compiling (DEFUN ASSERT-DEFINITION-TYPE ...)
; compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...)
; compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...)
; compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...)
; compiling (DEFUN ASSERT-CALL-TYPE ...)
; compiling (DEFUN CHECK-CATCH-TAG-TYPE ...)
; compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...)

; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::ASSERT-LVAR-TYPE SB!C::LVAR SB!C::RETURNS SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-LVAR-TYPE

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN) SB!C::TYPE-RETURNS
;      SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-LVAR-TYPE

; in: DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN VALID-APPROXIMATE-TYPE
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN NOTE-FUN-USE
;     (SB!C::CONSTANT-LVAR-P SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHECK-KEY-ARGS
;     (SB!C::CONSTANT-LVAR-P SB!C::K)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHECK-ARG-TYPE
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; 
; caught STYLE-WARNING:
;   1 more use of undefined function CONSTANT-LVAR-P


; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::DERIVE-NODE-TYPE SB!C:CALL SB!C::RETURNS)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::S-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN VALID-FUN-USE
;     (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: IMMEDIATELY-USED-P

; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT)
;     (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FULL-CALL

; in: DEFUN CHECK-CATCH-TAG-TYPE
;     (SB!C::LVAR-ALL-SOURCES SB!C::TAG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-ALL-SOURCES

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-DERIVED-TYPE

; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::LVAR-HAS-SINGLE-USE-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-HAS-SINGLE-USE-P

; in: DEFUN MAP-COMBINATION-ARGS-AND-TYPES
;     (SB!C::LVAR-TYPE (SB!C::COMBINATION-FUN SB!C:CALL))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN NOTE-FUN-USE
;     (SB!C::LVAR-TYPE (CAR SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN CHECK-ARG-TYPE
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function LVAR-TYPE


; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN NOTE-FUN-USE
;     (SB!C::LVAR-VALUE SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CHECK-KEY-ARGS
;     (SB!C::LVAR-VALUE SB!C::V)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CHECK-ARG-TYPE
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function LVAR-VALUE


; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: MAIN-ENTRY

; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR
; 
; compilation unit finished
;   Undefined functions:
;     ASSERT-LVAR-TYPE COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-ALL-SOURCES LVAR-DERIVED-TYPE LVAR-HAS-SINGLE-USE-P LVAR-TYPE LVAR-VALUE MAIN-ENTRY REOPTIMIZE-LVAR
;   caught 25 STYLE-WARNING conditions
; compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ctype.fasl-tmp written
; compilation finished in 0:00:04.501
; compiling file "/«PKGBUILDDIR»/src/compiler/disassem.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!DISASSEM")
; compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...)
; compiling (DEFTYPE TEXT-WIDTH ...)
; compiling (DEFTYPE ALIGNMENT ...)
; compiling (DEFTYPE OFFSET ...)
; compiling (DEFTYPE ADDRESS ...)
; compiling (DEFTYPE DISASSEM-LENGTH ...)
; compiling (DEFTYPE COLUMN ...)
; compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...)
; compiling (DEFTYPE FILTERED-VALUE-INDEX ...)
; compiling (DEFTYPE FILTERED-VALUE-VECTOR ...)
; compiling (DEFVAR *DISASSEM-INSTS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *DISASSEM-INST-SPACE* ...)
; compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...)
; compiling (DECLAIM (TYPE ALIGNMENT ...))
; compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...)
; compiling (DEFSTRUCT (FUN-CACHE # ...) ...)
; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; compiling (DECLAIM (TYPE FUN-CACHE ...))
; compiling (DECLAIM (INLINE DCHUNK-OR ...))
; compiling (DEF!CONSTANT DCHUNK-BITS ...)
; compiling (DEFTYPE DCHUNK ...)
; compiling (DEFTYPE DCHUNK-INDEX ...)
; compiling (DEF!CONSTANT DCHUNK-ZERO ...)
; compiling (DEF!CONSTANT DCHUNK-ONE ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-EXTRACT
;     (THE SB!DISASSEM:DCHUNK
;          (SB-XC:LDB SB!DISASSEM::POS (THE SB!DISASSEM:DCHUNK SB!DISASSEM::FROM)))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling (DEFUN DCHUNK-EXTRACT ...)
; compiling (DEFMACRO DCHUNK-COPY ...)
; compiling (DEFUN DCHUNK-OR ...)
; compiling (DEFUN DCHUNK-AND ...)
; compiling (DEFUN DCHUNK-CLEAR ...)
; compiling (DEFUN DCHUNK-NOT ...)
; compiling (DEFMACRO DCHUNK-ANDF ...)
; compiling (DEFMACRO DCHUNK-ORF ...)
; compiling (DEFMACRO DCHUNK-CLEARF ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-MAKE-MASK
;     (THE SB!DISASSEM:DCHUNK (SB-XC:MASK-FIELD SB!DISASSEM::POS -1))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling (DEFUN DCHUNK-MAKE-MASK ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-MAKE-FIELD
;     (THE SB!DISASSEM:DCHUNK (SB-XC:DPB SB!DISASSEM::VALUE SB!DISASSEM::POS 0))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling (DEFUN DCHUNK-MAKE-FIELD ...)
; compiling (DEFMACRO MAKE-DCHUNK ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN SAP-REF-DCHUNK
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
; 
; note: The second argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             24))
; --> + + 
; ==>
;   (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8))
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
;             48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET))
;             24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)))
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET))
;            8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)))
; 
; note: The second argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET))
;             32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET))
;             40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET))
;             48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET))
;             56))
; --> + + + + + + 
; ==>
;   (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8))
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)) 56)
; 
; note: The first argument never returns a value.
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
; 
; note: deleting unreachable code

;     (THE SB!DISASSEM:DCHUNK
;          (ECASE SB!DISASSEM::DCHUNK-BITS
;            (32
;             (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
;                 (+ # # # #)
;                 (+ # # # #)))
;            (64
;             (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
;                 (+ # # # # # # # #)
;                 (+ # # # # # # # #)))))
; 
; note: deleting unreachable code

;     (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
; ==>
;   SB!DISASSEM::BYTE-ORDER
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN SAP-REF-DCHUNK ...)
; compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...)
; compiling (DEFMACRO DCHUNK-INSERTF ...)
; compiling (DEFUN DCHUNK= ...)
; compiling (DEFMACRO DCHUNK-ZEROP ...)
; compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...)
; compiling (DEFUN DCHUNK-COUNT-BITS ...)
; compiling (DEFSTRUCT (INSTRUCTION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (INST-SPACE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...)
; compiling (DEFVAR *ARG-FORM-KINDS* ...)
; compiling (DEFSTRUCT (ARG-FORM-KIND #) ...)
; compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...)
; compiling (DEFUN FIND-ARG-FORM-PRODUCER ...)
; compiling (DEFUN FIND-ARG-FORM-CHECKER ...)
; compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...)
; compiling (DEFVAR *DISASSEM-INST-FORMATS* ...)
; compiling (DEFVAR *DISASSEM-ARG-TYPES* ...)
; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; compiling (DEFSTRUCT (ARG # ...) ...)
; compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...)
; compiling (DEFSTRUCT (FUNSTATE # ...) ...)
; compiling (DEFUN MAKE-FUNSTATE ...)
; compiling (DEFUN FUNSTATE-COMPATIBLE-P ...)
; compiling (DEFUN ARG-OR-LOSE ...)
; compiling (DEFSTRUCT (VALSRC # ...) ...)
; compiling (DEFUN MAKE-VALSRC ...)
; compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...)
; compiling (DEFUN PD-ERROR ...)
; compiling (DEFUN SELF-EVALUATING-P ...)
; compiling (DEFUN MAYBE-QUOTE ...)
; compiling (DEFUN DOESNT-NEED-WRAPPING-P ...)
; compiling (DEFUN MAKE-WRAPPER ...)
; compiling (DEFUN FILTER-OVERRIDES ...)
; compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...)
; compiling (DEFUN MUNGE-FUN-REFS ...)
; compiling (DEFUN GEN-ARGS-DEF-FORM ...)
; compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...)
; compiling (DEFUN UPDATE-ARGS-FORM ...)
; compiling (DEFUN FORMAT-OR-LOSE ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...)
; compiling (DEFUN MAKE-ARG ...)
; compiling (DEFUN COPY-ARG ...)
; compiling (DEFUN MODIFY-OR-ADD-ARG ...)
; compiling (DEFUN MODIFY-ARG ...)
; compiling (DEFMACRO ARG-ACCESS-MACRO ...)
; compiling (DEFUN ARG-VALUE-FORM ...)
; compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...)
; compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...)
; compiling (DEFUN GEN-ARG-FORMS ...)
; compiling (DEFUN MAYBE-LISTIFY ...)
; compiling (DEFUN SET-ARG-FROM-TYPE ...)
; compiling (DEFUN GET-ARG-TEMP ...)
; compiling (DEFUN SET-ARG-TEMPS ...)
; compiling (DEFMACRO DEFINE-ARG-TYPE ...)
; compiling (DEFMACRO DEF-ARG-FORM-KIND ...)
; compiling (DEF-ARG-FORM-KIND (:RAW) ...)
; compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...)
; compiling (DEFUN VALSRC-EQUAL ...)
; compiling (DEF-ARG-FORM-KIND (:FILTERING) ...)
; compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...)
; compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...)
; compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...)
; compiling (DEF-ARG-FORM-KIND (:PRINTED) ...)
; compiling (DEFUN REMEMBER-PRINTER-USE ...)
; compiling (DEFUN SOURCE-FORM ...)
; compiling (DEFUN VALUE-OR-SOURCE ...)
; compiling (DEFSTRUCT (CACHED-FUN # ...) ...)
; compiling (DEFUN FIND-CACHED-FUN ...)
; compiling (DEFMACRO !WITH-CACHED-FUN ...)
; compiling (DEFUN FIND-PRINTER-FUN ...)
; compiling (DEFUN MAKE-PRINTER-DEFUN ...)
; compiling (DEFUN PREPROCESS-TEST ...)
; compiling (DEFUN PREPROCESS-CONDITIONALS ...)
; compiling (DEFUN PREPROCESS-PRINTER ...)
; compiling (DEFUN FIND-FIRST-FIELD-NAME ...)
; compiling (DEFUN PREPROCESS-CHOOSES ...)
; compiling (DEFUN SHARING-CONS ...)
; compiling (DEFUN SHARING-MAPCAR ...)
; compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...)
; compiling (DEFUN PICK-PRINTER-CHOICE ...)
; compiling (DEFUN COMPILE-PRINTER-LIST ...)
; compiling (DEFUN COMPILE-PRINTER-BODY ...)
; compiling (DEFUN COMPILE-PRINT ...)
; compiling (DEFUN STRING-OR-QSYM-P ...)
; compiling (DEFUN STRIP-QUOTE ...)
; compiling (DEFUN COMPARE-FIELDS-FORM ...)
; compiling (DEFUN COMPILE-TEST ...)
; compiling (DEFUN FIND-LABELLER-FUN ...)
; compiling (DEFUN FIND-PREFILTER-FUN ...)
; compiling (DEFUN COMPUTE-MASK-ID ...)
; compiling (DEFUN INSTALL-INST-FLAVORS ...)
; compiling (DECLAIM (INLINE BYTES-TO-BITS))
; compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...))
; compiling (DEFUN BYTES-TO-BITS ...)
; compiling (DEFUN BITS-TO-BYTES ...)
; compiling (DEFUN SIGN-EXTEND ...)
; compiling (DEFUN ALIGNED-P ...)
; compiling (DEFUN ALIGN ...)
; compiling (DEFUN TAB ...)
; compiling (DEFUN TAB0 ...)
; compiling (DEFUN PRINC16 ...)
; compiling (DEFUN READ-SIGNED-SUFFIX ...)
; compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN DSTATE-CUR-ADDR ...)
; compiling (DEFUN DSTATE-NEXT-ADDR ...)
; compiling (DEFMACRO DSTATE-GET-PROP ...)
; compiling (DEFUN DSTATE-PUT-INST-PROP ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN READ-SIGNED-SUFFIX
;     (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: READ-SUFFIX

; in: DEFUN DSTATE-NEXT-ADDR
;     (SB!DISASSEM:SEG-VIRTUAL-LOCATION
;      (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SEG-VIRTUAL-LOCATION

; in: DEFUN DSTATE-CUR-ADDR
;     (SB!DISASSEM:SEG-VIRTUAL-LOCATION
;      (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SEG-VIRTUAL-LOCATION

; in: DEF!METHOD PRINT-OBJECT
;     (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)
; ==>
;   (TRULY-THE (OR NULL SB!DISASSEM:SEGMENT)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!DISASSEM:DISASSEM-STATE SB!DISASSEM::DSTATE) 4))
; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT

; in: DEFSTRUCT DISASSEM-STATE
;     (DEFSTRUCT
;         (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-)
;          (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL))
;       (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER))
;       (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT))
;       (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT)
;       (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE
;        (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN))
;       (SB!DISASSEM::PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::FILTERED-VALUES
;        (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE
;        SB!DISASSEM::FILTERED-VALUE-VECTOR)
;       (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20)))
;       ...)
; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT
; 
; compilation unit finished
;   Undefined type:
;     SEGMENT
;   Undefined functions:
;     READ-SUFFIX SEG-VIRTUAL-LOCATION
;   caught 5 STYLE-WARNING conditions
;   printed 53 notes
; compiling (DEFUN DSTATE-GET-INST-PROP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/disassem.fasl-tmp written
; compilation finished in 0:00:07.855
; compiling file "/«PKGBUILDDIR»/src/compiler/assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!ASSEM")
; compiling (DEFVAR *ASSEM-SCHEDULER-P* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (SEGMENT #) ...)
; compiling (DEFPRINTER (SEGMENT) ...)
; compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX))
; compiling (DEFUN SEGMENT-CURRENT-INDEX ...)
; compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...)
; compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...)
; compiling (DEF!STRUCT (INSTRUCTION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFMACRO WITHOUT-SCHEDULING ...)
; compiling (DEFMACRO NOTE-DEPENDENCIES ...)
; compiling (DEFUN NOTE-READ-DEPENDENCY ...)
; compiling (DEFUN NOTE-WRITE-DEPENDENCY ...)
; compiling (DEFUN QUEUE-INST ...)
; compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...)
; compiling (DEFUN ADD-TO-NTH-LIST ...)
; compiling (DEFUN SCHEDULE-ONE-INST ...)
; compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...)
; compiling (DEFUN ADVANCE-ONE-INST ...)
; compiling (DEFUN INSERT-EMITTABLE-INST ...)
; compiling (DEF!STRUCT (ANNOTATION # ...) ...)
; compiling (DEF!STRUCT (LABEL # ...))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...)
; compiling (DEF!STRUCT (BACK-PATCH # ...) ...)
; compiling (DEF!STRUCT (CHOOSER # ...) ...)
; compiling (DEF!STRUCT (FILLER # ...) ...)
; compiling (DEFUN EMIT-BYTE ...)
; compiling (DEFUN EMIT-SKIP ...)
; compiling (DEFUN EMIT-ANNOTATION ...)
; compiling (DEFUN EMIT-BACK-PATCH ...)
; compiling (DEFUN EMIT-CHOOSER ...)
; compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...)
; compiling (DEFUN EMIT-FILLER ...)
; compiling (DEFUN %EMIT-LABEL ...)
; compiling (DEFUN %EMIT-ALIGNMENT ...)
; compiling (DEFUN FIND-ALIGNMENT ...)
; compiling (DEFUN %EMIT-POSTIT ...)
; compiling (DEFUN COMPRESS-OUTPUT ...)
; compiling (DEFUN FINALIZE-POSITIONS ...)
; compiling (DEFUN PROCESS-BACK-PATCHES ...)
; compiling (DEFUN COMPACT-SEGMENT-BUFFER ...)
; compiling (DEFMACRO %%CURRENT-SEGMENT%% ...)
; compiling (DEFVAR **CURRENT-SEGMENT**)
; compiling (DEFMACRO %%CURRENT-VOP%% ...)
; compiling (DEFVAR **CURRENT-VOP** ...)
; compiling (DEF DEF!MACRO ...)
; compiling (DEF SB-XC:DEFMACRO ...)
; compiling (DEFMACRO INST ...)
; compiling (DEFMACRO EMIT-LABEL ...)
; compiling (DEFMACRO EMIT-POSTIT ...)
; compiling (DEFMACRO EMIT-ALIGNMENT ...)
; compiling (DEFUN LABEL-POSITION ...)
; compiling (DEFUN APPEND-SEGMENT ...)
; compiling (DEFUN FINALIZE-SEGMENT ...)
; compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...)
; compiling (DEFUN WRITE-SEGMENT-CONTENTS ...)
; compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...)
; compiling (DEFUN GROVEL-LAMBDA-LIST ...)
; compiling (DEFUN EXTRACT-NTHS ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...)

; file: /«PKGBUILDDIR»/src/compiler/assem.lisp
; in: DEF SB-XC:DEFMACRO
;     (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND)
; --> SB-XC:DEFMACRO PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION 
; --> LET* LET* BLOCK FLET LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in:
;      MACROLET ((DEF (DEFMACRO MACROEXPAND)
;             (QUASIQUOTE
;              (# ASSEMBLE #
;               "Execute BODY (as a progn) with SEGMENT as the current segment."
;               #))))
;     (MACROLET ((SB!ASSEM::DEF (DEFMACRO MACROEXPAND)
;                  (SB!INT:QUASIQUOTE
;                   (# SB!ASSEM:ASSEMBLE #
;                    "Execute BODY (as a progn) with SEGMENT as the current segment."
;                    #))))
;       (SB!ASSEM::DEF SB!INT:DEF!MACRO MACROEXPAND)
;       (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND))
; --> PROGN FUNCTION LET* LET* BLOCK FLET LET* MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN EMIT-SKIP
;     (SB!VM:EMIT-LONG-NOP SB!ASSEM:SEGMENT SB!ASSEM::AMOUNT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:EMIT-LONG-NOP

; in: DEFUN SCHEDULE-PENDING-INSTRUCTIONS
;     (SB!C:EMIT-NOP SB!ASSEM:SEGMENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:EMIT-NOP

; in: DEF!METHOD PRINT-OBJECT
;     (SB!C:LABEL-ID SB!ASSEM:LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:LABEL-ID

; in: DEFUN NOTE-WRITE-DEPENDENCY
;     (SB!C:LOCATION-NUMBER WRITE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:LOCATION-NUMBER

; in: DEFUN NOTE-READ-DEPENDENCY
;     (SB!C:LOCATION-NUMBER READ)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:LOCATION-NUMBER
; 
; compilation unit finished
;   Undefined functions:
;     %MACROEXPAND SB!VM:EMIT-LONG-NOP SB!C:EMIT-NOP SB!C:LABEL-ID SB!C:LOCATION-NUMBER
;   caught 7 STYLE-WARNING conditions
; compiling (DEFUN %DEFINE-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/assem.fasl-tmp written
; compilation finished in 0:00:08.470
; compiling file "/«PKGBUILDDIR»/src/code/debug-info.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-INDIRECT-P ...)
; compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...)
; compiling (DEF!STRUCT (DEBUG-FUN #))
; compiling (DEF!STRUCT (COMPILED-DEBUG-FUN #) ...)

; file: /«PKGBUILDDIR»/src/code/debug-info.lisp
; in: DEF!STRUCT (DEBUG-SOURCE)
;     (SB!INT:DEF!STRUCT (SB!C::DEBUG-SOURCE)
;                        (NAMESTRING NIL :TYPE (OR NULL STRING))
;                        (SB!C::CREATED NIL :TYPE (OR UNSIGNED-BYTE NULL))
;                        (SB!C::SOURCE-ROOT 0 :TYPE SB!INT:INDEX)
;                        (SB!C::START-POSITIONS NIL :TYPE
;                         (OR (SIMPLE-ARRAY * (*)) NULL))
;                        (SB!KERNEL:FORM NIL :TYPE LIST) #'NIL
;                        (SB!C::COMPILED (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE)
;                        (SB!C::PLIST SB!C::*SOURCE-PLIST*))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::DEBUG-SOURCE {52F78361}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51D557F1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::DEBUG-SOURCE-NAMESTRING,
;   (COMMON-LISP:SETF SB!C::DEBUG-SOURCE-CREATED) and
;   (COMMON-LISP:SETF SB!C::DEBUG-SOURCE-COMPILED) could not be inlined because the
;   structure definition for SB!C::DEBUG-SOURCE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (DEBUG-SOURCE) ...)

; file: /«PKGBUILDDIR»/src/code/debug-info.lisp
; in: DEF!STRUCT DEBUG-INFO
;     (SB!INT:DEF!STRUCT SB!C::DEBUG-INFO (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE T)
;                        (SB!C::SOURCE NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::DEBUG-INFO {53B2E3E9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51D557F1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to (COMMON-LISP:SETF SB!C::DEBUG-INFO-SOURCE) could
;   not be inlined because the structure definition for SB!C::DEBUG-INFO was not
;   yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT DEBUG-INFO ...)
; compiling (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...)
; compiling (DEF!STRUCT (COMPILED-DEBUG-INFO #) ...)
; compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN !DEBUG-INFO-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/debug-info.fasl-tmp written
; compilation finished in 0:00:01.536
; compiling file "/«PKGBUILDDIR»/src/compiler/dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...)
; compiling (DEFSTRUCT (CIRCULARITY #) ...)
; compiling (DEFVAR *CIRCULARITIES-DETECTED*)
; compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...)
; compiling (DEFUN DUMP-BYTE ...)
; compiling (DEFUN DUMP-WORD ...)
; compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...)
; compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...)
; compiling (DEFUN DUMP-FOP+OPERANDS ...)
; compiling (DEFMACRO DUMP-FOP ...)
; compiling (DEFUN DUMP-PUSH ...)
; compiling (DEFUN DUMP-POP ...)
; compiling (DEFUN EQUAL-CHECK-TABLE ...)
; compiling (DEFUN STRING-CHECK-TABLE ...)
; compiling (DEFUN EQ-SAVE-OBJECT ...)
; compiling (DEFUN EQUAL-SAVE-OBJECT ...)
; compiling (DEFUN STRING-SAVE-OBJECT ...)
; compiling (DEFUN NOTE-POTENTIAL-CIRCULARITY ...)
; compiling (DEFUN OPEN-FASL-OUTPUT ...)
; compiling (DEFUN CLOSE-FASL-OUTPUT ...)
; compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...)
; compiling (DEFUN SUB-DUMP-OBJECT ...)
; compiling (DEFUN DUMP-CIRCULARITIES ...)
; compiling (DEFUN DUMP-OBJECT ...)
; compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...)
; compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...)
; compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...)
; compiling (DEFUN FASL-VALIDATE-STRUCTURE ...)
; compiling (DEFUN DUMP-RATIO ...)
; compiling (DEFUN DUMP-INTEGER ...)
; compiling (DEFUN DUMP-FLOAT ...)
; compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...)
; compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...)
; compiling (DEFUN DUMP-COMPLEX-RATIONAL ...)
; compiling (DEFUN DUMP-COMPLEX ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DUMP-PACKAGE ...)
; compiling (DEFUN DUMP-LIST ...)
; compiling (DEFUN TERMINATE-DOTTED-LIST ...)
; compiling (DEFUN TERMINATE-UNDOTTED-LIST ...)
; compiling (DEFUN DUMP-ARRAY ...)
; compiling (DEFUN DUMP-VECTOR ...)
; compiling (DEFUN DUMP-SIMPLE-VECTOR ...)
; compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...)
; compiling (DEFUN DUMP-CHARACTER ...)
; compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...)
; compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...)

; file: /«PKGBUILDDIR»/src/compiler/dump.lisp
; in: DEFUN DUMP-SYMBOL
;     (NOT SB!FASL::THIS-BASE-P)
; --> IF 
; ==>
;   SB!FASL::THIS-BASE-P
; 
; note: deleting unreachable code

;     (NOT SB!FASL::THAT-BASE-P)
; --> IF 
; ==>
;   SB!FASL::THAT-BASE-P
; 
; note: deleting unreachable code
; compiling (DEFUN DUMP-SYMBOL ...)
; compiling (DEFUN DUMP-SEGMENT ...)
; compiling (DEFUN DUMP-FIXUPS ...)
; compiling (DEFUN DUMP-CODE-OBJECT ...)
; compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...)
; compiling (DEFUN DUMP-ONE-ENTRY ...)
; compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...)
; compiling (DEFUN FASL-DUMP-COMPONENT ...)
; compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...)
; compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...)
; compiling (DEFUN FASL-DUMP-SOURCE-INFO ...)
; compiling (DEFUN DUMP-STRUCTURE ...)

; file: /«PKGBUILDDIR»/src/compiler/dump.lisp
; in: DEFUN DUMP-STRUCTURE
;     (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!ALIEN:STRUCT (- LENGTH SB!INT:INDEX 1))
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/WORD

; in: DEFUN DUMP-CODE-OBJECT
;     (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT

; in: DEFUN FASL-DUMP-SOURCE-INFO
;     (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-SOURCE-FOR-INFO

; in: DEFUN DUMP-ARRAY
;     (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-MULTI-DIM-ARRAY

; in: DEFUN DUMP-FIXUPS
;     (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-FLAVOR

;     (SB!C:FIXUP-NAME SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NAME

;     (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-FIXUP

;     (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-KIND

;     (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-POSITION

; in: DEFUN OPEN-FASL-OUTPUT
;     (SB!EXT:NATIVE-NAMESTRING SB!EXT:*RUNTIME-PATHNAME* :AS-FILE T)
; 
; caught STYLE-WARNING:
;   undefined function: NATIVE-NAMESTRING

; in: DEFUN FASL-DUMP-SOURCE-INFO
;     (DEFUN SB!FASL:FASL-DUMP-SOURCE-INFO (SB!INT:INFO SB!FASL:FASL-OUTPUT)
;       (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO))
;       (LET ((SB!FASL::RES (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO))
;             (SB!FASL::*DUMP-ONLY-VALID-STRUCTURES* NIL))
;         (SETF (SB!C::DEBUG-SOURCE-CREATED SB!FASL::RES) 0
;               (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::RES) 0)
;         (SB!FASL:DUMP-OBJECT SB!FASL::RES SB!FASL:FASL-OUTPUT)
;         (LET ((SB!FASL::RES-HANDLE #))
;           (DOLIST (SB!FASL::INFO-HANDLE #)
;             (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT)
;             (SB!FASL::DUMP-FOP 'SB!FASL::FOP-STRUCTSET SB!FASL:FASL-OUTPUT)
;             (SB!FASL::DUMP-WORD SB!FASL::INFO-HANDLE SB!FASL:FASL-OUTPUT)
;             (SB!FASL::DUMP-WORD SB!C::+DEBUG-INFO-SOURCE-INDEX+
;              SB!FASL:FASL-OUTPUT))
;           (PROGN
;            (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT)
;            (SB!FASL::DUMP-FOP 'SB!FASL::FOP-NOTE-DEBUG-SOURCE
;                               SB!FASL:FASL-OUTPUT))))
;       (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO SB!FASL:FASL-OUTPUT) NIL)
;       (VALUES))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G1480 'SB!C::SOURCE-INFO)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::SOURCE-INFO

;     (TYPE SB!C::SOURCE-INFO SB!INT:INFO)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::SOURCE-INFO
; 
; compilation unit finished
;   Undefined type:
;     SB!C::SOURCE-INFO
;   Undefined functions:
;     %RAW-INSTANCE-REF/WORD SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-MULTI-DIM-ARRAY FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION NATIVE-NAMESTRING
;   caught 12 STYLE-WARNING conditions
;   printed 2 notes
; compiling (DEFUN DUMP-LAYOUT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/dump.fasl-tmp written
; compilation finished in 0:00:03.724
; compiling file "/«PKGBUILDDIR»/src/compiler/main.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *CONSTANTS* ...))
; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...)
; compiling (DEFVAR *CHECK-CONSISTENCY* ...)
; compiling (DEFVAR *LOOP-ANALYZE* ...)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...)
; compiling (DEFVAR *BLOCK-COMPILE*)
; compiling (DEFVAR *BLOCK-COMPILE-ARG*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ENTRY-POINTS*)
; compiling (DECLAIM (LIST *ENTRY-POINTS*))
; compiling (DEFVAR *TOPLEVEL-LAMBDAS*)
; compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*))
; compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...)
; compiling (DEFVAR *COMPILE-PROGRESS* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SOURCE-INFO* ...)
; compiling (DEFVAR *IN-COMPILATION-UNIT* ...)
; compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*)
; compiling (DEFUN MAYBE-MUMBLE ...)
; compiling (DEFTYPE OBJECT ...)
; compiling (DEFVAR *COMPILE-OBJECT* ...)
; compiling (DECLAIM (TYPE OBJECT ...))
; compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...)
; compiling (DEFVAR *EMIT-CFASL* ...)
; compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*)
; compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...)
; compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...)
; compiling (DEFVAR *CODE-COVERAGE-INFO* ...)
; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...)
; compiling (DEFVAR *SOURCE-PLIST* ...)
; compiling (DEFVAR *SOURCE-NAMESTRING* ...)
; compiling (DEFUN %WITH-COMPILATION-UNIT ...)
; compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     (ECASE SB!C::KIND
;       (:FUNCTION
;        (SB!C:COMPILER-WARN "~@<The function ~S is undefined, and its name is ~
;                               reserved by ANSI CL so that even if it were ~
;                               defined later, the code doing so would not be ~
;                               portable.~:@>"
;                            SB!C::NAME))
;       (:TYPE
;        (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE #))
;            (SB!C:COMPILER-WARN "~@<Undefined type ~S. The name starts with ~S: ~
;                                probably use of a quoted type name in a context ~
;                                where the name is not evaluated.~:@>"
;                                SB!C::NAME 'QUOTE)
;            (SB!C:COMPILER-WARN "~@<Undefined type ~S. Note that name ~S is ~
;                                reserved by ANSI CL, so code defining a type with ~
;                                that name would not be portable.~:@>"
;                                SB!C::NAME SB!C::NAME))))
; --> LET 
; ==>
;   SB!C::KIND
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<The function ~S is undefined, and its name is ~
;                               reserved by ANSI CL so that even if it were ~
;                               defined later, the code doing so would not be ~
;                               portable.~:@>"
;                         SB!C::NAME)
; ==>
;   "~@<The function ~S is undefined, and its name is ~
;                             reserved by ANSI CL so that even if it were ~
;                             defined later, the code doing so would not be ~
;                             portable.~:@>"
; 
; note: deleting unreachable code

;     (CONSP SB!C::NAME)
; ==>
;   SB!C::NAME
; 
; note: deleting unreachable code

;     'QUOTE
; 
; note: deleting unreachable code

;     (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE (CAR SB!C::NAME)))
;         (SB!C:COMPILER-WARN "~@<Undefined type ~S. The name starts with ~S: ~
;                                probably use of a quoted type name in a context ~
;                                where the name is not evaluated.~:@>"
;                             SB!C::NAME 'QUOTE)
;         (SB!C:COMPILER-WARN "~@<Undefined type ~S. Note that name ~S is ~
;                                reserved by ANSI CL, so code defining a type with ~
;                                that name would not be portable.~:@>"
;                             SB!C::NAME SB!C::NAME))
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<Undefined type ~S. The name starts with ~S: ~
;                                probably use of a quoted type name in a context ~
;                                where the name is not evaluated.~:@>"
;                         SB!C::NAME 'QUOTE)
; ==>
;   "~@<Undefined type ~S. The name starts with ~S: ~
;                              probably use of a quoted type name in a context ~
;                              where the name is not evaluated.~:@>"
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<Undefined type ~S. Note that name ~S is ~
;                                reserved by ANSI CL, so code defining a type with ~
;                                that name would not be portable.~:@>"
;                         SB!C::NAME SB!C::NAME)
; ==>
;   "~@<Undefined type ~S. Note that name ~S is ~
;                              reserved by ANSI CL, so code defining a type with ~
;                              that name would not be portable.~:@>"
; 
; note: deleting unreachable code
; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...)
; compiling (DEFMACRO WITH-COMPILATION-VALUES ...)
; compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...)
; compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...)
; compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...)
; compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...)
; compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...)
; compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...)
; compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...)
; compiling (DEFUN DFO-AS-NEEDED ...)
; compiling (DEFUN IR1-PHASES ...)
; compiling (DEFUN %COMPILE-COMPONENT ...)
; compiling (DEFUN DELETE-IF-NO-ENTRIES ...)
; compiling (DEFUN COMPILE-COMPONENT ...)
; compiling (DEFUN CLEAR-CONSTANT-INFO ...)
; compiling (DEFUN CLEAR-IR1-INFO ...)
; compiling (DEFUN DESCRIBE-COMPONENT ...)
; compiling (DEFUN DESCRIBE-IR2-COMPONENT ...)
; compiling (DEF!STRUCT (FILE-INFO # ...) ...)
; compiling (DEF!STRUCT (SOURCE-INFO # ...) ...)
; compiling (DEFUN MAKE-FILE-SOURCE-INFO ...)
; compiling (DEFUN MAKE-LISP-SOURCE-INFO ...)
; compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...)
; compiling (DEFUN GET-SOURCE-STREAM ...)
; compiling (DEFUN CLOSE-SOURCE-INFO ...)
; compiling (DEFUN %DO-FORMS-FROM-INFO ...)
; compiling (DEFMACRO DO-FORMS-FROM-INFO ...)
; compiling (DEFUN SUB-SUB-COMPILE-FILE ...)
; compiling (DEFUN FIND-SOURCE-ROOT ...)
; compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...)
; compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...)
; compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...)
; compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...)
; compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...)
; compiling (DEFUN FUNCTIONAL-COMPONENTS ...)
; compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN %COMPILE ...)
; compiling (DEFUN NOTE-TOP-LEVEL-FORM ...)
; compiling (DEFUN EVAL-COMPILE-TOPLEVEL ...)
; compiling (DEFUN PROCESS-TOPLEVEL-FORM ...)
; compiling (DEFUN PRODUCING-FASL-FILE ...)
; compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...)
; compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...)
; compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...)
; compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...)
; compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...)
; compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...)
; compiling (DEFUN COMPILE-TOPLEVEL ...)
; compiling (DEFUN FINISH-BLOCK-COMPILATION ...)
; compiling (DEFUN HANDLE-CONDITION-P ...)
; compiling (DEFUN HANDLE-CONDITION-HANDLER ...)
; compiling (DEFUN SUB-COMPILE-FILE ...)
; compiling (DEFUN VERIFY-SOURCE-FILE ...)
; compiling (DEFUN ELAPSED-TIME-TO-STRING ...)
; compiling (DEFUN PRINT-COMPILE-START-NOTE ...)
; compiling (DEFUN PRINT-COMPILE-END-NOTE ...)
; compiling (DEFUN SB-XC:COMPILE-FILE ...)
; compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...)
; compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...)
; compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...)
; compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...)
; compiling (DEFUN EMIT-MAKE-LOAD-FORM ...)
; compiling (DEFUN COMPILE-IN-LEXENV ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN IR1-PHASES
;     (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT)
; ==>
;   (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL)
; 
; caught STYLE-WARNING:
;   undefined function: %EVENT

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE)
; ==>
;   (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL)
; 
; caught STYLE-WARNING:
;   undefined function: %EVENT

; in: DEFUN PREPROCESSOR-MACROEXPAND-1
;     (SB!INT:%MACROEXPAND-1 SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND-1

; in: DEFUN %DO-FORMS-FROM-INFO
;     (SETF (SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS STREAM) NIL)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS)
;                   #:NEW1394 #:STREAM1395)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF FORM-TRACKING-STREAM-FORM-START-CHAR-POS)

; in: DEFUN GET-SOURCE-STREAM
;     (SETF (SB!INT:FORM-TRACKING-STREAM-OBSERVER STREAM)
;             (SB!C::MAKE-FORM-TRACKING-STREAM-OBSERVER SB!C::FILE-INFO))
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!INT:FORM-TRACKING-STREAM-OBSERVER) #:NEW1362
;                   #:STREAM1363)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF FORM-TRACKING-STREAM-OBSERVER)

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::CHECK-IR1-CONSISTENCY SB!C::ALL-COMPONENTS)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-IR1-CONSISTENCY

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-IR2-CONSISTENCY

;     (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-LIFE-CONSISTENCY

;     (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-PACK-CONSISTENCY

; in: DEFUN HANDLE-CONDITION-HANDLER
;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G2084 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; in: DEFUN HANDLE-CONDITION-P
;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G2064 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; in: DEFUN HANDLE-CONDITION-HANDLER
;     (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR-CONTEXT-LEXENV

; in: DEFUN HANDLE-CONDITION-P
;     (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR-CONTEXT-LEXENV

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::WITH-COMPILATION-VALUES
;       (SB-XC:WITH-COMPILATION-UNIT NIL
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
;           (UNLESS (ZEROP #)
;             (SB!C::WITH-SOURCE-PATHS
;               #))
;           (SB!C::FINISH-BLOCK-COMPILATION)
;           (LET (#)
;             (ETYPECASE SB!C::OBJECT # # #))
;           NIL)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-ERROR-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR-HANDLER

; in: DEFUN NOTE-TOP-LEVEL-FORM
;     (SB!C::COMPILER-MUMBLE "~&; ~:[x-compiling~;x-converting~] ~S"
;      SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-MUMBLE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::COMPILER-MUMBLE "")
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-MUMBLE

; in: DEFUN MAYBE-MUMBLE
;     (SB!C::COMPILER-MUMBLE "~&")
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-MUMBLE

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function COMPILER-MUMBLE


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::WITH-COMPILATION-VALUES
;       (SB-XC:WITH-COMPILATION-UNIT NIL
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
;           (UNLESS (ZEROP #)
;             (SB!C::WITH-SOURCE-PATHS
;               #))
;           (SB!C::FINISH-BLOCK-COMPILATION)
;           (LET (#)
;             (ETYPECASE SB!C::OBJECT # # #))
;           NIL)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-STYLE-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARNING-HANDLER

; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     #'SB!C::COMPILER-STYLE-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARNING-HANDLER

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::WITH-COMPILATION-VALUES
;       (SB-XC:WITH-COMPILATION-UNIT NIL
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
;           (UNLESS (ZEROP #)
;             (SB!C::WITH-SOURCE-PATHS
;               #))
;           (SB!C::FINISH-BLOCK-COMPILATION)
;           (LET (#)
;             (ETYPECASE SB!C::OBJECT # # #))
;           NIL)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARNING-HANDLER

; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     #'SB!C::COMPILER-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARNING-HANDLER

; in: DEFUN IR1-PHASES
;     (SB!C::CONSTRAINT-PROPAGATE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTRAINT-PROPAGATE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::CONTROL-ANALYZE SB!C:COMPONENT #'SB!C::MAKE-IR2-BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: CONTROL-ANALYZE

;     (SB!C::COPY-PROPAGATE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: COPY-PROPAGATE

; in: DEFUN DELETE-IF-NO-ENTRIES
;     (SB!C::DELETE-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: DELETE-COMPONENT

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::DELETE-UNREFERENCED-TNS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: DELETE-UNREFERENCED-TNS

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::ELIMINATE-DEAD-CODE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: ELIMINATE-DEAD-CODE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::ENTRY-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: ENTRY-ANALYZE

; in: DEFUN PREPROCESSOR-MACROEXPAND-1
;     (SB!C::EXPAND-COMPILER-MACRO SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: EXPAND-COMPILER-MACRO

; in: DEFUN DFO-AS-NEEDED
;     (SB!C::FIND-DFO SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DFO

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::FIND-DOMINATORS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DOMINATORS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::FIND-DOMINATORS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DOMINATORS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::FIND-INITIAL-DFO SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-INITIAL-DFO

; in: DEFUN %COMPILE
;     (SB!C::FIND-INITIAL-DFO (LIST SB!C::FUN))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-INITIAL-DFO

; in: DEFUN SUB-SUB-COMPILE-FILE
;     (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::CURRENT-INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-SOURCE-PATHS

; in: DEFUN IR1-PHASES
;     (SB!C::FLUSH-DEAD-CODE BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-DEAD-CODE

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM SB!C::EXPAND)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILABLE-P

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::FOPCOMPILE
;      (SB!INT:QUASIQUOTE
;       (SB!C::RECORD-CODE-COVERAGE
;        '#S(SB!IMPL::COMMA :EXPR (NAMESTRING *COMPILE-FILE-PATHNAME*) :KIND 0)
;        '#S(SB!IMPL::COMMA
;            :EXPR (LET #
;                    #
;                    LIST)
;            :KIND 0)))
;      NIL NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN COMPILE-LOAD-TIME-VALUE
;     (SB!C::FOPCOMPILE SB!KERNEL:FORM NIL T)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::FOPCOMPILE SB!KERNEL:FORM SB!C::PATH NIL SB!C::EXPAND)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN EMIT-MAKE-LOAD-FORM
;     (SB!C::FOPCOMPILE-ALLOCATE-INSTANCE SB!C::CREATION-FORM)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE-ALLOCATE-INSTANCE

;     (SB!C::FOPCOMPILE-CONSTANT-INIT-FORMS SB!C::FORMS)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE-CONSTANT-INIT-FORMS

; in: DEFUN %DO-FORMS-FROM-INFO
;     (SB!INT:FORM-TRACKING-STREAM-FORM-START-BYTE-POS STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: FORM-TRACKING-STREAM-FORM-START-BYTE-POS

;     (SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: FORM-TRACKING-STREAM-FORM-START-CHAR-POS

; in: DEFUN PRINT-COMPILE-START-NOTE
;     (SB!INT:FORMAT-UNIVERSAL-TIME NIL
;      (SB!C::FILE-INFO-WRITE-DATE SB!C::FILE-INFO) :STYLE :GOVERNMENT
;      :PRINT-WEEKDAY NIL :PRINT-TIMEZONE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FORMAT-UNIVERSAL-TIME

; in: DEFUN PROCESS-TOPLEVEL-FORM
;     (SB!C::FUNCALL-IN-MACROLET-LEXENV SB!C::MAGIC
;      (LAMBDA (&KEY SB!C::FUNS SB!C::PREPEND)
;        (DECLARE (IGNORE SB!C::FUNS))
;        (SB!INT:AVER (NULL SB!C::PREPEND))
;        (SB!C::PROCESS-TOPLEVEL-LOCALLY SB!C::BODY SB!C::PATH
;         SB!C::COMPILE-TIME-TOO))
;      :COMPILE)
; 
; caught STYLE-WARNING:
;   undefined function: FUNCALL-IN-MACROLET-LEXENV

;     (SB!C::FUNCALL-IN-SYMBOL-MACROLET-LEXENV SB!C::MAGIC
;      (LAMBDA (&KEY SB!C::VARS SB!C::PREPEND)
;        (SB!INT:AVER (NULL SB!C::PREPEND))
;        (SB!C::PROCESS-TOPLEVEL-LOCALLY SB!C::BODY SB!C::PATH
;         SB!C::COMPILE-TIME-TOO :VARS SB!C::VARS))
;      :COMPILE)
; 
; caught STYLE-WARNING:
;   undefined function: FUNCALL-IN-SYMBOL-MACROLET-LEXENV

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::GENERATE-CODE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-CODE

; in: DEFUN IR1-PHASES
;     (SB!C::GENERATE-TYPE-CHECKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-TYPE-CHECKS

; in: DEFUN PROCESS-TOPLEVEL-FORM
;     (SB!C::GET-SOURCE-PATH SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SOURCE-PATH

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::GTN-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GTN-ANALYZE

;     (SB!C::INIT-ASSEMBLER)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-ASSEMBLER

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::IR1-CONVERT-LAMBDA (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN)
;      :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME
;      (SB!C::DEBUG-NAME 'SB!C::TL-XEP SB!C::DEBUG-NAME-TAIL) :SYSTEM-LAMBDA T)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDA

;     (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME
;              SB!C::SOURCE-NAME)
; ==>
;   (SB-C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION
;                   :SOURCE-NAME SB!C::SOURCE-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDALIKE

; in: DEFUN IR1-PHASES
;     (SB!C::IR1-FINALIZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-FINALIZE

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE

; in: DEFUN COMPILE-LOAD-TIME-STUFF
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C:IR2-CONVERT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT

;     (SB!C::IR2-OPTIMIZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-OPTIMIZE

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY))
; 
; caught STYLE-WARNING:
;   undefined function: LABEL-ID

; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA
;     (SB!C::LAMBDA-COMPONENT LAMBDA)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN FUNCTIONAL-COMPONENTS
;     (SB!C::LAMBDA-COMPONENT SB!C::F)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::LAMBDA-COMPONENT LAMBDA)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LIFETIME-ANALYZE

; in: DEFUN %DO-FORMS-FROM-INFO
;     (SB!INT:LINE/COL-FROM-CHARPOS STREAM
;      (SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS STREAM))
; 
; caught STYLE-WARNING:
;   undefined function: LINE/COL-FROM-CHARPOS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE

; in: DEFUN %COMPILE
;     (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN))
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE

; in: DEFUN IR1-PHASES
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::LOCALL-ANALYZE-XEP-ENTRY-POINT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-XEP-ENTRY-POINT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::LOOP-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LOOP-ANALYZE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::LTN-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LTN-ANALYZE

;     (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT*
;      SB!C::CODE-LENGTH SB!C::FIXUP-NOTES SB!C::*COMPILE-OBJECT*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CORE-COMPONENT

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-EMPTY-COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-EMPTY-COMPONENT

; in: DEFUN GET-SOURCE-STREAM
;     (SB!C::MAKE-FORM-TRACKING-STREAM-OBSERVER SB!C::FILE-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-FORM-TRACKING-STREAM-OBSERVER

; in: DEFUN %COMPILE
;     (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS
;      SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS
;      SB!C::*DISABLED-PACKAGE-LOCKS*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-LEXENV :POLICY
;      (SB!C::LEXENV-POLICY (SB!C::FUNCTIONAL-LEXENV SB!C::FUN)))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS
;      SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS
;      SB!C::*DISABLED-PACKAGE-LOCKS*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   1 more use of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-XEP-LAMBDA-EXPRESSION

; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS
;     (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TOPLEVEL-LAMBDAS

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN CLEAR-IR1-INFO
;     (SB!C::NODE-COMPONENT SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN DELETE-IF-NO-ENTRIES
;     (SB!C::NODE-COMPONENT SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; 
; caught STYLE-WARNING:
;   1 more use of undefined function NODE-COMPONENT


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN %WITH-COMPILATION-UNIT
;     (SB!C::NOTE-UNDEFINED-REFERENCE
;      (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C) :TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: NOTE-UNDEFINED-REFERENCE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!REGALLOC:PACK SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!REGALLOC:PACK

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PHYSENV-ANALYZE

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PACK-TN-STATS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PACK-TN-STATS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL

; in: DEFUN DESCRIBE-COMPONENT
;     (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-ALL-BLOCKS

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-IR2-BLOCKS

; in: DEFUN PROCESS-TOPLEVEL-LOCALLY
;     (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS)
; 
; caught STYLE-WARNING:
;   undefined function: PROCESS-DECLS

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::RECORD-COMPONENT-XREFS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: RECORD-COMPONENT-XREFS

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::REOPTIMIZE-COMPONENT SB!C:COMPONENT :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: REPLACE-TOPLEVEL-XEPS

; in: DEFUN %COMPILE
;     (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO)
; 
; caught STYLE-WARNING:
;   undefined function: REPLACE-TOPLEVEL-XEPS

; in: DEFUN IR1-PHASES
;     (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT)
; 
; caught STYLE-WARNING:
;   undefined function: RETRY-DELAYED-IR1-TRANSFORMS

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE)
; 
; caught STYLE-WARNING:
;   undefined function: RETRY-DELAYED-IR1-TRANSFORMS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SELECT-REPRESENTATIONS

; in: DEFUN EVAL-COMPILE-TOPLEVEL
;     (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-TLF-NUMBER

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::STACK-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: STACK-ANALYZE

; in: DEFUN PARSE-EVAL-WHEN-SITUATIONS
;     (SB!INT:STYLE-WARN "using deprecated EVAL-WHEN situation names~{ ~S~}"
;      SB!C::DEPRECATED-NAMES)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::SUBSTITUTE-LEAF-IF
;      (LAMBDA (SB!C::REF)
;        (LET* ((SB!C::LVAR #) (SB!C::DEST #) (SB!C::KIND #))
;          (SB!INT:NEQ :LOCAL SB!C::KIND)))
;      SB!C::XEP SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF-IF
; 
; compilation unit finished
;   Undefined type:
;     COMPILER-ERROR-CONTEXT
;   Undefined functions:
;     %EVENT %MACROEXPAND-1 (SETF FORM-TRACKING-STREAM-FORM-START-CHAR-POS) (SETF FORM-TRACKING-STREAM-OBSERVER) CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS ELIMINATE-DEAD-CODE ENTRY-ANALYZE EXPAND-COMPILER-MACRO FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FLUSH-DEAD-CODE FOPCOMPILABLE-P FOPCOMPILE FOPCOMPILE-ALLOCATE-INSTANCE FOPCOMPILE-CONSTANT-INIT-FORMS FORM-TRACKING-STREAM-FORM-START-BYTE-POS FORM-TRACKING-STREAM-FORM-START-CHAR-POS FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GET-SOURCE-PATH GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT IR2-OPTIMIZE LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LINE/COL-FROM-CHARPOS LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOCALL-ANALYZE-XEP-ENTRY-POINT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-FORM-TRACKING-STREAM-OBSERVER MAKE-LEXENV MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NAME-LAMBDALIKE NODE-COMPONENT NOTE-UNDEFINED-REFERENCE SB!REGALLOC:PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REOPTIMIZE-COMPONENT REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS SOURCE-PATH-TLF-NUMBER STACK-ANALYZE STYLE-WARN SUBSTITUTE-LEAF-IF
;   caught 107 STYLE-WARNING conditions
;   printed 7 notes
; compiling (DEFUN EVAL-TLF ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/main.fasl-tmp written
; compilation finished in 0:00:06.278
; compiling file "/«PKGBUILDDIR»/src/compiler/xref.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *XREF-KINDS* ...)
; compiling (DEFUN RECORD-COMPONENT-XREFS ...)
; compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...)
; compiling (DEFUN RECORD-NODE-XREFS ...)
; compiling (DEFUN INTERNAL-NAME-P ...)
; compiling (DEFUN RECORD-XREF ...)
; compiling (DEFUN RECORD-MACROEXPANSION ...)
; compiling (DEFUN RECORD-CALL ...)

; file: /«PKGBUILDDIR»/src/compiler/xref.lisp
; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::BLOCK-HOME-LAMBDA BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: BLOCK-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::CONSTANT-LVAR-P SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

;     (SB!C::LVAR-VALUE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::NODE-HOME-LAMBDA SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE))
; 
; caught STYLE-WARNING:
;   undefined function: PRINCIPAL-LVAR-USE

; in: DEFUN RECORD-XREF
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE
;      (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE
; 
; compilation unit finished
;   Undefined functions:
;     BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE
;   caught 6 STYLE-WARNING conditions
; compiling (DEFUN PACK-XREF-DATA ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/xref.fasl-tmp written
; compilation finished in 0:00:01.375
; compiling file "/«PKGBUILDDIR»/src/code/source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION # ...) ...)
; compiling (DEFUN MAKE-DEFINITION-SOURCE-LOCATION ...)
; compiling (DEFUN LPNIFY-NAMESTRING ...)

; file: /«PKGBUILDDIR»/src/code/source-location.lisp
; in: DEFUN MAKE-DEFINITION-SOURCE-LOCATION
;     (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-TLF-NUMBER
; 
; compilation unit finished
;   Undefined function:
;     SOURCE-PATH-TLF-NUMBER
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/source-location.fasl-tmp written
; compilation finished in 0:00:00.266
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*))
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFVAR *CURRENT-FORM-NUMBER*)
; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*))
; compiling (DEFVAR *SOURCE-PATHS*)
; compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P))
; compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...)
; compiling (DEFUN GET-SOURCE-PATH ...)
; compiling (DEFUN ENSURE-SOURCE-PATH ...)
; compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...)
; compiling (DEFUN NOTE-SOURCE-PATH ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CURRENT-COMPONENT*)
; compiling (DECLAIM (LIST *CURRENT-PATH*))
; compiling (DEFVAR *CURRENT-PATH*)
; compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...)
; compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...)
; compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...)
; compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...)
; compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF))
; compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...)
; compiling (DEFUN MAYBE-DEFINED-HERE ...)
; compiling (DEFUN FIND-GLOBAL-FUN ...)
; compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-FREE-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...)
; compiling (DEFUN MAYBE-FIND-FREE-VAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-FREE-VAR ...)
; compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...)
; compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...)
; compiling (DECLAIM (INLINE USE-CTRAN))
; compiling (DEFUN USE-CTRAN ...)
; compiling (DEFUN %USE-CTRAN ...)
; compiling (DEFUN INSERT-NODE-BEFORE ...)
; compiling (DEFUN USE-LVAR ...)
; compiling (DECLAIM (INLINE USE-CONTINUATION))
; compiling (DEFUN USE-CONTINUATION ...)
; compiling (DEFUN IR1-TOPLEVEL ...)
; compiling (DEFUN FIND-SOURCE-PATHS ...)
; compiling (DEFUN SUB-FIND-SOURCE-PATHS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT ...)
; compiling (DEFUN REFERENCE-CONSTANT ...)
; compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...)
; compiling (DEFUN REFERENCE-LEAF ...)
; compiling (DEFUN ALWAYS-BOUNDP ...)
; compiling (DEFUN IR1-CONVERT-VAR ...)
; compiling (DEFUN FIND-COMPILER-MACRO ...)
; compiling (DEFUN EXPAND-COMPILER-MACRO ...)
; compiling (DEFUN IR1-CONVERT-FUNCTOID ...)
; compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...)
; compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN MUFFLE-WARNING-OR-DIE
;     (SB!INT:BUG "no MUFFLE-WARNING restart")
; ==>
;   "no MUFFLE-WARNING restart"
; 
; note: deleting unreachable code
; compiling (DEFUN MUFFLE-WARNING-OR-DIE ...)
; compiling (DEFUN CAREFUL-EXPAND-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-PROGN-BODY ...)
; compiling (DEFUN INSTRUMENT-COVERAGE ...)
; compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...)
; compiling (DEFUN RECORD-CODE-COVERAGE ...)
; compiling (DEFUN CLEAR-CODE-COVERAGE ...)
; compiling (DEFUN RESET-CODE-COVERAGE ...)
; compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...)
; compiling (DEFUN STEP-FORM-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-COMBINATION ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...)
; compiling (DEFUN IR1-CONVERT-SRCTRAN ...)
; compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...)
; compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...)
; compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-IN-BINDINGS ...)
; compiling (DEFUN PROCESS-TYPE-DECL ...)
; compiling (DEFUN PROCESS-FTYPE-DECL ...)
; compiling (DEFUN PROCESS-SPECIAL-DECL ...)
; compiling (DEFUN MAKE-NEW-INLINEP ...)
; compiling (DEFUN PROCESS-INLINE-DECL ...)
; compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...)
; compiling (DEFUN PROCESS-IGNORE-DECL ...)
; compiling (DEFUN PROCESS-EXTENT-DECL ...)
; compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...)
; compiling (DEFUN PROCESS-1-DECL ...)
; compiling (DEFUN PROCESS-DECLS ...)
; compiling (DEFUN %PROCESSING-DECLS ...)
; compiling (DEFMACRO PROCESSING-DECLS ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION
;     (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: ASSURE-FUNCTIONAL-LIVE-P

; in: DEFUN REFERENCE-LEAF
;     (SB!C::ASSURE-LEAF-LIVE-P SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: ASSURE-LEAF-LIVE-P

; in: DEFUN PROCESS-EXTENT-DECL
;     (SB!C:COMPILER-NOTIFY "Ignoring free ~S declaration: ~S" SB!C::KIND
;      SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN PROCESS-INLINE-DECL
;     (SB!C:COMPILER-NOTIFY "ignoring ~A declaration not at ~
;                                        definition of local function:~%  ~S"
;      SB!C::SENSE SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN PROCESS-FTYPE-DECL
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

;     (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-SPECIFIER-TYPE

; in: DEFUN PROCESS-TYPE-DECL
;     (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-SPECIFIER-TYPE

; in: DEFUN PROCESS-1-DECL
;     (SB!C::COMPILER-VALUES-SPECIFIER-TYPE
;      (IF (SB!INT:SINGLETON-P SB!C::TYPES)
;          (CAR SB!C::TYPES)
;          (SB!INT:QUASIQUOTE
;           (VALUES #S(SB!IMPL::COMMA :EXPR SB!C::TYPES :KIND 2)))))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-VALUES-SPECIFIER-TYPE

; in: DEFUN IR1-CONVERT-VAR
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

; in: DEFUN REFERENCE-LEAF => DEFINED-FUN-FUNCTIONAL LEAF
;     (SB!C::DEFINED-FUN-FUNCTIONAL SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: DEFINED-FUN-FUNCTIONAL

; in: DEFUN INSERT-NODE-BEFORE
;     (SB!C::ENSURE-BLOCK-START SB!C::PREV)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-BLOCK-START

; in: DEFUN REFERENCE-CONSTANT
;     (SB!C::FIND-CONSTANT SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN FIND-FREE-VAR
;     (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN IR1-TOPLEVEL
;     (SB!C::IR1-CONVERT-LAMBDA-BODY SB!C::FORMS NIL :DEBUG-NAME
;      (SB!C::DEBUG-NAME 'SB!C::TOP-LEVEL-FORM NIL))
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDA-BODY

; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL
;     (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN CLEAR-INVALID-FUNCTIONALS
;     (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN %PROCESSING-DECLS
;     (SB!C::MAKE-CAST SB!C::VALUE-LVAR SB!C::RESULT-TYPE
;      (SB!C::LEXENV-POLICY SB!C:*LEXENV*))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CAST

; in: DEFUN REFERENCE-LEAF
;     (SB!C::MAKE-CAST SB!C::REF-LVAR (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE)
;      (SB!C::LEXENV-POLICY SB!C:*LEXENV*))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CAST

; in: DEFUN IR1-TOPLEVEL
;     (SB!C::MAKE-EMPTY-COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-EMPTY-COMPONENT

; in: DEFUN PROCESS-SPECIAL-DECL
;     (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :VARS (SB!C::NEW-VENV))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN PROCESS-FTYPE-DECL
;     (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RES))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN PROCESS-TYPE-DECL
;     (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RESTR) :VARS
;      (SB!C::NEW-VARS))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN FIND-FREE-VAR
;     (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :VARIABLE)
; 
; caught STYLE-WARNING:
;   undefined function: NOTE-UNDEFINED-REFERENCE

; in: DEFUN FIND-GLOBAL-FUN
;     (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: NOTE-UNDEFINED-REFERENCE

; in: DEFUN EXPAND-COMPILER-MACRO
;     (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* "note: ~A" (LIST SB!C::C))
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-COMPILER-MESSAGE

; in: DEFUN USE-LVAR
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN INSTRUMENT-COVERAGE
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE

; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE
;     (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::VAR T)
; 
; caught STYLE-WARNING:
;   undefined function: VALIDATE-CALL-TYPE
; 
; compilation unit finished
;   Undefined functions:
;     ASSURE-FUNCTIONAL-LIVE-P ASSURE-LEAF-LIVE-P COMPILER-NOTIFY COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL DEFINED-FUN-FUNCTIONAL ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE PRINT-COMPILER-MESSAGE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE
;   caught 29 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFUN SPECVAR-FOR-BINDING ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1tran.fasl-tmp written
; compilation finished in 0:00:05.485
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VARIFY-LAMBDA-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-LAMBDA-VARS ...)
; compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...)
; compiling (DEFUN REGISTER-ENTRY-POINT ...)
; compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...)
; compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...)
; compiling (DEFUN CONVERT-MORE-ENTRY ...)
; compiling (DEFUN IR1-CONVERT-MORE ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA ...)
; compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...)
; compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...)
; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...)
; compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...)
; compiling (DEFUN GET-DEFINED-FUN ...)
; compiling (DEFUN ASSERT-NEW-DEFINITION ...)
; compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...)
; compiling (DEFUN %SET-INLINE-EXPANSION ...)
; compiling (DEFUN %COMPILER-DEFUN ...)
; compiling (DEFUN %COMPILER-DEFMACRO ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp
; in: DEFUN ASSERT-NEW-DEFINITION
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*))
; 
; caught STYLE-WARNING:
;   undefined function: LINK-BLOCKS

;     (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
;     (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN IR1-CONVERT-AUX-BINDINGS
;     (SB!C::MAKE-LEXENV :VARS (COPY-LIST SB!C::POST-BINDING-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   1 more use of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp
; in: DEFUN IR1-CONVERT-INLINE-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::NAME-LAMBDALIKE SB!C::THING)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::NODE-BLOCK SB!C:BIND)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-BLOCK

; in: DEFUN IR1-CONVERT-INLINE-EXPANSION
;     (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN GET-DEFINED-FUN
;     (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::SUBSTITUTE-LEAF-IF
;      (LAMBDA (SB!C::REF)
;        (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0)))
;      SB!C::RES SB!C::DEFINED-FUN-RES)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF-IF
; 
; compilation unit finished
;   Undefined functions:
;     COMPILER-NOTIFY CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF
;   caught 15 STYLE-WARNING conditions
; compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1tran-lambda.fasl-tmp written
; compilation finished in 0:00:03.247
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1-translators.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-IR1-TRANSLATOR PROGN ...)
; compiling (DEF-IR1-TRANSLATOR IF ...)
; compiling (DEFUN BEST-SUB-SOURCE-PATH ...)
; compiling (DEF-IR1-TRANSLATOR BLOCK ...)
; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...)
; compiling (DEFUN PARSE-TAGBODY ...)
; compiling (DEF-IR1-TRANSLATOR TAGBODY ...)
; compiling (DEF-IR1-TRANSLATOR GO ...)
; compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...)
; compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...)
; compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...)
; compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...)
; compiling (DEF-IR1-TRANSLATOR MACROLET ...)
; compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...)
; compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...)
; compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...)
; compiling (DEFUN EVAL-INFO-ARGS ...)
; compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...)
; compiling (DEF-IR1-TRANSLATOR QUOTE ...)
; compiling (DEFUN NAME-CONTEXT ...)
; compiling (DEFUN NAME-LAMBDALIKE ...)
; compiling (DEFUN FUN-NAME-LEAF ...)
; compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...)
; compiling (DEFMACRO WITH-FUN-NAME-LEAF ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; compiling (DEF-IR1-TRANSLATOR FUNCTION ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...)
; compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...)
; compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...)
; compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...)
; compiling (DEFUN ENSURE-LVAR-FUN-FORM ...)
; compiling (DEFTRANSFORM FUNCALL ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR %FUNCALL
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; compiling (DEF-IR1-TRANSLATOR %FUNCALL ...)
; compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...)
; compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-LET-VARS ...)
; compiling (DEF-IR1-TRANSLATOR LET ...)
; compiling (DEF-IR1-TRANSLATOR LET* ...)
; compiling (DEFUN IR1-TRANSLATE-LOCALLY ...)
; compiling (DEF-IR1-TRANSLATOR LOCALLY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-FLET-VARS ...)
; compiling (DEFUN IR1-CONVERT-FBINDINGS ...)
; compiling (DEF-IR1-TRANSLATOR FLET ...)
; compiling (DEF-IR1-TRANSLATOR LABELS ...)
; compiling (DEFUN THE-IN-POLICY ...)
; compiling (DEF-IR1-TRANSLATOR THE ...)
; compiling (DEF-IR1-TRANSLATOR TRULY-THE ...)
; compiling (DEFUN EXPLODE-SETQ ...)
; compiling (DEF-IR1-TRANSLATOR SETQ ...)
; compiling (DEFUN SETQ-VAR ...)
; compiling (DEF-IR1-TRANSLATOR THROW ...)
; compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...)
; compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...)
; compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...)
; compiling (DEF-IR1-TRANSLATOR CATCH ...)
; compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR %FUNCALL
;     (SB!INT:%MACROEXPAND FUNCTION SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN THE-IN-POLICY
;     (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-VALUES-SPECIFIER-TYPE

; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEF-IR1-TRANSLATOR RETURN-FROM
;     (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-DELETED-P

; in: DEF-IR1-TRANSLATOR SETQ
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

; in: DEF-IR1-TRANSLATOR GO
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

; in: DEF-IR1-TRANSLATOR RETURN-FROM
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEF-IR1-TRANSLATOR BLOCK
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEF-IR1-TRANSLATOR IF
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function CTRAN-STARTS-BLOCK


; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN
;     (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN
;         ((SB!C::THING) * * :NODE SB!C::NODE)
;       "optimize away possible call to FDEFINITION at runtime"
;       (SB!C::ENSURE-LVAR-FUN-FORM SB!C::THING 'SB!C::THING T))
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFTRANSFORM FUNCALL
;     (SB!C:DEFTRANSFORM FUNCALL
;         ((FUNCTION &REST SB!C::ARGS) * *)
;       (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #)))
;         (SB!INT:QUASIQUOTE
;          (LAMBDA (FUNCTION #) (DECLARE #) (SB!INT:QUASIQUOTE #)))))
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFUN ENSURE-LVAR-FUN-FORM
;     (SB!C::GIVE-UP-IR1-TRANSFORM "not known to be a function")
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEF-IR1-TRANSLATOR IF
;     (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: LINK-BLOCKS

; in: DEFUN ENSURE-LVAR-FUN-FORM
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN THE-IN-POLICY
;     (SB!C::MAKE-CAST SB!C::VALUE-LVAR TYPE SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CAST

; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV
;     (SB!C::MAKE-LEXENV SB!C::DEFINITIONIZE-KEYWORD SB!C::PROCESSED-DEFINITIONS)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEF-IR1-TRANSLATOR TAGBODY
;     (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP :TAGS (SB!C::TAGS))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEF-IR1-TRANSLATOR BLOCK
;     (SB!C::MAKE-LEXENV :BLOCKS (LIST (CONS SB!C::NAME SB!C::ENV-ENTRY)) :CLEANUP
;      SB!C::CLEANUP)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEFUN FUNCALL-IN-MACROLET-LEXENV
;     (SB!C::MAKE-RESTRICTED-LEXENV SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-RESTRICTED-LEXENV

; in: DEFUN IR1-CONVERT-FBINDINGS
;     (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-DEST

; in: DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES
;     (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-DEST

; in: DEF-IR1-TRANSLATOR IF
;     (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST)
; 
; caught STYLE-WARNING:
;   undefined function: POSSIBLE-REST-ARG-CONTEXT

; in: DEF-IR1-TRANSLATOR TAGBODY
;     (SB!C::START-BLOCK SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: START-BLOCK

; in: DEF-IR1-TRANSLATOR BLOCK
;     (SB!C::START-BLOCK SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: START-BLOCK

; in: DEF-IR1-TRANSLATOR LABELS
;     (SB!C::SUBSTITUTE-LEAF SB!C::REAL-FUN (CDR SB!C::PLACEHOLDER-CONS))
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF
; 
; compilation unit finished
;   Undefined functions:
;     %MACROEXPAND COMPILER-VALUES-SPECIFIER-TYPE CONSTANT-LVAR-P CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE LVAR-VALUE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST POSSIBLE-REST-ARG-CONTEXT START-BLOCK SUBSTITUTE-LEAF
;   caught 29 STYLE-WARNING conditions
;   printed 4 notes
; compiling (DEFUN REVERT-SOURCE-PATH ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1-translators.fasl-tmp written
; compilation finished in 0:00:05.590
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1util.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NODE-ENCLOSING-CLEANUP ...)
; compiling (DEFUN MAP-NESTED-CLEANUPS ...)
; compiling (DEFUN INSERT-CLEANUP-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-USES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PRINCIPAL-LVAR ...)
; compiling (DEFUN PRINCIPAL-LVAR-USE ...)
; compiling (DEFUN PRINCIPAL-LVAR-DEST ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DELETE-LVAR-USE ...)
; compiling (DEFUN DELETE-LVAR-USE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ADD-LVAR-USE ...)
; compiling (DEFUN IMMEDIATELY-USED-P ...)
; compiling (DEFUN COMBINATION-DEFINED-TYPE ...)
; compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...)
; compiling (DEFUN SUBSTITUTE-LVAR ...)
; compiling (DEFUN SUBSTITUTE-LVAR-USES ...)
; compiling (DEFUN CTRAN-STARTS-BLOCK ...)
; compiling (DEFUN ENSURE-BLOCK-START ...)
; compiling (DEFUN START-BLOCK ...)
; compiling (DEFUN FILTER-LVAR ...)
; compiling (DEFUN DELETE-FILTER ...)
; compiling (DEFUN INSERT-CAST-BEFORE ...)
; compiling (DEFUN NODE-HOME-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-BLOCK)
;     (DECLAIM (INLINE SB!C::NODE-BLOCK))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::NODE-BLOCK) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-BLOCK to be INLINE, but 6 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE NODE-BLOCK))
; compiling (DEFUN NODE-BLOCK ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NODE-COMPONENT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NODE-PHYSENV ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-DEST)
;     (DECLAIM (INLINE SB!C::NODE-DEST))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::NODE-DEST) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-DEST to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE NODE-DEST))
; compiling (DEFUN NODE-DEST ...)
; compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P))
; compiling (DEFUN NODE-STACK-ALLOCATE-P ...)
; compiling (DEFUN FLUSHABLE-COMBINATION-P ...)
; compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...)
; compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...)
; compiling (DEFUN USE-GOOD-FOR-DX-P ...)
; compiling (DEFUN LVAR-GOOD-FOR-DX-P ...)
; compiling (DEFUN KNOWN-DX-COMBINATION-P ...)
; compiling (DEFUN DX-COMBINATION-P ...)
; compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...)
; compiling (DEFUN REF-GOOD-FOR-DX-P ...)
; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...)
; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...)
; compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...)
; compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P))
; compiling (DEFUN BLOCK-TO-BE-DELETED-P ...)
; compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P))
; compiling (DEFUN NODE-TO-BE-DELETED-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LAMBDA-BLOCK ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LAMBDA-COMPONENT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-START-NODE ...)
; compiling (DEFUN BLOCK-START-CLEANUP ...)
; compiling (DEFUN BLOCK-END-CLEANUP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-HOME-LAMBDA ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-PHYSENV ...)
; compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...)
; compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...)
; compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...)
; compiling (DEFUN SOURCE-PATH-FORMS ...)
; compiling (DEFUN TREE-SOME ...)
; compiling (DEFUN NODE-SOURCE-FORM ...)
; compiling (DEFUN LVAR-SOURCE ...)
; compiling (DEFUN COMMON-SUFFIX ...)
; compiling (DEFUN LVAR-ALL-SOURCES ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-USE)
;     (DECLAIM (INLINE SB!C::LVAR-USE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::LVAR-USE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-USE to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE LVAR-USE))
; compiling (DEFUN LVAR-USE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)
;     (DECLAIM (INLINE SB!C::LVAR-HAS-SINGLE-USE-P))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::LVAR-HAS-SINGLE-USE-P) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-HAS-SINGLE-USE-P to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P))
; compiling (DEFUN LVAR-HAS-SINGLE-USE-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CTRAN-HOME-LAMBDA-OR-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CTRAN-HOME-LAMBDA ...)
; compiling (DECLAIM (INLINE CAST-SINGLE-VALUE-P))
; compiling (DEFUN CAST-SINGLE-VALUE-P ...)
; compiling (DECLAIM (INLINE LVAR-SINGLE-VALUE-P))
; compiling (DEFUN LVAR-SINGLE-VALUE-P ...)
; compiling (DEFUN PRINCIPAL-LVAR-END ...)
; compiling (DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY ...)
; compiling (DEFUN MAKE-LEXENV ...)
; compiling (DEFUN MAKE-RESTRICTED-LEXENV ...)
; compiling (DEFUN LINK-BLOCKS ...)
; compiling (DEFUN %LINK-BLOCKS ...)
; compiling (DEFUN UNLINK-BLOCKS ...)
; compiling (DEFUN CHANGE-BLOCK-SUCCESSOR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN REMOVE-FROM-DFO ...)
; compiling (DEFUN ADD-TO-DFO ...)
; compiling (DEFUN MAP-BLOCK-NLXES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CLEAR-FLAGS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-EMPTY-COMPONENT ...)
; compiling (DEFUN NODE-ENDS-BLOCK ...)
; compiling (DEFUN DELETE-LAMBDA-VAR ...)
; compiling (DEFUN REOPTIMIZE-LAMBDA-VAR ...)
; compiling (DEFUN DELETE-FUNCTIONAL ...)
; compiling (DEFUN DELETE-LAMBDA ...)
; compiling (DEFUN DELETE-OPTIONAL-DISPATCH ...)
; compiling (DEFUN NOTE-LOCAL-FUNCTIONAL ...)
; compiling (DEFUN DEFINED-FUN-FUNCTIONAL ...)
; compiling (DEFUN DELETE-REF ...)
; compiling (DEFUN FLUSH-NODE ...)
; compiling (DEFUN FLUSH-DEST ...)
; compiling (DEFUN DELETE-DEST ...)
; compiling (DEFUN DELETE-BLOCK-LAZILY ...)
; compiling (DEFUN MARK-FOR-DELETION ...)
; compiling (DEFUN DELETE-BLOCK ...)
; compiling (DEFUN DELETE-RETURN ...)
; compiling (DEFUN NOTE-UNREFERENCED-VARS ...)
; compiling (DEFUN NOTE-UNREFERENCED-FUN-VARS ...)
; compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...)
; compiling (DEFUN PRESENT-IN-FORM ...)
; compiling (DEFUN NOTE-BLOCK-DELETION ...)
; compiling (DEFUN UNLINK-NODE ...)
; compiling (DEFUN CTRAN-DELETED-P ...)
; compiling (DEFUN NODE-DELETED ...)
; compiling (DEFUN DELETE-COMPONENT ...)
; compiling (DEFUN CLEAN-COMPONENT ...)
; compiling (DEFUN SPLICE-FUN-ARGS ...)
; compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...)
; compiling (DEFUN EXTRACT-FUN-ARGS ...)
; compiling (DEFUN FLUSH-COMBINATION ...)
; compiling (DEFUN CHANGE-REF-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF-IF ...)
; compiling (DEFUN FIND-CONSTANT ...)
; compiling (DEFUN CLOSURE-VAR-P ...)
; compiling (DEFUN FIND-NLX-INFO ...)
; compiling (DEFUN NLX-INFO-LVAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAIN-ENTRY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...)
; compiling (DEFUN XEP-P ...)
; compiling (DEFUN LVAR-FUN-NAME ...)
; compiling (DEFUN LVAR-FUN-DEBUG-NAME ...)
; compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...)
; compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...)
; compiling (DEFUN LET-COMBINATION ...)
; compiling (DEFUN LET-VAR-INITIAL-VALUE ...)
; compiling (DEFUN COMBINATION-LAMBDA ...)
; compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...)
; compiling (DEFUN INLINE-EXPANSION-OK ...)
; compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...)
; compiling (DEFUN ASSURE-LEAF-LIVE-P ...)
; compiling (DEFUN CALL-FULL-LIKE-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CAREFUL-CALL ...)
; compiling (DEFFROB SPECIFIER-TYPE ...)
; compiling (DEFFROB VALUES-SPECIFIER-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-KEYWORD-LVAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-TRANSFORM-KEYS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %EVENT ...)
; compiling (DEFUN MAKE-CAST ...)
; compiling (DEFUN CAST-TYPE-CHECK ...)
; compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...)
; compiling (DEFUN LVAR-FUN-IS ...)
; compiling (DEFUN LVAR-MATCHES ...)
; compiling (DEFUN OPTIONAL-REST-P ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFFROB VALUES-SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:VALUES-SPECIFIER-TYPE
;      SB!C::CAREFUL-VALUES-SPECIFIER-TYPE SB!C::COMPILER-VALUES-SPECIFIER-TYPE
;      SB!C::IR1-TRANSFORM-VALUES-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET 
; --> TAGBODY SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR

; in: DEFFROB SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:SPECIFIER-TYPE SB!C::CAREFUL-SPECIFIER-TYPE
;      SB!C::COMPILER-SPECIFIER-TYPE SB!C::IR1-TRANSFORM-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET 
; --> TAGBODY SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR

; in: DEFUN NOTE-BLOCK-DELETION
;     (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL
;      "deleting unreachable code" :FORMAT-ARGUMENTS NIL)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN DELETE-LAMBDA
;     (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL
;      "deleting unused function~:[.~;~:*~%  ~S~]" :FORMAT-ARGUMENTS
;      (LIST (SB!C::LEAF-DEBUG-NAME SB!C::CLAMBDA)))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN NOTE-NO-STACK-ALLOCATION
;     (SB!C:COMPILER-NOTIFY "~@<could~2:I not stack allocate ~S in: ~S~:@>"
;      (SB!C::LAMBDA-VAR-ORIGINAL-NAME (SB!C::REF-LEAF SB!C::USE))
;      (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE)))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function COMPILER-NOTIFY


; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFUN CHECK-KEY-ARGS-CONSTANT
;     (SB!C::CONSTANT-LVAR-P (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN ELIMINATE-KEYWORD-ARGS
;     (SB!C::CONSTANT-LVAR-P SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHANGE-REF-LEAF
;     (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE :FROM-SCRATCH SB!C::RECKLESSLY)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN LVAR-ALL-SOURCES
;     (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-ORIGINAL-SOURCE

; in: DEFUN NODE-SOURCE-FORM
;     (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-ORIGINAL-SOURCE

; in: DEFUN NOTE-NO-STACK-ALLOCATION
;     (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-ORIGINAL-SOURCE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function FIND-ORIGINAL-SOURCE


; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFUN SPLICE-FUN-ARGS
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN FLUSH-DEST
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN SUBSTITUTE-LVAR
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN EXTRACT-FUN-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFUN ELIMINATE-KEYWORD-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFUN SPLICE-FUN-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function GIVE-UP-IR1-TRANSFORM


; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFUN CAST-TYPE-CHECK
;     (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE-CAST

; in: DEFUN FILTER-LVAR
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN CHECK-TRANSFORM-KEYS
;     (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN FIND-KEYWORD-LVAR
;     (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN ELIMINATE-KEYWORD-ARGS
;     (SB!C::LVAR-VALUE SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN DELETE-REF
;     (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TO-ASSIGNMENT

; in: DEFUN DELETE-OPTIONAL-DISPATCH
;     (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TO-ASSIGNMENT

; in: DEFUN DELETE-REF
;     (SB!C::MAYBE-LET-CONVERT SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN DELETE-OPTIONAL-DISPATCH
;     (SB!C::MAYBE-LET-CONVERT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN MAKE-CAST
;     (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-WEAKEN-CHECK

; in: DEFUN DELETE-FILTER
;     (SB!C::MERGE-TAIL-SETS MERGE)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TAIL-SETS

; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN FLUSH-NODE
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN CHANGE-BLOCK-SUCCESSOR
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN INSERT-CAST-BEFORE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN SUBSTITUTE-LVAR-USES
;     (SB!C::REOPTIMIZE-LVAR SB!C::NEW)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN DELETE-LVAR-USE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; 
; caught STYLE-WARNING:
;   5 more uses of undefined function REOPTIMIZE-LVAR
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL::ARG-COUNT-ERROR
;   Undefined functions:
;     COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR
;   caught 42 STYLE-WARNING conditions
; compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1util.fasl-tmp written
; compilation finished in 0:00:09.029
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1report.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *CURRENT-PATH*))
; compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))

; file: /«PKGBUILDDIR»/src/compiler/ir1report.lisp
; in: DEFSTRUCT COMPILER-ERROR-CONTEXT
;     (DEFSTRUCT
;         (SB!C::COMPILER-ERROR-CONTEXT
;          (:PRINT-OBJECT (LAMBDA (SB!C::X STREAM) (PRINT-UNREADABLE-OBJECT #)))
;          (:COPIER NIL))
;       (SB!C::ENCLOSING-SOURCE NIL :TYPE LIST)
;       (SB!C::SOURCE NIL :TYPE LIST)
;       (SB!C::ORIGINAL-SOURCE (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING)
;       (SB!C::CONTEXT NIL :TYPE LIST)
;       (SB!INT:FILE-NAME (SB!INT:MISSING-ARG) :TYPE
;        (OR PATHNAME (MEMBER :LISP :STREAM)))
;       (FILE-POSITION NIL :TYPE (OR SB!INT:INDEX NULL))
;       (SB!C::ORIGINAL-SOURCE-PATH NIL :TYPE LIST)
;       (SB!KERNEL:LEXENV NIL :TYPE (OR NULL SB!KERNEL:LEXENV)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::COMPILER-ERROR-CONTEXT {53A573B1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::COMPILER-ERROR-CONTEXT-LEXENV could not be
;   inlined because the structure definition for SB!C::COMPILER-ERROR-CONTEXT was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...)
; compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...)
; compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...)
; compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...)
; compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...)
; compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...)
; compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...)
; compiling (DEFUN SOURCE-FORM-CONTEXT ...)
; compiling (DEFUN FIND-ORIGINAL-SOURCE ...)
; compiling (DEFUN STRINGIFY-FORM ...)
; compiling (DEFUN FIND-ERROR-CONTEXT ...)
; compiling (DEFVAR *LAST-ERROR-CONTEXT* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LAST-FORMAT-STRING* ...)
; compiling (DEFVAR *LAST-FORMAT-ARGS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *LAST-MESSAGE-COUNT* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFUN NOTE-MESSAGE-REPEATS ...)
; compiling (DEFUN PRINT-COMPILER-MESSAGE ...)
; compiling (DEFUN %PRINT-COMPILER-MESSAGE ...)
; compiling (DEFUN PRINT-COMPILER-CONDITION ...)
; compiling (DEFINE-CONDITION COMPILER-NOTE ...)
; compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...)
; compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...)
; compiling (DEFUN COMPILER-NOTIFY ...)
; compiling (DEFUN MAYBE-COMPILER-NOTIFY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COMPILER-MUMBLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-COMPONENT-NAME ...)
; compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; compiling (DEFVAR *FAILURE-P*)
; compiling (DEFVAR *WARNINGS-P*)
; compiling (DEFUN COMPILER-ERROR-HANDLER ...)
; compiling (DEFUN COMPILER-WARNING-HANDLER ...)
; compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...)
; compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...)
; compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...)
; compiling (DEFUN WARN-IF-COMPILER-MACRO-DEPENDENCY-PROBLEM ...)
; compiling (DEFUN WARN-IF-INLINE-FAILED/PROCLAIM ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1report.lisp
; in: DEFUN MAYBE-COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (LET ((STREAM *ERROR-OUTPUT*))
;        (PPRINT-LOGICAL-BLOCK (STREAM NIL :PER-LINE-PREFIX ";")
;          (FORMAT STREAM " note: ~3I~_")
;          (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FORMAT STREAM "~A" CONDITION)))
;        (FRESH-LINE STREAM)))
; --> BLOCK LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS
;    'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (INCF SB!C::*COMPILER-NOTE-COUNT*)
;      (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* (FORMAT NIL "note: ~~A")
;       (LIST (PRINC-TO-STRING CONDITION))))
; --> BLOCK LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS
;    'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION
; 
; compilation unit finished
;   Undefined function:
;     COERCE-TO-CONDITION
;   caught 3 STYLE-WARNING conditions
; compiling (DEFUN WARN-IF-INLINE-FAILED/CALL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1report.fasl-tmp written
; compilation finished in 0:00:02.860
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN CONSTANT-LVAR-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LVAR-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE LVAR-DERIVED-TYPE)
;     (DECLAIM (INLINE SB!C::LVAR-DERIVED-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::LVAR-DERIVED-TYPE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-DERIVED-TYPE to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE))
; compiling (DEFUN LVAR-DERIVED-TYPE ...)
; compiling (DEFUN %LVAR-DERIVED-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LVAR-TYPE ...)
; compiling (DEFUN LVAR-CONSERVATIVE-TYPE ...)
; compiling (DEFUN NODE-CONSERVATIVE-TYPE ...)
; compiling (DEFUN CONSERVATIVE-TYPE ...)
; compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...)
; compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE))
; compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...)
; compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;     (DECLAIM (INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE to be INLINE, but 3
;   calls to it were previously compiled. A declaration of NOTINLINE at the call
;   sites will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE REOPTIMIZE-COMPONENT)
;     (DECLAIM (INLINE SB!C::REOPTIMIZE-COMPONENT))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::REOPTIMIZE-COMPONENT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::REOPTIMIZE-COMPONENT to be INLINE, but 4 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT))
; compiling (DEFUN REOPTIMIZE-COMPONENT ...)
; compiling (DEFUN REOPTIMIZE-LVAR ...)
; compiling (DEFUN REOPTIMIZE-LVAR-USES ...)
; compiling (DEFUN DERIVE-NODE-TYPE ...)
; compiling (DEFUN ASSERT-LVAR-TYPE ...)
; compiling (DEFUN IR1-OPTIMIZE ...)
; compiling (DEFUN IR1-OPTIMIZE-BLOCK ...)
; compiling (DEFUN JOIN-SUCCESSOR-IF-POSSIBLE ...)
; compiling (DEFUN JOIN-BLOCKS ...)
; compiling (DEFUN FLUSH-DEAD-CODE ...)
; compiling (DEFUN FIND-RESULT-TYPE ...)
; compiling (DEFUN IR1-OPTIMIZE-RETURN ...)
; compiling (DEFUN CBLOCKS-EQUIVALENT-P ...)
; compiling (DEFUN IR1-OPTIMIZE-IF ...)
; compiling (DEFUN KILL-IF-BRANCH-1 ...)
; compiling (DEFUN TENSION-IF-IF-1 ...)
; compiling (DEFUN DUPLICATE-IF-IF-1 ...)
; compiling (DEFUN CONVERT-IF-IF ...)
; compiling (DEFUN MAYBE-DELETE-EXIT ...)
; compiling (DEFUN CHECK-IMPORTANT-RESULT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...)
; compiling (DEFUN XEP-TAIL-COMBINATION-P ...)
; compiling (DEFUN MAYBE-TERMINATE-BLOCK ...)
; compiling (DEFUN RECOGNIZE-KNOWN-CALL ...)
; compiling (DEFUN VALIDATE-CALL-TYPE ...)
; compiling (DEFUN PROPAGATE-FUN-CHANGE ...)
; compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...)
; compiling (DEFUN IR1-TRANSFORM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...)
; compiling (DEFUN ABORT-IR1-TRANSFORM ...)
; compiling (DEFUN DELAY-IR1-TRANSFORM ...)
; compiling (DEFMACRO CATCH-GIVE-UP-IR1-TRANSFORM ...)
; compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...)
; compiling (DEFUN TRANSFORM-CALL ...)
; compiling (DEFUN CONSTANT-FOLD-CALL ...)
; compiling (DEFUN PROPAGATE-TO-REFS ...)
; compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...)
; compiling (DEFTRANSFORM + ...)
; compiling (DEFUN PROPAGATE-FROM-SETS ...)
; compiling (DEFUN IR1-OPTIMIZE-SET ...)
; compiling (DEFUN CONSTANT-REFERENCE-P ...)
; compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...)
; compiling (DEFUN DELETE-LET ...)
; compiling (DEFUN PROPAGATE-LET-ARGS ...)
; compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...)
; compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...)
; compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...)
; compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...)
; compiling (DEFUN CONVERT-MV-BIND-TO-LET ...)
; compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...)
; compiling (DEFTRANSFORM VALUES ...)
; compiling (DEFUN DELETE-CAST ...)
; compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...)
; compiling (DEFUN COMPILE-TIME-TYPE-ERROR-CONTEXT ...)
; compiling (DEFUN IR1-OPTIMIZE-CAST ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION
;     (SB!C::CONVERT-CALL-IF-POSSIBLE SB!C::USE SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: CONVERT-CALL-IF-POSSIBLE

; in: DEFUN PROPAGATE-FUN-CHANGE
;     (SB!C::CONVERT-CALL-IF-POSSIBLE
;      (SB!C::LVAR-USES (SB!C::BASIC-COMBINATION-FUN SB!C:CALL)) SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: CONVERT-CALL-IF-POSSIBLE

; in: DEFUN IR1-OPTIMIZE-MV-CALL
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN TRANSFORM-CALL
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN RECOGNIZE-KNOWN-CALL
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN FIND-RESULT-TYPE
;     (SB!C::MAYBE-CONVERT-TAIL-LOCAL-CALL SB!C::USE)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TAIL-LOCAL-CALL

; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION
;     (SB!C::MAYBE-LET-CONVERT (SB!C::COMBINATION-LAMBDA SB!C::NODE))
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN PROPAGATE-FUN-CHANGE
;     (SB!C::MAYBE-LET-CONVERT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN IR1-OPTIMIZE-CAST
;     (SB!C::MERGE-TAIL-SETS SB!C::USE)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TAIL-SETS

; in: DEFUN CONVERT-MV-BIND-TO-LET
;     (SB!C::PROPAGATE-TO-ARGS SB!C::USE SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: PROPAGATE-TO-ARGS

;     (SB!C::REOPTIMIZE-CALL SB!C::USE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-CALL
; 
; compilation unit finished
;   Undefined functions:
;     CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL
;   caught 14 STYLE-WARNING conditions
; compiling (DEFTRANSFORM MAKE-SYMBOL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1opt.fasl-tmp written
; compilation finished in 0:00:05.833
; compiling file "/«PKGBUILDDIR»/src/compiler/loop.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-DOMINATORS ...)
; compiling (DEFUN DOMINATES-P ...)
; compiling (DEFUN LOOP-ANALYZE ...)
; compiling (DEFUN FIND-LOOP-BLOCKS ...)
; compiling (DEFUN FIND-BLOCKS-FROM-HERE ...)
; compiling (DEFUN NOTE-LOOP-HEAD ...)
; compiling (DEFUN FIND-SUPERIOR ...)
; compiling (DEFUN FIND-STRANGE-LOOP-BLOCKS ...)
; compiling (DEFUN FIND-STRANGE-LOOP-SEGMENTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/loop.fasl-tmp written
; compilation finished in 0:00:01.740
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1final.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NOTE-FAILED-OPTIMIZATION ...)
; compiling (DEFUN FINALIZE-XEP-DEFINITION ...)
; compiling (DEFUN NOTE-ASSUMED-TYPES ...)
; compiling (DEFUN IR1-MERGE-CASTS ...)
; compiling (DEFUN IR1-FINALIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1final.fasl-tmp written
; compilation finished in 0:00:00.494
; compiling file "/«PKGBUILDDIR»/src/compiler/array-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...)
; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...)
; compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...)
; compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...)
; compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...)
; compiling (DEFUN UNSUPPLIED-OR-NIL ...)
; compiling (DEFUN SUPPLIED-AND-TRUE ...)
; compiling (DEFUN ASSERT-ARRAY-RANK ...)
; compiling (DEFUN DERIVE-AREF-TYPE ...)
; compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...)
; compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-REF)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-SET)
; compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...)
; compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...)
; compiling (DEFTRANSFORM MAKE-STRING ...)
; compiling (DEFUN REWRITE-INITIAL-CONTENTS ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY
;     (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS)))
; ==>
;   SB!C::DIMENSIONS
; 
; note: deleting unreachable code
; compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...)
; compiling (DEFINE-SOURCE-TRANSFORM COERCE ...)
; compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...)
; compiling (DEFTRANSFORM MAKE-ARRAY ...)
; compiling (DEFTRANSFORM MAKE-ARRAY ...)
; compiling (DEFTRANSFORM MAKE-ARRAY ...)
; compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...)
; compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...)
; compiling (DEFTRANSFORM ARRAY-RANK ...)
; compiling (DEFUN DERIVE-ARRAY-RANK ...)
; compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM ARRAY-DIMENSION ...)
; compiling (DEFTRANSFORM LENGTH ...)
; compiling (DEFTRANSFORM LENGTH ...)
; compiling (DEFTRANSFORM VECTOR-LENGTH ...)
; compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...)
; compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...)
; compiling (DEFTRANSFORM %CHECK-BOUND ...)
; compiling (SB-XC:DEFMACRO WITH-ARRAY-DATA ...)
; compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...)
; compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUMBLE ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...)
; compiling (DEFINE-BIT-FROB SBIT ...)
; compiling (DEFINE-BIT-FROB BIT ...)
; compiling (DEFINE-FROB SCHAR ...)
; compiling (DEFINE-FROB CHAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM SVREF ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...)
; compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...)
; compiling (DEFTRANSFORM AREF ...)
; compiling (DEFTRANSFORM (SETF AREF) ...)
; compiling (DEFTRANSFORM AREF ...)
; compiling (DEFTRANSFORM (SETF AREF) ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFTRANSFORM ROW-MAJOR-AREF ...)
; compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...)
; compiling (DEF BIT-AND)
; compiling (DEF BIT-IOR)
; compiling (DEF BIT-XOR)
; compiling (DEF BIT-EQV)
; compiling (DEF BIT-NAND)
; compiling (DEF BIT-NOR)
; compiling (DEF BIT-ANDC1)
; compiling (DEF BIT-ANDC2)
; compiling (DEF BIT-ORC1)
; compiling (DEF BIT-ORC2)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-NOT ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P
;     (SB!C::INTEGER-TYPE-P SB!C::TYPE2)
; 
; caught STYLE-WARNING:
;   undefined function: INTEGER-TYPE-P

; in: DEFUN REWRITE-INITIAL-CONTENTS
;     (SB-XC:MACROEXPAND SB!C::DATA SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MACROEXPAND

; in: DEFINE-SOURCE-TRANSFORM COERCE
;     (SB!INT:QUASIQUOTE
;      (MAKE-ARRAY #S(SB!IMPL::COMMA :EXPR LENGTH :KIND 0) :ELEMENT-TYPE
;                  '#S(SB!IMPL::COMMA
;                      :EXPR (IF SB!C::STRING-P
;                                'CHARACTER
;                                (NTH-VALUE 1 #))
;                      :KIND 0)
;                  :INITIAL-CONTENTS #S(SB!IMPL::COMMA :EXPR SB!C::X :KIND 0)))
; --> SB!IMPL::|List| SB!IMPL::|List| IF NTH-VALUE MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB!C::SIMPLIFY-VECTOR-TYPE SB!KERNEL:CTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SIMPLIFY-VECTOR-TYPE

; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P
;     (SB!C::WEAKEN-INTEGER-TYPE SB!C::TYPE1 :RANGE-ONLY T)
; 
; caught STYLE-WARNING:
;   undefined function: WEAKEN-INTEGER-TYPE
; 
; compilation unit finished
;   Undefined functions:
;     INTEGER-TYPE-P SB-XC:MACROEXPAND SIMPLIFY-VECTOR-TYPE WEAKEN-INTEGER-TYPE
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/array-tran.fasl-tmp written
; compilation finished in 0:00:04.685
; compiling file "/«PKGBUILDDIR»/src/compiler/seqtran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MAPFOO-TRANSFORM ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPC ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...)
; compiling (DEFTRANSFORM MAP ...)
; compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...)
; compiling (DEFTRANSFORM %MAP ...)
; compiling (DEFTRANSFORM MAP-INTO ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...)
; compiling (DEFUN EQ-COMPARABLE-TYPE-P ...)
; compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...)
; compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...)
; compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...)
; compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...)
; compiling (DEF ADJOIN)
; compiling (DEF ASSOC ...)
; compiling (DEF MEMBER ...)
; compiling (DEF RASSOC ...)
; compiling (DEFTRANSFORM MEMQ ...)
; compiling (DEFTRANSFORM DELETE ...)
; compiling (DEFTRANSFORM DELETE-IF ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEF STRING< ...)
; compiling (DEF STRING> ...)
; compiling (DEF STRING<= ...)
; compiling (DEF STRING>= ...)
; compiling (DEF STRING= ...)
; compiling (DEF STRING/= ...)
; compiling (DEF STRING<* ...)
; compiling (DEF STRING<=* ...)
; compiling (DEF STRING>* ...)
; compiling (DEF STRING>=* ...)
; compiling (DEFTRANSFORM STRING=* ...)
; compiling (DEFTRANSFORM STRING/=* ...)
; compiling (DEF STRING=* ...)
; compiling (DEF STRING/=* ...)
; compiling (DEFTRANSFORM STRING/=* ...)
; compiling (DEFTRANSFORM STRING ...)
; compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...)
; compiling (DEFUN MAKE-REPLACE-TRANSFORM ...)
; compiling (DEFINE-REPLACE-TRANSFORMS)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...)
; compiling (DEFUN FROB-BASH-TRANSFORM ...)
; compiling (DEFTRANSFORM UB1-BASH-COPY ...)
; compiling (DEFTRANSFORM UB2-BASH-COPY ...)
; compiling (DEFTRANSFORM UB4-BASH-COPY ...)
; compiling (DEFTRANSFORM UB8-BASH-COPY ...)
; compiling (DEFTRANSFORM UB16-BASH-COPY ...)
; compiling (DEFTRANSFORM UB32-BASH-COPY ...)
; compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...)
; compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...)
; compiling (DEFUN EXPAND-AREF-COPY-LOOP ...)
; compiling (DEFTRANSFORM MAKE-SEQUENCE ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM SEARCH ...)
; compiling (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...)
; compiling (DEFTRANSFORM CONCATENATE ...)
; compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...)
; compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...)
; compiling (DEFUN %FIND/POSITION-IF-LIST-EXPANSION ...)
; compiling (DEF %FIND-POSITION-IF ...)
; compiling (DEF %FIND-POSITION-IF-NOT ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...)
; compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...)
; compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...)
; compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...)
; compiling (DEFTRANSFORM %FIND-POSITION-IF ...)
; compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...)
; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...)
; compiling (DEFINE-FIND-POSITION FIND ...)
; compiling (DEFINE-FIND-POSITION POSITION ...)
; compiling (DEFINE-FIND-POSITION-IF FIND-IF ...)
; compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...)
; compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...)
; compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...)
; compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...)
; compiling (DEFTRANSFORM SB!IMPL::|List| ...)
; compiling (DEFTRANSFORM SB!IMPL::|List*| ...)

; file: /«PKGBUILDDIR»/src/compiler/seqtran.lisp
; in: DEFUN MAPFOO-TRANSFORM
;     (SB!INT:FUNARG-BIND/CALL-FORMS SB!C::FN (SB!C::ARGS-TO-FN))
; 
; caught STYLE-WARNING:
;   undefined function: FUNARG-BIND/CALL-FORMS

; in: DEFTRANSFORM FILL
;     (SB!C::INTEGER-TYPE-P SB!C::ELEMENT-CTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: INTEGER-TYPE-P
; 
; compilation unit finished
;   Undefined functions:
;     FUNARG-BIND/CALL-FORMS INTEGER-TYPE-P
;   caught 2 STYLE-WARNING conditions
; compiling (DEFTRANSFORM SB!IMPL::|Append| ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/seqtran.fasl-tmp written
; compilation finished in 0:00:06.946
; compiling file "/«PKGBUILDDIR»/src/compiler/typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...)
; compiling (DEFUN %DEFINE-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM TYPEP ...)
; compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM %TYPEP ...)
; compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM FIND-CLASSOID ...)
; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...)
; compiling (DEFTRANSFORM %TYPEP-WRAPPER ...)
; compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...)
; compiling (!DEFINE-STANDARD-TYPE-PREDICATES)
; compiling (DEFINE-SOURCE-TRANSFORM ATOM ...)
; compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...)
; compiling (DEFTRANSFORM CONSP ...)
; compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...)
; compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...)
; compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...)
; compiling (DEFUN TEST-ARRAY-DIMENSIONS ...)
; compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...)
; compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...)
; compiling (DEFTRANSFORM %INSTANCE-TYPEP ...)
; compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...)
; compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...)
; compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...)
; compiling (DEFTRANSFORM COERCE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/typetran.fasl-tmp written
; compilation finished in 0:00:01.508
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...)
; compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...)
; compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE RATIOP ...)
; compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-BASE-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-CHARACTER-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE SYSTEM-AREA-POINTER-P ...)
; compiling (DEFINE-TYPE-PREDICATE UNSIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...)
; compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...)
; compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...)
; compiling (DEFINE-TYPE-PREDICATE LRA-P ...)
; compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...)
; compiling (DEF)
; compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-typetran.fasl-tmp written
; compilation finished in 0:00:00.082
; compiling file "/«PKGBUILDDIR»/src/compiler/float-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %SINGLE-FLOAT ...)
; compiling (DEFKNOWN %DOUBLE-FLOAT ...)
; compiling (DEFTRANSFORM FLOAT ...)
; compiling (DEFTRANSFORM FLOAT ...)
; compiling (DEFTRANSFORM FLOAT ...)
; compiling (DEFTRANSFORM %SINGLE-FLOAT ...)
; compiling (DEFTRANSFORM %DOUBLE-FLOAT ...)
; compiling (FROB %RANDOM-SINGLE-FLOAT ...)
; compiling (FROB %RANDOM-DOUBLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2
;     (<= SB!C::N-BITS (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS))
; ==>
;   SB!C::N-BITS
; 
; note: deleting unreachable code

;     (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS)
; ==>
;   SB!KERNEL:N-RANDOM-CHUNK-BITS
; 
; note: deleting unreachable code

;     (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS")
; ==>
;   "Unexpectedly small N-RANDOM-CHUNK-BITS"
; 
; note: deleting unreachable code
; compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...)
; compiling (DEFTRANSFORM RANDOM ...)
; compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...)
; compiling (DEFKNOWN SINGLE-FLOAT-BITS ...)
; compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...)
; compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...)
; compiling (DEFTRANSFORM FLOAT-SIGN ...)
; compiling (DEFTRANSFORM FLOAT-SIGN ...)
; compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...)
; compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...)
; compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...)
; compiling (DEFTRANSFORM DECODE-FLOAT ...)
; compiling (DEFTRANSFORM DECODE-FLOAT ...)
; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)
; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX)
;              'SINGLE-FLOAT)
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SCALE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX)
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SCALE-FLOAT ...)
; compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...)
; compiling (DOLIST (X #) ...)
; compiling (DOLIST (X #) ...)
; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...)
; compiling (DEF SINGLE-FLOAT)
; compiling (DEF DOUBLE-FLOAT)
; compiling (DEF + ...)
; compiling (DEF - ...)
; compiling (DEF + ...)
; compiling (DEF - ...)
; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; compiling (FROB <)
; compiling (FROB >)
; compiling (FROB =)
; compiling (DOLIST (STUFF #) ...)
; compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...)
; compiling (DEFKNOWN (%TAN %SINH ...) ...)
; compiling (DEFKNOWN (%SIN %COS ...) ...)
; compiling (DEFKNOWN (%ASIN %ATAN) ...)
; compiling (DEFKNOWN (%ACOS) ...)
; compiling (DEFKNOWN (%COSH) ...)
; compiling (DEFKNOWN (%ACOSH %EXP ...) ...)
; compiling (DEFKNOWN %EXPM1 ...)
; compiling (DEFKNOWN (%HYPOT) ...)
; compiling (DEFKNOWN (%POW) ...)
; compiling (DEFKNOWN (%ATAN2) ...)
; compiling (DEFKNOWN (%SCALB) ...)
; compiling (DEFKNOWN (%SCALBN) ...)
; compiling (DEFKNOWN (%LOG1P) ...)
; compiling (DEF EXP ...)
; compiling (DEF LOG ...)
; compiling (DEF SQRT ...)
; compiling (DEF ASIN ...)
; compiling (DEF ACOS ...)
; compiling (DEF ATAN ...)
; compiling (DEF SINH ...)
; compiling (DEF COSH ...)
; compiling (DEF TANH ...)
; compiling (DEF ASINH ...)
; compiling (DEF ACOSH ...)
; compiling (DEF ATANH ...)
; compiling (DEF SIN ...)
; compiling (DEF COS ...)
; compiling (DEF TAN ...)
; compiling (DEFTRANSFORM ATAN ...)
; compiling (DEFTRANSFORM ATAN ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM LOG ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFUN NUMERIC-TYPE-REAL-P ...)
; compiling (DEFUN COERCE-NUMERIC-BOUND ...)
; compiling (DEFTRANSFORM REALPART ...)
; compiling (DEFTRANSFORM IMAGPART ...)
; compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...)
; compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...)
; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...)
; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...)
; compiling (FROB SINGLE-FLOAT)
; compiling (FROB DOUBLE-FLOAT)
; compiling (DEFINE-FROBS TRUNCATE ...)
; compiling (DEFINE-FROBS ROUND ...)
; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/SINGLE
;     (- EXP SB!VM:SINGLE-FLOAT-BIAS)
; 
; 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).

;     (= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX)
; 
; 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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT)

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (- EXP SB!VM:SINGLE-FLOAT-BIAS)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       etc.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       can't tell whether the second argument is 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:
;       can't tell whether the second argument is a (SIGNED-BYTE 32)
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (ASH 1 SB!C::FRAC-BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) 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
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (- (ASH 1 SB!C::FRAC-BITS) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!C::BITS (- (ASH 1 SB!C::FRAC-BITS) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -1), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (* SB!C::X 0.0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic
; compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
;     (- EXP SB!VM:DOUBLE-FLOAT-BIAS)
; 
; 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).

;     (= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX)
; 
; 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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT)

;     (< SB!C::FRAC-BITS 32)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (- EXP SB!VM:DOUBLE-FLOAT-BIAS)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       etc.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       can't tell whether the second argument is 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:
;       can't tell whether the second argument is a (SIGNED-BYTE 32)
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (< SB!C::FRAC-BITS 32)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (- SB!C::FRAC-BITS 32)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, 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 REAL, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (ASH 1 (- SB!C::FRAC-BITS 32))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) 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
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!C::HIGH (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -1), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (ASH 1 SB!C::FRAC-BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) 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
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (- (ASH 1 SB!C::FRAC-BITS) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The second argument is a (INTEGER -1), not a (UNSIGNED-BYTE 32).
;       etc.

;     (* SB!C::X 0.0d0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic
; compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...)
; compiling (DEF SINGLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
;     (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT (- EXP SB!VM:DOUBLE-FLOAT-BIAS))
; 
; caught STYLE-WARNING:
;   undefined type: DOUBLE-FLOAT-EXPONENT

; in: DEFOPTIMIZER (IMAGPART DERIVE-TYPE)
;     (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::IMAGPART-DERIVE-TYPE-AUX
;      #'IMAGPART)
; 
; caught STYLE-WARNING:
;   undefined function: ONE-ARG-DERIVE-TYPE

; in: DEFOPTIMIZER (REALPART DERIVE-TYPE)
;     (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::REALPART-DERIVE-TYPE-AUX
;      #'REALPART)
; 
; caught STYLE-WARNING:
;   undefined function: ONE-ARG-DERIVE-TYPE

; in: DEFUN %UNARY-FTRUNCATE/SINGLE
;     (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT (- EXP SB!VM:SINGLE-FLOAT-BIAS))
; 
; caught STYLE-WARNING:
;   undefined type: SINGLE-FLOAT-EXPONENT
; 
; compilation unit finished
;   Undefined types:
;     DOUBLE-FLOAT-EXPONENT SINGLE-FLOAT-EXPONENT
;   Undefined function:
;     ONE-ARG-DERIVE-TYPE
;   caught 4 STYLE-WARNING conditions
;   printed 65 notes
; compiling (DEF DOUBLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/float-tran.fasl-tmp written
; compilation finished in 0:00:05.388
; compiling file "/«PKGBUILDDIR»/src/compiler/saptran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...)

; file: /«PKGBUILDDIR»/src/compiler/saptran.lisp
; in: DEFTRANSFORM FOREIGN-SYMBOL-SAP
;     (SB!SYS:FIND-FOREIGN-SYMBOL-IN-TABLE SB!C::NAME
;                                          SB!SYS:*STATIC-FOREIGN-SYMBOLS*)
; ==>
;   SB!C::NAME
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...)
; compiling (DEFKNOWN (SAP< SAP<= ...) ...)
; compiling (DEFKNOWN SAP+ ...)
; compiling (DEFKNOWN SAP- ...)
; compiling (DEFKNOWN SAP-INT ...)
; compiling (DEFKNOWN INT-SAP ...)
; compiling (DEFSAPREF SAP-REF-8 ...)
; compiling (DEFSAPREF SAP-REF-16 ...)
; compiling (DEFSAPREF SAP-REF-32 ...)
; compiling (DEFSAPREF SAP-REF-64 ...)
; compiling (DEFSAPREF SAP-REF-WORD ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-8 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-16 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-32 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-64 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...)
; compiling (DEFSAPREF SAP-REF-SAP ...)
; compiling (DEFSAPREF SAP-REF-LISPOBJ ...)
; compiling (DEFSAPREF SAP-REF-SINGLE ...)
; compiling (DEFSAPREF SAP-REF-DOUBLE ...)
; compiling (DEFSAPREF SAP-REF-LONG ...)
; compiling (DEF SAP< ...)
; compiling (DEF SAP<= ...)
; compiling (DEF SAP= ...)
; compiling (DEF SAP>= ...)
; compiling (DEF SAP> ...)
; compiling (DEFTRANSFORM SAP+ ...)
; compiling (DEF SAP-REF-8)
; compiling (DEF %SET-SAP-REF-8 ...)
; compiling (DEF SIGNED-SAP-REF-8)
; compiling (DEF %SET-SIGNED-SAP-REF-8 ...)
; compiling (DEF SAP-REF-16)
; compiling (DEF %SET-SAP-REF-16 ...)
; compiling (DEF SIGNED-SAP-REF-16)
; compiling (DEF %SET-SIGNED-SAP-REF-16 ...)
; compiling (DEF SAP-REF-32)
; compiling (DEF %SET-SAP-REF-32 ...)
; compiling (DEF SIGNED-SAP-REF-32)
; compiling (DEF %SET-SIGNED-SAP-REF-32 ...)
; compiling (DEF SAP-REF-64)
; compiling (DEF %SET-SAP-REF-64 ...)
; compiling (DEF SIGNED-SAP-REF-64)
; compiling (DEF %SET-SIGNED-SAP-REF-64 ...)
; compiling (DEF SAP-REF-SAP)
; compiling (DEF %SET-SAP-REF-SAP ...)
; compiling (DEF SAP-REF-LISPOBJ)
; compiling (DEF %SET-SAP-REF-LISPOBJ ...)
; compiling (DEF SAP-REF-SINGLE)
; compiling (DEF %SET-SAP-REF-SINGLE ...)
; compiling (DEF SAP-REF-DOUBLE)
; compiling (DEF %SET-SAP-REF-DOUBLE ...)
; compiling (DEF SAP-REF-WORD ...)
; compiling (DEF SIGNED-SAP-REF-WORD ...)
; compiling (DEF %SET-SAP-REF-WORD ...)
; compiling (DEF %SET-SIGNED-SAP-REF-WORD ...)
; compiling (DEFTRANSFORM SAP-REF-64 ...)
; compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...)
; compiling (DEFTRANSFORM %SET-SAP-REF-64 ...)
; 
; compilation unit finished
;   printed 1 note
; compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/saptran.fasl-tmp written
; compilation finished in 0:00:01.253
; compiling file "/«PKGBUILDDIR»/src/compiler/srctran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...)
; compiling (DEFINE-SOURCE-TRANSFORM VALUES ...)
; compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM COMPLEMENT ...)
; compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...)
; compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...)
; compiling (DEFUN SOURCE-TRANSFORM-CXR ...)
; compiling (/SHOW0 "about to set CxR source transforms")
; compiling (LOOP FOR ...)
; compiling (/SHOW0 "done setting CxR source transforms")
; compiling (DEFINE-SOURCE-TRANSFORM REST ...)
; compiling (DEFINE-SOURCE-TRANSFORM FIRST ...)
; compiling (DEFINE-SOURCE-TRANSFORM SECOND ...)
; compiling (DEFINE-SOURCE-TRANSFORM THIRD ...)
; compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM NINTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM TENTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM LIST ...)
; compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LIST* ...)
; compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM NCONC ...)
; compiling (DEFUN DERIVE-APPEND-TYPE ...)
; compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...)
; compiling (DEFTRANSFORM LAST ...)
; compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...)
; compiling (DEFINE-SOURCE-TRANSFORM GET ...)
; compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFTRANSFORM NTHCDR ...)
; compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1+ ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1- ...)
; compiling (DEFINE-SOURCE-TRANSFORM ODDP ...)
; compiling (DEFINE-SOURCE-TRANSFORM EVENP ...)
; compiling (DEFFROB TRUNCATE)
; compiling (DEFFROB ROUND)
; compiling (DEFTRANSFORM LOGTEST ...)
; compiling (DEFTRANSFORM LOGBITP ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...)
; compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...)
; compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...)
; compiling (DEF SIGNED-ZERO->= ...)
; compiling (DEF SIGNED-ZERO-> ...)
; compiling (DEF SIGNED-ZERO-= ...)
; compiling (DEF SIGNED-ZERO-< ...)
; compiling (DEF SIGNED-ZERO-<= ...)
; compiling (DEFSTRUCT (INTERVAL # ...) ...)
; compiling (DEFUN MAKE-INTERVAL ...)
; compiling (DECLAIM (INLINE SET-BOUND))
; compiling (DEFUN SET-BOUND ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN BOUND-FUNC ...)
; compiling (DEFUN SAFE-DOUBLE-COERCION-P ...)
; compiling (DEFUN SAFE-SINGLE-COERCION-P ...)
; compiling (DEFMACRO SAFELY-BINOP ...)
; compiling (DEFMACRO BOUND-BINOP ...)
; compiling (DEFUN COERCION-LOSES-PRECISION-P ...)
; compiling (DEFUN COERCE-FOR-BOUND ...)
; compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...)
; compiling (DEFUN NUMERIC-TYPE->INTERVAL ...)
; compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...)
; compiling (DEFUN COPY-INTERVAL-LIMIT ...)
; compiling (DEFUN COPY-INTERVAL ...)
; compiling (DEFUN INTERVAL-SPLIT ...)
; compiling (DEFUN INTERVAL-CLOSURE ...)
; compiling (DEFUN INTERVAL-RANGE-INFO ...)
; compiling (DEFUN INTERVAL-BOUNDED-P ...)
; compiling (DEFUN INTERVAL-CONTAINS-P ...)
; compiling (DEFUN INTERVAL-INTERSECT-P ...)
; compiling (DEFUN INTERVAL-ADJACENT-P ...)
; compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...)
; compiling (DEFUN INTERVAL-MERGE-PAIR ...)
; compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...)
; compiling (DEFUN INTERVAL-NEG ...)
(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-ADD ...)
(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-SUB ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-MUL ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-DIV ...)
; compiling (DEFUN INTERVAL-FUNC ...)
; compiling (DEFUN INTERVAL-< ...)
; compiling (DEFUN INTERVAL->= ...)
; compiling (DEFUN INTERVAL-= ...)
; compiling (DEFUN INTERVAL-/= ...)
; compiling (DEFUN INTERVAL-ABS ...)
; compiling (DEFUN INTERVAL-SQR ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE ...)
; compiling (DEFUN FLATTEN-LIST ...)
; compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...)
; compiling (DEFUN CONVERT-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...)
; compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...)
; compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...)
; compiling (DEFUN CONVERT-MEMBER-TYPE ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN ONE-ARG-DERIVE-TYPE ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN TWO-ARG-DERIVE-TYPE ...)
; compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...)
; compiling (DEFUN ASH-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...)
; compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...)
; compiling (DEFUN NUMERIC-RANGE-INFO ...)
; compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...)
; compiling (DEFUN INTEGER-REM-DERIVE-TYPE ...)
; compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGCOUNT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...)
; compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LDB ...)
; compiling (DEFINE-SOURCE-TRANSFORM DPB ...)
; compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...)
; compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...)
; compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...)
; compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %LDB ...)
; compiling (DEFTRANSFORM %MASK-FIELD ...)
; compiling (DEFTRANSFORM %DPB ...)
; compiling (DEFTRANSFORM %DPB ...)
; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...)
; compiling (DEFUN %ASH/RIGHT ...)
; compiling (DEFTRANSFORM ASH ...)
; compiling (DEFTRANSFORM ASH ...)
; compiling (DEFTRANSFORM %ASH/RIGHT ...)
; compiling (DEFTRANSFORM %ASH/RIGHT ...)
; compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...)
; compiling (DEFUN CUT-TO-WIDTH ...)
; compiling (DEFUN BEST-MODULAR-VERSION ...)
; compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...)
; compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...)
; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...)
; compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...)
; compiling (DEFTRANSFORM BOOLE ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM FLOOR ...)
; compiling (DEFTRANSFORM CEILING ...)
; compiling (DEFTRANSFORM REM ...)
; compiling (DEFTRANSFORM MOD ...)
; compiling (FLET (#) ...)
; compiling (DEFTRANSFORM MOD ...)
; compiling (DEFTRANSFORM TRUNCATE ...)
; compiling (DEFTRANSFORM REM ...)
; compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...)
; compiling (DEFTRANSFORM TRUNCATE ...)
; compiling (DEF ASH ...)
; compiling (DEF LOGAND ...)
; compiling (DEF LOGAND ...)
; compiling (DEF LOGIOR ...)
; compiling (DEF LOGIOR ...)
; compiling (DEF LOGXOR ...)
; compiling (DEF LOGXOR ...)
; compiling (DEFUN LEAST-ZERO-BIT ...)
; compiling (DEFTRANSFORM LOGAND ...)
; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; compiling (DEFTRANSFORM LOGIOR ...)
; compiling (DEF LOGAND)
; compiling (DEF LOGIOR)
; compiling (DEF LOGXOR)
; compiling (DEF LOGTEST ...)
; compiling (DEF + ...)
; compiling (DEF + ...)
; compiling (DEF * ...)
; compiling (DEF * ...)
; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; compiling (DEFTRANSFORM - ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM %NEGATE ...)
; compiling (DEFTRANSFORM %NEGATE ...)
; compiling (DEFUN NOT-MORE-CONTAGIOUS ...)
; compiling (DEF!TYPE EXACT-NUMBER ...)
; compiling (DEFTRANSFORM + ...)
; compiling (DEFTRANSFORM - ...)
; compiling (DEF * ...)
; compiling (DEF / ...)
; compiling (DEF EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEF ASH)
; compiling (DEF /)
; compiling (DEF TRUNCATE)
; compiling (DEF ROUND)
; compiling (DEF FLOOR)
; compiling (DEF CEILING)
; compiling (DEF TRUNCATE)
; compiling (DEF ROUND)
; compiling (DEF FLOOR)
; compiling (DEF CEILING)
; compiling (DEF FTRUNCATE ...)
; compiling (DEF FROUND ...)
; compiling (DEF FFLOOR ...)
; compiling (DEF FCEILING ...)
; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; compiling (DEFTRANSFORM CHAR-UPCASE ...)
; compiling (DEFTRANSFORM CHAR-DOWNCASE ...)
; compiling (DEFUN SAME-LEAF-REF-P ...)
; compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...)
; compiling (DEF EQ)
; compiling (DEF CHAR=)
; compiling (DEF TWO-ARG-CHAR-EQUAL)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQUAL ...)
; compiling (DEFTRANSFORM EQUALP ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DEFUN MAYBE-FLOAT-LVAR-P ...)
; compiling (FLET (#) ...)
; compiling (DEF = ...)
; compiling (DEF /= ...)
; compiling (DEF < ...)
; compiling (DEF > ...)
; compiling (DEF <= ...)
; compiling (DEF >= ...)
; compiling (DEFUN IR1-TRANSFORM-CHAR< ...)
; compiling (DEFTRANSFORM CHAR< ...)
; compiling (DEFTRANSFORM CHAR> ...)
; compiling (DEFUN MULTI-COMPARE ...)
; compiling (DEFINE-SOURCE-TRANSFORM = ...)
; compiling (DEFINE-SOURCE-TRANSFORM < ...)
; compiling (DEFINE-SOURCE-TRANSFORM > ...)
; compiling (DEFINE-SOURCE-TRANSFORM <= ...)
; compiling (DEFINE-SOURCE-TRANSFORM >= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MULTI-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM /= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAX ...)
; compiling (DEFINE-SOURCE-TRANSFORM MIN ...)
; compiling (DEF < ...)
; compiling (DEF > ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ASSOCIATE-ARGS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN REDUCE-CONSTANTS ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-TRANSITIVE
;     (DEFUN SB!C::SOURCE-TRANSFORM-TRANSITIVE
;            (SB!C::FUN SB!C::ARGS IDENTITY
;             &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)
;             (SB!C::ONE-ARG-PREFIXES '(VALUES)))
;       (CASE (LENGTH SB!C::ARGS)
;         (0 IDENTITY)
;         (1 (SB!INT:QUASIQUOTE (# #)))
;         (2 (VALUES NIL T))
;         (T
;          (LET (#)
;            (SB!C::ASSOCIATE-ARGS SB!C::FUN # # IDENTITY)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-TRANSITIVE
;         (SB!C::FUN SB!C::ARGS IDENTITY &OPTIONAL
;          (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER) (SB!C::ONE-ARG-PREFIXES '(VALUES)))
;       (BLOCK SB!C::SOURCE-TRANSFORM-TRANSITIVE
;         (CASE (LENGTH SB!C::ARGS)
;           (0 IDENTITY)
;           (1 (SB!INT:QUASIQUOTE #))
;           (2 (VALUES NIL T))
;           (T
;            (LET #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES T &OPTIONAL (MEMBER T NIL)).
; compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...)
; compiling (DEFINE-SOURCE-TRANSFORM + ...)
; compiling (DEFINE-SOURCE-TRANSFORM * ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; compiling (DEFINE-SOURCE-TRANSFORM GCD ...)
; compiling (DEFINE-SOURCE-TRANSFORM LCM ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE
;     (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;            (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;             &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (CASE (LENGTH SB!C::ARGS)
;         ((0 2) (VALUES NIL T))
;         (1 (SB!INT:QUASIQUOTE (# #)))
;         (T
;          (LET (#)
;            (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;          &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (CASE (LENGTH SB!C::ARGS)
;           ((0 2) (VALUES NIL T))
;           (1 (SB!INT:QUASIQUOTE #))
;           (T
;            (LET #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LIST &OPTIONAL (MEMBER T NIL)).
; compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...)
; compiling (DEFINE-SOURCE-TRANSFORM - ...)
; compiling (DEFINE-SOURCE-TRANSFORM / ...)
; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...)
; compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...)
; compiling (DEFUN MARK-MORE-CONTEXT-USED ...)
; compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...)
; compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...)
; compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...)
; compiling (DEFINE-SOURCE-TRANSFORM NTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM FAST-&REST-NTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM ELT ...)
; compiling (DEFUN SOURCE-TRANSFORM-CAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CADR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CADDR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...)
; compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...)
; compiling (DEFUN SOURCE-TRANSFORM-NULL ...)
; compiling (DEFINE-SOURCE-TRANSFORM NOT ...)
; compiling (DEFINE-SOURCE-TRANSFORM NULL ...)
; compiling (DEFINE-SOURCE-TRANSFORM ENDP ...)
; compiling (DEFTRANSFORM %REST-VALUES ...)
; compiling (DEFTRANSFORM %REST-REF ...)
; compiling (DEFTRANSFORM %REST-LENGTH ...)
; compiling (DEFTRANSFORM %REST-NULL ...)
; compiling (DEFTRANSFORM %REST-TRUE ...)
; compiling (DEFUN CHECK-FORMAT-ARGS ...)
; compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFUN CONCATENATE-FORMAT-P ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM PATHNAME ...)
; compiling (DEFTRANSFORM PATHNAME ...)
; compiling (DEF ERROR)
; compiling (DEF WARN)
; compiling (DEF STYLE-WARN)
; compiling (DEF COMPILER-ERROR)
; compiling (DEF COMPILER-WARN)
; compiling (DEF COMPILER-STYLE-WARN)
; compiling (DEF COMPILER-NOTIFY)
; compiling (DEF MAYBE-COMPILER-NOTIFY)
; compiling (DEF BUG)
; compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...)
; compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...)
; compiling (DEFTRANSFORM SORT ...)
; compiling (DEFTRANSFORM STABLE-SORT ...)
; compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...)
; compiling (DEFTRANSFORM SLEEP ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFOPTIMIZER (CERROR OPTIMIZER)
;     (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING

; in: DEFUN CHECK-FORMAT-ARGS
;     (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING

; in: DEFUN INTERVAL-MUL
;     (SB!EXT:FLOAT-INFINITY-P SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-INFINITY-P

; in: DEFUN BOUND-FUNC
;     (SB!EXT:FLOAT-INFINITY-P SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-INFINITY-P

; in: DEFUN TWO-ARG-DERIVE-TYPE
;     (SB!EXT:FLOAT-NAN-P SB!C::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-NAN-P

; in: DEFUN CONCATENATE-FORMAT-P
;     (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP

; in: DEFTRANSFORM FORMAT
;     (SB!INT:QUASIQUOTE
;      (LAMBDA
;          (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2))
;        (DECLARE (IGNORE STREAM SB!C::CONTROL))
;        (CONCATENATE 'STRING
;                     #S(SB!IMPL::COMMA
;                        :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED
;                                    SB!C::FOR CHAR = #
;                                    WHEN #
;                                    SB!INT:COLLECT ...)
;                        :KIND 2))))
; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET 
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY TAGBODY 
; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ THE AND IF AND THE 
; ==>
;   (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER

; in: DEFUN CONCATENATE-FORMAT-P
;     (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER

;     (SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-COLONP

;     (SB!FORMAT::FORMAT-DIRECTIVE-P SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-P

; in: DEFTRANSFORM FORMAT
;     (SB!INT:QUASIQUOTE
;      (LAMBDA
;          (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2))
;        (DECLARE (IGNORE STREAM SB!C::CONTROL))
;        (CONCATENATE 'STRING
;                     #S(SB!IMPL::COMMA
;                        :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED
;                                    SB!C::FOR CHAR = #
;                                    WHEN #
;                                    SB!INT:COLLECT ...)
;                        :KIND 2))))
; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET 
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY TAGBODY 
; --> IF SETQ THE COND IF COND IF COND THE PROGN LET OR LET CDAR CDR CAR 
; ==>
;   (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS

; in: DEFUN CONCATENATE-FORMAT-P
;     (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS

; in: DEFOPTIMIZER (CERROR OPTIMIZER)
;     (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS)
;                   (SB!FORMAT:FORMAT-ERROR (SB!C::C)
;                    (SB!C:COMPILER-WARN "~A" SB!C::C)))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; in: DEFTRANSFORM FORMAT
;     (HANDLER-CASE
;      (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL))
;      (SB!FORMAT:FORMAT-ERROR NIL (SB!C::GIVE-UP-IR1-TRANSFORM)))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; in: DEFUN CHECK-FORMAT-ARGS
;     (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
;                   (SB!FORMAT:FORMAT-ERROR (SB!C::C)
;                    (SB!C:COMPILER-WARN "~A" SB!C::C)))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type SB!FORMAT:FORMAT-ERROR


; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER
;     (SB!C::LOGAND-DERIVE-TYPE-AUX SB!C::RES SB!C::MASK-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: LOGAND-DERIVE-TYPE-AUX

; in: DEFTRANSFORM LOGTEST
;     #'SB!C::LOGAND-DERIVE-TYPE-AUX
; 
; caught STYLE-WARNING:
;   undefined function: LOGAND-DERIVE-TYPE-AUX

; in: DEFUN CUT-TO-WIDTH
;     (SB!C::MASK-SIGNED-FIELD SB!C::WIDTH SB!C::CONSTANT-VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: MASK-SIGNED-FIELD

; in: DEFTRANSFORM =
;     (SB!INT:RATIOP SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: RATIOP

; in: DEFTRANSFORM SLEEP
;     (SB!IMPL::SPLIT-SECONDS-FOR-SLEEP SB!C::SECONDS-VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::SPLIT-SECONDS-FOR-SLEEP

; in: DEFTRANSFORM FORMAT
;     (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL))
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::TOKENIZE-CONTROL-STRING
; 
; compilation unit finished
;   Undefined type:
;     SB!FORMAT:FORMAT-ERROR
;   Undefined functions:
;     SB!FORMAT:%COMPILER-WALK-FORMAT-STRING FLOAT-INFINITY-P FLOAT-NAN-P SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!FORMAT::FORMAT-DIRECTIVE-P SB!FORMAT::FORMAT-DIRECTIVE-PARAMS LOGAND-DERIVE-TYPE-AUX MASK-SIGNED-FIELD RATIOP SB!IMPL::SPLIT-SECONDS-FOR-SLEEP SB!FORMAT::TOKENIZE-CONTROL-STRING
;   caught 22 STYLE-WARNING conditions
;   printed 2 notes
; compiling (DEFTRANSFORM SLEEP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/srctran.fasl-tmp written
; compilation finished in 0:00:14.891
; compiling file "/«PKGBUILDDIR»/src/compiler/bitops-derive-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN INTEGER-TYPE-LENGTH ...)
; compiling (DECLAIM (INLINE ZEROES))
; compiling (DEFUN ZEROES ...)
; compiling (DECLAIM (INLINE ONES))
; compiling (DEFUN ONES ...)
; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...)
; compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...)
; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...)
; compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...)
; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...)
; compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...)
; compiling (DEFFROB LOGAND)
; compiling (DEFFROB LOGIOR)
; compiling (DEFFROB LOGXOR)
; compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/bitops-derive-type.fasl-tmp written
; compilation finished in 0:00:00.716
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM DATA-VECTOR-SET ...)
; compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...)
; compiling (DEF %ARRAY-DATA-VECTOR)
; compiling (DEF ARRAY-STORAGE-VECTOR)
; compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...)
; compiling (DEF BIT-AND ...)
; compiling (DEF BIT-IOR ...)
; compiling (DEF BIT-XOR ...)
; compiling (DEF BIT-EQV ...)
; compiling (DEF BIT-NAND ...)
; compiling (DEF BIT-NOR ...)
; compiling (DEF BIT-ANDC1 ...)
; compiling (DEF BIT-ANDC2 ...)
; compiling (DEF BIT-ORC1 ...)
; compiling (DEF BIT-ORC2 ...)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-VECTOR-= ...)
; compiling (DEFTRANSFORM COUNT ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM %BYTE-BLT ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...)
; compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...)
; compiling (DEF SB!VM::ASH-LEFT-MODFX ...)
; compiling (DEF SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-AND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-OR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...)
; compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-tran.fasl-tmp written
; compilation finished in 0:00:02.900
; compiling file "/«PKGBUILDDIR»/src/compiler/locall.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PROPAGATE-TO-ARGS ...)
; compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...)
; compiling (DEFUN MERGE-TAIL-SETS ...)
; compiling (DEFUN CONVERT-CALL ...)
; compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...)
; compiling (DEFUN MAKE-XEP ...)
; compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...)
; compiling (DEFUN REFERENCE-ENTRY-POINT ...)
; compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...)
; compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...)
; compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...)
; compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...)
; compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...)
; compiling (DEFUN CONVERT-MV-CALL ...)
; compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...)
; compiling (DEFUN WARN-INVALID-LOCAL-CALL ...)
; compiling (DEFUN CONVERT-LAMBDA-CALL ...)
; compiling (DEFUN CONVERT-HAIRY-CALL ...)
; compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...)
; compiling (DEFUN CONVERT-MORE-CALL ...)
; compiling (DEFUN INSERT-LET-BODY ...)
; compiling (DEFUN DEPART-FROM-TAIL-SET ...)
; compiling (DEFUN MERGE-LETS ...)
; compiling (DEFUN MOVE-RETURN-USES ...)
; compiling (DEFUN UNCONVERT-TAIL-CALLS ...)
; compiling (DEFUN MOVE-RETURN-STUFF ...)
; compiling (DEFUN LET-CONVERT ...)
; compiling (DEFUN REOPTIMIZE-CALL ...)
; compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...)
; compiling (DEFUN OK-INITIAL-CONVERT-P ...)
; compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...)
; compiling (DEFUN MAYBE-LET-CONVERT ...)
; compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...)
; compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...)

; file: /«PKGBUILDDIR»/src/compiler/locall.lisp
; in: DEFUN MERGE-LETS
;     (SB!C::GET-LAMBDA-PHYSENV SB!C::HOME)
; 
; caught STYLE-WARNING:
;   undefined function: GET-LAMBDA-PHYSENV

; in: DEFUN INSERT-LET-BODY
;     (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: JOIN-COMPONENTS
; 
; compilation unit finished
;   Undefined functions:
;     GET-LAMBDA-PHYSENV JOIN-COMPONENTS
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/locall.fasl-tmp written
; compilation finished in 0:00:03.264
; compiling file "/«PKGBUILDDIR»/src/compiler/dfo.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-DFO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN JOIN-COMPONENTS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-DFO-AUX ...)
; compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...)
; compiling (DEFUN FIND-INITIAL-DFO-AUX ...)
; compiling (DEFUN FIND-REFERENCE-FUNS ...)
; compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...)
; compiling (DEFUN HAS-XEP-OR-NLX ...)
; compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...)
; compiling (DEFUN FIND-INITIAL-DFO ...)
; compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/dfo.fasl-tmp written
; compilation finished in 0:00:01.096
; compiling file "/«PKGBUILDDIR»/src/compiler/dce.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN LAMBDA-EXTERNALLY-REFERENCED-P ...)
; compiling (DEFUN DCE-ANALYZE-REF ...)
; compiling (DEFUN DCE-ANALYZE-BLOCK ...)
; compiling (DEFUN DCE-ANALYZE-ONE-FUN ...)
; compiling (DEFUN ELIMINATE-DEAD-CODE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/dce.fasl-tmp written
; compilation finished in 0:00:00.190
; compiling file "/«PKGBUILDDIR»/src/compiler/checkgen.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FUN-GUESSED-COST ...)
; compiling (DEFUN TYPE-TEST-COST ...)
; compiling (DEFUN WEAKEN-INTEGER-TYPE ...)
; compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...)
; compiling (DEFUN WEAKEN-VALUES-TYPE ...)
; compiling (DEFUN MAYBE-WEAKEN-CHECK ...)
; compiling (DEFUN NO-FUN-VALUES-TYPES ...)
; compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...)
; compiling (DEFUN MAYBE-NEGATE-CHECK ...)
; compiling (DEFUN CAST-CHECK-TYPES ...)
; compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...)
; compiling (DEFUN PROBABLE-TYPE-CHECK-P ...)
; compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...)
; compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...)
; compiling (DEFUN MAKE-TYPE-CHECK-FORM ...)
; compiling (DEFUN CONVERT-TYPE-CHECK ...)
; compiling (DEFUN CAST-CHECK-USES ...)

; file: /«PKGBUILDDIR»/src/compiler/checkgen.lisp
; in: DEFUN MAYBE-NEGATE-CHECK
;     (EVERY #'SB!C::TYPE-CHECK-TEMPLATE SB!C::SIMPLE-RES)
; --> LET BLOCK FLET BLOCK LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'SB!C::TYPE-CHECK-TEMPLATE #:G318)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CHECK-TEMPLATE

; in: DEFUN TYPE-TEST-COST
;     (SB!C::TYPE-CHECK-TEMPLATE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CHECK-TEMPLATE
; 
; compilation unit finished
;   Undefined function:
;     TYPE-CHECK-TEMPLATE
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN GENERATE-TYPE-CHECKS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/checkgen.fasl-tmp written
; compilation finished in 0:00:01.917
; compiling file "/«PKGBUILDDIR»/src/compiler/constraint.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; compiling (DEFTYPE CONSTRAINT-Y ...)
; compiling (DEFSTRUCT (CONSTRAINT # ...) ...)
; compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER))
; compiling (DEFUN %CONSTRAINT-NUMBER ...)
; compiling (DEFSTRUCT (CONSET # ...) ...)
; compiling (DEFUN CONSET-EMPTY ...)
; compiling (DEFUN COPY-CONSET ...)
; compiling (DEFUN %CONSET-GROW ...)
; compiling (DECLAIM (INLINE CONSET-GROW))
; compiling (DEFUN CONSET-GROW ...)
; compiling (DEFUN CONSET-MEMBER ...)
; compiling (DEFUN CONSET-ADJOIN ...)
; compiling (DEFUN CONSET= ...)
; compiling (DEFCONSETOP CONSET-UNION ...)
; compiling (DEFCONSETOP CONSET-INTERSECTION ...)
; compiling (DEFCONSETOP CONSET-DIFFERENCE ...)
; compiling (DEFUN FIND-CONSTRAINT ...)
; compiling (DEFUN REGISTER-CONSTRAINT ...)
; compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...)
; compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...)
; compiling (DEFMACRO DO-EQL-VARS ...)
; compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...)
; compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...)
; compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...))
; compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...)
; compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...)
; compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...))
; compiling (DEFUN CONSET-ADD-CONSTRAINT ...)
; compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...)
; compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR))
; compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...)
; compiling (DEFUN INHERIT-CONSTRAINTS ...)
; compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...)
; compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR))
; compiling (DEFUN OK-REF-LAMBDA-VAR ...)
; compiling (DEFUN OK-LVAR-LAMBDA-VAR ...)
; compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT))
; compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...)
; compiling (DEFUN ADD-TEST-CONSTRAINT ...)
; compiling (DECLAIM (INLINE QUICK-ADD-COMPLEMENT-CONSTRAINTS))
; compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...)
; compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...)
; compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...)
; compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...)
; compiling (DEFUN ADD-TEST-CONSTRAINTS ...)
; compiling (DEFUN INTEGER-TYPE-P ...)
; compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...)
; compiling (DEFUN FLOAT-TYPE-P ...)
; compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...)
; compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...)
; compiling (DEFUN CONSTRAIN-REF-TYPE ...)
; compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...)
; compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...)
; compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...)
; compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...)
; compiling (DEFUN USE-RESULT-CONSTRAINTS ...)
; compiling (DEFUN INIT-VAR-CONSTRAINTS ...)
; compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...)
; compiling (DEFUN COMPUTE-BLOCK-IN ...)
; compiling (DEFUN UPDATE-BLOCK-IN ...)
; compiling (DEFUN LEADING-COMPONENT-BLOCKS ...)
; compiling (DEFUN NCONC-NEW ...)
; compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...)
; compiling (DEFUN CONSTRAINT-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/constraint.fasl-tmp written
; compilation finished in 0:00:05.950
; compiling file "/«PKGBUILDDIR»/src/compiler/physenvanal.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PHYSENV-ANALYZE ...)
; compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...)
; compiling (DEFUN GET-LAMBDA-PHYSENV ...)
; compiling (DEFUN REINIT-LAMBDA-PHYSENV ...)
; compiling (DEFUN GET-NODE-PHYSENV ...)
; compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...)
; compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...)
; compiling (DEFUN XEP-ALLOCATOR ...)
; compiling (DEFUN CLOSE-OVER ...)
; compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...)
; compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*)
; compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...)
; compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...)
; compiling (DEFUN INSERT-NLX-ENTRY-STUB ...)
; compiling (DEFUN NOTE-NON-LOCAL-EXIT ...)
; compiling (DEFUN FIND-NON-LOCAL-EXITS ...)
; compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...)
; compiling (DEFUN EMIT-CLEANUPS ...)
; compiling (DEFUN FIND-CLEANUP-POINTS ...)
; compiling (DEFUN TAIL-ANNOTATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/physenvanal.fasl-tmp written
; compilation finished in 0:00:01.319
; compiling file "/«PKGBUILDDIR»/src/compiler/tn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; compiling (DEFMACRO DO-PACKED-TNS ...)
; compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...)
; compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...)
; compiling (DEFUN DELETE-UNREFERENCED-TNS ...)
; compiling (DEFUN MAKE-NORMAL-TN ...)
; compiling (DEFUN MAKE-REPRESENTATION-TN ...)
; compiling (DEFUN MAKE-WIRED-TN ...)
; compiling (DEFUN MAKE-RESTRICTED-TN ...)
; compiling (DEFUN PHYSENV-LIVE-TN ...)
; compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...)
; compiling (DEFUN COMPONENT-LIVE-TN ...)
; compiling (DEFUN SPECIFY-SAVE-TN ...)
; compiling (DEFUN MAKE-CONSTANT-TN ...)
; compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...)
; compiling (DEFUN MAKE-ALIAS-TN ...)
; compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...)
; compiling (DEFUN REFERENCE-TN ...)
; compiling (DEFUN REFERENCE-TN-LIST ...)
; compiling (DEFUN DELETE-TN-REF ...)
; compiling (DEFUN CHANGE-TN-REF-TN ...)
; compiling (DEFUN EMIT-MOVE-TEMPLATE ...)
; compiling (DEFUN EMIT-LOAD-TEMPLATE ...)
; compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...)
; compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...)
; compiling (DEFUN BLOCK-LABEL ...)
; compiling (DEFUN BLOCK-TRAMPOLINE ...)
; compiling (DEFUN DROP-THRU-P ...)
; compiling (DEFUN REGISTER-DROP-THRU ...)
; compiling (DEFUN INSERT-VOP ...)
; compiling (DEFUN EMIT-AND-INSERT-VOP ...)
; compiling (DEFUN DELETE-VOP ...)
; compiling (DEFUN MAKE-N-TNS ...)
; compiling (DEFUN LOCATION= ...)
; compiling (DEFUN TN-VALUE ...)
; compiling (DEFUN IMMEDIATE-TN-P ...)
; compiling (DEFUN FORCE-TN-TO-STACK ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/tn.fasl-tmp written
; compilation finished in 0:00:02.721
; compiling file "/«PKGBUILDDIR»/src/compiler/life.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ADD-GLOBAL-CONFLICT ...)
; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...)
; compiling (DEFUN RESET-CURRENT-CONFLICT ...)
; compiling (DEFUN CACHED-BLOCK-PHYSENV ...)
; compiling (DEFUN CONVERT-TO-GLOBAL ...)
; compiling (DEFUN FIND-LOCAL-REFERENCES ...)
; compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...)
; compiling (DEFEVENT SPLIT-IR2-BLOCK ...)
; compiling (DEFUN SPLIT-IR2-BLOCKS ...)
; compiling (DEFUN CLEAR-LIFETIME-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/life.lisp
; in: DEFUN COALESCE-MORE-LTN-NUMBERS
;     (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN
;                    (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY
;                    #'SB!C::GLOBAL-CONFLICTS-TN)
; 
; note: deleting unreachable code
; compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...)
; compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...)
; compiling (DEFUN LIFETIME-PRE-PASS ...)
; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...)
; compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...)
; compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...)
; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...)
; compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...)
; compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...)
; compiling (DEFUN PROPAGATE-LIVE-TNS ...)
; compiling (DEFPARAMETER *MAX-FAST-PROPAGATE-LIVE-TN-PASSES* ...)
; compiling (DEFUN LIFETIME-FLOW-ANALYSIS ...)
; compiling (DEFUN NOTE-CONFLICTS ...)
; compiling (DEFUN COMPUTE-SAVE-SET ...)
; compiling (DEFUN SAVED-AFTER-READ ...)
; compiling (DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE ...)
; compiling (DEFUN COMPUTE-INITIAL-CONFLICTS ...)
; compiling (DEFUN CONFLICTIZE-SAVE-P-VOP ...)
; compiling (DEFMACRO FROB-MORE-TNS ...)
; compiling (DEFMACRO SCAN-VOP-REFS ...)
; compiling (DEFMACRO ENSURE-RESULTS-LIVE ...)
; compiling (DEFUN CONFLICT-ANALYZE-1-BLOCK ...)
; compiling (DEFUN LIFETIME-POST-PASS ...)
; compiling (DEFUN MERGE-ALIAS-BLOCK-CONFLICTS ...)
; compiling (DEFUN CHANGE-GLOBAL-CONFLICTS-TN ...)
; compiling (DEFUN ENSURE-GLOBAL-TN ...)
; compiling (DEFUN MERGE-ALIAS-CONFLICTS ...)
; compiling (DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...)
; compiling (DEFUN LIFETIME-ANALYZE ...)
; compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...)
; compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...)

; file: /«PKGBUILDDIR»/src/compiler/life.lisp
; in: DEFUN SPLIT-IR2-BLOCKS
;     (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: ADD-TO-EMIT-ORDER

; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS
;     (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-IN-PHYSENV
; 
; compilation unit finished
;   Undefined functions:
;     ADD-TO-EMIT-ORDER FIND-IN-PHYSENV
;   caught 2 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFUN TNS-CONFLICT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/life.fasl-tmp written
; compilation finished in 0:00:04.657
; compiling file "/«PKGBUILDDIR»/src/compiler/debug-dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFTYPE BYTE-BUFFER ...)
; compiling (DEFVAR *BYTE-BUFFER*)
; compiling (DECLAIM (TYPE BYTE-BUFFER ...))
; compiling (DEFTYPE LOCATION-KIND ...)
; compiling (DEFSTRUCT (LOCATION-INFO # ...) ...)
; compiling (DEFUN NOTE-DEBUG-LOCATION ...)
; compiling (DECLAIM (INLINE IR2-BLOCK-PHYSENV))
; compiling (DEFUN IR2-BLOCK-PHYSENV ...)
; compiling (DEFUN LEAF-VISIBLE-TO-DEBUGGER-P ...)
; compiling (DEFUN COMPUTE-LIVE-VARS ...)
; compiling (DEFVAR *PREVIOUS-LOCATION*)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFUN DUMP-1-LOCATION ...)
; compiling (DEFUN DUMP-LOCATION-FROM-INFO ...)
; compiling (DEFUN FIND-TLF-NUMBER ...)
; compiling (DEFUN DUMP-BLOCK-LOCATIONS ...)
; compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...)
; compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...)
; compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...)
; compiling (DEFUN TN-SC-OFFSET ...)
; compiling (DEFUN LAMBDA-ANCESTOR-P ...)
; compiling (DEFUN DUMP-1-VAR ...)
; compiling (DEFUN COMPUTE-VARS ...)
; compiling (DEFUN COMPUTE-MINIMAL-VARS ...)
; compiling (DEFUN DEBUG-LOCATION-FOR ...)
; compiling (DEFUN COMPUTE-ARGS ...)
; compiling (DEFUN COMPUTE-DEBUG-RETURNS ...)
; compiling (DEFUN DFUN-FROM-FUN ...)

; file: /«PKGBUILDDIR»/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-1-DEBUG-FUN
;     (MAX SB!C::ACTUAL-LEVEL 2)
; --> LET 
; ==>
;   SB!C::ACTUAL-LEVEL
; 
; note: deleting unreachable code
; compiling (DEFUN COMPUTE-1-DEBUG-FUN ...)
; compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...)
; compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...)

; file: /«PKGBUILDDIR»/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-DEBUG-BLOCKS
;     (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC)
;      (SB!C::LOCATION-INFO-KIND SB!C::LOC))
; 
; caught STYLE-WARNING:
;   undefined function: LABEL-ELSEWHERE-P
; 
; compilation unit finished
;   Undefined function:
;     LABEL-ELSEWHERE-P
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/debug-dump.fasl-tmp written
; compilation finished in 0:00:02.744
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/utils.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN FIXNUMIZE ...)
; compiling (DEFUN STATIC-SYMBOL-P ...)
; compiling (DEFUN STATIC-SYMBOL-OFFSET ...)
; compiling (DEFUN OFFSET-STATIC-SYMBOL ...)
; compiling (DEFUN STATIC-FDEFN-OFFSET ...)
; compiling (DEFUN STATIC-FUN-OFFSET ...)
; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...)
; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/utils.fasl-tmp written
; compilation finished in 0:00:00.167
; compiling file "/«PKGBUILDDIR»/src/compiler/fopcompile.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (FLET (# #) ...)
; compiling (DEFUN LET-FOPCOMPILABLE-P ...)
; compiling (DEFUN LAMBDA-FORM-P ...)
; compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...)
; compiling (DEFUN FOPCOMPILE ...)
; compiling (DEFUN FOPCOMPILE-FUNCTION ...)
; compiling (DEFUN FOPCOMPILE-IF ...)
; compiling (DEFUN FOPCOMPILE-CONSTANT ...)
; compiling (DEFUN CANONICAL-INSTANCE-MAKER-FORM-P ...)
; compiling (DEFUN FOPCOMPILE-ALLOCATE-INSTANCE ...)
; compiling (DEFUN TRIVIAL-LOAD-FORM-INITFORM-ARGS ...)

; file: /«PKGBUILDDIR»/src/compiler/fopcompile.lisp
; in: DEFUN FOPCOMPILE
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN FOPCOMPILABLE-P
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND
; 
; compilation unit finished
;   Undefined function:
;     %MACROEXPAND
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN FOPCOMPILE-CONSTANT-INIT-FORMS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fopcompile.fasl-tmp written
; compilation finished in 0:00:01.198
creating directory: /«PKGBUILDDIR»/obj/from-host/src/assembly/
; compiling file "/«PKGBUILDDIR»/src/assembly/assemfile.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...)
; compiling (DEFVAR *ENTRY-POINTS* ...)
; compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...)
; compiling (DEFUN ASSEMBLE-FILE ...)
; compiling (DEFSTRUCT (REG-SPEC #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN REG-SPEC-SC ...)
; compiling (DEFUN PARSE-REG-SPEC ...)
; compiling (DEFUN EMIT-ASSEMBLE ...)
; compiling (DEFUN ARG-OR-RES-SPEC ...)
; compiling (DEFUN EMIT-ASSEMBLE-VOP ...)

; file: /«PKGBUILDDIR»/src/assembly/assemfile.lisp
; in: DEFUN EMIT-ASSEMBLE-VOP
;     (SB!C:GENERATE-CALL-SEQUENCE SB!C::NAME SB!C::RETURN-STYLE SB!C::VOP
;      SB!C::OPTIONS)
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-CALL-SEQUENCE

; in: DEFUN EMIT-ASSEMBLE
;     (SB!INT:QUASIQUOTE
;      (LET #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!C::REGS) :KIND 0)
;        #S(SB!IMPL::COMMA :EXPR (SB!C::DECLS) :KIND 2)
;        (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT*
;                            '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0))
;          #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;          (PUSH (CONS '# #) SB!C::*ENTRY-POINTS*)
;          #S(SB!IMPL::COMMA :EXPR SB!C::CODE :KIND 2)
;          #S(SB!IMPL::COMMA :EXPR (SB!C:GENERATE-RETURN-SEQUENCE #) :KIND 2)
;          (SB!ASSEM:EMIT-ALIGNMENT SB!VM:N-LOWTAG-BITS))
;        (WHEN SB-XC:*COMPILE-PRINT*
;          (FORMAT *ERROR-OUTPUT* "~S assembled~%"
;                  '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)))))
; --> SB!IMPL::|List*| SB!IMPL::|Append| SB!IMPL::|List*| SB!IMPL::|List*| 
; --> SB!IMPL::|Append| 
; ==>
;   (SB!C:GENERATE-RETURN-SEQUENCE
;    (OR (CADR (ASSOC :RETURN-STYLE SB!C::OPTIONS)) :RAW))
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-RETURN-SEQUENCE

; in: DEFUN ASSEMBLE-FILE
;     (SB!C::INIT-ASSEMBLER)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-ASSEMBLER
; 
; compilation unit finished
;   Undefined functions:
;     GENERATE-CALL-SEQUENCE GENERATE-RETURN-SEQUENCE INIT-ASSEMBLER
;   caught 3 STYLE-WARNING conditions
; compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/assemfile.fasl-tmp written
; compilation finished in 0:00:00.938
; compiling file "/«PKGBUILDDIR»/src/compiler/late-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NOTE-THIS-LOCATION ...)
; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/late-vmdef.fasl-tmp written
; compilation finished in 0:00:00.056
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP
;     (DEFSTRUCT
;         (SB!C:FIXUP
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP
;           (SB!C::NAME SB!C::FLAVOR &OPTIONAL SB!C::OFFSET))
;          (:COPIER NIL))
;       SB!C::NAME
;       SB!C::FLAVOR
;       SB!C::OFFSET)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C:FIXUP {52321D79}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NAME and SB!C:FIXUP-FLAVOR could not be
;   inlined because the structure definition for SB!C:FIXUP was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; compiling (DEFSTRUCT (FIXUP # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP-NOTE
;     (DEFSTRUCT
;         (SB!C::FIXUP-NOTE
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP-NOTE (SB!C::KIND SB!C:FIXUP POSITION))
;          (:COPIER NIL))
;       SB!C::KIND
;       SB!C:FIXUP
;       POSITION)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::FIXUP-NOTE {5241A4F1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NOTE-KIND, SB!C:FIXUP-NOTE-FIXUP and
;   SB!C:FIXUP-NOTE-POSITION could not be inlined because the structure definition
;   for SB!C::FIXUP-NOTE was not yet seen. To avoid this warning, DEFSTRUCT should
;   precede references to the affected functions, or they must be declared locally
;   notinline at each call site.
; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...)
; compiling (DEFVAR *FIXUP-NOTES*)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN NOTE-FIXUP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fixup.fasl-tmp written
; compilation finished in 0:00:00.236
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/insts.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...)
; compiling (DEFPARAMETER *CONDITIONS* ...)
; compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...)
; compiling (SETF *ASSEM-SCHEDULER-P* ...)
; compiling (DEFUN CONDITIONAL-OPCODE ...)
; compiling (DEFUN MAYBE-ADD-NOTES ...)
; compiling (DEFUN PRINT-CONDITION ...)
; compiling (DEFUN PRINT-REG ...)
; compiling (DEFUN PRINT-SHIFT-TYPE ...)
; compiling (DEFUN PRINT-IMMEDIATE-SHIFT ...)
; compiling (DEFUN PRINT-SHIFTER-IMMEDIATE ...)
; compiling (DEFUN USE-LABEL-RELATIVE-LABEL ...)
; compiling (DEFUN PRINT-LOAD/STORE-IMMEDIATE ...)
; compiling (DEFUN PRINT-LOAD/STORE-REGISTER ...)
; compiling (DEFUN PRINT-MSR-FIELD-MASK ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFT-TYPE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMMEDIATE-SHIFT ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFTER-IMMEDIATE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE RELATIVE-LABEL ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-IMMEDIATE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-REGISTER ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE MSR-FIELD-MASK ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-REGISTER 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-REGISTER 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SWI 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DEBUG-TRAP 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-REGISTER 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DZSM 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DNSM 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DDSM 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH-EXCHANGE 32 ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN SNARF-ERROR-JUNK
;     (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
;            (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8))))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
;                (TYPE (UNSIGNED-BYTE 8) LENGTH)
;                (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR))
;       (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL))
;             (T
;              (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET)
;               VECTOR 0 LENGTH)
;              (SB!INT:COLLECT (# #)
;                (SB!VM::LENGTHS 1)
;                (LET* #
;                  #
;                  #
;                  #)))))
; 
; note: deleting unreachable code

;     (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)
; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!C::%READ-VAR-INTEGER 
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (- SB!INT:INDEX SB!VM::OLD-INDEX)
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

;     (LET ((SB!VM::OLD-INDEX SB!INT:INDEX))
;       (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))
;       (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (>= SB!INT:INDEX LENGTH)
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

;     (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) (SB!VM::LENGTHS))
; ==>
;   SB!VM::ERROR-NUMBER
; 
; note: deleting unreachable code

;     (LET* ((SB!INT:INDEX 0)
;            (SB!VM::ERROR-NUMBER (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)))
;       (SB!VM::LENGTHS SB!INT:INDEX)
;       (LOOP (WHEN (>= SB!INT:INDEX LENGTH) (RETURN))
;             (LET ((SB!VM::OLD-INDEX SB!INT:INDEX))
;               (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))
;               (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX))))
;       (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS)
;               (SB!VM::LENGTHS)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0
;      LENGTH)
; ==>
;   SB!VM::SAP
; 
; note: deleting unreachable code

;     (1+ LENGTH)
; --> + 
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
;            (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8))))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
;                (TYPE (UNSIGNED-BYTE 8) LENGTH)
;                (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR))
;       (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL))
;             (T
;              (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET)
;               VECTOR 0 LENGTH)
;              (SB!INT:COLLECT (# #)
;                (SB!VM::LENGTHS 1)
;                (LET* #
;                  #
;                  #
;                  #)))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN SNARF-ERROR-JUNK ...)
; compiling (DEFUN DEBUG-TRAP-CONTROL ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...)
; compiling (DEFUN REGISTER-P ...)
; compiling (DEFMACRO WITH-CONDITION-DEFAULTED ...)
; compiling (DEFINE-INSTRUCTION BYTE ...)
; compiling (DEFINE-INSTRUCTION WORD ...)
; compiling (DEFUN EMIT-HEADER-DATA ...)
; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...)
; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...)
; compiling (DEFSTRUCT SHIFTER-OPERAND ...)
; compiling (DEFUN LSL ...)
; compiling (DEFUN LSR ...)
; compiling (DEFUN ASR ...)
; compiling (DEFUN ROR ...)
; compiling (DEFUN RRX ...)
; compiling (DEFINE-CONDITION CANNOT-ENCODE-IMMEDIATE-OPERAND ...)
; compiling (DEFUN ENCODABLE-IMMEDIATE ...)
; compiling (DEFUN ENCODE-SHIFTER-IMMEDIATE ...)
; compiling (DEFUN ENCODE-SHIFTER-OPERAND ...)
; compiling (DEFMACRO COMPOSITE-IMMEDIATE-INSTRUCTION ...)
; compiling (DEFSTRUCT MEMORY-OPERAND ...)
; compiling (DEFUN %@ ...)
; compiling (DEFMACRO @ ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-DP-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-DATA-PROCESSING-INSTRUCTION ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION AND ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ANDS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EOR ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EORS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUB ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUBS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSB ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSBS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADD ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADDS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADCS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBCS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSCS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORR ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORRS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BIC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BICS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TST ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TEQ ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMP ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMN ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOV ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOVS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVN ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVNS ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-SWI-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION SWI ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BKPT-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION BKPT ...)
; compiling (DEFINE-INSTRUCTION DEBUG-TRAP ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-CLZ-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION CLZ ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-INSTRUCTION ...)
; compiling (DEFUN EMIT-BRANCH-BACK-PATCH ...)
; compiling (DEFINE-INSTRUCTION B ...)
; compiling (DEFINE-INSTRUCTION BL ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-EXCHANGE-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION BX ...)
; compiling (DEFINE-INSTRUCTION BLX ...)
; compiling (DEFUN EMIT-SEMAPHORE-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION SWP ...)
; compiling (DEFINE-INSTRUCTION SWPB ...)
; compiling (DEFINE-INSTRUCTION MRS ...)
; compiling (DEFUN ENCODE-STATUS-REGISTER-FIELDS ...)
; compiling (DEFMACRO CPSR ...)
; compiling (DEFMACRO SPSR ...)
; compiling (DEFINE-INSTRUCTION MSR ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-MULTIPLY-INSTRUCTION ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MUL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MULS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MLA ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MLAS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMULL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMULLS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMLAL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMLALS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULLS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWT ...)
; compiling (DEFUN EMIT-LOAD/STORE-INSTRUCTION ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION LDR ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION LDRB ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION STR ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION STRB ...)
; compiling (DEFUN EMIT-MISC-LOAD/STORE-INSTRUCTION ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRH ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRD ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRD ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRH ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSB ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSH ...)
; compiling (DEFINE-INSTRUCTION COMPUTE-CODE ...)
; compiling (DEFINE-INSTRUCTION COMPUTE-LRA ...)
; compiling (DEFINE-INSTRUCTION LOAD-FROM-LABEL ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-DP-INSTRUCTION ...)
; compiling (DEFUN LOW-BIT-FLOAT-REG ...)
; compiling (DEFUN HIGH-BITS-FLOAT-REG ...)
; compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMAC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMAC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMSC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMSC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMUL ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMUL ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FADD ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FSUB ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FDIV ...)
; compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCPY ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FABS ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FNEG ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSQRT ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMP ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPE ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPEZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FUITO ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSITO ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUI ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUIZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSI ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSIZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTDS ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTSD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-LS-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMS ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMS ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMD ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMD ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMX ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMX ...)
; compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-SINGLE ...)
; compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-DOUBLE ...)
; compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-SINGLE ...)
; compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-DOUBLE ...)
; compiling (DEFMACRO DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTS ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDS ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTD ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-SRT-INSTRUCTION ...)
; compiling (DEFUN SYSTEM-REG-ENCODING ...)
; compiling (DEFMACRO DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMSR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRS ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDLR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDL ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDHR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDH ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMXR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRX ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-TRT-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION ...)
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMSRR ...)
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRS ...)
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMDRR ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN EMIT-HEADER-DATA
;     (SB!C:COMPONENT-HEADER-LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COMPONENT-HEADER-LENGTH

; in: DEFUN SNARF-ERROR-JUNK
;     (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0
;      LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COPY-UB8-FROM-SYSTEM-AREA

; in: DEFUN DEBUG-TRAP-CONTROL
;     (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS

; in: DEFUN MAYBE-ADD-NOTES
;     (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::OFFSET NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE

;     (SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL
;      (LOGIOR SB!VM::OFFSET SB!VM:OTHER-POINTER-LOWTAG) SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL

; in: DEFUN DEBUG-TRAP-CONTROL
;     (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:NOTE

; in: DEFUN MAYBE-ADD-NOTES
;     (SB!DISASSEM:NOTE-CODE-CONSTANT SB!VM::OFFSET SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:NOTE-CODE-CONSTANT

; in: SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE
;     (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; in: DEFUN MAYBE-ADD-NOTES
;     (SB!DISASSEM::SAP-REF-INT (SB!DISASSEM:DSTATE-SEGMENT-SAP SB!VM::DSTATE)
;      (SB!DISASSEM:DSTATE-CUR-OFFS SB!VM::DSTATE) SB!VM:N-WORD-BYTES
;      (SB!DISASSEM::DSTATE-BYTE-ORDER SB!VM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM::SAP-REF-INT
; 
; compilation unit finished
;   Undefined functions:
;     COMPONENT-HEADER-LENGTH COPY-UB8-FROM-SYSTEM-AREA SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL SB!DISASSEM:NOTE SB!DISASSEM:NOTE-CODE-CONSTANT SB!DISASSEM:READ-SUFFIX SB!DISASSEM::SAP-REF-INT
;   caught 9 STYLE-WARNING conditions
;   printed 16 notes
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRD ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/insts.fasl-tmp written
; compilation finished in 0:00:30.162
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFMACRO MOVE ...)
; compiling (DEF SINGLE ...)
; compiling (DEF DOUBLE ...)
; compiling (DEF LOADW ...)
; compiling (DEF STOREW ...)
; compiling (DEFMACRO LOAD-SYMBOL ...)
; compiling (DEFMACRO LOAD-SYMBOL-VALUE ...)
; compiling (DEFMACRO STORE-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-TYPE ...)
; compiling (DEFMACRO LOAD-CSP ...)
; compiling (DEFMACRO STORE-CSP ...)
; compiling (DEFMACRO LISP-JUMP ...)
; compiling (DEFMACRO LISP-RETURN ...)
; compiling (DEFMACRO EMIT-RETURN-PC ...)
; compiling (DEFUN LOAD-STACK-OFFSET ...)
; compiling (DEFMACRO LOAD-STACK-TN ...)
; compiling (DEFUN STORE-STACK-OFFSET ...)
; compiling (DEFMACRO STORE-STACK-TN ...)
; compiling (DEFMACRO MAYBE-LOAD-STACK-TN ...)
; compiling (DEFUN ALLOCATION-TRAMP ...)
; compiling (DEFMACRO ALLOCATION ...)
; compiling (DEFMACRO WITH-FIXED-ALLOCATION ...)
; compiling (DEFUN EMIT-ERROR-BREAK ...)
; compiling (DEFUN ERROR-CALL ...)
; compiling (DEFUN GENERATE-ERROR-CODE ...)
; compiling (DEFMACRO PSEUDO-ATOMIC ...)
; compiling (DEFMACRO DEFINE-FULL-REFFER ...)
; compiling (DEFMACRO DEFINE-FULL-SETTER ...)
; compiling (DEFMACRO DEFINE-PARTIAL-REFFER ...)
; compiling (DEFMACRO DEFINE-PARTIAL-SETTER ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/macros.lisp
; in: DEFUN ALLOCATION-TRAMP
;     (SB!VM::LOAD-IMMEDIATE-WORD SB!VM::ALLOC-TN SB!VM::SIZE)
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-IMMEDIATE-WORD

; in: DEFUN LOAD-STACK-OFFSET
;     (SB!VM::LOAD-IMMEDIATE-WORD SB!VM::REG SB!VM::OFFSET)
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-IMMEDIATE-WORD

; in: DEFUN STORE-STACK-OFFSET
;     (SB!VM::COMPOSITE-IMMEDIATE-INSTRUCTION SB!VM::ADD SB!VM::STACK SB!VM::STACK
;                                             SB!VM::HIGH)
; --> LET* LET SB-XC:BYTE LOGANDC1 
; ==>
;   (SB!VM::LOWEST-SET-BIT-INDEX #:|value148|)
; 
; caught STYLE-WARNING:
;   undefined function: LOWEST-SET-BIT-INDEX
; 
; compilation unit finished
;   Undefined functions:
;     LOAD-IMMEDIATE-WORD LOWEST-SET-BIT-INDEX
;   caught 3 STYLE-WARNING conditions
; compiling (DEF!MACRO WITH-PINNED-OBJECTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/macros.fasl-tmp written
; compilation finished in 0:00:03.374
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...)
; compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...)
; compiling (DEFUN CANONICALIZE-HEADERS ...)
; compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...)
; compiling (DEFMACRO TEST-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/early-type-vops.fasl-tmp written
; compilation finished in 0:00:00.359
creating directory: /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/support.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN GENERATE-CALL-SEQUENCE ...)
; compiling (DEFUN GENERATE-RETURN-SEQUENCE ...)

; file: /«PKGBUILDDIR»/src/assembly/arm/support.lisp
; in: DEFUN RETURN-MACHINE-ADDRESS
;     (SB!VM:CONTEXT-REGISTER SB!VM::SCP SB!VM::LR-OFFSET)
; 
; caught STYLE-WARNING:
;   undefined function: CONTEXT-REGISTER
; 
; compilation unit finished
;   Undefined function:
;     CONTEXT-REGISTER
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN RETURN-MACHINE-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/support.fasl-tmp written
; compilation finished in 0:00:00.070
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/move.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN LOWEST-SET-BIT-INDEX ...)
; compiling (DEFUN REPEATING-PATTERN-P ...)
; compiling (DEFUN LOAD-REPEATING-PATTERN ...)
; compiling (DEFUN LOAD-IMMEDIATE-WORD ...)
; compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5) ...)
; compiling (DEFINE-VOP (MOVE) ...)
; compiling (DEFINE-MOVE-VOP MOVE ...)
; compiling (PRIMITIVE-TYPE-VOP MOVE ...)
; compiling (DEFINE-VOP (MOVE-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (ILLEGAL-MOVE) ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...)
; compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...)
; compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...)
; compiling (DEFINE-VOP (WORD-MOVE) ...)
; compiling (DEFINE-MOVE-VOP WORD-MOVE ...)
; compiling (DEFINE-VOP (MOVE-WORD-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/move.lisp
; in: DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/move.fasl-tmp written
; compilation finished in 0:00:06.033
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/float.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 1) ...)
; compiling (DEFINE-MOVE-FUN (STORE-SINGLE 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...)
; compiling (FROB SINGLE-MOVE ...)
; compiling (FROB DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (MOVE-FROM-FLOAT) ...)
; compiling (FROB MOVE-FROM-SINGLE ...)
; compiling (FROB MOVE-FROM-DOUBLE ...)
; compiling (FROB MOVE-TO-SINGLE ...)
; compiling (FROB MOVE-TO-DOUBLE ...)
; compiling (FROB MOVE-SINGLE-FLOAT-ARG ...)
; compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 4) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 4) ...)
; compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...)
; compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-SINGLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-DOUBLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-COMPLEX-SINGLE-FLOAT-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-SINGLE-FLOAT-ARG ...)
; compiling (DEFINE-VOP (MOVE-COMPLEX-DOUBLE-FLOAT-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (FLOAT-OP) ...)
; compiling (FROB SINGLE-FLOAT-OP ...)
; compiling (FROB DOUBLE-FLOAT-OP ...)
; compiling (FROB + ...)
; compiling (FROB - ...)
; compiling (FROB * ...)
; compiling (FROB / ...)
; compiling (FROB ABS/SINGLE-FLOAT ...)
; compiling (FROB ABS/DOUBLE-FLOAT ...)
; compiling (FROB %NEGATE/SINGLE-FLOAT ...)
; compiling (FROB %NEGATE/DOUBLE-FLOAT ...)
; compiling (DEFINE-VOP (FSQRTD) ...)
; compiling (DEFINE-VOP (FSQRTS) ...)
; compiling (DEFINE-VOP (FLOAT-COMPARE) ...)
; compiling (FROB SINGLE-FLOAT-COMPARE ...)
; compiling (FROB DOUBLE-FLOAT-COMPARE ...)
; compiling (FROB < ...)
; compiling (FROB > ...)
; compiling (FROB = ...)
; compiling (DEFINE-VOP (FLOAT-COMPARE-ZERO) ...)
; compiling (FROB SINGLE-FLOAT-COMPARE-ZERO ...)
; compiling (FROB DOUBLE-FLOAT-COMPARE-ZERO ...)
; compiling (FROB < ...)
; compiling (FROB > ...)
; compiling (FROB = ...)
; compiling (FROB %SINGLE-FLOAT/SIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/SIGNED ...)
; compiling (FROB %SINGLE-FLOAT/UNSIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...)
; compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...)
; compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...)
; compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; compiling (FROB %UNARY-ROUND ...)
; compiling (FROB %UNARY-ROUND ...)
; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...)
; compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...)
; compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...)
; compiling (SB-XC:DEFTYPE FLOAT-MODES ...)
; compiling (DEFKNOWN FLOATING-POINT-MODES ...)
; compiling (DEFKNOWN (#) ...)
; compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...)
; compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (COMPLEX-SINGLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (COMPLEX-DOUBLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/float.lisp
; in: DEFINE-MOVE-FUN (LOAD-DOUBLE 2)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-MOVE-FUN (STORE-SINGLE 1)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-MOVE-FUN (LOAD-SINGLE 1)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; 
; caught STYLE-WARNING:
;   14 more uses of undefined function CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 4 STYLE-WARNING conditions
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/float.fasl-tmp written
; compilation finished in 0:00:13.854
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/sap.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MOVE-TO-SAP) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...)
; compiling (DEFINE-VOP (MOVE-FROM-SAP) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...)
; compiling (DEFINE-VOP (SAP-MOVE) ...)
; compiling (DEFINE-MOVE-VOP SAP-MOVE ...)
; compiling (DEFINE-VOP (MOVE-SAP-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (SAP-INT) ...)
; compiling (DEFINE-VOP (INT-SAP) ...)
; compiling (DEFINE-VOP (POINTER+) ...)
; compiling (DEFINE-VOP (POINTER+-UNSIGNED-C) ...)
; compiling (DEFINE-VOP (POINTER+-SIGNED-C) ...)
; in: LAMBDA (#:WHOLE854 #:ENVIRONMENT855)
;     (LET ((SB!VM::REF-NAME-C (SB!INT:SYMBOLICATE SB!VM::REF-NAME "-C"))
;           (SB!VM::SET-NAME-C (SB!INT:SYMBOLICATE SB!VM::SET-NAME "-C")))
;       (SB!INT:QUASIQUOTE
;        (PROGN
;         (SB!C:DEFINE-VOP (#)
;           (:TRANSLATE #)
;           (:POLICY :FAST-SAFE)
;           (:ARGS # #)
;           (:ARG-TYPES SB!SYS:SYSTEM-AREA-POINTER SB!VM::SIGNED-NUM)
;           (:RESULTS #)
;           (:RESULT-TYPES #)
;           #S(SB!IMPL::COMMA :EXPR # :KIND 2)
;           (:GENERATOR 5 # #))
;         (SB!C:DEFINE-VOP (#)
;           (:TRANSLATE #)
;           (:POLICY :FAST-SAFE)
;           (:ARGS # # #)
;           (:ARG-TYPES SB!SYS:SYSTEM-AREA-POINTER SB!VM::SIGNED-NUM #)
;           (:RESULTS #)
;           (:RESULT-TYPES #)
;           #S(SB!IMPL::COMMA :EXPR # :KIND 2)
;           (:GENERATOR 5 # # #)))))
; 
; caught STYLE-WARNING:
;   The variable REF-NAME-C is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SET-NAME-C is defined but never used.
; compiling (DEFINE-VOP (POINTER-) ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-8 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-LISPOBJ ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SINGLE ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-DOUBLE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-VOP (VECTOR-SAP) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/sap.fasl-tmp written
; compilation finished in 0:00:06.151
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/system.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LOWTAG-OF) ...)
; compiling (DEFINE-VOP (WIDETAG-OF) ...)
; compiling (DEFINE-VOP (FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...)
; compiling (DEFINE-VOP (SET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (POINTER-HASH) ...)
; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...)
; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...)
; compiling (DEFINE-VOP (COMPUTE-FUN) ...)
; compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...)
; compiling (DEFINE-VOP (SYMBOL-PLIST) ...)
; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...)
; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...)
; compiling (DEFINE-VOP (HALT) ...)
; compiling (DEFINE-VOP (SPIN-LOOP-HINT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/system.fasl-tmp written
; compilation finished in 0:00:02.331
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/char.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...)
; compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...)
; compiling (DEFINE-VOP (CHARACTER-MOVE) ...)
; compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...)
; compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (CHAR-CODE) ...)
; compiling (DEFINE-VOP (CODE-CHAR) ...)
; compiling (DEFINE-VOP (CHARACTER-COMPARE) ...)
; compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...)
; compiling (DEFINE-VOP (FAST-CHAR>/CHARACTER CHARACTER-COMPARE) ...)
; compiling (DEFINE-VOP (FAST-CHAR</CHARACTER CHARACTER-COMPARE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/char.fasl-tmp written
; compilation finished in 0:00:01.546
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/memory.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (CELL-REF) ...)
; compiling (DEFINE-VOP (CELL-SET) ...)
; compiling (DEFINE-VOP (SLOT-REF) ...)
; compiling (DEFINE-VOP (SLOT-SET) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/memory.fasl-tmp written
; compilation finished in 0:00:00.593
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...)
; compiling (DEFUN MOVES ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...)
; compiling (FROB 1 ...)
; compiling (FROB 2 ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in:
;      MACROLET ((FROB (NUM-ARGS NUM-RES)
;             (STATIC-FUN-TEMPLATE-VOP (EVAL NUM-ARGS) (EVAL NUM-RES))))
;     (SB!VM::FROB 2 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET 
; ==>
;   (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

;     (SB!VM::FROB 1 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET 
; ==>
;   (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

;     (SB!VM::FROB 2 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP
;    SB!VM::TEMP SB!VM::LIP SB!VM::LRA-LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

;     (SB!VM::FROB 1 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP
;    SB!VM::TEMP SB!VM::LIP SB!VM::LRA-LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES
; 
; compilation unit finished
;   Undefined functions:
;     CURRENT-NFP-TN DEFAULT-UNKNOWN-VALUES
;   caught 4 STYLE-WARNING conditions
; compiling (DEFMACRO DEFINE-STATIC-FUN ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/static-fn.fasl-tmp written
; compilation finished in 0:00:02.273
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/arith.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FIXNUM-UNOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (SIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (UNSIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP) ...)
; compiling (DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-NEGATE/UNSIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-LOGNOT/FIXNUM SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-FIXNUM-BINOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-SIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFMACRO DEFINE-BINOP ...)
; compiling (DEFINE-BINOP + ...)
; compiling (DEFINE-BINOP - ...)
; compiling (DEFINE-BINOP LOGAND ...)
; compiling (DEFINE-BINOP LOGANDC1 ...)
; compiling (DEFINE-BINOP LOGANDC2 ...)
; compiling (DEFINE-BINOP LOGIOR ...)
; compiling (DEFINE-BINOP LOGXOR ...)
; compiling (DEFINE-VOP (FAST-LOGIOR-UNSIGNED-SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-LOGIOR-SIGNED-UNSIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...)
; compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SIGNED-BINOP) ...)
; compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP) ...)
; compiling (DEFINE-VOP (FAST-LOGNOR/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-RIGHT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/SIGNED=>SIGNED FAST-ASH-C/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/SIGNED/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; compiling (DEF FAST-ASH-LEFT/FIXNUM=>FIXNUM ...)
; compiling (DEF FAST-ASH-LEFT/SIGNED=>SIGNED ...)
; compiling (DEF FAST-ASH-LEFT/UNSIGNED=>UNSIGNED ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...)
; compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...)
; compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...)
; compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...)
; compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...)
; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...)
; compiling (DEFINE-VOP (LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-MODULAR-BACKEND + ...)
; compiling (DEFINE-MODULAR-BACKEND - ...)
; compiling (DEFINE-MODULAR-BACKEND *)
; compiling (DEFINE-MODULAR-BACKEND LOGANDC1)
; compiling (DEFINE-MODULAR-BACKEND LOGANDC2)
; compiling (DEFINE-VOP (FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFMACRO DEFINE-CONDITIONAL-VOP ...)
; compiling (DEFINE-CONDITIONAL-VOP < ...)
; compiling (DEFINE-CONDITIONAL-VOP > ...)
; compiling (DEFINE-CONDITIONAL-VOP EQL ...)
; compiling (DEFINE-VOP (FAST-EQL/FIXNUM) ...)
; compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...)
; compiling (DEFINE-LOGTEST-VOPS)
; compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...)
; compiling (DEFKNOWN %LOGBITP ...)
; compiling (DEFUN %LOGBITP ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-SIGNUM-FIXNUM FIXNUM-UNOP) ...)
; compiling (DEFINE-VOP (FAST-SIGNUM-SIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-SIGNUM-UNSIGNED UNSIGNED-UNOP) ...)
; compiling (DEFINE-VOP (MASK-SIGNED-FIELD-WORD/C) ...)
; compiling (DEFINE-VOP (MASK-SIGNED-FIELD-BIGNUM/C) ...)
; compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...)
; compiling (DEFINE-FULL-REFFER BIGNUM-REF ...)
; compiling (DEFINE-FULL-SETTER BIGNUM-SET ...)
; compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...)
; compiling (DEFINE-VOP (ADD-W/CARRY) ...)
; compiling (DEFINE-VOP (SUB-W/BORROW) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT) ...)
; compiling (DEFINE-VOP (MULHI) ...)
; compiling (DEFINE-VOP (MULHI/FX) ...)
; compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (BIGNUM-FLOOR) ...)
; compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...)
; compiling (DEFINE-VOP (DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-+ ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-- ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-* ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-< ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-> ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-= ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-EQV ...)
; compiling (DEFINE-STATIC-FUN EQL ...)
; compiling (DEFINE-STATIC-FUN %NEGATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/arith.fasl-tmp written
; compilation finished in 0:00:21.772
; compiling file "/«PKGBUILDDIR»/src/code/cross-modular.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MASK-SIGNED-FIELD ...)
; compiling (DEFUN SB!VM::LOGNOT-MOD32 ...)
; compiling (DEFUN SB!VM::+-MOD32 ...)
; compiling (DEFUN SB!VM::--MOD32 ...)
; compiling (DEFUN SB!VM::*-MOD32 ...)
; compiling (DEFUN SB!VM::LOGANDC1-MOD32 ...)
; compiling (DEFUN SB!VM::LOGANDC2-MOD32 ...)
; compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-modular.fasl-tmp written
; compilation finished in 0:00:00.206
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN %TEST-FIXNUM ...)
; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...)
; compiling (DEFUN %TEST-IMMEDIATE ...)
; compiling (DEFUN %TEST-LOWTAG ...)
; compiling (DEFUN %TEST-HEADERS ...)
; compiling (DEFINE-VOP (CHECK-TYPE) ...)
; compiling (DEFINE-VOP (TYPE-PREDICATE) ...)
; compiling (DEFUN COST-TO-TEST-TYPES ...)
; compiling (DEFMACRO !DEFINE-TYPE-VOPS ...)
; compiling (DEFUN SIGNED-BYTE-32-TEST ...)
; compiling (DEFINE-VOP (SIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-32 CHECK-TYPE) ...)
; compiling (DEFUN UNSIGNED-BYTE-32-TEST ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-32 CHECK-TYPE) ...)
; compiling (DEFUN POWER-OF-TWO-LIMIT-P ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM) ...)
; compiling (DEFUN ENCODABLE-IMMEDIATE+1 ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM+1) ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...)
; compiling (DEFUN ENCODABLE-IMMEDIATE/+1 ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*-IMM) ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...)
; compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...)
; compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/type-vops.fasl-tmp written
; compilation finished in 0:00:02.611
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/subprim.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LENGTH/LIST) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/subprim.fasl-tmp written
; compilation finished in 0:00:00.146
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DEBUG-CUR-SP) ...)
; compiling (DEFINE-VOP (DEBUG-CUR-FP) ...)
; compiling (DEFINE-VOP (READ-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-FUN CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...)
; compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...)
; compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/debug.fasl-tmp written
; compilation finished in 0:00:00.827
; compiling file "/«PKGBUILDDIR»/src/compiler/early-aliencomp.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %ALIEN-FUNCALL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-aliencomp.fasl-tmp written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/c-call.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFCONSTANT +NUMBER-STACK-ALIGNMENT-MASK+ ...)
; compiling (DEFCONSTANT +MAX-REGISTER-ARGS+ ...)
; compiling (DEFUN MY-MAKE-WIRED-TN ...)
; compiling (DEFSTRUCT ARG-STATE ...)
; compiling (DEFSTRUCT (RESULT-STATE #) ...)
; compiling (DEFUN RESULT-REG-OFFSET ...)
; compiling (DEFUN REGISTER-ARGS-OFFSET ...)
; compiling (DEFUN INT-ARG ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...)
; compiling (DEFUN MAKE-CALL-OUT-TNS ...)
; compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...)
; compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...)
; compiling (DEFINE-VOP (CALL-OUT) ...)
; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...)
; compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/c-call.lisp
; in: DEFINE-VOP (CALL-OUT)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 1 STYLE-WARNING condition
; compiling (DEFTRANSFORM %ALIEN-FUNCALL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/c-call.fasl-tmp written
; compilation finished in 0:00:01.671
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/cell.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (SLOT) ...)
; compiling (DEFINE-VOP (SET-SLOT) ...)
; compiling (DEFINE-VOP (INIT-SLOT SET-SLOT))
; compiling (DEFINE-VOP (SET CELL-SET) ...)
; compiling (DEFINE-VOP (CHECKED-CELL-REF) ...)
; compiling (DEFINE-VOP (SYMBOL-VALUE CHECKED-CELL-REF) ...)
; compiling (DEFINE-VOP (BOUNDP-FROB) ...)
; compiling (DEFINE-VOP (BOUNDP BOUNDP-FROB) ...)
; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...)
; compiling (DEFINE-VOP (SYMBOL-HASH) ...)
; compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE SET))
; compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE FAST-SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...)
; compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (SET-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...)
; compiling (DEFINE-VOP (BIND) ...)
; compiling (DEFINE-VOP (UNBIND) ...)
; compiling (DEFINE-VOP (UNBIND-TO-HERE) ...)
; compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...)
; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...)
; compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...)
; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...)
; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...)
; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...)
; compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...)
; compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...)
; compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...)
; compiling (DEFINE-RAW-SLOT-VOPS WORD ...)
; compiling (DEFINE-RAW-SLOT-VOPS SINGLE ...)
; compiling (DEFINE-RAW-SLOT-VOPS DOUBLE ...)
; compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-SINGLE ...)
; compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-DOUBLE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/cell.fasl-tmp written
; compilation finished in 0:00:04.597
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/values.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (RESET-STACK-POINTER) ...)
; compiling (DEFINE-VOP (%%NIP-VALUES) ...)
; compiling (DEFINE-VOP (PUSH-VALUES) ...)
; compiling (DEFINE-VOP (VALUES-LIST) ...)
; compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/values.fasl-tmp written
; compilation finished in 0:00:02.385
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/alloc.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (MAKE-FDEFN) ...)
; compiling (DEFINE-VOP (MAKE-CLOSURE) ...)
; compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...)
; compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...)
; compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...)
; compiling (DEFINE-VOP (FIXED-ALLOC) ...)
; compiling (DEFINE-VOP (VAR-ALLOC) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/alloc.fasl-tmp written
; compilation finished in 0:00:02.338
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/call.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN STANDARD-ARG-LOCATION ...)
; compiling (DEFUN STANDARD-ARG-LOCATION-SC ...)
; compiling (DEFCONSTANT ARG-COUNT-SC ...)
; compiling (DEFCONSTANT CLOSURE-SC ...)
; compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...)
; compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...)
; compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...)
; compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...)
; compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...)
; compiling (DEFUN MAKE-NFP-TN ...)
; compiling (DEFUN MAKE-STACK-POINTER-TN ...)
; compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...)
; compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...)
; compiling (DEFUN SELECT-COMPONENT-FORMAT ...)
; compiling (DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ...)
; compiling (DEFINE-VOP (CURRENT-FP) ...)
; compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...)
; compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...)
; compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...)
; compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...)
; compiling (DEFINE-VOP (XEP-SETUP-SP) ...)
; compiling (DEFINE-VOP (ALLOCATE-FRAME) ...)
; compiling (DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME) ...)
; compiling (DEFUN DEFAULT-UNKNOWN-VALUES ...)
; compiling (DEFUN RECEIVE-UNKNOWN-VALUES ...)
; compiling (DEFINE-VOP (UNKNOWN-VALUES-RECEIVER) ...)
; compiling (DEFUN EMIT-BLOCK-HEADER ...)
; compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...)
; compiling (DEFINE-VOP (COPY-MORE-ARG) ...)
; compiling (DEFINE-FULL-REFFER MORE-ARG ...)
; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...)
; compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...)
; compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...)
; compiling (FROB ARG-COUNT-ERROR ...)
; compiling (FROB TYPE-CHECK-ERROR ...)
; compiling (FROB LAYOUT-INVALID-ERROR ...)
; compiling (FROB ODD-KEY-ARGS-ERROR ...)
; compiling (FROB UNKNOWN-KEY-ARG-ERROR ...)
; compiling (FROB NIL-FUN-RETURNED-ERROR ...)
; compiling (DEFINE-VOP (CALL-LOCAL) ...)
; compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...)
; compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...)
; compiling (DEFINE-VOP (KNOWN-RETURN) ...)
; compiling (DEFMACRO DEFINE-FULL-CALL ...)
; compiling (DEFINE-FULL-CALL CALL ...)
; compiling (DEFINE-FULL-CALL CALL-NAMED ...)
; compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...)
; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...)
; compiling (DEFINE-FULL-CALL TAIL-CALL ...)
; compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...)
; compiling (DEFINE-FULL-CALL CALL-VARIABLE ...)
; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...)
; compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...)
; compiling (DEFINE-VOP (RETURN-SINGLE) ...)
; compiling (DEFINE-VOP (RETURN) ...)
; compiling (DEFINE-VOP (RETURN-MULTIPLE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/call.lisp
; in: DEFINE-VOP (KNOWN-CALL-LOCAL)
;     (SB!C:CALLEE-NFP-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-NFP-TN

; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER)
;     (SB!C:CALLEE-NFP-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-NFP-TN

; in: DEFINE-VOP (CALL-LOCAL)
;     (SB!C:CALLEE-NFP-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-NFP-TN

; in: DEFINE-VOP (KNOWN-CALL-LOCAL)
;     (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-RETURN-PC-TN

; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER)
;     (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-RETURN-PC-TN

; in: DEFINE-VOP (CALL-LOCAL)
;     (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-RETURN-PC-TN

; in: DEFINE-VOP (COPY-MORE-ARG)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-VOP (XEP-SETUP-SP)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-VOP (COMPUTE-OLD-NFP)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; 
; caught STYLE-WARNING:
;   16 more uses of undefined function CURRENT-NFP-TN


; file: /«PKGBUILDDIR»/src/compiler/arm/call.lisp
; in: DEFINE-VOP (ALLOCATE-FRAME)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFINE-VOP (XEP-SETUP-SP)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME
;     (SB!C:SB-ALLOCATED-SIZE 'SB!C:NON-DESCRIPTOR-STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function SB-ALLOCATED-SIZE
; 
; compilation unit finished
;   Undefined functions:
;     CALLEE-NFP-TN CALLEE-RETURN-PC-TN CURRENT-NFP-TN SB-ALLOCATED-SIZE
;   caught 14 STYLE-WARNING conditions
; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/call.fasl-tmp written
; compilation finished in 0:00:08.287
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN MAKE-NLX-SP-TN ...)
; compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...)
; compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...)
; compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...)
; compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...)
; compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (NLX-ENTRY) ...)
; compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...)
; compiling (DEFINE-VOP (UWP-ENTRY) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/nlx.lisp
; in: DEFINE-VOP (RESTORE-DYNAMIC-STATE)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-VOP (SAVE-DYNAMIC-STATE)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/nlx.fasl-tmp written
; compilation finished in 0:00:02.215
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/late-nlx.fasl-tmp written
; compilation finished in 0:00:00.036
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/show.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")

; file: /«PKGBUILDDIR»/src/compiler/arm/show.lisp
; in: DEFINE-VOP (PRINT)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 1 STYLE-WARNING condition
; compiling (DEFINE-VOP (PRINT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/show.fasl-tmp written
; compilation finished in 0:00:00.207
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/array.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...)
; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER/C) ...)
; compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...)
; compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...)
; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...)
; compiling (DEFINE-VOP (CHECK-BOUND) ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...)
; compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/array.fasl-tmp written
; compilation finished in 0:00:08.920
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/type-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/type-error.fasl-tmp written
; compilation finished in 0:00:00.512
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/pred.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (BRANCH) ...)
; compiling (DEFINE-VOP (BRANCH-IF) ...)
; compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...)
; compiling (DEFINE-VOP (IF-EQ) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/pred.fasl-tmp written
; compilation finished in 0:00:00.271
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEFINE-TYPE-VOPS FIXNUMP ...)
; compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...)
; compiling (!DEFINE-TYPE-VOPS LISTP ...)
; compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...)
; compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS BIGNUMP ...)
; compiling (!DEFINE-TYPE-VOPS RATIOP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEXP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...)
; compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS)
; compiling (DEF)
; compiling (!DEFINE-TYPE-VOPS CHARACTERP ...)
; compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...)
; compiling (!DEFINE-TYPE-VOPS LRA-P ...)
; compiling (!DEFINE-TYPE-VOPS FDEFN-P ...)
; compiling (!DEFINE-TYPE-VOPS CLOSUREP ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...)
; compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...)
; compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...)
; compiling (!DEFINE-TYPE-VOPS STRINGP ...)
; compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...)
; compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...)
; compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...)
; compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...)
; compiling (!DEFINE-TYPE-VOPS VECTORP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...)
; compiling (!DEFINE-TYPE-VOPS ARRAYP ...)
; compiling (!DEFINE-TYPE-VOPS NUMBERP ...)
; compiling (!DEFINE-TYPE-VOPS RATIONALP ...)
; compiling (!DEFINE-TYPE-VOPS INTEGERP ...)
; compiling (!DEFINE-TYPE-VOPS FLOATP ...)
; compiling (!DEFINE-TYPE-VOPS REALP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/late-type-vops.fasl-tmp written
; compilation finished in 0:00:13.985
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/assem-rtns.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/assem-rtns.fasl-tmp written
; compilation finished in 0:00:00.553
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/array.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-HEAP # ...) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-STACK # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/array.fasl-tmp written
; compilation finished in 0:00:00.521
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/arith.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (SIGNED-TRUNCATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/arith.fasl-tmp written
; compilation finished in 0:00:00.211
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/alloc.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/alloc.fasl-tmp written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/src/compiler/pseudo-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...)
; compiling (DEFINE-VOP (MOVE-OPERAND) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/pseudo-vops.fasl-tmp written
; compilation finished in 0:00:00.112
; compiling file "/«PKGBUILDDIR»/src/compiler/aliencomp.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %SAP-ALIEN ...)
; compiling (DEFKNOWN ALIEN-SAP ...)
; compiling (DEFKNOWN SLOT ...)
; compiling (DEFKNOWN %SET-SLOT ...)
; compiling (DEFKNOWN %SLOT-ADDR ...)
; compiling (DEFKNOWN DEREF ...)
; compiling (DEFKNOWN %SET-DEREF ...)
; compiling (DEFKNOWN %DEREF-ADDR ...)
; compiling (DEFKNOWN %HEAP-ALIEN ...)
; compiling (DEFKNOWN %SET-HEAP-ALIEN ...)
; compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...)
; compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...)
; compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...)
; compiling (DEFKNOWN LOCAL-ALIEN ...)
; compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; compiling (DEFKNOWN %SET-LOCAL-ALIEN ...)
; compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...)
; compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...)
; compiling (DEFKNOWN %CAST ...)
; compiling (DEFKNOWN NATURALIZE ...)
; compiling (DEFKNOWN DEPORT ...)
; compiling (DEFKNOWN DEPORT-ALLOC ...)
; compiling (DEFKNOWN %ALIEN-VALUE ...)
; compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...)
; compiling (DEFKNOWN ALIEN-FUNCALL ...)
; compiling (DEFTRANSFORM SLOT ...)
; compiling (DEFTRANSFORM %SET-SLOT ...)
; compiling (DEFTRANSFORM %SLOT-ADDR ...)
; compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...)
; compiling (DEFTRANSFORM SLOT ...)
; compiling (DEFTRANSFORM %SET-SLOT ...)
; compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %SLOT-ADDR ...)

; file: /«PKGBUILDDIR»/src/compiler/aliencomp.lisp
; in: DEFUN FIND-DEREF-ALIEN-TYPE
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; note: deleting unreachable code
; compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...)
; compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...)
; compiling (DEFUN COMPUTE-DEREF-GUTS ...)
; compiling (DEFTRANSFORM DEREF ...)
; compiling (DEFTRANSFORM %SET-DEREF ...)
; compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %DEREF-ADDR ...)
; compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...)
; compiling (DEFTRANSFORM %HEAP-ALIEN ...)
; compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...)
; compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...)
; compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...)
; compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...)
; compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...)
; compiling (DEFTRANSFORM LOCAL-ALIEN ...)
; compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...)
; compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...)
; compiling (DEFTRANSFORM DISPOSE-LOCAL-ALIEN ...)
; compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %CAST ...)
; compiling (DEFTRANSFORM ALIEN-SAP ...)
; compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %SAP-ALIEN ...)
; compiling (FLET (#) ...)
; compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...)
; compiling (DEFTRANSFORM / ...)
; compiling (DEFTRANSFORM ASH ...)
; compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; compiling (DEFVAR *SAVED-FP-AND-PCS* ...)
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (DEFUN FIND-SAVED-FP-AND-PC ...)
; compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...)

; file: /«PKGBUILDDIR»/src/compiler/aliencomp.lisp
; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE)
;     (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: ANNOTATE-ORDINARY-LVAR

; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT)
;     (SB!C::EMIT-MOVE SB!C:CALL BLOCK (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG)
;      SB!C::TEMP-TN)
; 
; caught STYLE-WARNING:
;   undefined function: EMIT-MOVE

;     (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TN

;     (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: MOVE-LVAR-RESULT
; 
; compilation unit finished
;   Undefined functions:
;     ANNOTATE-ORDINARY-LVAR EMIT-MOVE LVAR-TN MOVE-LVAR-RESULT
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/aliencomp.fasl-tmp written
; compilation finished in 0:00:02.094
; compiling file "/«PKGBUILDDIR»/src/compiler/ltv.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %LOAD-TIME-VALUE ...)
; compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/ltv.lisp
; in: DEF-IR1-TRANSLATOR LOAD-TIME-VALUE
;     (SB!INT:QUASIQUOTE
;      (SB!KERNEL:VALUE-CELL-REF
;       #S(SB!IMPL::COMMA :EXPR (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE) :KIND 0)))
; --> SB!IMPL::|List| 
; ==>
;   (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-VALUE-CELL

; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT)
;     (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: MOVE-LVAR-RESULT
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-VALUE-CELL MOVE-LVAR-RESULT
;   caught 2 STYLE-WARNING conditions
; compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ltv.fasl-tmp written
; compilation finished in 0:00:00.271
; compiling file "/«PKGBUILDDIR»/src/compiler/gtn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN GTN-ANALYZE ...)
; compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...)
; compiling (DEFUN ASSIGN-IR2-PHYSENV ...)
; compiling (DEFUN USE-STANDARD-RETURNS ...)
; compiling (DEFUN RETURN-VALUE-EFFICIENCY-NOTE ...)
; compiling (DEFUN RETURN-INFO-FOR-SET ...)
; compiling (DEFUN ASSIGN-RETURN-LOCATIONS ...)
; compiling (DEFUN ASSIGN-IR2-NLX-INFO ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/gtn.fasl-tmp written
; compilation finished in 0:00:00.539
; compiling file "/«PKGBUILDDIR»/src/compiler/ltn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NODE-LTN-POLICY ...)
; compiling (DEFUN LTN-POLICY-SAFE-P ...)
; compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...)
; compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...)
; compiling (DECLAIM (INLINE LVAR-PTYPE))
; compiling (DEFUN LVAR-PTYPE ...)
; compiling (DEFUN LVAR-DELAYED-LEAF ...)
; compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...)
; compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...)
; compiling (DEFUN ANNOTATE-FUN-LVAR ...)
; compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...)
; compiling (DEFUN LTN-DEFAULT-CALL ...)
; compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...)
; compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...)
; compiling (DEFUN LTN-ANALYZE-RETURN ...)
; compiling (DEFUN LTN-ANALYZE-MV-BIND ...)
; compiling (DEFUN LTN-ANALYZE-MV-CALL ...)
; compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...)
; compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...)
; compiling (DEFUN LTN-ANALYZE-SET ...)
; compiling (DEFUN LTN-ANALYZE-IF ...)
; compiling (DEFUN LTN-ANALYZE-EXIT ...)
; compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC LTN-ANNOTATE) ...)
; compiling (DEFUN OPERAND-RESTRICTION-OK ...)
; compiling (DEFUN TEMPLATE-ARGS-OK ...)
; compiling (DEFUN TEMPLATE-RESULTS-OK ...)
; compiling (DEFUN IS-OK-TEMPLATE-USE ...)
; compiling (DEFUN FIND-TEMPLATE ...)
; compiling (DEFUN FIND-TEMPLATE-FOR-LTN-POLICY ...)
; compiling (DEFVAR *EFFICIENCY-NOTE-LIMIT* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *EFFICIENCY-NOTE-COST-THRESHOLD* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFUN STRANGE-TEMPLATE-FAILURE ...)
; compiling (DEFUN NOTE-REJECTED-TEMPLATES ...)
; compiling (DEFUN LTN-ANALYZE-KNOWN-CALL ...)
; compiling (DEFUN LTN-ANALYZE-CAST ...)
; compiling (DEFUN LTN-ANNOTATE-CASTS ...)
; compiling (DEFUN LTN-ANNOTATE-CAST ...)
; compiling (DEFUN LTN-ANALYZE-BLOCK ...)
; compiling (DEFUN LTN-ANALYZE ...)
; compiling (DEFUN LTN-ANALYZE-BELATED-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ltn.fasl-tmp written
; compilation finished in 0:00:03.138
; compiling file "/«PKGBUILDDIR»/src/compiler/stack.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-PUSHED-LVARS ...)
; compiling (DEFUN NLE-BLOCK-NLX-INFO ...)
; compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...)
; compiling (DEFUN MERGE-UVL-LIVE-SETS ...)
; compiling (DEFUN FIND-LOWEST-COMMON-DOMINATOR ...)
; compiling (DEFUN BACK-PROPAGATE-ONE-DX-LVAR ...)
; compiling (DEFUN BACK-PROPAGATE-DX-LVARS ...)
; compiling (DEFUN UPDATE-UVL-LIVE-SETS ...)
; compiling (DEFUN ORDERED-LIST-INTERSECTION ...)
; compiling (DEFUN ORDERED-LIST-UNION ...)
; compiling (DEFUN ORDER-BLOCK-UVL-SETS ...)
; compiling (DEFUN ORDER-UVL-SETS ...)
; compiling (DEFUN INSERT-STACK-CLEANUPS ...)
; compiling (DEFUN FIND-PUSHING-BLOCKS ...)

; file: /«PKGBUILDDIR»/src/compiler/stack.lisp
; in: DEFUN INSERT-STACK-CLEANUPS
;     (SB!C::ADD-TO-EMIT-ORDER SB!C::2BLOCK (SB!C::BLOCK-INFO SB!C::BLOCK1))
; 
; caught STYLE-WARNING:
;   undefined function: ADD-TO-EMIT-ORDER
; 
; compilation unit finished
;   Undefined function:
;     ADD-TO-EMIT-ORDER
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN STACK-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/stack.fasl-tmp written
; compilation finished in 0:00:01.319
; compiling file "/«PKGBUILDDIR»/src/compiler/control.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ADD-TO-EMIT-ORDER ...)
; compiling (DEFUN FIND-ROTATED-LOOP-HEAD ...)
; compiling (DEFUN CONTROL-ANALYZE-BLOCK ...)
; compiling (DEFUN CONTROL-ANALYZE-1-FUN ...)
; compiling (DEFEVENT CONTROL-DELETED-BLOCK ...)
; compiling (DEFUN CONTROL-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/control.fasl-tmp written
; compilation finished in 0:00:00.841
; compiling file "/«PKGBUILDDIR»/src/compiler/entry.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ENTRY-ANALYZE ...)
; compiling (DEFUN COMPUTE-ENTRY-INFO ...)
; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/entry.fasl-tmp written
; compilation finished in 0:00:00.284
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN EMIT-MOVE ...)
; compiling (DEFUN EMIT-STEP-P ...)
; compiling (DEFUN TYPE-CHECK-TEMPLATE ...)
; compiling (DEFUN EMIT-TYPE-CHECK ...)
; compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...)
; compiling (DEFUN EMIT-MAKE-VALUE-CELL ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/ir2tran.lisp
; in: DEFUN FIND-IN-PHYSENV
;     (DEFUN SB!C::FIND-IN-PHYSENV (SB!C::THING SB!C::PHYSENV)
;       (OR (CDR (ASSOC SB!C::THING (SB!C::IR2-PHYSENV-CLOSURE #)))
;           (ETYPECASE SB!C::THING
;             (SB!C::LAMBDA-VAR (SB!INT:AVER #) (SB!C::LEAF-INFO SB!C::THING))
;             (SB!C::NLX-INFO (SB!INT:AVER #) (SB!C::IR2-NLX-INFO-HOME #))
;             (SB!C::CLAMBDA (SB!INT:AVER #) (SB!C::ENTRY-INFO-CLOSURE-TN #)))
;           (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" SB!C::THING
;                       SB!C::PHYSENV)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::FIND-IN-PHYSENV
;         (SB!C::THING SB!C::PHYSENV)
;       (BLOCK SB!C::FIND-IN-PHYSENV
;         (OR (CDR (ASSOC SB!C::THING #))
;             (ETYPECASE SB!C::THING
;               (SB!C::LAMBDA-VAR # #)
;               (SB!C::NLX-INFO # #)
;               (SB!C::CLAMBDA # #))
;             (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" SB!C::THING
;                         SB!C::PHYSENV))))
; 
; note: type assertion too complex to check:
;  (VALUES TN &REST T).
; compiling (DEFUN FIND-IN-PHYSENV ...)
; compiling (DEFUN CONSTANT-TN ...)
; compiling (DEFUN LEAF-TN ...)
; compiling (DEFUN EMIT-CONSTANT ...)
; compiling (DEFUN %RETURN-IS-BOXED ...)
; compiling (DEFUN BOXED-REF-P ...)
; compiling (DEFUN IR2-CONVERT-REF ...)
; compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...)
; compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...)
; compiling (DEFUN IR2-CONVERT-CLOSURE ...)
; compiling (DEFUN CLOSURE-INITIAL-VALUE ...)
; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT-SET ...)
; compiling (DEFUN LVAR-TN ...)
; compiling (DEFUN LVAR-TNS ...)
; compiling (DEFUN LVAR-RESULT-TNS ...)
; compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...)
; compiling (DEFUN STANDARD-RESULT-TNS ...)
; compiling (DEFUN MOVE-RESULTS-COERCED ...)
; compiling (DEFUN MOVE-RESULTS-CHECKED ...)
; compiling (DEFUN MOVE-LVAR-RESULT ...)
; compiling (DEFUN IR2-CONVERT-CAST ...)
; compiling (DEFUN REFERENCE-ARGS ...)
; compiling (DEFUN IR2-CONVERT-CONDITIONAL ...)
; compiling (DEFUN IR2-CONVERT-IF ...)
; compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...)
; compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...)
; compiling (DEFUN IR2-CONVERT-TEMPLATE ...)
; compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...)
; compiling (DEFUN IR2-CONVERT-LET ...)
; compiling (DEFUN EMIT-PSETQ-MOVES ...)
; compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...)
; compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...)
; compiling (DEFUN FUN-LVAR-TN ...)
; compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...)
; compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...)
; compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...)
; compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...)
; compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *TRACK-FULL-CALLED-FNAMES* ...)
; compiling (DEFUN PONDER-FULL-CALL ...)
; compiling (DEFUN IR2-CONVERT-FULL-CALL ...)
; compiling (DEFUN XEP-VERIFY-ARG-COUNT ...)
; compiling (DEFUN INIT-XEP-ENVIRONMENT ...)
; compiling (DEFUN SAVE-BSP ...)
; compiling (DEFUN IR2-CONVERT-BIND ...)
; compiling (DEFUN IR2-CONVERT-RETURN ...)
; compiling (DEFOPTIMIZER (%CALLER-FRAME IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT-MV-BIND ...)
; compiling (DEFUN IR2-CONVERT-MV-CALL ...)
; compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...)
; compiling (DEF-IR1-TRANSLATOR PROGV ...)
; compiling (DEFUN IR2-CONVERT-EXIT ...)
; compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT-THROW ...)
; compiling (DEFUN EMIT-NLX-START ...)
; compiling (DEFUN IR2-CONVERT-ENTRY ...)
; compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...)
; compiling (DEF LIST)
; compiling (DEF LIST*)
; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT ...)
; compiling (DEFUN FINISH-IR2-BLOCK ...)
; 
; compilation unit finished
;   printed 1 note
; compiling (DEFUN IR2-CONVERT-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir2tran.fasl-tmp written
; compilation finished in 0:00:07.518
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...)
; compiling (DEFUN EMIT-INITS ...)
; compiling (DEFUN EMIT-FIXED-ALLOC ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...)
; compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...)
; compiling (LET (#) ...)
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-ir2tran.fasl-tmp written
; compilation finished in 0:00:02.489
; compiling file "/«PKGBUILDDIR»/src/compiler/copyprop.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN TN-IS-COPY-OF ...)
; compiling (DEFUN INIT-COPY-SETS ...)
; compiling (DEFUN COPY-FLOW-ANALYSIS ...)
; compiling (DEFEVENT COPY-DELETED-MOVE ...)
; compiling (DEFUN OK-COPY-REF ...)
; compiling (DEFUN PROPAGATE-COPIES ...)
; compiling (DEFUN COPY-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/copyprop.fasl-tmp written
; compilation finished in 0:00:00.576
; compiling file "/«PKGBUILDDIR»/src/compiler/represent.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN GET-OPERAND-INFO
;     (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN GET-OPERAND-INFO ...)
; compiling (DEFUN LISTIFY-RESTRICTIONS ...)
; compiling (DEFUN BAD-COSTS-ERROR ...)
; compiling (DEFUN BAD-COERCE-ERROR ...)
; compiling (DEFUN BAD-MOVE-ARG-ERROR ...)
; compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...)
; compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...)
; compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...)
; compiling (DEFUN ADD-REPRESENTATION-COSTS ...)

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN SELECT-TN-REPRESENTATION
;     (DEFUN SB!C::SELECT-TN-REPRESENTATION (SB!C:TN SB!C::SCS SB!C::COSTS)
;       (DECLARE (TYPE SB!C:TN SB!C:TN)
;                (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;                (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;       (DOLIST (SB!C::SCN SB!C::SCS) (SETF (SVREF SB!C::COSTS SB!C::SCN) 0))
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS
;        SB!C::COSTS #'SB!C::VOP-ARGS #'SB!C::VOP-INFO-ARG-COSTS
;        #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS
;        SB!C::COSTS #'SB!C::VOP-RESULTS #'SB!C::VOP-INFO-RESULT-COSTS
;        #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;       (LET ((MIN MOST-POSITIVE-FIXNUM) (SB!C::MIN-SCN NIL) (SB!C::UNIQUE NIL))
;         (DOLIST (SB!C::SCN SB!C::SCS)
;           (LET (#)
;             (COND # #)))
;         (VALUES (SVREF SB!C:*BACKEND-SC-NUMBERS* SB!C::MIN-SCN) SB!C::UNIQUE)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SB!C::SELECT-TN-REPRESENTATION
;                    (SB-INT:NAMED-LAMBDA SB!C::SELECT-TN-REPRESENTATION
;                        (SB!C:TN SB!C::SCS SB!C::COSTS)
;                      (DECLARE (TYPE SB!C:TN SB!C:TN)
;                               (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;                               (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;                      (BLOCK SB!C::SELECT-TN-REPRESENTATION
;                        (DOLIST (SB!C::SCN SB!C::SCS) (SETF #))
;                        (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN)
;                         SB!C::SCS SB!C::COSTS #'SB!C::VOP-ARGS
;                         #'SB!C::VOP-INFO-ARG-COSTS
;                         #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;                        (SB!C::ADD-REPRESENTATION-COSTS
;                         (SB!C::TN-WRITES SB!C:TN) SB!C::SCS SB!C::COSTS
;                         #'SB!C::VOP-RESULTS #'SB!C::VOP-INFO-RESULT-COSTS
;                         #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;                        (LET (# # #)
;                          (DOLIST # #)
;                          (VALUES # SB!C::UNIQUE))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB!C::ADD-REPRESENTATION-COSTS could not be inlined because its source
;   code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be
;   in effect to save function definitions for inlining.
; compiling (DEFUN SELECT-TN-REPRESENTATION ...)
; compiling (DEFUN NOTE-NUMBER-STACK-TN ...)
; compiling (DEFUN GET-OPERAND-NAME ...)
; compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...)
; compiling (DEFUN FIND-MOVE-VOP ...)
; compiling (DEFUN EMIT-COERCE-VOP ...)
; compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS))
; compiling (DEFUN COERCE-SOME-OPERANDS ...)
; compiling (DEFUN COERCE-VOP-OPERANDS ...)
; compiling (DEFUN EMIT-ARG-MOVES ...)
; compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...)
; compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK))
; compiling (DEFUN NOTE-IF-NUMBER-STACK ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; compiling (DEFUN SELECT-REPRESENTATIONS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/represent.fasl-tmp written
; compilation finished in 0:00:02.568
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *2BLOCK-PRED*)
; compiling (DEFVAR *2BLOCK-SUCC*)
; compiling (DEFVAR *LABEL-2BLOCK*)
; compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...)
; compiling (DEFUN UPDATE-BLOCK-SUCC ...)
; compiling (DECLAIM (INLINE VOP-NAME))
; compiling (DEFUN VOP-NAME ...)
; compiling (DEFUN MOVE-VALUE-TARGET ...)
; compiling (DEFUN CMOVP ...)
; compiling (DECLAIM (INLINE CONVERT-ONE-CMOV))
; compiling (DEFUN CONVERT-ONE-CMOV ...)
; compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...)
; compiling (DEFUN CONVERT-CMOVS ...)
; compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...)
; compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...)
; compiling (DEFUN IR2-OPTIMIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir2opt.fasl-tmp written
; compilation finished in 0:00:00.589
; compiling file "/«PKGBUILDDIR»/src/compiler/pack.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!REGALLOC")
; compiling (DEFVAR *PACK-ASSIGN-COSTS* ...)
; compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CONFLICTS-IN-SC ...)
; compiling (DEFUN ADD-LOCATION-CONFLICTS ...)
; compiling (DEFUN FIND-LOCATION-USAGE ...)
; compiling (DEFUN IR2-BLOCK-COUNT ...)
; compiling (DEFUN INIT-SB-VECTORS ...)
; compiling (DEFUN GROW-SC ...)
; compiling (DEFUN NO-LOAD-FUN-ERROR ...)
; compiling (DEFUN FAILED-TO-PACK-ERROR ...)
; compiling (DEFUN DESCRIBE-TN-USE ...)
; compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...)
; compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...)
; compiling (DEFUN NOTE-SPILLED-TN ...)
; compiling (DEFUN PACK-SAVE-TN ...)
; compiling (DEFUN EMIT-OPERAND-LOAD ...)
; compiling (DEFUN REVERSE-FIND-VOP ...)
; compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...)
; compiling (DEFUN FIND-SINGLE-WRITER ...)
; compiling (DEFUN SAVE-SINGLE-WRITER-TN ...)
; compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...)
; compiling (DEFUN BASIC-SAVE-TN ...)
; compiling (DEFUN EMIT-SAVES ...)
; compiling (DEFUN SAVE-IF-NECESSARY ...)
; compiling (DEFUN RESTORE-TN ...)
; compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...)
; compiling (DEFUN OPTIMIZED-EMIT-SAVES ...)
; compiling (DEFVAR *TN-WRITE-COST* ...)
; compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...)
; compiling (DEFUN ASSIGN-TN-COSTS ...)
; compiling (DEFUN ASSIGN-TN-DEPTHS ...)
; compiling (DEFVAR *LIVE-BLOCK*)
; compiling (DEFVAR *LIVE-VOP*)
; compiling (DEFVAR *REPACK-BLOCKS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFUN INIT-LIVE-TNS ...)
; compiling (DEFUN COMPUTE-LIVE-TNS ...)
; compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...)
; compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...)
; compiling (DEFUN FIND-LOAD-TN-TARGET ...)
; compiling (DEFUN SELECT-LOAD-TN-LOCATION ...)
; compiling (DEFEVENT UNPACK-TN ...)
; compiling (DEFUN UNPACK-TN ...)
; compiling (DEFEVENT UNPACK-FALLBACK ...)

; file: /«PKGBUILDDIR»/src/compiler/pack.lisp
; in: DEFUN UNPACK-FOR-LOAD-TN
;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN UNPACK-FOR-LOAD-TN ...)
; compiling (DEFUN PACK-LOAD-TN ...)
; compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS))
; compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...)
; compiling (DEFUN PACK-LOAD-TNS ...)
; compiling (DEFUN TARGET-IF-DESIRABLE ...)
; compiling (DEFUN CHECK-OK-TARGET ...)
; compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS))
; compiling (DEFUN %CALL-WITH-TARGET-TNS ...)
; compiling (DEFMACRO DO-TARGET-TNS ...)
; compiling (DEFUN FIND-OK-TARGET-OFFSET ...)
; compiling (DEFUN SELECT-LOCATION ...)
; compiling (DEFUN ORIGINAL-TN ...)
; compiling (DECLAIM (INLINE UNBOUNDED-SC-P))
; compiling (DEFUN UNBOUNDED-SC-P ...)
; compiling (DEFUN UNBOUNDED-TN-P ...)
; compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P))
; compiling (DEFUN PACK-TN ...)
; compiling (DEFUN PACK-WIRED-TN ...)
; compiling (DEFEVENT REPACK-BLOCK ...)
; compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...)
; compiling (DEFUN TN-LEXICAL-DEPTH ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...)
; compiling (DECLAIM (FTYPE FUNCTION ...))
; compiling (DEFUN PACK ...)

; file: /«PKGBUILDDIR»/src/compiler/pack.lisp
; in: DEFUN DESCRIBE-TN-USE
;     (SB!C::PRINT-TN-GUTS SB!C:TN STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-TN-GUTS
; 
; compilation unit finished
;   Undefined function:
;     PRINT-TN-GUTS
;   caught 1 STYLE-WARNING condition
;   printed 4 notes
; compiling (DEFUN PACK-GREEDY ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/pack.fasl-tmp written
; compilation finished in 0:00:08.554
; compiling file "/«PKGBUILDDIR»/src/compiler/pack-iterative.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!REGALLOC")
; compiling (DEFSTRUCT (ORDERED-SET # ...) ...)
; compiling (DEFUN OSET-ADJOIN ...)
; compiling (DEFUN OSET-DELETE ...)
; compiling (DEFUN OSET-MEMBER ...)
; compiling (DEFMACRO DO-OSET-ELEMENTS ...)
; compiling (DEF!STRUCT (VERTEX # ...) ...)
; compiling (DECLAIM (INLINE VERTEX-SC))
; compiling (DEFUN VERTEX-SC ...)
; compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...)
; compiling (DEFUN INSERT-ONE-EDGE ...)
; compiling (DEFUN BLOCK-GTNS ...)
; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...)
; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...)
; compiling (DEFUN INSERT-CONFLICT-EDGES ...)
; compiling (DEFUN RESTRICTED-TN-LOCATIONS ...)
; compiling (DEFUN PREPARE-VERTICES ...)
; compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...)
; compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...)
; compiling (DEFUN COLOR-NO-CONFLICTS-P ...)
; compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...)
; compiling (DEFUN VERTEX-DOMAIN ...)
; compiling (DEFUN VERTEX-TARGET-VERTICES ...)
; compiling (DEFUN VERTICES-BEST-COLOR ...)
; compiling (DEFUN FIND-VERTEX-COLOR ...)
; compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...)
; compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...)
; compiling (DEFVAR *PACK-ITERATIONS* ...)
; compiling (DEFUN ITERATE-COLOR ...)
; compiling (DEFUN PACK-COLORED ...)
; compiling (DEFUN PACK-ITERATIVE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/pack-iterative.fasl-tmp written
; compilation finished in 0:00:02.616
; compiling file "/«PKGBUILDDIR»/src/compiler/codegen.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN COMPONENT-HEADER-LENGTH ...)
; compiling (DEFUN SB-ALLOCATED-SIZE ...)
; compiling (DEFUN CURRENT-NFP-TN ...)
; compiling (DEFUN CALLEE-NFP-TN ...)
; compiling (DEFUN CALLEE-RETURN-PC-TN ...)
; compiling (DEFVAR *CODE-SEGMENT* ...)
; compiling (DEFVAR *ELSEWHERE* ...)
; compiling (DEFVAR *ELSEWHERE-LABEL* ...)
; compiling (DEFVAR *PREV-SEGMENT*)
; compiling (DEFVAR *PREV-VOP*)
; compiling (DEFUN TRACE-INSTRUCTION ...)
; compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...)
; compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...)
; compiling (DEFUN INIT-ASSEMBLER ...)
; compiling (DEFUN GENERATE-CODE ...)
; compiling (DEFUN EMIT-LABEL-ELSEWHERE ...)

; file: /«PKGBUILDDIR»/src/compiler/codegen.lisp
; in: DEFUN TRACE-INSTRUCTION
;     (SB!C::PRINT-VOP SB!C::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-VOP
; 
; compilation unit finished
;   Undefined function:
;     PRINT-VOP
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN LABEL-ELSEWHERE-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/codegen.fasl-tmp written
; compilation finished in 0:00:00.590
; compiling file "/«PKGBUILDDIR»/src/compiler/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *ARGS* ...)
; compiling (DEFVAR *IGNORED-ERRORS* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BARF ...)
; compiling (DEFVAR *BURP-ACTION* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BURP ...)
; compiling (DEFVAR *SEEN-BLOCKS*)
; compiling (DEFVAR *SEEN-FUNS*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-NODE-REACHED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-IR1-CONSISTENCY ...)
; compiling (DEFUN OBSERVE-FUNCTIONAL ...)
; compiling (DEFUN CHECK-FUN-REACHED ...)
; compiling (DEFUN CHECK-FUN-STUFF ...)
; compiling (DEFUN CHECK-FUN-CONSISTENCY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...)
; compiling (DEFUN CHECK-DEST ...)
; compiling (DEFUN CHECK-NODE-CONSISTENCY ...)
; compiling (DEFUN CHECK-TN-REFS ...)
; compiling (DEFUN CHECK-VOP-REFS ...)
; compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...)
; compiling (DEFUN CHECK-IR2-CONSISTENCY ...)
; compiling (DEFUN PRE-PACK-TN-STATS ...)
; compiling (DEFUN CHECK-MORE-TN-ENTRY ...)
; compiling (DEFUN CHECK-TN-CONFLICTS ...)
; compiling (DEFUN CHECK-BLOCK-CONFLICTS ...)
; compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...)
; compiling (DEFUN CHECK-LIFE-CONSISTENCY ...)
; compiling (DEFUN CHECK-PACK-CONSISTENCY ...)
; compiling (DEF *CONTINUATION-NUMBER* ...)
; compiling (DEF *TN-ID* ...)
; compiling (DEF *LABEL-ID* ...)
; compiling (DEFUN PRINT-LEAF ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-OR-LOSE ...)
; compiling (DEFUN PRINT-CTRAN ...)
; compiling (DEFUN PRINT-LVAR ...)
; compiling (DEFUN PRINT-LVAR-STACK ...)
; compiling (DEFUN PRINT-NODES ...)
; compiling (DEFUN PRINT-TN-GUTS ...)
; compiling (DEFUN PRINT-OPERANDS ...)
; compiling (DEFUN PRINT-VOP ...)
; compiling (DEFUN PRINT-IR2-BLOCK ...)
; compiling (DEFUN PRINT-VOPS ...)
; compiling (DEFUN PRINT-IR2-BLOCKS ...)
; compiling (DEFUN PRINT-BLOCKS ...)
; compiling (DEFUN PRINT-ALL-BLOCKS ...)
; compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...)
; compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...)
; compiling (DEFUN ADD-ALL-LOCAL-TNS ...)
; compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...)
; compiling (DEFUN LIST-CONFLICTS ...)
; compiling (DEFUN NTH-VOP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/debug.fasl-tmp written
; compilation finished in 0:00:06.160
; compiling file "/«PKGBUILDDIR»/src/code/format-time.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFPARAMETER *ABBREV-WEEKDAY-TABLE* ...)
; compiling (DEFPARAMETER *LONG-WEEKDAY-TABLE* ...)
; compiling (DEFPARAMETER *ABBREV-MONTH-TABLE* ...)
; compiling (DEFPARAMETER *LONG-MONTH-TABLE* ...)
; compiling (DEFPARAMETER *TIMEZONE-TABLE* ...)
; compiling (DEFPARAMETER *DAYLIGHT-TABLE* ...)
; compiling (DEFUN VALID-DESTINATION-P ...)
; compiling (DEFUN FORMAT-UNIVERSAL-TIME ...)
; compiling (DEFUN TIMEZONE-NAME ...)
; compiling (DEFUN FORMAT-DECODED-TIME ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/format-time.fasl-tmp written
; compilation finished in 0:00:00.561
; compiling file "/«PKGBUILDDIR»/src/code/error.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN STYLE-WARN ...)
; compiling (DEFUN COERCE-TO-CONDITION ...)
; compiling (DEFINE-CONDITION LAYOUT-INVALID ...)
; compiling (DEFINE-CONDITION CASE-FAILURE ...)
; compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...)
; compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...)
; compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...)
; compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...)
; compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...)
; compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...)
; compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...)
; compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...)
; compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...)
; compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...)
; compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...)
; compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...)
; compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...)
; compiling (DEFINE-CONDITION SYSTEM-CONDITION ...)
; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...)
; compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...)
; compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/error.fasl-tmp written
; compilation finished in 0:00:00.719
; compiling file "/«PKGBUILDDIR»/src/code/macroexpand.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...)
; compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...)
; compiling (DEFUN SB-XC:MACROEXPAND-1 ...)
; compiling (DEFUN SB-XC:MACROEXPAND ...)
; compiling (DEFUN %MACROEXPAND-1 ...)
; compiling (DEFUN %MACROEXPAND ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/macroexpand.fasl-tmp written
; compilation finished in 0:00:00.133
; compiling file "/«PKGBUILDDIR»/src/code/late-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN LIST-WITH-LENGTH-P ...)
; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...)
; compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...)
; compiling (DEFUN EXPAND-ATOMIC-FROB ...)
; compiling (DEF!MACRO ATOMIC-INCF ...)
; compiling (DEFMACRO ATOMIC-DECF ...)
; compiling (DEFUN SPIN-LOOP-HINT ...)
; compiling (DEFUN CALL-HOOKS ...)
; compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...)
; compiling (DEFUN %COMPILER-DEFGLOBAL ...)
; compiling (DEFUN %DEFGLOBAL ...)
; compiling (DEFUN %%WAIT-FOR ...)
; compiling (DEFUN %WAIT-FOR ...)
; compiling (DEFMACRO WAIT-FOR ...)
; compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...)
; compiling (DEFMACRO ATOMIC-UPDATE ...)
; compiling (DEFMACRO ATOMIC-PUSH ...)
; compiling (DEFMACRO ATOMIC-POP ...)
; compiling (DEFUN SPLIT-VERSION-STRING ...)
; compiling (DEFUN VERSION>= ...)

; file: /«PKGBUILDDIR»/src/code/late-extensions.lisp
; in: DEFUN %%WAIT-FOR
;     (SB!SYS:DECODE-INTERNAL-TIME (GET-INTERNAL-REAL-TIME))
; 
; caught STYLE-WARNING:
;   undefined function: DECODE-INTERNAL-TIME

; in: DEFUN %WAIT-FOR
;     (SB!SYS:DECODE-TIMEOUT SB!EXT:TIMEOUT)
; 
; caught STYLE-WARNING:
;   undefined function: DECODE-TIMEOUT

; in: DEFMACRO ATOMIC-POP
;     (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-CAS-EXPANSION

; in: DEFMACRO ATOMIC-PUSH
;     (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-CAS-EXPANSION

; in: DEFMACRO ATOMIC-UPDATE
;     (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-CAS-EXPANSION

; in: DEFUN %%WAIT-FOR
;     (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC)
; 
; caught STYLE-WARNING:
;   undefined function: SB!UNIX:NANOSLEEP

; in: DEFUN %WAIT-FOR
;     (SB!SYS:SIGNAL-DEADLINE)
; 
; caught STYLE-WARNING:
;   undefined function: SIGNAL-DEADLINE

; in: DEFUN %%WAIT-FOR
;     (SB!SYS:WITH-INTERRUPTS (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC))
; 
; caught STYLE-WARNING:
;   undefined function: WITH-INTERRUPTS
; 
; compilation unit finished
;   Undefined functions:
;     DECODE-INTERNAL-TIME DECODE-TIMEOUT GET-CAS-EXPANSION SB!UNIX:NANOSLEEP SIGNAL-DEADLINE WITH-INTERRUPTS
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN ASSERT-VERSION->= ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-extensions.fasl-tmp written
; compilation finished in 0:00:02.001
; compiling file "/«PKGBUILDDIR»/src/code/early-step.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *STEPPING* ...)
; compiling (DEFVAR *STEP-OUT* ...)
; compiling (DEFUN (SETF STEPPING) ...)
; compiling (DEFUN STEPPING-ENABLED-P ...)
; compiling (DEFUN ENABLE-STEPPING ...)
; compiling (DEFUN DISABLE-STEPPING ...)
; compiling (DEFMACRO WITH-STEPPING-ENABLED ...)
; compiling (DEFMACRO WITH-STEPPING-DISABLED ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-step.fasl-tmp written
; compilation finished in 0:00:00.078
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro-errors.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; compiling (DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; compiling (DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...)
; compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...)
; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/parse-defmacro-errors.fasl-tmp written
; compilation finished in 0:00:00.284
; compiling file "/«PKGBUILDDIR»/src/code/cl-specials.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "COMMON-LISP")
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/obj/from-host/src/code/cl-specials.fasl-tmp written
; compilation finished in 0:00:00.033
; compiling file "/«PKGBUILDDIR»/src/compiler/late-proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*))
; compiling (!COLD-INIT-FORMS (MAPCAR # ...))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/late-proclaim.fasl-tmp written
; compilation finished in 0:00:00.014
; compiling file "/«PKGBUILDDIR»/src/code/defboot.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...)
; compiling (DEFUN LIST-OF-SYMBOLS-P ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...)
; compiling (DEFMACRO-MUNDANELY COND ...)
; compiling (DEFMACRO-MUNDANELY WHEN ...)
; compiling (DEFMACRO-MUNDANELY UNLESS ...)
; compiling (DEFMACRO-MUNDANELY AND ...)
; compiling (DEFMACRO-MUNDANELY OR ...)
; compiling (FLET (#) ...)
; compiling (DEFMACRO-MUNDANELY PROG1 ...)
; compiling (DEFMACRO-MUNDANELY PROG2 ...)
; compiling (DEFUN INLINE-FUN-NAME-P ...)
; compiling (DEFMACRO-MUNDANELY DEFUN ...)
; compiling (DEFMACRO-MUNDANELY DEFVAR ...)
; compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...)
; compiling (DEFUN %COMPILER-DEFVAR ...)
; compiling (DEFMACRO-MUNDANELY DO ...)
; compiling (DEFMACRO-MUNDANELY DO* ...)
; compiling (DEFMACRO-MUNDANELY DOTIMES ...)
; compiling (DEFMACRO-MUNDANELY DOLIST ...)
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SETF (INFO :VARIABLE ...) ...)
; compiling (SETF (INFO :VARIABLE ...) ...)
; compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...)
; compiling (DEFMACRO-MUNDANELY RESTART-BIND ...)
; compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...)
; compiling (DEFMACRO-MUNDANELY RESTART-CASE ...)
; compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...)
; compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...)
; compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...)
; compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...)
; compiling (DEFMACRO-MUNDANELY RETURN ...)
; compiling (DEFMACRO-MUNDANELY LAMBDA ...)
; compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...)
; compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defboot.fasl-tmp written
; compilation finished in 0:00:01.058
; compiling file "/«PKGBUILDDIR»/src/code/destructuring-bind.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/destructuring-bind.fasl-tmp written
; compilation finished in 0:00:00.029
; compiling file "/«PKGBUILDDIR»/src/code/setf.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...)
; compiling (DEFUN MACROEXPAND-FOR-SETF ...)
; compiling (LABELS (# # ...) ...)
; compiling (DEFMACRO-MUNDANELY ROTATEF ...)
; compiling (DEFMACRO-MUNDANELY PUSH ...)
; compiling (DEFMACRO-MUNDANELY PUSHNEW ...)
; compiling (DEFMACRO-MUNDANELY POP ...)
; compiling (DEFMACRO-MUNDANELY REMF ...)
; compiling (DEFUN %REMF ...)
; compiling (DECLAIM (INLINE XSUBTRACT))
; compiling (DEFUN XSUBTRACT ...)
; compiling (FLET (#) ...)
; compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...)
; compiling (DEFUN %DEFSETF ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;     (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;       (MACROLET ((SB!IMPL::ASSIGN-IT ()
;                    (SB!INT:QUASIQUOTE #)))
;         (DEFUN SB!IMPL::%DEFSETF
;                (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;                 SB!IMPL::INVERSE SB!IMPL::DOC)
;           (DECLARE (IGNORE SB!IMPL::EXPANDER-LAMBDA-LIST))
;           (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SB!IMPL::NAME
;                                                        "defining a setf-expander for ~A"))
;           (LET (#)
;             (MULTIPLE-VALUE-BIND # # #))
;           (SB!IMPL::ASSIGN-IT))
;         (DEFUN SB!IMPL::!QUIETLY-DEFSETF
;                (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;                 SB!IMPL::INVERSE SB!IMPL::DOC)
;           (SB!IMPL::ASSIGN-IT))))
; 
; caught STYLE-WARNING:
;   The variable EXPANDER-LAMBDA-LIST is defined but never used.

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: DEFUN !QUIETLY-DEFSETF
;     (DEFUN SB!IMPL::!QUIETLY-DEFSETF
;            (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;             SB!IMPL::INVERSE SB!IMPL::DOC)
;       (SB!IMPL::ASSIGN-IT))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!IMPL::!QUIETLY-DEFSETF
;         (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;          SB!IMPL::INVERSE SB!IMPL::DOC)
;       (BLOCK SB!IMPL::!QUIETLY-DEFSETF (SB!IMPL::ASSIGN-IT)))
; 
; caught STYLE-WARNING:
;   The variable EXPANDER-LAMBDA-LIST is defined but never used.
; compiling (DEFUN !QUIETLY-DEFSETF ...)
; compiling (DEF!MACRO SB-XC:DEFSETF ...)
; compiling (DEFUN COLLECT-SETF-TEMPS ...)
; compiling (DEFUN MAKE-SIMPLE-SETF-QUINTUPLE ...)
; compiling (DEFUN MAKE-SETF-QUINTUPLE ...)
; compiling (DEFUN EXPAND-RMW-MACRO ...)
; compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...)
; compiling (SB-XC:DEFSETF GET ...)
; compiling (SB-XC:DEFSETF GETHASH ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...)
; compiling (DEFUN SETF-EXPAND-THE ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/setf.fasl-tmp written
; compilation finished in 0:00:03.143
; compiling file "/«PKGBUILDDIR»/src/code/macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY ASSERT ...)
; compiling (DEFUN ASSERT-PROMPT ...)
; compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...)
; compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...)
; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; compiling (DEF (:COMPILE-TOPLEVEL) ...)
; compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...)
; compiling (DEFUN CASE-BODY ...)
; compiling (DEFUN CASE-BODY-AUX ...)
; compiling (DEFMACRO-MUNDANELY CASE ...)
; compiling (DEFMACRO-MUNDANELY CCASE ...)
; compiling (DEFMACRO-MUNDANELY ECASE ...)
; compiling (DEFMACRO-MUNDANELY TYPECASE ...)
; compiling (DEFMACRO-MUNDANELY CTYPECASE ...)
; compiling (DEFMACRO-MUNDANELY ETYPECASE ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...)
; compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...)
; compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...)
; compiling (DEFMACRO-MUNDANELY NTH-VALUE ...)
; compiling (DEFMACRO-MUNDANELY DECLAIM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...)
; compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...)
; compiling (DEFUN FUNARG-BIND/CALL-FORMS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/macros.fasl-tmp written
; compilation finished in 0:00:01.466
; compiling file "/«PKGBUILDDIR»/src/code/loop.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!LOOP")
; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...)
; compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...)
; compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...)
; compiling (DEFUN MAKE-LOOP-MINIMAX ...)
; compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...)
; compiling (DEFUN LOOP-TEQUAL ...)
; compiling (DEFUN LOOP-TASSOC ...)
; compiling (DEFUN LOOP-TMEMBER ...)
; compiling (DEFUN LOOP-LOOKUP-KEYWORD ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...)
; compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...)
; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFVAR *LOOP-UNIVERSE*)
; compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...)
; compiling (DEFUN LOOP-MAKE-PSETQ ...)
; compiling (DEFUN LOOP-MAKE-DESETQ ...)
; compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...)
; compiling (DEFVAR *LOOP-SOURCE-CODE*)
; compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*)
; compiling (DEFVAR *LOOP-SOURCE-CONTEXT*)
; compiling (DEFVAR *LOOP-NAMES*)
; compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*)
; compiling (DEFVAR *LOOP-NAMED-VARS*)
; compiling (DEFVAR *LOOP-VARS*)
; compiling (DEFVAR *LOOP-DECLARATIONS*)
; compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*)
; compiling (DEFVAR *LOOP-DESETQ*)
; compiling (DEFVAR *LOOP-WRAPPERS*)
; compiling (DEFVAR *LOOP-BIND-STACK*)
; compiling (DEFVAR *LOOP-PROLOGUE*)
; compiling (DEFVAR *LOOP-BEFORE-LOOP*)
; compiling (DEFVAR *LOOP-BODY*)
; compiling (DEFVAR *LOOP-AFTER-BODY*)
; compiling (DEFVAR *LOOP-EMITTED-BODY*)
; compiling (DEFVAR *LOOP-EPILOGUE*)
; compiling (DEFVAR *LOOP-AFTER-EPILOGUE*)
; compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*)
; compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*)
; compiling (DEFVAR *LOOP-WHEN-IT-VAR*)
; compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*)
; compiling (DEFVAR *LOOP-COLLECTION-CRUFT*)
; compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...)
; compiling (DEFUN LOOP-CONTEXT ...)
; compiling (DEFUN LOOP-ERROR ...)
; compiling (DEFUN LOOP-WARN ...)
; compiling (DEFUN LOOP-CHECK-DATA-TYPE ...)
; compiling (DEFUN TRANSFORM-DESTRUCTURING ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND ...)
; compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...)
; compiling (DEFUN LOOP-TRANSLATE ...)
; compiling (DEFUN LOOP-ITERATION-DRIVER ...)
; compiling (DEFUN LOOP-POP-SOURCE ...)
; compiling (DEFUN LOOP-GET-FORM ...)
; compiling (DEFUN LOOP-GET-COMPOUND-FORM ...)
; compiling (DEFUN LOOP-GET-PROGN ...)
; compiling (DEFUN LOOP-CONSTRUCT-RETURN ...)
; compiling (DEFUN LOOP-PSEUDO-BODY ...)
; compiling (DEFUN LOOP-EMIT-BODY ...)
; compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...)
; compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...)
; compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...)
; compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...)
; compiling (DEFUN LOOP-TYPED-INIT ...)
; compiling (DEFUN LOOP-OPTIONAL-TYPE ...)
; compiling (DEFUN LOOP-BIND-BLOCK ...)
; compiling (DEFUN CHECK-VAR-NAME ...)
; compiling (DEFUN LOOP-MAKE-VAR ...)
; compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...)
; compiling (DEFUN LOOP-DECLARE-VAR ...)
; compiling (DEFUN LOOP-MAYBE-BIND-FORM ...)
; compiling (DEFUN LOOP-DO-IF ...)
; compiling (DEFUN LOOP-DO-INITIALLY ...)
; compiling (DEFUN LOOP-DO-FINALLY ...)
; compiling (DEFUN LOOP-DO-DO ...)
; compiling (DEFUN LOOP-DO-NAMED ...)
; compiling (DEFUN LOOP-DO-RETURN ...)
; compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...)
; compiling (DEFUN LOOP-GET-COLLECTION-INFO ...)
; compiling (DEFUN LOOP-LIST-COLLECTION ...)
; compiling (DEFUN LOOP-SUM-COLLECTION ...)
; compiling (DEFUN LOOP-MAXMIN-COLLECTION ...)
; compiling (DEFUN LOOP-DO-ALWAYS ...)
; compiling (DEFUN LOOP-DO-THEREIS ...)
; compiling (DEFUN LOOP-DO-WHILE ...)
; compiling (DEFUN LOOP-DO-REPEAT ...)
; compiling (DEFUN LOOP-DO-WITH ...)
; compiling (DEFUN LOOP-HACK-ITERATION ...)
; compiling (DEFUN LOOP-DO-FOR ...)
; compiling (DEFUN LOOP-WHEN-IT-VAR ...)
; compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...)
; compiling (DEFUN LOOP-FOR-ACROSS ...)
; compiling (DEFUN LOOP-LIST-STEP ...)
; compiling (DEFUN LOOP-FOR-ON ...)
; compiling (DEFUN LOOP-FOR-IN ...)
; compiling (DEFSTRUCT (LOOP-PATH # ...) ...)
; compiling (DEFUN ADD-LOOP-PATH ...)
; compiling (DEFUN LOOP-FOR-BEING ...)
; compiling (DEFUN LOOP-NAMED-VAR ...)
; compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...)
; compiling (DEFUN LOOP-SEQUENCER ...)
; compiling (DEFUN LOOP-FOR-ARITHMETIC ...)
; compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...)
; compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...)
; compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...)
; compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...)
; compiling (DEFUN LOOP-STANDARD-EXPANSION ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/loop.fasl-tmp written
; compilation finished in 0:00:04.651
; compiling file "/«PKGBUILDDIR»/src/code/cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!MACRO CAS ...)
; compiling (DEFUN GET-CAS-EXPANSION ...)
; compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...)
; compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...)
; compiling (DEF!MACRO DEFCAS ...)
; compiling (DEF!MACRO COMPARE-AND-SWAP ...)
; compiling (DEF %COMPARE-AND-SWAP-CAR ...)
; compiling (DEF %COMPARE-AND-SWAP-CDR ...)
; compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...)

; file: /«PKGBUILDDIR»/src/code/cas.lisp
; in: DEF %COMPARE-AND-SWAP-SYMBOL-INFO
;     (SB!IMPL::DEF SB!KERNEL:%COMPARE-AND-SWAP-SYMBOL-INFO (SYMBOL)
;      SB!KERNEL:SYMBOL-INFO)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK PROGN LET WHEN IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:SYMBOL-INFO) #:NEW172 #:SYMBOL173)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SYMBOL-INFO)
; 
; compilation unit finished
;   Undefined function:
;     (SETF SYMBOL-INFO)
;   caught 1 STYLE-WARNING condition
; compiling (DEF %COMPARE-AND-SWAP-SVREF ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cas.fasl-tmp written
; compilation finished in 0:00:00.828
; compiling file "/«PKGBUILDDIR»/src/code/late-cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFCAS CAR ...)
; compiling (DEFCAS CDR ...)
; compiling (DEFCAS FIRST ...)
; compiling (DEFCAS REST ...)
; compiling (DEFCAS SYMBOL-PLIST ...)
; compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...)
; compiling (DEFINE-CAS-EXPANDER SVREF ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-cas.fasl-tmp written
; compilation finished in 0:00:00.926
; compiling file "/«PKGBUILDDIR»/src/code/late-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FORMAT")
; compiling (DEFINE-CONDITION FORMAT-ERROR ...)
; compiling (DEFUN %PRINT-FORMAT-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/late-format.lisp
; in: DEF!STRUCT FORMAT-DIRECTIVE
;     (SB!INT:DEF!STRUCT SB!FORMAT::FORMAT-DIRECTIVE
;                        (STRING (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING)
;                        (SB!FORMAT::START (SB!INT:MISSING-ARG) :TYPE
;                         (AND UNSIGNED-BYTE FIXNUM))
;                        (SB!FORMAT::END (SB!INT:MISSING-ARG) :TYPE
;                         (AND UNSIGNED-BYTE FIXNUM))
;                        (CHARACTER (SB!INT:MISSING-ARG) :TYPE CHARACTER)
;                        (SB!FORMAT::COLONP NIL :TYPE (MEMBER T NIL))
;                        (SB!FORMAT::ATSIGNP NIL :TYPE (MEMBER T NIL))
;                        (SB!FORMAT::PARAMS NIL :TYPE LIST))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!FORMAT::FORMAT-DIRECTIVE {51DE0D49}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F099BE9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F099C29}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51D557F1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!FORMAT::FORMAT-DIRECTIVE-P,
;   SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER, SB!FORMAT::FORMAT-DIRECTIVE-COLONP,
;   SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP and SB!FORMAT::FORMAT-DIRECTIVE-PARAMS
;   could not be inlined because the structure definition for
;   SB!FORMAT::FORMAT-DIRECTIVE was not yet seen. To avoid this warning, DEFSTRUCT
;   should precede references to the affected functions, or they must be declared
;   locally notinline at each call site.
; compiling (DEF!STRUCT FORMAT-DIRECTIVE ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN TOKENIZE-CONTROL-STRING ...)
; compiling (DEFUN PARSE-DIRECTIVE ...)
; compiling (SB-XC:DEFMACRO FORMATTER ...)
; compiling (DEFUN %FORMATTER ...)
; compiling (DEFUN ARGS-EXHAUSTED ...)
; compiling (DEFUN EXPAND-CONTROL-STRING ...)
; compiling (DEFUN EXPAND-DIRECTIVE-LIST ...)
; compiling (DEFUN EXPAND-DIRECTIVE ...)
; compiling (DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG ...)
; compiling (DEFUN EXPAND-NEXT-ARG ...)
; compiling (DEFMACRO EXPAND-BIND-DEFAULTS ...)
; compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...)
; compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...)
; compiling (DEFUN FIND-DIRECTIVE ...)
; compiling (DEF-FORMAT-DIRECTIVE #\A ...)
; compiling (DEF-FORMAT-DIRECTIVE #\S ...)
; compiling (DEF-FORMAT-DIRECTIVE #\C ...)
; compiling (DEF-FORMAT-DIRECTIVE #\W ...)
; compiling (DEFUN EXPAND-FORMAT-INTEGER ...)
; compiling (DEF-FORMAT-DIRECTIVE #\D ...)
; compiling (DEF-FORMAT-DIRECTIVE #\B ...)
; compiling (DEF-FORMAT-DIRECTIVE #\O ...)
; compiling (DEF-FORMAT-DIRECTIVE #\X ...)
; compiling (DEF-FORMAT-DIRECTIVE #\R ...)
; compiling (DEF-FORMAT-DIRECTIVE #\P ...)
; compiling (DEF-FORMAT-DIRECTIVE #\F ...)
; compiling (DEF-FORMAT-DIRECTIVE #\E ...)
; compiling (DEF-FORMAT-DIRECTIVE #\G ...)
; compiling (DEF-FORMAT-DIRECTIVE #\$ ...)
; compiling (DEF-FORMAT-DIRECTIVE #\% ...)
; compiling (DEF-FORMAT-DIRECTIVE #\& ...)
; compiling (DEF-FORMAT-DIRECTIVE #\| ...)
; compiling (DEF-FORMAT-DIRECTIVE #\~ ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline ...)
; compiling (DEF-FORMAT-DIRECTIVE #\T ...)
; compiling (DEF-FORMAT-DIRECTIVE #\_ ...)
; compiling (DEF-FORMAT-DIRECTIVE #\I ...)
; compiling (DEF-FORMAT-DIRECTIVE #\* ...)
; compiling (DEF-FORMAT-DIRECTIVE #\? ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\( ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\) ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\[ ...)
; compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...)
; compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...)
; compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\; ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\] ...)
; compiling (DEF-FORMAT-DIRECTIVE #\^ ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\{ ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\} ...)
; compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...)
; compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\< ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\> ...)
; compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...)
; compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...)
; compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...)
; compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...)
; compiling (SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...)
; compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...)
; compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...)
; compiling (DEF-FORMAT-DIRECTIVE #\/ ...)
; compiling (DEFUN EXTRACT-USER-FUN-NAME ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN %COMPILER-WALK-FORMAT-STRING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-format.fasl-tmp written
; compilation finished in 0:00:05.548
; compiling file "/«PKGBUILDDIR»/src/code/sxhash.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)

; file: /«PKGBUILDDIR»/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
;     (SB!C::LVAR-VALUE SB!C::X)
; ==>
;   SB!C::X
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SXHASH ...)

; file: /«PKGBUILDDIR»/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
;     (SB!C::LVAR-VALUE SB!C::X)
; ==>
;   SB!C::X
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM PSXHASH ...)
; 
; compilation unit finished
;   printed 2 notes
; compiling (DEFTRANSFORM PSXHASH ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/sxhash.fasl-tmp written
; compilation finished in 0:00:00.245
; compiling file "/«PKGBUILDDIR»/src/code/signal.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!UNIX")
; compiling (!DEFVAR *INTERRUPTS-ENABLED* ...)
; compiling (!DEFVAR *INTERRUPT-PENDING* ...)
; compiling (!DEFVAR *ALLOW-WITH-INTERRUPTS* ...)
; compiling (!DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...)
; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...)
; compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...)
; compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...)

; file: /«PKGBUILDDIR»/src/code/signal.lisp
; in: DEFUN %CHECK-INTERRUPTS
;     (SB!UNIX::RECEIVE-PENDING-INTERRUPT)
; 
; caught STYLE-WARNING:
;   undefined function: RECEIVE-PENDING-INTERRUPT
; 
; compilation unit finished
;   Undefined function:
;     RECEIVE-PENDING-INTERRUPT
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN %CHECK-INTERRUPTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/signal.fasl-tmp written
; compilation finished in 0:00:00.170
; compiling file "/«PKGBUILDDIR»/src/code/late-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-defbangmethod.fasl-tmp written
; compilation finished in 0:00:00.015
creating directory: /«PKGBUILDDIR»/obj/from-host/src/pcl/
; compiling file "/«PKGBUILDDIR»/src/pcl/walk.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB!WALKER")
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*)
; compiling (/SHOW "walk.lisp 108")
; compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...)
; compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...)
; compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...)
; compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...)
; compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...)
; compiling (DEFUN ENVIRONMENT-FUNCTION ...)
; compiling (DEFUN ENVIRONMENT-MACRO ...)
; compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...)
; compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...)
; compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...)
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...)
; compiling (DEFUN ENV-LOCK ...)
; compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...)
; compiling (DEFUN ENV-WALK-FUNCTION ...)
; compiling (DEFUN ENV-WALK-FORM ...)
; compiling (DEFUN ENV-DECLARATIONS ...)
; compiling (DEFUN ENV-VAR-TYPE ...)
; compiling (DEFUN ENV-LEXICAL-VARIABLES ...)
; compiling (DEFUN NOTE-DECLARATION ...)
; compiling (DEFUN NOTE-VAR-BINDING ...)
; compiling (DEFUN VAR-LEXICAL-P ...)
; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...)
; compiling (DEFUN VAR-GLOBALLY-SYMBOL-MACRO-P ...)
; compiling (DEFUN WALKED-VAR-DECLARATION-P ...)
; compiling (DEFUN %VAR-DECLARATION ...)
; compiling (DEFUN VAR-DECLARATION ...)
; compiling (DEFUN VAR-SPECIAL-P ...)
; compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...)
; compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...)
; compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...)
; compiling (DEFUN GET-WALKER-TEMPLATE ...)
; compiling (DEFINE-WALKER-TEMPLATE BLOCK ...)
; compiling (DEFINE-WALKER-TEMPLATE CATCH ...)
; compiling (DEFINE-WALKER-TEMPLATE DECLARE ...)
; compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...)
; compiling (DEFINE-WALKER-TEMPLATE FLET ...)
; compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...)
; compiling (DEFINE-WALKER-TEMPLATE GO ...)
; compiling (DEFINE-WALKER-TEMPLATE IF ...)
; compiling (DEFINE-WALKER-TEMPLATE LABELS ...)
; compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...)
; compiling (DEFINE-WALKER-TEMPLATE LET ...)
; compiling (DEFINE-WALKER-TEMPLATE LET* ...)
; compiling (DEFINE-WALKER-TEMPLATE LOAD-TIME-VALUE ...)
; compiling (DEFINE-WALKER-TEMPLATE LOCALLY ...)
; compiling (DEFINE-WALKER-TEMPLATE MACROLET ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-CALL ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-PROG1 ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-SETQ ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-BIND ...)
; compiling (DEFINE-WALKER-TEMPLATE PROGN ...)
; compiling (DEFINE-WALKER-TEMPLATE PROGV ...)
; compiling (DEFINE-WALKER-TEMPLATE QUOTE ...)
; compiling (DEFINE-WALKER-TEMPLATE RETURN-FROM ...)
; compiling (DEFINE-WALKER-TEMPLATE SETQ ...)
; compiling (DEFINE-WALKER-TEMPLATE SYMBOL-MACROLET ...)
; compiling (DEFINE-WALKER-TEMPLATE TAGBODY ...)
; compiling (DEFINE-WALKER-TEMPLATE THE ...)
; compiling (DEFINE-WALKER-TEMPLATE THROW ...)
; compiling (DEFINE-WALKER-TEMPLATE UNWIND-PROTECT ...)
; compiling (DEFINE-WALKER-TEMPLATE TRULY-THE ...)
; compiling (DEFINE-WALKER-TEMPLATE NAMED-LAMBDA ...)
; compiling (DEFVAR *WALK-FORM-EXPAND-MACROS-P* ...)
; compiling (DEFUN WALK-FORM ...)
; compiling (DEFUN WALK-FORM-INTERNAL ...)
; compiling (DEFUN WALK-TEMPLATE ...)
; compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT ...)
; compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1 ...)
; compiling (DEFUN WALK-REPEAT-EVAL ...)
; compiling (DEFUN RECONS ...)
; compiling (DEFUN RELIST ...)
; compiling (DEFUN RELIST* ...)
; compiling (DEFUN RELIST-INTERNAL ...)
; compiling (DEFUN WALK-DECLARATIONS ...)
; compiling (DEFUN WALK-UNEXPECTED-DECLARE ...)
; compiling (DEFUN WALK-ARGLIST ...)
; compiling (DEFUN WALK-LET ...)
; compiling (DEFUN LET*-BINDING-NAME ...)
; compiling (DEFUN LET*-BINDING-INIT ...)
; compiling (DEFUN LET*-BINDINGS ...)
; compiling (DEFUN WALK-LET* ...)
; compiling (DEFUN WALK-LOAD-TIME-VALUE ...)
; compiling (DEFUN WALK-LOCALLY ...)
; compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...)
; compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...)
; compiling (DEFUN WALK-BINDINGS-1 ...)
; compiling (DEFUN WALK-LAMBDA ...)
; compiling (DEFUN WALK-NAMED-LAMBDA ...)
; compiling (DEFUN WALK-SETQ ...)
; compiling (DEFUN WALK-SYMBOL-MACROLET ...)
; compiling (DEFUN WALK-TAGBODY ...)
; compiling (DEFUN WALK-TAGBODY-1 ...)
; compiling (DEFUN WALK-MACROLET ...)
; compiling (DEFUN WALK-FLET ...)
; compiling (DEFUN WALK-LABELS ...)

; file: /«PKGBUILDDIR»/src/pcl/walk.lisp
; in: DEFUN CONVERT-MACRO-TO-LAMBDA
;     (SB!INT:EVAL-IN-LEXENV
;      (SB!INT:QUASIQUOTE
;       (DEFMACRO #S(SB!IMPL::COMMA :EXPR GENSYM :KIND 0)
;                 #S(SB!IMPL::COMMA :EXPR SB!WALKER::LLIST :KIND 0)
;         #S(SB!IMPL::COMMA :EXPR SB!WALKER::BODY :KIND 2)))
;      (SB!C::MAKE-RESTRICTED-LEXENV SB!WALKER::ENV))
; 
; caught STYLE-WARNING:
;   undefined function: EVAL-IN-LEXENV
; 
; compilation unit finished
;   Undefined function:
;     EVAL-IN-LEXENV
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN WALK-IF ...)

; /«PKGBUILDDIR»/obj/from-host/src/pcl/walk.fasl-tmp written
; compilation finished in 0:00:02.130
* 
T
* 
T
* LATIN SMALL LETTER SHARP S
LATIN SMALL LETTER KRA
LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
LATIN SMALL LETTER TURNED DELTA
LATIN SMALL LETTER LAMBDA WITH STROKE
LATIN LETTER REVERSED ESH LOOP
LATIN SMALL LETTER T WITH PALATAL HOOK
LATIN SMALL LETTER EZH WITH TAIL
LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE
LATIN SMALL LETTER J WITH CARON
LATIN SMALL LETTER D WITH CURL
LATIN SMALL LETTER L WITH CURL
LATIN SMALL LETTER N WITH CURL
LATIN SMALL LETTER T WITH CURL
LATIN SMALL LETTER DOTLESS J
LATIN SMALL LETTER DB DIGRAPH
LATIN SMALL LETTER QP DIGRAPH
LATIN SMALL LETTER C WITH CURL
LATIN SMALL LETTER REVERSED E
LATIN SMALL LETTER SCHWA WITH HOOK
LATIN SMALL LETTER REVERSED OPEN E WITH HOOK
LATIN SMALL LETTER CLOSED REVERSED OPEN E
LATIN SMALL LETTER DOTLESS J WITH STROKE
LATIN LETTER SMALL CAPITAL G
LATIN SMALL LETTER RAMS HORN
LATIN SMALL LETTER HENG WITH HOOK
LATIN LETTER SMALL CAPITAL I
LATIN SMALL LETTER L WITH RETROFLEX HOOK
LATIN SMALL LETTER LEZH
LATIN SMALL LETTER TURNED M WITH LONG LEG
LATIN SMALL LETTER N WITH RETROFLEX HOOK
LATIN LETTER SMALL CAPITAL N
LATIN LETTER SMALL CAPITAL OE
LATIN SMALL LETTER CLOSED OMEGA
LATIN SMALL LETTER PHI
LATIN SMALL LETTER TURNED R
LATIN SMALL LETTER TURNED R WITH LONG LEG
LATIN SMALL LETTER TURNED R WITH HOOK
LATIN SMALL LETTER R WITH LONG LEG
LATIN SMALL LETTER R WITH FISHHOOK
LATIN SMALL LETTER REVERSED R WITH FISHHOOK
LATIN LETTER SMALL CAPITAL INVERTED R
LATIN SMALL LETTER S WITH HOOK
LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK
LATIN SMALL LETTER SQUAT REVERSED ESH
LATIN SMALL LETTER ESH WITH CURL
LATIN SMALL LETTER TURNED W
LATIN SMALL LETTER TURNED Y
LATIN LETTER SMALL CAPITAL Y
LATIN SMALL LETTER Z WITH RETROFLEX HOOK
LATIN SMALL LETTER Z WITH CURL
LATIN SMALL LETTER EZH WITH CURL
LATIN LETTER PHARYNGEAL VOICED FRICATIVE
LATIN LETTER INVERTED GLOTTAL STOP
LATIN LETTER STRETCHED C
LATIN LETTER BILABIAL CLICK
LATIN LETTER SMALL CAPITAL B
LATIN SMALL LETTER CLOSED OPEN E
LATIN LETTER SMALL CAPITAL G WITH HOOK
LATIN LETTER SMALL CAPITAL H
LATIN SMALL LETTER J WITH CROSSED-TAIL
LATIN LETTER SMALL CAPITAL L
LATIN SMALL LETTER Q WITH HOOK
LATIN LETTER GLOTTAL STOP WITH STROKE
LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE
LATIN SMALL LETTER DZ DIGRAPH
LATIN SMALL LETTER DEZH DIGRAPH
LATIN SMALL LETTER DZ DIGRAPH WITH CURL
LATIN SMALL LETTER TS DIGRAPH
LATIN SMALL LETTER TESH DIGRAPH
LATIN SMALL LETTER TC DIGRAPH WITH CURL
LATIN SMALL LETTER FENG DIGRAPH
LATIN SMALL LETTER LS DIGRAPH
LATIN SMALL LETTER LZ DIGRAPH
LATIN LETTER BILABIAL PERCUSSIVE
LATIN LETTER BIDENTAL PERCUSSIVE
LATIN SMALL LETTER TURNED H WITH FISHHOOK
LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
GREEK UPSILON WITH HOOK SYMBOL
GREEK UPSILON WITH ACUTE AND HOOK SYMBOL
GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL
GREEK RHO WITH STROKE SYMBOL
ARMENIAN SMALL LIGATURE ECH YIWN
LATIN LETTER SMALL CAPITAL A
LATIN LETTER SMALL CAPITAL AE
LATIN SMALL LETTER TURNED AE
LATIN LETTER SMALL CAPITAL BARRED B
LATIN LETTER SMALL CAPITAL C
LATIN LETTER SMALL CAPITAL D
LATIN LETTER SMALL CAPITAL ETH
LATIN LETTER SMALL CAPITAL E
LATIN SMALL LETTER TURNED OPEN E
LATIN SMALL LETTER TURNED I
LATIN LETTER SMALL CAPITAL J
LATIN LETTER SMALL CAPITAL K
LATIN LETTER SMALL CAPITAL L WITH STROKE
LATIN LETTER SMALL CAPITAL M
LATIN LETTER SMALL CAPITAL REVERSED N
LATIN LETTER SMALL CAPITAL O
LATIN LETTER SMALL CAPITAL OPEN O
LATIN SMALL LETTER SIDEWAYS O
LATIN SMALL LETTER SIDEWAYS OPEN O
LATIN SMALL LETTER SIDEWAYS O WITH STROKE
LATIN SMALL LETTER TURNED OE
LATIN LETTER SMALL CAPITAL OU
LATIN SMALL LETTER TOP HALF O
LATIN SMALL LETTER BOTTOM HALF O
LATIN LETTER SMALL CAPITAL P
LATIN LETTER SMALL CAPITAL REVERSED R
LATIN LETTER SMALL CAPITAL TURNED R
LATIN LETTER SMALL CAPITAL T
LATIN LETTER SMALL CAPITAL U
LATIN SMALL LETTER SIDEWAYS U
LATIN SMALL LETTER SIDEWAYS DIAERESIZED U
LATIN SMALL LETTER SIDEWAYS TURNED M
LATIN LETTER SMALL CAPITAL V
LATIN LETTER SMALL CAPITAL W
LATIN LETTER SMALL CAPITAL Z
LATIN LETTER SMALL CAPITAL EZH
LATIN LETTER VOICED LARYNGEAL SPIRANT
LATIN LETTER AIN
GREEK LETTER SMALL CAPITAL GAMMA
GREEK LETTER SMALL CAPITAL LAMDA
GREEK LETTER SMALL CAPITAL PI
GREEK LETTER SMALL CAPITAL RHO
GREEK LETTER SMALL CAPITAL PSI
CYRILLIC LETTER SMALL CAPITAL EL
LATIN SMALL LETTER UE
LATIN SMALL LETTER B WITH MIDDLE TILDE
LATIN SMALL LETTER D WITH MIDDLE TILDE
LATIN SMALL LETTER F WITH MIDDLE TILDE
LATIN SMALL LETTER M WITH MIDDLE TILDE
LATIN SMALL LETTER N WITH MIDDLE TILDE
LATIN SMALL LETTER P WITH MIDDLE TILDE
LATIN SMALL LETTER R WITH MIDDLE TILDE
LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE
LATIN SMALL LETTER S WITH MIDDLE TILDE
LATIN SMALL LETTER T WITH MIDDLE TILDE
LATIN SMALL LETTER Z WITH MIDDLE TILDE
LATIN SMALL LETTER TURNED G
LATIN SMALL LETTER TH WITH STRIKETHROUGH
LATIN SMALL CAPITAL LETTER I WITH STROKE
LATIN SMALL LETTER IOTA WITH STROKE
LATIN SMALL CAPITAL LETTER U WITH STROKE
LATIN SMALL LETTER UPSILON WITH STROKE
LATIN SMALL LETTER B WITH PALATAL HOOK
LATIN SMALL LETTER D WITH PALATAL HOOK
LATIN SMALL LETTER F WITH PALATAL HOOK
LATIN SMALL LETTER G WITH PALATAL HOOK
LATIN SMALL LETTER K WITH PALATAL HOOK
LATIN SMALL LETTER L WITH PALATAL HOOK
LATIN SMALL LETTER M WITH PALATAL HOOK
LATIN SMALL LETTER N WITH PALATAL HOOK
LATIN SMALL LETTER P WITH PALATAL HOOK
LATIN SMALL LETTER R WITH PALATAL HOOK
LATIN SMALL LETTER S WITH PALATAL HOOK
LATIN SMALL LETTER ESH WITH PALATAL HOOK
LATIN SMALL LETTER V WITH PALATAL HOOK
LATIN SMALL LETTER X WITH PALATAL HOOK
LATIN SMALL LETTER Z WITH PALATAL HOOK
LATIN SMALL LETTER A WITH RETROFLEX HOOK
LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK
LATIN SMALL LETTER D WITH HOOK AND TAIL
LATIN SMALL LETTER E WITH RETROFLEX HOOK
LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK
LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK
LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK
LATIN SMALL LETTER I WITH RETROFLEX HOOK
LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK
LATIN SMALL LETTER ESH WITH RETROFLEX HOOK
LATIN SMALL LETTER U WITH RETROFLEX HOOK
LATIN SMALL LETTER EZH WITH RETROFLEX HOOK
LATIN SMALL LETTER H WITH LINE BELOW
LATIN SMALL LETTER T WITH DIAERESIS
LATIN SMALL LETTER W WITH RING ABOVE
LATIN SMALL LETTER Y WITH RING ABOVE
LATIN SMALL LETTER A WITH RIGHT HALF RING
LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE
LATIN SMALL LETTER LONG S WITH HIGH STROKE
LATIN SMALL LETTER DELTA
GREEK SMALL LETTER UPSILON WITH PSILI
GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ALPHA WITH PERISPOMENI
GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ETA WITH PERISPOMENI
GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
GREEK SMALL LETTER IOTA WITH PERISPOMENI
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
GREEK SMALL LETTER RHO WITH PSILI
GREEK SMALL LETTER UPSILON WITH PERISPOMENI
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
GREEK SMALL LETTER OMEGA WITH PERISPOMENI
GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
DOUBLE-STRUCK CAPITAL C
EULER CONSTANT
SCRIPT SMALL G
SCRIPT CAPITAL H
BLACK-LETTER CAPITAL H
DOUBLE-STRUCK CAPITAL H
PLANCK CONSTANT
PLANCK CONSTANT OVER TWO PI
SCRIPT CAPITAL I
BLACK-LETTER CAPITAL I
SCRIPT CAPITAL L
SCRIPT SMALL L
DOUBLE-STRUCK CAPITAL N
DOUBLE-STRUCK CAPITAL P
DOUBLE-STRUCK CAPITAL Q
SCRIPT CAPITAL R
BLACK-LETTER CAPITAL R
DOUBLE-STRUCK CAPITAL R
DOUBLE-STRUCK CAPITAL Z
BLACK-LETTER CAPITAL Z
SCRIPT CAPITAL B
BLACK-LETTER CAPITAL C
SCRIPT SMALL E
SCRIPT CAPITAL E
SCRIPT CAPITAL F
SCRIPT CAPITAL M
SCRIPT SMALL O
INFORMATION SOURCE
DOUBLE-STRUCK SMALL PI
DOUBLE-STRUCK SMALL GAMMA
DOUBLE-STRUCK CAPITAL GAMMA
DOUBLE-STRUCK CAPITAL PI
DOUBLE-STRUCK ITALIC CAPITAL D
DOUBLE-STRUCK ITALIC SMALL D
DOUBLE-STRUCK ITALIC SMALL E
DOUBLE-STRUCK ITALIC SMALL I
DOUBLE-STRUCK ITALIC SMALL J
LATIN SMALL LETTER V WITH RIGHT HOOK
LATIN SMALL LETTER V WITH CURL
LATIN SMALL LETTER TAILLESS PHI
LATIN SMALL LETTER E WITH NOTCH
LATIN SMALL LETTER TURNED R WITH TAIL
LATIN SMALL LETTER O WITH LOW RING INSIDE
LATIN LETTER SMALL CAPITAL TURNED E
COPTIC SYMBOL KAI
LATIN LETTER SMALL CAPITAL F
LATIN LETTER SMALL CAPITAL S
LATIN SMALL LETTER DUM
LATIN SMALL LETTER LUM
LATIN SMALL LETTER MUM
LATIN SMALL LETTER NUM
LATIN SMALL LETTER RUM
LATIN LETTER SMALL CAPITAL RUM
LATIN SMALL LETTER TUM
LATIN SMALL LETTER UM
LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT
LATIN SMALL LETTER C WITH PALATAL HOOK
LATIN SMALL LETTER H WITH PALATAL HOOK
LATIN LETTER SMALL CAPITAL TURNED M
LATIN SMALL LETTER BARRED ALPHA
LATIN SMALL LETTER A REVERSED-SCHWA
LATIN SMALL LETTER BLACKLETTER E
LATIN SMALL LETTER BARRED E
LATIN SMALL LETTER E WITH FLOURISH
LATIN SMALL LETTER LENIS F
LATIN SMALL LETTER SCRIPT G WITH CROSSED-TAIL
LATIN SMALL LETTER L WITH INVERTED LAZY S
LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
LATIN SMALL LETTER L WITH MIDDLE RING
LATIN SMALL LETTER M WITH CROSSED-TAIL
LATIN SMALL LETTER N WITH CROSSED-TAIL
LATIN SMALL LETTER ENG WITH CROSSED-TAIL
LATIN SMALL LETTER BLACKLETTER O
LATIN SMALL LETTER BLACKLETTER O WITH STROKE
LATIN SMALL LETTER OPEN O WITH STROKE
LATIN SMALL LETTER INVERTED OE
LATIN SMALL LETTER TURNED OE WITH STROKE
LATIN SMALL LETTER TURNED OE WITH HORIZONTAL STROKE
LATIN SMALL LETTER TURNED O OPEN-O
LATIN SMALL LETTER TURNED O OPEN-O WITH STROKE
LATIN SMALL LETTER STIRRUP R
LATIN LETTER SMALL CAPITAL R WITH RIGHT LEG
LATIN SMALL LETTER R WITHOUT HANDLE
LATIN SMALL LETTER DOUBLE R
LATIN SMALL LETTER R WITH CROSSED-TAIL
LATIN SMALL LETTER DOUBLE R WITH CROSSED-TAIL
LATIN SMALL LETTER SCRIPT R
LATIN SMALL LETTER SCRIPT R WITH RING
LATIN SMALL LETTER BASELINE ESH
LATIN SMALL LETTER U WITH SHORT RIGHT LEG
LATIN SMALL LETTER U BAR WITH SHORT RIGHT LEG
LATIN SMALL LETTER UI
LATIN SMALL LETTER TURNED UI
LATIN SMALL LETTER U WITH LEFT HOOK
LATIN SMALL LETTER CHI
LATIN SMALL LETTER CHI WITH LOW RIGHT RING
LATIN SMALL LETTER CHI WITH LOW LEFT SERIF
LATIN SMALL LETTER X WITH LOW RIGHT RING
LATIN SMALL LETTER X WITH LONG LEFT LEG
LATIN SMALL LETTER X WITH LONG LEFT LEG AND LOW RIGHT RING
LATIN SMALL LETTER X WITH LONG LEFT LEG WITH SERIF
LATIN SMALL LETTER Y WITH SHORT RIGHT LEG
LATIN SMALL LETTER INVERTED ALPHA
GREEK LETTER SMALL CAPITAL OMEGA
LATIN SMALL LIGATURE FF
LATIN SMALL LIGATURE FI
LATIN SMALL LIGATURE FL
LATIN SMALL LIGATURE FFI
LATIN SMALL LIGATURE FFL
LATIN SMALL LIGATURE LONG S T
LATIN SMALL LIGATURE ST
ARMENIAN SMALL LIGATURE MEN NOW
ARMENIAN SMALL LIGATURE MEN ECH
ARMENIAN SMALL LIGATURE MEN INI
ARMENIAN SMALL LIGATURE VEW NOW
ARMENIAN SMALL LIGATURE MEN XEH
MATHEMATICAL BOLD CAPITAL A
MATHEMATICAL BOLD CAPITAL B
MATHEMATICAL BOLD CAPITAL C
MATHEMATICAL BOLD CAPITAL D
MATHEMATICAL BOLD CAPITAL E
MATHEMATICAL BOLD CAPITAL F
MATHEMATICAL BOLD CAPITAL G
MATHEMATICAL BOLD CAPITAL H
MATHEMATICAL BOLD CAPITAL I
MATHEMATICAL BOLD CAPITAL J
MATHEMATICAL BOLD CAPITAL K
MATHEMATICAL BOLD CAPITAL L
MATHEMATICAL BOLD CAPITAL M
MATHEMATICAL BOLD CAPITAL N
MATHEMATICAL BOLD CAPITAL O
MATHEMATICAL BOLD CAPITAL P
MATHEMATICAL BOLD CAPITAL Q
MATHEMATICAL BOLD CAPITAL R
MATHEMATICAL BOLD CAPITAL S
MATHEMATICAL BOLD CAPITAL T
MATHEMATICAL BOLD CAPITAL U
MATHEMATICAL BOLD CAPITAL V
MATHEMATICAL BOLD CAPITAL W
MATHEMATICAL BOLD CAPITAL X
MATHEMATICAL BOLD CAPITAL Y
MATHEMATICAL BOLD CAPITAL Z
MATHEMATICAL BOLD SMALL A
MATHEMATICAL BOLD SMALL B
MATHEMATICAL BOLD SMALL C
MATHEMATICAL BOLD SMALL D
MATHEMATICAL BOLD SMALL E
MATHEMATICAL BOLD SMALL F
MATHEMATICAL BOLD SMALL G
MATHEMATICAL BOLD SMALL H
MATHEMATICAL BOLD SMALL I
MATHEMATICAL BOLD SMALL J
MATHEMATICAL BOLD SMALL K
MATHEMATICAL BOLD SMALL L
MATHEMATICAL BOLD SMALL M
MATHEMATICAL BOLD SMALL N
MATHEMATICAL BOLD SMALL O
MATHEMATICAL BOLD SMALL P
MATHEMATICAL BOLD SMALL Q
MATHEMATICAL BOLD SMALL R
MATHEMATICAL BOLD SMALL S
MATHEMATICAL BOLD SMALL T
MATHEMATICAL BOLD SMALL U
MATHEMATICAL BOLD SMALL V
MATHEMATICAL BOLD SMALL W
MATHEMATICAL BOLD SMALL X
MATHEMATICAL BOLD SMALL Y
MATHEMATICAL BOLD SMALL Z
MATHEMATICAL ITALIC CAPITAL A
MATHEMATICAL ITALIC CAPITAL B
MATHEMATICAL ITALIC CAPITAL C
MATHEMATICAL ITALIC CAPITAL D
MATHEMATICAL ITALIC CAPITAL E
MATHEMATICAL ITALIC CAPITAL F
MATHEMATICAL ITALIC CAPITAL G
MATHEMATICAL ITALIC CAPITAL H
MATHEMATICAL ITALIC CAPITAL I
MATHEMATICAL ITALIC CAPITAL J
MATHEMATICAL ITALIC CAPITAL K
MATHEMATICAL ITALIC CAPITAL L
MATHEMATICAL ITALIC CAPITAL M
MATHEMATICAL ITALIC CAPITAL N
MATHEMATICAL ITALIC CAPITAL O
MATHEMATICAL ITALIC CAPITAL P
MATHEMATICAL ITALIC CAPITAL Q
MATHEMATICAL ITALIC CAPITAL R
MATHEMATICAL ITALIC CAPITAL S
MATHEMATICAL ITALIC CAPITAL T
MATHEMATICAL ITALIC CAPITAL U
MATHEMATICAL ITALIC CAPITAL V
MATHEMATICAL ITALIC CAPITAL W
MATHEMATICAL ITALIC CAPITAL X
MATHEMATICAL ITALIC CAPITAL Y
MATHEMATICAL ITALIC CAPITAL Z
MATHEMATICAL ITALIC SMALL A
MATHEMATICAL ITALIC SMALL B
MATHEMATICAL ITALIC SMALL C
MATHEMATICAL ITALIC SMALL D
MATHEMATICAL ITALIC SMALL E
MATHEMATICAL ITALIC SMALL F
MATHEMATICAL ITALIC SMALL G
MATHEMATICAL ITALIC SMALL I
MATHEMATICAL ITALIC SMALL J
MATHEMATICAL ITALIC SMALL K
MATHEMATICAL ITALIC SMALL L
MATHEMATICAL ITALIC SMALL M
MATHEMATICAL ITALIC SMALL N
MATHEMATICAL ITALIC SMALL O
MATHEMATICAL ITALIC SMALL P
MATHEMATICAL ITALIC SMALL Q
MATHEMATICAL ITALIC SMALL R
MATHEMATICAL ITALIC SMALL S
MATHEMATICAL ITALIC SMALL T
MATHEMATICAL ITALIC SMALL U
MATHEMATICAL ITALIC SMALL V
MATHEMATICAL ITALIC SMALL W
MATHEMATICAL ITALIC SMALL X
MATHEMATICAL ITALIC SMALL Y
MATHEMATICAL ITALIC SMALL Z
MATHEMATICAL BOLD ITALIC CAPITAL A
MATHEMATICAL BOLD ITALIC CAPITAL B
MATHEMATICAL BOLD ITALIC CAPITAL C
MATHEMATICAL BOLD ITALIC CAPITAL D
MATHEMATICAL BOLD ITALIC CAPITAL E
MATHEMATICAL BOLD ITALIC CAPITAL F
MATHEMATICAL BOLD ITALIC CAPITAL G
MATHEMATICAL BOLD ITALIC CAPITAL H
MATHEMATICAL BOLD ITALIC CAPITAL I
MATHEMATICAL BOLD ITALIC CAPITAL J
MATHEMATICAL BOLD ITALIC CAPITAL K
MATHEMATICAL BOLD ITALIC CAPITAL L
MATHEMATICAL BOLD ITALIC CAPITAL M
MATHEMATICAL BOLD ITALIC CAPITAL N
MATHEMATICAL BOLD ITALIC CAPITAL O
MATHEMATICAL BOLD ITALIC CAPITAL P
MATHEMATICAL BOLD ITALIC CAPITAL Q
MATHEMATICAL BOLD ITALIC CAPITAL R
MATHEMATICAL BOLD ITALIC CAPITAL S
MATHEMATICAL BOLD ITALIC CAPITAL T
MATHEMATICAL BOLD ITALIC CAPITAL U
MATHEMATICAL BOLD ITALIC CAPITAL V
MATHEMATICAL BOLD ITALIC CAPITAL W
MATHEMATICAL BOLD ITALIC CAPITAL X
MATHEMATICAL BOLD ITALIC CAPITAL Y
MATHEMATICAL BOLD ITALIC CAPITAL Z
MATHEMATICAL BOLD ITALIC SMALL A
MATHEMATICAL BOLD ITALIC SMALL B
MATHEMATICAL BOLD ITALIC SMALL C
MATHEMATICAL BOLD ITALIC SMALL D
MATHEMATICAL BOLD ITALIC SMALL E
MATHEMATICAL BOLD ITALIC SMALL F
MATHEMATICAL BOLD ITALIC SMALL G
MATHEMATICAL BOLD ITALIC SMALL H
MATHEMATICAL BOLD ITALIC SMALL I
MATHEMATICAL BOLD ITALIC SMALL J
MATHEMATICAL BOLD ITALIC SMALL K
MATHEMATICAL BOLD ITALIC SMALL L
MATHEMATICAL BOLD ITALIC SMALL M
MATHEMATICAL BOLD ITALIC SMALL N
MATHEMATICAL BOLD ITALIC SMALL O
MATHEMATICAL BOLD ITALIC SMALL P
MATHEMATICAL BOLD ITALIC SMALL Q
MATHEMATICAL BOLD ITALIC SMALL R
MATHEMATICAL BOLD ITALIC SMALL S
MATHEMATICAL BOLD ITALIC SMALL T
MATHEMATICAL BOLD ITALIC SMALL U
MATHEMATICAL BOLD ITALIC SMALL V
MATHEMATICAL BOLD ITALIC SMALL W
MATHEMATICAL BOLD ITALIC SMALL X
MATHEMATICAL BOLD ITALIC SMALL Y
MATHEMATICAL BOLD ITALIC SMALL Z
MATHEMATICAL SCRIPT CAPITAL A
MATHEMATICAL SCRIPT CAPITAL C
MATHEMATICAL SCRIPT CAPITAL D
MATHEMATICAL SCRIPT CAPITAL G
MATHEMATICAL SCRIPT CAPITAL J
MATHEMATICAL SCRIPT CAPITAL K
MATHEMATICAL SCRIPT CAPITAL N
MATHEMATICAL SCRIPT CAPITAL O
MATHEMATICAL SCRIPT CAPITAL P
MATHEMATICAL SCRIPT CAPITAL Q
MATHEMATICAL SCRIPT CAPITAL S
MATHEMATICAL SCRIPT CAPITAL T
MATHEMATICAL SCRIPT CAPITAL U
MATHEMATICAL SCRIPT CAPITAL V
MATHEMATICAL SCRIPT CAPITAL W
MATHEMATICAL SCRIPT CAPITAL X
MATHEMATICAL SCRIPT CAPITAL Y
MATHEMATICAL SCRIPT CAPITAL Z
MATHEMATICAL SCRIPT SMALL A
MATHEMATICAL SCRIPT SMALL B
MATHEMATICAL SCRIPT SMALL C
MATHEMATICAL SCRIPT SMALL D
MATHEMATICAL SCRIPT SMALL F
MATHEMATICAL SCRIPT SMALL H
MATHEMATICAL SCRIPT SMALL I
MATHEMATICAL SCRIPT SMALL J
MATHEMATICAL SCRIPT SMALL K
MATHEMATICAL SCRIPT SMALL L
MATHEMATICAL SCRIPT SMALL M
MATHEMATICAL SCRIPT SMALL N
MATHEMATICAL SCRIPT SMALL P
MATHEMATICAL SCRIPT SMALL Q
MATHEMATICAL SCRIPT SMALL R
MATHEMATICAL SCRIPT SMALL S
MATHEMATICAL SCRIPT SMALL T
MATHEMATICAL SCRIPT SMALL U
MATHEMATICAL SCRIPT SMALL V
MATHEMATICAL SCRIPT SMALL W
MATHEMATICAL SCRIPT SMALL X
MATHEMATICAL SCRIPT SMALL Y
MATHEMATICAL SCRIPT SMALL Z
MATHEMATICAL BOLD SCRIPT CAPITAL A
MATHEMATICAL BOLD SCRIPT CAPITAL B
MATHEMATICAL BOLD SCRIPT CAPITAL C
MATHEMATICAL BOLD SCRIPT CAPITAL D
MATHEMATICAL BOLD SCRIPT CAPITAL E
MATHEMATICAL BOLD SCRIPT CAPITAL F
MATHEMATICAL BOLD SCRIPT CAPITAL G
MATHEMATICAL BOLD SCRIPT CAPITAL H
MATHEMATICAL BOLD SCRIPT CAPITAL I
MATHEMATICAL BOLD SCRIPT CAPITAL J
MATHEMATICAL BOLD SCRIPT CAPITAL K
MATHEMATICAL BOLD SCRIPT CAPITAL L
MATHEMATICAL BOLD SCRIPT CAPITAL M
MATHEMATICAL BOLD SCRIPT CAPITAL N
MATHEMATICAL BOLD SCRIPT CAPITAL O
MATHEMATICAL BOLD SCRIPT CAPITAL P
MATHEMATICAL BOLD SCRIPT CAPITAL Q
MATHEMATICAL BOLD SCRIPT CAPITAL R
MATHEMATICAL BOLD SCRIPT CAPITAL S
MATHEMATICAL BOLD SCRIPT CAPITAL T
MATHEMATICAL BOLD SCRIPT CAPITAL U
MATHEMATICAL BOLD SCRIPT CAPITAL V
MATHEMATICAL BOLD SCRIPT CAPITAL W
MATHEMATICAL BOLD SCRIPT CAPITAL X
MATHEMATICAL BOLD SCRIPT CAPITAL Y
MATHEMATICAL BOLD SCRIPT CAPITAL Z
MATHEMATICAL BOLD SCRIPT SMALL A
MATHEMATICAL BOLD SCRIPT SMALL B
MATHEMATICAL BOLD SCRIPT SMALL C
MATHEMATICAL BOLD SCRIPT SMALL D
MATHEMATICAL BOLD SCRIPT SMALL E
MATHEMATICAL BOLD SCRIPT SMALL F
MATHEMATICAL BOLD SCRIPT SMALL G
MATHEMATICAL BOLD SCRIPT SMALL H
MATHEMATICAL BOLD SCRIPT SMALL I
MATHEMATICAL BOLD SCRIPT SMALL J
MATHEMATICAL BOLD SCRIPT SMALL K
MATHEMATICAL BOLD SCRIPT SMALL L
MATHEMATICAL BOLD SCRIPT SMALL M
MATHEMATICAL BOLD SCRIPT SMALL N
MATHEMATICAL BOLD SCRIPT SMALL O
MATHEMATICAL BOLD SCRIPT SMALL P
MATHEMATICAL BOLD SCRIPT SMALL Q
MATHEMATICAL BOLD SCRIPT SMALL R
MATHEMATICAL BOLD SCRIPT SMALL S
MATHEMATICAL BOLD SCRIPT SMALL T
MATHEMATICAL BOLD SCRIPT SMALL U
MATHEMATICAL BOLD SCRIPT SMALL V
MATHEMATICAL BOLD SCRIPT SMALL W
MATHEMATICAL BOLD SCRIPT SMALL X
MATHEMATICAL BOLD SCRIPT SMALL Y
MATHEMATICAL BOLD SCRIPT SMALL Z
MATHEMATICAL FRAKTUR CAPITAL A
MATHEMATICAL FRAKTUR CAPITAL B
MATHEMATICAL FRAKTUR CAPITAL D
MATHEMATICAL FRAKTUR CAPITAL E
MATHEMATICAL FRAKTUR CAPITAL F
MATHEMATICAL FRAKTUR CAPITAL G
MATHEMATICAL FRAKTUR CAPITAL J
MATHEMATICAL FRAKTUR CAPITAL K
MATHEMATICAL FRAKTUR CAPITAL L
MATHEMATICAL FRAKTUR CAPITAL M
MATHEMATICAL FRAKTUR CAPITAL N
MATHEMATICAL FRAKTUR CAPITAL O
MATHEMATICAL FRAKTUR CAPITAL P
MATHEMATICAL FRAKTUR CAPITAL Q
MATHEMATICAL FRAKTUR CAPITAL S
MATHEMATICAL FRAKTUR CAPITAL T
MATHEMATICAL FRAKTUR CAPITAL U
MATHEMATICAL FRAKTUR CAPITAL V
MATHEMATICAL FRAKTUR CAPITAL W
MATHEMATICAL FRAKTUR CAPITAL X
MATHEMATICAL FRAKTUR CAPITAL Y
MATHEMATICAL FRAKTUR SMALL A
MATHEMATICAL FRAKTUR SMALL B
MATHEMATICAL FRAKTUR SMALL C
MATHEMATICAL FRAKTUR SMALL D
MATHEMATICAL FRAKTUR SMALL E
MATHEMATICAL FRAKTUR SMALL F
MATHEMATICAL FRAKTUR SMALL G
MATHEMATICAL FRAKTUR SMALL H
MATHEMATICAL FRAKTUR SMALL I
MATHEMATICAL FRAKTUR SMALL J
MATHEMATICAL FRAKTUR SMALL K
MATHEMATICAL FRAKTUR SMALL L
MATHEMATICAL FRAKTUR SMALL M
MATHEMATICAL FRAKTUR SMALL N
MATHEMATICAL FRAKTUR SMALL O
MATHEMATICAL FRAKTUR SMALL P
MATHEMATICAL FRAKTUR SMALL Q
MATHEMATICAL FRAKTUR SMALL R
MATHEMATICAL FRAKTUR SMALL S
MATHEMATICAL FRAKTUR SMALL T
MATHEMATICAL FRAKTUR SMALL U
MATHEMATICAL FRAKTUR SMALL V
MATHEMATICAL FRAKTUR SMALL W
MATHEMATICAL FRAKTUR SMALL X
MATHEMATICAL FRAKTUR SMALL Y
MATHEMATICAL FRAKTUR SMALL Z
MATHEMATICAL DOUBLE-STRUCK CAPITAL A
MATHEMATICAL DOUBLE-STRUCK CAPITAL B
MATHEMATICAL DOUBLE-STRUCK CAPITAL D
MATHEMATICAL DOUBLE-STRUCK CAPITAL E
MATHEMATICAL DOUBLE-STRUCK CAPITAL F
MATHEMATICAL DOUBLE-STRUCK CAPITAL G
MATHEMATICAL DOUBLE-STRUCK CAPITAL I
MATHEMATICAL DOUBLE-STRUCK CAPITAL J
MATHEMATICAL DOUBLE-STRUCK CAPITAL K
MATHEMATICAL DOUBLE-STRUCK CAPITAL L
MATHEMATICAL DOUBLE-STRUCK CAPITAL M
MATHEMATICAL DOUBLE-STRUCK CAPITAL O
MATHEMATICAL DOUBLE-STRUCK CAPITAL S
MATHEMATICAL DOUBLE-STRUCK CAPITAL T
MATHEMATICAL DOUBLE-STRUCK CAPITAL U
MATHEMATICAL DOUBLE-STRUCK CAPITAL V
MATHEMATICAL DOUBLE-STRUCK CAPITAL W
MATHEMATICAL DOUBLE-STRUCK CAPITAL X
MATHEMATICAL DOUBLE-STRUCK CAPITAL Y
MATHEMATICAL DOUBLE-STRUCK SMALL A
MATHEMATICAL DOUBLE-STRUCK SMALL B
MATHEMATICAL DOUBLE-STRUCK SMALL C
MATHEMATICAL DOUBLE-STRUCK SMALL D
MATHEMATICAL DOUBLE-STRUCK SMALL E
MATHEMATICAL DOUBLE-STRUCK SMALL F
MATHEMATICAL DOUBLE-STRUCK SMALL G
MATHEMATICAL DOUBLE-STRUCK SMALL H
MATHEMATICAL DOUBLE-STRUCK SMALL I
MATHEMATICAL DOUBLE-STRUCK SMALL J
MATHEMATICAL DOUBLE-STRUCK SMALL K
MATHEMATICAL DOUBLE-STRUCK SMALL L
MATHEMATICAL DOUBLE-STRUCK SMALL M
MATHEMATICAL DOUBLE-STRUCK SMALL N
MATHEMATICAL DOUBLE-STRUCK SMALL O
MATHEMATICAL DOUBLE-STRUCK SMALL P
MATHEMATICAL DOUBLE-STRUCK SMALL Q
MATHEMATICAL DOUBLE-STRUCK SMALL R
MATHEMATICAL DOUBLE-STRUCK SMALL S
MATHEMATICAL DOUBLE-STRUCK SMALL T
MATHEMATICAL DOUBLE-STRUCK SMALL U
MATHEMATICAL DOUBLE-STRUCK SMALL V
MATHEMATICAL DOUBLE-STRUCK SMALL W
MATHEMATICAL DOUBLE-STRUCK SMALL X
MATHEMATICAL DOUBLE-STRUCK SMALL Y
MATHEMATICAL DOUBLE-STRUCK SMALL Z
MATHEMATICAL BOLD FRAKTUR CAPITAL A
MATHEMATICAL BOLD FRAKTUR CAPITAL B
MATHEMATICAL BOLD FRAKTUR CAPITAL C
MATHEMATICAL BOLD FRAKTUR CAPITAL D
MATHEMATICAL BOLD FRAKTUR CAPITAL E
MATHEMATICAL BOLD FRAKTUR CAPITAL F
MATHEMATICAL BOLD FRAKTUR CAPITAL G
MATHEMATICAL BOLD FRAKTUR CAPITAL H
MATHEMATICAL BOLD FRAKTUR CAPITAL I
MATHEMATICAL BOLD FRAKTUR CAPITAL J
MATHEMATICAL BOLD FRAKTUR CAPITAL K
MATHEMATICAL BOLD FRAKTUR CAPITAL L
MATHEMATICAL BOLD FRAKTUR CAPITAL M
MATHEMATICAL BOLD FRAKTUR CAPITAL N
MATHEMATICAL BOLD FRAKTUR CAPITAL O
MATHEMATICAL BOLD FRAKTUR CAPITAL P
MATHEMATICAL BOLD FRAKTUR CAPITAL Q
MATHEMATICAL BOLD FRAKTUR CAPITAL R
MATHEMATICAL BOLD FRAKTUR CAPITAL S
MATHEMATICAL BOLD FRAKTUR CAPITAL T
MATHEMATICAL BOLD FRAKTUR CAPITAL U
MATHEMATICAL BOLD FRAKTUR CAPITAL V
MATHEMATICAL BOLD FRAKTUR CAPITAL W
MATHEMATICAL BOLD FRAKTUR CAPITAL X
MATHEMATICAL BOLD FRAKTUR CAPITAL Y
MATHEMATICAL BOLD FRAKTUR CAPITAL Z
MATHEMATICAL BOLD FRAKTUR SMALL A
MATHEMATICAL BOLD FRAKTUR SMALL B
MATHEMATICAL BOLD FRAKTUR SMALL C
MATHEMATICAL BOLD FRAKTUR SMALL D
MATHEMATICAL BOLD FRAKTUR SMALL E
MATHEMATICAL BOLD FRAKTUR SMALL F
MATHEMATICAL BOLD FRAKTUR SMALL G
MATHEMATICAL BOLD FRAKTUR SMALL H
MATHEMATICAL BOLD FRAKTUR SMALL I
MATHEMATICAL BOLD FRAKTUR SMALL J
MATHEMATICAL BOLD FRAKTUR SMALL K
MATHEMATICAL BOLD FRAKTUR SMALL L
MATHEMATICAL BOLD FRAKTUR SMALL M
MATHEMATICAL BOLD FRAKTUR SMALL N
MATHEMATICAL BOLD FRAKTUR SMALL O
MATHEMATICAL BOLD FRAKTUR SMALL P
MATHEMATICAL BOLD FRAKTUR SMALL Q
MATHEMATICAL BOLD FRAKTUR SMALL R
MATHEMATICAL BOLD FRAKTUR SMALL S
MATHEMATICAL BOLD FRAKTUR SMALL T
MATHEMATICAL BOLD FRAKTUR SMALL U
MATHEMATICAL BOLD FRAKTUR SMALL V
MATHEMATICAL BOLD FRAKTUR SMALL W
MATHEMATICAL BOLD FRAKTUR SMALL X
MATHEMATICAL BOLD FRAKTUR SMALL Y
MATHEMATICAL BOLD FRAKTUR SMALL Z
MATHEMATICAL SANS-SERIF CAPITAL A
MATHEMATICAL SANS-SERIF CAPITAL B
MATHEMATICAL SANS-SERIF CAPITAL C
MATHEMATICAL SANS-SERIF CAPITAL D
MATHEMATICAL SANS-SERIF CAPITAL E
MATHEMATICAL SANS-SERIF CAPITAL F
MATHEMATICAL SANS-SERIF CAPITAL G
MATHEMATICAL SANS-SERIF CAPITAL H
MATHEMATICAL SANS-SERIF CAPITAL I
MATHEMATICAL SANS-SERIF CAPITAL J
MATHEMATICAL SANS-SERIF CAPITAL K
MATHEMATICAL SANS-SERIF CAPITAL L
MATHEMATICAL SANS-SERIF CAPITAL M
MATHEMATICAL SANS-SERIF CAPITAL N
MATHEMATICAL SANS-SERIF CAPITAL O
MATHEMATICAL SANS-SERIF CAPITAL P
MATHEMATICAL SANS-SERIF CAPITAL Q
MATHEMATICAL SANS-SERIF CAPITAL R
MATHEMATICAL SANS-SERIF CAPITAL S
MATHEMATICAL SANS-SERIF CAPITAL T
MATHEMATICAL SANS-SERIF CAPITAL U
MATHEMATICAL SANS-SERIF CAPITAL V
MATHEMATICAL SANS-SERIF CAPITAL W
MATHEMATICAL SANS-SERIF CAPITAL X
MATHEMATICAL SANS-SERIF CAPITAL Y
MATHEMATICAL SANS-SERIF CAPITAL Z
MATHEMATICAL SANS-SERIF SMALL A
MATHEMATICAL SANS-SERIF SMALL B
MATHEMATICAL SANS-SERIF SMALL C
MATHEMATICAL SANS-SERIF SMALL D
MATHEMATICAL SANS-SERIF SMALL E
MATHEMATICAL SANS-SERIF SMALL F
MATHEMATICAL SANS-SERIF SMALL G
MATHEMATICAL SANS-SERIF SMALL H
MATHEMATICAL SANS-SERIF SMALL I
MATHEMATICAL SANS-SERIF SMALL J
MATHEMATICAL SANS-SERIF SMALL K
MATHEMATICAL SANS-SERIF SMALL L
MATHEMATICAL SANS-SERIF SMALL M
MATHEMATICAL SANS-SERIF SMALL N
MATHEMATICAL SANS-SERIF SMALL O
MATHEMATICAL SANS-SERIF SMALL P
MATHEMATICAL SANS-SERIF SMALL Q
MATHEMATICAL SANS-SERIF SMALL R
MATHEMATICAL SANS-SERIF SMALL S
MATHEMATICAL SANS-SERIF SMALL T
MATHEMATICAL SANS-SERIF SMALL U
MATHEMATICAL SANS-SERIF SMALL V
MATHEMATICAL SANS-SERIF SMALL W
MATHEMATICAL SANS-SERIF SMALL X
MATHEMATICAL SANS-SERIF SMALL Y
MATHEMATICAL SANS-SERIF SMALL Z
MATHEMATICAL SANS-SERIF BOLD CAPITAL A
MATHEMATICAL SANS-SERIF BOLD CAPITAL B
MATHEMATICAL SANS-SERIF BOLD CAPITAL C
MATHEMATICAL SANS-SERIF BOLD CAPITAL D
MATHEMATICAL SANS-SERIF BOLD CAPITAL E
MATHEMATICAL SANS-SERIF BOLD CAPITAL F
MATHEMATICAL SANS-SERIF BOLD CAPITAL G
MATHEMATICAL SANS-SERIF BOLD CAPITAL H
MATHEMATICAL SANS-SERIF BOLD CAPITAL I
MATHEMATICAL SANS-SERIF BOLD CAPITAL J
MATHEMATICAL SANS-SERIF BOLD CAPITAL K
MATHEMATICAL SANS-SERIF BOLD CAPITAL L
MATHEMATICAL SANS-SERIF BOLD CAPITAL M
MATHEMATICAL SANS-SERIF BOLD CAPITAL N
MATHEMATICAL SANS-SERIF BOLD CAPITAL O
MATHEMATICAL SANS-SERIF BOLD CAPITAL P
MATHEMATICAL SANS-SERIF BOLD CAPITAL Q
MATHEMATICAL SANS-SERIF BOLD CAPITAL R
MATHEMATICAL SANS-SERIF BOLD CAPITAL S
MATHEMATICAL SANS-SERIF BOLD CAPITAL T
MATHEMATICAL SANS-SERIF BOLD CAPITAL U
MATHEMATICAL SANS-SERIF BOLD CAPITAL V
MATHEMATICAL SANS-SERIF BOLD CAPITAL W
MATHEMATICAL SANS-SERIF BOLD CAPITAL X
MATHEMATICAL SANS-SERIF BOLD CAPITAL Y
MATHEMATICAL SANS-SERIF BOLD CAPITAL Z
MATHEMATICAL SANS-SERIF BOLD SMALL A
MATHEMATICAL SANS-SERIF BOLD SMALL B
MATHEMATICAL SANS-SERIF BOLD SMALL C
MATHEMATICAL SANS-SERIF BOLD SMALL D
MATHEMATICAL SANS-SERIF BOLD SMALL E
MATHEMATICAL SANS-SERIF BOLD SMALL F
MATHEMATICAL SANS-SERIF BOLD SMALL G
MATHEMATICAL SANS-SERIF BOLD SMALL H
MATHEMATICAL SANS-SERIF BOLD SMALL I
MATHEMATICAL SANS-SERIF BOLD SMALL J
MATHEMATICAL SANS-SERIF BOLD SMALL K
MATHEMATICAL SANS-SERIF BOLD SMALL L
MATHEMATICAL SANS-SERIF BOLD SMALL M
MATHEMATICAL SANS-SERIF BOLD SMALL N
MATHEMATICAL SANS-SERIF BOLD SMALL O
MATHEMATICAL SANS-SERIF BOLD SMALL P
MATHEMATICAL SANS-SERIF BOLD SMALL Q
MATHEMATICAL SANS-SERIF BOLD SMALL R
MATHEMATICAL SANS-SERIF BOLD SMALL S
MATHEMATICAL SANS-SERIF BOLD SMALL T
MATHEMATICAL SANS-SERIF BOLD SMALL U
MATHEMATICAL SANS-SERIF BOLD SMALL V
MATHEMATICAL SANS-SERIF BOLD SMALL W
MATHEMATICAL SANS-SERIF BOLD SMALL X
MATHEMATICAL SANS-SERIF BOLD SMALL Y
MATHEMATICAL SANS-SERIF BOLD SMALL Z
MATHEMATICAL SANS-SERIF ITALIC CAPITAL A
MATHEMATICAL SANS-SERIF ITALIC CAPITAL B
MATHEMATICAL SANS-SERIF ITALIC CAPITAL C
MATHEMATICAL SANS-SERIF ITALIC CAPITAL D
MATHEMATICAL SANS-SERIF ITALIC CAPITAL E
MATHEMATICAL SANS-SERIF ITALIC CAPITAL F
MATHEMATICAL SANS-SERIF ITALIC CAPITAL G
MATHEMATICAL SANS-SERIF ITALIC CAPITAL H
MATHEMATICAL SANS-SERIF ITALIC CAPITAL I
MATHEMATICAL SANS-SERIF ITALIC CAPITAL J
MATHEMATICAL SANS-SERIF ITALIC CAPITAL K
MATHEMATICAL SANS-SERIF ITALIC CAPITAL L
MATHEMATICAL SANS-SERIF ITALIC CAPITAL M
MATHEMATICAL SANS-SERIF ITALIC CAPITAL N
MATHEMATICAL SANS-SERIF ITALIC CAPITAL O
MATHEMATICAL SANS-SERIF ITALIC CAPITAL P
MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q
MATHEMATICAL SANS-SERIF ITALIC CAPITAL R
MATHEMATICAL SANS-SERIF ITALIC CAPITAL S
MATHEMATICAL SANS-SERIF ITALIC CAPITAL T
MATHEMATICAL SANS-SERIF ITALIC CAPITAL U
MATHEMATICAL SANS-SERIF ITALIC CAPITAL V
MATHEMATICAL SANS-SERIF ITALIC CAPITAL W
MATHEMATICAL SANS-SERIF ITALIC CAPITAL X
MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y
MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z
MATHEMATICAL SANS-SERIF ITALIC SMALL A
MATHEMATICAL SANS-SERIF ITALIC SMALL B
MATHEMATICAL SANS-SERIF ITALIC SMALL C
MATHEMATICAL SANS-SERIF ITALIC SMALL D
MATHEMATICAL SANS-SERIF ITALIC SMALL E
MATHEMATICAL SANS-SERIF ITALIC SMALL F
MATHEMATICAL SANS-SERIF ITALIC SMALL G
MATHEMATICAL SANS-SERIF ITALIC SMALL H
MATHEMATICAL SANS-SERIF ITALIC SMALL I
MATHEMATICAL SANS-SERIF ITALIC SMALL J
MATHEMATICAL SANS-SERIF ITALIC SMALL K
MATHEMATICAL SANS-SERIF ITALIC SMALL L
MATHEMATICAL SANS-SERIF ITALIC SMALL M
MATHEMATICAL SANS-SERIF ITALIC SMALL N
MATHEMATICAL SANS-SERIF ITALIC SMALL O
MATHEMATICAL SANS-SERIF ITALIC SMALL P
MATHEMATICAL SANS-SERIF ITALIC SMALL Q
MATHEMATICAL SANS-SERIF ITALIC SMALL R
MATHEMATICAL SANS-SERIF ITALIC SMALL S
MATHEMATICAL SANS-SERIF ITALIC SMALL T
MATHEMATICAL SANS-SERIF ITALIC SMALL U
MATHEMATICAL SANS-SERIF ITALIC SMALL V
MATHEMATICAL SANS-SERIF ITALIC SMALL W
MATHEMATICAL SANS-SERIF ITALIC SMALL X
MATHEMATICAL SANS-SERIF ITALIC SMALL Y
MATHEMATICAL SANS-SERIF ITALIC SMALL Z
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z
MATHEMATICAL MONOSPACE CAPITAL A
MATHEMATICAL MONOSPACE CAPITAL B
MATHEMATICAL MONOSPACE CAPITAL C
MATHEMATICAL MONOSPACE CAPITAL D
MATHEMATICAL MONOSPACE CAPITAL E
MATHEMATICAL MONOSPACE CAPITAL F
MATHEMATICAL MONOSPACE CAPITAL G
MATHEMATICAL MONOSPACE CAPITAL H
MATHEMATICAL MONOSPACE CAPITAL I
MATHEMATICAL MONOSPACE CAPITAL J
MATHEMATICAL MONOSPACE CAPITAL K
MATHEMATICAL MONOSPACE CAPITAL L
MATHEMATICAL MONOSPACE CAPITAL M
MATHEMATICAL MONOSPACE CAPITAL N
MATHEMATICAL MONOSPACE CAPITAL O
MATHEMATICAL MONOSPACE CAPITAL P
MATHEMATICAL MONOSPACE CAPITAL Q
MATHEMATICAL MONOSPACE CAPITAL R
MATHEMATICAL MONOSPACE CAPITAL S
MATHEMATICAL MONOSPACE CAPITAL T
MATHEMATICAL MONOSPACE CAPITAL U
MATHEMATICAL MONOSPACE CAPITAL V
MATHEMATICAL MONOSPACE CAPITAL W
MATHEMATICAL MONOSPACE CAPITAL X
MATHEMATICAL MONOSPACE CAPITAL Y
MATHEMATICAL MONOSPACE CAPITAL Z
MATHEMATICAL MONOSPACE SMALL A
MATHEMATICAL MONOSPACE SMALL B
MATHEMATICAL MONOSPACE SMALL C
MATHEMATICAL MONOSPACE SMALL D
MATHEMATICAL MONOSPACE SMALL E
MATHEMATICAL MONOSPACE SMALL F
MATHEMATICAL MONOSPACE SMALL G
MATHEMATICAL MONOSPACE SMALL H
MATHEMATICAL MONOSPACE SMALL I
MATHEMATICAL MONOSPACE SMALL J
MATHEMATICAL MONOSPACE SMALL K
MATHEMATICAL MONOSPACE SMALL L
MATHEMATICAL MONOSPACE SMALL M
MATHEMATICAL MONOSPACE SMALL N
MATHEMATICAL MONOSPACE SMALL O
MATHEMATICAL MONOSPACE SMALL P
MATHEMATICAL MONOSPACE SMALL Q
MATHEMATICAL MONOSPACE SMALL R
MATHEMATICAL MONOSPACE SMALL S
MATHEMATICAL MONOSPACE SMALL T
MATHEMATICAL MONOSPACE SMALL U
MATHEMATICAL MONOSPACE SMALL V
MATHEMATICAL MONOSPACE SMALL W
MATHEMATICAL MONOSPACE SMALL X
MATHEMATICAL MONOSPACE SMALL Y
MATHEMATICAL MONOSPACE SMALL Z
MATHEMATICAL ITALIC SMALL DOTLESS I
MATHEMATICAL ITALIC SMALL DOTLESS J
MATHEMATICAL BOLD CAPITAL ALPHA
MATHEMATICAL BOLD CAPITAL BETA
MATHEMATICAL BOLD CAPITAL GAMMA
MATHEMATICAL BOLD CAPITAL DELTA
MATHEMATICAL BOLD CAPITAL EPSILON
MATHEMATICAL BOLD CAPITAL ZETA
MATHEMATICAL BOLD CAPITAL ETA
MATHEMATICAL BOLD CAPITAL THETA
MATHEMATICAL BOLD CAPITAL IOTA
MATHEMATICAL BOLD CAPITAL KAPPA
MATHEMATICAL BOLD CAPITAL LAMDA
MATHEMATICAL BOLD CAPITAL MU
MATHEMATICAL BOLD CAPITAL NU
MATHEMATICAL BOLD CAPITAL XI
MATHEMATICAL BOLD CAPITAL OMICRON
MATHEMATICAL BOLD CAPITAL PI
MATHEMATICAL BOLD CAPITAL RHO
MATHEMATICAL BOLD CAPITAL THETA SYMBOL
MATHEMATICAL BOLD CAPITAL SIGMA
MATHEMATICAL BOLD CAPITAL TAU
MATHEMATICAL BOLD CAPITAL UPSILON
MATHEMATICAL BOLD CAPITAL PHI
MATHEMATICAL BOLD CAPITAL CHI
MATHEMATICAL BOLD CAPITAL PSI
MATHEMATICAL BOLD CAPITAL OMEGA
MATHEMATICAL BOLD SMALL ALPHA
MATHEMATICAL BOLD SMALL BETA
MATHEMATICAL BOLD SMALL GAMMA
MATHEMATICAL BOLD SMALL DELTA
MATHEMATICAL BOLD SMALL EPSILON
MATHEMATICAL BOLD SMALL ZETA
MATHEMATICAL BOLD SMALL ETA
MATHEMATICAL BOLD SMALL THETA
MATHEMATICAL BOLD SMALL IOTA
MATHEMATICAL BOLD SMALL KAPPA
MATHEMATICAL BOLD SMALL LAMDA
MATHEMATICAL BOLD SMALL MU
MATHEMATICAL BOLD SMALL NU
MATHEMATICAL BOLD SMALL XI
MATHEMATICAL BOLD SMALL OMICRON
MATHEMATICAL BOLD SMALL PI
MATHEMATICAL BOLD SMALL RHO
MATHEMATICAL BOLD SMALL FINAL SIGMA
MATHEMATICAL BOLD SMALL SIGMA
MATHEMATICAL BOLD SMALL TAU
MATHEMATICAL BOLD SMALL UPSILON
MATHEMATICAL BOLD SMALL PHI
MATHEMATICAL BOLD SMALL CHI
MATHEMATICAL BOLD SMALL PSI
MATHEMATICAL BOLD SMALL OMEGA
MATHEMATICAL BOLD EPSILON SYMBOL
MATHEMATICAL BOLD THETA SYMBOL
MATHEMATICAL BOLD KAPPA SYMBOL
MATHEMATICAL BOLD PHI SYMBOL
MATHEMATICAL BOLD RHO SYMBOL
MATHEMATICAL BOLD PI SYMBOL
MATHEMATICAL ITALIC CAPITAL ALPHA
MATHEMATICAL ITALIC CAPITAL BETA
MATHEMATICAL ITALIC CAPITAL GAMMA
MATHEMATICAL ITALIC CAPITAL DELTA
MATHEMATICAL ITALIC CAPITAL EPSILON
MATHEMATICAL ITALIC CAPITAL ZETA
MATHEMATICAL ITALIC CAPITAL ETA
MATHEMATICAL ITALIC CAPITAL THETA
MATHEMATICAL ITALIC CAPITAL IOTA
MATHEMATICAL ITALIC CAPITAL KAPPA
MATHEMATICAL ITALIC CAPITAL LAMDA
MATHEMATICAL ITALIC CAPITAL MU
MATHEMATICAL ITALIC CAPITAL NU
MATHEMATICAL ITALIC CAPITAL XI
MATHEMATICAL ITALIC CAPITAL OMICRON
MATHEMATICAL ITALIC CAPITAL PI
MATHEMATICAL ITALIC CAPITAL RHO
MATHEMATICAL ITALIC CAPITAL THETA SYMBOL
MATHEMATICAL ITALIC CAPITAL SIGMA
MATHEMATICAL ITALIC CAPITAL TAU
MATHEMATICAL ITALIC CAPITAL UPSILON
MATHEMATICAL ITALIC CAPITAL PHI
MATHEMATICAL ITALIC CAPITAL CHI
MATHEMATICAL ITALIC CAPITAL PSI
MATHEMATICAL ITALIC CAPITAL OMEGA
MATHEMATICAL ITALIC SMALL ALPHA
MATHEMATICAL ITALIC SMALL BETA
MATHEMATICAL ITALIC SMALL GAMMA
MATHEMATICAL ITALIC SMALL DELTA
MATHEMATICAL ITALIC SMALL EPSILON
MATHEMATICAL ITALIC SMALL ZETA
MATHEMATICAL ITALIC SMALL ETA
MATHEMATICAL ITALIC SMALL THETA
MATHEMATICAL ITALIC SMALL IOTA
MATHEMATICAL ITALIC SMALL KAPPA
MATHEMATICAL ITALIC SMALL LAMDA
MATHEMATICAL ITALIC SMALL MU
MATHEMATICAL ITALIC SMALL NU
MATHEMATICAL ITALIC SMALL XI
MATHEMATICAL ITALIC SMALL OMICRON
MATHEMATICAL ITALIC SMALL PI
MATHEMATICAL ITALIC SMALL RHO
MATHEMATICAL ITALIC SMALL FINAL SIGMA
MATHEMATICAL ITALIC SMALL SIGMA
MATHEMATICAL ITALIC SMALL TAU
MATHEMATICAL ITALIC SMALL UPSILON
MATHEMATICAL ITALIC SMALL PHI
MATHEMATICAL ITALIC SMALL CHI
MATHEMATICAL ITALIC SMALL PSI
MATHEMATICAL ITALIC SMALL OMEGA
MATHEMATICAL ITALIC EPSILON SYMBOL
MATHEMATICAL ITALIC THETA SYMBOL
MATHEMATICAL ITALIC KAPPA SYMBOL
MATHEMATICAL ITALIC PHI SYMBOL
MATHEMATICAL ITALIC RHO SYMBOL
MATHEMATICAL ITALIC PI SYMBOL
MATHEMATICAL BOLD ITALIC CAPITAL ALPHA
MATHEMATICAL BOLD ITALIC CAPITAL BETA
MATHEMATICAL BOLD ITALIC CAPITAL GAMMA
MATHEMATICAL BOLD ITALIC CAPITAL DELTA
MATHEMATICAL BOLD ITALIC CAPITAL EPSILON
MATHEMATICAL BOLD ITALIC CAPITAL ZETA
MATHEMATICAL BOLD ITALIC CAPITAL ETA
MATHEMATICAL BOLD ITALIC CAPITAL THETA
MATHEMATICAL BOLD ITALIC CAPITAL IOTA
MATHEMATICAL BOLD ITALIC CAPITAL KAPPA
MATHEMATICAL BOLD ITALIC CAPITAL LAMDA
MATHEMATICAL BOLD ITALIC CAPITAL MU
MATHEMATICAL BOLD ITALIC CAPITAL NU
MATHEMATICAL BOLD ITALIC CAPITAL XI
MATHEMATICAL BOLD ITALIC CAPITAL OMICRON
MATHEMATICAL BOLD ITALIC CAPITAL PI
MATHEMATICAL BOLD ITALIC CAPITAL RHO
MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL
MATHEMATICAL BOLD ITALIC CAPITAL SIGMA
MATHEMATICAL BOLD ITALIC CAPITAL TAU
MATHEMATICAL BOLD ITALIC CAPITAL UPSILON
MATHEMATICAL BOLD ITALIC CAPITAL PHI
MATHEMATICAL BOLD ITALIC CAPITAL CHI
MATHEMATICAL BOLD ITALIC CAPITAL PSI
MATHEMATICAL BOLD ITALIC CAPITAL OMEGA
MATHEMATICAL BOLD ITALIC SMALL ALPHA
MATHEMATICAL BOLD ITALIC SMALL BETA
MATHEMATICAL BOLD ITALIC SMALL GAMMA
MATHEMATICAL BOLD ITALIC SMALL DELTA
MATHEMATICAL BOLD ITALIC SMALL EPSILON
MATHEMATICAL BOLD ITALIC SMALL ZETA
MATHEMATICAL BOLD ITALIC SMALL ETA
MATHEMATICAL BOLD ITALIC SMALL THETA
MATHEMATICAL BOLD ITALIC SMALL IOTA
MATHEMATICAL BOLD ITALIC SMALL KAPPA
MATHEMATICAL BOLD ITALIC SMALL LAMDA
MATHEMATICAL BOLD ITALIC SMALL MU
MATHEMATICAL BOLD ITALIC SMALL NU
MATHEMATICAL BOLD ITALIC SMALL XI
MATHEMATICAL BOLD ITALIC SMALL OMICRON
MATHEMATICAL BOLD ITALIC SMALL PI
MATHEMATICAL BOLD ITALIC SMALL RHO
MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA
MATHEMATICAL BOLD ITALIC SMALL SIGMA
MATHEMATICAL BOLD ITALIC SMALL TAU
MATHEMATICAL BOLD ITALIC SMALL UPSILON
MATHEMATICAL BOLD ITALIC SMALL PHI
MATHEMATICAL BOLD ITALIC SMALL CHI
MATHEMATICAL BOLD ITALIC SMALL PSI
MATHEMATICAL BOLD ITALIC SMALL OMEGA
MATHEMATICAL BOLD ITALIC EPSILON SYMBOL
MATHEMATICAL BOLD ITALIC THETA SYMBOL
MATHEMATICAL BOLD ITALIC KAPPA SYMBOL
MATHEMATICAL BOLD ITALIC PHI SYMBOL
MATHEMATICAL BOLD ITALIC RHO SYMBOL
MATHEMATICAL BOLD ITALIC PI SYMBOL
MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA
MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA
MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA
MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON
MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA
MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA
MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA
MATHEMATICAL SANS-SERIF BOLD CAPITAL MU
MATHEMATICAL SANS-SERIF BOLD CAPITAL NU
MATHEMATICAL SANS-SERIF BOLD CAPITAL XI
MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON
MATHEMATICAL SANS-SERIF BOLD CAPITAL PI
MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO
MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA
MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU
MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON
MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI
MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI
MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI
MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA
MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA
MATHEMATICAL SANS-SERIF BOLD SMALL BETA
MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA
MATHEMATICAL SANS-SERIF BOLD SMALL DELTA
MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON
MATHEMATICAL SANS-SERIF BOLD SMALL ZETA
MATHEMATICAL SANS-SERIF BOLD SMALL ETA
MATHEMATICAL SANS-SERIF BOLD SMALL THETA
MATHEMATICAL SANS-SERIF BOLD SMALL IOTA
MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA
MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA
MATHEMATICAL SANS-SERIF BOLD SMALL MU
MATHEMATICAL SANS-SERIF BOLD SMALL NU
MATHEMATICAL SANS-SERIF BOLD SMALL XI
MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON
MATHEMATICAL SANS-SERIF BOLD SMALL PI
MATHEMATICAL SANS-SERIF BOLD SMALL RHO
MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA
MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA
MATHEMATICAL SANS-SERIF BOLD SMALL TAU
MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON
MATHEMATICAL SANS-SERIF BOLD SMALL PHI
MATHEMATICAL SANS-SERIF BOLD SMALL CHI
MATHEMATICAL SANS-SERIF BOLD SMALL PSI
MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA
MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL
MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL
MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL
MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL
MATHEMATICAL SANS-SERIF BOLD PI SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA
MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL
MATHEMATICAL BOLD CAPITAL DIGAMMA
MATHEMATICAL BOLD SMALL DIGAMMA
NIL
* 
* 
143 
8843 
* 
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/genesis.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFCONSTANT CORE-MAGIC ...)
; compiling (DEFUN ROUND-UP ...)
; compiling (DEFCONSTANT +SMALLVEC-LENGTH+ ...)
; compiling (DEFTYPE SMALLVEC ...)
; compiling (DEFUN MAKE-SMALLVEC ...)
; compiling (DEFSTRUCT BIGVEC ...)
; compiling (DEFUN BVREF ...)
; compiling (DEFUN (SETF BVREF) ...)
; compiling (DEFUN BVLENGTH ...)
; compiling (DEFUN WRITE-BIGVEC-AS-SEQUENCE ...)
; compiling (DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE ...)
; compiling (DEFUN EXPAND-BIGVEC ...)
; compiling (MAKE-BVREF-N 8)
; compiling (MAKE-BVREF-N 16)
; compiling (MAKE-BVREF-N 32)
; compiling (MAKE-BVREF-N 64)
; compiling (DEFUN BVREF-WORD ...)
; compiling (DEFUN (SETF BVREF-WORD) ...)
; compiling (DEFVAR *DYNAMIC*)
; compiling (DEFCONSTANT DYNAMIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *STATIC*)
; compiling (DEFCONSTANT STATIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *READ-ONLY*)
; compiling (DEFCONSTANT READ-ONLY-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT MAX-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT DEFLATED-CORE-SPACE-ID-FLAG ...)
; compiling (DEFCONSTANT TARGET-SPACE-ALIGNMENT ...)
; compiling (DEFSTRUCT (GSPACE # ...) ...)
; compiling (DEFUN GSPACE-BYTE-ADDRESS ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-GSPACE ...)
; compiling (DEFUN IS-FIXNUM-LOWTAG ...)
; compiling (DEFUN IS-OTHER-IMMEDIATE-LOWTAG ...)
; compiling (DEFSTRUCT (DESCRIPTOR # ...) ...)
; compiling (DECLAIM (INLINE DESCRIPTOR=))
; compiling (DEFUN DESCRIPTOR= ...)
; compiling (DEFUN MAKE-RANDOM-DESCRIPTOR ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALLOCATE-COLD-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-LOWTAG ...)
; compiling (DEFUN DESCRIPTOR-FIXNUM ...)
; compiling (DEFUN DESCRIPTOR-WORD-SIZED-INTEGER ...)
; compiling (DEFUN DESCRIPTOR-BYTES ...)
; compiling (DEFUN DESCRIPTOR-BYTE-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DESCRIPTOR-INTUIT-GSPACE ...)
; compiling (DEFUN %FIXNUM-DESCRIPTOR-IF-POSSIBLE ...)
; compiling (DEFUN MAKE-FIXNUM-DESCRIPTOR ...)
; compiling (DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR ...)
; compiling (DEFUN MAKE-CHARACTER-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-BEYOND ...)
; compiling (DEFVAR *FOREIGN-SYMBOL-PLACEHOLDER-VALUE*)
; compiling (DEFVAR *UNBOUND-MARKER*)
; compiling (DEFVAR *NIL-DESCRIPTOR*)
; compiling (DEFVAR *CURRENT-REVERSED-COLD-TOPLEVELS*)
; compiling (DEFVAR *CURRENT-DEBUG-SOURCES*)
; compiling (DEFPARAMETER *COLD-FOREIGN-UNDEFINED-SYMBOLS* ...)
; compiling (DEFMACRO COLD-PUSH ...)
; compiling (DEFUN TARGET-PUSH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-BITS-WORDINDEXED ...)
; compiling (DEFUN READ-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-MEMORY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-MEMORY ...)
; compiling (DEFUN WRITE-HEADER-WORD ...)
; compiling (DEFUN ALLOCATE-OBJECT ...)
; compiling (DEFUN ALLOCATE-HEADER+OBJECT ...)
; compiling (DEFUN ALLOCATE-VECTOR-OBJECT ...)
; compiling (DEFVAR *HOST-LAYOUT-OF-LAYOUT* ...)
; compiling (DEFUN COLD-LAYOUT-LENGTH ...)
; compiling (DEFUN ALLOCATE-STRUCT ...)
; compiling (DEFUN BASE-STRING-TO-CORE ...)
; compiling (DEFUN BASE-STRING-FROM-CORE ...)
; compiling (DEFUN BIGNUM-TO-CORE ...)
; compiling (DEFUN BIGNUM-FROM-CORE ...)
; compiling (DEFUN NUMBER-PAIR-TO-CORE ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN WRITE-DOUBLE-FLOAT-BITS
;     (LET ((SB!FASL::BITS
;            (SB!FASL::MAKE-RANDOM-DESCRIPTOR (ECASE SB!C:*BACKEND-BYTE-ORDER* #))))
;       (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::BITS))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32))
; ==>
;   SB!FASL::LO
; 
; note: deleting unreachable code

;     (SB!FASL::MAKE-RANDOM-DESCRIPTOR
;      (ECASE SB!C:*BACKEND-BYTE-ORDER*
;        (:LITTLE-ENDIAN (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32)))))
; 
; note: deleting unreachable code
; compiling (DEFUN WRITE-DOUBLE-FLOAT-BITS ...)
; compiling (DEFUN FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE ...)
; compiling (DEFUN NUMBER-TO-CORE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-INT-TO-CORE ...)
; compiling (DEFUN COLD-CONS ...)
; compiling (DEFUN COLD-LIST ...)
; compiling (DEFUN COLD-LIST-LENGTH ...)
; compiling (DEFUN VECTOR-IN-CORE ...)
; compiling (DEFUN COLD-SVSET ...)
; compiling (DECLAIM (INLINE COLD-VECTOR-LEN ...))
; compiling (DEFUN COLD-VECTOR-LEN ...)
; compiling (DEFUN COLD-SVREF ...)
; compiling (DEFUN COLD-VECTOR-ELEMENTS-EQ ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN VECTOR-FROM-CORE
;     (SB!FASL::COLD-SVREF SB!FASL::DESCRIPTOR SB!FASL::I)
; --> BLOCK SB!FASL::READ-WORDINDEXED + IF SB!FASL::DESCRIPTOR-FIXNUM 
; ==>
;   SB!FASL::I
; 
; note: deleting unreachable code
; compiling (DEFUN VECTOR-FROM-CORE ...)
; compiling (DEFVAR *GENESIS-TLS-COUNTER* ...)
; compiling (DEFUN ALLOCATE-SYMBOL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COLD-SET ...)
; compiling (DEFUN COLD-SYMBOL-VALUE ...)
; compiling (DEFUN COLD-FDEFN-FUN ...)
; compiling (DEFVAR *COLD-LAYOUTS* ...)
; compiling (DEFVAR *COLD-LAYOUT-NAMES* ...)
; compiling (DEFVAR *LAYOUT-LAYOUT*)
; compiling (DEFVAR *PACKAGE-LAYOUT*)
; compiling (DEFVAR *KNOWN-STRUCTURE-CLASSOIDS*)
; compiling (DEFCONSTANT TARGET-LAYOUT-LENGTH ...)
; compiling (DEFUN LISTIFY-COLD-INHERITS ...)
; compiling (DEFUN WRITE-SLOTS ...)
; compiling (DEFUN READ-SLOT ...)
; compiling (DEFVAR *SIMPLE-VECTOR-0-DESCRIPTOR*)
; compiling (DEFVAR *VACUOUS-SLOT-TABLE*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-COLD-LAYOUT ...)
; compiling (DEFUN PATCH-INSTANCE-LAYOUT ...)
; compiling (DEFUN INITIALIZE-LAYOUTS ...)
; compiling (DEFVAR *COLD-PACKAGE-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *COLD-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN INITIALIZE-PACKAGES ...)
; compiling (DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P ...)
; compiling (DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL ...)
; compiling (DEFVAR *UNINTERNED-SYMBOL-TABLE* ...)
; compiling (DEFUN GET-UNINTERNED-SYMBOL ...)
; compiling (DEFUN HOST-CONSTANT-TO-CORE ...)
; compiling (DEFUN TARGET-SYMBOL-FUNCTION ...)
; compiling (DEFUN EMULATE-TARGET-MAKE-ARRAY ...)
; compiling (DEFUN EMULATE-TARGET-EVAL ...)
; compiling (DEFUN COLD-INTERN ...)
; compiling (DEFUN RECORD-ACCESSIBILITY ...)
; compiling (DEFUN MAKE-NIL-DESCRIPTOR ...)
; compiling (DEFUN INITIALIZE-NON-NIL-SYMBOLS ...)
; compiling (DEFUN SORT-COLD-LAYOUTS ...)
; compiling (DEFUN COLD-LIST-ALL-LAYOUTS ...)
; compiling (DEFUN FINISH-SYMBOLS ...)
; compiling (DEFVAR *COLD-FDEFN-OBJECTS*)
; compiling (DEFVAR *COLD-FDEFN-GSPACE* ...)
; compiling (DEFUN WARM-SYMBOL ...)
; compiling (DEFUN COLD-CAR ...)
; compiling (DEFUN COLD-CDR ...)
; compiling (DEFUN COLD-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WARM-FUN-NAME ...)
; compiling (DEFUN COLD-FDEFINITION-OBJECT ...)
; compiling (DEFUN STATIC-FSET ...)
; compiling (DEFPARAMETER *COLD-FSET-WARM-NAMES* ...)
; compiling (DEFUN COLD-FSET ...)
; compiling (DEFUN INITIALIZE-STATIC-FNS ...)
; compiling (DEFUN ATTACH-FDEFINITIONS-TO-SYMBOLS ...)
; compiling (DEFVAR *COLD-FOREIGN-SYMBOL-TABLE*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE ...)
; compiling (DEFUN COLD-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFVAR *COLD-ASSEMBLER-ROUTINES*)
; compiling (DEFVAR *COLD-ASSEMBLER-FIXUPS*)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-ROUTINE ...)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-FIXUP ...)
; compiling (DEFUN LOOKUP-ASSEMBLER-REFERENCE ...)
; compiling (DEFVAR *DEFERRED-KNOWN-FUN-REFS*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CALC-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DO-COLD-FIXUP ...)
; compiling (DEFUN RESOLVE-ASSEMBLER-FIXUPS ...)
; compiling (DEFUN FOREIGN-SYMBOLS-TO-CORE ...)
; compiling (DEFUN POP-FOP-STACK ...)
; compiling (DEFMACRO DEFINE-COLD-FOP ...)
; compiling (DEFMACRO NOT-COLD-FOP ...)
; compiling (DEFUN COLD-LOAD ...)
; compiling (DEFINE-COLD-FOP (FOP-MISC-TRAP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER #) ...)
; compiling (DEFINE-COLD-FOP (FOP-EMPTY-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-TRUTH) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCT #) ...)
; compiling (DEFINE-COLD-FOP (FOP-LAYOUT) ...)
; compiling (DEFUN COLD-LOAD-SYMBOL ...)
; compiling (FLET (#) ...)
; compiling (DEFINE-COLD-FOP (FOP-LISP-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-COPY-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-NAMED-PACKAGE-SAVE #) ...)
; compiling (DEFMACRO COLD-STACK-LIST ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-BASE-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-VECTOR #) ...)
; compiling (DEFINE-COLD-FOP (FOP-SPEC-VECTOR) ...)
; compiling (NOT-COLD-FOP FOP-ARRAY)
; compiling (DEFMACRO DEFINE-COLD-NUMBER-FOP ...)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-WORD-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-BYTE-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-INTEGER ...)
; compiling (DEFINE-COLD-FOP (FOP-RATIO) ...)
; compiling (DEFINE-COLD-FOP (FOP-COMPLEX) ...)
; compiling (NOT-COLD-FOP FOP-EVAL)
; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT)
; compiling (DEFVAR *LOAD-TIME-VALUE-COUNTER*)
; compiling (FLET (#) ...)
; compiling (DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACA) ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACD) ...)
; compiling (DEFINE-COLD-FOP (FOP-SVSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCTSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-NTHCDR) ...)
; compiling (DEFUN COLD-NTHCDR ...)
; compiling (DEFINE-COLD-FOP (FOP-NOTE-DEBUG-SOURCE) ...)
; compiling (DEFINE-COLD-FOP (FOP-FDEFN) ...)
; compiling (DEFINE-COLD-FOP (FOP-KNOWN-FUN) ...)
; compiling (DEFINE-COLD-FOP (FOP-SANCTIFY-FOR-EXECUTION) ...)
; compiling (DEFUN COLD-LOAD-CODE ...)
; compiling (DOTIMES (I 16) ...)
; compiling (DEFUN RESOLVE-DEFERRED-KNOWN-FUNS ...)
; compiling (DEFINE-COLD-FOP (FOP-ALTER-CODE #) ...)
; compiling (DEFVAR *SIMPLE-FUN-METADATA* ...)
; compiling (DEFUN MAKE-EQUAL-COMPARABLE-THING ...)
; compiling (DEFINE-COLD-FOP (FOP-FUN-ENTRY) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP) ...)
; compiling (DEFUN CHECK-SPACES ...)
; compiling (DEFUN TAILWISE-EQUAL ...)
; compiling (DEFUN WRITE-BOILERPLATE ...)
; compiling (DEFUN C-NAME ...)
; compiling (DEFUN C-SYMBOL-NAME ...)
; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...)
; compiling (DEFUN WRITE-CONFIG-H ...)
; compiling (DEFUN WRITE-CONSTANTS-H ...)
; compiling (DEFUN WRITE-TAGNAMES-H ...)
; compiling (DEFUN WRITE-PRIMITIVE-OBJECT ...)
; compiling (DEFUN WRITE-STRUCTURE-OBJECT ...)
; compiling (DEFUN WRITE-STATIC-SYMBOLS ...)
; compiling (DEFUN WRITE-MAP ...)
; compiling (DEFVAR *CORE-FILE*)
; compiling (DEFVAR *DATA-PAGE*)
; compiling (DEFCONSTANT BUILD-ID-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT INITIAL-FUN-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT PAGE-TABLE-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT END-CORE-ENTRY-TYPE-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORD ...)
; compiling (DEFUN ADVANCE-TO-PAGE ...)
; compiling (DEFUN OUTPUT-GSPACE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-INITIAL-CORE-FILE ...)
; compiling (DEFUN SB!VM:GENESIS ...)
; 
; compilation unit finished
;   printed 5 notes
; compiling (DEFUN WARMELIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/genesis.fasl-tmp written
; compilation finished in 0:00:16.494
T
* 
beginning GENESIS, creating headers in "src/runtime/genesis"
NIL
566.75user 19.39system 9:51.40elapsed 99%CPU (0avgtext+0avgdata 223304maxresident)k
0inputs+43440outputs (0major+431688minor)pagefaults 0swaps
* //entering make-target-1.sh
//building runtime system and symbol table file
make[1]: Entering directory '/«PKGBUILDDIR»/src/runtime'
rm -f *.[do] sbcl sbcl.nm sbcl.h core *.tmp 
make[1]: Leaving directory '/«PKGBUILDDIR»/src/runtime'
make[1]: Entering directory '/«PKGBUILDDIR»/src/runtime'
echo '#include "genesis/config.h"' >sbcl.h
echo '#include "genesis/constants.h"' >>sbcl.h
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o alloc.o alloc.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o backtrace.o backtrace.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o breakpoint.o breakpoint.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o coreparse.o coreparse.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o dynbind.o dynbind.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o funcall.o funcall.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o gc-common.o gc-common.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o globals.o globals.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o interr.o interr.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o interrupt.o interrupt.c
interrupt.c: In function 'build_fake_control_stack_frames':
interrupt.c:672:38: warning: assignment makes pointer from integer without a cast
     access_control_frame_pointer(th) =
                                      ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o largefile.o largefile.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o monitor.o monitor.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o os-common.o os-common.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o parse.o parse.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o print.o print.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o purify.o purify.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o pthread-futex.o pthread-futex.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o regnames.o regnames.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o run-program.o run-program.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o runtime.o runtime.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o safepoint.o safepoint.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o save.o save.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o search.o search.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o thread.o thread.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o time.o time.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o util.o util.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o validate.o validate.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o vars.o vars.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o wrap.o wrap.c
wrap.c:559:36: warning: 'struct itimerval' declared inside parameter list
 int sb_getitimer(int which, struct itimerval *value)
                                    ^
wrap.c:559:36: warning: its scope is only this definition or declaration, which is probably not what you want
wrap.c:564:61: warning: 'struct itimerval' declared inside parameter list
 int sb_setitimer(int which, struct itimerval *value, struct itimerval *ovalue)
                                                             ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o arm-arch.o arm-arch.c
arm-arch.c: In function 'arch_write_linkage_table_jmp':
arm-arch.c:198:15: warning: assignment makes integer from pointer without a cast
   *inst_ptr++ = target_addr;
               ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o linux-os.o linux-os.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o arm-linux-os.o arm-linux-os.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o gencgc.o gencgc.c
gencgc.c: In function 'verify_space':
gencgc.c:3158:43: warning: taking address of expression of type 'void'
                     && (thing != (lispobj)&funcallable_instance_tramp)
                                           ^
gencgc.c: In function 'garbage_collect_generation':
gencgc.c:3736:30: warning: passing argument 1 of 'preserve_pointer' makes pointer from integer without a cast
             preserve_pointer(list_entry->car);
                              ^
gencgc.c:2466:1: note: expected 'void *' but argument is of type 'lispobj'
 preserve_pointer(void *addr)
 ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o arm-assem.o arm-assem.S
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/«PKGBUILDDIR»/stage1'\"  -c -o ldso-stubs.o ldso-stubs.S
cc -g -o sbcl alloc.o backtrace.o breakpoint.o coreparse.o dynbind.o funcall.o gc-common.o globals.o interr.o interrupt.o largefile.o monitor.o os-common.o parse.o print.o purify.o pthread-futex.o regnames.o run-program.o runtime.o safepoint.o save.o search.o thread.o time.o util.o validate.o vars.o wrap.o arm-arch.o linux-os.o arm-linux-os.o gencgc.o arm-assem.o ldso-stubs.o -ldl -lz -lm
./linux-nm sbcl | grep -v " [FUw] " > ,sbcl.nm
mv -f ,sbcl.nm sbcl.nm
etags alloc.c backtrace.c breakpoint.c coreparse.c dynbind.c funcall.c gc-common.c globals.c interr.c interrupt.c largefile.c monitor.c os-common.c parse.c print.c purify.c pthread-futex.c regnames.c run-program.c runtime.c safepoint.c save.c search.c thread.c time.c util.c validate.c vars.c wrap.c arm-arch.c linux-os.c arm-linux-os.c gencgc.c arm-assem.S ldso-stubs.S || true
/bin/sh: 1: etags: not found
make[1]: Leaving directory '/«PKGBUILDDIR»/src/runtime'
make[1]: Entering directory '/«PKGBUILDDIR»/tools-for-build'
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I../src/runtime   grovel-headers.c  -ldl -lz -o grovel-headers
make[1]: Leaving directory '/«PKGBUILDDIR»/tools-for-build'
make[1]: Entering directory '/«PKGBUILDDIR»/src/runtime'
make[1]: Nothing to be done for 'after-grovel-headers'.
make[1]: Leaving directory '/«PKGBUILDDIR»/src/runtime'
18.62user 4.36system 0:24.38elapsed 94%CPU (0avgtext+0avgdata 22808maxresident)k
2296inputs+13288outputs (1major+134070minor)pagefaults 0swaps
//entering make-host-2.sh
//running cross-compiler to create target object files
This is SBCL 1.2.11.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* 
5
* target features *SHEBANG-FEATURES*=(:OS-PROVIDES-POLL
                                      :OS-PROVIDES-GETPROTOBY-R
                                      :OS-PROVIDES-SUSECONDS-T
                                      :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN
                                      :LITTLE-ENDIAN
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :PRECISE-ARG-COUNT-ERROR
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :STACK-ALLOCATABLE-VECTORS
                                      :STACK-ALLOCATABLE-FIXED-OBJECTS
                                      :STACK-ALLOCATABLE-LISTS
                                      :SYMBOL-INFO-VOPS :MULTIPLY-HIGH-VOPS
                                      :ASH-RIGHT-VOPS :ARM-VFPV2 :ARM-VFP
                                      :ALIEN-CALLBACKS :LINKAGE-TABLE :GENCGC
                                      :LARGEFILE :LINUX :ELF :UNIX :ARM
                                      :IEEE-FLOATING-POINT
                                      :PACKAGE-LOCAL-NICKNAMES
                                      :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE
                                      :SB-PACKAGE-LOCKS :SB-LDB :SB-TEST
                                      :SB-DOC :SBCL :COMMON-LISP :ANSI-CL
                                      :SB-CORE-COMPRESSION
                                      :SB-XREF-FOR-INTERNALS :SB-AFTER-XC-CORE)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-xc/"
* 
T
* 
T
; in: LAMBDA (SB-KERNEL::NEWVAL SB-KERNEL:INSTANCE)
;     (THE SB!C::CLAMBDA #:NEW599)
; 
; caught STYLE-WARNING:
;   undefined type: CLAMBDA
; 
; compilation unit finished
;   Undefined type:
;     CLAMBDA
;   caught 1 STYLE-WARNING condition

;     (THE SB!C:TN #:NEW606)
; 
; caught STYLE-WARNING:
;   undefined type: TN
; 
; compilation unit finished
;   Undefined type:
;     TN
;   caught 1 STYLE-WARNING condition

; in: SB-XC:DEFMACRO DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN
* 
* 
PROCLAIM-TARGET-OPTIMIZATION
* 
PROCLAIM-TARGET-OPTIMIZATION
NIL
NIL
* 
IN-TARGET-CROSS-COMPILATION-MODE
* 
IN-TARGET-CROSS-COMPILATION-MODE
NIL
NIL
* 
#<FUNCTION SB-XC:COMPILE-FILE>
* 
#<FUNCTION SB!C:ASSEMBLE-FILE>
* 
#<FUNCTION IN-TARGET-CROSS-COMPILATION-MODE>
* 
#<FUNCTION (MACRO-FUNCTION SB!INT:QUASIQUOTE) {5363D4F5}>
* 
:MINIMAL
* 
creating directory: /«PKGBUILDDIR»/obj/from-xc/
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/code/
; compiling file "/«PKGBUILDDIR»/src/code/early-source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...)
; x-compiling (DEFUN SOURCE-LOCATION ...)
; x-compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...)
; x-compiling (DEFMACRO WITH-SOURCE-LOCATION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-source-location.lisp-obj-tmp written
; compilation finished in 0:00:00.111
; compiling file "/«PKGBUILDDIR»/src/code/show.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!INT")
; x-compiling (DEFMACRO /SHOW ...)
; x-compiling (DEFMACRO /NOSHOW ...)
; x-compiling (DEFMACRO /XHOW ...)
; x-compiling (DEFMACRO /NOXHOW ...)
; x-compiling (DEFMACRO /SHOW0 ...)
; x-compiling (DEFMACRO /NOSHOW0 ...)
; x-compiling (DEFMACRO /PRIMITIVE-PRINT ...)
; x-compiling (DEFMACRO /HEXSTR ...)
; x-compiling (DEFMACRO /NOHEXSTR ...)
; x-compiling (/SHOW0 "done with show.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/show.lisp-obj-tmp written
; compilation finished in 0:00:00.263
; compiling file "/«PKGBUILDDIR»/src/code/early-constants.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-constants.lisp-obj-tmp written
; compilation finished in 0:00:00.045
; compiling file "/«PKGBUILDDIR»/src/code/backq.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (/SHOW0 "entering backq.lisp")
; x-compiling (DEFSTRUCT (COMMA # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE COMMA))
; x-compiling (DEFCONSTANT !+COMMA-DOT+ ...)
; x-compiling (DEFCONSTANT !+COMMA-AT+ ...)
; x-compiling (DEFUN UNQUOTE-NSPLICE ...)
; x-compiling (DEFUN UNQUOTE-SPLICE ...)
; x-compiling (DEFUN UNQUOTE* ...)
; x-compiling (DEFUN UNQUOTE*-SPLICE ...)
; x-compiling (DECLAIM (INLINE COMMA-CONSTRUCTOR ...))
; x-compiling (DEFUN COMMA-CONSTRUCTOR ...)
; x-compiling (DEFUN COMMA-SPLICING-P ...)
; x-compiling (DECLAIM (INLINE SINGLETON-P))
; x-compiling (DEFUN SINGLETON-P ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *BACKQUOTE-DEPTH* ...)
; x-compiling (DEFVAR *BQ-ERROR* ...)
; x-compiling (/SHOW0 "backq.lisp 50")
; x-compiling (DEFUN BACKQUOTE-CHARMACRO ...)
; x-compiling (/SHOW0 "backq.lisp 64")
; x-compiling (DEFUN COMMA-CHARMACRO ...)
; x-compiling (/SHOW0 "backq.lisp 83")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (INLINE QQ-SUBFORM-SPLICING-P))
; x-compiling (DEFUN QQ-SUBFORM-SPLICING-P ...)
; x-compiling (DEFUN EXPAND-QUASIQUOTE ...)
; x-compiling (DEFINE-COMPILER-MACRO QUASIQUOTE ...)
; x-compiling (DEFMACRO QUASIQUOTE ...)
; x-compiling (DEFUN QQ-TEMPLATE-TO-SEXPR ...)
; x-compiling (/SHOW0 "backq.lisp 139")
; x-compiling (DEFUN QQ-FOLD-SUFFIX ...)
; x-compiling (DEFUN QQ-MAP-TEMPLATE-TO-LIST ...)
; x-compiling (DEFUN QQ-TEMPLATE-1 ...)
; x-compiling (SETF (SYMBOL-FUNCTION #) ...)
; x-compiling (DEFUN !BACKQ-COLD-INIT ...)
; x-compiling (/SHOW0 "done with backq.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/backq.lisp-obj-tmp written
; compilation finished in 0:00:01.668
; compiling file "/«PKGBUILDDIR»/src/code/globals.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (SPECIAL SB!PRETTY::*STANDARD-PPRINT-DISPATCH-TABLE* ...))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (FTYPE # ...))

; /«PKGBUILDDIR»/obj/from-xc/src/code/globals.lisp-obj-tmp written
; compilation finished in 0:00:00.040
; compiling file "/«PKGBUILDDIR»/src/code/defsetfs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (SB!INT:/SHOW0 "entering defsetfs.lisp")
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFSETF SLOT ...)
; x-compiling (DEFSETF DEREF ...)
; x-compiling (DEFSETF %HEAP-ALIEN ...)
; x-compiling (IN-PACKAGE "SB!BIGNUM")
; x-compiling (DEFSETF %BIGNUM-REF ...)
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFSETF WORD-SAP-REF ...)
; x-compiling (IN-PACKAGE "SB!DI")
; x-compiling (DEFSETF STACK-REF ...)
; x-compiling (DEFSETF DEBUG-VAR-VALUE ...)
; x-compiling (DEFSETF DEBUG-VAR-VALUE ...)
; x-compiling (DEFSETF BREAKPOINT-INFO ...)
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFSETF %INSTANCE-REF ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; x-compiling (DEFSETF %INSTANCE-LAYOUT ...)
; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...)
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSETF CAR ...)
; x-compiling (DEFSETF FIRST ...)
; x-compiling (DEFSETF CDR ...)
; x-compiling (DEFSETF REST ...)

; file: /«PKGBUILDDIR»/src/code/defsetfs.lisp
; in: DEFUN %CXR-SETF-EXPANDER
;     (DEFUN SB!IMPL::%CXR-SETF-EXPANDER (SB!IMPL::SUB-ACCESSOR SB!IMPL::SETTER)
;       (FLET ((SB!IMPL::EXPAND (SB!IMPL::PLACE-READER SB!IMPL::ORIGINAL-FORM)
;                (LET #
;                  #)))
;         (IF (EQ SB!IMPL::SUB-ACCESSOR 'NTHCDR)
;             (LAMBDA (SB!IMPL::ACCESS-FORM SB!IMPL::ENV)
;               (DECLARE #)
;               (DESTRUCTURING-BIND # # #)
;               (SB!IMPL::EXPAND '# SB!IMPL::ACCESS-FORM))
;             (LAMBDA (SB!IMPL::ACCESS-FORM SB!IMPL::ENV)
;               (DECLARE #)
;               (DESTRUCTURING-BIND # # #)
;               (SB!IMPL::EXPAND SB!IMPL::SUB-ACCESSOR SB!IMPL::ACCESS-FORM)))))
; 
; caught STYLE-WARNING:
;   redefining SB!IMPL::%CXR-SETF-EXPANDER in DEFUN
; x-compiling (DEFUN %CXR-SETF-EXPANDER ...)
; x-compiling (DEF CAAR)
; x-compiling (DEF CADR ...)
; x-compiling (DEF CDAR)
; x-compiling (DEF CDDR)
; x-compiling (DEF CAAAR)
; x-compiling (DEF CADAR)
; x-compiling (DEF CDAAR)
; x-compiling (DEF CDDAR)
; x-compiling (DEF CAADR)
; x-compiling (DEF CADDR ...)
; x-compiling (DEF CDADR)
; x-compiling (DEF CDDDR)
; x-compiling (DEF CAAAAR)
; x-compiling (DEF CADAAR)
; x-compiling (DEF CDAAAR)
; x-compiling (DEF CDDAAR)
; x-compiling (DEF CAADAR)
; x-compiling (DEF CADDAR)
; x-compiling (DEF CDADAR)
; x-compiling (DEF CDDDAR)
; x-compiling (DEF CAAADR)
; x-compiling (DEF CADADR)
; x-compiling (DEF CDAADR)
; x-compiling (DEF CDDADR)
; x-compiling (DEF CAADDR)
; x-compiling (DEF CADDDR ...)
; x-compiling (DEF CDADDR)
; x-compiling (DEF CDDDDR)
; x-compiling (DEF FIFTH ...)
; x-compiling (DEF SIXTH ...)
; x-compiling (DEF SEVENTH ...)
; x-compiling (DEF EIGHTH ...)
; x-compiling (DEF NINTH ...)
; x-compiling (DEF TENTH ...)
; x-compiling (!QUIETLY-DEFSETF (QUOTE NTH) ...)
; x-compiling (DEFSETF ELT ...)
; x-compiling (DEFSETF ROW-MAJOR-AREF ...)
; x-compiling (DEFSETF SVREF ...)
; x-compiling (DEFSETF CHAR ...)
; x-compiling (DEFSETF SCHAR ...)
; x-compiling (DEFSETF %ARRAY-DIMENSION ...)
; x-compiling (DEFSETF %VECTOR-RAW-BITS ...)
; x-compiling (DEFSETF SYMBOL-VALUE ...)
; x-compiling (DEFSETF SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFSETF SYMBOL-PLIST ...)
; x-compiling (DEFSETF FILL-POINTER ...)
; x-compiling (DEFSETF SAP-REF-8 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-8 ...)
; x-compiling (DEFSETF SAP-REF-16 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-16 ...)
; x-compiling (DEFSETF SAP-REF-32 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-32 ...)
; x-compiling (DEFSETF SAP-REF-64 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-64 ...)
; x-compiling (DEFSETF SAP-REF-WORD ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFSETF SAP-REF-SAP ...)
; x-compiling (DEFSETF SAP-REF-LISPOBJ ...)
; x-compiling (DEFSETF SAP-REF-SINGLE ...)
; x-compiling (DEFSETF SAP-REF-DOUBLE ...)
; x-compiling (DEFSETF SUBSEQ ...)
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSETF FDEFINITION ...)
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFSETF CODE-HEADER-REF ...)
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFSETF CONTEXT-REGISTER ...)
; x-compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "leaving defsetfs.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/defsetfs.lisp-obj-tmp written
; compilation finished in 0:00:00.708
; compiling file "/«PKGBUILDDIR»/src/code/cold-init-helper-macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFVAR *!COLD-INIT-FORMS*)
; x-compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...)
; x-compiling (DEFMACRO !COLD-INIT-FORMS ...)
; x-compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...)
; x-compiling (DEF !DEFGLOBAL ...)
; x-compiling (DEF !DEFPARAMETER ...)
; x-compiling (DEF !DEFVAR ...)
; x-compiling (DEFUN !DELAYED-COLD-SET-SYMBOL-VALUE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cold-init-helper-macros.lisp-obj-tmp written
; compilation finished in 0:00:00.327
; compiling file "/«PKGBUILDDIR»/src/code/uncross.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!INT")
; x-compiling (DECLAIM (INLINE UNCROSS))
; x-compiling (DEFUN UNCROSS ...)
; x-compiling (DEFMACRO !UNCROSS-FORMAT-CONTROL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/uncross.lisp-obj-tmp written
; compilation finished in 0:00:00.106
; compiling file "/«PKGBUILDDIR»/src/code/primordial-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!DEFGLOBAL *TYPE-SYSTEM-INITIALIZED* ...)
; x-compiling (DEFGLOBAL *WILD-TYPE* ...)
; x-compiling (DEFGLOBAL *EMPTY-TYPE* ...)
; x-compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...)
; x-compiling (DEFGLOBAL *INSTANCE-TYPE* ...)
; x-compiling (DEFGLOBAL *FUNCALLABLE-INSTANCE-TYPE* ...)
; x-compiling (DEFGLOBAL *EXTENDED-SEQUENCE-TYPE* ...)
; x-compiling (DEFGLOBAL *UNIVERSAL-FUN-TYPE* ...)
; x-compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...)
; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; /«PKGBUILDDIR»/obj/from-xc/src/code/primordial-type.lisp-obj-tmp written
; compilation finished in 0:00:00.150
; compiling file "/«PKGBUILDDIR»/src/code/early-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO SB-XC:DEFMETHOD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00.042
; compiling file "/«PKGBUILDDIR»/src/code/defbangtype.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFMACRO DEF!TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangtype.lisp-obj-tmp written
; compilation finished in 0:00:00.056
; compiling file "/«PKGBUILDDIR»/src/code/defbangmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO DEF!MACRO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangmacro.lisp-obj-tmp written
; compilation finished in 0:00:00.054
; compiling file "/«PKGBUILDDIR»/src/code/defbangconstant.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFMACRO DEF!CONSTANT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangconstant.lisp-obj-tmp written
; compilation finished in 0:00:00.082
; compiling file "/«PKGBUILDDIR»/src/code/primordial-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...)
; x-compiling (DEFUN FROB-DO-BODY ...)
; x-compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-GENSYM-LIST ...)
; x-compiling (DECLAIM (TYPE PACKAGE ...))
; x-compiling (DEFGLOBAL *CL-PACKAGE* ...)
; x-compiling (DEFGLOBAL *KEYWORD-PACKAGE* ...)
; x-compiling (DEFUN SYMBOLICATE ...)
; x-compiling (DEFUN GENSYMIFY ...)
; x-compiling (DEFUN KEYWORDICATE ...)

; file: /«PKGBUILDDIR»/src/code/primordial-extensions.lisp
; in: DEFUN SANE-PACKAGE
;     (TYPE-OF SB!IMPL::MAYBE-PACKAGE)
; ==>
;   SB!IMPL::MAYBE-PACKAGE
; 
; note: deleting unreachable code
; x-compiling (DEFUN SANE-PACKAGE ...)
; x-compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...)
; x-compiling (DEF!MACRO STRING-DISPATCH ...)
; x-compiling (DEFMACRO DEFENUM ...)
; x-compiling (DEFMACRO DEFCONSTANT-EQX ...)
; x-compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...)
; x-compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...)
; x-compiling (DEFUN PROPER-LIST-P ...)
; x-compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEF!MACRO DO-ANONYMOUS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/primordial-extensions.lisp-obj-tmp written
; compilation finished in 0:00:03.185
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/compiler/
; compiling file "/«PKGBUILDDIR»/src/compiler/early-globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFCONSTANT INFO-NUMBER-BITS ...)
; x-compiling (DEFTYPE INFO-NUMBER ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFGLOBAL *INFO-TYPES* ...)
; x-compiling (DEF INFO ...)
; x-compiling (DEF (SETF INFO) ...)
; x-compiling (DEF CLEAR-INFO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-globaldb.lisp-obj-tmp written
; compilation finished in 0:00:00.550
; compiling file "/«PKGBUILDDIR»/src/code/function-names.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *VALID-FUN-NAMES-ALIST* ...)
; x-compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...)
; x-compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...)
; x-compiling (DEFUN VALID-FUNCTION-NAME-P ...)
; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...)
; x-compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...)
; x-compiling (DEFUN MACRO-FUNCTION-NAME ...)
; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...)
; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/function-names.lisp-obj-tmp written
; compilation finished in 0:00:00.250
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...)
; x-compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...)
; x-compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...)
; x-compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...)
; x-compiling (DEF!CONSTANT TLS-SIZE ...)
; x-compiling (DEF!CONSTANT MAX-INTERRUPTS ...)
; x-compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...)
; x-compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/parms.lisp-obj-tmp written
; compilation finished in 0:00:00.281
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!CONSTANT N-WORD-BITS ...)
; x-compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...)
; x-compiling (DEF!CONSTANT N-BYTE-BITS ...)
; x-compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...)
; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...)
; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...)
; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...)
; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...)
; x-compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-INPUT-DENORMAL-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...)
; x-compiling (DEF!CONSTANT FLOAT-FAST-BIT ...)
; x-compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-START ...)
; x-compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-END ...)
; x-compiling (DEF!CONSTANT READ-ONLY-SPACE-START ...)
; x-compiling (DEF!CONSTANT READ-ONLY-SPACE-END ...)
; x-compiling (DEF!CONSTANT STATIC-SPACE-START ...)
; x-compiling (DEF!CONSTANT STATIC-SPACE-END ...)
; x-compiling (DEF!CONSTANT DYNAMIC-SPACE-START ...)
; x-compiling (DEF!CONSTANT DYNAMIC-SPACE-END ...)
; x-compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...)
; x-compiling (DEFENUM (:START 8) ...)
; x-compiling (DEFPARAMETER *STATIC-SYMBOLS* ...)
; x-compiling (DEFPARAMETER *STATIC-FUNS* ...)
; x-compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...)
; x-compiling (DEFVAR *ALLOCATION-POINTER*)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/parms.lisp-obj-tmp written
; compilation finished in 0:00:00.409
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!CONSTANT N-LOWTAG-BITS ...)
; x-compiling (DEF!CONSTANT LOWTAG-MASK ...)
; x-compiling (DEF!CONSTANT LOWTAG-LIMIT ...)
; x-compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...)
; x-compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...)
; x-compiling (DEF!CONSTANT N-FIXNUM-BITS ...)
; x-compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...)
; x-compiling (DEF!CONSTANT WORD-SHIFT ...)
; x-compiling (DEF!CONSTANT N-WORD-BYTES ...)
; x-compiling (DEF!CONSTANT N-WIDETAG-BITS ...)
; x-compiling (DEF!CONSTANT WIDETAG-MASK ...)
; x-compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...)
; x-compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...)
; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp
; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END
;     (MIN SB!VM::STOP SB!VM::OTHER-START)
; --> LET 
; ==>
;   SB!VM::STOP
; 
; note: deleting unreachable code

; --> LET LET MIN LET 
; ==>
;   SB!VM::OTHER-START
; 
; note: deleting unreachable code
; x-compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEF!CONSTANT INSTANCE-DATA-START ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/early-vm.lisp-obj-tmp written
; compilation finished in 0:00:00.202
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFENUM NIL ...)
; x-compiling (DEF!CONSTANT NIL-VALUE ...)
; x-compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...)
; x-compiling (DEFENUM (:START # ...) ...)
; x-compiling (DEFENUM NIL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/early-objdef.lisp-obj-tmp written
; compilation finished in 0:00:00.769
; compiling file "/«PKGBUILDDIR»/src/code/early-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!CONSTANT SB-XC:ARRAY-RANK-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:ARRAY-DIMENSION-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:ARRAY-TOTAL-SIZE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-array.lisp-obj-tmp written
; compilation finished in 0:00:00.049
; compiling file "/«PKGBUILDDIR»/src/code/kernel.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN GET-HEADER-DATA ...)
; x-compiling (DEFUN SET-HEADER-DATA ...)
; x-compiling (DEFUN GET-CLOSURE-LENGTH ...)
; x-compiling (DEFUN LOWTAG-OF ...)
; x-compiling (DEFUN WIDETAG-OF ...)
; x-compiling (DECLAIM (INLINE %OTHER-POINTER-WIDETAG))
; x-compiling (DEFUN %OTHER-POINTER-WIDETAG ...)
; x-compiling (DEFUN VECTOR-SAP ...)
; x-compiling (DEFUN BINDING-STACK-POINTER-SAP ...)
; x-compiling (DEFUN DYNAMIC-SPACE-FREE-POINTER ...)
; x-compiling (DEFUN CONTROL-STACK-POINTER-SAP ...)
; x-compiling (DEFUN FUN-SUBTYPE ...)
; x-compiling (DEFUN (SETF FUN-SUBTYPE) ...)
; x-compiling (DEFUN SIMPLE-FUN-P ...)
; x-compiling (DEFTYPE SIMPLE-FUN ...)
; x-compiling (DEFUN %SIMPLE-FUN-DOC ...)
; x-compiling (DEFUN (SETF %SIMPLE-FUN-DOC) ...)
; x-compiling (DEFUN %SIMPLE-FUN-XREFS ...)
; x-compiling (DEFUN %SIMPLE-FUN-ARGLIST ...)
; x-compiling (DEFUN (SETF %SIMPLE-FUN-ARGLIST) ...)
; x-compiling (DEFUN %SIMPLE-FUN-NAME ...)
; x-compiling (DEFUN (SETF %SIMPLE-FUN-NAME) ...)
; x-compiling (DEFUN %SIMPLE-FUN-TYPE ...)
; x-compiling (DEFUN %SIMPLE-FUN-NEXT ...)
; x-compiling (DEFUN %SIMPLE-FUN-SELF ...)
; x-compiling (DEFUN CLOSUREP ...)
; x-compiling (DEFTYPE CLOSURE ...)
; x-compiling (DEFMACRO DO-CLOSURE-VALUES ...)
; x-compiling (DEFUN %CLOSURE-VALUES ...)
; x-compiling (DEFUN %CLOSURE-FUN ...)
; x-compiling (DEFUN %CLOSURE-INDEX-REF ...)
; x-compiling (DEFUN SB!C::VECTOR-LENGTH ...)
; x-compiling (DEFUN ALLOCATE-VECTOR ...)
; x-compiling (DEFUN MAKE-ARRAY-HEADER ...)
; x-compiling (DEFUN CODE-INSTRUCTIONS ...)
; x-compiling (DEFUN CODE-HEADER-REF ...)
; x-compiling (DEFUN CODE-HEADER-SET ...)
; x-compiling (DEFUN %VECTOR-RAW-BITS ...)
; x-compiling (DEFUN %SET-VECTOR-RAW-BITS ...)
; x-compiling (DEFUN MAKE-SINGLE-FLOAT ...)
; x-compiling (DEFUN MAKE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN SINGLE-FLOAT-BITS ...)
; x-compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...)
; x-compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/kernel.lisp-obj-tmp written
; compilation finished in 0:00:00.805
; compiling file "/«PKGBUILDDIR»/src/code/barrier.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (DECLAIM (INLINE SB!VM:%COMPILER-BARRIER ...))
; x-compiling (DEFUN SB!VM:%COMPILER-BARRIER ...)
; x-compiling (DEFUN SB!VM:%MEMORY-BARRIER ...)
; x-compiling (DEFUN SB!VM:%READ-BARRIER ...)
; x-compiling (DEFUN SB!VM:%WRITE-BARRIER ...)
; x-compiling (DEFUN SB!VM:%DATA-DEPENDENCY-BARRIER ...)
; x-compiling (DEFCONSTANT-EQX +BARRIER-KIND-FUNCTIONS+ ...)
; x-compiling (DEFMACRO BARRIER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/barrier.lisp-obj-tmp written
; compilation finished in 0:00:00.126
; compiling file "/«PKGBUILDDIR»/src/code/early-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *CORE-PATHNAME* ...)
; x-compiling (DEFVAR *RUNTIME-PATHNAME* ...)
; x-compiling (DEFGLOBAL *EOF-OBJECT* ...)
; x-compiling (DEFCONSTANT MAX-HASH ...)
; x-compiling (DEF!TYPE HASH ...)
; x-compiling (DEF!TYPE INDEX ...)
; x-compiling (DEF!TYPE INDEX/2 ...)
; x-compiling (DEF!TYPE INDEX-OR-MINUS-1 ...)
; x-compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...)
; x-compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...)
; x-compiling (DEF!TYPE LOAD/STORE-INDEX ...)
; x-compiling (DEF!TYPE SFUNCTION ...)
; x-compiling (DEF!TYPE TYPE-SPECIFIER ...)
; x-compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...)
; x-compiling (DEF!CONSTANT BELL-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT TAB-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT RETURN-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...)
; x-compiling (DEFUN MAYBE-CYCLIC-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...)
; x-compiling (DEFUN POSITIVE-PRIMEP ...)
; x-compiling (DEFUN COMPOUND-OBJECT-P ...)
; x-compiling (DEFUN COLLECT-NORMAL-EXPANDER ...)
; x-compiling (DEFUN COLLECT-LIST-EXPANDER ...)
; x-compiling (DEFMACRO COLLECT ...)
; x-compiling (DEFUN MEMQ ...)
; x-compiling (DEFUN ASSQ ...)
; x-compiling (DEFUN DELQ ...)
; x-compiling (DEFUN POSQ ...)
; x-compiling (DECLAIM (INLINE NEQ))
; x-compiling (DEFUN NEQ ...)
; x-compiling (DECLAIM (INLINE NTH-BUT-WITH-SANE-ARG-ORDER))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NTH-BUT-WITH-SANE-ARG-ORDER ...)
; x-compiling (DEFUN ADJUST-LIST ...)
; x-compiling (DEFMACRO NAMED-LET ...)
; x-compiling (DEFUN FILTER-DOLIST-DECLARATIONS ...)
; x-compiling (DEFMACRO DOVECTOR ...)
; x-compiling (DEFMACRO DOHASH ...)
; x-compiling (DEFMACRO DOPLIST ...)
; x-compiling (DEFVAR *PROFILE-HASH-CACHE* ...)
; x-compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...)
; x-compiling (DEFUN DROP-ALL-HASH-CACHES ...)
; x-compiling (DEFUN ALLOC-HASH-CACHE ...)
; x-compiling (DEF 2)
; x-compiling (DEF 3)
; x-compiling (DEF 4)
; x-compiling (DEF 5)
; x-compiling (DEF 6)
; x-compiling (DEFMACRO !DEFINE-HASH-CACHE ...)
; x-compiling (DEFMACRO DEFUN-CACHED ...)
; x-compiling (DEFUN EQUAL-BUT-NO-CAR-RECURSION ...)
; x-compiling (DEFUN %FIND-PACKAGE-OR-LOSE ...)
; x-compiling (DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; x-compiling (DECLAIM (INLINE LEGAL-FUN-NAME-P))
; x-compiling (DEFUN LEGAL-FUN-NAME-P ...)
; x-compiling (DEFTYPE FUNCTION-NAME ...)
; x-compiling (DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FUN-NAME-BLOCK-NAME ...)
; x-compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...)
; x-compiling (DEFMACRO ONCE-ONLY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MISSING-ARG ...)
; x-compiling (DEFMACRO AVER ...)
; x-compiling (DEFUN %FAILED-AVER ...)
; x-compiling (DEFUN BUG ...)
; x-compiling (DEFMACRO ENFORCE-TYPE ...)
; x-compiling (DEFUN %FAILED-ENFORCE-TYPE ...)
; x-compiling (DECLAIM (INLINE SWAPPED-ARGS-FUN))
; x-compiling (DEFUN SWAPPED-ARGS-FUN ...)
; x-compiling (DEFUN TYPE-BOUND-NUMBER ...)
; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-T ...)
; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-NIL ...)
; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-0 ...)
; x-compiling (DEFUN FEATUREP ...)
; x-compiling (DEFMACRO NOT/TYPE ...)
; x-compiling (DEFMACRO AND/TYPE ...)
; x-compiling (DEFUN ANY/TYPE ...)
; x-compiling (DEFUN EVERY/TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DEFPRINTER-PRIN1 ...)
; x-compiling (DEFUN DEFPRINTER-PRINC ...)
; x-compiling (DEFUN DEFPRINTER-PRINX ...)
; x-compiling (DEFUN DEFPRINTER-PRINT-SPACE ...)
; x-compiling (DEFMACRO DEFPRINTER ...)
; x-compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...)
; x-compiling (DEFUN PHYSICALIZE-PATHNAME ...)
; x-compiling (DEFUN NORMALIZE-DEPRECATION-REPLACEMENTS ...)
; x-compiling (DEFUN DEPRECATION-ERROR ...)
; x-compiling (DEFUN DEPRECATION-WARNING ...)
; x-compiling (DEFUN DEPRECATED-FUNCTION ...)
; x-compiling (DEFUN DEPRECATION-COMPILER-MACRO ...)
; x-compiling (DEFUN DEPRECATED-THING-P ...)
; x-compiling (DEFUN LOADER-DEPRECATION-WARN ...)
; x-compiling (DEFTYPE DEPRECATION-STATE ...)
; x-compiling (DEFUN PRINT-DEPRECATION-MESSAGE ...)
; x-compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...)
; x-compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...)
; x-compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...)
; x-compiling (DEFMACRO AWHEN ...)
; x-compiling (DEFMACRO ACOND ...)
; x-compiling (DEFUN EXTRACT-VAR-DECLS ...)
; x-compiling (DEFMACRO BINDING* ...)
; x-compiling (DEFMACRO DELAY ...)
; x-compiling (DEFUN FORCE ...)
; x-compiling (DEFUN PROMISE-READY-P ...)
; x-compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...)
; x-compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...)
; x-compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...)
; x-compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...)
; x-compiling (DEFUN LIST-MEMBERS ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFPARAMETER *EVALUATOR-MODE* ...)
; x-compiling (DEFMACRO DX-FLET ...)
; x-compiling (DEFMACRO DX-LET ...)
; x-compiling NIL
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN FP-ZERO-P ...)
; x-compiling (DEFUN NEG-FP-ZERO ...)
; x-compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...)
; x-compiling (DEFUN STREAM-ERROR-POSITION-INFO ...)
; x-compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST))
; x-compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...)

; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN STREAM-ERROR-POSITION-INFO
;     (IGNORE-ERRORS (INTERACTIVE-STREAM-P STREAM))
; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

;     (IGNORE-ERRORS (STREAM-ELEMENT-TYPE STREAM))
; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; in: DEFUN FILE-POSITION-OR-NIL-FOR-ERROR
;     (IGNORE-ERRORS
;      (IF SB!KERNEL::POSP
;          (FILE-POSITION STREAM SB!KERNEL::POS)
;          (FILE-POSITION STREAM)))
; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; 
; caught STYLE-WARNING:
;   5 more uses of undefined type ERROR


; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN STREAM-ERROR-POSITION-INFO
;     (INTERACTIVE-STREAM-P STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: INTERACTIVE-STREAM-P
; 
; compilation unit finished
;   Undefined type:
;     ERROR
;   Undefined function:
;     INTERACTIVE-STREAM-P
;   caught 5 STYLE-WARNING conditions
; x-compiling (DEFMACRO WITH-SIMPLE-OUTPUT-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-extensions.lisp-obj-tmp written
; compilation finished in 0:00:08.344
; compiling file "/«PKGBUILDDIR»/src/code/parse-body.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!INT")
; x-compiling (/SHOW0 "entering parse-body.lisp")
; x-compiling (DEFUN PARSE-BODY ...)
; x-compiling (/SHOW0 "leaving parse-body.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/parse-body.lisp-obj-tmp written
; compilation finished in 0:00:00.092
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFVAR *ARG-TESTS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *SYSTEM-LETS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *USER-LETS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *ENV-VAR*)
; x-compiling (DEFVAR *DEFAULT-DEFAULT*)
; x-compiling (DEFVAR *IGNORABLE-VARS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFUN PARSE-DEFMACRO ...)
; x-compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...)
; x-compiling (DEFUN ARG-COUNT-ERROR ...)
; x-compiling (DEFUN PUSH-SUBLIST-BINDING ...)
; x-compiling (DEFUN PUSH-LET-BINDING ...)
; x-compiling (DEFUN PUSH-OPTIONAL-BINDING ...)
; x-compiling (DEFUN DEFMACRO-ERROR ...)
; x-compiling (DEFUN CHECK-DEFMACRO-ARG ...)
; x-compiling (DEFUN VERIFY-KEYWORDS ...)
; x-compiling (DEFUN LOOKUP-KEYWORD ...)
; x-compiling (DEFUN KEYWORD-SUPPLIED-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/parse-defmacro.lisp-obj-tmp written
; compilation finished in 0:00:03.240
; compiling file "/«PKGBUILDDIR»/src/compiler/deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN CONSTANT-TYPE-EXPANDER ...)
; x-compiling (DEFUN %DEFTYPE ...)
; x-compiling (DEFVAR !*XC-PROCESSED-DEFTYPES* ...)
; x-compiling (DEF!MACRO SB-XC:DEFTYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/deftype.lisp-obj-tmp written
; compilation finished in 0:00:00.170
; compiling file "/«PKGBUILDDIR»/src/code/restart.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DECLAIM (INLINE MAKE-RESTART))
; x-compiling (DEFSTRUCT (RESTART # ...) ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-RESTART))
; x-compiling (DECLAIM (FREEZE-TYPE RESTART))

; /«PKGBUILDDIR»/obj/from-xc/src/code/restart.lisp-obj-tmp written
; compilation finished in 0:00:00.277
; compiling file "/«PKGBUILDDIR»/src/compiler/defconstant.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!MACRO SB-XC:DEFCONSTANT ...)

; file: /«PKGBUILDDIR»/src/compiler/defconstant.lisp
; in: DEFUN SB!C::%DEFCONSTANT
;     (WITH-SIMPLE-RESTART (ABORT "Keep the old value.")
;       (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME
;               SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!EXT:DEFCONSTANT-UNEQL
;                                  (LIST :NAME SB!IMPL::NAME :OLD-VALUE
;                                        SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)
;                                  'SIMPLE-ERROR 'CERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN SB!C::%DEFCONSTANT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/defconstant.lisp-obj-tmp written
; compilation finished in 0:00:00.280
; compiling file "/«PKGBUILDDIR»/src/code/early-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...)
; x-compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...)
; x-compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*)
; x-compiling (DEFVAR *VALUES-TYPE-OKAY* ...)
; x-compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:00.056
; compiling file "/«PKGBUILDDIR»/src/code/specializable-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFMACRO !MAKE-SPECIALIZED-ARRAY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/specializable-array.lisp-obj-tmp written
; compilation finished in 0:00:00.069
; compiling file "/«PKGBUILDDIR»/src/code/early-cl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (PROCLAIM (QUOTE #))
; x-compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-cl.lisp-obj-tmp written
; compilation finished in 0:00:00.033
; compiling file "/«PKGBUILDDIR»/src/code/early-fasl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...)
; x-compiling (DEFINE-FASL-FORMAT-FEATURES)
; x-compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...)
; x-compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...)
; x-compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; x-compiling (DEFVAR *FASL-FILE-TYPE* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *ASSEMBLER-ROUTINES* ...)
; x-compiling (DECLAIM (SIMPLE-VECTOR **FOP-NAMES** ...))
; x-compiling (DEFGLOBAL **FOP-NAMES** ...)
; x-compiling (DEFGLOBAL **FOP-FUNS** ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFGLOBAL **FOP-SIGNATURES** ...)
; x-compiling (DEFVAR *LOAD-DEPTH* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFSTRUCT (FASL-INPUT # ...) ...)

; file: /«PKGBUILDDIR»/src/code/early-fasl.lisp
; in: DEFSTRUCT FASL-INPUT
;     (DEFSTRUCT
;         (SB!FASL::FASL-INPUT (:CONC-NAME SB!FASL::%FASL-INPUT-)
;          (:CONSTRUCTOR SB!FASL::MAKE-FASL-INPUT (STREAM)) (:PREDICATE NIL)
;          (:COPIER NIL))
;       (STREAM NIL :TYPE SB!KERNEL:ANSI-STREAM :READ-ONLY T)
;       (SB!FASL::TABLE (SB!FASL::MAKE-FOP-VECTOR 1000) :TYPE SIMPLE-VECTOR)
;       (SB!FASL::STACK (SB!FASL::MAKE-FOP-VECTOR 100) :TYPE SIMPLE-VECTOR)
;       (SB!FASL::DEPRECATED-STUFF NIL :TYPE LIST)
;       (SB!FASL::SKIP-UNTIL NIL))
; 
; caught STYLE-WARNING:
;   undefined type: ANSI-STREAM
; 
; compilation unit finished
;   Undefined type:
;     ANSI-STREAM
;   caught 1 STYLE-WARNING condition
; x-compiling (DECLAIM (FREEZE-TYPE FASL-INPUT))

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-fasl.lisp-obj-tmp written
; compilation finished in 0:00:00.485
; compiling file "/«PKGBUILDDIR»/src/code/debug-var-io.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN %READ-VAR-INTEGER ...)
; x-compiling (DEFMACRO READ-VAR-INTEGER ...)
; x-compiling (DEFUN WRITE-VAR-INTEGER ...)
; x-compiling (DEFMACRO READ-VAR-STRING ...)
; x-compiling (DEFUN WRITE-VAR-STRING ...)
; x-compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug-var-io.lisp-obj-tmp written
; compilation finished in 0:00:00.640
; compiling file "/«PKGBUILDDIR»/src/code/early-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (DEFVAR *CURRENT-THREAD* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-thread.lisp-obj-tmp written
; compilation finished in 0:00:00.027
; compiling file "/«PKGBUILDDIR»/src/code/target-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *DELAYED-DEF!METHOD-ARGS* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00.026
; compiling file "/«PKGBUILDDIR»/src/code/early-print.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INDEX *CURRENT-LEVEL-IN-PRINT*))
; x-compiling (!DEFVAR *CURRENT-LEVEL-IN-PRINT* ...)
; x-compiling (DEFMACRO DESCEND-INTO ...)
; x-compiling (DEFMACRO PUNT-PRINT-IF-TOO-LONG ...)
; x-compiling (DEFVAR *CIRCULARITY-HASH-TABLE* ...)
; x-compiling (DEFVAR *CIRCULARITY-COUNTER* ...)
; x-compiling (DEFUN CHECK-FOR-CIRCULARITY ...)
; x-compiling (DEFUN HANDLE-CIRCULARITY ...)
; x-compiling (DEFMACRO WITH-CIRCULARITY-DETECTION ...)
; x-compiling (DEFUN COMPILER-EXPAND-WRITE-MUMBLE ...)

; file: /«PKGBUILDDIR»/src/code/early-print.lisp
; in: DEFINE-COMPILER-MACRO WRITE
;     (DEFINE-COMPILER-MACRO WRITE
;         (&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST SB!IMPL::KEYS)
;       (SB!IMPL::COMPILER-EXPAND-WRITE-MUMBLE 'WRITE SB!KERNEL:FORM
;                                              SB!IMPL::OBJECT SB!IMPL::KEYS))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'WRITE
;                                 #'(LAMBDA (#:WHOLE183 #:ENVIRONMENT184)
;                                     (DECLARE (IGNORE #:ENVIRONMENT184))
;                                     (LET* ((#:CMACRO-&WHOLE2278 #:WHOLE183)
;                                            (#:WHOLE183 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE2278))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK WRITE #))))
;                                 '(&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST
;                                   SB!IMPL::KEYS)
;                                 NIL '(COMPILER-MACRO-FUNCTION WRITE))
; 
; caught STYLE-WARNING:
;   2 calls to COMMON-LISP:WRITE were compiled before a compiler-macro was defined
;   for it. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; x-compiling (DEFINE-COMPILER-MACRO WRITE ...)

; file: /«PKGBUILDDIR»/src/code/early-print.lisp
; in: DEFINE-COMPILER-MACRO WRITE-TO-STRING
;     (DEFINE-COMPILER-MACRO WRITE-TO-STRING
;         (&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST SB!IMPL::KEYS)
;       (SB!IMPL::COMPILER-EXPAND-WRITE-MUMBLE 'WRITE-TO-STRING SB!KERNEL:FORM
;                                              SB!IMPL::OBJECT SB!IMPL::KEYS))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'WRITE-TO-STRING
;                                 #'(LAMBDA (#:WHOLE188 #:ENVIRONMENT189)
;                                     (DECLARE (IGNORE #:ENVIRONMENT189))
;                                     (LET* ((#:CMACRO-&WHOLE2280 #:WHOLE188)
;                                            (#:WHOLE188 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE2280))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK WRITE-TO-STRING #))))
;                                 '(&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST
;                                   SB!IMPL::KEYS)
;                                 NIL '(COMPILER-MACRO-FUNCTION WRITE-TO-STRING))
; 
; caught STYLE-WARNING:
;   1 call to COMMON-LISP:WRITE-TO-STRING was compiled before a compiler-macro was
;   defined for it. A declaration of NOTINLINE at the call site will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFINE-COMPILER-MACRO WRITE-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-print.lisp-obj-tmp written
; compilation finished in 0:00:00.658
; compiling file "/«PKGBUILDDIR»/src/code/early-pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!PRETTY")
; x-compiling (DEFMACRO PPRINT-LOGICAL-BLOCK ...)
; x-compiling (DEFMACRO PPRINT-EXIT-IF-LIST-EXHAUSTED ...)
; x-compiling (DEFMACRO PPRINT-POP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00.383
; compiling file "/«PKGBUILDDIR»/src/code/early-impl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (SPECIAL *POSIX-ARGV* ...))
; x-compiling (!DEFVAR SB!VM:*ALLOC-SIGNAL* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-impl.lisp-obj-tmp written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/src/code/target-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *SAVE-HOOKS* ...)
; x-compiling (DEFVAR *INIT-HOOKS* ...)
; x-compiling (DEFVAR *EXIT-HOOKS* ...)
; x-compiling (DEFUN BINARY-SEARCH ...)

; file: /«PKGBUILDDIR»/src/code/target-extensions.lisp
; in: DEFUN DOUBLE-VECTOR-BINARY-SEARCH
;     (< SB!IMPL::VALUE ELT)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       etc.

;     (> SB!IMPL::VALUE ELT)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       etc.

;     (LET* ((SB!IMPL::I (+ SB!IMPL::START (TRUNCATE # 2)))
;            (ELT (SVREF VECTOR (SB!EXT:TRULY-THE SB!INT:INDEX #))))
;       (DECLARE (TYPE INTEGER ELT)
;                (TYPE SB!INT:INDEX SB!IMPL::I))
;       (COND ((< SB!IMPL::VALUE ELT) (SB!IMPL::RECURSE SB!IMPL::START SB!IMPL::I))
;             ((> SB!IMPL::VALUE ELT)
;              (SB!IMPL::RECURSE (1+ SB!IMPL::I) SB!IMPL::END))
;             (T (SVREF VECTOR (SB!EXT:TRULY-THE SB!INT:INDEX #)))))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G28 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN DOUBLE-VECTOR-BINARY-SEARCH ...)
; x-compiling (DEFUN LISTEN-SKIP-WHITESPACE ...)
; x-compiling (DEFUN SIMPLE-PERROR ...)
; x-compiling (DEFMACRO WITH-PUSH-CHAR ...)
; 
; compilation unit finished
;   printed 3 notes
; x-compiling (DEFUN POWER-OF-TWO-CEILING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00.560
; compiling file "/«PKGBUILDDIR»/src/code/early-package.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *IGNORED-PACKAGE-LOCKS* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...)
; x-compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)

; file: /«PKGBUILDDIR»/src/code/early-package.lisp
; in: DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
;     (HANDLER-BIND ((SB!EXT:PACKAGE-LOCK-VIOLATION
;                     (LAMBDA (CONDITION) (ECASE SB!IMPL::CONTEXT # #))))
;       (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SYMBOL
;                                                    SB!IMPL::CONTROL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!EXT:PACKAGE-LOCK-VIOLATION)
; 
; caught STYLE-WARNING:
;   undefined type: PACKAGE-LOCK-VIOLATION
; 
; compilation unit finished
;   Undefined type:
;     PACKAGE-LOCK-VIOLATION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-package.lisp-obj-tmp written
; compilation finished in 0:00:00.233
; compiling file "/«PKGBUILDDIR»/src/code/early-defstructs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "entering early-defstructs.lisp")
; x-compiling (DEFSTRUCT (ALIEN-VALUE) ...)
; x-compiling (/SHOW0 "done with early-defstructs.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-defstructs.lisp-obj-tmp written
; compilation finished in 0:00:00.241
; compiling file "/«PKGBUILDDIR»/src/code/early-raw-slots.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEF!TYPE WORD ...)
; x-compiling (DEF!TYPE SB!VM:SIGNED-WORD ...)
; x-compiling (DEFTYPE LAYOUT-RAW-SLOT-METADATA-TYPE ...)
; x-compiling (DEFMACRO LAYOUT-RAW-SLOT-METADATA ...)
; x-compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA))
; x-compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...)
; x-compiling (SETQ *RAW-SLOT-DATA-LIST* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...)
; x-compiling (DEFUN RAW-SLOT-WORDS ...)
; x-compiling (DEFMACRO DO-INSTANCE-TAGGED-SLOT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-raw-slots.lisp-obj-tmp written
; compilation finished in 0:00:00.946
; compiling file "/«PKGBUILDDIR»/src/code/defbangstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; x-compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...)
; x-compiling (DEFUN DEF!STRUCT-SUPERTYPE ...)
; x-compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...)
; x-compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...)
; x-compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; x-compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...)
; x-compiling (DEFUN JUST-DUMP-IT-NORMALLY ...)
; x-compiling (DEFUN IGNORE-IT ...)
; x-compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...)
; x-compiling (DEFMACRO DEF!STRUCT ...)
; x-compiling (DEF!STRUCT (STRUCTURE!OBJECT # ...))
; x-compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...)
; x-compiling (SETF (SYMBOL-FUNCTION #) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangstruct.lisp-obj-tmp written
; compilation finished in 0:00:00.522
; compiling file "/«PKGBUILDDIR»/src/code/unportable-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unportable-float.lisp-obj-tmp written
; compilation finished in 0:00:00.044
; compiling file "/«PKGBUILDDIR»/src/code/funutils.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN IDENTITY ...)
; x-compiling (DEFUN COMPLEMENT ...)
; x-compiling (DEFUN CONSTANTLY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/funutils.lisp-obj-tmp written
; compilation finished in 0:00:00.097
; compiling file "/«PKGBUILDDIR»/src/code/type-class.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEF)
; x-compiling (DEFUN TYPE-CLASS-OR-LOSE ...)
; x-compiling (DEFINE-COMPILER-MACRO TYPE-CLASS-OR-LOSE ...)
; x-compiling (DEFUN MUST-SUPPLY-THIS ...)
; x-compiling (DEF!STRUCT (TYPE-CLASS #) ...)
; x-compiling (DECLAIM (FREEZE-TYPE TYPE-CLASS))
; x-compiling (DEFCONSTANT-EQX !TYPE-CLASS-FUN-SLOTS ...)
; x-compiling (DEFUN !TYPE-CLASS-FUN-SLOT ...)
; x-compiling (DEFMACRO !DEFINE-TYPE-METHOD ...)
; x-compiling (DEFMACRO !DEFINE-TYPE-CLASS ...)
; x-compiling (DEFMACRO !INVOKE-TYPE-METHOD ...)
; x-compiling (DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ...)
; x-compiling (DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPE-CLASS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/type-class.lisp-obj-tmp written
; compilation finished in 0:00:01.985
; compiling file "/«PKGBUILDDIR»/src/code/ansi-stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-LENGTH+ ...)
; x-compiling (DEFTYPE ANSI-STREAM-IN-BUFFER ...)
; x-compiling (DEFTYPE ANSI-STREAM-CIN-BUFFER ...)
; x-compiling (DEFSTRUCT (ANSI-STREAM # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/ansi-stream.lisp-obj-tmp written
; compilation finished in 0:00:00.827
; compiling file "/«PKGBUILDDIR»/src/code/sysmacs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *IN-WITHOUT-GCING* ...)
; x-compiling (!DEFVAR *GC-INHIBIT* ...)
; x-compiling (!DEFVAR *GC-PENDING* ...)
; x-compiling (DEFVAR SB!VM::*PINNED-OBJECTS*)
; x-compiling (DEFMACRO WITHOUT-GCING ...)
; x-compiling (DEFMACRO EOF-OR-LOSE ...)
; x-compiling (DEFMACRO IN-SYNONYM-OF ...)
; x-compiling (DEFMACRO OUT-SYNONYM-OF ...)
; x-compiling (DEFMACRO WITH-IN-STREAM ...)
; x-compiling (DEFMACRO WITH-OUT-STREAM/NO-SYNONYM ...)
; x-compiling (DEFMACRO WITH-OUT-STREAM ...)
; x-compiling (DEFMACRO PREPARE-FOR-FAST-READ-CHAR ...)
; x-compiling (DEFMACRO DONE-WITH-FAST-READ-CHAR ...)
; x-compiling (DEFMACRO FAST-READ-CHAR ...)
; x-compiling (DEFMACRO WITH-FAST-READ-BYTE ...)
; x-compiling (DEFMACRO DO-REST-ARG ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sysmacs.lisp-obj-tmp written
; compilation finished in 0:00:01.056
; compiling file "/«PKGBUILDDIR»/src/code/target-error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN MUFFLE-WARNING-P ...)

; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS**
;     (SB!EXT:DEFGLOBAL SB!KERNEL::**INITIAL-HANDLER-CLUSTERS**
;                       (SB!INT:QUASIQUOTE (((# . #)))))
; --> PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL)
;     (LET ((#:BOUNDP (BOUNDP 'SB!KERNEL::**INITIAL-HANDLER-CLUSTERS**)))
;       (SB!IMPL::%COMPILER-DEFGLOBAL 'SB!KERNEL::**INITIAL-HANDLER-CLUSTERS**
;                                     :ALWAYS-BOUND
;                                     (UNLESS #:BOUNDP (SB!INT:QUASIQUOTE #))
;                                     (NOT #:BOUNDP))))
; 
; caught STYLE-WARNING:
;   undefined function: MUFFLE-WARNING-P
; x-compiling (DEFGLOBAL **INITIAL-HANDLER-CLUSTERS** ...)
; x-compiling (DEFVAR *HANDLER-CLUSTERS* ...)

; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFVAR *RESTART-CLUSTERS*
;     'NIL
; 
; note: deleting unreachable code
; x-compiling (DEFVAR *RESTART-CLUSTERS* ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN RESTART-REPORT ...)
; x-compiling (DEFVAR *RESTART-TEST-STACK* ...)
; x-compiling (DEFUN MAP-RESTARTS ...)
; x-compiling (DEFUN COMPUTE-RESTARTS ...)
; x-compiling (DEFUN %FIND-RESTART ...)
; x-compiling (DEFUN FIND-RESTART ...)
; x-compiling (DEFUN FIND-RESTART-OR-CONTROL-ERROR ...)
; x-compiling (DEFUN INVOKE-RESTART ...)
; x-compiling (DEFUN INTERACTIVE-RESTART-ARGUMENTS ...)
; x-compiling (DEFUN INVOKE-RESTART-INTERACTIVELY ...)
; x-compiling (DEFUN ASSERT-ERROR ...)
; x-compiling (DEFUN READ-EVALUATED-FORM ...)
; x-compiling (DEFUN CHECK-TYPE-ERROR ...)
; x-compiling (DEFUN CASE-FAILURE ...)

; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFUN FIND-RESTART
;     (DEFUN FIND-RESTART (SB!KERNEL::IDENTIFIER &OPTIONAL CONDITION)
;       "Return the first restart identified by IDENTIFIER. If IDENTIFIER is a symbol,
;   then the innermost applicable restart with that name is returned. If IDENTIFIER
;   is a restart, it is returned if it is currently active. Otherwise NIL is
;   returned. If CONDITION is specified and not NIL, then only restarts associated
;   with that condition (or with no condition) will be returned."
;       (SB!KERNEL::%FIND-RESTART SB!KERNEL::IDENTIFIER CONDITION))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND 
; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; --> LET SB!C::%TYPEP-WRAPPER LET OR LET 
; ==>
;   (TYPEP #:N-OBJ37 'CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN COMPUTE-RESTARTS
;     (DEFUN COMPUTE-RESTARTS (&OPTIONAL CONDITION)
;       "Return a list of all the currently active restarts ordered from most recently
;   established to less recently established. If CONDITION is specified, then only
;   restarts associated with CONDITION (or with no condition) will be returned."
;       (SB!INT:COLLECT ((SB!KERNEL::RESULT))
;         (SB!KERNEL::MAP-RESTARTS (LAMBDA (RESTART) (SB!KERNEL::RESULT RESTART))
;          CONDITION)
;         (SB!KERNEL::RESULT)))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND 
; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G24 '(OR CONDITION NULL))
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS**
;     (SB!INT:QUASIQUOTE
;      (((#S(SB!IMPL::COMMA :EXPR # :KIND 0)
;         . #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List*| LAMBDA FUNCTION WHEN IF 
; --> PROGN 
; ==>
;   (MUFFLE-WARNING WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; 
; caught STYLE-WARNING:
;   21 more uses of undefined type CONDITION


; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS**
;     (SB!INT:QUASIQUOTE
;      (((#S(SB!IMPL::COMMA :EXPR # :KIND 0)
;         . #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List*| LAMBDA FUNCTION 
; ==>
;   (TYPEP CONDITION 'WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: WARNING
; 
; compilation unit finished
;   Undefined types:
;     CONDITION WARNING
;   caught 6 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFUN CASE-BODY-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-error.lisp-obj-tmp written
; compilation finished in 0:00:01.087
; compiling file "/«PKGBUILDDIR»/src/compiler/early-backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *BACKEND-PAGE-BYTES* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-backend.lisp-obj-tmp written
; compilation finished in 0:00:00.033
creating directory: /«PKGBUILDDIR»/obj/from-xc/output/
; compiling file "/«PKGBUILDDIR»/output/stuff-groveled-from-headers.lisp" (written 11 JUN 2015 07:09:53 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFCONSTANT RTLD-LAZY ...)
; x-compiling (DEFCONSTANT RTLD-NOW ...)
; x-compiling (DEFCONSTANT RTLD-GLOBAL ...)
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (DEFCONSTANT FD-SETSIZE ...)
; x-compiling (DEFCONSTANT POLLIN ...)
; x-compiling (DEFCONSTANT POLLOUT ...)
; x-compiling (DEFCONSTANT POLLPRI ...)
; x-compiling (DEFCONSTANT POLLHUP ...)
; x-compiling (DEFCONSTANT POLLNVAL ...)
; x-compiling (DEFCONSTANT POLLERR ...)
; x-compiling (DEFINE-ALIEN-TYPE NFDS-T ...)
; x-compiling (DEFCONSTANT CODESET ...)
; x-compiling (DEFINE-ALIEN-TYPE CLOCK-T ...)
; x-compiling (DEFINE-ALIEN-TYPE DEV-T ...)
; x-compiling (DEFINE-ALIEN-TYPE GID-T ...)
; x-compiling (DEFINE-ALIEN-TYPE INO-T ...)
; x-compiling (DEFINE-ALIEN-TYPE MODE-T ...)
; x-compiling (DEFINE-ALIEN-TYPE NLINK-T ...)
; x-compiling (DEFINE-ALIEN-TYPE OFF-T ...)
; x-compiling (DEFINE-ALIEN-TYPE SIZE-T ...)
; x-compiling (DEFINE-ALIEN-TYPE TIME-T ...)
; x-compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...)
; x-compiling (DEFINE-ALIEN-TYPE UID-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-INO-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-DEV-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-OFF-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-BLKSIZE-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-BLKCNT-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-NLINK-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-UID-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-GID-T ...)
; x-compiling (DEFCONSTANT R_OK ...)
; x-compiling (DEFCONSTANT W_OK ...)
; x-compiling (DEFCONSTANT X_OK ...)
; x-compiling (DEFCONSTANT F_OK ...)
; x-compiling (DEFCONSTANT O_RDONLY ...)
; x-compiling (DEFCONSTANT O_WRONLY ...)
; x-compiling (DEFCONSTANT O_RDWR ...)
; x-compiling (DEFCONSTANT O_ACCMODE ...)
; x-compiling (DEFCONSTANT O_CREAT ...)
; x-compiling (DEFCONSTANT O_EXCL ...)
; x-compiling (DEFCONSTANT O_NOCTTY ...)
; x-compiling (DEFCONSTANT O_TRUNC ...)
; x-compiling (DEFCONSTANT O_APPEND ...)
; x-compiling (DEFCONSTANT O_LARGEFILE ...)
; x-compiling (DEFCONSTANT S-IFMT ...)
; x-compiling (DEFCONSTANT S-IFIFO ...)
; x-compiling (DEFCONSTANT S-IFCHR ...)
; x-compiling (DEFCONSTANT S-IFDIR ...)
; x-compiling (DEFCONSTANT S-IFBLK ...)
; x-compiling (DEFCONSTANT S-IFREG ...)
; x-compiling (DEFCONSTANT S-IFLNK ...)
; x-compiling (DEFCONSTANT S-IFSOCK ...)
; x-compiling (DEFCONSTANT EBADF ...)
; x-compiling (DEFCONSTANT ENOENT ...)
; x-compiling (DEFCONSTANT EINTR ...)
; x-compiling (DEFCONSTANT EAGAIN ...)
; x-compiling (DEFCONSTANT EIO ...)
; x-compiling (DEFCONSTANT EEXIST ...)
; x-compiling (DEFCONSTANT ELOOP ...)
; x-compiling (DEFCONSTANT ESPIPE ...)
; x-compiling (DEFCONSTANT EWOULDBLOCK ...)
; x-compiling (DEFCONSTANT WNOHANG ...)
; x-compiling (DEFCONSTANT WUNTRACED ...)
; x-compiling (DEFCONSTANT TIOCGPGRP ...)
; x-compiling (DEFCONSTANT TIOCSPGRP ...)
; x-compiling (DEFCONSTANT TIOCGWINSZ ...)
; x-compiling (DEFCONSTANT TIOCSWINSZ ...)
; x-compiling (DEFCONSTANT SIG-DFL ...)
; x-compiling (DEFCONSTANT SIG-IGN ...)
; x-compiling (DEFCONSTANT SIGALRM ...)
; x-compiling (DEFCONSTANT SIGBUS ...)
; x-compiling (DEFCONSTANT SIGCHLD ...)
; x-compiling (DEFCONSTANT SIGCONT ...)
; x-compiling (DEFCONSTANT SIGFPE ...)
; x-compiling (DEFCONSTANT SIGHUP ...)
; x-compiling (DEFCONSTANT SIGILL ...)
; x-compiling (DEFCONSTANT SIGINT ...)
; x-compiling (DEFCONSTANT SIGIO ...)
; x-compiling (DEFCONSTANT SIGIOT ...)
; x-compiling (DEFCONSTANT SIGKILL ...)
; x-compiling (DEFCONSTANT SIGPIPE ...)
; x-compiling (DEFCONSTANT SIGPROF ...)
; x-compiling (DEFCONSTANT SIGQUIT ...)
; x-compiling (DEFCONSTANT SIGSEGV ...)
; x-compiling (DEFCONSTANT SIGSTKFLT ...)
; x-compiling (DEFCONSTANT SIGSTOP ...)
; x-compiling (DEFCONSTANT SIGSYS ...)
; x-compiling (DEFCONSTANT SIGTERM ...)
; x-compiling (DEFCONSTANT SIGTRAP ...)
; x-compiling (DEFCONSTANT SIGTSTP ...)
; x-compiling (DEFCONSTANT SIGTTIN ...)
; x-compiling (DEFCONSTANT SIGTTOU ...)
; x-compiling (DEFCONSTANT SIGURG ...)
; x-compiling (DEFCONSTANT SIGUSR1 ...)
; x-compiling (DEFCONSTANT SIGUSR2 ...)
; x-compiling (DEFCONSTANT SIGVTALRM ...)
; x-compiling (DEFCONSTANT SIGWINCH ...)
; x-compiling (DEFCONSTANT SIGXCPU ...)
; x-compiling (DEFCONSTANT SIGXFSZ ...)
; x-compiling (DEFCONSTANT FPE-INTOVF ...)
; x-compiling (DEFCONSTANT FPE-INTDIV ...)
; x-compiling (DEFCONSTANT FPE-FLTDIV ...)
; x-compiling (DEFCONSTANT FPE-FLTOVF ...)
; x-compiling (DEFCONSTANT FPE-FLTUND ...)
; x-compiling (DEFCONSTANT FPE-FLTRES ...)
; x-compiling (DEFCONSTANT FPE-FLTINV ...)
; x-compiling (DEFCONSTANT FPE-FLTSUB ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-TYPE PAGE-INDEX-T ...)
; x-compiling (DEFINE-ALIEN-TYPE GENERATION-INDEX-T ...)
; x-compiling (DEFINE-ALIEN-TYPE OS-VM-SIZE-T ...)

; /«PKGBUILDDIR»/obj/from-xc/output/stuff-groveled-from-headers.lisp-obj-tmp written
; compilation finished in 0:00:01.119
; compiling file "/«PKGBUILDDIR»/src/code/toplevel.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR SB!VM:*CURRENT-CATCH-BLOCK*)
; x-compiling (DEFVAR SB!VM::*CURRENT-UNWIND-PROTECT-BLOCK*)
; x-compiling (DEFVAR *FREE-INTERRUPT-CONTEXT-INDEX*)
; x-compiling (DECLAIM (SPECIAL *ALLOW-WITH-INTERRUPTS* ...))
; x-compiling (DEFVAR *MAXIMUM-ERROR-DEPTH*)
; x-compiling (!DEFVAR *CURRENT-ERROR-DEPTH* ...)
; x-compiling (DEFUN SYSINIT-PATHNAME ...)
; x-compiling (DEFUN USERINIT-PATHNAME ...)
; x-compiling (DEFVAR *SYSINIT-PATHNAME-FUNCTION* ...)
; x-compiling (DEFVAR *USERINIT-PATHNAME-FUNCTION* ...)
; x-compiling (DEFMACRO HANDLING-END-OF-THE-WORLD ...)
; x-compiling (DEFVAR *EXIT-LOCK*)
; x-compiling (DEFVAR *EXIT-IN-PROCESS* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *EXIT-TIMEOUT* ...)
; x-compiling (DEFUN OS-EXIT-HANDLER ...)
; x-compiling (DEFVAR *EXIT-ERROR-HANDLER* ...)
; x-compiling (DEFUN CALL-EXIT-HOOKS ...)
; x-compiling (DEFUN %EXIT ...)
; x-compiling (DEFMACRO INFINITE-ERROR-PROTECT ...)
; x-compiling (DEFUN INFINITE-ERROR-PROTECTOR ...)
; x-compiling (DEFUN !ENABLE-INFINITE-ERROR-PROTECTOR ...)

; file: /«PKGBUILDDIR»/src/code/toplevel.lisp
; in: DEFUN SPLIT-SECONDS-FOR-SLEEP
;     (TRUNCATE SB!IMPL::FRAC (LOAD-TIME-VALUE 1.e-9 T))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (TRUNCATE SB!IMPL::SECONDS)
; --> TRUNCATE LET 
; ==>
;   (SB!KERNEL:%UNARY-TRUNCATE SB!C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> TRUNCATE LET VALUES 
; ==>
;   (- SB!C::X SB!C::RES)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                              &REST T).
;       etc.

;     (* REM (* 10 (TRUNCATE 100000000 (DENOMINATOR SB!IMPL::SECONDS))))
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (INTEGER -1000000000 1000000000), 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 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -1000000000 1000000000), not a (UNSIGNED-BYTE
;                                                                         32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of static-fun Two-arg-*

;     (SB!EXT:TRULY-THE (INTEGER 0 1000000000)
;                       (SB!KERNEL:%UNARY-TRUNCATE
;                        (* (- SB!IMPL::SECONDS (FLOAT SB!IMPL::WHOLE-SECONDS))
;                           (LOAD-TIME-VALUE 1.e9 T))))
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; x-compiling (DEFUN SPLIT-SECONDS-FOR-SLEEP ...)
; x-compiling (DEFUN SLEEP ...)
; x-compiling (DEFVAR / ...)
; x-compiling (DEFVAR // ...)
; x-compiling (DEFVAR /// ...)
; x-compiling (DEFVAR * ...)
; x-compiling (DEFVAR ** ...)
; x-compiling (DEFVAR *** ...)
; x-compiling (DEFVAR + ...)
; x-compiling (DEFVAR ++ ...)
; x-compiling (DEFVAR +++ ...)
; x-compiling (DEFVAR - ...)
; x-compiling (DEFUN INTERACTIVE-EVAL ...)
; x-compiling (DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ...)
; x-compiling (DEFUN PROCESS-INIT-FILE ...)
; x-compiling (DEFUN PROCESS-EVAL/LOAD-OPTIONS ...)
; x-compiling (DEFUN PROCESS-SCRIPT ...)
; x-compiling (DEFUN STARTUP-ERROR ...)
; x-compiling (DEFUN TOPLEVEL-INIT ...)
; x-compiling (DEFVAR *REPL-READ-FORM-FUN* ...)
; x-compiling (DEFVAR *REPL-PROMPT-FUN* ...)
; x-compiling (DEFVAR *REPL-FUN-GENERATOR* ...)
; x-compiling (DEFUN TOPLEVEL-REPL ...)
; x-compiling (DEFUN REPL-PROMPT-FUN ...)
; x-compiling (DEFUN REPL-READ-FORM-FUN ...)
; x-compiling (DEFUN REPL-FUN ...)

; file: /«PKGBUILDDIR»/src/code/toplevel.lisp
; in: DEFUN PROCESS-SCRIPT
;     (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING)
;                    (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #))))
;       (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*))
;             (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*))
;             (*STANDARD-INPUT* SB!SYS:*STDIN*)
;             (*STANDARD-OUTPUT* SB!SYS:*STDOUT*)
;             (*ERROR-OUTPUT* SB!SYS:*STDERR*))
;         (LOAD STREAM :VERBOSE NIL :PRINT NIL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR STYLE-WARNING SB!EXT:COMPILER-NOTE))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; in: DEFUN %EXIT
;     (HANDLER-BIND ((SERIOUS-CONDITION SB!SYS:*EXIT-ERROR-HANDLER*))
;       (LET ((SB!IMPL::OK NIL) (SB!IMPL::CODE SB!SYS:*EXIT-IN-PROCESS*))
;         (IF (CONSP SB!IMPL::CODE)
;             (SB!SYS:OS-EXIT (CAR SB!IMPL::CODE) :ABORT NIL)
;             (UNWIND-PROTECT (PROGN # # #)
;               (SB!SYS:OS-EXIT SB!IMPL::CODE :ABORT #)))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SERIOUS-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SERIOUS-CONDITION

; in: DEFUN CALL-EXIT-HOOKS
;     (HANDLER-BIND ((SERIOUS-CONDITION SB!SYS:*EXIT-ERROR-HANDLER*))
;       (SB!INT:CALL-HOOKS "exit" SB!EXT:*EXIT-HOOKS* :ON-ERROR :WARN))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SERIOUS-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SERIOUS-CONDITION

; in: DEFUN TOPLEVEL-REPL
;     (HANDLER-BIND ((SB!EXT:STEP-CONDITION 'SB!IMPL::INVOKE-STEPPER))
;       (LOOP (SB!INT:/SHOW0 "about to set up restarts in TOPLEVEL-REPL")
;             (WITH-SIMPLE-RESTART
;                 (ABORT "~@<Exit debugger, returning to top level.~@:>")
;               (CATCH 'SB!INT:TOPLEVEL-CATCHER
;                 (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE)
;                 (FUNCALL SB!IMPL::REPL-FUN SB!IMPL::NOPRINT)
;                 (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL")))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!EXT:STEP-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: STEP-CONDITION

; in: DEFUN PROCESS-SCRIPT
;     (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING)
;                    (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #))))
;       (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*))
;             (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*))
;             (*STANDARD-INPUT* SB!SYS:*STDIN*)
;             (*STANDARD-OUTPUT* SB!SYS:*STDOUT*)
;             (*ERROR-OUTPUT* SB!SYS:*STDERR*))
;         (LOAD STREAM :VERBOSE NIL :PRINT NIL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'STREAM-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-ERROR

; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS
;     (HANDLER-BIND ((STREAM-ERROR (LAMBDA (SB!IMPL::C) (WHEN # #))))
;       (FORCE-OUTPUT STREAM))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'STREAM-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-ERROR

; in: DEFUN PROCESS-SCRIPT
;     (STREAM-ERROR-STREAM SB!IMPL::E)
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-ERROR-STREAM

; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS
;     (STREAM-ERROR-STREAM SB!IMPL::C)
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-ERROR-STREAM

; in: DEFUN PROCESS-SCRIPT
;     (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING)
;                    (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #))))
;       (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*))
;             (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*))
;             (*STANDARD-INPUT* SB!SYS:*STDIN*)
;             (*STANDARD-OUTPUT* SB!SYS:*STDOUT*)
;             (*ERROR-OUTPUT* SB!SYS:*STDERR*))
;         (LOAD STREAM :VERBOSE NIL :PRINT NIL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR STYLE-WARNING SB!EXT:COMPILER-NOTE))
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING
; 
; compilation unit finished
;   Undefined types:
;     COMPILER-NOTE SERIOUS-CONDITION STEP-CONDITION STREAM-ERROR STYLE-WARNING
;   Undefined function:
;     STREAM-ERROR-STREAM
;   caught 9 STYLE-WARNING conditions
;   printed 9 notes
; x-compiling (DEFUN %HALT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/toplevel.lisp-obj-tmp written
; compilation finished in 0:00:01.814
; compiling file "/«PKGBUILDDIR»/src/code/cold-error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!DEFVAR *BREAK-ON-SIGNALS* ...)
; x-compiling (DEFUN MAYBE-BREAK-ON-SIGNAL ...)
; x-compiling (DEFUN SIGNAL ...)
; x-compiling (DEFUN ERROR ...)
; x-compiling (DEFUN CERROR ...)
; x-compiling (DEFUN %BREAK ...)
; x-compiling (DEFUN BREAK ...)

; file: /«PKGBUILDDIR»/src/code/cold-error.lisp
; in: DEFUN ERROR
;     (INVOKE-DEBUGGER CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN WARN
;     (ETYPECASE CONDITION (STYLE-WARNING 'STYLE-WARNING) (WARNING 'WARNING))
; --> LET COND IF 
; ==>
;   (TYPEP #:G3394 'STYLE-WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING

; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G3394 'WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: WARNING

;     (SB!INT:ENFORCE-TYPE CONDITION WARNING)
; --> LET UNLESS IF 
; ==>
;   (TYPEP #:VALUE99 'WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: WARNING
; 
; compilation unit finished
;   Undefined types:
;     CONDITION STYLE-WARNING WARNING
;   caught 4 STYLE-WARNING conditions
; x-compiling (DEFUN WARN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cold-error.lisp-obj-tmp written
; compilation finished in 0:00:00.903
; compiling file "/«PKGBUILDDIR»/src/compiler/info-vector.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFCONSTANT +EMPTY-KEY+ ...)
; x-compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...)
; x-compiling (DEFTYPE INFO-CELL-INDEX ...)
; x-compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...)
; x-compiling (DEFSTRUCT (INFO-STORAGE # ...) ...)
; x-compiling (DEFUN MAKE-INFO-STORAGE ...)
; x-compiling (DEFSTRUCT (INFO-HASHTABLE #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFMACRO INFO-CAS ...)
; x-compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT))
; x-compiling (DEFUN INFO-ENV-ADJUST-COUNT ...)
; x-compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...)
; x-compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...)
; x-compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...)
; x-compiling (DEFUN INFO-VALUE-MOVED-P ...)
; x-compiling (DEFMACRO !DO-PROBE-SEQUENCE ...)
; x-compiling (DEFUN %WAIT-FOR-REHASH ...)
; x-compiling (DEFUN INFO-GETHASH ...)
; x-compiling (DEFUN INFO-PUTHASH ...)
; x-compiling (DEFUN INFO-ENV-REHASH ...)
; x-compiling (DEFMACRO INFO-MAPHASH ...)
; x-compiling (DEFUN (SETF INFO-GETHASH) ...)
; x-compiling (DEFUN SHOW-INFO-ENV ...)
; x-compiling (DEFCONSTANT INFO-NUM-MASK ...)
; x-compiling (DEFCONSTANT +INFOS-PER-WORD+ ...)
; x-compiling (DEFTYPE INFO-DESCRIPTOR ...)
; x-compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...)
; x-compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...)
; x-compiling (DEFCONSTANT +FDEFN-INFO-NUM+ ...)
; x-compiling (DECLAIM (INLINE PACKED-INFO-FIELD))
; x-compiling (DEFUN PACKED-INFO-FIELD ...)
; x-compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...)
; x-compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...)
; x-compiling (DEFUN PACKIFY-INFOS ...)
; x-compiling (DEFMACRO !WITH-PACKED-INFO-ITERATOR ...)
; x-compiling (DEFMACRO !DO-PACKED-INFO-VECTOR-AUX-KEY ...)
; x-compiling (DEFUN INFO-VECTOR-NAME-LIST ...)
; x-compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...)
; x-compiling (DEFUN UNPACKIFY-INFOS ...)
; x-compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...)
; x-compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...)
; x-compiling (DEFUN %PACKED-INFO-INSERT ...)
; x-compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P))
; x-compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...)
; x-compiling (DEFUN QUICK-PACKED-INFO-INSERT ...)
; x-compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT))
; x-compiling (DEFUN PACKED-INFO-INSERT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PACKED-INFO-VALUE-INDEX ...)
; x-compiling (DEFUN PACKED-INFO-REMOVE ...)
; x-compiling (DEFCONSTANT-EQX !+PCL-READER-NAME+ ...)
; x-compiling (DEFCONSTANT-EQX !+PCL-WRITER-NAME+ ...)
; x-compiling (DEFCONSTANT-EQX !+PCL-BOUNDP-NAME+ ...)
; x-compiling (DEFUN PCL-GLOBAL-ACCESSOR-NAME-P ...)
; x-compiling (DEFUN CONSTRUCT-GLOBALDB-NAME ...)
; x-compiling (DEFUN %CALL-WITH-EACH-INFO ...)
; x-compiling (DEFUN !TEST-PACKIFY-INFOS ...)
; x-compiling (DEFMACRO WITH-GLOBALDB-NAME ...)
; x-compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN))
; x-compiling (DEFUN INFO-VECTOR-FDEFN ...)
; x-compiling (DEFUN SYMBOL-INFO-VECTOR ...)
; x-compiling (DECLAIM (TYPE INFO-HASHTABLE ...))
; x-compiling (DEFVAR *INFO-ENVIRONMENT*)
; x-compiling (DEFUN SET-INFO-VALUE ...)
; x-compiling (DEFUN %ATOMIC-SET-INFO-VALUE ...)
; x-compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/info-vector.lisp-obj-tmp written
; compilation finished in 0:00:07.345
; compiling file "/«PKGBUILDDIR»/src/code/fdefinition.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (/SHOW0 "fdefinition.lisp 22")
; x-compiling (DEFUN MAKE-FDEFN ...)
; x-compiling (DEFUN FDEFN-NAME ...)
; x-compiling (DEFUN FDEFN-FUN ...)
; x-compiling (DEFUN (SETF FDEFN-FUN) ...)
; x-compiling (DEFUN FDEFN-MAKUNBOUND ...)
; x-compiling (DECLAIM (INLINE SYMBOL-FDEFN))
; x-compiling (DEFUN SYMBOL-FDEFN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FDEFN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-OR-CREATE-FDEFN ...)
; x-compiling (DEFUN MAYBE-CLOBBER-FTYPE ...)
; x-compiling (DEFMACRO %COERCE-NAME-TO-FUN ...)
; x-compiling (DEFUN %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DEFSTRUCT (ENCAPSULATION-INFO # ...) ...)
; x-compiling (DEFUN ENCAPSULATE ...)
; x-compiling (DEFUN FIND-IF-IN-CLOSURE ...)
; x-compiling (DEFUN ENCAPSULATION-INFO ...)
; x-compiling (DEFUN UNENCAPSULATE ...)
; x-compiling (DEFUN ENCAPSULATED-P ...)
; x-compiling (DEFUN FDEFINITION ...)
; x-compiling (DEFVAR *SETF-FDEFINITION-HOOK* ...)
; x-compiling (DEFUN MACRO/SPECIAL-GUARD-FUN-P ...)
; x-compiling (DEFUN ERR-IF-UNACCEPTABLE-FUNCTION ...)
; x-compiling (DEFUN %SET-FDEFINITION ...)
; x-compiling (DEFUN FBOUNDP ...)

; file: /«PKGBUILDDIR»/src/code/fdefinition.lisp
; in: DEFUN ENCAPSULATED-P
;     (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION

; in: DEFUN UNENCAPSULATE
;     (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION

; in: DEFUN ENCAPSULATE
;     (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION
; 
; compilation unit finished
;   Undefined type:
;     GENERIC-FUNCTION
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN FMAKUNBOUND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/fdefinition.lisp-obj-tmp written
; compilation finished in 0:00:01.048
; compiling file "/«PKGBUILDDIR»/src/code/target-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFUN CTYPEP ...)
; x-compiling (DECLAIM (INLINE LAYOUT-OF))
; x-compiling (DEFUN LAYOUT-OF ...)
; x-compiling (DECLAIM (INLINE CLASSOID-OF))
; x-compiling (DEFUN CLASSOID-OF ...)
; x-compiling (DEFUN CLEAR-TYPE-CACHES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION ...) ...)

; file: /«PKGBUILDDIR»/src/code/target-type.lisp
; in: DEFUN CTYPEP
;     (ETYPECASE TYPE
;       ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;            SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;            SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)
;        (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T))
;       (SB!KERNEL:CLASSOID
;        (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #)
;                (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ)
;                (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ))
;            (IF (EQ # #)
;                (VALUES # T)
;                (VALUES NIL NIL))
;            (VALUES NIL T)))
;       (SB!KERNEL:COMPOUND-TYPE
;        (FUNCALL
;         (ETYPECASE TYPE
;           (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;           (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
;         #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE)))
;       (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T))
;       (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL))
;       (SB!KERNEL:ALIEN-TYPE-TYPE
;        (VALUES
;         (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ
;          (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE))
;         T))
;       (SB!KERNEL:NEGATION-TYPE
;        (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN)
;            (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE))
;          (IF SB!KERNEL::WIN
;              (VALUES # T)
;              (VALUES NIL NIL))))
;       (SB!KERNEL:HAIRY-TYPE
;        (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #))
;          (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #)))))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4154 'SB!KERNEL:ALIEN-TYPE-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G4154
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: ARRAY-TYPE
; 
; caught STYLE-WARNING:
;   undefined type: CHARACTER-SET-TYPE

; --> LET COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4154 'SB!KERNEL:COMPOUND-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: COMPOUND-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G4154
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: CONS-TYPE

; --> LET COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4154 'SB!KERNEL:FUN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-TYPE

; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4154 'SB!KERNEL:HAIRY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: HAIRY-TYPE

;     (ETYPECASE TYPE
;       (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;       (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
; --> LET COND IF 
; ==>
;   (TYPEP #:G4172 'SB!KERNEL:INTERSECTION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: INTERSECTION-TYPE

;     (ETYPECASE TYPE
;       ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;            SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;            SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)
;        (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T))
;       (SB!KERNEL:CLASSOID
;        (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #)
;                (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ)
;                (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ))
;            (IF (EQ # #)
;                (VALUES # T)
;                (VALUES NIL NIL))
;            (VALUES NIL T)))
;       (SB!KERNEL:COMPOUND-TYPE
;        (FUNCALL
;         (ETYPECASE TYPE
;           (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;           (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
;         #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE)))
;       (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T))
;       (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL))
;       (SB!KERNEL:ALIEN-TYPE-TYPE
;        (VALUES
;         (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ
;          (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE))
;         T))
;       (SB!KERNEL:NEGATION-TYPE
;        (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN)
;            (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE))
;          (IF SB!KERNEL::WIN
;              (VALUES # T)
;              (VALUES NIL NIL))))
;       (SB!KERNEL:HAIRY-TYPE
;        (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #))
;          (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #)))))
; --> LET COND IF 
; ==>
;   (TYPEP #:G4154
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: MEMBER-TYPE
; 
; caught STYLE-WARNING:
;   undefined type: NAMED-TYPE

; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4154 'SB!KERNEL:NEGATION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: NEGATION-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G4154
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: NUMERIC-TYPE

;     (ETYPECASE TYPE
;       (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;       (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G4172 'SB!KERNEL:UNION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNION-TYPE

;     (ETYPECASE TYPE
;       ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;            SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;            SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)
;        (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T))
;       (SB!KERNEL:CLASSOID
;        (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #)
;                (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ)
;                (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ))
;            (IF (EQ # #)
;                (VALUES # T)
;                (VALUES NIL NIL))
;            (VALUES NIL T)))
;       (SB!KERNEL:COMPOUND-TYPE
;        (FUNCALL
;         (ETYPECASE TYPE
;           (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;           (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
;         #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE)))
;       (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T))
;       (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL))
;       (SB!KERNEL:ALIEN-TYPE-TYPE
;        (VALUES
;         (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ
;          (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE))
;         T))
;       (SB!KERNEL:NEGATION-TYPE
;        (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN)
;            (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE))
;          (IF SB!KERNEL::WIN
;              (VALUES # T)
;              (VALUES NIL NIL))))
;       (SB!KERNEL:HAIRY-TYPE
;        (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #))
;          (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #)))))
; --> LET COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4154 'SB!KERNEL:UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNKNOWN-TYPE
; 
; compilation unit finished
;   Undefined types:
;     ALIEN-TYPE-TYPE ARRAY-TYPE CHARACTER-SET-TYPE COMPOUND-TYPE CONS-TYPE FUN-TYPE HAIRY-TYPE INTERSECTION-TYPE MEMBER-TYPE NAMED-TYPE NEGATION-TYPE NUMERIC-TYPE UNION-TYPE UNKNOWN-TYPE
;   caught 14 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TARGET-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-type.lisp-obj-tmp written
; compilation finished in 0:00:00.908
; compiling file "/«PKGBUILDDIR»/src/code/pred.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE STREAMP))
; x-compiling (DEFUN STREAMP ...)
; x-compiling (DEF)
; x-compiling (DECLAIM (MAYBE-INLINE EXTENDED-SEQUENCE-P))
; x-compiling (DEFUN EXTENDED-SEQUENCE-P ...)
; x-compiling (DEFUN SEQUENCEP ...)
; x-compiling (DEFUN NOT ...)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAY-HEADER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAYP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ATOM)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-CHAR-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-STRING-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTER-STRING-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIGNUMP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIT-VECTOR-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTERP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CODE-COMPONENT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CONSP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEXP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-DOUBLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-RATIONAL-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-SINGLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER DOUBLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER EXTENDED-CHAR-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FDEFN-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FIXNUMP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FLOATP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FUNCTIONP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER INTEGERP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LISTP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LONG-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LRA-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NULL)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NUMBERP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIONALP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIOP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER REALP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SHORT-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SINGLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %INSTANCEP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYMBOLP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %OTHER-POINTER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYSTEM-AREA-POINTER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER WEAK-POINTER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER UNSIGNED-BYTE-32-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIGNED-BYTE-32-P)
; x-compiling (SAETP-DEFS)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-RANK-1-ARRAY-*-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-STRING-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER STRINGP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTORP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTOR-NIL-P)
; x-compiling (DEFUN FIXNUM-MOD-P ...)
; x-compiling (DEFUN TYPE-OF ...)
; x-compiling (DEFUN EQ ...)
; x-compiling (DECLAIM (INLINE %EQL))
; x-compiling (DEFUN %EQL ...)
; x-compiling (DEFUN EQL ...)
; x-compiling (DEFUN BIT-VECTOR-= ...)
; x-compiling (DEFUN EQUAL ...)
; x-compiling (DEFUN HASH-TABLE-EQUALP ...)
; x-compiling (DEFUN EQUALP ...)
; x-compiling (/SHOW0 "about to do test cases in pred.lisp")
; x-compiling (LET (#) ...)
; x-compiling (/SHOW0 "done with test cases in pred.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/pred.lisp-obj-tmp written
; compilation finished in 0:00:02.911
; compiling file "/«PKGBUILDDIR»/src/code/target-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (/SHOW0 "target-alieneval.lisp 15")
; x-compiling (DEFUN GUESS-ALIEN-NAME-FROM-LISP-NAME ...)
; x-compiling (DEFUN GUESS-LISP-NAME-FROM-ALIEN-NAME ...)
; x-compiling (DEFUN PICK-LISP-AND-ALIEN-NAMES ...)
; x-compiling (DEFMACRO DEFINE-ALIEN-VARIABLE ...)
; x-compiling (DEFUN %DEFINE-ALIEN-VARIABLE ...)
; x-compiling (DEFUN ALIEN-VALUE ...)
; x-compiling (DEFMACRO EXTERN-ALIEN ...)
; x-compiling (DEFMACRO WITH-ALIEN ...)
; x-compiling (DECLAIM (FREEZE-TYPE ALIEN-VALUE))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (INLINE NULL-ALIEN))
; x-compiling (DEFUN NULL-ALIEN ...)
; x-compiling (DEFMACRO SAP-ALIEN ...)
; x-compiling (DEFUN %SAP-ALIEN ...)
; x-compiling (DEFUN ALIEN-SAP ...)
; x-compiling (DEFMACRO MAKE-ALIEN ...)
; x-compiling (DEFUN MALLOC-ERROR ...)
; x-compiling (DECLAIM (INLINE %MAKE-ALIEN))
; x-compiling (DEFUN %MAKE-ALIEN ...)
; x-compiling (DECLAIM (INLINE FREE-ALIEN))
; x-compiling (DEFUN FREE-ALIEN ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN %MAKE-ALIEN-STRING ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFUN MAKE-ALIEN-STRING
;     (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP
;      (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(* CHAR) NIL))
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN MAKE-ALIEN-STRING ...)
; x-compiling (DEFINE-COMPILER-MACRO MAKE-ALIEN-STRING ...)
; x-compiling (DEFUN SLOT-OR-LOSE ...)
; x-compiling (DEFUN SLOT ...)
; x-compiling (DEFUN %SET-SLOT ...)
; x-compiling (DEFUN %SLOT-ADDR ...)
; x-compiling (DEFUN DEREF-GUTS ...)
; x-compiling (DEFUN DEREF ...)
; x-compiling (DEFUN %SET-DEREF ...)
; x-compiling (DEFUN %DEREF-ADDR ...)
; x-compiling (DEFUN %HEAP-ALIEN ...)
; x-compiling (DEFUN %SET-HEAP-ALIEN ...)
; x-compiling (DEFUN %HEAP-ALIEN-ADDR ...)
; x-compiling (DEFUN MAKE-LOCAL-ALIEN ...)
; x-compiling (DEFUN NOTE-LOCAL-ALIEN-TYPE ...)
; x-compiling (DEFUN LOCAL-ALIEN ...)
; x-compiling (DEFUN %SET-LOCAL-ALIEN ...)
; x-compiling (DEFINE-SETF-EXPANDER LOCAL-ALIEN ...)
; x-compiling (DEFUN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; x-compiling (DEFUN %LOCAL-ALIEN-ADDR ...)
; x-compiling (DEFUN DISPOSE-LOCAL-ALIEN ...)
; x-compiling (DEFMACRO CAST ...)
; x-compiling (DEFUN %CAST ...)
; x-compiling (DEFMACRO ALIEN-SIZE ...)
; x-compiling (DEFUN COERCE-TO-INTERPRETED-FUNCTION ...)
; x-compiling (DEFUN NATURALIZE ...)
; x-compiling (DEFUN DEPORT ...)
; x-compiling (DEFUN DEPORT-ALLOC ...)
; x-compiling (DEFUN %ALIEN-VALUE ...)
; x-compiling (DEFUN (SETF %ALIEN-VALUE) ...)
; x-compiling (DEFUN ALIEN-FUNCALL ...)
; x-compiling (DEFMACRO DEFINE-ALIEN-ROUTINE ...)
; x-compiling (DEFUN ALIEN-TYPEP ...)
; x-compiling (DEFUN ALIEN-VALUE-TYPEP ...)
; x-compiling (DEFVAR *ALIEN-CALLBACK-INFO* ...)
; x-compiling (DEFSTRUCT CALLBACK-INFO ...)
; x-compiling (DEFUN CALLBACK-INFO-KEY ...)
; x-compiling (DEFUN ALIEN-CALLBACK-INFO ...)
; x-compiling (DEFVAR *ALIEN-CALLBACKS* ...)
; x-compiling (DEFVAR *ALIEN-CALLBACK-WRAPPERS* ...)
; x-compiling (DEFVAR *ALIEN-CALLBACK-TRAMPOLINES* ...)
; x-compiling (DEFUN %ALIEN-CALLBACK-SAP ...)
; x-compiling (DEFUN ALIEN-CALLBACK-LISP-TRAMPOLINE ...)
; x-compiling (DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ...)
; x-compiling (DEFUN INVALID-ALIEN-CALLBACK ...)
; x-compiling (DEFUN PARSE-CALLBACK-SPECIFICATION ...)
; x-compiling (DEFUN PARSE-ALIEN-FTYPE ...)
; x-compiling (DEFUN ALIEN-VOID-TYPE-P ...)
; x-compiling (DEFUN ALIEN-TYPE-WORD-ALIGNED-BITS ...)
; x-compiling (DEFUN ALIEN-CALLBACK-ARGUMENT-BYTES ...)
; x-compiling (DEFUN ENTER-ALIEN-CALLBACK ...)
; x-compiling (DEFVAR *ENTER-ALIEN-CALLBACK* ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFMACRO ALIEN-CALLBACK
;     (DEFMACRO SB!ALIEN-INTERNALS:ALIEN-CALLBACK
;               (SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV)
;       "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to
;   an alien function as a pointer to the FUNCTION. If a callback for the given
;   SPECIFIER and FUNCTION already exists, it is returned instead of consing a new
;   one."
;       (MULTIPLE-VALUE-BIND
;           (SB!ALIEN::RESULT-TYPE SB!ALIEN::ARGUMENT-TYPES SB!ALIEN::CALL-TYPE)
;           (SB!ALIEN::PARSE-ALIEN-FTYPE SB!ALIEN::SPECIFIER SB!ALIEN::ENV)
;         (SB!INT:QUASIQUOTE
;          (SB!ALIEN-INTERNALS:%SAP-ALIEN
;           (SB!ALIEN::%ALIEN-CALLBACK-SAP '# '# '# # # #)
;           '#S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!ALIEN-INTERNALS:ALIEN-CALLBACK
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (BLOCK SB!ALIEN-INTERNALS:ALIEN-CALLBACK #))))
;                    '(SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV)
;                    "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to
; an alien function as a pointer to the FUNCTION. If a callback for the given
; SPECIFIER and FUNCTION already exists, it is returned instead of consing a new
; one."
;                    '(MACRO-FUNCTION SB!ALIEN-INTERNALS:ALIEN-CALLBACK)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-ALIEN-FTYPE
; x-compiling (DEFMACRO ALIEN-CALLBACK ...)
; x-compiling (DEFUN ALIEN-CALLBACK-P ...)
; x-compiling (DEFUN ALIEN-CALLBACK-FUNCTION ...)
; x-compiling (DEFUN (SETF ALIEN-CALLBACK-FUNCTION) ...)
; x-compiling (DEFUN INVALIDATE-ALIEN-CALLBACK ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFMACRO ALIEN-LAMBDA
;     (DEFMACRO SB!ALIEN::ALIEN-LAMBDA
;               (SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST
;                &BODY SB!ALIEN::FORMS)
;       (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST)
;           (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE
;            SB!ALIEN::TYPED-LAMBDA-LIST)
;         (SB!INT:QUASIQUOTE
;          (SB!ALIEN-INTERNALS:ALIEN-CALLBACK
;           #S(SB!IMPL::COMMA :EXPR SB!ALIEN::SPECIFIER :KIND 0) (LAMBDA # #)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!ALIEN::ALIEN-LAMBDA
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (BLOCK SB!ALIEN::ALIEN-LAMBDA #))))
;                    '(SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST &BODY
;                      SB!ALIEN::FORMS)
;                    NIL '(MACRO-FUNCTION SB!ALIEN::ALIEN-LAMBDA)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-CALLBACK-SPECIFICATION
; x-compiling (DEFMACRO ALIEN-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFMACRO DEFINE-ALIEN-CALLBACK
;     (DEFMACRO SB!ALIEN::DEFINE-ALIEN-CALLBACK
;               (SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST
;                &BODY SB!ALIEN::FORMS)
;       "Defines #'NAME as a function with the given body and lambda-list, and NAME as
;   the alien callback for that function with the given alien type."
;       (DECLARE (SYMBOL SB!ALIEN::NAME))
;       (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST)
;           (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE
;            SB!ALIEN::TYPED-LAMBDA-LIST)
;         (SB!INT:QUASIQUOTE (PROGN (DEFUN # # #) (DEFPARAMETER # #)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!ALIEN::DEFINE-ALIEN-CALLBACK
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # # #)
;                            (DECLARE #)
;                            (BLOCK SB!ALIEN::DEFINE-ALIEN-CALLBACK #))))
;                    '(SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE
;                      SB!ALIEN::TYPED-LAMBDA-LIST &BODY SB!ALIEN::FORMS)
;                    "Defines #'NAME as a function with the given body and lambda-list, and NAME as
; the alien callback for that function with the given alien type."
;                    '(MACRO-FUNCTION SB!ALIEN::DEFINE-ALIEN-CALLBACK)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-CALLBACK-SPECIFICATION
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFMACRO DEFINE-ALIEN-CALLBACK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:04.808
; compiling file "/«PKGBUILDDIR»/src/code/target-c-call.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFINE-ALIEN-TYPE CHAR ...)
; x-compiling (DEFINE-ALIEN-TYPE SHORT ...)
; x-compiling (DEFINE-ALIEN-TYPE INT ...)
; x-compiling (DEFINE-ALIEN-TYPE LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE LONG-LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-CHAR ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-SHORT ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-INT ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG-LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE FLOAT ...)
; x-compiling (DEFINE-ALIEN-TYPE DOUBLE ...)
; x-compiling (DEFINE-ALIEN-TYPE UTF8-STRING ...)
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VOID ...)
; x-compiling (DEFUN DEFAULT-C-STRING-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN %NATURALIZE-C-STRING ...)

; file: /«PKGBUILDDIR»/src/code/target-c-call.lisp
; in: DEFUN STRING-TO-C-STRING
;     (FUNCALL (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) STRING)
; --> SB!C::%FUNCALL THE 
; ==>
;   (SB!KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; x-compiling (DEFUN STRING-TO-C-STRING ...)

; file: /«PKGBUILDDIR»/src/code/target-c-call.lisp
; in: DEFUN C-STRING-TO-STRING
;     (FUNCALL (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT)
;              SB!ALIEN::SAP SB!ALIEN::ELEMENT-TYPE)
; --> SB!C::%FUNCALL THE 
; ==>
;   (SB!KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN C-STRING-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-c-call.lisp-obj-tmp written
; compilation finished in 0:00:00.589
; compiling file "/«PKGBUILDDIR»/src/code/target-allocate.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_allocate" ALLOCATE-SYSTEM-MEMORY) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_deallocate" DEALLOCATE-SYSTEM-MEMORY) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-allocate.lisp-obj-tmp written
; compilation finished in 0:00:00.098
; compiling file "/«PKGBUILDDIR»/src/code/misc-aliens.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE MEMMOVE))
; x-compiling (DEFINE-ALIEN-ROUTINE ("memmove" MEMMOVE) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_get_errno" GET-ERRNO) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN STRERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/misc-aliens.lisp-obj-tmp written
; compilation finished in 0:00:00.288
; compiling file "/«PKGBUILDDIR»/src/code/typedefs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...)
; x-compiling (DEFCONSTANT +CTYPE-HASH-MASK+ ...)
; x-compiling (DEF!STRUCT (CTYPE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFCONSTANT +TYPE-ADMITS-TYPE=-OPTIMIZATION+ ...)
; x-compiling (DEFUN MARK-CTYPE-INTERNED ...)
; x-compiling (DECLAIM (INLINE TYPE-MIGHT-CONTAIN-OTHER-TYPES-P))
; x-compiling (DEFUN TYPE-MIGHT-CONTAIN-OTHER-TYPES-P ...)
; x-compiling (DECLAIM (INLINE TYPE-ENUMERABLE))
; x-compiling (DEFUN TYPE-ENUMERABLE ...)
; x-compiling (DEFUN MAKE-TYPE-LOAD-FORM ...)
; x-compiling (DEFUN HIERARCHICAL-INTERSECTION2 ...)
; x-compiling (DEFUN HIERARCHICAL-UNION2 ...)
; x-compiling (DECLAIM (INLINE TYPE-CACHE-HASH))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN TYPE-CACHE-HASH ...)
; x-compiling (DECLAIM (INLINE TYPE-LIST-CACHE-HASH))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN TYPE-LIST-CACHE-HASH ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPEDEFS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/typedefs.lisp-obj-tmp written
; compilation finished in 0:00:00.587
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-array.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...)
; x-compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; x-compiling (SETQ *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN VALID-BIT-BASH-SAETP-P ...)
; x-compiling (!DEFGLOBAL SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...)
; x-compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...)
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FIND-SAETP ...)
; x-compiling (DEFUN FIND-SAETP-BY-CTYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-array.lisp-obj-tmp written
; compilation finished in 0:00:00.917
; compiling file "/«PKGBUILDDIR»/src/code/weak.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN MAKE-WEAK-POINTER ...)
; x-compiling (DECLAIM (INLINE WEAK-POINTER-VALUE))
; x-compiling (DEFUN WEAK-POINTER-VALUE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/weak.lisp-obj-tmp written
; compilation finished in 0:00:00.046
; compiling file "/«PKGBUILDDIR»/src/code/array.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE ADJUSTABLE-ARRAY-P ...))
; x-compiling (DEF %ARRAY-FILL-POINTER)
; x-compiling (DEF %ARRAY-FILL-POINTER-P)
; x-compiling (DEF %ARRAY-AVAILABLE-ELEMENTS)
; x-compiling (DEF %ARRAY-DATA-VECTOR)
; x-compiling (DEF %ARRAY-DISPLACEMENT)
; x-compiling (DEF %ARRAY-DISPLACED-P)
; x-compiling (DEF %ARRAY-DIPLACED-FROM)
; x-compiling (DEFUN %ARRAY-RANK ...)
; x-compiling (DEFUN %ARRAY-DIMENSION ...)
; x-compiling (DEFUN %SET-ARRAY-DIMENSION ...)
; x-compiling (DEFUN %CHECK-BOUND ...)
; x-compiling (DEFUN %WITH-ARRAY-DATA/FP ...)
; x-compiling (DEFUN %WITH-ARRAY-DATA ...)
; x-compiling (DEFUN %DATA-VECTOR-AND-INDEX ...)
; x-compiling (DEFUN %INTEGER-VECTOR-WIDETAG-AND-N-BITS ...)
; x-compiling (DEFUN %VECTOR-WIDETAG-AND-N-BITS ...)
; x-compiling (DEFUN %COMPLEX-VECTOR-WIDETAG ...)
; x-compiling (DEFGLOBAL %%SIMPLE-ARRAY-N-BITS%% ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN ALLOCATE-VECTOR-WITH-WIDETAG ...)
; x-compiling (DEFUN ARRAY-UNDERLYING-WIDETAG ...)
; x-compiling (DEFUN VALIDATE-ARRAY-INITARGS ...)
; x-compiling (DEFUN %MAKE-ARRAY ...)
; x-compiling (DEFUN MAKE-ARRAY ...)
; x-compiling (DEFUN MAKE-STATIC-VECTOR ...)
; x-compiling (DEFUN DATA-VECTOR-FROM-INITS ...)
; x-compiling (DEFUN VECTOR ...)
; x-compiling (DEF !FIND-DATA-VECTOR-SETTER ...)
; x-compiling (DEF !FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ...)
; x-compiling (DEF %FIND-DATA-VECTOR-REFFER ...)
; x-compiling (DEF !FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS ...)
; x-compiling (DEFMACRO DO-VECTOR-DATA ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-REF
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF SB!IMPL::%FIND-DATA-VECTOR-REFFER NIL
;      (PROGN))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY670)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF VECTOR SB!INT:INDEX)
; 
; 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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-SET
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET SB!IMPL::!FIND-DATA-VECTOR-SETTER
;      (SB!IMPL::NEW-VALUE) (PROGN))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY691)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-SET VECTOR SB!INT:INDEX SB!IMPL::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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;      SB!IMPL::!FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS NIL
;      (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0)))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY712)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX))
; 
; 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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;      SB!IMPL::!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS (SB!IMPL::NEW-VALUE)
;      (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0)))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY734)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX)
;    (THE * 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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; x-compiling (DEFUN HAIRY-REF-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS%%
;      SB!IMPL::DEFINE-SETTER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB!KERNEL:DATA-VECTOR-SET (THE (SIMPLE-ARRAY NIL (*)) VECTOR)
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SAFETY 1)))
;     (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1)))
;     (THE NIL SB!IMPL::NEW-VALUE)))
; 
; note: The third argument never returns a value.

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS/CHECK-BOUNDS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%%
;      SB!IMPL::DEFINE-SETTER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR))
;      #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB!KERNEL:DATA-VECTOR-SET (THE (SIMPLE-ARRAY NIL (*)) VECTOR)
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SAFETY 1)))
;     (THE SB!INT:INDEX
;          (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR) SB!INT:INDEX)))
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1)))
;     (THE NIL SB!IMPL::NEW-VALUE)))
; 
; note: The third argument never returns a value.

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS%%
;      SB!IMPL::DEFINE-REFFER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing complex single float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing complex double float to pointer coercion (cost 13) to "<return value>"

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS/CHECK-BOUNDS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS/CHECK-BOUNDS%%
;      SB!IMPL::DEFINE-REFFER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR))
;      #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing complex single float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing complex double float to pointer coercion (cost 13) to "<return value>"
; x-compiling (DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT ...)
; x-compiling (DEFUN DATA-VECTOR-REF ...)
; x-compiling (DEFUN DATA-VECTOR-REF-WITH-OFFSET ...)
; x-compiling (DEFUN INVALID-ARRAY-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN INVALID-ARRAY-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN INVALID-ARRAY-INDEX-ERROR ...)
; x-compiling (DEFUN %ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFUN ARRAY-IN-BOUNDS-P ...)
; x-compiling (DEFUN ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFUN AREF ...)
; x-compiling (DEFUN (SETF AREF) ...)
; x-compiling (DEFUN ROW-MAJOR-AREF ...)
; x-compiling (DEFUN %SET-ROW-MAJOR-AREF ...)
; x-compiling (DEFUN SVREF ...)
; x-compiling (DEFUN %SVSET ...)
; x-compiling (DEFUN BIT ...)
; x-compiling (DEFUN (SETF BIT) ...)
; x-compiling (DEFUN SBIT ...)
; x-compiling (DEFUN (SETF SBIT) ...)
; x-compiling (DEFUN ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN ARRAY-RANK ...)
; x-compiling (DEFUN ARRAY-DIMENSION ...)
; x-compiling (DEFUN ARRAY-DIMENSIONS ...)
; x-compiling (DEFUN ARRAY-TOTAL-SIZE ...)
; x-compiling (DEFUN ARRAY-DISPLACEMENT ...)
; x-compiling (DEFUN ADJUSTABLE-ARRAY-P ...)
; x-compiling (DECLAIM (INLINE ARRAY-HAS-FILL-POINTER-P))
; x-compiling (DEFUN ARRAY-HAS-FILL-POINTER-P ...)
; x-compiling (DEFUN FILL-POINTER-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DECLAIM (INLINE FILL-POINTER)
;     (DECLAIM (INLINE FILL-POINTER))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE FILL-POINTER) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:FILL-POINTER to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE FILL-POINTER))
; x-compiling (DEFUN FILL-POINTER ...)
; x-compiling (DEFUN %SET-FILL-POINTER ...)
; x-compiling (DEFUN VECTOR-PUSH ...)
; x-compiling (DEFUN VECTOR-PUSH-EXTEND ...)
; x-compiling (DEFUN VECTOR-POP ...)
; x-compiling (DEFUN ADJUST-ARRAY ...)
; x-compiling (DEFUN GET-NEW-FILL-POINTER ...)
; x-compiling (DEFUN %SHRINK-VECTOR ...)
; x-compiling (DEFUN SHRINK-VECTOR ...)
; x-compiling (DEFUN %SAVE-DISPLACED-ARRAY-BACKPOINTER ...)
; x-compiling (DEFUN %WALK-DISPLACED-ARRAY-BACKPOINTERS ...)
; x-compiling (DEFUN SET-ARRAY-HEADER ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ARRAY-STORAGE-VECTOR ...)
; x-compiling (DEFUN ZAP-ARRAY-DATA ...)
; x-compiling (DEFUN ZAP-ARRAY-DATA-AUX ...)
; x-compiling (DEFUN ROW-MAJOR-INDEX-FROM-DIMS ...)
; x-compiling (DEFUN BIT-ARRAY-SAME-DIMENSIONS-P ...)
; x-compiling (DEFUN PICK-RESULT-ARRAY ...)
; x-compiling (DEFMACRO DEF-BIT-ARRAY-OP ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-AND ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-IOR ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-XOR ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-EQV ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-NAND ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEF-BIT-ARRAY-OP BIT-NOR
;     (SB!IMPL::DEF-BIT-ARRAY-OP BIT-NOR LOGNOR)
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY 
; --> RETURN-FROM PROGN SETF SB!KERNEL:%SET-VECTOR-RAW-BITS 
; --> SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 -1) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &REST
;                                                                           T).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY 
; --> RETURN-FROM PROGN SETF SB!KERNEL:%SET-VECTOR-RAW-BITS 
; --> SB!KERNEL:WORD-LOGICAL-NOR 
; ==>
;   (LOGAND (LOGNOR SB!C::X SB!C::Y) 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967296 -1), not a (SIGNED-BYTE 32).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY 
; --> SETF SB!KERNEL:%SET-VECTOR-RAW-BITS SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 -1) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &REST
;                                                                           T).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY 
; --> SETF SB!KERNEL:%SET-VECTOR-RAW-BITS SB!KERNEL:WORD-LOGICAL-NOR 
; ==>
;   (LOGAND (LOGNOR SB!C::X SB!C::Y) 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967296 -1), not a (SIGNED-BYTE 32).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY 
; --> SETF SB!KERNEL:%SET-VECTOR-RAW-BITS SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY 
; --> RETURN-FROM PROGN SETF SB!KERNEL:%SET-VECTOR-RAW-BITS 
; --> SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEF-BIT-ARRAY-OP BIT-NOR ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC1 ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC2 ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC1 ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC2 ...)
; x-compiling (DEFUN BIT-NOT ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS
;     (TYPECASE SB!KERNEL:CTYPE
;       (SB!KERNEL:UNION-TYPE
;        (LET ((SB!IMPL::TYPES #))
;          (COND (# #) (# #) (# #) (# #) (T #))))
;       (SB!KERNEL:CHARACTER-SET-TYPE
;        (IF (LOOP SB!IMPL::FOR (SB!IMPL::START
;                                . SB!IMPL::END) SB!IMPL::IN (SB!KERNEL:CHARACTER-SET-TYPE-PAIRS
;                                                             SB!KERNEL:CTYPE)
;                  SB!IMPL::ALWAYS (AND # #))
;            (SB!IMPL::RESULT SB!VM:SIMPLE-BASE-STRING-WIDETAG)
;            (SB!IMPL::RESULT SB!VM:SIMPLE-CHARACTER-STRING-WIDETAG)))
;       (T
;        (LET ((SB!IMPL::EXPANSION #))
;          (IF (EQUAL SB!IMPL::EXPANSION TYPE)
;              (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG)
;              (SB!IMPL::%VECTOR-WIDETAG-AND-N-BITS SB!IMPL::EXPANSION)))))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G5567 'SB!KERNEL:CHARACTER-SET-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: CHARACTER-SET-TYPE

;     (HANDLER-CASE (SB!KERNEL:SPECIFIER-TYPE TYPE)
;                   (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL
;                    (RETURN (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG))))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: PARSE-UNKNOWN-TYPE

;     (TYPECASE SB!KERNEL:CTYPE
;       (SB!KERNEL:UNION-TYPE
;        (LET ((SB!IMPL::TYPES #))
;          (COND (# #) (# #) (# #) (# #) (T #))))
;       (SB!KERNEL:CHARACTER-SET-TYPE
;        (IF (LOOP SB!IMPL::FOR (SB!IMPL::START
;                                . SB!IMPL::END) SB!IMPL::IN (SB!KERNEL:CHARACTER-SET-TYPE-PAIRS
;                                                             SB!KERNEL:CTYPE)
;                  SB!IMPL::ALWAYS (AND # #))
;            (SB!IMPL::RESULT SB!VM:SIMPLE-BASE-STRING-WIDETAG)
;            (SB!IMPL::RESULT SB!VM:SIMPLE-CHARACTER-STRING-WIDETAG)))
;       (T
;        (LET ((SB!IMPL::EXPANSION #))
;          (IF (EQUAL SB!IMPL::EXPANSION TYPE)
;              (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG)
;              (SB!IMPL::%VECTOR-WIDETAG-AND-N-BITS SB!IMPL::EXPANSION)))))
; --> LET COND IF 
; ==>
;   (TYPEP #:G5567 'SB!KERNEL:UNION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNION-TYPE
; 
; compilation unit finished
;   Undefined types:
;     CHARACTER-SET-TYPE PARSE-UNKNOWN-TYPE UNION-TYPE
;   caught 4 STYLE-WARNING conditions
;   printed 36 notes
; x-compiling (DEFMACRO DEFINE-ARRAY-DISPATCH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/array.lisp-obj-tmp written
; compilation finished in 0:00:17.482
; compiling file "/«PKGBUILDDIR»/src/code/early-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN SINGLE-FROM-BITS ...)
; x-compiling (DEFUN DOUBLE-FROM-BITS ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-LONG-FLOAT ...)
; x-compiling (LET NIL ...)
; x-compiling (DEFCONSTANT SINGLE-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT SHORT-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT SINGLE-FLOAT-NEGATIVE-EPSILON ...)
; x-compiling (DEFCONSTANT SHORT-FLOAT-NEGATIVE-EPSILON ...)
; x-compiling (DEFCONSTANT DOUBLE-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT LONG-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT DOUBLE-FLOAT-NEGATIVE-EPSILON ...)
; x-compiling (DEFCONSTANT LONG-FLOAT-NEGATIVE-EPSILON ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-float.lisp-obj-tmp written
; compilation finished in 0:00:00.696
; compiling file "/«PKGBUILDDIR»/src/code/target-sxhash.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN POINTER-HASH ...)
; x-compiling (DEFCONSTANT +MAX-HASH-DEPTHOID+ ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (INLINE MIX))
; x-compiling (DEFUN MIX ...)
; x-compiling (DECLAIM (INLINE ADDRESS-BASED-COUNTER-VAL))
; x-compiling (DEFUN ADDRESS-BASED-COUNTER-VAL ...)
; x-compiling (DEFUN QUASI-RANDOM-ADDRESS-BASED-HASH ...)
; x-compiling (DECLAIM (INLINE %SXHASH-SUBSTRING))

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN %SXHASH-SUBSTRING
;     (AREF STRING SB!IMPL::I)
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER)
;                               BASE-STRING), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER)
;                               BASE-STRING), not a SIMPLE-ARRAY.
; x-compiling (DEFUN %SXHASH-SUBSTRING ...)
; x-compiling (DEFUN %SXHASH-SIMPLE-STRING ...)
; x-compiling (DEFUN %SXHASH-SIMPLE-SUBSTRING ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN SXHASH
;     (TYPECASE SB!IMPL::X
;       (PATHNAME
;        (LET ((SB!INT:HASH #))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (LET (#)
;            (SB!INT:MIXF SB!INT:HASH #))))
;       (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;       ((OR STRUCTURE-OBJECT CONDITION)
;        (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #))))
;       (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))
; --> LET COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR LET IF 
; --> OR THE 
; ==>
;   (TYPEP #:N-OBJ48 'CONDITION)
; 
; note: can't open-code test of unknown type CONDITION

;     (TYPECASE SB!IMPL::X
;       (LIST
;        (IF (NULL SB!IMPL::X)
;            (SXHASH SB!IMPL::X)
;            (IF (PLUSP SB!IMPL::DEPTHOID)
;                (SB!INT:MIX # #)
;                261835505)))
;       (SB!KERNEL:INSTANCE
;        (TYPECASE SB!IMPL::X
;          (PATHNAME
;           (LET #
;             #
;             #
;             #
;             #
;             #))
;          (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;          ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #))
;          (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))))
;       (SYMBOL (SXHASH SB!IMPL::X))
;       (ARRAY
;        (TYPECASE SB!IMPL::X
;          (SIMPLE-STRING (SXHASH SB!IMPL::X))
;          (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X))
;          (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X))
;          (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (T (LOGXOR 191020317 #))))
;       (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X))))
;       (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X))
;       (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))
;       (T 42))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G7416 'GENERIC-FUNCTION)
; 
; note: can't open-code test of unknown type GENERIC-FUNCTION

;     (REALPART SB!IMPL::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (IMAGPART SB!IMPL::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X)
; --> BLOCK MACROLET LET UNLESS IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> SB!IMPL::SET-RESULT SETF SETQ THE SB-XC:LDB SB!KERNEL:%LDB + CHAR-CODE 
; --> AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (REALPART SB!IMPL::X)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (IMAGPART SB!IMPL::X)
; 
; note: forced to do full call
;       unable to do complex single float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).
; x-compiling (DEFUN SXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN PSXHASH
;     (CHAR-UPCASE SB!IMPL::KEY)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (SXHASH SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first 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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SIMPLE-BIT-VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SIMPLE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SYMBOL.
; x-compiling (DEFUN PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN ARRAY-PSXHASH
;     (SB!IMPL::MAKE-DISPATCH
;      (SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) SIMPLE-VECTOR
;       (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (SIMPLE-ARRAY FIXNUM (*)) T))
; --> TYPECASE LET COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF PROGN 
; --> DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:PSXHASH 
; --> CHAR-CODE 
; ==>
;   (CHAR-UPCASE SB!C::X)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

; --> TYPECASE LET COND IF COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF 
; --> PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* 
; ==>
;   (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN 
; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> SB!INT:MIXF LET* SB!INT:PSXHASH AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN 
; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> SB!INT:MIXF LET* 
; ==>
;   (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ARRAY-TOTAL-SIZE SB!IMPL::KEY)
; 
; note: unable to optimize because: can't tell the rank at compile time

;     (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I)
; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF SB!KERNEL:%CHECK-BOUND 
; ==>
;   (ARRAY-TOTAL-SIZE ARRAY)
; 
; note: unable to optimize because: can't tell the rank at compile time

; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-TOTAL-SIZE ARRAY) SB!INT:INDEX))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a ARRAY, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a ARRAY, not a SIMPLE-ARRAY.

;     (SB!INT:PSXHASH (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ARRAY-DIMENSION SB!IMPL::KEY SB!IMPL::I)
; 
; note: unable to optimize because: The axis is not constant.
; x-compiling (DEFUN ARRAY-PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN STRUCTURE-OBJECT-PSXHASH
;     (SB!INT:PSXHASH (SB!KERNEL:%INSTANCE-REF SB!IMPL::KEY SB!IMPL::I)
;      SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ZEROP (DECF SB!IMPL::MAX-ITERATIONS))
; ==>
;   (= (DECF SB!IMPL::MAX-ITERATIONS) 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.
; x-compiling (DEFUN STRUCTURE-OBJECT-PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN LIST-PSXHASH
;     (SB!INT:PSXHASH (CAR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (SB!INT:PSXHASH (CDR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.
; x-compiling (DEFUN LIST-PSXHASH ...)
; x-compiling (DEFUN HASH-TABLE-PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN NUMBER-PSXHASH
;     (SB!IMPL::FROB DOUBLE-FLOAT)
; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (SB!IMPL::FROB SINGLE-FLOAT)
; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (SB!IMPL::FROB DOUBLE-FLOAT)
; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (SXHASH SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (= (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT) SB!IMPL::KEY)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; because:
;   The RATIONAL value isn't known at compile time.
; 
; note: unable to open code because: The operands might not be the same type.

;     (SXHASH SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a RATIONAL, not a FIXNUM.

;     (IMAGPART SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (ZEROP (IMAGPART SB!IMPL::KEY))
; ==>
;   (= (IMAGPART SB!IMPL::KEY) 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (REALPART SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (SB!IMPL::FROB SINGLE-FLOAT)
; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT)
; --> THE 
; ==>
;   (SB!KERNEL:%DOUBLE-FLOAT SB!C::X)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 32).
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 32).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (REALPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (REALPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; in: DEFUN SXHASH
;     (DEFUN SXHASH (SB!IMPL::X)
;       (DECLARE (OPTIMIZE SPEED))
;       (LABELS ((SB!IMPL::SXHASH-NUMBER (SB!IMPL::X)
;                  (ETYPECASE SB!IMPL::X # # # # # #))
;                (SB!IMPL::SXHASH-RECURSE (SB!IMPL::X SB!IMPL::DEPTHOID)
;                  (DECLARE #)
;                  (TYPECASE SB!IMPL::X # # # # # # # #)))
;         (SB!IMPL::SXHASH-RECURSE SB!IMPL::X SB!IMPL::+MAX-HASH-DEPTHOID+)))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SXHASH
;    (SB!INT:NAMED-LAMBDA SXHASH
;        (SB!IMPL::X)
;      (DECLARE (OPTIMIZE SPEED))
;      (BLOCK SXHASH
;        (LABELS (# #)
;          (SB!IMPL::SXHASH-RECURSE SB!IMPL::X SB!IMPL::+MAX-HASH-DEPTHOID+))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

;     (TYPECASE SB!IMPL::X
;       (PATHNAME
;        (LET ((SB!INT:HASH #))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (LET (#)
;            (SB!INT:MIXF SB!INT:HASH #))))
;       (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;       ((OR STRUCTURE-OBJECT CONDITION)
;        (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #))))
;       (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))
; --> LET COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G7419 '(OR STRUCTURE-OBJECT CONDITION))
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

;     (TYPECASE SB!IMPL::X
;       (LIST
;        (IF (NULL SB!IMPL::X)
;            (SXHASH SB!IMPL::X)
;            (IF (PLUSP SB!IMPL::DEPTHOID)
;                (SB!INT:MIX # #)
;                261835505)))
;       (SB!KERNEL:INSTANCE
;        (TYPECASE SB!IMPL::X
;          (PATHNAME
;           (LET #
;             #
;             #
;             #
;             #
;             #))
;          (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;          ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #))
;          (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))))
;       (SYMBOL (SXHASH SB!IMPL::X))
;       (ARRAY
;        (TYPECASE SB!IMPL::X
;          (SIMPLE-STRING (SXHASH SB!IMPL::X))
;          (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X))
;          (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X))
;          (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (T (LOGXOR 191020317 #))))
;       (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X))))
;       (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X))
;       (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))
;       (T 42))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G7416 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION
; 
; compilation unit finished
;   Undefined types:
;     CONDITION GENERIC-FUNCTION
;   caught 3 STYLE-WARNING conditions
;   printed 60 notes
; x-compiling (DEFUN NUMBER-PSXHASH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-sxhash.lisp-obj-tmp written
; compilation finished in 0:00:02.737
; compiling file "/«PKGBUILDDIR»/src/code/list.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL ...))
; x-compiling (DEFUN CAR ...)
; x-compiling (DEFUN CDR ...)
; x-compiling (DEFUN CADR ...)
; x-compiling (DEFUN CDAR ...)
; x-compiling (DEFUN CAAR ...)
; x-compiling (DEFUN CDDR ...)
; x-compiling (DEFUN CADDR ...)
; x-compiling (DEFUN CAADR ...)
; x-compiling (DEFUN CAAAR ...)
; x-compiling (DEFUN CDAAR ...)
; x-compiling (DEFUN CDDAR ...)
; x-compiling (DEFUN CDDDR ...)
; x-compiling (DEFUN CADAR ...)
; x-compiling (DEFUN CDADR ...)
; x-compiling (DEFUN CAAAAR ...)
; x-compiling (DEFUN CAAADR ...)
; x-compiling (DEFUN CAADDR ...)
; x-compiling (DEFUN CADDDR ...)
; x-compiling (DEFUN CDDDDR ...)
; x-compiling (DEFUN CDAAAR ...)
; x-compiling (DEFUN CDDAAR ...)
; x-compiling (DEFUN CDDDAR ...)
; x-compiling (DEFUN CAADAR ...)
; x-compiling (DEFUN CADAAR ...)
; x-compiling (DEFUN CADADR ...)
; x-compiling (DEFUN CADDAR ...)
; x-compiling (DEFUN CDAADR ...)
; x-compiling (DEFUN CDADAR ...)
; x-compiling (DEFUN CDADDR ...)
; x-compiling (DEFUN CDDADR ...)
; x-compiling (DEFUN CONS ...)
; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL-TEST ...))
; x-compiling (DEFUN TREE-EQUAL-TEST-NOT ...)
; x-compiling (DEFUN TREE-EQUAL-TEST ...)
; x-compiling (DEFUN TREE-EQUAL ...)
; x-compiling (DEFUN ENDP ...)
; x-compiling (DEFUN LIST-LENGTH ...)
; x-compiling (DEFUN NTH ...)
; x-compiling (DEFUN FIRST ...)
; x-compiling (DEFUN SECOND ...)
; x-compiling (DEFUN THIRD ...)
; x-compiling (DEFUN FOURTH ...)
; x-compiling (DEFUN FIFTH ...)
; x-compiling (DEFUN SIXTH ...)
; x-compiling (DEFUN SEVENTH ...)
; x-compiling (DEFUN EIGHTH ...)
; x-compiling (DEFUN NINTH ...)
; x-compiling (DEFUN TENTH ...)
; x-compiling (DEFUN REST ...)
; x-compiling (DEFUN NTHCDR ...)
; x-compiling (DEFUN %LAST0 ...)
; x-compiling (DEFUN %LAST1 ...)
; x-compiling (DEFUN %LASTN/FIXNUM ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEFUN %LASTN/BIGNUM
;     (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE)
; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF SETQ THE MULTIPLE-VALUE-BIND 
; --> LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY 
; --> AND THE >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (DEFUN SB!KERNEL:%LASTN/BIGNUM (LIST SB!IMPL::N)
;       (DECLARE (OPTIMIZE SPEED (SB!C:VERIFY-ARG-COUNT 0))
;                (TYPE (AND UNSIGNED-BYTE BIGNUM) SB!IMPL::N))
;       (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; x-compiling (DEFUN %LASTN/BIGNUM ...)
; x-compiling (DEFUN LAST ...)
; x-compiling (DEFINE-COMPILER-MACRO LAST ...)
; x-compiling (DEFUN LIST ...)
; x-compiling (DEFUN LIST* ...)
; x-compiling (DEFUN MAKE-LIST ...)
; x-compiling (DEFUN APPEND ...)
; x-compiling (DEFUN APPEND2 ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEFINE-COMPILER-MACRO APPEND
;     (DEFINE-COMPILER-MACRO APPEND
;         (&WHOLE SB!KERNEL:FORM &REST SB!IMPL::LISTS)
;       (CASE (LENGTH SB!IMPL::LISTS)
;         (0 NIL)
;         (1 (CAR SB!IMPL::LISTS))
;         (2 (SB!INT:QUASIQUOTE (SB!IMPL::APPEND2 #)))
;         (T SB!KERNEL:FORM)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'APPEND
;                                 #'(LAMBDA (#:WHOLE230 #:ENVIRONMENT231)
;                                     (DECLARE (IGNORE #:ENVIRONMENT231))
;                                     (LET* ((#:CMACRO-&WHOLE7743 #:WHOLE230)
;                                            (#:WHOLE230 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE7743))
;                                       (LET* (# #)
;                                         (BLOCK APPEND #))))
;                                 '(&WHOLE SB!KERNEL:FORM &REST SB!IMPL::LISTS)
;                                 NIL '(COMPILER-MACRO-FUNCTION APPEND))
; 
; caught STYLE-WARNING:
;   55 calls to COMMON-LISP:APPEND were compiled before a compiler-macro was
;   defined for it. A declaration of NOTINLINE at the call sites will eliminate
;   this warning, as will defining the compiler-macro before its first potential
;   use.
; x-compiling (DEFINE-COMPILER-MACRO APPEND ...)
; x-compiling (SB-XC:DEFMACRO !COPY-LIST-MACRO ...)
; x-compiling (DEFUN COPY-LIST ...)
; x-compiling (DEFUN COPY-ALIST ...)
; x-compiling (DEFUN COPY-TREE ...)
; x-compiling (DEFUN REVAPPEND ...)
; x-compiling (DEFUN NCONC ...)
; x-compiling (DEFUN NRECONC ...)
; x-compiling (DEFUN BUTLAST ...)
; x-compiling (DEFUN NBUTLAST ...)
; x-compiling (DEFUN LDIFF ...)
; x-compiling (DEFUN RPLACA ...)
; x-compiling (DEFUN RPLACD ...)
; x-compiling (DEFUN %RPLACA ...)
; x-compiling (DEFUN %RPLACD ...)
; x-compiling (DEFUN %SETNTH ...)
; x-compiling (DEFMACRO APPLY-KEY ...)
; x-compiling (DEFMACRO WITH-SET-KEYS ...)
; x-compiling (DEFMACRO SATISFIES-THE-TEST ...)
; x-compiling (DEFUN SUBST ...)
; x-compiling (DEFUN SUBST-IF ...)
; x-compiling (DEFUN SUBST-IF-NOT ...)
; x-compiling (DEFUN NSUBST ...)
; x-compiling (DEFUN NSUBST-IF ...)
; x-compiling (DEFUN NSUBST-IF-NOT ...)
; x-compiling (DEFUN SUBLIS ...)
; x-compiling (DEFMACRO NSUBLIS-MACRO ...)
; x-compiling (DEFUN NSUBLIS ...)
; x-compiling (DEFUN MEMBER ...)
; x-compiling (DEFUN MEMBER-IF ...)
; x-compiling (DEFUN MEMBER-IF-NOT ...)
; x-compiling (DEFUN TAILP ...)
; x-compiling (DEFUN ADJOIN ...)
; x-compiling (DEFCONSTANT +LIST-BASED-UNION-LIMIT+ ...)
; x-compiling (DEFUN UNION ...)
; x-compiling (DEFMACRO STEVE-SPLICE ...)
; x-compiling (DEFUN NUNION ...)
; x-compiling (DEFUN INTERSECTION ...)
; x-compiling (DEFUN NINTERSECTION ...)
; x-compiling (DEFUN SET-DIFFERENCE ...)
; x-compiling (DEFUN NSET-DIFFERENCE ...)
; x-compiling (DEFUN SET-EXCLUSIVE-OR ...)
; x-compiling (DEFUN NSET-EXCLUSIVE-OR ...)
; x-compiling (DEFUN SUBSETP ...)
; x-compiling (DEFUN ACONS ...)
; x-compiling (DEFUN PAIRLIS ...)
; x-compiling (DEFUN ASSOC ...)
; x-compiling (DEFUN ASSOC-IF ...)
; x-compiling (DEFUN ASSOC-IF-NOT ...)
; x-compiling (DEFUN RASSOC ...)
; x-compiling (DEFUN RASSOC-IF ...)
; x-compiling (DEFUN RASSOC-IF-NOT ...)
; x-compiling (DEFUN MAP1 ...)
; x-compiling (DEFUN MAPC ...)
; x-compiling (DEFUN MAPCAR ...)
; x-compiling (DEFUN MAPCAN ...)
; x-compiling (DEFUN MAPL ...)
; x-compiling (DEFUN MAPLIST ...)
; x-compiling (DEFUN MAPCON ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEF ()
;     (EQL SB!IMPL::X SB!IMPL::TARGET)
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; x-compiling (DEF NIL ...)
; x-compiling (DEF NIL ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEF (KEY)
;     (EQL SB!IMPL::X (FUNCALL SB!IMPL::KEY SB!IMPL::TARGET))
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; x-compiling (DEF (KEY) ...)
; x-compiling (DEF (KEY) ...)
; x-compiling (DEF (KEY TEST) ...)
; x-compiling (DEF (KEY TEST-NOT) ...)
; x-compiling (DEF (TEST) ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 26 notes
; x-compiling (DEF (TEST-NOT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/list.lisp-obj-tmp written
; compilation finished in 0:00:07.821
; compiling file "/«PKGBUILDDIR»/src/code/seq.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %CHECK-GENERIC-SEQUENCE-BOUNDS ...)
; x-compiling (DEFPARAMETER *SEQUENCE-KEYWORD-INFO* ...)
; x-compiling (SB-XC:DEFMACRO DEFINE-SEQUENCE-TRAVERSER ...)
; x-compiling (SB-XC:DEFMACRO SEQ-DISPATCH ...)
; x-compiling (SB-XC:DEFMACRO SEQ-DISPATCH-CHECKING ...)
; x-compiling (SB-XC:DEFMACRO %MAKE-SEQUENCE-LIKE ...)
; x-compiling (SB-XC:DEFMACRO BAD-SEQUENCE-TYPE-ERROR ...)
; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR ...)
; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-TOO-HAIRY ...)
; x-compiling (DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ...)
; x-compiling (DEFUN VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH ...)
; x-compiling (DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SIGNAL-INDEX-TOO-LARGE-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CIRCULAR-LIST-ERROR ...)
; x-compiling (DEFUN EMPTYP ...)
; x-compiling (DEFUN ELT ...)
; x-compiling (DEFUN %SETELT ...)
; x-compiling (DEFUN LENGTH ...)
; x-compiling (DEFUN MAKE-SEQUENCE ...)
; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-SUBSEQ-DISPATCH ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN VECTOR-SUBSEQ*
;     (SB!KERNEL:WITH-ARRAY-DATA
;      ((SB!IMPL::DATA SEQUENCE) (SB!IMPL::START SB!IMPL::START)
;       (SB!IMPL::END SB!IMPL::END) :CHECK-FILL-POINTER T :FORCE-INLINE T)
;      (SB!IMPL::VECTOR-SUBSEQ-DISPATCH SB!IMPL::DATA SB!IMPL::START SB!IMPL::END))
; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM 
; --> PROGN VALUES THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1035 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1037 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY PSETQ LET* 
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1040 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN VECTOR-SUBSEQ* ...)
; x-compiling (DEFUN LIST-SUBSEQ* ...)
; x-compiling (DEFUN SUBSEQ ...)
; x-compiling (DEFUN COPY-SEQ ...)
; x-compiling (DEFUN LIST-COPY-SEQ* ...)
; x-compiling (DEFUN LIST-FILL* ...)
; x-compiling (DEFUN VECTOR-FILL* ...)
; x-compiling (DEFUN STRING-FILL* ...)
; x-compiling (DEFUN FILL ...)
; x-compiling (DEFUN LIST-REPLACE-FROM-LIST* ...)
; x-compiling (DEFUN LIST-REPLACE-FROM-VECTOR* ...)
; x-compiling (DEFUN VECTOR-REPLACE-FROM-LIST* ...)
; x-compiling (DEFUN VECTOR-REPLACE-FROM-VECTOR* ...)
; x-compiling (DEFUN SIMPLE-CHARACTER-STRING-REPLACE-FROM-SIMPLE-CHARACTER-STRING* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REPLACE ...)
; x-compiling (DEFUN REVERSE ...)
; x-compiling (DEFUN LIST-REVERSE* ...)
; x-compiling (DEFUN VECTOR-REVERSE* ...)
; x-compiling (DEFUN LIST-NREVERSE* ...)
; x-compiling (DEFUN VECTOR-NREVERSE* ...)
; x-compiling (DEFUN NREVERSE ...)
; x-compiling (DEFMACRO SB!SEQUENCE:DOSEQUENCE ...)
; x-compiling (DEFUN CONCATENATE ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEF %CONCATENATE-TO-STRING
;     (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-STRING CHARACTER)
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY 
; --> SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF COND IF COND IF PROGN 
; --> #:STRING-DISPATCH-FUN1676 BLOCK 
; ==>
;   (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* MAPCAR LET LET SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY 
; --> SB!KERNEL:%RPLACD SETQ THE LIST CONS FUNCALL SB!C::%FUNCALL 
; ==>
;   (LENGTH (CAR #:G9449))
; 
; 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.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY INCF SETQ 
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1744 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEF %CONCATENATE-TO-STRING ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEF %CONCATENATE-TO-BASE-STRING
;     (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-BASE-STRING BASE-CHAR)
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY 
; --> SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF COND IF COND IF PROGN 
; --> #:STRING-DISPATCH-FUN1750 BLOCK 
; ==>
;   (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* MAPCAR LET LET SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY 
; --> SB!KERNEL:%RPLACD SETQ THE LIST CONS FUNCALL SB!C::%FUNCALL 
; ==>
;   (LENGTH (CAR #:G9491))
; 
; 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.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY INCF SETQ 
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1821 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEF %CONCATENATE-TO-BASE-STRING ...)
; x-compiling (DEFUN %MAP-TO-LIST-ARITY-1 ...)
; x-compiling (DEFUN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...)
; x-compiling (DEFUN %MAP-FOR-EFFECT-ARITY-1 ...)
; x-compiling (DECLAIM (MAYBE-INLINE %MAP-FOR-EFFECT))
; x-compiling (DEFUN %MAP-FOR-EFFECT ...)
; x-compiling (DEFUN %MAP-TO-LIST ...)
; x-compiling (DEFUN %MAP-TO-VECTOR ...)
; x-compiling (DEFUN %MAP ...)
; x-compiling (DEFUN MAP ...)
; x-compiling (DEFMACRO MAP-INTO-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO
;     (INCF SB!INT:INDEX)
; --> SETQ THE + 
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code
; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN MAP-INTO
;     (DEFUN MAP-INTO (SB!IMPL::RESULT-SEQUENCE FUNCTION &REST SB!IMPL::SEQUENCES)
;       (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)))
;         (ETYPECASE SB!IMPL::RESULT-SEQUENCE
;           (VECTOR (SB!KERNEL:WITH-ARRAY-DATA # #))
;           (LIST
;            (LET #
;              #
;              #))
;           (SEQUENCE (MULTIPLE-VALUE-BIND # # #))))
;       SB!IMPL::RESULT-SEQUENCE)
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (BLOCK MAP-INTO
;     (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)))
;       (ETYPECASE SB!IMPL::RESULT-SEQUENCE
;         (VECTOR (SB!KERNEL:WITH-ARRAY-DATA # #))
;         (LIST
;          (LET #
;            #
;            #))
;         (SEQUENCE (MULTIPLE-VALUE-BIND # # #))))
;     SB!IMPL::RESULT-SEQUENCE)
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM MAP-INTO RESULT-SEQUENCE). Use GO/RETURN-FROM with SAFETY 0, or
; declare the exit function DYNAMIC-EXTENT to avoid.
; x-compiling (DEFUN MAP-INTO ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFQUANTIFIER SOME
;     (SB!IMPL::DEFQUANTIFIER SOME WHEN SB!IMPL::PRED-VALUE :UNFOUND-RESULT NIL
;      :DOC "Apply PREDICATE to the 0-indexed elements of the sequences, then
;      possibly to those with index 1, and so on. Return the first
;      non-NIL value encountered, or NIL if the end of any sequence is reached.")
; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'SOME
;                                 #'(LAMBDA (#:WHOLE2705 #:ENVIRONMENT2706)
;                                     (DECLARE (IGNORE #:ENVIRONMENT2706))
;                                     (LET* ((#:CMACRO-&WHOLE9903 #:WHOLE2705)
;                                            (#:WHOLE2705 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE9903))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK SOME #))))
;                                 '(SB!IMPL::PRED SB!IMPL::FIRST-SEQ &REST
;                                   SB!IMPL::MORE-SEQS)
;                                 NIL '(COMPILER-MACRO-FUNCTION SOME))
; 
; caught STYLE-WARNING:
;   4 calls to COMMON-LISP:SOME were compiled before a compiler-macro was defined
;   for it. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; x-compiling (DEFQUANTIFIER SOME ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFQUANTIFIER EVERY
;     (SB!IMPL::DEFQUANTIFIER EVERY UNLESS NIL :DOC
;      "Apply PREDICATE to the 0-indexed elements of the sequences, then
;      possibly to those with index 1, and so on. Return NIL as soon
;      as any invocation of PREDICATE returns NIL, or T if every invocation
;      is non-NIL.")
; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'EVERY
;                                 #'(LAMBDA (#:WHOLE2784 #:ENVIRONMENT2785)
;                                     (DECLARE (IGNORE #:ENVIRONMENT2785))
;                                     (LET* ((#:CMACRO-&WHOLE9924 #:WHOLE2784)
;                                            (#:WHOLE2784 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE9924))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK EVERY #))))
;                                 '(SB!IMPL::PRED SB!IMPL::FIRST-SEQ &REST
;                                   SB!IMPL::MORE-SEQS)
;                                 NIL '(COMPILER-MACRO-FUNCTION EVERY))
; 
; caught STYLE-WARNING:
;   8 calls to COMMON-LISP:EVERY were compiled before a compiler-macro was defined
;   for it. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; x-compiling (DEFQUANTIFIER EVERY ...)
; x-compiling (DEFQUANTIFIER NOTANY ...)
; x-compiling (DEFQUANTIFIER NOTEVERY ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REDUCE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF-NOT ...)
; x-compiling (DEFUN LIST-REMOVE-DUPLICATES* ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN VECTOR-REMOVE-DUPLICATES*
;     (SB!IMPL::%MAKE-SEQUENCE-LIKE VECTOR LENGTH)
; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE 
; ==>
;   VECTOR
; 
; note: deleting unreachable code

; --> SB!IMPL::SEQ-DISPATCH IF LET MAKE-LIST 
; ==>
;   LENGTH
; 
; note: deleting unreachable code

; --> SB!IMPL::SEQ-DISPATCH IF IF SB!SEQUENCE:MAKE-SEQUENCE-LIKE 
; ==>
;   VECTOR
; 
; note: deleting unreachable code
; x-compiling (DEFUN VECTOR-REMOVE-DUPLICATES* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-DUPLICATES ...)
; x-compiling (DEFUN LIST-DELETE-DUPLICATES* ...)
; x-compiling (DEFUN VECTOR-DELETE-DUPLICATES* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES ...)
; x-compiling (DEFUN LIST-SUBSTITUTE* ...)
; x-compiling (DEFUN VECTOR-SUBSTITUTE* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE ...)
; x-compiling (DEFUN NLIST-SUBSTITUTE* ...)
; x-compiling (DEFUN NVECTOR-SUBSTITUTE* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF ...)
; x-compiling (DEFUN NLIST-SUBSTITUTE-IF* ...)
; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF-NOT ...)
; x-compiling (DEFUN NLIST-SUBSTITUTE-IF-NOT* ...)
; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF-NOT* ...)
; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-TEST ...)
; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-KEY ...)
; x-compiling (DEFUN %FIND-POSITION ...)
; x-compiling (DEFUN %FIND-POSITION-IF ...)
; x-compiling (DEFUN %FIND-POSITION-IF-NOT ...)
; x-compiling (DEFUN FIND ...)
; x-compiling (DEFUN POSITION ...)
; x-compiling (DEFUN FIND-IF ...)
; x-compiling (DEFUN POSITION-IF ...)
; x-compiling (DEFUN FIND-IF-NOT ...)
; x-compiling (DEFUN POSITION-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER MISMATCH ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SEARCH ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN MAKE-SEQUENCE
;     (TYPEP TYPE 'SB!KERNEL:ARRAY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ARRAY-TYPE

; in: DEFUN %MAP
;     (FIND-CLASS SB!IMPL::RESULT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS

; in: DEFUN CONCATENATE
;     (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS

; in: DEFUN MAKE-SEQUENCE
;     (FIND-CLASS SB!IMPL::ADJUSTED-TYPE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS
; 
; compilation unit finished
;   Undefined type:
;     ARRAY-TYPE
;   Undefined function:
;     FIND-CLASS
;   caught 6 STYLE-WARNING conditions
;   printed 18 notes
; x-compiling (DEFUN FILL-DATA-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/seq.lisp-obj-tmp written
; compilation finished in 0:00:31.074
; compiling file "/«PKGBUILDDIR»/src/code/coerce.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF LIST-TO-VECTOR* ...)
; x-compiling (DEF VECTOR-TO-VECTOR* ...)
; x-compiling (DEF SEQUENCE-TO-VECTOR* ...)
; x-compiling (DEFUN VECTOR-TO-LIST* ...)
; x-compiling (DEFUN SEQUENCE-TO-LIST ...)
; x-compiling (DECLAIM (INLINE COERCE-TO-LIST))
; x-compiling (DECLAIM (INLINE COERCE-TO-VECTOR))
; x-compiling (DEFUN COERCE-SYMBOL-TO-FUN ...)
; x-compiling (DEFUN COERCE-TO-FUN ...)
; x-compiling (DEFUN COERCE-TO-LIST ...)
; x-compiling (DEFUN COERCE-TO-VECTOR ...)

; file: /«PKGBUILDDIR»/src/code/coerce.lisp
; in: DEFUN COERCE
;     (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS
; 
; compilation unit finished
;   Undefined function:
;     FIND-CLASS
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN COERCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/coerce.lisp-obj-tmp written
; compilation finished in 0:00:00.896
; compiling file "/«PKGBUILDDIR»/src/code/string.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN STRING ...)
; x-compiling (DEFUN %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; x-compiling (DEFUN CHAR ...)
; x-compiling (DEFUN %CHARSET ...)
; x-compiling (DEFUN SCHAR ...)
; x-compiling (DEFUN %SCHARSET ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in: DEFUN STRING=*
;     (SB!SYS:WITH-PINNED-OBJECTS (SB!IMPL::STRING1 SB!IMPL::STRING2)
;       (ZEROP
;        (SB!ALIEN:ALIEN-FUNCALL
;         (SB!ALIEN:EXTERN-ALIEN "memcmp"
;          (FUNCTION SB!ALIEN:INT # # SB!ALIEN:LONG))
;         (SB!IMPL::SAP SB!IMPL::STRING1 SB!IMPL::START1)
;         (SB!IMPL::SAP SB!IMPL::STRING2 SB!IMPL::START2)
;         (SB!IMPL::SCALE SB!IMPL::LEN))))
; --> LET LIST* 
; ==>
;   SB!IMPL::STRING1
; 
; note: deleting unreachable code

;     (SB!ALIEN:EXTERN-ALIEN "memcmp"
;      (FUNCTION SB!ALIEN:INT (* CHAR) (* CHAR) SB!ALIEN:LONG))
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!SYS:FOREIGN-SYMBOL-SAP 
; ==>
;   "memcmp"
; 
; note: deleting unreachable code

;     (RETURN-FROM SB!KERNEL:STRING=*
;       (MACROLET ((SB!IMPL::SAP (STRING SB!IMPL::START)
;                    (SB!INT:QUASIQUOTE #))
;                  (SB!IMPL::SCALE (SB!INT:INDEX)
;                    (SB!INT:QUASIQUOTE #)))
;         (DECLARE (OPTIMIZE (SB!C:ALIEN-FUNCALL-SAVES-FP-AND-PC 0)))
;         (SB!SYS:WITH-PINNED-OBJECTS (SB!IMPL::STRING1 SB!IMPL::STRING2)
;           (ZEROP (SB!ALIEN:ALIEN-FUNCALL # # # #)))))
; 
; note: deleting unreachable code

;     (SB!IMPL::WITH-TWO-STRINGS SB!IMPL::STRING1 SB!IMPL::STRING2 SB!IMPL::START1
;      SB!IMPL::END1 NIL SB!IMPL::START2 SB!IMPL::END2
;      (LET ((SB!IMPL::LEN (- SB!IMPL::END1 SB!IMPL::START1)))
;        (UNLESS (= SB!IMPL::LEN (- SB!IMPL::END2 SB!IMPL::START2))
;          (RETURN-FROM SB!KERNEL:STRING=* NIL))
;        (LET* ((SB!IMPL::WIDETAG1 #) (SB!IMPL::WIDETAG2 #) (SB!IMPL::CHAR-SHIFT))
;          (WHEN SB!IMPL::CHAR-SHIFT (RETURN-FROM SB!KERNEL:STRING=* #))
;          (MACROLET (#)
;            (COND # #))))
;      (NOT
;       (SB!KERNEL:%SP-STRING-COMPARE SB!IMPL::STRING1 SB!IMPL::START1
;        SB!IMPL::END1 SB!IMPL::STRING2 SB!IMPL::START2 SB!IMPL::END2)))
; --> LET SB!IMPL::%STRING IF 
; ==>
;   (STRING SB!IMPL::STRING1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SYMBOL CHARACTER), not a SYMBOL.

; ==>
;   (STRING SB!IMPL::STRING2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SYMBOL CHARACTER), not a SYMBOL.
; x-compiling (DEFUN STRING=* ...)
; x-compiling (DEFUN STRING/=* ...)
; x-compiling (DEFUN STRING<* ...)
; x-compiling (DEFUN STRING>* ...)
; x-compiling (DEFUN STRING<=* ...)
; x-compiling (DEFUN STRING>=* ...)
; x-compiling (DEFUN STRING< ...)
; x-compiling (DEFUN STRING> ...)
; x-compiling (DEFUN STRING<= ...)
; x-compiling (DEFUN STRING>= ...)
; x-compiling (DEFUN STRING= ...)
; x-compiling (DEFUN STRING/= ...)
; x-compiling (DEFUN STRING-EQUAL ...)
; x-compiling (DEFUN STRING-NOT-EQUAL ...)
; x-compiling (DEFUN STRING-LESSP* ...)
; x-compiling (DEFUN STRING-GREATERP* ...)
; x-compiling (DEFUN STRING-NOT-LESSP* ...)
; x-compiling (DEFUN STRING-NOT-GREATERP* ...)
; x-compiling (DEFUN STRING-LESSP ...)
; x-compiling (DEFUN STRING-GREATERP ...)
; x-compiling (DEFUN STRING-NOT-LESSP ...)
; x-compiling (DEFUN STRING-NOT-GREATERP ...)
; x-compiling (DEFUN MAKE-STRING ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in:
;      FLET ((%UPCASE (STRING START END)
;         (DECLARE (STRING STRING)
;                  (INDEX START)
;                  (TYPE SEQUENCE-END END))
;         (LET (#)
;           (WITH-ONE-STRING # #)
;           SAVED-HEADER)))
;     (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END)
;      (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX)))
;          ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END)))
;        (DECLARE (FIXNUM SB!INT:INDEX))
;        (SETF (SCHAR STRING SB!INT:INDEX) (CHAR-UPCASE #))))
; --> LET SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code
; x-compiling (FLET (#) ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in:
;      FLET ((%DOWNCASE (STRING START END)
;         (DECLARE (STRING STRING)
;                  (INDEX START)
;                  (TYPE SEQUENCE-END END))
;         (LET (#)
;           (WITH-ONE-STRING # #)
;           SAVED-HEADER)))
;     (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END)
;      (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX)))
;          ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END)))
;        (DECLARE (FIXNUM SB!INT:INDEX))
;        (SETF (SCHAR STRING SB!INT:INDEX) (CHAR-DOWNCASE #))))
; --> LET SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code
; x-compiling (FLET (#) ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in:
;      FLET ((%CAPITALIZE (STRING START END)
;         (DECLARE (STRING STRING)
;                  (INDEX START)
;                  (TYPE SEQUENCE-END END))
;         (LET (#)
;           (WITH-ONE-STRING # #)
;           SAVED-HEADER)))
;     (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END)
;      (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX))
;           (SB!IMPL::NEW-WORD? T)
;           (CHAR NIL))
;          ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END)))
;        (DECLARE (FIXNUM SB!INT:INDEX))
;        (SETQ CHAR (SCHAR STRING SB!INT:INDEX))
;        (COND ((NOT #) (SETQ #)) (SB!IMPL::NEW-WORD? (SETF #) (SETQ #))
;              (T (SETF #)))))
; --> LET SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code
; x-compiling (FLET (#) ...)
; x-compiling (DEFUN GENERIC-STRING-TRIM ...)
; x-compiling (DEFUN STRING-LEFT-TRIM ...)
; x-compiling (DEFUN STRING-RIGHT-TRIM ...)
; 
; compilation unit finished
;   printed 8 notes
; x-compiling (DEFUN STRING-TRIM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/string.lisp-obj-tmp written
; compilation finished in 0:00:07.631
; compiling file "/«PKGBUILDDIR»/src/code/mipsstrops.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %SP-STRING-COMPARE ...)
; x-compiling (DEFUN %SP-REVERSE-STRING-COMPARE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/mipsstrops.lisp-obj-tmp written
; compilation finished in 0:00:00.572
; compiling file "/«PKGBUILDDIR»/src/code/early-time.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFCONSTANT SB-XC:INTERNAL-TIME-UNITS-PER-SECOND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-time.lisp-obj-tmp written
; compilation finished in 0:00:00.029
; compiling file "/«PKGBUILDDIR»/src/code/unix.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (/SHOW0 "unix.lisp 21")

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN C-STRINGS->STRING-LIST
;     (ERROR "argh! can't happen")
; ==>
;   "argh! can't happen"
; 
; note: deleting unreachable code
; x-compiling (DEFUN C-STRINGS->STRING-LIST ...)
; x-compiling (DEFTYPE UNIX-PATHNAME ...)
; x-compiling (DEFTYPE UNIX-FD ...)
; x-compiling (DEFTYPE UNIX-FILE-MODE ...)
; x-compiling (DEFTYPE UNIX-PID ...)
; x-compiling (DEFTYPE UNIX-UID ...)
; x-compiling (DEFTYPE UNIX-GID ...)
; x-compiling (/SHOW0 "unix.lisp 74")
; x-compiling (DEFMACRO SYSCALL ...)
; x-compiling (DEFMACRO SYSCALL* ...)
; x-compiling (DEFMACRO INT-SYSCALL ...)
; x-compiling (DEFMACRO WITH-RESTARTED-SYSCALL ...)
; x-compiling (DEFMACRO VOID-SYSCALL ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ...)
; x-compiling (DEFUN UNIX-RENAME ...)
; x-compiling (/SHOW0 "unix.lisp 220")
; x-compiling (DEFINE-ALIEN-TYPE FD-MASK ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (/SHOW0 "unix.lisp 304")
; x-compiling (DEFUN UNIX-OPEN ...)
; x-compiling (/SHOW0 "unix.lisp 391")
; x-compiling (DEFUN UNIX-CLOSE ...)
; x-compiling (DEFUN SB-MKSTEMP ...)
; x-compiling (DEFCONSTANT RUSAGE_SELF ...)
; x-compiling (DEFCONSTANT RUSAGE_CHILDREN ...)
; x-compiling (DEFCONSTANT RUSAGE_BOTH ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFUN UNIX-ACCESS ...)
; x-compiling (DEFCONSTANT L_SET ...)
; x-compiling (DEFCONSTANT L_INCR ...)
; x-compiling (DEFCONSTANT L_XTND ...)
; x-compiling (DEFINE-ALIEN-TYPE UNIX-OFFSET ...)
; x-compiling (DEFUN UNIX-ISATTY ...)
; x-compiling (DEFUN UNIX-LSEEK ...)
; x-compiling (DECLAIM (MAYBE-INLINE UNIX-READ))
; x-compiling (DEFUN UNIX-READ ...)
; x-compiling (DEFUN UNIX-WRITE ...)
; x-compiling (DEFUN UNIX-PIPE ...)
; x-compiling (DEFUN UNIX-MKDIR ...)
; x-compiling (DEFUN NEWCHARSTAR-STRING ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN POSIX-GETCWD
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "getcwd"
;       (FUNCTION (* CHAR) (* CHAR) SB!ALIEN:SIZE-T))
;      NIL 0)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN POSIX-GETCWD ...)
; x-compiling (DEFUN POSIX-GETCWD/ ...)
; x-compiling (DEFUN UNIX-DUP ...)
; x-compiling (DEFTYPE EXIT-CODE ...)
; x-compiling (DEFUN OS-EXIT ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("getpid" UNIX-GETPID) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("getuid" UNIX-GETUID) ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UID-USERNAME
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "uid_username" (FUNCTION (* CHAR) SB!ALIEN:INT))
;      SB!UNIX::UID)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UID-USERNAME ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UID-HOMEDIR
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "uid_homedir" (FUNCTION (* CHAR) SB!ALIEN:INT))
;      SB!UNIX::UID)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UID-HOMEDIR ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN USER-HOMEDIR
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "user_homedir" (FUNCTION (* CHAR) SB!ALIEN:C-STRING))
;      SB!UNIX::UID)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN USER-HOMEDIR ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-READLINK
;     (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR))
;      SB!ALIEN:C-STRING)
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-READLINK ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-REALPATH
;     (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR))
;      SB!ALIEN:C-STRING)
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-REALPATH ...)
; x-compiling (DEFUN UNIX-UNLINK ...)
; x-compiling (DEFUN UNIX-GETHOSTNAME ...)
; x-compiling (DEFUN UNIX-SETSID ...)
; x-compiling (DEFUN UNIX-IOCTL ...)
; x-compiling (DECLAIM (INLINE UNIX-FAST-GETRUSAGE))
; x-compiling (DEFUN UNIX-FAST-GETRUSAGE ...)
; x-compiling (DEFUN UNIX-GETRUSAGE ...)
; x-compiling (DEFVAR *ON-DANGEROUS-WAIT* ...)
; x-compiling (DEFUN NOTE-DANGEROUS-WAIT ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFUN UNIX-POLL ...)
; x-compiling (DEFUN UNIX-SIMPLE-POLL ...)
; x-compiling (DEFMACRO WITH-FD-SETSIZE ...)
; x-compiling (DECLAIM (INLINE UNIX-FAST-SELECT))
; x-compiling (DEFUN UNIX-FAST-SELECT ...)
; x-compiling (DECLAIM (INLINE NUM-TO-FD-SET ...))
; x-compiling (DEFUN NUM-TO-FD-SET ...)
; x-compiling (DEFUN FD-SET-TO-NUM ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-SELECT
;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS)
;      (SB!ALIEN:WITH-ALIEN
;       ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL))
;        (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)))
;       (COND (SB!UNIX::TO-SECS (SETF #))
;             ((NOT SB!SYS:*INTERRUPTS-ENABLED*)
;              (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)")))
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;       (MACROLET ((SB!UNIX::FROB #
;                    #))
;         (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #)
;          (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS
;          (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF)
;          (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF)
;          (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF)
;          (IF SB!UNIX::TO-SECS
;              #
;              #)))))
; --> LET IF < 
; --> (LAMBDA (#:G15286 #:G15285 #:G15284) (DECLARE (TYPE REAL #:G15286 #:G15285 #:G15284)) (IF (< #:G15286 #:G15285) (IF (< #:G15285 #:G15284) T NIL) NIL)) 
; --> SB!C::%FUNCALL IF < > IF 
; ==>
;   (> SB!C::Y SB!C::X)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> LET IF < 
; --> (LAMBDA (#:G15286 #:G15285 #:G15284) (DECLARE (TYPE REAL #:G15286 #:G15285 #:G15284)) (IF (< #:G15286 #:G15285) (IF (< #:G15285 #:G15284) T NIL) NIL)) 
; --> SB!C::%FUNCALL IF IF 
; ==>
;   (< #:G15285 #:G15284)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB!C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB!C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB!C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-15289
;      (ASH
;       (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;        SB!INT:INDEX)
;       (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-15291
;      (ASH
;       (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;        SB!INT:INDEX)
;       (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-15283
;      (ASH
;       (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;        SB!INT:INDEX)
;       (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS)
;      (SB!ALIEN:WITH-ALIEN
;       ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL))
;        (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)))
;       (COND (SB!UNIX::TO-SECS (SETF #))
;             ((NOT SB!SYS:*INTERRUPTS-ENABLED*)
;              (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)")))
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;       (MACROLET ((SB!UNIX::FROB #
;                    #))
;         (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #)
;          (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS
;          (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF)
;          (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF)
;          (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF)
;          (IF SB!UNIX::TO-SECS
;              #
;              #)))))
; --> LET IF ERROR 1- 
; ==>
;   (- SB!UNIX::NFDS 1)
; 
; note: forced to do static-fun Two-arg-- (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 fixnum arithmetic (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).
;       etc.

;     (SB!ALIEN:WITH-ALIEN
;      ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL))
;       (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;       (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;       (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)))
;      (COND
;       (SB!UNIX::TO-SECS
;        (SETF # SB!UNIX::TO-SECS
;              # SB!UNIX::TO-USECS))
;       ((NOT SB!SYS:*INTERRUPTS-ENABLED*)
;        (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)")))
;      (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;      (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;      (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;      (MACROLET ((SB!UNIX::FROB (SB!UNIX::LISPVAR SB!UNIX::ALIENVAR)
;                   (SB!INT:QUASIQUOTE #)))
;        (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT (* #) (* #) (* #) (* #))
;         (VALUES SB!UNIX::RESULT
;                 (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
;                 (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
;                 (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF))
;         SB!UNIX::NFDS (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF)
;         (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF)
;         (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF)
;         (IF SB!UNIX::TO-SECS
;             (SB!ALIEN:ALIEN-SAP #)
;             (SB!SYS:INT-SAP 0)))))
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET 
; ==>
;   (LET ((#:VAR769
;          (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>)))
;     (MULTIPLE-VALUE-PROG1
;         (PROGN
;          (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #> #:VAR769)
;          (SYMBOL-MACROLET (#)
;            (LET #
;              #)))
;       (SB!ALIEN-INTERNALS:DISPOSE-LOCAL-ALIEN
;        '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO
;           (forced to stack) (SB!ALIEN:STRUCT SB!UNIX:FD-SET #)>
;        #:VAR769)))
; 
; note: doing SAP to pointer coercion (cost 20) to #:VAR769

; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; ==>
;   (LET ((#:VAR768
;          (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>)))
;     (MULTIPLE-VALUE-PROG1
;         (PROGN
;          (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #> #:VAR768)
;          (SYMBOL-MACROLET (#)
;            (LET #
;              #)))
;       (SB!ALIEN-INTERNALS:DISPOSE-LOCAL-ALIEN
;        '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO
;           (forced to stack) (SB!ALIEN:STRUCT SB!UNIX:FD-SET #)>
;        #:VAR768)))
; 
; note: doing SAP to pointer coercion (cost 20) to #:VAR768

; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; ==>
;   (LET ((#:VAR767
;          (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>)))
;     (MULTIPLE-VALUE-PROG1
;         (PROGN
;          (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #> #:VAR767)
;          (SYMBOL-MACROLET (#)
;            (COND # #)
;            (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;            (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;            (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;            (MACROLET #
;              #)))
;       (SB!ALIEN-INTERNALS:DISPOSE-LOCAL-ALIEN
;        '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO
;           (forced to stack) (SB!ALIEN:STRUCT SB!UNIX:FD-SET #)>
;        #:VAR767)))
; 
; note: doing SAP to pointer coercion (cost 20) to #:VAR767

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (VALUES SB!UNIX::RESULT (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
;             (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
;             (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF))
; 
; note: doing signed word to integer coercion (cost 20) from ALIEN

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   SB!ALIEN:ALIEN
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   SB!ALIEN:ALIEN
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   SB!ALIEN:ALIEN
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEFUN UNIX-SELECT ...)
; x-compiling (DECLAIM (INLINE FD-SET ...))
; x-compiling (DEFUN FD-SET ...)
; x-compiling (DEFUN FD-CLR ...)
; x-compiling (DEFUN FD-ISSET ...)
; x-compiling (DEFUN FD-ZERO ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DECLAIM (INLINE %EXTRACT-STAT-RESULTS))
; x-compiling (DEFUN %EXTRACT-STAT-RESULTS ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-STAT
;     (SB!ALIEN:ADDR SB!UNIX::BUF)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (*
;        (SB!ALIEN:STRUCT SB!UNIX::WRAPPED_STAT (SB!UNIX:ST-DEV # :OFFSET 0)
;         (SB!UNIX::ST-INO # :OFFSET 64) (SB!UNIX:ST-MODE # :OFFSET 128)
;         (SB!UNIX:ST-NLINK # :OFFSET 160) (SB!UNIX:ST-UID # :OFFSET 192)
;         (SB!UNIX:ST-GID # :OFFSET 224) (SB!UNIX:ST-RDEV # :OFFSET 256)
;         (SB!UNIX:ST-SIZE # :OFFSET 320) (SB!UNIX:ST-BLKSIZE # :OFFSET 384)
;         (SB!UNIX:ST-BLOCKS # :OFFSET 448) ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-STAT ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-LSTAT
;     (SB!ALIEN:ADDR SB!UNIX::BUF)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (*
;        (SB!ALIEN:STRUCT SB!UNIX::WRAPPED_STAT (SB!UNIX:ST-DEV # :OFFSET 0)
;         (SB!UNIX::ST-INO # :OFFSET 64) (SB!UNIX:ST-MODE # :OFFSET 128)
;         (SB!UNIX:ST-NLINK # :OFFSET 160) (SB!UNIX:ST-UID # :OFFSET 192)
;         (SB!UNIX:ST-GID # :OFFSET 224) (SB!UNIX:ST-RDEV # :OFFSET 256)
;         (SB!UNIX:ST-SIZE # :OFFSET 320) (SB!UNIX:ST-BLKSIZE # :OFFSET 384)
;         (SB!UNIX:ST-BLOCKS # :OFFSET 448) ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-LSTAT ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-FSTAT
;     (SB!ALIEN:ADDR SB!UNIX::BUF)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (*
;        (SB!ALIEN:STRUCT SB!UNIX::WRAPPED_STAT (SB!UNIX:ST-DEV # :OFFSET 0)
;         (SB!UNIX::ST-INO # :OFFSET 64) (SB!UNIX:ST-MODE # :OFFSET 128)
;         (SB!UNIX:ST-NLINK # :OFFSET 160) (SB!UNIX:ST-UID # :OFFSET 192)
;         (SB!UNIX:ST-GID # :OFFSET 224) (SB!UNIX:ST-RDEV # :OFFSET 256)
;         (SB!UNIX:ST-SIZE # :OFFSET 320) (SB!UNIX:ST-BLKSIZE # :OFFSET 384)
;         (SB!UNIX:ST-BLOCKS # :OFFSET 448) ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-FSTAT ...)
; x-compiling (DEFUN FD-TYPE ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFINE-ALIEN-ROUTINE GET-TIMEZONE ...)
; x-compiling (DEFUN NANOSLEEP ...)
; x-compiling (DEFUN UNIX-GET-SECONDS-WEST ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFCONSTANT ITIMER-REAL ...)
; x-compiling (DEFCONSTANT ITIMER-VIRTUAL ...)
; x-compiling (DEFCONSTANT ITIMER-PROF ...)
; x-compiling (DEFUN UNIX-GETITIMER ...)
; x-compiling (DEFUN UNIX-SETITIMER ...)
; x-compiling (DEFCONSTANT MICRO-SECONDS-PER-INTERNAL-TIME-UNIT ...)
; x-compiling (DECLAIM (INLINE GET-TIME-OF-DAY))
; x-compiling (DEFUN GET-TIME-OF-DAY ...)
; x-compiling (DECLAIM (INLINE SYSTEM-INTERNAL-RUN-TIME ...))
; x-compiling (DEFUN SYSTEM-REAL-TIME-VALUES ...)
; x-compiling (LET (# # ...) ...)
; x-compiling (DEFUN SYSTEM-INTERNAL-RUN-TIME ...)
; x-compiling (DEFUN UNIX-GETTIMEOFDAY ...)
; x-compiling (DECLAIM (INLINE UNIX-OPENDIR))
; x-compiling (DEFUN UNIX-OPENDIR ...)
; x-compiling (DECLAIM (INLINE UNIX-READDIR))
; x-compiling (DEFUN UNIX-READDIR ...)
; x-compiling (DECLAIM (INLINE UNIX-CLOSEDIR))
; x-compiling (DEFUN UNIX-CLOSEDIR ...)
; x-compiling (DECLAIM (INLINE UNIX-DIRENT-NAME))
; x-compiling (DEFUN UNIX-DIRENT-NAME ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!INT:DEFINE-DEPRECATED-FUNCTION :EARLY
;         "1.0.56.55"
;         SB!UNIX:UNIX-EXIT
;         SB!SYS:OS-EXIT
;         (SB!UNIX::CODE)
;       (SB!SYS:OS-EXIT SB!UNIX::CODE))
; --> PROG1 LET LET SETF LET* FUNCALL 
; ==>
;   (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW477 'SB!UNIX:UNIX-EXIT)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF COMPILER-MACRO-FUNCTION)
; 
; compilation unit finished
;   Undefined function:
;     (SETF COMPILER-MACRO-FUNCTION)
;   caught 1 STYLE-WARNING condition
;   printed 41 notes
; x-compiling (DEFCONSTANT WSTOPPED ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unix.lisp-obj-tmp written
; compilation finished in 0:00:11.556
; compiling file "/«PKGBUILDDIR»/src/code/common-os.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!SYS")
; x-compiling (DEFVAR *SOFTWARE-VERSION* ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("posix_argv" *NATIVE-POSIX-ARGV*) ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("core_string" *NATIVE-CORE-STRING*) ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("saved_runtime_path" *NATIVE-SAVED-RUNTIME-PATH*) ...)
; x-compiling (DEFMACRO INIT-VAR-IGNORING-ERRORS ...)
; x-compiling (DEFUN OS-DEINIT ...)

; file: /«PKGBUILDDIR»/src/code/common-os.lisp
; in: DEFUN OS-COLD-INIT-OR-REINIT
;     (SB!ALIEN:DEREF SB!SYS::*NATIVE-POSIX-ARGV* SB!SYS::I)
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!SYS::INIT-VAR-IGNORING-ERRORS *DEFAULT-PATHNAME-DEFAULTS*
;      (SB!EXT:PARSE-NATIVE-NAMESTRING (SB!UNIX:POSIX-GETCWD/)) :DEFAULT
;      *DEFAULT-PATHNAME-DEFAULTS* :EXPLANATION "with the current directory")
; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

;     (SB!SYS::INIT-VAR-IGNORING-ERRORS SB!EXT:*POSIX-ARGV*
;      (LOOP SB!SYS::FOR SB!SYS::I SB!SYS::FROM 0
;            SB!SYS::FOR SB!SYS::ARG = (SB!ALIEN:DEREF SB!SYS::*NATIVE-POSIX-ARGV*
;                                       SB!SYS::I)
;            SB!SYS::UNTIL (SB!ALIEN:NULL-ALIEN SB!SYS::ARG)
;            SB!INT:COLLECT ...))
; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

;     (SB!SYS::INIT-VAR-IGNORING-ERRORS SB!INT:*CORE-STRING*
;      (SB!ALIEN:CAST SB!SYS::*NATIVE-CORE-STRING* SB!ALIEN:C-STRING) :DEFAULT "")
; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; 
; caught STYLE-WARNING:
;   5 more uses of undefined type ERROR
; 
; compilation unit finished
;   Undefined type:
;     ERROR
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFUN OS-COLD-INIT-OR-REINIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/common-os.lisp-obj-tmp written
; compilation finished in 0:00:00.604
; compiling file "/«PKGBUILDDIR»/src/code/linux-os.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!SYS")
; x-compiling (DEFUN SOFTWARE-TYPE ...)
; x-compiling (DEFUN SOFTWARE-VERSION ...)
; x-compiling (DEFUN GET-SYSTEM-INFO ...)
; x-compiling (DEFUN GET-PAGE-SIZE ...)
; x-compiling (DEFUN GET-MACHINE-VERSION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/linux-os.lisp-obj-tmp written
; compilation finished in 0:00:00.251
; compiling file "/«PKGBUILDDIR»/src/code/sc-offset.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFCONSTANT-EQX SC-OFFSET-SCN-BYTE ...)
; x-compiling (DEFCONSTANT-EQX SC-OFFSET-OFFSET-BYTE ...)
; x-compiling (DEF!TYPE SC-OFFSET ...)
; x-compiling (DEFMACRO MAKE-SC-OFFSET ...)
; x-compiling (DEFMACRO SC-OFFSET-SCN ...)
; x-compiling (DEFMACRO SC-OFFSET-OFFSET ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sc-offset.lisp-obj-tmp written
; compilation finished in 0:00:00.158
; compiling file "/«PKGBUILDDIR»/src/code/arm-vm.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ALIEN-TYPE OS-CONTEXT-T ...)
; x-compiling (DEFUN MACHINE-TYPE ...)
; x-compiling (DEFUN FIXUP-CODE-OBJECT ...)

; file: /«PKGBUILDDIR»/src/code/arm-vm.lisp
; in:
;      DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR)
;     (SB!ALIEN:DEFINE-ALIEN-ROUTINE
;      ("os_context_register_addr" SB!VM::CONTEXT-REGISTER-ADDR)
;      (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))
;      (SB!INT:INDEX SB!ALIEN:INT))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:UNSIGNED 32))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ...)
; x-compiling (DEFUN CONTEXT-REGISTER ...)
; x-compiling (DEFUN %SET-CONTEXT-REGISTER ...)
; x-compiling (DEFUN CONTEXT-PC ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN INTERNAL-ERROR-ARGS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/arm-vm.lisp-obj-tmp written
; compilation finished in 0:00:00.340
; compiling file "/«PKGBUILDDIR»/src/code/target-signal.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (DEFMACRO WITH-INTERRUPT-BINDINGS ...)
; x-compiling (DEFMACRO NLX-PROTECT ...)
; x-compiling (DEFUN INVOKE-INTERRUPTION ...)
; x-compiling (DEFMACRO IN-INTERRUPTION ...)
; x-compiling (DECLAIM (INLINE UNIX-KILL))
; x-compiling (DEFINE-ALIEN-ROUTINE ("kill" UNIX-KILL) ...)
; x-compiling (DECLAIM (INLINE UNIX-KILLPG))
; x-compiling (DEFINE-ALIEN-ROUTINE ("killpg" UNIX-KILLPG) ...)
; x-compiling (DECLAIM (INLINE %UNBLOCK-DEFERRABLE-SIGNALS ...))
; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_deferrable_signals" %UNBLOCK-DEFERRABLE-SIGNALS) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_gc_signals" %UNBLOCK-GC-SIGNALS) ...)
; x-compiling (DEFUN UNBLOCK-DEFERRABLE-SIGNALS ...)
; x-compiling (DEFUN UNBLOCK-GC-SIGNALS ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("install_handler" INSTALL-HANDLER) ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFUN ENABLE-INTERRUPT
;     (THE (OR FUNCTION FIXNUM) (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT))
; 
; note: type assertion too complex to check:
;  (VALUES (OR FUNCTION FIXNUM) &REST T).
; x-compiling (DEFUN ENABLE-INTERRUPT ...)
; x-compiling (DEFUN DEFAULT-INTERRUPT ...)
; x-compiling (DEFUN IGNORE-INTERRUPT ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFINE-SIGNAL-HANDLER SIGILL-HANDLER
;     (SB!UNIX::DEFINE-SIGNAL-HANDLER SB!UNIX::SIGILL-HANDLER "illegal instruction")
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SYMBOL-MACROLET SB!SYS:SAP-INT SB!VM:CONTEXT-PC SB!UNIX::CONTEXT 
; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFINE-SIGNAL-HANDLER SIGILL-HANDLER ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER
;     (SB!UNIX::DEFINE-SIGNAL-HANDLER SB!UNIX::SIGBUS-HANDLER "bus error")
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SYMBOL-MACROLET SB!SYS:SAP-INT SB!VM:CONTEXT-PC SB!UNIX::CONTEXT 
; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFUN SIGINT-HANDLER
;     (MAKE-CONDITION 'SB!SYS:INTERACTIVE-INTERRUPT :CONTEXT SB!UNIX::CONTEXT
;                     :ADDRESS (SB!SYS:SAP-INT (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT)))
; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT)
; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN SIGINT-HANDLER ...)
; x-compiling (DEFUN SIGALRM-HANDLER ...)
; x-compiling (DEFUN SIGTERM-HANDLER ...)
; x-compiling (DEFUN SIGPIPE-HANDLER ...)
; x-compiling (DEFUN SIGCHLD-HANDLER ...)
; x-compiling (DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("siginfo_code" SIGINFO-CODE) ...)
; 
; compilation unit finished
;   printed 5 notes
; x-compiling (DEFUN RECEIVE-PENDING-INTERRUPT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-signal.lisp-obj-tmp written
; compilation finished in 0:00:01.477
; compiling file "/«PKGBUILDDIR»/src/code/symbol.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (MAYBE-INLINE GET ...))
; x-compiling (DEFUN HANDLE-DEPRECATED-GLOBAL-VARIABLE ...)
; x-compiling (DEFUN SYMBOL-VALUE ...)
; x-compiling (DEFINE-COMPILER-MACRO SYMBOL-VALUE ...)
; x-compiling (DEFUN BOUNDP ...)
; x-compiling (DEFUN SET ...)
; x-compiling (DEFUN %SET-SYMBOL-VALUE ...)
; x-compiling (DEFUN SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFINE-COMPILER-MACRO SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFUN SET-SYMBOL-GLOBAL-VALUE ...)

; file: /«PKGBUILDDIR»/src/code/symbol.lisp
; in: DECLAIM (INLINE %MAKUNBOUND)
;     (DECLAIM (INLINE SB!IMPL::%MAKUNBOUND))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::%MAKUNBOUND) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::%MAKUNBOUND to be INLINE, but 1 call to it was previously
;   compiled. A declaration of NOTINLINE at the call site will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE %MAKUNBOUND))
; x-compiling (DEFUN %MAKUNBOUND ...)
; x-compiling (DEFUN MAKUNBOUND ...)
; x-compiling (DEFUN COMPUTE-SYMBOL-HASH ...)
; x-compiling (DEFUN ENSURE-SYMBOL-HASH ...)
; x-compiling (DEFUN SYMBOL-HASH ...)
; x-compiling (DEFUN SYMBOL-FUNCTION ...)
; x-compiling (DEFUN (SETF SYMBOL-FUNCTION) ...)
; x-compiling (DEFUN SYMBOL-INFO ...)
; x-compiling (DEFUN (SETF SYMBOL-INFO) ...)
; x-compiling (DEFUN UPDATE-SYMBOL-INFO ...)
; x-compiling (DEFUN SYMBOL-PLIST ...)
; x-compiling (DECLAIM (FTYPE # ...) ...)
; x-compiling (DEFUN %ENSURE-PLIST-HOLDER ...)
; x-compiling (DECLAIM (INLINE %COMPARE-AND-SWAP-SYMBOL-PLIST ...))
; x-compiling (DEFUN %COMPARE-AND-SWAP-SYMBOL-PLIST ...)
; x-compiling (DEFUN %%COMPARE-AND-SWAP-SYMBOL-PLIST ...)
; x-compiling (DEFUN %SET-SYMBOL-PLIST ...)
; x-compiling (DEFUN %%SET-SYMBOL-PLIST ...)
; x-compiling (DEFUN SYMBOL-NAME ...)
; x-compiling (DEFUN SYMBOL-PACKAGE ...)
; x-compiling (DEFUN %SET-SYMBOL-PACKAGE ...)
; x-compiling (DEFUN MAKE-SYMBOL ...)
; x-compiling (DEFUN GET ...)
; x-compiling (DEFUN GET3 ...)
; x-compiling (DEFUN %PUT ...)
; x-compiling (DEFUN REMPROP ...)
; x-compiling (DEFUN GETF ...)
; x-compiling (DEFUN %PUTF ...)
; x-compiling (DEFUN GET-PROPERTIES ...)
; x-compiling (DEFUN COPY-SYMBOL ...)
; x-compiling (DEFUN KEYWORDP ...)
; x-compiling (DEFUN %MAKE-SYMBOL-NAME ...)
; x-compiling (DEFVAR *GENSYM-COUNTER* ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFUN GENSYM ...)
; x-compiling (DEFVAR *GENTEMP-COUNTER* ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFUN GENTEMP ...)

; file: /«PKGBUILDDIR»/src/code/symbol.lisp
; in: DEFUN %MAKE-SYMBOL-NAME
;     (DEFUN SB!IMPL::%MAKE-SYMBOL-NAME (SB!IMPL::PREFIX SB!IMPL::COUNTER)
;       (DECLARE (STRING SB!IMPL::PREFIX))
;       (IF (TYPEP SB!IMPL::COUNTER '(AND FIXNUM UNSIGNED-BYTE))
;           (LET ((SB!IMPL::S ""))
;             (DECLARE (SIMPLE-STRING SB!IMPL::S))
;             (LABELS (#)
;               (SB!IMPL::RECURSE 1 SB!IMPL::COUNTER)))
;           (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (SB!IMPL::S)
;             (WRITE-STRING SB!IMPL::PREFIX SB!IMPL::S)
;             (SB!IMPL::%OUTPUT-INTEGER-IN-BASE SB!IMPL::COUNTER 10 SB!IMPL::S))))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!IMPL::%MAKE-SYMBOL-NAME
;    (SB!INT:NAMED-LAMBDA SB!IMPL::%MAKE-SYMBOL-NAME
;        (SB!IMPL::PREFIX SB!IMPL::COUNTER)
;      (DECLARE (STRING SB!IMPL::PREFIX))
;      (BLOCK SB!IMPL::%MAKE-SYMBOL-NAME
;        (IF (TYPEP SB!IMPL::COUNTER '#)
;            (LET #
;              #
;              #)
;            (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING #
;              #
;              #))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::STRING-OUTPUT-STREAM
; 
; compilation unit finished
;   Undefined type:
;     SB!C::STRING-OUTPUT-STREAM
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/symbol.lisp-obj-tmp written
; compilation finished in 0:00:01.341
; compiling file "/«PKGBUILDDIR»/src/code/bignum.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!BIGNUM")
; x-compiling (DEFCONSTANT DIGIT-SIZE ...)
; x-compiling (DEFCONSTANT MAXIMUM-BIGNUM-LENGTH ...)
; x-compiling (DEFCONSTANT ALL-ONES-DIGIT ...)
; x-compiling (DEFUN %ALLOCATE-BIGNUM ...)
; x-compiling (DEFUN %BIGNUM-LENGTH ...)
; x-compiling (DEFUN %BIGNUM-REF ...)
; x-compiling (DEFUN %BIGNUM-SET ...)
; x-compiling (DEFUN %DIGIT-0-OR-PLUSP ...)
; x-compiling (DECLAIM (INLINE %BIGNUM-0-OR-PLUSP))
; x-compiling (DEFUN %BIGNUM-0-OR-PLUSP ...)
; x-compiling (DEFUN %ADD-WITH-CARRY ...)
; x-compiling (DEFUN %SUBTRACT-WITH-BORROW ...)
; x-compiling (DEFUN %MULTIPLY ...)
; x-compiling (DEFUN %MULTIPLY-AND-ADD ...)
; x-compiling (DEFUN %LOGNOT ...)
; x-compiling (DECLAIM (INLINE %LOGAND ...))
; x-compiling (DEFUN %LOGAND ...)
; x-compiling (DEFUN %LOGIOR ...)
; x-compiling (DEFUN %LOGXOR ...)
; x-compiling (DEFUN %FIXNUM-TO-DIGIT ...)
; x-compiling (DEFUN %BIGFLOOR ...)
; x-compiling (DEFUN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...)
; x-compiling (DEFUN %ASHR ...)
; x-compiling (DEFUN %ASHL ...)
; x-compiling (DEFUN %DIGIT-LOGICAL-SHIFT-RIGHT ...)
; x-compiling (DEFUN %BIGNUM-SET-LENGTH ...)
; x-compiling (DECLAIM (INLINE %SIGN-DIGIT))
; x-compiling (DEFUN %SIGN-DIGIT ...)
; x-compiling (DECLAIM (INLINE %DIGIT-COMPARE ...))
; x-compiling (DEFUN %DIGIT-COMPARE ...)
; x-compiling (DEFUN %DIGIT-GREATER ...)
; x-compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN ADD-BIGNUMS
;     (SB!BIGNUM::FINISH-ADD SB!BIGNUM::A SB!BIGNUM::RES SB!BIGNUM::CARRY
;      (SB!BIGNUM::%SIGN-DIGIT SB!BIGNUM::B SB!BIGNUM::LEN-B) SB!BIGNUM::LEN-B
;      SB!BIGNUM::LEN-A)
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEFUN ADD-BIGNUMS ...)
; x-compiling (DEFUN FINISH-ADD ...)
; x-compiling (DEFUN SUBTRACT-BIGNUM ...)
; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS-WITH-LEN ...)
; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS ...)
; x-compiling (DEFUN MULTIPLY-BIGNUMS ...)
; x-compiling (DEFUN MULTIPLY-BIGNUM-AND-FIXNUM ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN MULTIPLY-FIXNUMS
;     (ZEROP SB!BIGNUM::HIGH)
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (DEFUN SB!BIGNUM:MULTIPLY-FIXNUMS (SB!BIGNUM::A SB!BIGNUM::B)
;       (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B))
;       (LET* ((SB!BIGNUM::A-MINUSP (MINUSP SB!BIGNUM::A))
;              (SB!BIGNUM::B-MINUSP (MINUSP SB!BIGNUM::B)))
;         (MULTIPLE-VALUE-BIND (SB!BIGNUM::HIGH SB!BIGNUM::LOW)
;             (SB!BIGNUM:%MULTIPLY
;              (IF SB!BIGNUM::A-MINUSP
;                  #
;                  SB!BIGNUM::A)
;              (IF SB!BIGNUM::B-MINUSP
;                  #
;                  SB!BIGNUM::B))
;           (DECLARE
;            (TYPE SB!BIGNUM:BIGNUM-ELEMENT-TYPE SB!BIGNUM::HIGH SB!BIGNUM::LOW))
;           (IF (AND # #)
;               (LET #
;                 #)
;               (LET #
;                 #
;                 #
;                 #
;                 #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!BIGNUM:MULTIPLY-FIXNUMS
;         (SB!BIGNUM::A SB!BIGNUM::B)
;       (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B))
;       (BLOCK SB!BIGNUM:MULTIPLY-FIXNUMS
;         (LET* ((SB!BIGNUM::A-MINUSP #) (SB!BIGNUM::B-MINUSP #))
;           (MULTIPLE-VALUE-BIND (SB!BIGNUM::HIGH SB!BIGNUM::LOW)
;               (SB!BIGNUM:%MULTIPLY # #)
;             (DECLARE #)
;             (IF #
;                 #
;                 #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; x-compiling (DEFUN MULTIPLY-FIXNUMS ...)
; x-compiling (SB-XC:DEFMACRO GCD-ASSERT ...)
; x-compiling (SB-XC:DEFMACRO MODULARLY ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-FACTORS-OF-TWO
;     (ZEROP SB!BIGNUM::OR-DIGITS)
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-FACTORS-OF-TWO ...)
; x-compiling (DECLAIM (INLINE MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER
;     (MINUSP SB!BIGNUM::SMALLNUM)
; ==>
;   (< SB!BIGNUM::SMALLNUM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (- SB!BIGNUM::SMALLNUM)
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM))
; 
; note: unable to
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a REAL, not a RATIONAL.

;     (MINUSP SB!BIGNUM::SMALLNUM)
; ==>
;   (< SB!BIGNUM::SMALLNUM 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (- SB!BIGNUM::SMALLNUM)
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.
; x-compiling (DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ...)
; x-compiling (DECLAIM (INLINE BMOD))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BMOD
;     (DEFUN SB!BIGNUM::BMOD (SB!BIGNUM::U SB!BIGNUM::V)
;       (LET ((SB!BIGNUM::UD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::U 0))
;             (SB!BIGNUM::VD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V 0))
;             (SB!BIGNUM::UMASK 0)
;             (SB!BIGNUM::IMASK 1)
;             (SB!BIGNUM::M 0))
;         (DECLARE
;          (TYPE (UNSIGNED-BYTE 32) SB!BIGNUM::UD SB!BIGNUM::VD SB!BIGNUM::UMASK
;           SB!BIGNUM::IMASK SB!BIGNUM::M))
;         (DOTIMES (SB!BIGNUM::I SB!BIGNUM::DIGIT-SIZE)
;           (SETF SB!BIGNUM::UMASK #)
;           (WHEN (LOGTEST SB!BIGNUM::UD SB!BIGNUM::UMASK) (SETF #) (SETF #))
;           (SETF SB!BIGNUM::IMASK #)
;           (SETF SB!BIGNUM::VD #))
;         SB!BIGNUM::M))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!BIGNUM::BMOD
;         (SB!BIGNUM::U SB!BIGNUM::V)
;       (BLOCK SB!BIGNUM::BMOD
;         (LET ((SB!BIGNUM::UD #)
;               (SB!BIGNUM::VD #)
;               (SB!BIGNUM::UMASK 0)
;               (SB!BIGNUM::IMASK 1)
;               (SB!BIGNUM::M 0))
;           (DECLARE
;            (TYPE # SB!BIGNUM::UD SB!BIGNUM::VD SB!BIGNUM::UMASK
;             SB!BIGNUM::IMASK SB!BIGNUM::M))
;           (DOTIMES (SB!BIGNUM::I SB!BIGNUM::DIGIT-SIZE)
;             (SETF #)
;             (WHEN # # #)
;             (SETF #)
;             (SETF #))
;           SB!BIGNUM::M)))
; 
; note: doing unsigned word to integer coercion (cost 20) from M to "<return value>"
; x-compiling (DEFUN BMOD ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN DMOD
;     (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;        SB!BIGNUM::DIGIT-SIZE)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;           SB!BIGNUM::DIGIT-SIZE))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ 1
;        (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;        SB!BIGNUM::DIGIT-SIZE)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;           SB!BIGNUM::DIGIT-SIZE))
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (+ 1
;        (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

;     (ASH 1 SB!BIGNUM::D)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1 9223372036854775808) &OPTIONAL), not a (VALUES
;                                                                                  FIXNUM
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1 9223372036854775808) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.

;     (1- (ASH 1 SB!BIGNUM::D))
; ==>
;   (- (ASH 1 SB!BIGNUM::D) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       etc.

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::U 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN DMOD ...)
; x-compiling (DEFCONSTANT LOWER-ONES-DIGIT ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN REDUCED-RATIO-MOD
;     (INTEGER-LENGTH SB!BIGNUM::N1)
; ==>
;   SB!BIGNUM::N1
; 
; note: doing unsigned word to integer coercion (cost 20) from N1

;     (INTEGER-LENGTH SB!BIGNUM::N2)
; ==>
;   SB!BIGNUM::N2
; 
; note: doing unsigned word to integer coercion (cost 20) from N2
; x-compiling (DEFUN REDUCED-RATIO-MOD ...)
; x-compiling (DEFUN COPY-BIGNUM ...)
; x-compiling (DECLAIM (INLINE MAKE-SMALL-BIGNUM))
; x-compiling (DEFUN MAKE-SMALL-BIGNUM ...)
; x-compiling (DEFPARAMETER *ACCELERATED-GCD-CUTOFF* ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-GCD
;     (ZEROP SB!BIGNUM::V1)
; ==>
;   (= SB!BIGNUM::V1 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.

;     (> SB!BIGNUM::U1 SB!BIGNUM::V1)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (MOD SB!BIGNUM::V1 SB!BIGNUM::U1)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB!C::DIVISOR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
;   The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
;   The second argument is a REAL, not a (OR DOUBLE-FLOAT SINGLE-FLOAT INTEGER).
; 
; note: unable to
;   convert division by 2^k to shift
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.
;   The second argument is a REAL, not a INTEGER.

; --> LET IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB!C::DIVISOR 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (+ 8 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ 8
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (> SB!BIGNUM::U1 SB!BIGNUM::V1)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (MOD SB!BIGNUM::V1 SB!BIGNUM::U1)
; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB!C::DIVISOR 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

; ==>
;   (< NUMBER 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       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.

; --> LET IF 
; ==>
;   (+ REM SB!C::DIVISOR)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       etc.

;     (< SB!BIGNUM::U-LEN SB!BIGNUM::*ACCELERATED-GCD-CUTOFF*)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The second argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

;     (+ 8 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ 8
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (ASH
;      (SB!BIGNUM::BIGNUM-MOD-GCD SB!BIGNUM::U1
;       (IF (SB!INT:FIXNUMP SB!BIGNUM::N)
;           (SB!BIGNUM:MAKE-SMALL-BIGNUM SB!BIGNUM::N)
;           SB!BIGNUM::N))
;      SB!BIGNUM::FACTORS-OF-TWO)
; 
; 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 (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V 0))
; --> = IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V1 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-GCD ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-MOD-GCD
;     (MOD SB!BIGNUM::A SB!BIGNUM::B)
; --> LET IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (< SB!BIGNUM::A SB!BIGNUM::B)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (UNSIGNED-BYTE 32).

;     (MOD SB!BIGNUM::A SB!BIGNUM::B)
; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB!C::DIVISOR 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (unsigned-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       unable to do inline (signed-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (< NUMBER 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (unsigned-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       unable to do inline (signed-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       etc.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline (unsigned-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       unable to do inline (signed-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       etc.

; --> LET IF 
; ==>
;   (+ REM SB!C::DIVISOR)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                              &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                              &REST T).

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::B 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-MOD-GCD ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-BINARY-GCD
;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::R 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-BINARY-GCD ...)
; x-compiling (DEFUN BIGNUM-GCD-ORDER-AND-SUBTRACT ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN MAKE-GCD-BIGNUM-ODD
;     (ZEROP SB!BIGNUM::DIGIT)
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from DIGIT, for:
;       the first argument of IF-EQ
; x-compiling (DEFUN MAKE-GCD-BIGNUM-ODD ...)
; x-compiling (DEFUN NEGATE-BIGNUM ...)
; x-compiling (DEFUN NEGATE-BIGNUM-BUFFER-IN-PLACE ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN NEGATE-BIGNUM-IN-PLACE
;     (DEFUN SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE (BIGNUM)
;       (DECLARE (INLINE SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE))
;       (SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE BIGNUM
;        (SB!BIGNUM:%BIGNUM-LENGTH BIGNUM)))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE
;    (SB!INT:NAMED-LAMBDA SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE
;        (BIGNUM)
;      (DECLARE (INLINE SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE))
;      (BLOCK SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE
;        (SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE BIGNUM
;         (SB!BIGNUM:%BIGNUM-LENGTH BIGNUM))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE could not be inlined because
;   its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE
;   proclamation must be in effect to save function definitions for inlining.
; x-compiling (DEFUN NEGATE-BIGNUM-IN-PLACE ...)
; x-compiling (DEFUN BIGNUM-ABS-BUFFER ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-ASHIFT-RIGHT
;     (ERROR "bignum overflow: can't shift right by ~S" COUNT)
; ==>
;   "bignum overflow: can't shift right by ~S"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT-DIGITS ...)
; x-compiling (DEFUN BIGNUM-BUFFER-ASHIFT-RIGHT ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-DIGITS ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-UNALIGNED ...)
; x-compiling (DEFUN BIGNUM-PLUS-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BIGNUM-COMPARE ...)
; x-compiling (DEFUN SINGLE-FLOAT-FROM-BITS ...)
; x-compiling (DEFUN DOUBLE-FLOAT-FROM-BITS ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-TO-FLOAT
;     (> EXP MAX)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (+ EXP SB!BIGNUM::BIAS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (> EXP MAX)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::X SB!BIGNUM::I))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-TO-FLOAT ...)
; x-compiling (DEFUN BIGNUM-BUFFER-INTEGER-LENGTH ...)
; x-compiling (DEFUN BIGNUM-INTEGER-LENGTH ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-LOGBITP
;     (LOGBITP SB!KERNEL:BIT-INDEX
;              (SB!BIGNUM:%BIGNUM-REF BIGNUM SB!BIGNUM::WORD-INDEX))
; --> IF NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-LOGBITP ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-LOGCOUNT
;     (- (* LENGTH SB!BIGNUM::DIGIT-SIZE) SB!BIGNUM::RESULT)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>", for:
;       the first result of inline (signed-byte 32) arithmetic
; x-compiling (DEFUN BIGNUM-LOGCOUNT ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-NOT ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-AND ...)
; x-compiling (DEFUN LOGAND-SHORTER-POSITIVE ...)
; x-compiling (DEFUN LOGAND-SHORTER-NEGATIVE ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-IOR ...)
; x-compiling (DEFUN LOGIOR-SHORTER-POSITIVE ...)
; x-compiling (DEFUN LOGIOR-SHORTER-NEGATIVE ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-XOR ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-XOR-AUX ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-TRUNCATE
;     (LOGTEST SB!BIGNUM::Y (1- SB!BIGNUM::Y))
; --> NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (= SB!BIGNUM::Y 0)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (= SB!BIGNUM::Y 1)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (INTEGER-LENGTH SB!BIGNUM::Y)
; 
; note: doing unsigned word to integer coercion (cost 20) from Y

;     (VALUES
;      (SB!BIGNUM::SHIFT-RIGHT-UNALIGNED SB!BIGNUM::X 0 SB!BIGNUM::N-BITS
;       SB!BIGNUM::LEN-X
;       ((= SB!BIGNUM::J SB!BIGNUM::RES-LEN-1) (SETF # #) SB!BIGNUM::RES)
;       SB!BIGNUM::RES)
;      (LOGAND (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::X 0) (1- SB!BIGNUM::Y)))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (INTEGER-LENGTH LAST)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!BIGNUM::%DIGIT-COMPARE SB!BIGNUM::HIGH-DIGIT 0)
; --> BLOCK = IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-TRUNCATE ...)
; x-compiling (DECLAIM (MAYBE-INLINE %NORMALIZE-BIGNUM-BUFFER))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN %NORMALIZE-BIGNUM-BUFFER
;     (ZEROP
;      (LOGXOR SB!BIGNUM::SIGN-DIGIT
;              (SB!BIGNUM:%ASHR SB!BIGNUM::NEXT-DIGIT (1- SB!BIGNUM::DIGIT-SIZE))))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN %NORMALIZE-BIGNUM-BUFFER ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN %NORMALIZE-BIGNUM
;     (SB!BIGNUM::%NORMALIZE-BIGNUM-BUFFER SB!BIGNUM::RESULT SB!BIGNUM::LEN)
; --> BLOCK UNLESS IF PROGN DO BLOCK LET TAGBODY UNLESS IF NOT IF ZEROP = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!BIGNUM:%FIXNUM-DIGIT-WITH-CORRECT-SIGN SB!BIGNUM::DIGIT)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of SIGNIFY-DIGIT
; x-compiling (DEFUN %NORMALIZE-BIGNUM ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN %MOSTLY-NORMALIZE-BIGNUM
;     (SB!BIGNUM::%NORMALIZE-BIGNUM-BUFFER SB!BIGNUM::RESULT SB!BIGNUM::LEN)
; --> BLOCK UNLESS IF PROGN DO BLOCK LET TAGBODY UNLESS IF NOT IF ZEROP = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN %MOSTLY-NORMALIZE-BIGNUM ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 91 notes
; x-compiling (DEFUN SXHASH-BIGNUM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/bignum.lisp-obj-tmp written
; compilation finished in 0:00:05.362
; compiling file "/«PKGBUILDDIR»/src/code/numbers.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN PARSE-NUMBER-DISPATCH ...)
; x-compiling (DEFPARAMETER *TYPE-TEST-ORDERING* ...)
; x-compiling (DEFUN TYPE-TEST-ORDER ...)
; x-compiling (DEFUN GENERATE-NUMBER-DISPATCH ...)
; x-compiling (DEFMACRO NUMBER-DISPATCH ...)
; x-compiling (DECLAIM (INLINE CANONICAL-COMPLEX))
; x-compiling (DEFUN CANONICAL-COMPLEX ...)
; x-compiling (DECLAIM (INLINE BUILD-RATIO))
; x-compiling (DEFUN BUILD-RATIO ...)
; x-compiling (DECLAIM (INLINE MAYBE-TRUNCATE))
; x-compiling (DEFUN MAYBE-TRUNCATE ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN COMPLEX
;     (SB!KERNEL::CANONICAL-COMPLEX REALPART IMAGPART)
; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX 
; ==>
;   IMAGPART
; 
; note: deleting unreachable code

; --> BLOCK IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX 
; ==>
;   IMAGPART
; 
; note: deleting unreachable code

; ==>
;   REALPART
; 
; note: deleting unreachable code

; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX 
; ==>
;   REALPART
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPLEX ...)
; x-compiling (DEFUN REALPART ...)
; x-compiling (DEFUN IMAGPART ...)
; x-compiling (DEFUN CONJUGATE ...)
; x-compiling (DEFUN SIGNUM ...)
; x-compiling (DEFUN NUMERATOR ...)
; x-compiling (DEFUN DENOMINATOR ...)
; x-compiling (DEFINE-ARITH + ...)
; x-compiling (DEFINE-ARITH * ...)
; x-compiling (DEFUN - ...)
; x-compiling (DEFUN / ...)
; x-compiling (DEFUN 1+ ...)
; x-compiling (DEFUN 1- ...)
; x-compiling (TWO-ARG-+/- TWO-ARG-+ ...)
; x-compiling (TWO-ARG-+/- TWO-ARG-- ...)
; x-compiling (DEFUN TWO-ARG-* ...)
; x-compiling (DEFUN INTEGER-/-INTEGER ...)
; x-compiling (DEFUN TWO-ARG-/ ...)
; x-compiling (DEFUN %NEGATE ...)
; x-compiling (DEFUN TRUNCATE ...)
; x-compiling (DEFUN %MULTIPLY-HIGH ...)
; x-compiling (DEFUN FLOOR ...)
; x-compiling (DEFUN CEILING ...)
; x-compiling (DEFUN REM ...)
; x-compiling (DEFUN MOD ...)
; x-compiling (DEFUN ROUND ...)
; x-compiling (DEFMACRO !DEFINE-FLOAT-ROUNDING-FUNCTION ...)
; x-compiling (DECLAIM (INLINE FCEILING ...))
; x-compiling (DEFUN FTRUNCATE ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN FFLOOR
;     (FTRUNCATE NUMBER SB!KERNEL::DIVISOR)
; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; --> LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!KERNEL::DIVISOR
; 
; note: deleting unreachable code
; x-compiling (DEFUN FFLOOR ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN FCEILING
;     (FTRUNCATE NUMBER SB!KERNEL::DIVISOR)
; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; --> LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!KERNEL::DIVISOR
; 
; note: deleting unreachable code
; x-compiling (DEFUN FCEILING ...)
; x-compiling (DEFUN FROUND ...)
; x-compiling (DEFUN = ...)
; x-compiling (DEFUN /= ...)
; x-compiling (DEF < ...)
; x-compiling (DEF > ...)
; x-compiling (DEF <= ...)
; x-compiling (DEF >= ...)
; x-compiling (DEFUN MAX ...)
; x-compiling (DEFUN MIN ...)
; x-compiling (DEF-TWO-ARG-</> TWO-ARG-< ...)
; x-compiling (DEF-TWO-ARG-</> TWO-ARG-> ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN TWO-ARG-=
;     (SB!KERNEL::NUMBER-DISPATCH ((SB!KERNEL::X NUMBER) (SB!KERNEL::Y NUMBER))
;      (SB!KERNEL::BASIC-COMPARE = :INFINITE-X-FINITE-Y NIL :INFINITE-Y-FINITE-X
;                                NIL)
;      ((FIXNUM (OR BIGNUM RATIO)) NIL) ((BIGNUM (OR FIXNUM RATIO)) NIL)
;      ((BIGNUM BIGNUM)
;       (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y)))
;      ((RATIO INTEGER) NIL)
;      ((RATIO RATIO)
;       (AND (EQL (NUMERATOR SB!KERNEL::X) (NUMERATOR SB!KERNEL::Y))
;            (EQL (DENOMINATOR SB!KERNEL::X) (DENOMINATOR SB!KERNEL::Y))))
;      ((COMPLEX COMPLEX)
;       (AND (= (REALPART SB!KERNEL::X) (REALPART SB!KERNEL::Y))
;            (= (IMAGPART SB!KERNEL::X) (IMAGPART SB!KERNEL::Y))))
;      (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO SINGLE-FLOAT DOUBLE-FLOAT)
;        COMPLEX)
;       (AND (= SB!KERNEL::X (REALPART SB!KERNEL::Y))
;            (ZEROP (IMAGPART SB!KERNEL::Y))))
;      ((COMPLEX (OR FLOAT RATIONAL))
;       (AND (= (REALPART SB!KERNEL::X) SB!KERNEL::Y)
;            (ZEROP (IMAGPART SB!KERNEL::X)))))
; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF 
; --> COND IF COND IF COND IF COND IF COND IF PROGN IF = IF = 
; ==>
;   SB!KERNEL::X
; 
; note: deleting unreachable code
; x-compiling (DEFUN TWO-ARG-= ...)
; x-compiling (DEF LOGIOR ...)
; x-compiling (DEF LOGXOR ...)
; x-compiling (DEF LOGAND ...)
; x-compiling (DEF LOGEQV ...)
; x-compiling (DEFUN LOGNOT ...)
; x-compiling (DEF TWO-ARG-AND ...)
; x-compiling (DEF TWO-ARG-IOR ...)
; x-compiling (DEF TWO-ARG-XOR ...)
; x-compiling (DEF TWO-ARG-EQV ...)
; x-compiling (DEF LOGNAND ...)
; x-compiling (DEF LOGNOR ...)
; x-compiling (DEF LOGANDC1 ...)
; x-compiling (DEF LOGANDC2 ...)
; x-compiling (DEF LOGORC1 ...)
; x-compiling (DEF LOGORC2 ...)
; x-compiling (DEFUN LOGCOUNT ...)
; x-compiling (DEFUN LOGTEST ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN LOGBITP
;     (SB!KERNEL::NUMBER-DISPATCH ((SB!INT:INDEX INTEGER) (INTEGER INTEGER))
;      ((FIXNUM FIXNUM)
;       (IF (< SB!INT:INDEX SB!VM:N-POSITIVE-FIXNUM-BITS)
;           (NOT (ZEROP #))
;           (MINUSP INTEGER)))
;      ((FIXNUM BIGNUM) (SB!BIGNUM:BIGNUM-LOGBITP SB!INT:INDEX INTEGER))
;      ((BIGNUM (SB!KERNEL::FOREACH FIXNUM BIGNUM)) (MINUSP INTEGER)))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   INTEGER
; 
; note: deleting unreachable code

; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

; --> BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

; ==>
;   INTEGER
; 
; note: deleting unreachable code
; x-compiling (DEFUN LOGBITP ...)
; x-compiling (DEFUN ASH ...)
; x-compiling (DEFUN INTEGER-LENGTH ...)
; x-compiling (DEFUN BYTE ...)
; x-compiling (DEFUN BYTE-SIZE ...)
; x-compiling (DEFUN BYTE-POSITION ...)
; x-compiling (DEFUN LDB ...)
; x-compiling (DEFUN LDB-TEST ...)
; x-compiling (DEFUN MASK-FIELD ...)
; x-compiling (DEFUN DPB ...)
; x-compiling (DEFUN DEPOSIT-FIELD ...)
; x-compiling (DEFUN %LDB ...)
; x-compiling (DEFUN %MASK-FIELD ...)
; x-compiling (DEFUN %DPB ...)
; x-compiling (DEFUN %DEPOSIT-FIELD ...)
; x-compiling (DEFUN SB!C::MASK-SIGNED-FIELD ...)
; x-compiling (DEFCONSTANT BOOLE-CLR ...)
; x-compiling (DEFCONSTANT BOOLE-SET ...)
; x-compiling (DEFCONSTANT BOOLE-1 ...)
; x-compiling (DEFCONSTANT BOOLE-2 ...)
; x-compiling (DEFCONSTANT BOOLE-C1 ...)
; x-compiling (DEFCONSTANT BOOLE-C2 ...)
; x-compiling (DEFCONSTANT BOOLE-AND ...)
; x-compiling (DEFCONSTANT BOOLE-IOR ...)
; x-compiling (DEFCONSTANT BOOLE-XOR ...)
; x-compiling (DEFCONSTANT BOOLE-EQV ...)
; x-compiling (DEFCONSTANT BOOLE-NAND ...)
; x-compiling (DEFCONSTANT BOOLE-NOR ...)
; x-compiling (DEFCONSTANT BOOLE-ANDC1 ...)
; x-compiling (DEFCONSTANT BOOLE-ANDC2 ...)
; x-compiling (DEFCONSTANT BOOLE-ORC1 ...)
; x-compiling (DEFCONSTANT BOOLE-ORC2 ...)
; x-compiling (DEFUN BOOLE ...)
; x-compiling (DEFUN GCD ...)
; x-compiling (DEFUN LCM ...)
; x-compiling (DEFUN TWO-ARG-LCM ...)
; x-compiling (DEFUN TWO-ARG-GCD ...)
; x-compiling (DEFUN ISQRT ...)
; x-compiling (DEF ZEROP ...)
; x-compiling (DEF PLUSP ...)
; x-compiling (DEF MINUSP ...)
; x-compiling (DEF ODDP ...)
; x-compiling (DEF EVENP ...)
; x-compiling (DEFUN SB!VM::*-MOD32 ...)
; x-compiling (DEFUN SB!VM::+-MOD32 ...)
; x-compiling (DEFUN SB!VM::--MOD32 ...)
; x-compiling (DEFUN SB!VM::LOGANDC1-MOD32 ...)
; x-compiling (DEFUN SB!VM::LOGANDC2-MOD32 ...)
; x-compiling (DEFUN SB!VM::LOGNOT-MOD32 ...)
; x-compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...)
; 
; compilation unit finished
;   printed 13 notes
; x-compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/numbers.lisp-obj-tmp written
; compilation finished in 0:00:12.720
; compiling file "/«PKGBUILDDIR»/src/code/float-trap.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFPARAMETER *FLOAT-TRAP-ALIST* ...)
; x-compiling (DEFPARAMETER *ROUNDING-MODE-ALIST* ...)
; x-compiling (DEFUN FLOAT-TRAP-MASK ...)
; x-compiling (DEFUN FLOATING-POINT-MODES ...)
; x-compiling (DEFUN (SETF FLOATING-POINT-MODES) ...)
; x-compiling (DEFUN SET-FLOATING-POINT-MODES ...)
; x-compiling (DEFUN GET-FLOATING-POINT-MODES ...)
; x-compiling (DEFVAR *SAVED-FLOATING-POINT-MODES* ...)
; x-compiling (DEFUN FLOAT-COLD-INIT-OR-REINIT ...)
; x-compiling (DEFUN FLOAT-DEINIT ...)
; x-compiling (DEFMACRO CURRENT-FLOAT-TRAP ...)
; x-compiling (DEFPARAMETER *SIGFPE-CODE-ERROR-ALIST* ...)
; x-compiling (DEFUN SIGFPE-HANDLER ...)
; x-compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/float-trap.lisp-obj-tmp written
; compilation finished in 0:00:00.735
; compiling file "/«PKGBUILDDIR»/src/code/float.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-DENORMALIZED-P ...))
; x-compiling (DEFUN FLOAT-DENORMALIZED-P ...)
; x-compiling (DEFMACRO !DEFINE-FLOAT-DISPATCHING-FUNCTION ...)
; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-INFINITY-P ...)
; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-NAN-P ...)
; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-TRAPPING-NAN-P ...)
; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-PRECISION))
; x-compiling (DEFUN FLOAT-PRECISION ...)
; x-compiling (DEFUN FLOAT-SIGN ...)
; x-compiling (DEFUN FLOAT-FORMAT-DIGITS ...)
; x-compiling (DECLAIM (INLINE FLOAT-DIGITS ...))
; x-compiling (DEFUN FLOAT-DIGITS ...)
; x-compiling (DEFUN FLOAT-RADIX ...)
; x-compiling (DECLAIM (MAYBE-INLINE INTEGER-DECODE-SINGLE-FLOAT ...))
; x-compiling (DEFUN INTEGER-DECODE-SINGLE-DENORM ...)
; x-compiling (DEFUN INTEGER-DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-DENORM ...)
; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN INTEGER-DECODE-FLOAT ...)
; x-compiling (DECLAIM (MAYBE-INLINE DECODE-SINGLE-FLOAT ...))
; x-compiling (DEFUN DECODE-SINGLE-DENORM ...)
; x-compiling (DEFUN DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFUN DECODE-DOUBLE-DENORM ...)
; x-compiling (DEFUN DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN DECODE-FLOAT ...)
; x-compiling (DECLAIM (MAYBE-INLINE SCALE-SINGLE-FLOAT ...))
; x-compiling (DEFUN SCALE-FLOAT-MAYBE-UNDERFLOW ...)
; x-compiling (DEFUN SCALE-FLOAT-MAYBE-OVERFLOW ...)
; x-compiling (DEFUN SCALE-SINGLE-FLOAT ...)
; x-compiling (DEFUN SCALE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN SCALE-FLOAT ...)
; x-compiling (DEFUN FLOAT ...)
; x-compiling (FROB %SINGLE-FLOAT ...)
; x-compiling (FROB %DOUBLE-FLOAT ...)
; x-compiling (DEFUN FLOAT-RATIO ...)

; file: /«PKGBUILDDIR»/src/code/float.lisp
; in: DEFUN %UNARY-TRUNCATE
;     (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER)
;      ((RATIO) (VALUES (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER))))
;      (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT))
;       (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER
;              (FLOAT MOST-POSITIVE-FIXNUM NUMBER))
;           (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-TRUNCATE NUMBER))
;           (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP)
;               (INTEGER-DECODE-FLOAT NUMBER)
;             (LET #
;               #)))))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; x-compiling (DEFUN %UNARY-TRUNCATE ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/code/float.lisp
; in: DEFUN %UNARY-ROUND
;     (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER)
;      ((RATIO) (VALUES (ROUND (NUMERATOR NUMBER) (DENOMINATOR NUMBER))))
;      (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT))
;       (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER
;              (FLOAT MOST-POSITIVE-FIXNUM NUMBER))
;           (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-ROUND NUMBER))
;           (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP)
;               (INTEGER-DECODE-FLOAT NUMBER)
;             (LET* #
;               #)))))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; x-compiling (DEFUN %UNARY-ROUND ...)

; file: /«PKGBUILDDIR»/src/code/float.lisp
; in: DEFUN %UNARY-FTRUNCATE
;     (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) (FLOAT NUMBER))
;      ((RATIO) (FLOAT (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER))))
;      (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT))
;       (SB!KERNEL:%UNARY-FTRUNCATE NUMBER)))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; x-compiling (DEFUN %UNARY-FTRUNCATE ...)
; x-compiling (DEFUN RATIONAL ...)
; 
; compilation unit finished
;   printed 3 notes
; x-compiling (DEFUN RATIONALIZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/float.lisp-obj-tmp written
; compilation finished in 0:00:03.342
; compiling file "/«PKGBUILDDIR»/src/code/irrat.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFCONSTANT PI ...)
; x-compiling (DEF %SQRT ...)
; x-compiling (DEF-MATH-RTN "sin" ...)
; x-compiling (DEF-MATH-RTN "cos" ...)
; x-compiling (DEF-MATH-RTN "tan" ...)
; x-compiling (DEF-MATH-RTN "atan" ...)
; x-compiling (DEF-MATH-RTN "atan2" ...)
; x-compiling (DEF-MATH-RTN "acos" ...)
; x-compiling (DEF-MATH-RTN "asin" ...)
; x-compiling (DEF-MATH-RTN "cosh" ...)
; x-compiling (DEF-MATH-RTN "sinh" ...)
; x-compiling (DEF-MATH-RTN "tanh" ...)
; x-compiling (DEF-MATH-RTN "asinh" ...)
; x-compiling (DEF-MATH-RTN "acosh" ...)
; x-compiling (DEF-MATH-RTN "atanh" ...)
; x-compiling (DEF-MATH-RTN "hypot" ...)
; x-compiling (DEF-MATH-RTN "exp" ...)
; x-compiling (DEF-MATH-RTN "log" ...)
; x-compiling (DEF-MATH-RTN "log10" ...)
; x-compiling (DEF-MATH-RTN "pow" ...)
; x-compiling (DEF-MATH-RTN "log1p" ...)
; x-compiling (DEFUN EXP ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFPARAMETER *INTEXP-MAXIMUM-EXPONENT* ...)
; x-compiling (DEFUN INTEXP ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN EXPT
;     (= SB!KERNEL::LO 0)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from LO, for:
;       the first argument of IF-EQ
; x-compiling (DEFUN EXPT ...)
; x-compiling (DEFUN LOG2 ...)
; x-compiling (DEFUN LOG ...)
; x-compiling (DEFUN SQRT ...)
; x-compiling (DEFUN ABS ...)
; x-compiling (DEFUN PHASE ...)
; x-compiling (DEFUN SIN ...)
; x-compiling (DEFUN COS ...)
; x-compiling (DEFUN TAN ...)
; x-compiling (DEFUN CIS ...)
; x-compiling (DEFUN ASIN ...)
; x-compiling (DEFUN ACOS ...)
; x-compiling (DEFUN ATAN ...)
; x-compiling (DEFUN SINH ...)
; x-compiling (DEFUN COSH ...)
; x-compiling (DEFUN TANH ...)
; x-compiling (DEFUN ASINH ...)
; x-compiling (DEFUN ACOSH ...)
; x-compiling (DEFUN ATANH ...)
; x-compiling (DECLAIM (INLINE SQUARE))
; x-compiling (DEFUN SQUARE ...)
; x-compiling (DECLAIM (INLINE SCALB))
; x-compiling (DEFUN SCALB ...)
; x-compiling (DECLAIM (INLINE LOGB-FINITE))
; x-compiling (DEFUN LOGB-FINITE ...)
; x-compiling (DEFUN LOGB ...)
; x-compiling (DECLAIM (INLINE COERCE-TO-COMPLEX-TYPE))
; x-compiling (DEFUN COERCE-TO-COMPLEX-TYPE ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN CSSQS
;     (SB!KERNEL::LOGB-FINITE (MAX (ABS SB!KERNEL::X) (ABS SB!KERNEL::Y)))
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT 
; ==>
;   (SB!KERNEL:DECODE-DOUBLE-FLOAT SB!C::X)
; 
; note: doing float to pointer coercion (cost 13) to X

;     (VALUES
;      (+ (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::X SB!KERNEL::K))
;         (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::Y SB!KERNEL::K)))
;      (- SB!KERNEL::K))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

;     (VALUES SB!KERNEL::RHO 0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

;     (SB!EXT:FLOAT-NAN-P SB!KERNEL::RHO)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE OR LET IF OR THE NOT IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::RHO)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE AND IF AND THE ZEROP = IF = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN CSSQS ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-SQRT
;     (SB!EXT:FLOAT-NAN-P SB!KERNEL::X)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF PROGN LET SB!KERNEL:SINGLE-FLOAT-BITS 
; ==>
;   SB!KERNEL::X
; 
; note: deleting unreachable code

; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!KERNEL::X
; 
; note: deleting unreachable code

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE SB!KERNEL::ETA SB!KERNEL::NU SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                    RATIONAL).
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                        SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                        DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (SB!KERNEL::SCALB (SQRT SB!KERNEL::RHO) SB!KERNEL::K)
; --> BLOCK SCALE-FLOAT 
; ==>
;   (SB!KERNEL:SCALE-DOUBLE-FLOAT SB!C::F SB!C::EX)
; 
; note: doing float to pointer coercion (cost 13) to X

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE SB!KERNEL::ETA SB!KERNEL::NU SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13) from ETA
; 
; note: doing float to pointer coercion (cost 13) from NU

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!EXT:FLOAT-INFINITY-P (ABS SB!KERNEL::NU))
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE AND IF AND THE ZEROP = IF = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!EXT:FLOAT-NAN-P SB!KERNEL::X)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE OR LET IF OR THE NOT IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!KERNEL::SCALB (ABS SB!KERNEL::X) (- SB!KERNEL::K))
; --> BLOCK SCALE-FLOAT 
; ==>
;   (SB!KERNEL:SCALE-DOUBLE-FLOAT SB!C::F SB!C::EX)
; 
; note: doing float to pointer coercion (cost 13) to X
; x-compiling (DEFUN COMPLEX-SQRT ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-LOG-SCALED
;     (LOG SB!KERNEL::RHO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (/ (LOG SB!KERNEL::RHO) 2.0d0)
; 
; note: unable to
;   convert to multiplication by reciprocal
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).

;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; 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).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA)
;               (OR (<= SB!KERNEL::BETA SB!KERNEL::T1)
;                   (< SB!KERNEL::RHO SB!KERNEL::T2)))
;          (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0)
;          (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;             (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)))
;      (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (/ (LOG SB!KERNEL::RHO) 2.0d0)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA)
;               (OR (<= SB!KERNEL::BETA SB!KERNEL::T1)
;                   (< SB!KERNEL::RHO SB!KERNEL::T2)))
;          (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0)
;          (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;             (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)))
;      (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; note: doing float to pointer coercion (cost 13), for:
;       the second argument of static-fun Two-arg-+

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA)
;               (OR (<= SB!KERNEL::BETA SB!KERNEL::T1)
;                   (< SB!KERNEL::RHO SB!KERNEL::T2)))
;          (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0)
;          (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;             (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)))
;      (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13)

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (/
;      (SB!KERNEL:%LOG1P
;       (+ (* (- SB!KERNEL::BETA 1.0d0) (+ SB!KERNEL::BETA 1.0d0))
;          (* SB!KERNEL::THETA SB!KERNEL::THETA)))
;      2.0d0)
; ==>
;   (* SB!C::X 0.5d0)
; 
; note: doing float to pointer coercion (cost 13)
; x-compiling (DEFUN COMPLEX-LOG-SCALED ...)
; x-compiling (DEFUN COMPLEX-LOG ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-ATANH
;     (SQRT SB!KERNEL::T1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (SQRT (SQRT SB!KERNEL::T1))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (SQRT SB!KERNEL::T2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).

;     (LOG (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::ETA)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)
;                                DOUBLE-FLOAT), not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)
;                                DOUBLE-FLOAT), not a (COMPLEX DOUBLE-FLOAT).

;     (- (* SB!KERNEL::BETA SB!KERNEL::NU))
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER (* SB!KERNEL::BETA SB!KERNEL::NU)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA)
;      (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2))
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::ETA)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::NU)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (- (* SB!KERNEL::BETA SB!KERNEL::NU))
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER (* SB!KERNEL::BETA SB!KERNEL::NU)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA)
;      (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (SETF SB!KERNEL::ETA
;             (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #))
;               (IF SB!KERNEL::X-BIGGER
;                   (/ # SB!KERNEL::D)
;                   (/ # SB!KERNEL::D))))
; ==>
;   (SETQ SB!KERNEL::ETA
;           (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #))
;             (IF SB!KERNEL::X-BIGGER
;                 (/ # SB!KERNEL::D)
;                 (/ # SB!KERNEL::D))))
; 
; note: doing float to pointer coercion (cost 13) to ETA

;     (* SB!KERNEL::BETA SB!KERNEL::NU)
; 
; note: doing float to pointer coercion (cost 13) from NU, for:
;       the second argument of static-fun Two-arg-*

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA)
;      (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SETF SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #))))
; ==>
;   (SETQ SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #))))
; 
; note: doing float to pointer coercion (cost 13) to ETA

;     (SQRT SB!KERNEL::T1)
; 
; note: doing float to pointer coercion (cost 13)

;     (SQRT SB!KERNEL::T2)
; 
; note: doing float to pointer coercion (cost 13) from T2
; x-compiling (DEFUN COMPLEX-ATANH ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-TANH
;     (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (/ SB!KERNEL::RHO SB!KERNEL::S)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S)
;      (/ SB!KERNEL::TV) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S)
; --> * 
; ==>
;   (* SB!KERNEL::BETA SB!KERNEL::RHO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).

; ==>
;   (* (* SB!KERNEL::BETA SB!KERNEL::RHO) SB!KERNEL::S)
; 
; 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).

;     (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
; 
; 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).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
;      (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X)
;      (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (/ SB!KERNEL::RHO SB!KERNEL::S)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S)
;      (/ SB!KERNEL::TV) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S)
; --> * 
; ==>
;   (* SB!KERNEL::BETA SB!KERNEL::RHO)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

; ==>
;   (* (* SB!KERNEL::BETA SB!KERNEL::RHO) SB!KERNEL::S)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
;      (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (SINH SB!KERNEL::X)
; --> SB!KERNEL:%SINH BLOCK SB!ALIEN:ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:NATURALIZE LET 
; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN 
; ==>
;   (SB!C:%ALIEN-FUNCALL
;    (SB!ALIEN-INTERNALS:DEPORT FUNCTION
;     '#<SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)>)
;    '#<SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)>
;    (SB!ALIEN-INTERNALS:DEPORT #:G19080
;     '#<SB!ALIEN-INTERNALS:ALIEN-DOUBLE-FLOAT-TYPE DOUBLE-FLOAT>))
; 
; note: doing float to pointer coercion (cost 13)

;     (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S)))
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!EXT:FLOAT-INFINITY-P (ABS SB!KERNEL::TV))
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE AND IF AND THE ZEROP = IF = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S)
; --> * 
; ==>
;   (* SB!KERNEL::BETA SB!KERNEL::RHO)
; 
; note: doing float to pointer coercion (cost 13), for:
;       the first argument of static-fun Two-arg-*

;     (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
; 
; note: doing float to pointer coercion (cost 13), for:
;       the second argument of static-fun Two-arg-/

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
;      (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13)

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S)
;      (/ SB!KERNEL::TV) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13)

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X)
;      (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)
; x-compiling (DEFUN COMPLEX-TANH ...)
; x-compiling (DEFUN COMPLEX-ACOS ...)
; x-compiling (DEFUN COMPLEX-ACOSH ...)
; x-compiling (DEFUN COMPLEX-ASIN ...)
; x-compiling (DEFUN COMPLEX-ASINH ...)
; x-compiling (DEFUN COMPLEX-ATAN ...)
; 
; compilation unit finished
;   printed 107 notes
; x-compiling (DEFUN COMPLEX-TAN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/irrat.lisp-obj-tmp written
; compilation finished in 0:00:16.046
; compiling file "/«PKGBUILDDIR»/src/code/char.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...)
; x-compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/char.lisp-obj-tmp written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/src/code/huffman.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSTRUCT (HUFFMAN-NODE #) ...)
; x-compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...)
; x-compiling (DEFUN HUFFMAN-WEIGHTS ...)
; x-compiling (DEFUN MAKE-HUFFMAN-TREE ...)
; x-compiling (DEFUN HUFFMAN-DECODE ...)
; x-compiling (DEFUN HUFFMAN-MATCH ...)
; x-compiling (DEFUN HUFFMAN-ENCODE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/huffman.lisp-obj-tmp written
; compilation finished in 0:00:02.028
; compiling file "/«PKGBUILDDIR»/src/code/target-char.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/target-char.lisp
; in:
;      DECLAIM (INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P ...)
;     (DECLAIM
;      (INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P
;       LOWER-CASE-P BOTH-CASE-P ALPHANUMERICP CHAR-INT))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM
;    '(INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P
;      LOWER-CASE-P BOTH-CASE-P ALPHANUMERICP CHAR-INT)
;    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:ALPHANUMERICP to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE STANDARD-CHAR-P ...))
; x-compiling (DECLAIM (MAYBE-INLINE DIGIT-CHAR-P))
; x-compiling (DEFTYPE CHAR-CODE ...)
; x-compiling (DEFGLOBAL **UNICODE-CHARACTER-NAME-HUFFMAN-TREE** ...)
; x-compiling (DECLAIM (INLINE PACK-3-CODEPOINTS))
; x-compiling (DEFUN PACK-3-CODEPOINTS ...)
; x-compiling (FROB)
; x-compiling (DEFPARAMETER *BASE-CHAR-NAME-ALIST* ...)
; x-compiling (DECLAIM (INLINE CLEAR-FLAG))
; x-compiling (DEFUN CLEAR-FLAG ...)
; x-compiling (DEFCONSTANT +MISC-WIDTH+ ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MISC-INDEX ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN UCD-GENERAL-CATEGORY ...)
; x-compiling (DEFUN UCD-DECIMAL-DIGIT ...)
; x-compiling (DEFUN CHAR-CODE ...)
; x-compiling (DEFUN CHAR-INT ...)
; x-compiling (DEFUN CODE-CHAR ...)
; x-compiling (DEFUN CHARACTER ...)
; x-compiling (DEFUN CHAR-NAME ...)
; x-compiling (DEFUN NAME-CHAR ...)
; x-compiling (DEFUN STANDARD-CHAR-P ...)
; x-compiling (DEFUN %STANDARD-CHAR-P ...)
; x-compiling (DEFUN GRAPHIC-CHAR-P ...)
; x-compiling (DEFUN ALPHA-CHAR-P ...)

; file: /«PKGBUILDDIR»/src/code/target-char.lisp
; in: DECLAIM (INLINE BOTH-CASE-INDEX-P)
;     (DECLAIM (INLINE SB!IMPL::BOTH-CASE-INDEX-P))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::BOTH-CASE-INDEX-P) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::BOTH-CASE-INDEX-P to be INLINE, but 2 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE BOTH-CASE-INDEX-P))
; x-compiling (DEFUN BOTH-CASE-INDEX-P ...)
; x-compiling (DEFUN BOTH-CASE-P ...)
; x-compiling (DEFUN UPPER-CASE-P ...)
; x-compiling (DEFUN LOWER-CASE-P ...)
; x-compiling (DEFUN DIGIT-CHAR-P ...)
; x-compiling (DEFUN ALPHANUMERICP ...)
; x-compiling (DECLAIM (INLINE CHAR-CASE-INFO))
; x-compiling (DEFUN CHAR-CASE-INFO ...)
; x-compiling (DECLAIM (INLINE EQUAL-CHAR-CODE))
; x-compiling (DEFUN EQUAL-CHAR-CODE ...)
; x-compiling (DEFUN TWO-ARG-CHAR-EQUAL ...)
; x-compiling (DEFUN CHAR-EQUAL-CONSTANT ...)
; x-compiling (DEFUN TWO-ARG-CHAR-NOT-EQUAL ...)
; x-compiling (DEF CHAR/= ...)
; x-compiling (DEF CHAR-NOT-EQUAL ...)
; x-compiling (DEFUN TWO-ARG-CHAR-LESSP ...)
; x-compiling (DEFUN TWO-ARG-CHAR-GREATERP ...)
; x-compiling (DEFUN TWO-ARG-CHAR-NOT-GREATERP ...)
; x-compiling (DEFUN TWO-ARG-CHAR-NOT-LESSP ...)
; x-compiling (DEF CHAR= ...)
; x-compiling (DEF CHAR< ...)
; x-compiling (DEF CHAR> ...)
; x-compiling (DEF CHAR<= ...)
; x-compiling (DEF CHAR>= ...)
; x-compiling (DEF CHAR-EQUAL ...)
; x-compiling (DEF CHAR-LESSP ...)
; x-compiling (DEF CHAR-GREATERP ...)
; x-compiling (DEF CHAR-NOT-GREATERP ...)
; x-compiling (DEF CHAR-NOT-LESSP ...)
; x-compiling (DEFUN CHAR-UPCASE ...)
; x-compiling (DEFUN CHAR-DOWNCASE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN DIGIT-CHAR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-char.lisp-obj-tmp written
; compilation finished in 0:00:26.300
; compiling file "/«PKGBUILDDIR»/src/code/target-unicode.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNICODE")
; x-compiling (DEFPARAMETER **SPECIAL-NUMERICS** ...)
; x-compiling (DEFPARAMETER **BLOCK-RANGES** ...)
; x-compiling (UNICODE-PROPERTY-INIT)
; x-compiling (DEFUN REVERSE-UCD-INDICES ...)
; x-compiling (DEFUN ORDERED-RANGES-MEMBER ...)
; x-compiling (DEFUN ORDERED-RANGES-POSITION ...)
; x-compiling (DEFUN PROPLIST-P ...)
; x-compiling (DEFPARAMETER *GENERAL-CATEGORIES* ...)
; x-compiling (DEFPARAMETER *BIDI-CLASSES* ...)
; x-compiling (DEFPARAMETER *EAST-ASIAN-WIDTHS* ...)
; x-compiling (DEFPARAMETER *SCRIPTS* ...)
; x-compiling (DEFPARAMETER *BLOCKS* ...)
; x-compiling (DEFPARAMETER *LINE-BREAK-CLASSES* ...)
; x-compiling (DEFUN GENERAL-CATEGORY ...)
; x-compiling (DEFUN BIDI-CLASS ...)
; x-compiling (DEFUN COMBINING-CLASS ...)
; x-compiling (DEFUN DECIMAL-VALUE ...)
; x-compiling (DEFUN DIGIT-VALUE ...)
; x-compiling (DEFUN NUMERIC-VALUE ...)
; x-compiling (DEFUN MIRRORED-P ...)
; x-compiling (DEFUN BIDI-MIRRORING-GLYPH ...)
; x-compiling (DEFUN EAST-ASIAN-WIDTH ...)
; x-compiling (DEFUN SCRIPT ...)
; x-compiling (DEFUN CHAR-BLOCK ...)
; x-compiling (DEFUN UNICODE-1-NAME ...)
; x-compiling (DEFUN AGE ...)
; x-compiling (DEFUN HANGUL-SYLLABLE-TYPE ...)
; x-compiling (DEFUN LINE-BREAK-CLASS ...)
; x-compiling (DEFUN UPPERCASE-P ...)
; x-compiling (DEFUN LOWERCASE-P ...)
; x-compiling (DEFUN CASED-P ...)
; x-compiling (DEFUN CASE-IGNORABLE-P ...)
; x-compiling (DEFUN ALPHABETIC-P ...)
; x-compiling (DEFUN IDEOGRAPHIC-P ...)
; x-compiling (DEFUN MATH-P ...)
; x-compiling (DEFUN WHITESPACE-P ...)
; x-compiling (DEFUN HEX-DIGIT-P ...)
; x-compiling (DEFUN SOFT-DOTTED-P ...)
; x-compiling (DEFUN DEFAULT-IGNORABLE-P ...)
; x-compiling (DEFUN CHAR-DECOMPOSITION-INFO ...)
; x-compiling (DEFUN CHAR-DECOMPOSITION ...)
; x-compiling (DEFUN DECOMPOSE-CHAR ...)
; x-compiling (DEFUN DECOMPOSE-STRING ...)
; x-compiling (DEFUN COMPOSITION-HANGUL-SYLLABLE-TYPE ...)
; x-compiling (DEFUN PRIMARY-COMPOSITION ...)
; x-compiling (DEFUN LREF ...)
; x-compiling (DEFUN (SETF LREF) ...)
; x-compiling (DEFUN LLENGTH ...)
; x-compiling (DEFUN LSTRING ...)
; x-compiling (DEFUN LDELETE ...)
; x-compiling (DEFUN CANONICALLY-COMPOSE ...)
; x-compiling (DEFUN NORMALIZE-STRING ...)
; x-compiling (DEFUN NORMALIZED-P ...)
; x-compiling (DEFPARAMETER **SPECIAL-TITLECASES** ...)
; x-compiling (DEFPARAMETER **SPECIAL-CASEFOLDS** ...)
; x-compiling (DEFUN HAS-CASE-P ...)
; x-compiling (DEFUN CHAR-UPPERCASE ...)
; x-compiling (DEFUN CHAR-LOWERCASE ...)
; x-compiling (DEFUN CHAR-TITLECASE ...)
; x-compiling (DEFUN CHAR-FOLDCASE ...)
; x-compiling (DEFUN STRING-SOMETHINGCASE ...)
; x-compiling (DECLAIM (TYPE FUNCTION ...))
; x-compiling (DEFUN GET-USER-LOCALE ...)
; x-compiling (DEFUN UPPERCASE ...)
; x-compiling (DEFUN LOWERCASE ...)
; x-compiling (DEFUN TITLECASE ...)
; x-compiling (DEFUN CASEFOLD ...)
; x-compiling (DEFVAR *OTHER-BREAK-SPECIAL-GRAPHEMES* ...)
; x-compiling (DEFUN GRAPHEME-BREAK-CLASS ...)
; x-compiling (DEFUN GRAPHEMES ...)
; x-compiling (DEFUN WORD-BREAK-CLASS ...)
; x-compiling (DEFMACRO FLATPUSH ...)
; x-compiling (DEFUN WORDS ...)
; x-compiling (DEFUN SENTENCE-BREAK-CLASS ...)
; x-compiling (DEFUN SENTENCE-PREBREAK ...)
; x-compiling (DEFUN SENTENCES ...)
; x-compiling (DEFUN LINE-PREBREAK ...)
; x-compiling (DEFUN LINE-BREAK-ANNOTATE ...)
; x-compiling (DEFUN BREAK-LIST-AT ...)
; x-compiling (DEFUN LINES ...)
; x-compiling (DEFPARAMETER **MAXIMUM-VARIABLE-PRIMARY-ELEMENT** ...)
; x-compiling (DEFUN UNPACK-COLLATION-KEY ...)
; x-compiling (DEFUN VARIABLE-P ...)
; x-compiling (DEFUN COLLATION-KEY ...)
; x-compiling (DEFUN SORT-KEY ...)
; x-compiling (DEFUN VECTOR< ...)
; x-compiling (DEFUN UNICODE= ...)
; x-compiling (DEFUN UNICODE-EQUAL ...)
; x-compiling (DEFUN UNICODE< ...)
; x-compiling (DEFUN UNICODE<= ...)
; x-compiling (DEFUN UNICODE> ...)
; x-compiling (DEFUN UNICODE>= ...)
; x-compiling (DEFUN CANONICALLY-DECONFUSE ...)
; x-compiling (DEFUN CONFUSABLE-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-unicode.lisp-obj-tmp written
; compilation finished in 0:00:13.155
; compiling file "/«PKGBUILDDIR»/src/code/target-misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %FUN-FUN ...)
; x-compiling (DEFUN %FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN (SETF %FUN-LAMBDA-LIST) ...)
; x-compiling (DEFUN %FUN-TYPE ...)
; x-compiling (!DEFGLOBAL *CLOSURE-NAME-MARKER* ...)
; x-compiling (DEFUN CLOSURE-NAME ...)
; x-compiling (DEFUN NAMEIFY-CLOSURE ...)
; x-compiling (DEFUN SET-CLOSURE-NAME ...)
; x-compiling (DEFUN %FUN-NAME ...)
; x-compiling (DEFUN (SETF %FUN-NAME) ...)
; x-compiling (DEFUN %FUN-DOC ...)
; x-compiling (DEFUN (SETF %FUN-DOC) ...)
; x-compiling (DEFUN CODE-N-UNBOXED-DATA-WORDS ...)
; x-compiling (DEFVAR *FEATURES* ...)

; file: /«PKGBUILDDIR»/src/code/target-misc.lisp
; in: DEFUN MACHINE-INSTANCE
;     (DEFUN MACHINE-INSTANCE ()
;       "Return a string giving the name of the local machine."
;       (SB!UNIX:UNIX-GETHOSTNAME))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA MACHINE-INSTANCE
;         NIL
;       (BLOCK MACHINE-INSTANCE (SB!UNIX:UNIX-GETHOSTNAME)))
; 
; note: type assertion too complex to check:
;  (VALUES
;   (OR (SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;       NULL)
;   &OPTIONAL).
; x-compiling (DEFUN MACHINE-INSTANCE ...)
; x-compiling (DEFVAR *MACHINE-VERSION*)
; x-compiling (DEFUN MACHINE-VERSION ...)
; x-compiling (DEFVAR *SHORT-SITE-NAME* ...)
; x-compiling (DEFVAR *LONG-SITE-NAME* ...)
; x-compiling (DEFUN SHORT-SITE-NAME ...)
; x-compiling (DEFUN LONG-SITE-NAME ...)
; x-compiling (DEFVAR *ED-FUNCTIONS* ...)
; x-compiling (DEFUN ED ...)
; x-compiling (DEFVAR *PREVIOUS-DRIBBLE-STREAMS* ...)
; x-compiling (DEFVAR *DRIBBLE-STREAM* ...)
; x-compiling (DEFUN DRIBBLE ...)
; x-compiling (DEFUN %BYTE-BLT ...)
; x-compiling (DEFVAR *LOAD-PRINT* ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFVAR *LOAD-VERBOSE* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-misc.lisp-obj-tmp written
; compilation finished in 0:00:01.403
; compiling file "/«PKGBUILDDIR»/src/code/misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...)
; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/misc.lisp-obj-tmp written
; compilation finished in 0:00:00.035
; compiling file "/«PKGBUILDDIR»/src/code/room.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!STRUCT (ROOM-INFO #) ...)
; x-compiling (DEFUN ROOM-INFO-TYPE-NAME ...)
; x-compiling (DEFPARAMETER *ROOM-INFO* ...)
; x-compiling (DEFTYPE SPACES ...)
; x-compiling (DECLAIM (TYPE FIXNUM ...))
; x-compiling (DEFUN SPACE-BOUNDS ...)
; x-compiling (DEFUN SPACE-BYTES ...)
; x-compiling (DECLAIM (INLINE ROUND-TO-DUALWORD))
; x-compiling (DEFUN ROUND-TO-DUALWORD ...)
; x-compiling (DEFUN RECONSTITUTE-VECTOR ...)

; file: /«PKGBUILDDIR»/src/code/room.lisp
; in: DEFUN RECONSTITUTE-OBJECT
;     (ERROR "Unrecognized room-info-kind ~S in reconstitute-object"
;            (SB!VM::ROOM-INFO-KIND SB!INT:INFO))
; ==>
;   "Unrecognized room-info-kind ~S in reconstitute-object"
; 
; note: deleting unreachable code
; x-compiling (DEFUN RECONSTITUTE-OBJECT ...)
; x-compiling (DEFUN MAP-OBJECTS-IN-RANGE ...)
; x-compiling (DEFINE-ALIEN-TYPE (STRUCT PAGE) ...)
; x-compiling (DECLAIM (INLINE FIND-PAGE-INDEX))
; x-compiling (DEFINE-ALIEN-ROUTINE "find_page_index" ...)
; x-compiling (DEFINE-ALIEN-VARIABLE "last_free_page" ...)
; x-compiling (DEFINE-ALIEN-VARIABLE "heap_base" ...)
; x-compiling (DEFINE-ALIEN-VARIABLE "page_table" ...)
; x-compiling (DECLAIM (MAYBE-INLINE MAP-ALLOCATED-OBJECTS))
; x-compiling (DEFUN MAP-ALLOCATED-OBJECTS ...)

; file: /«PKGBUILDDIR»/src/code/room.lisp
; in: DEFUN TYPE-BREAKDOWN
;     (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE)
; --> LET* 
; ==>
;   (+ SB!VM::SIZE (AREF #:SIZES411 #:TYPE412))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (INCF (AREF SB!VM::COUNTS TYPE))
; --> LET* 
; ==>
;   (+ 1 (AREF #:COUNTS414 #:TYPE415))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.

;     (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE)
; --> LET* 
; ==>
;   (+ SB!VM::SIZE (AREF #:SIZES411 #:TYPE412))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the second argument of static-fun Two-arg-+

;     (INCF (AREF SB!VM::COUNTS TYPE))
; --> LET* 
; ==>
;   (+ 1 (AREF #:COUNTS414 #:TYPE415))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

; --> LET* FUNCALL SB!C::%FUNCALL (SETF AREF) 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (ARRAY) (SB!INT:INDEX) &REST #:G449)
;       (DECLARE (IGNORE #:G449))
;       (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) 1) ARRAY)
;                (TYPE (UNSIGNED-BYTE 32) SB!C::NEW-VALUE))
;       (SB!KERNEL:DATA-VECTOR-SET ARRAY SB!INT:INDEX SB!C::NEW-VALUE))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; x-compiling (DEFUN TYPE-BREAKDOWN ...)
; x-compiling (DEFUN PRINT-SUMMARY ...)
; x-compiling (DEFUN REPORT-SPACE-TOTAL ...)
; x-compiling (DEFUN MEMORY-USAGE ...)

; file: /«PKGBUILDDIR»/src/code/room.lisp
; in: DEFUN INSTANCE-USAGE
;     (INCF SB!VM::TOTAL-OBJECTS)
; --> SETQ THE 
; ==>
;   (+ 1 SB!VM::TOTAL-OBJECTS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       etc.

;     (INCF SB!VM::TOTAL-BYTES SB!VM::SIZE)
; --> SETQ THE 
; ==>
;   (+ SB!VM::SIZE SB!VM::TOTAL-BYTES)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER 
; --> LET OR LET IF OR LET IF OR THE TYPEP LET SB!C::%TYPEP-WRAPPER LET AND IF 
; --> AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (INTEGER -536870912), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -536870912), not a FIXNUM.
;       etc.

;     (INCF (THE FIXNUM (CAR SB!VM::FOUND)))
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (THE FIXNUM (VALUES #:NEW546))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (INCF (THE FIXNUM (CDR SB!VM::FOUND)) SB!VM::SIZE)
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (THE FIXNUM (VALUES #:NEW548))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; x-compiling (DEFUN INSTANCE-USAGE ...)
; x-compiling (DEFUN PRINT-ALLOCATED-OBJECTS ...)
; x-compiling (DEFVAR *IGNORE-AFTER* ...)
; x-compiling (DEFUN VALID-OBJ ...)
; x-compiling (DEFUN MAYBE-CONS ...)
; x-compiling (DEFUN LIST-ALLOCATED-OBJECTS ...)
; x-compiling (DEFUN MAP-STACK-REFERENCES ...)
; x-compiling (DEFUN MAP-REFERENCING-OBJECTS ...)
; 
; compilation unit finished
;   printed 11 notes
; x-compiling (DEFUN LIST-REFERENCING-OBJECTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/room.lisp-obj-tmp written
; compilation finished in 0:00:05.010
; compiling file "/«PKGBUILDDIR»/src/code/stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *TERMINAL-IO* ...)
; x-compiling (DEFVAR *STANDARD-INPUT* ...)
; x-compiling (DEFVAR *STANDARD-OUTPUT* ...)
; x-compiling (DEFVAR *ERROR-OUTPUT* ...)
; x-compiling (DEFVAR *QUERY-IO* ...)
; x-compiling (DEFVAR *TRACE-OUTPUT* ...)
; x-compiling (DEFVAR *DEBUG-IO* ...)
; x-compiling (DEFUN ILL-IN ...)
; x-compiling (DEFUN ILL-OUT ...)
; x-compiling (DEFUN ILL-BIN ...)
; x-compiling (DEFUN ILL-BOUT ...)
; x-compiling (DEFUN CLOSED-FLAME ...)
; x-compiling (DEFUN NO-OP-PLACEHOLDER ...)
; x-compiling (DEFUN ANSI-STREAM-INPUT-STREAM-P ...)
; x-compiling (DEFUN INPUT-STREAM-P ...)
; x-compiling (DEFUN ANSI-STREAM-OUTPUT-STREAM-P ...)
; x-compiling (DEFUN OUTPUT-STREAM-P ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-OPEN-STREAM-P))
; x-compiling (DEFUN ANSI-STREAM-OPEN-STREAM-P ...)
; x-compiling (DEFUN OPEN-STREAM-P ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-ELEMENT-TYPE))
; x-compiling (DEFUN ANSI-STREAM-ELEMENT-TYPE ...)
; x-compiling (DEFUN STREAM-ELEMENT-TYPE ...)
; x-compiling (DEFUN STREAM-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN INTERACTIVE-STREAM-P ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLOSE))
; x-compiling (DEFUN ANSI-STREAM-CLOSE ...)
; x-compiling (DEFUN CLOSE ...)
; x-compiling (DEFUN SET-CLOSED-FLAME ...)
; x-compiling (DEFUN EXTERNAL-FORMAT-CHAR-SIZE ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-FILE-POSITION))
; x-compiling (DEFUN ANSI-STREAM-FILE-POSITION ...)
; x-compiling (DEFUN FILE-POSITION ...)
; x-compiling (DEFUN STREAM-ASSOCIATED-WITH-FILE-P ...)
; x-compiling (DEFUN STREAM-MUST-BE-ASSOCIATED-WITH-FILE ...)
; x-compiling (DEFUN FILE-LENGTH ...)
; x-compiling (DEFUN FILE-STRING-LENGTH ...)
; x-compiling (DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-LINE))
; x-compiling (DEFUN ANSI-STREAM-READ-LINE ...)
; x-compiling (DEFUN READ-LINE ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DECLAIM (INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN)
;     (DECLAIM (INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:READ-CHAR to be INLINE, but 1 call to it was previously
;   compiled. A declaration of NOTINLINE at the call site will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:UNREAD-CHAR to be INLINE, but 2 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE READ-CHAR ...))
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR))
; x-compiling (DEFUN ANSI-STREAM-READ-CHAR ...)
; x-compiling (DEFUN READ-CHAR ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-UNREAD-CHAR))
; x-compiling (DEFUN ANSI-STREAM-UNREAD-CHAR ...)
; x-compiling (DEFUN UNREAD-CHAR ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-LISTEN))
; x-compiling (DEFUN ANSI-STREAM-LISTEN ...)
; x-compiling (DEFUN LISTEN ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR-NO-HANG))
; x-compiling (DEFUN ANSI-STREAM-READ-CHAR-NO-HANG ...)
; x-compiling (DEFUN READ-CHAR-NO-HANG ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLEAR-INPUT))
; x-compiling (DEFUN ANSI-STREAM-CLEAR-INPUT ...)
; x-compiling (DEFUN CLEAR-INPUT ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-BYTE))
; x-compiling (DEFUN ANSI-STREAM-READ-BYTE ...)
; x-compiling (DEFUN READ-BYTE ...)
; x-compiling (DECLAIM (INLINE READ-N-BYTES))
; x-compiling (DEFUN READ-N-BYTES ...)
; x-compiling (DEFUN ANSI-STREAM-READ-N-BYTES ...)
; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-EXTRA+ ...)
; x-compiling (DEFUN FAST-READ-CHAR-REFILL ...)
; x-compiling (DEFUN FAST-READ-BYTE-REFILL ...)
; x-compiling (DEFUN WRITE-CHAR ...)
; x-compiling (DEFUN TERPRI ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-FRESH-LINE))
; x-compiling (DEFUN ANSI-STREAM-FRESH-LINE ...)
; x-compiling (DEFUN FRESH-LINE ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-WRITE-STRING))
; x-compiling (DEFUN ANSI-STREAM-WRITE-STRING ...)
; x-compiling (DEFUN %WRITE-STRING ...)
; x-compiling (DEFUN WRITE-STRING ...)
; x-compiling (DEFUN WRITE-LINE ...)
; x-compiling (DEFUN CHARPOS ...)
; x-compiling (DEFUN LINE-LENGTH ...)
; x-compiling (DEFUN FINISH-OUTPUT ...)
; x-compiling (DEFUN FORCE-OUTPUT ...)
; x-compiling (DEFUN CLEAR-OUTPUT ...)
; x-compiling (DEFUN WRITE-BYTE ...)
; x-compiling (DECLAIM (NOTINLINE READ-CHAR ...))
; x-compiling (DEFUN STREAM-MISC-DISPATCH ...)
; x-compiling (DEFSTRUCT (BROADCAST-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE BROADCAST-STREAM))
; x-compiling (DEFUN MAKE-BROADCAST-STREAM ...)
; x-compiling (OUT-FUN BROADCAST-OUT ...)
; x-compiling (OUT-FUN BROADCAST-BOUT ...)
; x-compiling (OUT-FUN BROADCAST-SOUT ...)
; x-compiling (DEFUN BROADCAST-MISC ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFSTRUCT SYNONYM-STREAM
;     (DEFSTRUCT
;         (SYNONYM-STREAM
;          (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::IN #'SB!IMPL::SYNONYM-IN)
;           (SB!IMPL::BIN #'SB!IMPL::SYNONYM-BIN)
;           (SB!IMPL::N-BIN #'SB!IMPL::SYNONYM-N-BIN)
;           (SB!IMPL::OUT #'SB!IMPL::SYNONYM-OUT)
;           (SB!IMPL::BOUT #'SB!IMPL::SYNONYM-BOUT)
;           (SB!IMPL::SOUT #'SB!IMPL::SYNONYM-SOUT)
;           (SB!IMPL::MISC #'SB!IMPL::SYNONYM-MISC))
;          (:CONSTRUCTOR MAKE-SYNONYM-STREAM (SYMBOL)) (:COPIER NIL))
;       (SYMBOL NIL :TYPE SYMBOL :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SYNONYM-STREAM {55D6BBD1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53EAAC79}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53A94A39}>
;       #<SB!KERNEL:LAYOUT for STREAM {53F47489}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {543B64B1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!IMPL::SYNONYM-STREAM-P and
;   COMMON-LISP:SYNONYM-STREAM-SYMBOL could not be inlined because the structure
;   definition for COMMON-LISP:SYNONYM-STREAM was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (SYNONYM-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE SYNONYM-STREAM))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (OUT-FUN SYNONYM-OUT ...)
; x-compiling (OUT-FUN SYNONYM-BOUT ...)
; x-compiling (OUT-FUN SYNONYM-SOUT ...)
; x-compiling (IN-FUN SYNONYM-IN ...)
; x-compiling (IN-FUN SYNONYM-BIN ...)
; x-compiling (IN-FUN SYNONYM-N-BIN ...)
; x-compiling (DEFUN SYNONYM-MISC ...)
; x-compiling (DEFSTRUCT (TWO-WAY-STREAM # ...) ...)
; x-compiling (DEFPRINTER (TWO-WAY-STREAM) ...)
; x-compiling (DEFUN MAKE-TWO-WAY-STREAM ...)
; x-compiling (OUT-FUN TWO-WAY-OUT ...)
; x-compiling (OUT-FUN TWO-WAY-BOUT ...)
; x-compiling (OUT-FUN TWO-WAY-SOUT ...)
; x-compiling (IN-FUN TWO-WAY-IN ...)
; x-compiling (IN-FUN TWO-WAY-BIN ...)
; x-compiling (IN-FUN TWO-WAY-N-BIN ...)
; x-compiling (DEFUN TWO-WAY-MISC ...)
; x-compiling (DEFSTRUCT (CONCATENATED-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE CONCATENATED-STREAM))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN MAKE-CONCATENATED-STREAM ...)
; x-compiling (IN-FUN CONCATENATED-IN ...)
; x-compiling (IN-FUN CONCATENATED-BIN ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN CONCATENATED-N-BIN
;     (SB!SYS:READ-N-BYTES STREAM SB!IMPL::BUFFER SB!IMPL::CURRENT-START
;      SB!IMPL::REMAINING-BYTES NIL)
; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN CONCATENATED-N-BIN ...)
; x-compiling (DEFUN CONCATENATED-MISC ...)
; x-compiling (DEFSTRUCT (ECHO-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE ECHO-STREAM))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN MAKE-ECHO-STREAM ...)
; x-compiling (IN-FUN ECHO-IN ...)
; x-compiling (IN-FUN ECHO-BIN ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN ECHO-N-BIN
;     (SB!SYS:READ-N-BYTES (ECHO-STREAM-INPUT-STREAM STREAM) SB!IMPL::BUFFER
;      SB!IMPL::START SB!IMPL::NUMBYTES NIL)
; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN ECHO-N-BIN ...)
; x-compiling (DEFSTRUCT (STRING-INPUT-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE STRING-INPUT-STREAM))
; x-compiling (DEFUN STRING-INCH ...)
; x-compiling (DEFUN STRING-BINCH ...)
; x-compiling (DEFUN STRING-STREAM-READ-N-BYTES ...)
; x-compiling (DEFUN STRING-IN-MISC ...)
; x-compiling (DEFUN MAKE-STRING-INPUT-STREAM ...)
; x-compiling (DEFPARAMETER *STRING-OUTPUT-STREAM-BUFFER-INITIAL-SIZE* ...)
; x-compiling (DEFSTRUCT (STRING-OUTPUT-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE STRING-OUTPUT-STREAM))
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEW-BUFFER ...)
; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEXT-BUFFER ...)
; x-compiling (DEFUN STRING-OUTPUT-STREAM-PREV-BUFFER ...)
; x-compiling (DEFUN STRING-OUCH ...)
; x-compiling (DEFUN STRING-SOUT ...)
; x-compiling (DEFUN SET-STRING-OUTPUT-STREAM-FILE-POSITION ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN STRING-OUT-MISC
;     (+ SB!IMPL::BASE
;        (IF SB!IMPL::POS
;            (- SB!IMPL::POINTER SB!IMPL::POS 1)
;            SB!IMPL::POINTER))
; 
; 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).

;     (+ SB!IMPL::BASE SB!IMPL::POINTER)
; 
; 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).

;     (LENGTH SB!IMPL::BUFFER)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (SIMPLE-ARRAY CHARACTER
;                                (*))), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))), not a VECTOR.

;     (+ SB!IMPL::BASE SB!IMPL::POINTER)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       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.

;     (+ SB!IMPL::BASE
;        (IF SB!IMPL::POS
;            (- SB!IMPL::POINTER SB!IMPL::POS 1)
;            SB!IMPL::POINTER))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       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.
; x-compiling (DEFUN STRING-OUT-MISC ...)
; x-compiling (DEFUN GET-OUTPUT-STREAM-STRING ...)
; x-compiling (DECLAIM (INLINE VECTOR-WITH-FILL-POINTER-P))
; x-compiling (DEFUN VECTOR-WITH-FILL-POINTER-P ...)
; x-compiling (DEFTYPE STRING-WITH-FILL-POINTER ...)
; x-compiling (DEFSTRUCT (FILL-POINTER-OUTPUT-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE FILL-POINTER-OUTPUT-STREAM))

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN FILL-POINTER-OUCH
;     (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'CHARACTER)
; ==>
;   SB!IMPL::NEW-LENGTH
; 
; note: deleting unreachable code

;     (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'BASE-CHAR)
; ==>
;   SB!IMPL::NEW-LENGTH
; 
; note: deleting unreachable code
; x-compiling (DEFUN FILL-POINTER-OUCH ...)
; x-compiling (DEFUN FILL-POINTER-SOUT ...)
; x-compiling (DEFUN FILL-POINTER-MISC ...)
; x-compiling (DEFSTRUCT (CASE-FROB-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE CASE-FROB-STREAM))
; x-compiling (DEFUN MAKE-CASE-FROB-STREAM ...)
; x-compiling (DEFUN CASE-FROB-MISC ...)
; x-compiling (DEFUN CASE-FROB-UPCASE-OUT ...)
; x-compiling (DEFUN CASE-FROB-UPCASE-SOUT ...)
; x-compiling (DEFUN CASE-FROB-DOWNCASE-OUT ...)
; x-compiling (DEFUN CASE-FROB-DOWNCASE-SOUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-OUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-SOUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-OUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-SOUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-OUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-SOUT ...)
; x-compiling (DEFUN READ-SEQUENCE ...)
; x-compiling (DECLAIM (INLINE COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P))
; x-compiling (DEFUN COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN ANSI-STREAM-READ-SEQUENCE
;     (SB!SYS:READ-N-BYTES STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START
;      SB!IMPL::NUMBYTES NIL)
; --> BLOCK IF LET* + 
; ==>
;   SB!IMPL::NUMBYTES
; 
; note: deleting unreachable code

; --> BLOCK IF LET* SB!GRAY:STREAM-READ-SEQUENCE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (DEFUN SB!IMPL::ANSI-STREAM-READ-SEQUENCE
;            (SB!IMPL::SEQ STREAM SB!IMPL::START SB!IMPL::%END)
;       (DECLARE (TYPE SEQUENCE SB!IMPL::SEQ)
;                (TYPE SB!KERNEL:ANSI-STREAM STREAM)
;                (TYPE SB!INT:INDEX SB!IMPL::START)
;                (TYPE SB!KERNEL:SEQUENCE-END SB!IMPL::%END)
;                (VALUES SB!INT:INDEX))
;       (LET ((SB!IMPL::END (OR SB!IMPL::%END #)))
;         (DECLARE (TYPE SB!INT:INDEX SB!IMPL::END))
;         (ETYPECASE SB!IMPL::SEQ
;           (LIST
;            (LET #
;              #))
;           (VECTOR (SB!KERNEL:WITH-ARRAY-DATA # #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES (MOD 536870909) &REST T)
;        (PROGN
;         (BLOCK SB!IMPL::ANSI-STREAM-READ-SEQUENCE
;           (LET (#)
;             (DECLARE #)
;             (ETYPECASE SB!IMPL::SEQ # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES (MOD 536870909) &REST T).
; x-compiling (DEFUN ANSI-STREAM-READ-SEQUENCE ...)
; x-compiling (DEFUN ANSI-STREAM-READ-STRING-FROM-FRC-BUFFER ...)
; x-compiling (DEFUN WRITE-SEQUENCE ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 16 notes
; x-compiling (DEFUN ANSI-STREAM-WRITE-SEQUENCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/stream.lisp-obj-tmp written
; compilation finished in 0:00:19.813
; compiling file "/«PKGBUILDDIR»/src/code/print.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *PRINT-READABLY* ...)
; x-compiling (!DEFVAR *PRINT-ESCAPE* ...)
; x-compiling (!DEFVAR *PRINT-PRETTY* ...)
; x-compiling (!DEFVAR *PRINT-BASE* ...)
; x-compiling (!DEFVAR *PRINT-RADIX* ...)
; x-compiling (!DEFVAR *PRINT-LEVEL* ...)
; x-compiling (!DEFVAR *PRINT-LENGTH* ...)
; x-compiling (!DEFVAR *PRINT-CIRCLE* ...)
; x-compiling (!DEFVAR *PRINT-CASE* ...)
; x-compiling (!DEFVAR *PRINT-ARRAY* ...)
; x-compiling (!DEFVAR *PRINT-GENSYM* ...)
; x-compiling (DEFVAR *PRINT-LINES* ...)
; x-compiling (DEFVAR *PRINT-RIGHT-MARGIN* ...)
; x-compiling (DEFVAR *PRINT-MISER-WIDTH* ...)
; x-compiling (DEFVAR *PRINT-PPRINT-DISPATCH*)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (!DEFVAR *SUPPRESS-PRINT-ERRORS* ...)
; x-compiling (DEFMACRO WITH-STANDARD-IO-SYNTAX ...)
; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...)
; x-compiling (DEFUN %WITH-STANDARD-IO-SYNTAX ...)
; x-compiling (DEFUN WRITE ...)
; x-compiling (DEFUN PRIN1 ...)
; x-compiling (DEFUN PRINC ...)
; x-compiling (DEFUN PRINT ...)
; x-compiling (DEFUN PPRINT ...)
; x-compiling (DEFUN WRITE-TO-STRING ...)
; x-compiling (DEFUN PRIN1-TO-STRING ...)
; x-compiling (DEFUN PRINC-TO-STRING ...)
; x-compiling (DEFUN STRINGIFY-OBJECT ...)
; x-compiling (DEFUN PRINT-NOT-READABLE-ERROR ...)
; x-compiling (DEFUN %PRINT-UNREADABLE-OBJECT ...)
; x-compiling (DEFUN UNIQUELY-IDENTIFIED-BY-PRINT-P ...)
; x-compiling (DEFVAR *IN-PRINT-ERROR* ...)
; x-compiling (DEFUN OUTPUT-OBJECT ...)
; x-compiling (DEFVAR *PRINT-OBJECT-IS-DISABLED-P*)
; x-compiling (DEFUN OUTPUT-UGLY-OBJECT ...)
; x-compiling (DEFVAR *PREVIOUS-CASE* ...)
; x-compiling (DEFVAR *PREVIOUS-READTABLE-CASE* ...)
; x-compiling (DEFVAR *INTERNAL-SYMBOL-OUTPUT-FUN* ...)
; x-compiling (DECLAIM (FUNCTION *INTERNAL-SYMBOL-OUTPUT-FUN*))
; x-compiling (DEFUN OUTPUT-QUOTED-SYMBOL-NAME ...)
; x-compiling (DEFUN OUTPUT-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-SYMBOL-NAME ...)
; x-compiling (DEFVAR *CHARACTER-ATTRIBUTES* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFCONSTANT OTHER-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT NUMBER-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT UPPERCASE-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT LOWERCASE-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT SIGN-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT EXTENSION-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT DOT-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT SLASH-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT FUNNY-ATTRIBUTE ...)
; x-compiling (DEFPARAMETER *ATTRIBUTE-NAMES* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *DIGIT-BASES* ...)
; x-compiling (DEFUN !PRINTER-COLD-INIT ...)
; x-compiling (DEFUN SYMBOL-QUOTEP ...)
; x-compiling (DEFUN OUTPUT-PRESERVE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-LOWERCASE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-UPPERCASE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-CAPITALIZE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-INVERT-SYMBOL ...)
; x-compiling (DEFUN SETUP-PRINTER-STATE ...)
; x-compiling (DEFUN OUTPUT-LIST ...)
; x-compiling (DEFUN OUTPUT-UNREADABLE-VECTOR-READABLY ...)
; x-compiling (DEFUN OUTPUT-VECTOR ...)
; x-compiling (DEFUN QUOTE-STRING ...)
; x-compiling (DEFUN ARRAY-READABLY-PRINTABLE-P ...)
; x-compiling (DEFUN OUTPUT-ARRAY ...)
; x-compiling (DEFUN OUTPUT-TERSE-ARRAY ...)
; x-compiling (DEFUN LISTIFY-ARRAY ...)
; x-compiling (DEFUN OUTPUT-UNREADABLE-ARRAY-READABLY ...)
; x-compiling (DEFUN OUTPUT-ARRAY-GUTS ...)
; x-compiling (DEFUN SUB-OUTPUT-ARRAY-GUTS ...)
; x-compiling (DEFUN PRINT-OBJECT ...)
; x-compiling (DEFUN %OUTPUT-RADIX ...)
; x-compiling (DEFUN %OUTPUT-REASONABLE-INTEGER-IN-BASE ...)
; x-compiling (DEFVAR *POWER-CACHE* ...)
; x-compiling (DEFCONSTANT +POWER-CACHE-INTEGER-LENGTH-LIMIT+ ...)
; x-compiling (DEFUN SCRUB-POWER-CACHE ...)
; x-compiling (DEFUN POWERS-FOR-BASE ...)
; x-compiling (DEFUN %OUTPUT-HUGE-INTEGER-IN-BASE ...)
; x-compiling (DEFUN %OUTPUT-INTEGER-IN-BASE ...)
; x-compiling (DEFUN OUTPUT-INTEGER ...)
; x-compiling (DEFUN OUTPUT-RATIO ...)
; x-compiling (DEFUN OUTPUT-COMPLEX ...)
; x-compiling (DEFUN FLONUM-TO-STRING ...)
; x-compiling (DEFCONSTANT SINGLE-FLOAT-MIN-E ...)
; x-compiling (DEFCONSTANT DOUBLE-FLOAT-MIN-E ...)
; x-compiling (DEFUN FLONUM-TO-DIGITS ...)
; x-compiling (DEFUN SCALE-EXPONENT ...)
; x-compiling (DEFUN PRINT-FLOAT-EXPONENT ...)
; x-compiling (DEFUN OUTPUT-FLOAT-INFINITY ...)
; x-compiling (DEFUN OUTPUT-FLOAT-NAN ...)
; x-compiling (DEFUN OUTPUT-FLOAT ...)
; x-compiling (DEFUN OUTPUT-FLOAT-AUX ...)
; x-compiling (DEFUN OUTPUT-CHARACTER ...)
; x-compiling (DEFUN OUTPUT-SAP ...)
; x-compiling (DEFUN OUTPUT-WEAK-POINTER ...)
; x-compiling (DEFUN OUTPUT-CODE-COMPONENT ...)
; x-compiling (DEFUN OUTPUT-LRA ...)
; x-compiling (DEFUN OUTPUT-FDEFN ...)
; x-compiling (DEFUN PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...)
; x-compiling (DEFUN OUTPUT-FUN ...)

; file: /«PKGBUILDDIR»/src/code/print.lisp
; in: DEFUN OUTPUT-OBJECT
;     (HANDLER-BIND ((CONDITION (LAMBDA (CONDITION) NIL (WHEN # # #))))
;       (SB!IMPL::PRINT-IT STREAM))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

;     (WITH-SIMPLE-RESTART (CONTINUE "Suppress the error.") (SIGNAL CONDITION))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION CONDITION (LIST) 'SIMPLE-CONDITION 'SIGNAL)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN PRINT-NOT-READABLE-ERROR
;     (RESTART-CASE (ERROR 'PRINT-NOT-READABLE :OBJECT SB!IMPL::OBJECT)
;       (SB!EXT:PRINT-UNREADABLY NIL :REPORT "Print unreadably."
;        (LET ((*PRINT-READABLY* NIL))
;          (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::OBJECT STREAM)
;          SB!IMPL::OBJECT))
;       (USE-VALUE (SB!IMPL::O) :REPORT "Supply an object to be printed instead."
;                  :INTERACTIVE
;                  (LAMBDA ()
;                    (SB!INT:READ-EVALUATED-FORM
;                     "~@<Enter an object (evaluated): ~@:>"))
;                  (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::O STREAM) SB!IMPL::O))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'PRINT-NOT-READABLE
;                                  (LIST :OBJECT SB!IMPL::OBJECT) 'SIMPLE-ERROR
;                                  'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN OUTPUT-RANDOM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/print.lisp-obj-tmp written
; compilation finished in 0:00:14.102
; compiling file "/«PKGBUILDDIR»/src/code/early-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FORMAT")
; x-compiling (DEFPARAMETER *FORMAT-WHITESPACE-CHARS* ...)
; x-compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...)
; x-compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...)
; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...)
; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...)
; x-compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...)
; x-compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...)
; x-compiling (DEFVAR *ONLY-SIMPLE-ARGS*)
; x-compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...)
; x-compiling (DEFVAR *SIMPLE-ARGS*)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-format.lisp-obj-tmp written
; compilation finished in 0:00:00.226
; compiling file "/«PKGBUILDDIR»/src/code/target-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FORMAT")
; x-compiling (DEFUN FORMAT ...)

; file: /«PKGBUILDDIR»/src/code/target-format.lisp
; in: DEFINE-COMPILER-MACRO FORMAT
;     (DEFINE-COMPILER-MACRO FORMAT
;         (&WHOLE SB!KERNEL:FORM SB!FORMAT::DESTINATION SB!FORMAT::CONTROL &REST
;          SB!FORMAT::ARGS)
;       (DECLARE (IGNORE SB!FORMAT::CONTROL SB!FORMAT::ARGS))
;       (WHEN (STRINGP SB!FORMAT::DESTINATION)
;         (WARN "Literal string as destination in FORMAT:~%  ~S" SB!KERNEL:FORM))
;       SB!KERNEL:FORM)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'FORMAT
;                                 #'(LAMBDA (#:WHOLE11 #:ENVIRONMENT12)
;                                     (DECLARE (IGNORE #:ENVIRONMENT12))
;                                     (LET* ((#:CMACRO-&WHOLE25781 #:WHOLE11)
;                                            (#:WHOLE11 #))
;                                       (DECLARE
;                                        (IGNORABLE #:CMACRO-&WHOLE25781))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # #)
;                                         (DECLARE #)
;                                         (BLOCK FORMAT # SB!KERNEL:FORM))))
;                                 '(&WHOLE SB!KERNEL:FORM SB!FORMAT::DESTINATION
;                                   SB!FORMAT::CONTROL &REST SB!FORMAT::ARGS)
;                                 NIL '(COMPILER-MACRO-FUNCTION FORMAT))
; 
; caught STYLE-WARNING:
;   56 calls to COMMON-LISP:FORMAT were compiled before a compiler-macro was
;   defined for it. A declaration of NOTINLINE at the call sites will eliminate
;   this warning, as will defining the compiler-macro before its first potential
;   use.
; x-compiling (DEFINE-COMPILER-MACRO FORMAT ...)
; x-compiling (DEFUN %FORMAT ...)
; x-compiling (DEFUN INTERPRET-DIRECTIVE-LIST ...)
; x-compiling (DEFUN FORMAT-WRITE-FIELD ...)
; x-compiling (DEFUN FORMAT-PRINC ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\A ...)
; x-compiling (DEFUN FORMAT-PRIN1 ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\S ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\C ...)
; x-compiling (DEFUN CHAR-PRINTING-P ...)
; x-compiling (DEFUN FORMAT-PRINT-NAMED-CHARACTER ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\W ...)
; x-compiling (DEFUN FORMAT-PRINT-INTEGER ...)
; x-compiling (DEFUN FORMAT-ADD-COMMAS ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\D ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\B ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\O ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\X ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\R ...)
; x-compiling (DEFPARAMETER *CARDINAL-ONES* ...)
; x-compiling (DEFPARAMETER *CARDINAL-TENS* ...)
; x-compiling (DEFPARAMETER *CARDINAL-TEENS* ...)
; x-compiling (DEFPARAMETER *CARDINAL-PERIODS* ...)
; x-compiling (DEFPARAMETER *ORDINAL-ONES* ...)
; x-compiling (DEFPARAMETER *ORDINAL-TENS* ...)
; x-compiling (DEFUN FORMAT-PRINT-SMALL-CARDINAL ...)
; x-compiling (DEFUN FORMAT-PRINT-CARDINAL ...)
; x-compiling (DEFUN FORMAT-PRINT-CARDINAL-AUX ...)
; x-compiling (DEFUN FORMAT-PRINT-ORDINAL ...)
; x-compiling (DEFUN FORMAT-PRINT-OLD-ROMAN ...)
; x-compiling (DEFUN FORMAT-PRINT-ROMAN ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\P ...)
; x-compiling (DEFUN DECIMAL-STRING ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\F ...)
; x-compiling (DEFUN FORMAT-FIXED ...)
; x-compiling (DEFUN FORMAT-FIXED-AUX ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\E ...)
; x-compiling (DEFUN FORMAT-EXPONENTIAL ...)
; x-compiling (DEFUN FORMAT-EXPONENT-MARKER ...)
; x-compiling (DEFUN FORMAT-EXP-AUX ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\G ...)
; x-compiling (DEFUN FORMAT-GENERAL ...)
; x-compiling (DEFUN FORMAT-GENERAL-AUX ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\$ ...)
; x-compiling (DEFUN FORMAT-DOLLARS ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\% ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\& ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\| ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\~ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\Newline ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\T ...)
; x-compiling (DEFUN OUTPUT-SPACES ...)
; x-compiling (DEFUN FORMAT-RELATIVE-TAB ...)
; x-compiling (DEFUN FORMAT-ABSOLUTE-TAB ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\_ ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\I ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\* ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\? ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\( ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\) ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\[ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\; ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\] ...)
; x-compiling (DEFVAR *OUTSIDE-ARGS*)
; x-compiling (DEF-FORMAT-INTERPRETER #\^ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\{ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\} ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\< ...)
; x-compiling (DEFUN INTERPRET-FORMAT-JUSTIFICATION ...)
; x-compiling (DEFUN FORMAT-JUSTIFICATION ...)
; x-compiling (DEFUN INTERPRET-FORMAT-LOGICAL-BLOCK ...)

; file: /«PKGBUILDDIR»/src/code/target-format.lisp
; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{
;     (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR
;                     (LAMBDA (CONDITION)
;                       (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT
;                              "~A~%while processing indirect format string:" :ARGS
;                              # :PRINT-BANNER NIL :CONTROL-STRING STRING :OFFSET
;                              #))))
;       (SB!FORMAT::%FORMAT STREAM SB!FORMAT::INSIDES SB!FORMAT::ORIG-ARGS
;        SB!FORMAT::ARGS))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: FORMAT-ERROR

; in: DEF-FORMAT-INTERPRETER #\?
;     (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR
;                     (LAMBDA (CONDITION)
;                       (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT
;                              "~A~%while processing indirect format string:" :ARGS
;                              # :PRINT-BANNER NIL :CONTROL-STRING STRING :OFFSET
;                              #))))
;       (IF SB!FORMAT::ATSIGNP
;           (SETF SB!FORMAT::ARGS
;                   (SB!FORMAT::%FORMAT STREAM # SB!FORMAT::ORIG-ARGS
;                    SB!FORMAT::ARGS))
;           (SB!FORMAT::%FORMAT STREAM (SB!FORMAT::NEXT-ARG)
;            (SB!FORMAT::NEXT-ARG))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: FORMAT-ERROR
; 
; compilation unit finished
;   Undefined type:
;     FORMAT-ERROR
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEF-FORMAT-INTERPRETER #\/ ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-format.lisp-obj-tmp written
; compilation finished in 0:00:08.139
; compiling file "/«PKGBUILDDIR»/src/code/defpackage.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/defpackage.lisp
; in: DEFMACRO DEFPACKAGE
;     (DEFMACRO DEFPACKAGE (PACKAGE &REST SB!IMPL::OPTIONS)
;       "Defines a new package called PACKAGE. Each of OPTIONS should be one of the
;      following: 
;       (USE {package-name}*)
;       (EXPORT {symbol-name}*)
;       (IMPORT-FROM <package-name> {symbol-name}*)
;       (SHADOW {symbol-name}*)
;       (SHADOWING-IMPORT-FROM <package-name> {symbol-name}*)
;       (LOCAL-NICKNAMES {local-nickname actual-package-name}*)
;       (LOCK boolean)
;       (IMPLEMENT {package-name}*)
;       (DOCUMENTATION doc-string)
;       (INTERN {symbol-name}*)
;       (SIZE <integer>)
;       (NICKNAMES {package-name}*)
;      All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple
;      times."
;       (LET ((SB!IMPL::NICKNAMES NIL)
;             (SB!IMPL::LOCAL-NICKNAMES NIL)
;             (SB!IMPL::SIZE NIL)
;             (SB!IMPL::SHADOWS NIL)
;             (SB!IMPL::SHADOWING-IMPORTS NIL)
;             (SB!IMPL::USE NIL)
;             (SB!IMPL::USE-P NIL)
;             (SB!IMPL::IMPORTS NIL)
;             (SB!IMPL::INTERNS NIL)
;             (SB!IMPL::EXPORTS NIL)
;             (SB!IMPL::IMPLEMENT (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATORS #))
;             (SB!IMPL::IMPLEMENT-P NIL)
;             ...)
;         (DOLIST (SB!IMPL::OPTION SB!IMPL::OPTIONS)
;           (UNLESS (CONSP SB!IMPL::OPTION)
;             (ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL
;                    "bogus DEFPACKAGE option: ~S" :FORMAT-ARGUMENTS #))
;           (CASE (CAR SB!IMPL::OPTION)
;             (:NICKNAMES #)
;             (:LOCAL-NICKNAMES #)
;             (:SIZE #)
;             (:SHADOW #)
;             (:SHADOWING-IMPORT-FROM #)
;             (:USE #)
;             (:IMPORT-FROM #)
;             (:INTERN #)
;             (:EXPORT #)
;             (:IMPLEMENT # #)
;             ...))
;         (SB!IMPL::CHECK-DISJOINT (SB!INT:QUASIQUOTE (:INTERN #))
;          (SB!INT:QUASIQUOTE (:EXPORT #)))
;         (SB!IMPL::CHECK-DISJOINT (SB!INT:QUASIQUOTE (:INTERN #))
;          (SB!INT:QUASIQUOTE (:IMPORT-FROM #)) (SB!INT:QUASIQUOTE (:SHADOW #))
;          (SB!INT:QUASIQUOTE (:SHADOWING-IMPORT-FROM #)))
;         (SB!INT:QUASIQUOTE
;          (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;            (SB!IMPL::%DEFPACKAGE # '# '# '# '# '# '# '# '# '# '# ...)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'DEFPACKAGE
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# #)
;                            (BLOCK DEFPACKAGE #))))
;                    '(PACKAGE &REST SB!IMPL::OPTIONS)
;                    "Defines a new package called PACKAGE. Each of OPTIONS should be one of the
;    following: 
;     (USE {package-name}*)
;     (EXPORT {symbol-name}*)
;     (IMPORT-FROM <package-name> {symbol-name}*)
;     (SHADOW {symbol-name}*)
;     (SHADOWING-IMPORT-FROM <package-name> {symbol-name}*)
;     (LOCAL-NICKNAMES {local-nickname actual-package-name}*)
;     (LOCK boolean)
;     (IMPLEMENT {package-name}*)
;     (DOCUMENTATION doc-string)
;     (INTERN {symbol-name}*)
;     (SIZE <integer>)
;     (NICKNAMES {package-name}*)
;    All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple
;    times."
;                    '(MACRO-FUNCTION DEFPACKAGE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-DISJOINT
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-PACKAGE-DESIGNATOR
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-PACKAGE-DESIGNATORS
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-STRING-DESIGNATOR
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-STRING-DESIGNATORS
; x-compiling (DEFMACRO DEFPACKAGE ...)
; x-compiling (DEFUN CHECK-DISJOINT ...)
; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATOR ...)
; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATORS ...)
; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATOR ...)
; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATORS ...)
; x-compiling (DEFUN IMPORT-LIST-SYMBOLS ...)
; x-compiling (DEFUN USE-LIST-PACKAGES ...)
; x-compiling (DEFUN UPDATE-PACKAGE ...)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *ON-PACKAGE-VARIANCE* ...)
; x-compiling (DEFUN NOTE-PACKAGE-VARIANCE ...)
; x-compiling (DEFUN UPDATE-PACKAGE-WITH-VARIANCE ...)
; x-compiling (DEFUN %DEFPACKAGE ...)

; file: /«PKGBUILDDIR»/src/code/defpackage.lisp
; in: DEFUN FIND-OR-MAKE-SYMBOL
;     (WITH-SIMPLE-RESTART (CONTINUE "INTERN it.")
;       (ERROR 'SB!KERNEL:SIMPLE-PACKAGE-ERROR :PACKAGE PACKAGE :FORMAT-CONTROL
;              "no symbol named ~S in ~S" :FORMAT-ARGUMENTS
;              (LIST SB!IMPL::NAME (PACKAGE-NAME PACKAGE))))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!KERNEL:SIMPLE-PACKAGE-ERROR
;                                  (LIST :PACKAGE PACKAGE :FORMAT-CONTROL
;                                        "no symbol named ~S in ~S"
;                                        :FORMAT-ARGUMENTS
;                                        (LIST SB!IMPL::NAME
;                                              (PACKAGE-NAME PACKAGE)))
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 6 STYLE-WARNING conditions
; x-compiling (DEFUN FIND-OR-MAKE-SYMBOL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defpackage.lisp-obj-tmp written
; compilation finished in 0:00:02.044
; compiling file "/«PKGBUILDDIR»/src/code/error-error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *ERROR-ERROR-DEPTH* ...)
; x-compiling (DEFUN ERROR-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/error-error.lisp-obj-tmp written
; compilation finished in 0:00:00.090
; compiling file "/«PKGBUILDDIR»/src/code/deadline.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFVAR *DEADLINE* ...)
; x-compiling (!DEFVAR *DEADLINE-SECONDS* ...)
; x-compiling (DECLAIM (INLINE SECONDS-TO-INTERNAL-TIME))
; x-compiling (DEFUN SECONDS-TO-INTERNAL-TIME ...)
; x-compiling (DEFMACRO WITH-DEADLINE ...)
; x-compiling (DECLAIM (INLINE DECODE-INTERNAL-TIME))
; x-compiling (DEFUN DECODE-INTERNAL-TIME ...)
; x-compiling (DEFUN SIGNAL-TIMEOUT ...)
; x-compiling (DEFUN SIGNAL-DEADLINE ...)
; x-compiling (DEFUN DEFER-DEADLINE ...)
; x-compiling (DEFUN CANCEL-DEADLINE ...)
; x-compiling (DECLAIM (INLINE RELATIVE-DECODED-TIMES))
; x-compiling (DEFUN RELATIVE-DECODED-TIMES ...)

; file: /«PKGBUILDDIR»/src/code/deadline.lisp
; in: DEFUN SIGNAL-DEADLINE
;     (RESTART-CASE (ERROR 'SB!SYS:DEADLINE-TIMEOUT :SECONDS
;                          SB!IMPL::*DEADLINE-SECONDS*)
;       (SB!SYS:DEFER-DEADLINE
;        (&OPTIONAL (SB!IMPL::SECONDS SB!IMPL::*DEADLINE-SECONDS*)) :REPORT
;        "Defer the deadline for SECONDS more." :INTERACTIVE
;        (LAMBDA ()
;          (SB!INT:READ-EVALUATED-FORM "By how many seconds shall the deadline ~
;                            be deferred?: "))
;        (LET* ((SB!IMPL::NEW-DEADLINE-SECONDS #) (SB!IMPL::NEW-DEADLINE #))
;          (SETF SB!IMPL::*DEADLINE* SB!IMPL::NEW-DEADLINE
;                SB!IMPL::*DEADLINE-SECONDS* SB!IMPL::NEW-DEADLINE-SECONDS)))
;       (SB!SYS:CANCEL-DEADLINE NIL :REPORT "Cancel the deadline and continue."
;        (SETF SB!IMPL::*DEADLINE* NIL
;              SB!IMPL::*DEADLINE-SECONDS* NIL)))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!SYS:DEADLINE-TIMEOUT
;                                  (LIST :SECONDS SB!IMPL::*DEADLINE-SECONDS*)
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN DECODE-TIMEOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/deadline.lisp-obj-tmp written
; compilation finished in 0:00:00.637
; compiling file "/«PKGBUILDDIR»/src/code/serve-event.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSTRUCT (HANDLER # ...) ...)
; x-compiling (DEFSTRUCT (POLLFDS #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFVAR *DESCRIPTOR-HANDLERS* ...)
; x-compiling (SB-XC:DEFMACRO WITH-DESCRIPTOR-HANDLERS ...)
; x-compiling (DEFUN DEALLOCATE-POLLFDS ...)
; x-compiling (DEFUN LIST-ALL-DESCRIPTOR-HANDLERS ...)
; x-compiling (DEFUN MAP-DESCRIPTOR-HANDLERS ...)
; x-compiling (DEFUN ADD-FD-HANDLER ...)
; x-compiling (DEFUN REMOVE-FD-HANDLER ...)
; x-compiling (DEFUN INVALIDATE-DESCRIPTOR ...)
; x-compiling (DEFMACRO WITH-FD-HANDLER ...)
; x-compiling (DEFUN HANDLER-DESCRIPTORS-ERROR ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *PERIODIC-POLLING-FUNCTION* ...)
; x-compiling (DECLAIM (REAL *PERIODIC-POLLING-PERIOD*))
; x-compiling (DEFVAR *PERIODIC-POLLING-PERIOD* ...)
; x-compiling (DEFUN WAIT-UNTIL-FD-USABLE ...)
; x-compiling (DEFUN SERVE-ALL-EVENTS ...)
; x-compiling (DEFUN SERVE-EVENT ...)
; x-compiling (DEFUN SUB-SERVE-EVENT ...)
; x-compiling (DEFUN COMPUTE-POLLFDS ...)

; file: /«PKGBUILDDIR»/src/code/serve-event.lisp
; in: DEFUN SUB-SUB-SERVE-EVENT
;     (SB!UNIX:UNIX-POLL SB!IMPL::A 0 SB!IMPL::TO-MILLISEC)
; --> SB!IMPL::A SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:POLLFD
;        (SB!UNIX:FD (SB!ALIEN:SIGNED 32) :OFFSET 0)
;        (SB!UNIX:EVENTS (SB!ALIEN:SIGNED 16) :OFFSET 32)
;        (SB!UNIX:REVENTS (SB!ALIEN:SIGNED 16) :OFFSET 48))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; in: DEFUN COMPUTE-POLLFDS
;     (SB!ALIEN:MAKE-ALIEN (SB!ALIEN:STRUCT SB!UNIX:POLLFD) SB!IMPL::N-HANDLERS)
; ==>
;   (LOCALLY
;    (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;    (SB!ALIEN-INTERNALS:%SAP-ALIEN
;     (SB!ALIEN::%MAKE-ALIEN (* 8 (THE SB!INT:INDEX SB!IMPL::N-HANDLERS)))
;     '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;        (* (SB!ALIEN:STRUCT SB!UNIX:POLLFD # # #))>))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; compilation unit finished
;   Undefined type:
;     COMPILER-NOTE
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN SUB-SUB-SERVE-EVENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/serve-event.lisp-obj-tmp written
; compilation finished in 0:00:03.940
; compiling file "/«PKGBUILDDIR»/src/code/fd-stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE BUFFER-SAP ...))
; x-compiling (DEFSTRUCT (BUFFER #) ...)
; x-compiling (DEFVAR *AVAILABLE-BUFFERS* ...)
; x-compiling (DEFVAR *AVAILABLE-BUFFERS-LOCK* ...)
; x-compiling (DEFMACRO WITH-AVAILABLE-BUFFERS-LOCK ...)
; x-compiling (DEFCONSTANT +BYTES-PER-BUFFER+ ...)
; x-compiling (DEFUN ALLOC-BUFFER ...)
; x-compiling (DEFUN GET-BUFFER ...)
; x-compiling (DECLAIM (INLINE RESET-BUFFER))
; x-compiling (DEFUN RESET-BUFFER ...)
; x-compiling (DEFUN RELEASE-BUFFER ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFSTRUCT FD-STREAM
;     (DEFSTRUCT
;         (SB!SYS:FD-STREAM (:CONSTRUCTOR SB!IMPL::%MAKE-FD-STREAM)
;          (:CONC-NAME SB!IMPL::FD-STREAM-) (:PREDICATE SB!SYS:FD-STREAM-P)
;          (:INCLUDE SB!KERNEL:ANSI-STREAM
;           (SB!IMPL::MISC #'SB!IMPL::FD-STREAM-MISC-ROUTINE))
;          (:COPIER NIL))
;       (SB!IMPL::NAME NIL)
;       (SB!IMPL::FILE NIL)
;       (SB!IMPL::ORIGINAL NIL :TYPE (OR SIMPLE-STRING NULL))
;       (SB!IMPL::DELETE-ORIGINAL NIL)
;       (SB!IMPL::ELEMENT-SIZE 1 :TYPE SB!INT:INDEX)
;       (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR)
;       (SB!IMPL::FD -1 :TYPE FIXNUM)
;       (SB!IMPL::FD-TYPE :UNKNOWN :TYPE KEYWORD)
;       (SB!IMPL::BUFFERING :FULL :TYPE (MEMBER :FULL :LINE :NONE))
;       (SB!IMPL::DUAL-CHANNEL-P NIL)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!SYS:FD-STREAM {53415D79}>
;    '#(#<SB!KERNEL:LAYOUT for T {53EAAC79}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53A94A39}>
;       #<SB!KERNEL:LAYOUT for STREAM {53F47489}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {543B64B1}>
;       #<SB!KERNEL:LAYOUT for FILE-STREAM {53FC34B1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!SYS:FD-STREAM-P and
;   SB!IMPL::FD-STREAM-CHAR-SIZE could not be inlined because the structure
;   definition for SB!SYS:FD-STREAM was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (FD-STREAM # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN RELEASE-FD-STREAM-BUFFERS ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFSTRUCT FORM-TRACKING-STREAM
;     (DEFSTRUCT
;         (SB!INT:FORM-TRACKING-STREAM
;          (:CONSTRUCTOR SB!IMPL::%MAKE-FORM-TRACKING-STREAM)
;          (:INCLUDE SB!SYS:FD-STREAM
;           (SB!IMPL::MISC #'SB!IMPL::TRACKING-STREAM-MISC)
;           (SB!IMPL::INPUT-CHAR-POS 0))
;          (:COPIER NIL))
;       (SB!IMPL::OBSERVER
;        (LAMBDA (SB!IMPL::X SB!IMPL::Y SB!IMPL::Z)
;          (DECLARE (IGNORE SB!IMPL::X SB!IMPL::Y SB!IMPL::Z)))
;        :TYPE FUNCTION)
;       (SB!IMPL::NEWLINES (MAKE-ARRAY 10 :FILL-POINTER 0 :ADJUSTABLE T))
;       (SB!IMPL::LAST-NEWLINE -1 :TYPE SB!KERNEL:INDEX-OR-MINUS-1)
;       (SB!IMPL::FORM-START-BYTE-POS)
;       (SB!IMPL::FORM-START-CHAR-POS))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!INT:FORM-TRACKING-STREAM {52CB3081}>
;    '#(#<SB!KERNEL:LAYOUT for T {53EAAC79}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53A94A39}>
;       #<SB!KERNEL:LAYOUT for STREAM {53F47489}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {543B64B1}>
;       #<SB!KERNEL:LAYOUT for FILE-STREAM {53FC34B1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:FD-STREAM {53A3EEB9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!INT:FORM-TRACKING-STREAM-P could not be inlined
;   because the structure definition for SB!INT:FORM-TRACKING-STREAM was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (FORM-TRACKING-STREAM # ...) ...)
; x-compiling (DEFUN LINE/COL-FROM-CHARPOS ...)
; x-compiling (DEFUN BUFFER-OUTPUT ...)
; x-compiling (DEFUN FLUSH-OUTPUT-BUFFER ...)
; x-compiling (DEFUN %QUEUE-AND-REPLACE-OUTPUT-BUFFER ...)
; x-compiling (DEFUN WRITE-OUTPUT-FROM-QUEUE ...)
; x-compiling (DEFUN WRITE-OR-BUFFER-OUTPUT ...)
; x-compiling (DECLAIM (INLINE OUTPUT-RAW-BYTES))
; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...)
; x-compiling (DEFVAR *OUTPUT-ROUTINES* ...)
; x-compiling (DEFUN SIMPLE-STREAM-PERROR ...)
; x-compiling (DEFUN SIMPLE-FILE-PERROR ...)
; x-compiling (DEFUN C-STRING-ENCODING-ERROR ...)
; x-compiling (DEFUN C-STRING-DECODING-ERROR ...)
; x-compiling (DEFUN STREAM-DECODING-ERROR-AND-HANDLE ...)
; x-compiling (DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ...)
; x-compiling (DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ...)
; x-compiling (DEFUN SYNCHRONIZE-STREAM-OUTPUT ...)
; x-compiling (DEFUN FD-STREAM-OUTPUT-FINISHED-P ...)
; x-compiling (DEFMACRO OUTPUT-WRAPPER/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO OUTPUT-WRAPPER ...)
; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-CHAR-~A-BUFFERED" 1 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-BYTE-~A-BUFFERED" 1 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-BYTE-~A-BUFFERED" 1 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-SHORT-~A-BUFFERED" 2 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-SHORT-~A-BUFFERED" 2 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-LONG-~A-BUFFERED" 4 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-LONG-~A-BUFFERED" 4 ...) ...)
; x-compiling (DEFUN FD-SOUT ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFSTRUCT EXTERNAL-FORMAT
;     (DEFSTRUCT
;         (SB!IMPL::EXTERNAL-FORMAT (:CONSTRUCTOR SB!IMPL::%MAKE-EXTERNAL-FORMAT)
;          (:CONC-NAME SB!IMPL::EF-) (:PREDICATE SB!IMPL::EXTERNAL-FORMAT-P)
;          (:COPIER SB!IMPL::%COPY-EXTERNAL-FORMAT))
;       (SB!IMPL::NAMES (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T)
;       (SB!IMPL::DEFAULT-REPLACEMENT-CHARACTER (SB!INT:MISSING-ARG) :TYPE
;        CHARACTER)
;       (SB!IMPL::READ-N-CHARS-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::READ-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-N-BYTES-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-CHAR-NONE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-CHAR-LINE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-CHAR-FULL-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::RESYNC-FUN NIL :TYPE (OR FUNCTION NULL))
;       (SB!IMPL::BYTES-FOR-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!IMPL::EXTERNAL-FORMAT {52CE0BD1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53EAAC79}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53A94A39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!IMPL::EF-READ-C-STRING-FUN and
;   SB!IMPL::EF-WRITE-C-STRING-FUN could not be inlined because the structure
;   definition for SB!IMPL::EXTERNAL-FORMAT was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...)
; x-compiling (DEFUN EF-CHAR-SIZE ...)
; x-compiling (DEFUN WRAP-EXTERNAL-FORMAT-FUNCTIONS ...)
; x-compiling (DEFVAR *EXTERNAL-FORMATS* ...)
; x-compiling (DEFUN GET-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN GET-EXTERNAL-FORMAT-OR-LOSE ...)
; x-compiling (DEFUN EXTERNAL-FORMAT-KEYWORD ...)
; x-compiling (DEFUN FD-STREAM-EXTERNAL-FORMAT-KEYWORD ...)
; x-compiling (DEFUN CANONIZE-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN PICK-OUTPUT-ROUTINE ...)
; x-compiling (DEFVAR *INPUT-ROUTINES* ...)
; x-compiling (DEFUN SYSREAD-MAY-BLOCK-P ...)
; x-compiling (DEFUN REFILL-INPUT-BUFFER ...)
; x-compiling (DEFMACRO INPUT-AT-LEAST ...)
; x-compiling (DEFMACRO INPUT-WRAPPER/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO INPUT-WRAPPER ...)
; x-compiling (DEFMACRO DEF-INPUT-ROUTINE/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO DEF-INPUT-ROUTINE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-CHARACTER ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-8BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-8BIT-NUMBER ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-16BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-16BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-32BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-32BIT-BYTE ...)
; x-compiling (DEFUN PICK-INPUT-ROUTINE ...)
; x-compiling (DEFUN FD-STREAM-READ-N-BYTES ...)
; x-compiling (DEFUN FD-STREAM-RESYNC ...)
; x-compiling (DEFUN GET-FD-STREAM-CHARACTER-SIZER ...)
; x-compiling (DEFUN FD-STREAM-CHARACTER-SIZE ...)
; x-compiling (DEFUN FD-STREAM-STRING-SIZE ...)
; x-compiling (DEFUN FIND-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN VARIABLE-WIDTH-EXTERNAL-FORMAT-P ...)
; x-compiling (DEFUN BYTES-FOR-CHAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT ...)
; x-compiling (DEFMACRO DEFINE-UNIBYTE-EXTERNAL-FORMAT ...)
; x-compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH ...)
; x-compiling (DEFUN SET-FD-STREAM-ROUTINES ...)
; x-compiling (DEFUN RELEASE-FD-STREAM-RESOURCES ...)
; x-compiling (DEFUN FLUSH-INPUT-BUFFER ...)
; x-compiling (DEFUN FD-STREAM-CLEAR-INPUT ...)
; x-compiling (DEFUN FD-STREAM-MISC-ROUTINE ...)
; x-compiling (DEFUN FINISH-FD-STREAM-OUTPUT ...)
; x-compiling (DEFUN FD-STREAM-GET-FILE-POSITION ...)
; x-compiling (DEFUN FD-STREAM-SET-FILE-POSITION ...)
; x-compiling (DEFUN MAKE-FD-STREAM ...)
; x-compiling (DEFUN PICK-BACKUP-NAME ...)
; x-compiling (DEFUN RENAME-THE-OLD-ONE ...)
; x-compiling (DEFUN OPEN ...)
; x-compiling (DEFVAR *TTY*)
; x-compiling (DEFVAR *STDIN*)
; x-compiling (DEFVAR *STDOUT*)
; x-compiling (DEFVAR *STDERR*)
; x-compiling (DEFUN STREAM-COLD-INIT-OR-RESET ...)
; x-compiling (DEFUN STREAM-DEINIT ...)
; x-compiling (DEFUN STDSTREAM-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN STREAM-REINIT ...)
; x-compiling (DEFUN BEEP ...)
; x-compiling (DEFUN FILE-NAME ...)
; x-compiling (DEFUN STREAM-OUTPUT-STREAM ...)
; x-compiling (DEFUN UPDATE-INPUT-CHAR-POS ...)
; x-compiling (DEFUN TRACKING-STREAM-MISC ...)
; x-compiling (!DEFGLOBAL *!COLD-STDERR-BUF* ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFINE-DEPRECATED-FUNCTION :LATE
;     (SB!INT:DEFINE-DEPRECATED-FUNCTION :LATE
;         "1.0.8.16"
;         SB!SYS:OUTPUT-RAW-BYTES
;         WRITE-SEQUENCE
;         (STREAM SB!IMPL::THING &OPTIONAL SB!IMPL::START SB!IMPL::END)
;       (SB!IMPL::WRITE-OR-BUFFER-OUTPUT STREAM SB!IMPL::THING
;        (OR SB!IMPL::START 0) (OR SB!IMPL::END (LENGTH SB!IMPL::THING))))
; --> PROG1 LET LET SETF LET* FUNCALL 
; ==>
;   (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW1305
;    'SB!SYS:OUTPUT-RAW-BYTES)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF COMPILER-MACRO-FUNCTION)

; in: DEFUN GET-EXTERNAL-FORMAT
;     (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN STREAM-ENCODING-ERROR-AND-HANDLE
;     (RESTART-CASE (ERROR 'SB!INT:STREAM-ENCODING-ERROR :EXTERNAL-FORMAT
;                          (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :CODE
;                          SB!IMPL::CODE)
;       (SB!IMPL::OUTPUT-NOTHING NIL :REPORT
;        (LAMBDA (STREAM) (FORMAT STREAM "~@<Skip output of this character.~@:>"))
;        (THROW 'SB!IMPL::OUTPUT-NOTHING NIL))
;       (SB!IMPL::OUTPUT-REPLACEMENT (STRING) :REPORT
;        (LAMBDA (STREAM) (FORMAT STREAM "~@<Output replacement string.~@:>"))
;        :INTERACTIVE
;        (LAMBDA ()
;          (FORMAT *QUERY-IO* "~@<Enter a string: ~@:>")
;          (FINISH-OUTPUT *QUERY-IO*)
;          (LIST (READ *QUERY-IO*)))
;        (LET ((STRING #))
;          (SB!IMPL::FD-SOUT STREAM (STRING STRING) 0 (LENGTH STRING)))
;        (THROW 'SB!IMPL::OUTPUT-NOTHING NIL)))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-ENCODING-ERROR
;                                  (LIST :EXTERNAL-FORMAT
;                                        (STREAM-EXTERNAL-FORMAT STREAM) :STREAM
;                                        STREAM :CODE SB!IMPL::CODE)
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN STREAM-DECODING-ERROR-AND-HANDLE
;     (RESTART-CASE (ERROR 'SB!INT:STREAM-DECODING-ERROR :EXTERNAL-FORMAT
;                          (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :OCTETS
;                          (LET ((SB!IMPL::BUFFER #))
;                            (SB!SYS:SAP-REF-OCTETS
;                             (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER)
;                             (SB!IMPL::BUFFER-HEAD SB!IMPL::BUFFER)
;                             SB!IMPL::OCTET-COUNT)))
;       (SB!INT:ATTEMPT-RESYNC NIL :REPORT
;        (LAMBDA (STREAM)
;          (FORMAT STREAM "~@<Attempt to resync the stream at a ~
;                           character boundary and continue.~@:>"))
;        (SB!IMPL::FD-STREAM-RESYNC STREAM) NIL)
;       (SB!INT:FORCE-END-OF-FILE NIL :REPORT
;        (LAMBDA (STREAM) (FORMAT STREAM "~@<Force an end of file.~@:>"))
;        (SETF (SB!IMPL::FD-STREAM-EOF-FORCED-P STREAM) T))
;       (SB!IMPL::INPUT-REPLACEMENT (STRING) :REPORT
;        (LAMBDA (STREAM)
;          (FORMAT STREAM "~@<Use string as replacement input, ~
;                                  attempt to resync at a character ~
;                                  boundary and continue.~@:>"))
;        :INTERACTIVE
;        (LAMBDA ()
;          (FORMAT *QUERY-IO* "~@<Enter a string: ~@:>")
;          (FINISH-OUTPUT *QUERY-IO*)
;          (LIST (READ *QUERY-IO*)))
;        (LET ((STRING #) (SB!IMPL::INSTEAD #))
;          (DOTIMES (SB!IMPL::I #) (VECTOR-PUSH-EXTEND # SB!IMPL::INSTEAD))
;          (SB!IMPL::FD-STREAM-RESYNC STREAM)
;          (WHEN (> # 0) (SETF #)))
;        NIL))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-DECODING-ERROR
;                                  (LIST :EXTERNAL-FORMAT
;                                        (STREAM-EXTERNAL-FORMAT STREAM) :STREAM
;                                        STREAM :OCTETS
;                                        (LET ((SB!IMPL::BUFFER #))
;                                          (SB!SYS:SAP-REF-OCTETS
;                                           (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER)
;                                           (SB!IMPL::BUFFER-HEAD
;                                            SB!IMPL::BUFFER)
;                                           SB!IMPL::OCTET-COUNT)))
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN GET-EXTERNAL-FORMAT
;     (HANDLER-BIND ((SB!INT:STREAM-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::INPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!INT:STREAM-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::OUTPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!IMPL::OCTETS-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)))
;                    (SB!IMPL::OCTET-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C))))
;       (APPLY SB!IMPL::FUN REST))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!IMPL::OCTET-DECODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: OCTET-DECODING-ERROR

; ==>
;   (TYPEP CONDITION 'SB!IMPL::OCTETS-ENCODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: OCTETS-ENCODING-ERROR

; in: DEFUN RELEASE-FD-STREAM-RESOURCES
;     (HANDLER-CASE
;      (SB!SYS:WITHOUT-INTERRUPTS
;       (WHEN (SB!IMPL::FD-STREAM-HANDLER SB!SYS:FD-STREAM)
;         (SB!SYS:REMOVE-FD-HANDLER (SB!IMPL::FD-STREAM-HANDLER SB!SYS:FD-STREAM))
;         (SETF # NIL))
;       (SB!UNIX:UNIX-CLOSE (SB!SYS:FD-STREAM-FD SB!SYS:FD-STREAM))
;       (SB!IMPL::SET-CLOSED-FLAME SB!SYS:FD-STREAM)
;       (SB!EXT:CANCEL-FINALIZATION SB!SYS:FD-STREAM))
;      (SERIOUS-CONDITION (SB!IMPL::E) (ERROR SB!IMPL::E)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SERIOUS-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SERIOUS-CONDITION

; in: DEFUN GET-EXTERNAL-FORMAT
;     (HANDLER-BIND ((SB!INT:STREAM-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::INPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!INT:STREAM-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::OUTPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!IMPL::OCTETS-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)))
;                    (SB!IMPL::OCTET-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C))))
;       (APPLY SB!IMPL::FUN REST))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!INT:STREAM-DECODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-DECODING-ERROR

; ==>
;   (TYPEP CONDITION 'SB!INT:STREAM-ENCODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-ENCODING-ERROR
; 
; compilation unit finished
;   Undefined types:
;     CONDITION OCTET-DECODING-ERROR OCTETS-ENCODING-ERROR SERIOUS-CONDITION STREAM-DECODING-ERROR STREAM-ENCODING-ERROR
;   Undefined function:
;     (SETF COMPILER-MACRO-FUNCTION)
;   caught 12 STYLE-WARNING conditions
; x-compiling (DEFUN !MAKE-COLD-STDERR-STREAM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/fd-stream.lisp-obj-tmp written
; compilation finished in 0:00:21.371
; compiling file "/«PKGBUILDDIR»/src/code/module.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *MODULES* ...)
; x-compiling (DEFVAR *MODULE-PROVIDER-FUNCTIONS* ...)
; x-compiling (DEFUN PROVIDE ...)
; x-compiling (DEFVAR *REQUIRING* ...)
; x-compiling (DEFUN REQUIRE-ERROR ...)
; x-compiling (DEFUN REQUIRE ...)

; file: /«PKGBUILDDIR»/src/code/module.lisp
; in: DEFUN MODULE-PROVIDE-CONTRIB
;     (HANDLER-BIND (((OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE)
;                     #'MUFFLE-WARNING))
;       (LOAD SB!IMPL::FILE))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE))
; 
; caught STYLE-WARNING:
;   undefined type: PACKAGE-AT-VARIANCE
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING
; 
; compilation unit finished
;   Undefined types:
;     PACKAGE-AT-VARIANCE STYLE-WARNING
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN MODULE-PROVIDE-CONTRIB ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/module.lisp-obj-tmp written
; compilation finished in 0:00:00.294
; compiling file "/«PKGBUILDDIR»/src/code/query.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN QUERY-READ-CHAR ...)
; x-compiling (DEFUN QUERY-READ-LINE ...)
; x-compiling (DEFUN MAYBE-PRINT-QUERY ...)
; x-compiling (DEFUN CLARIFY-LEGAL-QUERY-INPUT ...)
; x-compiling (DEFUN Y-OR-N-P ...)
; x-compiling (DEFUN YES-OR-NO-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/query.lisp-obj-tmp written
; compilation finished in 0:00:00.156
; compiling file "/«PKGBUILDDIR»/src/code/sort.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN SORT-VECTOR ...)
; x-compiling (DECLAIM (MAYBE-INLINE SORT ...))
; x-compiling (DEFUN SORT ...)
; x-compiling (DEFUN STABLE-SORT ...)
; x-compiling (DECLAIM (MAYBE-INLINE MERGE-LISTS* ...))
; x-compiling (DEFUN MERGE-LISTS* ...)
; x-compiling (DECLAIM (INLINE MERGE-LISTS))
; x-compiling (DEFUN MERGE-LISTS ...)
; x-compiling (DECLAIM (INLINE STABLE-SORT-LIST-2 ...))
; x-compiling (DEFUN STABLE-SORT-LIST-2 ...)
; x-compiling (DEFUN STABLE-SORT-LIST-3 ...)
; x-compiling (DEFCONSTANT +STABLE-SORT-FAST-MERGE-LIMIT+ ...)
; x-compiling (DEFUN STABLE-SORT-LIST ...)
; x-compiling (DEFUN STABLE-SORT-SIMPLE-VECTOR ...)
; x-compiling (DEFUN STABLE-SORT-VECTOR ...)

; file: /«PKGBUILDDIR»/src/code/sort.lisp
; in: DEFUN MERGE
;     (FIND-CLASS SB!IMPL::RESULT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS
; 
; compilation unit finished
;   Undefined function:
;     FIND-CLASS
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN MERGE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sort.lisp-obj-tmp written
; compilation finished in 0:00:05.080
; compiling file "/«PKGBUILDDIR»/src/code/time.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN TIME-REINIT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN GET-INTERNAL-RUN-TIME ...)
; x-compiling (DEFCONSTANT SECONDS-IN-WEEK ...)
; x-compiling (DEFCONSTANT WEEKS-OFFSET ...)
; x-compiling (DEFCONSTANT SECONDS-OFFSET ...)
; x-compiling (DEFCONSTANT MINUTES-PER-DAY ...)
; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-YEAR ...)
; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-CENTURY ...)
; x-compiling (DEFCONSTANT NOVEMBER-17-1858 ...)
; x-compiling (DEFCONSTANT WEEKDAY-NOVEMBER-17-1858 ...)
; x-compiling (DEFCONSTANT UNIX-TO-UNIVERSAL-TIME ...)
; x-compiling (DEFUN GET-UNIVERSAL-TIME ...)
; x-compiling (DEFUN GET-DECODED-TIME ...)
; x-compiling (DEFCONSTANT +MAR-1-2000+ ...)
; x-compiling (DEFCONSTANT +MAR-1-2035+ ...)
; x-compiling (DEFCONSTANT +MAR-1-1903+ ...)
; x-compiling (DEFUN YEARS-SINCE-MAR-2000 ...)
; x-compiling (DEFUN TRUNCATE-TO-UNIX-RANGE ...)
; x-compiling (DEFUN DECODE-UNIVERSAL-TIME ...)
; x-compiling (DEFUN PICK-OBVIOUS-YEAR ...)
; x-compiling (DEFUN LEAP-YEARS-BEFORE ...)
; x-compiling (DEFVAR *DAYS-BEFORE-MONTH* ...)
; x-compiling (DEFUN ENCODE-UNIVERSAL-TIME ...)
; x-compiling (DEFVAR *GC-RUN-TIME* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN PRINT-TIME ...)
; x-compiling (DEFMACRO TIME ...)
; x-compiling (DEFUN TIME-GET-SYS-INFO ...)
; x-compiling (DEFUN ELAPSED-CYCLES ...)
; x-compiling (DECLAIM (INLINE READ-CYCLE-COUNTER))
; x-compiling (DEFUN READ-CYCLE-COUNTER ...)
; x-compiling (DEFUN FORMAT-MICROSECONDS ...)
; x-compiling (DEFUN FORMAT-MILLISECONDS ...)
; x-compiling (DEFUN %FORMAT-DECIMAL ...)

; file: /«PKGBUILDDIR»/src/code/time.lisp
; in: DEFUN CALL-WITH-TIMING
;     (SB!IMPL::NOTE :PROCESSOR-CYCLES SB!IMPL::CYCLES #'ZEROP)
; ==>
;   SB!IMPL::CYCLES
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN CALL-WITH-TIMING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/time.lisp-obj-tmp written
; compilation finished in 0:00:02.185
; compiling file "/«PKGBUILDDIR»/src/code/timer.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE HEAP-PARENT ...))
; x-compiling (DEFUN HEAP-PARENT ...)
; x-compiling (DEFUN HEAP-LEFT ...)
; x-compiling (DEFUN HEAP-RIGHT ...)
; x-compiling (DEFUN HEAPIFY ...)
; x-compiling (DEFUN HEAP-INSERT ...)
; x-compiling (DEFUN HEAP-MAXIMUM ...)
; x-compiling (DEFUN HEAP-EXTRACT ...)
; x-compiling (DEFUN HEAP-EXTRACT-MAXIMUM ...)
; x-compiling (DEFSTRUCT (PRIORITY-QUEUE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN PRIORITY-QUEUE-MAXIMUM ...)
; x-compiling (DEFUN PRIORITY-QUEUE-EXTRACT-MAXIMUM ...)
; x-compiling (DEFUN PRIORITY-QUEUE-INSERT ...)
; x-compiling (DEFUN PRIORITY-QUEUE-EMPTY-P ...)
; x-compiling (DEFUN PRIORITY-QUEUE-REMOVE ...)
; x-compiling (DEFSTRUCT (TIMER # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN TIMER-NAME ...)
; x-compiling (DEFUN TIMER-SCHEDULED-P ...)
; x-compiling (DEFVAR *SCHEDULER-LOCK* ...)
; x-compiling (DEFMACRO WITH-SCHEDULER-LOCK ...)
; x-compiling (DEFUN UNDER-SCHEDULER-LOCK-P ...)
; x-compiling (DEFPARAMETER *SCHEDULE* ...)
; x-compiling (DEFUN PEEK-SCHEDULE ...)
; x-compiling (DEFUN TIME-LEFT ...)
; x-compiling (DEFUN DELTA->REAL ...)
; x-compiling (DEFUN MAKE-CANCELLABLE-INTERRUPTOR ...)
; x-compiling (DEFUN %SCHEDULE-TIMER ...)
; x-compiling (DEFUN SCHEDULE-TIMER ...)
; x-compiling (DEFUN UNSCHEDULE-TIMER ...)
; x-compiling (DEFUN LIST-ALL-TIMERS ...)
; x-compiling (DEFUN RESCHEDULE-TIMER ...)
; x-compiling (DEFUN REAL-TIME->SEC-AND-NSEC ...)
; x-compiling (DEFUN %SET-SYSTEM-TIMER ...)
; x-compiling (DEFUN %CLEAR-SYSTEM-TIMER ...)
; x-compiling (DEFUN SET-SYSTEM-TIMER ...)
; x-compiling (DEFUN RUN-TIMER ...)
; x-compiling (DEFUN RUN-EXPIRED-TIMERS ...)
; x-compiling (DEFUN TIMEOUT-CERROR ...)

; file: /«PKGBUILDDIR»/src/code/timer.lisp
; in: DEFUN RUN-TIMER
;     (HANDLER-CASE (SB!THREAD:INTERRUPT-THREAD SB!IMPL::THREAD FUNCTION)
;                   (SB!THREAD:INTERRUPT-THREAD-ERROR (SB!IMPL::C)
;                    (DECLARE (IGNORE SB!IMPL::C))
;                    (WARN "Timer ~S failed to interrupt thread ~S." SB!EXT:TIMER
;                          SB!IMPL::THREAD)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!THREAD:INTERRUPT-THREAD-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!THREAD:INTERRUPT-THREAD-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SB!THREAD:INTERRUPT-THREAD-ERROR
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFMACRO WITH-TIMEOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/timer.lisp-obj-tmp written
; compilation finished in 0:00:02.498
; compiling file "/«PKGBUILDDIR»/src/code/final.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFGLOBAL **FINALIZER-STORE** ...)
; x-compiling (DEFGLOBAL **FINALIZER-STORE-LOCK** ...)
; x-compiling (DEFMACRO WITH-FINALIZER-STORE-LOCK ...)
; x-compiling (DEFUN FINALIZE ...)
; x-compiling (DEFUN DEINIT-FINALIZERS ...)
; x-compiling (DEFUN CANCEL-FINALIZATION ...)

; file: /«PKGBUILDDIR»/src/code/final.lisp
; in: DEFUN RUN-PENDING-FINALIZERS
;     (HANDLER-CASE (FUNCALL SB!IMPL::FUN)
;                   (ERROR (SB!IMPL::C)
;                          (WARN "Error calling finalizer ~S:~%  ~S" SB!IMPL::FUN
;                                SB!IMPL::C)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR
; 
; compilation unit finished
;   Undefined type:
;     ERROR
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN RUN-PENDING-FINALIZERS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/final.lisp-obj-tmp written
; compilation finished in 0:00:00.281
; compiling file "/«PKGBUILDDIR»/src/code/setf-funs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-SETTERS ("COMMON-LISP") ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/setf-funs.lisp-obj-tmp written
; compilation finished in 0:00:01.069
; compiling file "/«PKGBUILDDIR»/src/code/stubs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF %CALLER-FRAME ...)
; x-compiling (DEF %CALLER-PC ...)
; x-compiling (DEF %CODE-CODE-SIZE)
; x-compiling (DEF %CODE-DEBUG-INFO)
; x-compiling (DEF %CODE-ENTRY-POINTS)
; x-compiling (DEF %FUNCALLABLE-INSTANCE-LAYOUT)
; x-compiling (DEF %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/stubs.lisp-obj-tmp written
; compilation finished in 0:00:00.107
; compiling file "/«PKGBUILDDIR»/src/code/exhaust.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-ROUTINE RESET-CONTROL-STACK-GUARD-PAGE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/exhaust.lisp-obj-tmp written
; compilation finished in 0:00:00.056
; compiling file "/«PKGBUILDDIR»/src/compiler/early-c.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*)
; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT*)
; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*)
; x-compiling (DEF!TYPE LAYOUT-DEPTHOID ...)
; x-compiling (DEFTYPE INLINEP ...)
; x-compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...)
; x-compiling (DEFVAR *LEXENV*)
; x-compiling (DECLAIM (TYPE LEXENV ...))
; x-compiling (DEFVAR *FREE-VARS*)
; x-compiling (DEFVAR *FREE-FUNS*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *CONSTANTS*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *ALLOW-INSTRUMENTING*)
; x-compiling (DEFVAR *CODE-SEGMENT*)
; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT*)
; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT*)
; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; x-compiling (DEFVAR *CURRENT-PATH*)
; x-compiling (DEFVAR *CURRENT-COMPONENT*)
; x-compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*)
; x-compiling (DEFVAR *EVAL-TLF-INDEX*)
; x-compiling (DEFVAR *HANDLED-CONDITIONS*)
; x-compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*)
; x-compiling (DEFVAR *POLICY*)
; x-compiling (DEFVAR *MACRO-POLICY* ...)
; x-compiling (DEFVAR *DYNAMIC-COUNTS-TN*)
; x-compiling (DEFVAR *ELSEWHERE*)
; x-compiling (DEFVAR *EVENT-INFO*)
; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD*)
; x-compiling (DEFVAR *FAILURE-P*)
; x-compiling (DEFVAR *FIXUP-NOTES*)
; x-compiling (DEFVAR *LEXENV*)
; x-compiling (DEFVAR *SOURCE-INFO*)
; x-compiling (DEFVAR *SOURCE-PLIST*)
; x-compiling (DEFVAR *SOURCE-NAMESTRING*)
; x-compiling (DEFVAR *UNDEFINED-WARNINGS*)
; x-compiling (DEFVAR *WARNINGS-P*)
; x-compiling (DEFVAR *LAMBDA-CONVERSIONS*)
; x-compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...)
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFGLOBAL **WORLD-LOCK** ...)
; x-compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...))
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT)
; x-compiling (DEFMACRO WITH-WORLD-LOCK ...)
; x-compiling (DECLAIM (TYPE FIXNUM ...))
; x-compiling (DEFVAR *COMPILER-SSET-COUNTER* ...)
; x-compiling (DECLAIM (FIXNUM *TYPE-CACHE-NONCE*))
; x-compiling (!DEFGLOBAL *TYPE-CACHE-NONCE* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-NAME-DEFINED ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; x-compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...))
; x-compiling (DEFVAR *DEBUG-NAME-LEVEL* ...)
; x-compiling (DEFVAR *DEBUG-NAME-LENGTH* ...)
; x-compiling (DEFVAR *DEBUG-NAME-PUNT*)
; x-compiling (DEFVAR *DEBUG-NAME-SHARP*)
; x-compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*)
; x-compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...)
; x-compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...)
; x-compiling (SETF *DEBUG-NAME-SHARP* ...)
; x-compiling (DEFUN DEBUG-NAME ...)
; x-compiling (DECLAIM (INLINE LL-KWDS-KEYP ...))
; x-compiling (DEFUN LL-KWDS-KEYP ...)
; x-compiling (DEFUN LL-KWDS-ALLOWP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-c.lisp-obj-tmp written
; compilation finished in 0:00:01.204
; compiling file "/«PKGBUILDDIR»/src/compiler/policy.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!TYPE POLICY-QUALITY ...)
; x-compiling (DEFVAR *POLICY-RESTRICTIONS* ...)
; x-compiling (DEFUN RESTRICT-COMPILER-POLICY ...)
; x-compiling (DEFSTRUCT (POLICY-DEPENDENT-QUALITY #) ...)
; x-compiling (DECLAIM (SIMPLE-VECTOR **POLICY-PRIMARY-QUALITIES** ...))
; x-compiling (!DEFGLOBAL **POLICY-PRIMARY-QUALITIES** ...)
; x-compiling (DEFGLOBAL **POLICY-DEPENDENT-QUALITIES** ...)
; x-compiling (DEFCONSTANT N-POLICY-PRIMARY-QUALITIES ...)
; x-compiling (DEFCONSTANT MAX-POLICY-QUALITIES ...)
; x-compiling (DEFSTRUCT (POLICY #) ...)
; x-compiling (DEFUN POLICY-TO-DECL-SPEC ...)
; x-compiling (DEFMETHOD PRINT-OBJECT ...)
; x-compiling (DEFUN POLICY= ...)
; x-compiling (DEFUN POLICY-QUALITY-NAME-P ...)
; x-compiling (DEFUN ALTER-POLICY ...)
; x-compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...)
; x-compiling (DECLAIM (TYPE POLICY ...) ...)
; x-compiling (DEFGLOBAL **BASELINE-POLICY** ...)
; x-compiling (DEFGLOBAL **ZERO-TYPECHECK-POLICY** ...)
; x-compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...)
; x-compiling (DEFUN POLICY-QUALITY ...)
; x-compiling (DEFINE-COMPILER-MACRO POLICY-QUALITY ...)
; x-compiling (DEFUN %POLICY-QUALITY ...)
; x-compiling (DEFMACRO POLICY ...)
; x-compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...)
; x-compiling (DEFUN SET-MACRO-POLICY ...)
; x-compiling (DEFUN MACRO-POLICY-DECLS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/policy.lisp-obj-tmp written
; compilation finished in 0:00:01.904
; compiling file "/«PKGBUILDDIR»/src/compiler/policies.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-CLOSURE-DEBUG-POINTER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/policies.lisp-obj-tmp written
; compilation finished in 0:00:06.426
; compiling file "/«PKGBUILDDIR»/src/compiler/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; x-compiling (DEFMACRO DEF-IR1-TRANSLATOR ...)
; x-compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...)
; x-compiling (DEFTYPE ATTRIBUTES ...)
; x-compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...)
; x-compiling (DEFMACRO ATTRIBUTES-UNION ...)
; x-compiling (DEFMACRO ATTRIBUTES-INTERSECTION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (INLINE ATTRIBUTES=))
; x-compiling (DEFUN ATTRIBUTES= ...)
; x-compiling (DEFUN PARSE-DEFTRANSFORM ...)
; x-compiling (DEFMACRO DEFTRANSFORM ...)
; x-compiling (DEFMACRO DEFKNOWN ...)
; x-compiling (DEFMACRO DEFOPTIMIZER ...)
; x-compiling (DEFMACRO DO-BLOCKS ...)
; x-compiling (DEFMACRO DO-BLOCKS-BACKWARDS ...)
; x-compiling (DEFMACRO DO-USES ...)
; x-compiling (DEFMACRO DO-NODES ...)
; x-compiling (DEFMACRO DO-NODES-BACKWARDS ...)
; x-compiling (DEFMACRO DO-NODES-CAREFULLY ...)
; x-compiling (DEFMACRO DO-NESTED-CLEANUPS ...)
; x-compiling (DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; x-compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; x-compiling (DEFMACRO WITH-SOURCE-PATHS ...)
; x-compiling (DEFMACRO WITH-IR1-NAMESPACE ...)
; x-compiling (DEFMACRO LEXENV-FIND ...)
; x-compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...)
; x-compiling (DEFSTRUCT (EVENT-INFO #) ...)
; x-compiling (DEFVAR *EVENT-INFO* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-INFO-OR-LOSE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-COUNT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-ACTION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %SET-EVENT-ACTION ...)
; x-compiling (DEFSETF EVENT-ACTION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-LEVEL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %SET-EVENT-LEVEL ...)
; x-compiling (DEFSETF EVENT-LEVEL ...)
; x-compiling (DEFMACRO DEFEVENT ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...)
; x-compiling (DEFMACRO EVENT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-STATISTICS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CLEAR-EVENT-STATISTICS ...)
; x-compiling (DECLAIM (INLINE FIND-IN ...))
; x-compiling (DEFUN FIND-IN ...)
; x-compiling (DEFUN POSITION-IN ...)
; x-compiling (DEF!MACRO DELETEF-IN ...)
; x-compiling (DEF!MACRO PUSH-IN ...)
; x-compiling (DEFMACRO POSITION-OR-LOSE ...)
; x-compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...)
; x-compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...)

; file: /«PKGBUILDDIR»/src/compiler/macros.lisp
; in: DEF!MACRO PUSH-IN
;     (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SETF-EXPANSION

; in: DEF!MACRO DELETEF-IN
;     (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     GET-SETF-EXPANSION
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/macros.lisp-obj-tmp written
; compilation finished in 0:00:04.421
; compiling file "/«PKGBUILDDIR»/src/compiler/globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFUN GLOBALDB-SXHASHOID ...)
; x-compiling (DEFUN PRIMIFY ...)
; x-compiling (DEF!STRUCT (META-INFO # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE META-INFO))
; x-compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...)
; x-compiling (DEFMACRO !GET-META-INFOS ...)
; x-compiling (DEFUN META-INFO ...)
; x-compiling (DEFUN !REGISTER-META-INFO ...)
; x-compiling (DEFUN !%DEFINE-INFO-TYPE ...)
; x-compiling (!COLD-INIT-FORMS (DOVECTOR # ...))
; x-compiling (DEFUN INFO ...)
; x-compiling (DEFUN (SETF INFO) ...)
; x-compiling (DEFUN CLEAR-INFO ...)
; x-compiling (DEFUN CLEAR-INFO-VALUES ...)
; x-compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-INFO-VALUE ...)
; x-compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...)
; x-compiling (DEF!MACRO ATOMIC-SET-INFO-VALUE ...)
; x-compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :EMITTED-FULL-CALLS) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...)
; x-compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...)
; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...)
; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...)
; x-compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...)
; x-compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...)
; x-compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...)
; x-compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VOP) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :DECLARATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :ALIEN-TYPE) ...)
; x-compiling (DEFUN CALL-WITH-EACH-INFO ...)
; x-compiling (DEFUN SHOW-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in: DEFINE-INFO-TYPE (:FUNCTION :INFO)
;     (SB!C::DEFINE-INFO-TYPE (:FUNCTION :INFO) :TYPE-SPEC (OR SB!C::FUN-INFO NULL))
; --> EVAL-WHEN SB!C::!%DEFINE-INFO-TYPE SB!C::!%DEFINE-INFO-TYPE LAMBDA 
; --> FUNCTION 
; ==>
;   (THE (OR SB!C::FUN-INFO NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: DEFINE-INFO-TYPE (:FUNCTION :TYPE)
;     (HANDLER-BIND ((STYLE-WARNING #'MUFFLE-WARNING))
;       (SB!KERNEL:SPECIFIER-TYPE (SB!IMPL::%FUN-TYPE (FDEFINITION SB!C::NAME))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'STYLE-WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING
; 
; compilation unit finished
;   Undefined types:
;     FUN-INFO STYLE-WARNING
;   caught 2 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/globaldb.lisp-obj-tmp written
; compilation finished in 0:00:02.872
; compiling file "/«PKGBUILDDIR»/src/compiler/info-functions.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN CHECK-FUN-NAME ...)
; x-compiling (DEFUN PROCLAIM-AS-FUN-NAME ...)
; x-compiling (DEFUN WARN-IF-SETF-MACRO ...)
; x-compiling (DEFUN UNDEFINE-FUN-NAME ...)
; x-compiling (DEFUN BECOME-DEFINED-FUN-NAME ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...)
; x-compiling (DEFUN SB-XC:MACRO-FUNCTION ...)
; x-compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...)
; x-compiling (DEFUN INSTALL-GUARD-FUNCTION ...)
; x-compiling (DEFUN FUN-LOCALLY-DEFINED-P ...)
; x-compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...)
; x-compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...)
; x-compiling (DEFUN FDOCUMENTATION ...)
; x-compiling (DEFUN (SETF FDOCUMENTATION) ...)
; x-compiling (DEFUN RANDOM-DOCUMENTATION ...)
; x-compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...)

; file: /«PKGBUILDDIR»/src/compiler/info-functions.lisp
; in: DEFUN FDOCUMENTATION
;     (CLASS-NAME SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

;     (TYPECASE SB!C::X
;       (FUNCTION (SB!KERNEL:%FUN-DOC SB!C::X))
;       (PACKAGE (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X))
;       (STRUCTURE-CLASS
;        (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X))))
;       ((OR SYMBOL CONS) (SB!KERNEL:RANDOM-DOCUMENTATION SB!C::X SB!C::DOC-TYPE)))
; --> LET COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G32788 'STRUCTURE-CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: STRUCTURE-CLASS

;     (TYPECASE SB!C::X
;       (STRUCTURE-CLASS
;        (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X))))
;       (T
;        (AND (TYPEP SB!C::X 'SYMBOL)
;             (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION SB!C::X)))))
; --> LET COND IF 
; ==>
;   (TYPEP #:G32782 'STRUCTURE-CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: STRUCTURE-CLASS
; 
; compilation unit finished
;   Undefined type:
;     STRUCTURE-CLASS
;   Undefined function:
;     CLASS-NAME
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN EMITTED-FULL-CALL-COUNT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/info-functions.lisp-obj-tmp written
; compilation finished in 0:00:00.814
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-macs.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFMACRO PAD-DATA-BLOCK ...)
; x-compiling (DEFUN REMOVE-KEYWORDS ...)
; x-compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...)
; x-compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...)
; x-compiling (DEFVAR *PRIMITIVE-OBJECTS* ...)
; x-compiling (DEFUN !%DEFINE-PRIMITIVE-OBJECT ...)
; x-compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...)
; x-compiling (DEFMACRO !DEFINE-PRIMITIVE-OBJECT ...)
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFMACRO DEF-REFFER ...)
; x-compiling (DEFMACRO DEF-SETTER ...)
; x-compiling (DEFMACRO DEF-ALLOC ...)
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...)
; x-compiling (DEFSTRUCT MODULAR-CLASS ...)
; x-compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...)
; x-compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...)
; x-compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...)
; x-compiling (DEFUN FIND-MODULAR-CLASS ...)
; x-compiling (DEFSTRUCT MODULAR-FUN-INFO ...)
; x-compiling (DEFUN FIND-MODULAR-VERSION ...)
; x-compiling (DEFUN MODULAR-VERSION-INFO ...)
; x-compiling (DEFUN %DEFINE-MODULAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-MODULAR-FUN ...)
; x-compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-macs.lisp-obj-tmp written
; compilation finished in 0:00:03.517
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SINGLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (BINDING) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (THREAD) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/objdef.lisp-obj-tmp written
; compilation finished in 0:00:01.431
; compiling file "/«PKGBUILDDIR»/src/compiler/sset.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...)
; x-compiling (DEFSTRUCT (SSET #) ...)
; x-compiling (DEFPRINTER (SSET) ...)
; x-compiling (DEFMACRO DO-SSET-ELEMENTS ...)
; x-compiling (DECLAIM (INLINE SSET-HASH1))
; x-compiling (DEFUN SSET-HASH1 ...)
; x-compiling (DECLAIM (INLINE SSET-HASH2))
; x-compiling (DEFUN SSET-HASH2 ...)
; x-compiling (DEFUN SSET-GROW ...)
; x-compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-ADJOIN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-DELETE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-MEMBER ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET= ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-EMPTY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN COPY-SSET ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-UNION ...)
; x-compiling (DEFUN SSET-INTERSECTION ...)
; x-compiling (DEFUN SSET-DIFFERENCE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/sset.lisp-obj-tmp written
; compilation finished in 0:00:02.008
; compiling file "/«PKGBUILDDIR»/src/compiler/node.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!STRUCT (CTRAN # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (LVAR # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (NODE # ...) ...)
; x-compiling (DEF!STRUCT (VALUED-NODE # ...) ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...)
; x-compiling (DEFATTR BLOCK-REOPTIMIZE)
; x-compiling (DEFATTR BLOCK-FLUSH-P)
; x-compiling (DEFATTR BLOCK-TYPE-CHECK)
; x-compiling (DEFATTR BLOCK-DELETE-P)
; x-compiling (DEFATTR BLOCK-TYPE-ASSERTED)
; x-compiling (DEFATTR BLOCK-TEST-MODIFIED)
; x-compiling (DEF!STRUCT (CBLOCK # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...)
; x-compiling (DEF!STRUCT (COMPONENT # ...) ...)
; x-compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...)
; x-compiling (DEFUN AVER-LIVE-COMPONENT ...)
; x-compiling (DEFUN LAMBDA-TOPLEVELISH-P ...)
; x-compiling (DEFUN COMPONENT-TOPLEVELISH-P ...)
; x-compiling (DEF!STRUCT (CLEANUP #) ...)
; x-compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (PHYSENV #) ...)
; x-compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (TAIL-SET) ...)
; x-compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (NLX-INFO # ...) ...)
; x-compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (LEAF # ...) ...)
; x-compiling (DEFUN LEAF-DYNAMIC-EXTENT ...)
; x-compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...)
; x-compiling (DEFUN LEAF-SOURCE-NAME ...)
; x-compiling (DEFUN LEAF-DEBUG-NAME ...)
; x-compiling (DEFUN LEAF-%DEBUG-NAME ...)
; x-compiling (DEF!STRUCT (CONSTANT # ...) ...)
; x-compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (BASIC-VAR # ...) ...)
; x-compiling (DEF!STRUCT (GLOBAL-VAR #) ...)
; x-compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (DEFINED-FUN #) ...)
; x-compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (FUNCTIONAL #) ...)
; x-compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...)
; x-compiling (DEFUN FUNCTIONAL-LETLIKE-P ...)
; x-compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...)
; x-compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...)
; x-compiling (DEF!STRUCT (CLAMBDA # ...) ...)
; x-compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...)
; x-compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT ARG-INFO ...)
; x-compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...)
; x-compiling (DEF!STRUCT (LAMBDA-VAR #) ...)
; x-compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...)
; x-compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...)
; x-compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...)
; x-compiling (DEFMACRO LAMBDA-VAR-DELETED ...)
; x-compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...)
; x-compiling (DEF!STRUCT (REF # ...) ...)
; x-compiling (DEFPRINTER (REF :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (CIF # ...) ...)
; x-compiling (DEFPRINTER (CIF :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (CSET # ...) ...)
; x-compiling (DEFPRINTER (CSET :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...)
; x-compiling (DEF!STRUCT (COMBINATION # ...))
; x-compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (MV-COMBINATION # ...))
; x-compiling (DEFPRINTER (MV-COMBINATION) ...)
; x-compiling (DEF!STRUCT (BIND # ...) ...)
; x-compiling (DEFPRINTER (BIND) ...)
; x-compiling (DEF!STRUCT (CRETURN # ...) ...)
; x-compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (CAST # ...) ...)
; x-compiling (DEFPRINTER (CAST :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (ENTRY # ...) ...)
; x-compiling (DEFPRINTER (ENTRY :IDENTITY ...))
; x-compiling (DEF!STRUCT (EXIT # ...) ...)
; x-compiling (DEFPRINTER (EXIT :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (DEFUN SB!C::%COERCE-TO-POLICY (SB!C::THING)
;       (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;             (SB!C::THING (SB!C::LEXENV-POLICY (ETYPECASE SB!C::THING # # #)))
;             (T SB!C::**BASELINE-POLICY**)))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::%COERCE-TO-POLICY
;         (SB!C::THING)
;       (BLOCK SB!C::%COERCE-TO-POLICY
;         (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;               (SB!C::THING (SB!C::LEXENV-POLICY #))
;               (T SB!C::**BASELINE-POLICY**))))
; 
; note: type assertion too complex to check:
;  (VALUES POLICY &REST T).
; x-compiling (DEFUN %COERCE-TO-POLICY ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in:
;      DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START))
;              (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;       (:PREDICATE SB!C::BLOCK-P))
;      (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST)
;      (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;      (LAST NIL :TYPE (OR SB!C::NODE NULL))
;      (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::FLAGS
;       (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                               SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;       :TYPE SB!C:ATTRIBUTES)
;      (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;        (:PREDICATE SB!C::BLOCK-P))
;     (SB!C::PRED NIL :TYPE LIST)
;     (SB!C::SUCC NIL :TYPE LIST)
;     (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;     (LAST NIL :TYPE (OR SB!C::NODE NULL))
;     (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::FLAGS
;      (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                              SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;      :TYPE SB!C:ATTRIBUTES)
;     (SB!C::KILL NIL)
;     (SB!C::GEN NIL)
;     (SB!C::IN NIL)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in:
;      DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL)
;                     (SB!KERNEL:%INSTANCE-REF
;                      (THE SB!C::MV-COMBINATION SB!KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL)
;                     (SB!KERNEL:%INSTANCE-REF
;                      (THE SB!C::COMBINATION SB!KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL)
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;       (:COPIER NIL))
;      (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;      (SB!C::ARGS NIL :TYPE LIST)
;      (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;      (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;      (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;        (:COPIER NIL))
;     (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;     (SB!C::ARGS NIL :TYPE LIST)
;     (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;     (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;     (SB!C::TYPE-VALIDATED-FOR-LEAF NIL)
;     (SB!INT:INFO NIL)
;     (SB!C::STEP-INFO))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT
;                                    SB!C::DELETED SB!C::EXPLICIT-VALUE-CELL)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION

; in: !DEF-BOOLEAN-ATTRIBUTE BLOCK
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE BLOCK SB!C::REOPTIMIZE SB!C::FLUSH-P
;                                    SB!C::TYPE-CHECK SB!C::DELETE-P
;                                    SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION

; in: DEFUN AVER-LIVE-COMPONENT
;     (EQL (SB!C:COMPONENT-INFO SB!C:COMPONENT) :DEAD)
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT
; 
; compilation unit finished
;   Undefined types:
;     CLOOP FUN-INFO IR2-COMPONENT
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 9 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DECLAIM (FREEZE-TYPE NODE ...))

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/node.lisp-obj-tmp written
; compilation finished in 0:00:31.711
; compiling file "/«PKGBUILDDIR»/src/compiler/vop.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...)
; x-compiling (DEFTYPE LOCAL-TN-NUMBER ...)
; x-compiling (DEFTYPE LOCAL-TN-COUNT ...)
; x-compiling (DEFTYPE LOCAL-TN-VECTOR ...)
; x-compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...)
; x-compiling (DEFTYPE SC-NUMBER ...)
; x-compiling (DEFTYPE SC-VECTOR ...)
; x-compiling (DEFTYPE SC-BIT-VECTOR ...)
; x-compiling (DEFTYPE LTN-POLICY ...)
; x-compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...)
; x-compiling (DEFPRINTER (PRIMITIVE-TYPE) ...)
; x-compiling (DEFSTRUCT (IR2-BLOCK # ...) ...)
; x-compiling (DEFPRINTER (IR2-BLOCK) ...)
; x-compiling (DEFSTRUCT (IR2-LVAR # ...) ...)
; x-compiling (DEFPRINTER (IR2-LVAR) ...)
; x-compiling (DEFSTRUCT (IR2-COMPONENT #) ...)
; x-compiling (DEFSTRUCT (ENTRY-INFO #) ...)
; x-compiling (DEFSTRUCT (IR2-PHYSENV #) ...)
; x-compiling (DEFPRINTER (IR2-PHYSENV) ...)
; x-compiling (DEFSTRUCT (RETURN-INFO #) ...)
; x-compiling (DEFPRINTER (RETURN-INFO) ...)
; x-compiling (DEFSTRUCT (IR2-NLX-INFO #) ...)
; x-compiling (DEFPRINTER (IR2-NLX-INFO) ...)
; x-compiling (DEFSTRUCT (CLOOP # ...) ...)
; x-compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (VOP # ...) ...)
; x-compiling (DEFPRINTER (VOP) ...)
; x-compiling (DEF!STRUCT (TN-REF # ...) ...)
; x-compiling (DEFPRINTER (TN-REF) ...)
; x-compiling (DEF!STRUCT (TEMPLATE # ...) ...)
; x-compiling (DEFPRINTER (TEMPLATE) ...)
; x-compiling (DEF!STRUCT (VOP-INFO # ...) ...)
; x-compiling (DEF!STRUCT (SB #) ...)
; x-compiling (DEFPRINTER (SB) ...)
; x-compiling (DEF!STRUCT (FINITE-SB #) ...)
; x-compiling (DEF!STRUCT (SC #) ...)
; x-compiling (DEFPRINTER (SC) ...)
; x-compiling (DEF!STRUCT (TN # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...)
; x-compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/vop.lisp-obj-tmp written
; compilation finished in 0:00:14.689
; compiling file "/«PKGBUILDDIR»/src/compiler/backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFVAR *BACKEND-BYTE-ORDER*)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *BACKEND-SC-NUMBERS* ...)
; x-compiling (DECLAIM (TYPE SC-VECTOR ...))
; x-compiling (DEFVAR *BACKEND-SB-LIST* ...)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-SC-NAMES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*)
; x-compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...))
; x-compiling (DEFVAR *BACKEND-PARSED-VOPS* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...)
; x-compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...)
; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; file: /«PKGBUILDDIR»/src/compiler/backend.lisp
; in: DEFVAR *BACKEND-SUBFEATURES*
;     'NIL
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFVAR *BACKEND-SUBFEATURES* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/backend.lisp-obj-tmp written
; compilation finished in 0:00:00.280
; compiling file "/«PKGBUILDDIR»/src/compiler/vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN TEMPLATE-OR-LOSE ...)
; x-compiling (DEFUN SC-OR-LOSE ...)
; x-compiling (DEFUN SB-OR-LOSE ...)
; x-compiling (DEFUN SC-NUMBER-OR-LOSE ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...)
; x-compiling (DEFUN COMPUTE-MOVE-COSTS ...)
; x-compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...)
; x-compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...)
; x-compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *VOP-TN-REFS* ...)
; x-compiling (DEF!CONSTANT SC-BITS ...)
; x-compiling (DEFUN EMIT-VOP ...)
; x-compiling (DEFUN ADJOIN-TEMPLATE ...)
; x-compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P))
; x-compiling (DEFUN TEMPLATE-CONDITIONAL-P ...)

; file: /«PKGBUILDDIR»/src/compiler/vmdef.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE VOP
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::VOP SB!C:ANY)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/vmdef.lisp-obj-tmp written
; compilation finished in 0:00:01.644
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/backend-parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...)
; x-compiling (SETF *BACKEND-BYTE-ORDER* ...)
; x-compiling (SETF *BACKEND-PAGE-BYTES* ...)
; x-compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...)
; x-compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...)
; x-compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/backend-parms.lisp-obj-tmp written
; compilation finished in 0:00:00.051
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangconstants.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")

; /«PKGBUILDDIR»/obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj-tmp written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/src/code/defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...)
; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; x-compiling (DEF NIL ...)
; x-compiling (DEFMACRO SB-XC:DEFMACRO ...)
; x-compiling (DEF!MACRO DEFMACRO-MUNDANELY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defmacro.lisp-obj-tmp written
; compilation finished in 0:00:00.216
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangmacros.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; /«PKGBUILDDIR»/obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj-tmp written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/src/compiler/late-macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/late-macros.lisp-obj-tmp written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFMACRO DEFINE-STORAGE-BASE ...)
; x-compiling (DEFMACRO DEFINE-STORAGE-CLASS ...)
; x-compiling (DEFMACRO DO-SC-PAIRS ...)
; x-compiling (DEFMACRO DEFINE-MOVE-FUN ...)
; x-compiling (DEFPARAMETER *SC-VOP-SLOTS* ...)
; x-compiling (DEFMACRO DEFINE-MOVE-VOP ...)
; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...)
; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...)
; x-compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...)
; x-compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...)
; x-compiling (DEF!STRUCT (VOP-PARSE # ...) ...)
; x-compiling (DEFPRINTER (VOP-PARSE) ...)
; x-compiling (DEF!STRUCT (OPERAND-PARSE # ...) ...)
; x-compiling (DEFPRINTER (OPERAND-PARSE) ...)
; x-compiling (DEFUN FIND-OPERAND ...)
; x-compiling (DEFUN VOP-PARSE-OR-LOSE ...)
; x-compiling (DEFUN ACCESS-OPERANDS ...)
; x-compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...)
; x-compiling (DEFUN VOP-SPEC-ARG ...)
; x-compiling (DEFUN PARSE-TIME-SPEC ...)
; x-compiling (DEFUN TIME-SPEC-ORDER ...)
; x-compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...)
; x-compiling (DEFUN COMPUTE-REF-ORDERING ...)
; x-compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...)
; x-compiling (DEFUN FIND-MOVE-FUNS ...)
; x-compiling (DEFUN CALL-MOVE-FUN ...)
; x-compiling (DEFUN DECIDE-TO-LOAD ...)
; x-compiling (DEFUN MAKE-GENERATOR-FUNCTION ...)
; x-compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*)
; x-compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...)
; x-compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...)
; x-compiling (DEFUN PARSE-VOP-OPERANDS ...)
; x-compiling (DEFUN PARSE-TEMPORARY ...)
; x-compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...)
; x-compiling (DEFUN PARSE-DEFINE-VOP ...)
; x-compiling (DEFUN COMPUTE-LOADING-COSTS ...)
; x-compiling (DEFPARAMETER *NO-COSTS* ...)
; x-compiling (DEFPARAMETER *NO-LOADS* ...)
; x-compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...)
; x-compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...)
; x-compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...)
; x-compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...)
; x-compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...)
; x-compiling (DEFUN CHECK-OPERAND-TYPES ...)
; x-compiling (DEFUN GROVEL-VOP-OPERANDS ...)
; x-compiling (DEFUN SET-UP-FUN-TRANSLATION ...)
; x-compiling (DEFUN MAKE-OPERAND-TYPE ...)
; x-compiling (DEFUN SPECIFY-OPERAND-TYPES ...)
; x-compiling (DEFUN MAKE-VOP-INFO-TYPES ...)
; x-compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...)
; x-compiling (DEFMACRO INHERIT-VOP-INFO ...)
; x-compiling (DEFUN SET-UP-VOP-INFO ...)
; x-compiling (DEF!MACRO DEFINE-VOP ...)
; x-compiling (DEFUN STORE-VOP-INFO ...)
; x-compiling (DEFUN MAKE-OPERAND-LIST ...)
; x-compiling (DEFMACRO EMIT-TEMPLATE ...)
; x-compiling (DEFMACRO VOP ...)
; x-compiling (DEFMACRO VOP* ...)
; x-compiling (DEF!MACRO SC-CASE ...)
; x-compiling (DEFMACRO SC-IS ...)
; x-compiling (DEFMACRO DO-IR2-BLOCKS ...)
; x-compiling (DEFMACRO DO-LIVE-TNS ...)
; x-compiling (DEFMACRO DO-PHYSENV-IR2-BLOCKS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/meta-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:13.083
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFVAR *REGISTER-NAMES* ...)
; x-compiling (DEFREG R0 ...)
; x-compiling (DEFREG R1 ...)
; x-compiling (DEFREG R2 ...)
; x-compiling (DEFREG LEXENV ...)
; x-compiling (DEFREG NL2 ...)
; x-compiling (DEFREG CODE ...)
; x-compiling (DEFREG NL3 ...)
; x-compiling (DEFREG OCFP ...)
; x-compiling (DEFREG R8 ...)
; x-compiling (DEFREG NFP ...)
; x-compiling (DEFREG NULL ...)
; x-compiling (DEFREG CFP ...)
; x-compiling (DEFREG NARGS ...)
; x-compiling (DEFREG NSP ...)
; x-compiling (DEFREG LR ...)
; x-compiling (DEFREG PC ...)
; x-compiling (DEFREGSET SYSTEM-REGS ...)
; x-compiling (DEFREGSET DESCRIPTOR-REGS ...)
; x-compiling (DEFREGSET NON-DESCRIPTOR-REGS ...)
; x-compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...)
; x-compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...)
; x-compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...)
; x-compiling (DEFINE-STORAGE-BASE REGISTERS ...)
; x-compiling (DEFINE-STORAGE-BASE CONTROL-STACK ...)
; x-compiling (DEFINE-STORAGE-BASE NON-DESCRIPTOR-STACK ...)
; x-compiling (DEFINE-STORAGE-BASE CONSTANT ...)
; x-compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...)
; x-compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...)
; x-compiling (DEFMACRO DEFINE-STORAGE-CLASSES ...)
; x-compiling (DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...)
; x-compiling (DEFREGTN NULL ...)
; x-compiling (DEFREGTN CODE ...)
; x-compiling (DEFREGTN NARGS ...)
; x-compiling (DEFREGTN OCFP ...)
; x-compiling (DEFREGTN NSP ...)
; x-compiling (DEFREGTN CFP ...)
; x-compiling (DEFREGTN LR ...)
; x-compiling (DEFREGTN PC ...)
; x-compiling (DEFUN IMMEDIATE-CONSTANT-SC ...)
; x-compiling (DEFUN BOXED-IMMEDIATE-SC-P ...)
; x-compiling (DEF!CONSTANT REGISTER-ARG-SCN ...)
; x-compiling (DEF!CONSTANT IMMEDIATE-ARG-SCN ...)
; x-compiling (DEF!CONSTANT CONTROL-STACK-ARG-SCN ...)
; x-compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...)
; x-compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...)
; x-compiling (DEF!CONSTANT NFP-SAVE-OFFSET ...)
; x-compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...)
; x-compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...)
; x-compiling (DEFUN LOCATION-PRINT-NAME ...)
; x-compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...)
; x-compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/vm.lisp-obj-tmp written
; compilation finished in 0:00:04.873
; compiling file "/«PKGBUILDDIR»/src/code/xset.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DECLAIM (INLINE ALLOC-XSET ...))
; x-compiling (DEFSTRUCT (XSET # ...) ...)
; x-compiling (DEFUN XSET-COUNT ...)
; x-compiling (DEFUN MAP-XSET ...)
; x-compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...)
; x-compiling (DEFUN ADD-TO-XSET ...)
; x-compiling (DEFUN XSET-FROM-LIST ...)
; x-compiling (DEFUN XSET-UNION ...)
; x-compiling (DEFUN XSET-MEMBER-P ...)
; x-compiling (DEFUN XSET-MEMBERS ...)
; x-compiling (DEFUN XSET-INTERSECTION ...)
; x-compiling (DEFUN XSET-SUBSET-P ...)
; x-compiling (DECLAIM (INLINE XSET-EMPTY-P))
; x-compiling (DEFUN XSET-EMPTY-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/xset.lisp-obj-tmp written
; compilation finished in 0:00:00.650
; compiling file "/«PKGBUILDDIR»/src/code/early-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT HAIRY-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:HAIRY-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-HAIRY-TYPE (SB!KERNEL::SPECIFIER))
;          (:COPIER NIL))
;       (SB!KERNEL::SPECIFIER NIL :TYPE T :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:HAIRY-TYPE {5508E4E9}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:HAIRY-TYPE-SPECIFIER could not be inlined
;   because the structure definition for SB!KERNEL:HAIRY-TYPE was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS HAIRY ...)
; x-compiling (DEFSTRUCT (UNKNOWN-TYPE # ...))
; x-compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...)
; x-compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT NEGATION-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:NEGATION-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION)))
;          (:COPIER NIL))
;       (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:NEGATION-TYPE {5209EAE9}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:NEGATION-TYPE-TYPE could not be inlined
;   because the structure definition for SB!KERNEL:NEGATION-TYPE was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS NEGATION ...)
; x-compiling (DEFSTRUCT (ARGS-TYPE # ...) ...)
; x-compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...)
; x-compiling (DEFUN PARSE-ARGS-TYPES ...)
; x-compiling (DEFSTRUCT (VALUES-TYPE # ...))
; x-compiling (DECLAIM (INLINE VALUES-TYPE-P))
; x-compiling (DEFUN VALUES-TYPE-P ...)
; x-compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...)
; x-compiling (DEFUN MAKE-VALUES-TYPE ...)
; x-compiling (!DEFINE-TYPE-CLASS VALUES ...)
; x-compiling (DEFSTRUCT (FUN-TYPE # ...) ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFGLOBAL *INTERNED-FUN-TYPES* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-FUN-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-FUN-TYPE ...)
; x-compiling (DEFSTRUCT (CONSTANT-TYPE # ...) ...)
; x-compiling (DEFSTRUCT (NAMED-TYPE # ...) ...)
; x-compiling (DEFPARAMETER *FLOAT-FORMATS* ...)
; x-compiling (DEFTYPE FLOAT-FORMAT ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT NUMERIC-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:NUMERIC-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'NUMBER)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-NUMERIC-TYPE) (:COPIER NIL))
;       (SB!KERNEL::ENUMERABLE NIL :READ-ONLY T)
;       (CLASS NIL :TYPE (MEMBER INTEGER RATIONAL FLOAT NIL) :READ-ONLY T)
;       (FORMAT NIL :TYPE (OR SB!KERNEL::FLOAT-FORMAT NULL) :READ-ONLY T)
;       (COMPLEXP :REAL :TYPE (MEMBER :REAL :COMPLEX NIL) :READ-ONLY T)
;       (SB!KERNEL::LOW NIL :TYPE (OR NUMBER CONS NULL) :READ-ONLY T)
;       (SB!KERNEL::HIGH NIL :TYPE (OR NUMBER CONS NULL) :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:NUMERIC-TYPE {5501BB99}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:NUMERIC-TYPE-FORMAT could not be inlined
;   because the structure definition for SB!KERNEL:NUMERIC-TYPE was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (NUMERIC-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *UNSIGNED-BYTE-TYPE* ...)
; x-compiling (DEFGLOBAL *INTEGER-TYPE* ...)
; x-compiling (DEFGLOBAL *UNSIGNED-BYTE-N-TYPES* ...)
; x-compiling (DEFGLOBAL *SIGNED-BYTE-N-TYPES* ...)
; x-compiling (DEFGLOBAL *REAL-FFLOAT-TYPE* ...)
; x-compiling (DEFGLOBAL *REAL-DFLOAT-TYPE* ...)
; x-compiling (DEFGLOBAL *COMPLEX-FFLOAT-TYPE* ...)
; x-compiling (DEFGLOBAL *COMPLEX-DFLOAT-TYPE* ...)
; x-compiling (DECLAIM (TYPE # ...) ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-NUMERIC-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-NUMERIC-TYPE ...)
; x-compiling (DEFUN MODIFIED-NUMERIC-TYPE ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT CHARACTER-SET-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:CHARACTER-SET-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CHARACTER-SET)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-CHARACTER-SET-TYPE (SB!KERNEL::PAIRS))
;          (:COPIER NIL))
;       (SB!KERNEL::PAIRS (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CHARACTER-SET-TYPE {53F45E29}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:CHARACTER-SET-TYPE-PAIRS could not be
;   inlined because the structure definition for SB!KERNEL:CHARACTER-SET-TYPE was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *CHARACTER-TYPE* ...)
; x-compiling (DEFGLOBAL *BASE-CHAR-TYPE* ...)
; x-compiling (DEFGLOBAL *EXTENDED-CHAR-TYPE* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-CHARACTER-SET-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT ARRAY-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:ARRAY-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'ARRAY)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-ARRAY-TYPE
;           (SB!KERNEL::DIMENSIONS COMPLEXP SB!KERNEL::ELEMENT-TYPE
;            SB!KERNEL::SPECIALIZED-ELEMENT-TYPE))
;          (:COPIER NIL))
;       (SB!KERNEL::DIMENSIONS '* :TYPE (OR LIST (MEMBER *)) :READ-ONLY T)
;       (COMPLEXP :MAYBE :TYPE (MEMBER T NIL :MAYBE) :READ-ONLY T)
;       (SB!KERNEL::ELEMENT-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE
;        :READ-ONLY T)
;       (SB!KERNEL::SPECIALIZED-ELEMENT-TYPE SB!KERNEL:*WILD-TYPE* :TYPE
;        SB!KERNEL:CTYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:ARRAY-TYPE {543415E9}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:ARRAY-TYPE-P,
;   SB!KERNEL:ARRAY-TYPE-DIMENSIONS and
;   SB!KERNEL:ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE could not be inlined because the
;   structure definition for SB!KERNEL:ARRAY-TYPE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *RANK-1-ARRAY-CTYPES* ...)
; x-compiling (DEFCONSTANT +CANON-ARRAY-CTYPE-HASH-DIVISOR+ ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-ARRAY-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-ARRAY-TYPE ...)
; x-compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *NULL-TYPE* ...)
; x-compiling (DEFGLOBAL *EQL-T-TYPE* ...)
; x-compiling (DEFGLOBAL *BOOLEAN-TYPE* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-MEMBER-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-MEMBER-TYPE ...)
; x-compiling (DEFUN MEMBER-TYPE-SIZE ...)
; x-compiling (DEFUN MEMBER-TYPE-MEMBER-P ...)
; x-compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...)
; x-compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...)
; x-compiling (DEFUN MEMBER-TYPE-MEMBERS ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT COMPOUND-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:COMPOUND-TYPE (:INCLUDE SB!KERNEL:CTYPE) (:CONSTRUCTOR NIL)
;          (:COPIER NIL))
;       (SB!KERNEL::ENUMERABLE NIL :READ-ONLY T)
;       (SB!KERNEL::TYPES NIL :TYPE LIST :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:COMPOUND-TYPE {54FE7701}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:COMPOUND-TYPE-TYPES could not be inlined
;   because the structure definition for SB!KERNEL:COMPOUND-TYPE was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT UNION-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:UNION-TYPE
;          (:INCLUDE SB!KERNEL:COMPOUND-TYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'UNION)))
;          (:CONSTRUCTOR SB!KERNEL::MAKE-UNION-TYPE
;           (SB!KERNEL::ENUMERABLE SB!KERNEL::TYPES))
;          (:COPIER NIL)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:UNION-TYPE {51CD4C51}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:COMPOUND-TYPE {5511D671}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:UNION-TYPE-P and
;   SB!KERNEL:UNION-TYPE-TYPES could not be inlined because the structure
;   definition for SB!KERNEL:UNION-TYPE was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (UNION-TYPE # ...))
; x-compiling (DEFSTRUCT (INTERSECTION-TYPE # ...))
; x-compiling (DEFUN TYPE-*-TO-T ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT CONS-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:CONS-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'CONS)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-CONS-TYPE
;           (SB!KERNEL::CAR-TYPE SB!KERNEL::CDR-TYPE))
;          (:COPIER NIL))
;       (SB!KERNEL::CAR-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY
;        T)
;       (SB!KERNEL::CDR-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY
;        T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CONS-TYPE {520490F1}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:CONS-TYPE-P could not be inlined because
;   the structure definition for SB!KERNEL:CONS-TYPE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (CONS-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *CONS-T-T-TYPE* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-CONS-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-CONS-TYPE ...)
; x-compiling (DEFUN CONS-TYPE-LENGTH-INFO ...)
; x-compiling (DEFMACRO !VALUES-SPECIFIER-TYPE-BODY ...)
; x-compiling (DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN SPECIFIER-TYPE ...)
; x-compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...)
; x-compiling (DEFUN TYPEXPAND-1 ...)
; x-compiling (DEFUN TYPEXPAND ...)
; x-compiling (DEFUN TYPEXPAND-ALL ...)
; x-compiling (DEFUN DEFINED-TYPE-NAME-P ...)
; x-compiling (DEFUN VALID-TYPE-SPECIFIER-P ...)
; x-compiling (DEFUN %NOTE-TYPE-DEFINED ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFUN VALID-TYPE-SPECIFIER-P
;     (HANDLER-CASE
;      (PROG1 T (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER))
;      (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL NIL) (ERROR NIL NIL))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; ==>
;   (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: PARSE-UNKNOWN-TYPE
; 
; compilation unit finished
;   Undefined types:
;     ERROR PARSE-UNKNOWN-TYPE
;   caught 10 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-type.lisp-obj-tmp written
; compilation finished in 0:00:08.801
; compiling file "/«PKGBUILDDIR»/src/code/class.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEF!STRUCT (CLASSOID # ...) ...)
; x-compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...)
; x-compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...)
; x-compiling (DEF!TYPE LAYOUT-CLOS-HASH ...)
; x-compiling (DEFVAR *!INITIAL-LAYOUTS*)
; x-compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*)
; x-compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...) ...)
; x-compiling (DEF!STRUCT (LAYOUT #) ...)
; x-compiling (DECLAIM (FREEZE-TYPE LAYOUT))
; x-compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P))
; x-compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN LAYOUT-PROPER-NAME ...)
; x-compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*)
; x-compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-LAYOUT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN REDEFINE-LAYOUT-WARNING ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-LAYOUT ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT
;     (DEFUN SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT
;            (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS SB!KERNEL::DEPTHOID
;             SB!KERNEL::METADATA)
;       (SB!KERNEL:WITH-WORLD-LOCK NIL
;         (LET ((SB!KERNEL:LAYOUT #))
;           (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT (OR # #) LENGTH
;                                             SB!KERNEL::INHERITS
;                                             SB!KERNEL::DEPTHOID
;                                             SB!KERNEL::METADATA))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT
;         (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS SB!KERNEL::DEPTHOID
;          SB!KERNEL::METADATA)
;       (BLOCK SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (LET (#)
;             (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT # LENGTH
;                                               SB!KERNEL::INHERITS
;                                               SB!KERNEL::DEPTHOID
;                                               SB!KERNEL::METADATA)))))
; 
; note: type assertion too complex to check:
;  (VALUES LAYOUT &REST T).
; x-compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...)
; x-compiling (DEFUN REGISTER-LAYOUT ...)
; x-compiling (DEFUN ORDER-LAYOUT-INHERITS ...)
; x-compiling (DEFUN TOPOLOGICAL-SORT ...)
; x-compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...)
; x-compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...))
; x-compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...)
; x-compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...))
; x-compiling (DEFUN MAKE-STRUCTURE-CLASSOID ...)
; x-compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE CLASSOID-CELL))
; x-compiling (DEFUN FIND-CLASSOID-CELL ...)
; x-compiling (DEFUN FIND-CLASSOID ...)
; x-compiling (DEFUN (SETF FIND-CLASSOID) ...)
; x-compiling (DEFUN %CLEAR-CLASSOID ...)
; x-compiling (DEFUN INSURED-FIND-CLASSOID ...)
; x-compiling (DEFUN CLASSOID-PROPER-NAME ...)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEFUN CLASSOID-ENUMERABLE-P
;     (DEFUN SB!KERNEL::CLASSOID-ENUMERABLE-P (SB!KERNEL::X)
;       (EQ (SB!KERNEL:CLASSOID-NAME SB!KERNEL::X) 'CHARACTER))
; 
; caught STYLE-WARNING:
;   redefining SB!KERNEL::CLASSOID-ENUMERABLE-P in DEFUN
; x-compiling (DEFUN CLASSOID-ENUMERABLE-P ...)
; x-compiling (!DEFINE-TYPE-CLASS CLASSOID ...)
; x-compiling (DEFUN %ENSURE-CLASSOID-VALID ...)
; x-compiling (DEFUN %ENSURE-BOTH-CLASSOIDS-VALID ...)
; x-compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...)
; x-compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...)
; x-compiling (DEF!STRUCT (STANDARD-CLASSOID # ...))
; x-compiling (DEF!STRUCT (STATIC-CLASSOID # ...))
; x-compiling (!DEFVAR *!BUILT-IN-CLASSES* ...)
; x-compiling (!COLD-INIT-FORMS (DOLIST # ...) ...)
; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes") ...)
; x-compiling (!COLD-INIT-FORMS (DOLIST # ...))
; x-compiling (DEFUN %MODIFY-CLASSOID ...)
; x-compiling (DEFUN %INVALIDATE-LAYOUT ...)
; x-compiling (DEFUN !CLASS-FINALIZE ...)
; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to set *BUILT-IN-CLASS-CODES*") ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/class.lisp-obj-tmp written
; compilation finished in 0:00:08.971
; compiling file "/«PKGBUILDDIR»/src/code/condition.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "condition.lisp 20")
; x-compiling (/SHOW0 "condition.lisp 24")
; x-compiling (DEF!STRUCT (CONDITION-CLASSOID # ...) ...)
; x-compiling (/SHOW0 "condition.lisp 49")
; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION ...)
; x-compiling (DEFSTRUCT (CONDITION-SLOT #) ...)
; x-compiling (/SHOW0 "condition.lisp 103")
; x-compiling (LET (#) ...)
; x-compiling (/SHOW0 "condition.lisp 103")
; x-compiling (SETF (CONDITION-CLASSOID-REPORT #) ...)
; x-compiling (DEFUN FIND-CONDITION-LAYOUT ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFVAR *EMPTY-CONDITION-SLOT* ...)
; x-compiling (DEFUN FIND-SLOT-DEFAULT ...)
; x-compiling (DEFUN FIND-CONDITION-CLASS-SLOT ...)
; x-compiling (DEFUN CONDITION-WRITER-FUNCTION ...)

; file: /«PKGBUILDDIR»/src/code/condition.lisp
; in: DEFUN CONDITION-READER-FUNCTION
;     (ERROR "missing slot ~S of ~S" SB!KERNEL::NAME CONDITION)
; ==>
;   "missing slot ~S of ~S"
; 
; note: deleting unreachable code
; x-compiling (DEFUN CONDITION-READER-FUNCTION ...)
; x-compiling (DEFUN ALLOCATE-CONDITION ...)
; x-compiling (DEFUN MAKE-CONDITION ...)
; x-compiling (DEFUN %COMPILER-DEFINE-CONDITION ...)
; x-compiling (DEFUN COMPUTE-EFFECTIVE-SLOTS ...)
; x-compiling (DECLAIM (NOTINLINE INSTALL-CONDITION-SLOT-READER ...))
; x-compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...)
; x-compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...)
; x-compiling (!DEFVAR *DEFINE-CONDITION-HOOKS* ...)
; x-compiling (DEFUN %SET-CONDITION-REPORT ...)
; x-compiling (DEFUN %DEFINE-CONDITION ...)
; x-compiling (DEFMACRO DEFINE-CONDITION ...)
; x-compiling (DEFINE-CONDITION SERIOUS-CONDITION ...)
; x-compiling (DEFINE-CONDITION ERROR ...)
; x-compiling (DEFINE-CONDITION WARNING ...)
; x-compiling (DEFINE-CONDITION STYLE-WARNING ...)
; x-compiling (DEFUN SIMPLE-CONDITION-PRINTER ...)
; x-compiling (DEFINE-CONDITION SIMPLE-CONDITION ...)
; x-compiling (DEFINE-CONDITION SIMPLE-WARNING ...)
; x-compiling (DEFINE-CONDITION SIMPLE-ERROR ...)
; x-compiling (DEFINE-CONDITION STORAGE-CONDITION ...)
; x-compiling (DEFINE-CONDITION TYPE-ERROR ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; x-compiling (DEFINE-CONDITION SIMPLE-TYPE-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BAD-TYPE ...)
; x-compiling (DEFINE-CONDITION PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION PARSE-ERROR ...)
; x-compiling (DEFINE-CONDITION CONTROL-ERROR ...)
; x-compiling (DEFINE-CONDITION STREAM-ERROR ...)
; x-compiling (DEFINE-CONDITION END-OF-FILE ...)
; x-compiling (DEFINE-CONDITION CLOSED-STREAM-ERROR ...)
; x-compiling (DEFINE-CONDITION FILE-ERROR ...)
; x-compiling (DEFINE-CONDITION PACKAGE-ERROR ...)
; x-compiling (DEFINE-CONDITION CELL-ERROR ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-CONDITION UNBOUND-VARIABLE ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-FUNCTION ...)
; x-compiling (DEFINE-CONDITION SPECIAL-FORM-FUNCTION ...)
; x-compiling (DEFINE-CONDITION ARITHMETIC-ERROR ...)
; x-compiling (DEFINE-CONDITION DIVISION-BY-ZERO ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-OVERFLOW ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-UNDERFLOW ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-INEXACT ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-INVALID-OPERATION ...)
; x-compiling (DEFINE-CONDITION PRINT-NOT-READABLE ...)
; x-compiling (DEFINE-CONDITION READER-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-READER-ERROR ...)
; x-compiling (DEFUN %REPORT-READER-ERROR ...)
; x-compiling (DEFINE-CONDITION BUG ...)
; x-compiling (DEFINE-CONDITION SIMPLE-STORAGE-CONDITION ...)
; x-compiling (DEFINE-CONDITION UNSUPPORTED-OPERATOR ...)
; x-compiling (DEFUN PRINT-REFERENCE ...)
; x-compiling (DEFINE-CONDITION REFERENCE-CONDITION ...)
; x-compiling (DEFVAR *PRINT-CONDITION-REFERENCES* ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-WARNING ...)
; x-compiling (DEFINE-CONDITION ARGUMENTS-OUT-OF-DOMAIN-ERROR ...)
; x-compiling (DEFUN REPORT-DUPLICATE-DEFINITION ...)
; x-compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...)
; x-compiling (DEFINE-CONDITION SAME-FILE-REDEFINITION-WARNING ...)
; x-compiling (DEFINE-CONDITION CONSTANT-MODIFIED ...)
; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE ...)
; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE-ERROR ...)
; x-compiling (DEFINE-CONDITION DEFCONSTANT-UNEQL ...)
; x-compiling (DEFINE-CONDITION ARRAY-INITIAL-ELEMENT-MISMATCH ...)
; x-compiling (DEFINE-CONDITION TYPE-WARNING ...)
; x-compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...)
; x-compiling (DEFINE-CONDITION LOCAL-ARGUMENT-MISMATCH ...)
; x-compiling (DEFINE-CONDITION FORMAT-ARGS-MISMATCH ...)
; x-compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...)
; x-compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...)
; x-compiling (DEFINE-CONDITION IMPLICIT-GENERIC-FUNCTION-WARNING ...)
; x-compiling (DEFINE-CONDITION EXTENSION-FAILURE ...)
; x-compiling (DEFINE-CONDITION STRUCTURE-INITARG-NOT-KEYWORD ...)
; x-compiling (DEFINE-CONDITION PACKAGE-LOCK-VIOLATION ...)
; x-compiling (DEFINE-CONDITION PACKAGE-LOCKED-ERROR ...)
; x-compiling (DEFINE-CONDITION SYMBOL-PACKAGE-LOCKED-ERROR ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-VARIABLE-ERROR ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR ...)
; x-compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-EXCEPTION ...)
; x-compiling (DEFINE-CONDITION INVALID-ARRAY-INDEX-ERROR ...)
; x-compiling (DEFINE-CONDITION INVALID-ARRAY-ERROR ...)
; x-compiling (DEFINE-CONDITION INDEX-TOO-LARGE-ERROR ...)
; x-compiling (DEFINE-CONDITION BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DEFINE-CONDITION NIL-ARRAY-ACCESSED-ERROR ...)
; x-compiling (DEFINE-CONDITION NAMESTRING-PARSE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-PACKAGE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-READER-PACKAGE-ERROR ...)
; x-compiling (DEFINE-CONDITION READER-EOF-ERROR ...)
; x-compiling (DEFINE-CONDITION READER-IMPOSSIBLE-NUMBER-ERROR ...)
; x-compiling (DEFINE-CONDITION STANDARD-READTABLE-MODIFIED-ERROR ...)
; x-compiling (DEFINE-CONDITION STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR ...)
; x-compiling (DEFINE-CONDITION TIMEOUT ...)
; x-compiling (DEFINE-CONDITION IO-TIMEOUT ...)
; x-compiling (DEFINE-CONDITION DEADLINE-TIMEOUT ...)
; x-compiling (DEFINE-CONDITION DECLARATION-TYPE-CONFLICT-ERROR ...)
; x-compiling (DEFINE-CONDITION STEP-CONDITION ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFINE-CONDITION STEP-FORM-CONDITION ...)
; x-compiling (DEFINE-CONDITION STEP-RESULT-CONDITION ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFINE-CONDITION STEP-VALUES-CONDITION ...)
; x-compiling (DEFINE-CONDITION STEP-FINISHED-CONDITION ...)
; x-compiling (DEFVAR *MUFFLED-WARNINGS* ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WARNING ...)
; x-compiling (DEFINE-CONDITION FUNCTION-REDEFINITION-WARNING ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFUN ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMACRO ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFGENERIC ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMETHOD ...)
; x-compiling (DEFUN FUNCTION-FILE-NAMESTRING ...)
; x-compiling (DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P ...)

; file: /«PKGBUILDDIR»/src/code/condition.lisp
; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P
;     (MACRO-FUNCTION SB!KERNEL::NAME)
; ==>
;   SB!KERNEL::NAME
; 
; note: deleting unreachable code
; x-compiling (DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ...)
; x-compiling (DEFUN UNINTERESTING-MACRO-REDEFINITION-P ...)
; x-compiling (DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ...)
; x-compiling (DEFUN UNINTERESTING-METHOD-REDEFINITION-P ...)
; x-compiling (DEFTYPE UNINTERESTING-REDEFINITION ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFTRANSFORM ...)
; x-compiling (DEFINE-CONDITION DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME ...)
; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME ...)
; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-STYLE-WARNING ...)
; x-compiling (DEFINE-CONDITION LEXICAL-ENVIRONMENT-TOO-COMPLEX ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-COMMENT ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-MACRO-CHAR-COMMENT ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-DISPATCH-MACRO-CHAR-COMMENT ...)
; x-compiling (DEFUN DECODING-ERROR-IN-COMMENT-MACRO ...)
; x-compiling (DEFINE-CONDITION DEPRECATED-EVAL-WHEN-SITUATIONS ...)
; x-compiling (DEFINE-CONDITION PROCLAMATION-MISMATCH ...)
; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH ...)
; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH-WARNING ...)
; x-compiling (DEFUN TYPE-PROCLAMATION-MISMATCH-WARN ...)
; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH ...)
; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-WARNING ...)
; x-compiling (DEFUN FTYPE-PROCLAMATION-MISMATCH-WARN ...)
; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-ERROR ...)
; x-compiling (DEFINE-CONDITION DEPRECATION-CONDITION ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-DEPRECATION-WARNING EARLY-DEPRECATION-WARNING ...)
; x-compiling (DEFINE-DEPRECATION-WARNING LATE-DEPRECATION-WARNING ...)
; x-compiling (DEFINE-DEPRECATION-WARNING FINAL-DEPRECATION-WARNING ...)
; x-compiling (DEFINE-CONDITION DEPRECATION-ERROR ...)
; x-compiling (DEFINE-CONDITION ABORT-FAILURE ...)
; x-compiling (DEFUN ABORT ...)
; x-compiling (DEFUN MUFFLE-WARNING ...)
; x-compiling (DEFUN TRY-RESTART ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART CONTINUE ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART STORE-VALUE ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART USE-VALUE ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART PRINT-UNREADABLY ...)
; x-compiling (DEF STEP-CONTINUE ...)
; x-compiling (DEF STEP-NEXT ...)
; x-compiling (DEF STEP-INTO ...)
; x-compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...)
; x-compiling (DEFINE-CONDITION SB!C:INLINING-DEPENDENCY-FAILURE ...)

; file: /«PKGBUILDDIR»/src/code/condition.lisp
; in: DEFUN ALLOCATE-CONDITION
;     (TYPECASE SB!KERNEL:CLASSOID
;       (SB!KERNEL::CONDITION-CLASSOID SB!KERNEL:CLASSOID)
;       (CLASS
;        (RETURN-FROM SB!KERNEL:ALLOCATE-CONDITION
;          (APPLY #'SB!KERNEL:ALLOCATE-CONDITION (CLASS-NAME SB!KERNEL:CLASSOID)
;                 SB!KERNEL::INITARGS)))
;       (SB!KERNEL:CLASSOID
;        (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!KERNEL:CLASSOID :EXPECTED-TYPE
;               'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL
;               "~S is not a condition class." :FORMAT-ARGUMENTS (LIST TYPE)))
;       (T
;        (ERROR 'SIMPLE-TYPE-ERROR :DATUM TYPE :EXPECTED-TYPE
;               'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL
;               "~S does not designate a condition class." :FORMAT-ARGUMENTS
;               (LIST TYPE))))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G47033 'CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: CLASS

; in: DEFUN %REPORT-READER-ERROR
;     (CLASS-NAME (CLASS-OF CONDITION))
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

; in: DEFUN ALLOCATE-CONDITION
;     (CLASS-NAME SB!KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

; in: DEFUN %REPORT-READER-ERROR
;     (CLASS-OF CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-OF

; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P
;     (TYPEP SB!KERNEL::OLD 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION

; in: DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR
;     (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-BOUNDP

; in: DEFINE-CONDITION UNDEFINED-ALIEN-ERROR
;     (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-BOUNDP

; in: DEFUN REPORT-DUPLICATE-DEFINITION
;     (SLOT-VALUE CONDITION 'SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-VALUE
; 
; compilation unit finished
;   Undefined types:
;     CLASS GENERIC-FUNCTION
;   Undefined functions:
;     CLASS-NAME CLASS-OF SLOT-BOUNDP SLOT-VALUE
;   caught 8 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (/SHOW0 "condition.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/condition.lisp-obj-tmp written
; compilation finished in 0:00:10.203
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/primtype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (/SHOW0 "primtype.lisp 17")
; x-compiling (!DEF-PRIMITIVE-TYPE T ...)
; x-compiling (/SHOW0 "primtype.lisp 20")
; x-compiling (SETF *BACKEND-T-PRIMITIVE-TYPE* ...)
; x-compiling (/SHOW0 "primtype.lisp 24")
; x-compiling (!DEF-PRIMITIVE-TYPE POSITIVE-FIXNUM ...)
; x-compiling (/SHOW0 "primtype.lisp 27")
; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-31 ...)
; x-compiling (/SHOW0 "primtype.lisp 31")
; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-32 ...)
; x-compiling (/SHOW0 "primtype.lisp 35")
; x-compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...)
; x-compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-32 ...)
; x-compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...)
; x-compiling (/SHOW0 "primtype.lisp 53")
; x-compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED)
;     '(SB!VM::UNSIGNED-BYTE-64 SB!VM::UNSIGNED-BYTE-63 SB!VM::POSITIVE-FIXNUM)
; 
; note: deleting unreachable code
; x-compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...)
; x-compiling (/SHOW0 "primtype.lisp 68")
; x-compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...)
; x-compiling (/SHOW0 "primtype.lisp 73")
; x-compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...)
; x-compiling (!DEF-PRIMITIVE-TYPE LIST ...)
; x-compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...)
; x-compiling (/SHOW0 "primtype.lisp 77")
; x-compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...)
; x-compiling (/SHOW0 "primtype.lisp 81")
; x-compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...)
; x-compiling (!DEF-PRIMITIVE-TYPE RATIO ...)
; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...)
; x-compiling (/SHOW0 "primtype.lisp 96")
; x-compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES)
; x-compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...)
; x-compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...)
; x-compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...)
; x-compiling (/SHOW0 "primtype.lisp 147")
; x-compiling (DEFUN PRIMITIVE-TYPE-OF ...)
; x-compiling (/SHOW0 "primtype.lisp 188")
; x-compiling (DEFUN PRIMITIVE-TYPE ...)
; x-compiling (/SHOW0 "primtype.lisp 191")

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                                   ...)
;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code
; x-compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...)
; 
; compilation unit finished
;   printed 7 notes
; x-compiling (/SHOW0 "primtype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/primtype.lisp-obj-tmp written
; compilation finished in 0:00:02.637
; compiling file "/«PKGBUILDDIR»/src/compiler/parse-lambda-list.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (/SHOW0 "parse-lambda-list.lisp 12")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PARSE-LAMBDA-LIST ...)
; x-compiling (/SHOW0 "parse-lambda-list.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/parse-lambda-list.lisp-obj-tmp written
; compilation finished in 0:00:00.526
; compiling file "/«PKGBUILDDIR»/src/code/host-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (/SHOW0 "host-alieneval.lisp 15")
; x-compiling (DEFUN ALIGN-OFFSET ...)
; x-compiling (DEFUN GUESS-ALIGNMENT ...)
; x-compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...)
; x-compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...)
; x-compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...)
; x-compiling (DEFUN METHOD-SLOT ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...)
; x-compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...)
; x-compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...)
; x-compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...)
; x-compiling (DEFUN PARSE-ALIEN-TYPE ...)
; x-compiling (DEFUN AUXILIARY-ALIEN-TYPE ...)
; x-compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...)
; x-compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...)
; x-compiling (DEFUN UNPARSE-ALIEN-TYPE ...)
; x-compiling (DEFUN %UNPARSE-ALIEN-TYPE ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; x-compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...)
; x-compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...)
; x-compiling (DEFUN %DEFINE-ALIEN-TYPE ...)
; x-compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...)
; x-compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!SYS:SYSTEM-AREA-POINTER
;         NIL
;       (SB!ALIEN::MAKE-ALIEN-SYSTEM-AREA-POINTER-TYPE :BITS SB!VM:N-WORD-BITS))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR
;          (#:WHOLE628 #:ENV629)
;     (DECLARE (IGNORABLE #:ENV629))
;     (DECLARE (IGNORE #:ENV629))
;     (BLOCK SB!SYS:SYSTEM-AREA-POINTER
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* ()
;           (BLOCK SB!SYS:SYSTEM-AREA-POINTER #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...))
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...)
; x-compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...)
; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP ...)
; x-compiling (DEFUN ALIEN-TYPE-= ...)
; x-compiling (DEFUN ALIEN-SUBTYPE-P ...)
; x-compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...)
; x-compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...)
; x-compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-LISP-REP-TYPE ...)
; x-compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:SIGNED
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR (#:WHOLE1134 #:ENV1135)
;     (DECLARE (IGNORABLE #:ENV1135))
;     (DECLARE (IGNORE #:ENV1135))
;     (BLOCK SB!ALIEN:SIGNED
;       (LET* ((#:SUPPLIEDP-48706 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK SB!ALIEN:SIGNED #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR (#:WHOLE1139 #:ENV1140)
;     (DECLARE (IGNORABLE #:ENV1140))
;     (DECLARE (IGNORE #:ENV1140))
;     (BLOCK INTEGER
;       (LET* ((#:SUPPLIEDP-48709 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK INTEGER #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:UNSIGNED
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR (#:WHOLE1144 #:ENV1145)
;     (DECLARE (IGNORABLE #:ENV1145))
;     (DECLARE (IGNORE #:ENV1145))
;     (BLOCK SB!ALIEN:UNSIGNED
;       (LET* ((#:SUPPLIEDP-48712 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK SB!ALIEN:UNSIGNED #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-BOOLEAN-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR (#:WHOLE1291 #:ENV1292)
;     (DECLARE (IGNORABLE #:ENV1292))
;     (DECLARE (IGNORE #:ENV1292))
;     (BLOCK BOOLEAN
;       (LET* ((#:SUPPLIEDP-48847 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK BOOLEAN #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:ENUM
;         (&WHOLE TYPE SB!ALIEN::NAME &REST SB!ALIEN::MAPPINGS &ENVIRONMENT
;          SB!ALIEN::ENV)
;       (COND
;        (SB!ALIEN::MAPPINGS
;         (LET (#)
;           (WHEN SB!ALIEN::NAME #)
;           SB!ALIEN::RESULT))
;        (SB!ALIEN::NAME
;         (MULTIPLE-VALUE-BIND (SB!ALIEN::RESULT SB!ALIEN::FOUND)
;             (SB!ALIEN::AUXILIARY-ALIEN-TYPE :ENUM SB!ALIEN::NAME SB!ALIEN::ENV)
;           (UNLESS SB!ALIEN::FOUND #)
;           SB!ALIEN::RESULT))
;        (T (ERROR "empty enum type: ~S" TYPE))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR (#:WHOLE1460 #:ENV1461)
;     (DECLARE (IGNORABLE #:ENV1461))
;     (BLOCK SB!ALIEN:ENUM
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # # #)
;           (BLOCK SB!ALIEN:ENUM #)))))
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-FROM)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-KIND)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-OFFSET)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-SIGNED)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-TO)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-FROM
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-KIND
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-OFFSET
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-SIGNED
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-TO
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...)
; x-compiling (DEFUN PARSE-ENUM ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT
;         NIL
;       (SB!ALIEN::MAKE-ALIEN-SINGLE-FLOAT-TYPE :TYPE 'SINGLE-FLOAT))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE1768 #:ENV1769)
;     (DECLARE (IGNORABLE #:ENV1769))
;     (DECLARE (IGNORE #:ENV1769))
;     (BLOCK SINGLE-FLOAT
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* ()
;           (BLOCK SINGLE-FLOAT #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT
;         NIL
;       (SB!ALIEN::MAKE-ALIEN-DOUBLE-FLOAT-TYPE :TYPE 'DOUBLE-FLOAT))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE1851 #:ENV1852)
;     (DECLARE (IGNORABLE #:ENV1852))
;     (DECLARE (IGNORE #:ENV1852))
;     (BLOCK DOUBLE-FLOAT
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* ()
;           (BLOCK DOUBLE-FLOAT #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR *
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR *
;         (SB!ALIEN::TO &ENVIRONMENT SB!ALIEN::ENV)
;       (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO
;                                                   (IF (EQ SB!ALIEN::TO T)
;                                                       NIL
;                                                       (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
;                                                        SB!ALIEN::TO
;                                                        SB!ALIEN::ENV))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR (#:WHOLE1936 #:ENV1937)
;     (DECLARE (IGNORABLE #:ENV1937))
;     (BLOCK *
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# #)
;           (BLOCK * #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...))
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY
;         (SB!ALIEN::ELE-TYPE &REST SB!ALIEN::DIMS &ENVIRONMENT SB!ALIEN::ENV)
;       (WHEN SB!ALIEN::DIMS
;         (UNLESS (TYPEP (FIRST SB!ALIEN::DIMS) '(OR SB!INT:INDEX NULL))
;           (ERROR "The first dimension is not a non-negative fixnum or NIL: ~S"
;                  (FIRST SB!ALIEN::DIMS)))
;         (LET ((SB!ALIEN::LOSER #))
;           (WHEN SB!ALIEN::LOSER
;             (ERROR "A dimension is not a non-negative fixnum: ~S"
;                    SB!ALIEN::LOSER))))
;       (LET ((SB!ALIEN::PARSED-ELE-TYPE
;              (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN::ELE-TYPE
;                                                   SB!ALIEN::ENV)))
;         (SB!ALIEN::MAKE-ALIEN-ARRAY-TYPE :ELEMENT-TYPE SB!ALIEN::PARSED-ELE-TYPE
;                                          :DIMENSIONS SB!ALIEN::DIMS :ALIGNMENT
;                                          (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT
;                                           SB!ALIEN::PARSED-ELE-TYPE)
;                                          :BITS
;                                          (IF (AND # #)
;                                              (* # #)))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR (#:WHOLE2156 #:ENV2157)
;     (DECLARE (IGNORABLE #:ENV2157))
;     (BLOCK ARRAY
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK ARRAY # #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...)
; x-compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:STRUCT
;         (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV)
;       (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :STRUCT SB!ALIEN::NAME SB!ALIEN::FIELDS
;                                          SB!ALIEN::ENV))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR (#:WHOLE2374 #:ENV2375)
;     (DECLARE (IGNORABLE #:ENV2375))
;     (BLOCK SB!ALIEN:STRUCT
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK SB!ALIEN:STRUCT #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNION
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR UNION
;         (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV)
;       (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :UNION SB!ALIEN::NAME SB!ALIEN::FIELDS
;                                          SB!ALIEN::ENV))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR (#:WHOLE2379 #:ENV2380)
;     (DECLARE (IGNORABLE #:ENV2380))
;     (BLOCK UNION
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK UNION #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...)
; x-compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...)
; x-compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...)
; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...)
; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...)
; x-compiling (DEFUN RECORD-FIELDS-MATCH-P ...)
; x-compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...)
; x-compiling (DEF!TYPE CALLING-CONVENTION ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION
;         (SB!ALIEN::RESULT-TYPE &REST SB!ALIEN::ARG-TYPES &ENVIRONMENT
;          SB!ALIEN::ENV)
;       (MULTIPLE-VALUE-BIND
;           (SB!ALIEN::BARE-RESULT-TYPE SB!ALIEN::CALLING-CONVENTION)
;           (TYPECASE SB!ALIEN::RESULT-TYPE
;             ((CONS SB!ALIEN::CALLING-CONVENTION *) (VALUES # #))
;             (T SB!ALIEN::RESULT-TYPE))
;         (SB!ALIEN-INTERNALS:MAKE-ALIEN-FUN-TYPE :CONVENTION
;                                                 SB!ALIEN::CALLING-CONVENTION
;                                                 :RESULT-TYPE
;                                                 (LET (#)
;                                                   (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
;                                                    SB!ALIEN::BARE-RESULT-TYPE
;                                                    SB!ALIEN::ENV))
;                                                 :ARG-TYPES
;                                                 (MAPCAR (LAMBDA # #)
;                                                         SB!ALIEN::ARG-TYPES))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR (#:WHOLE2643 #:ENV2644)
;     (DECLARE (IGNORABLE #:ENV2644))
;     (BLOCK FUNCTION
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK FUNCTION #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR VALUES
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR VALUES
;         (&REST VALUES &ENVIRONMENT SB!ALIEN::ENV)
;       (UNLESS SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY*
;         (ERROR "cannot use values types here"))
;       (LET ((SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY* NIL))
;         (SB!ALIEN::MAKE-ALIEN-VALUES-TYPE :VALUES (MAPCAR (LAMBDA # #) VALUES))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR (#:WHOLE2761 #:ENV2762)
;     (DECLARE (IGNORABLE #:ENV2762))
;     (BLOCK VALUES
;       (LET* ()
;         (LET* (# #)
;           (BLOCK VALUES # #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...)
; x-compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFMACRO-MUNDANELY ADDR ...)
; 
; compilation unit finished
;   caught 24 STYLE-WARNING conditions
; x-compiling (/SHOW0 "host-alieneval.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/host-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:15.655
; compiling file "/«PKGBUILDDIR»/src/code/host-c-call.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (/SHOW0 "host-c-call.lisp 12")
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-c-call.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:C-STRING
;         (&KEY (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT)
;          (SB!ALIEN::ELEMENT-TYPE 'CHARACTER) (SB!ALIEN::NOT-NULL NIL))
;       (SB!ALIEN::MAKE-ALIEN-C-STRING-TYPE :TO
;                                           (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
;                                            'CHAR (SB!KERNEL:MAKE-NULL-LEXENV))
;                                           :ELEMENT-TYPE SB!ALIEN::ELEMENT-TYPE
;                                           :EXTERNAL-FORMAT
;                                           SB!ALIEN::EXTERNAL-FORMAT :NOT-NULL
;                                           SB!ALIEN::NOT-NULL))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR (#:WHOLE141 #:ENV142)
;     (DECLARE (IGNORABLE #:ENV142))
;     (DECLARE (IGNORE #:ENV142))
;     (BLOCK SB!ALIEN:C-STRING
;       (LET* ((#:KEYWORDS-50368 #)
;              (#:SUPPLIEDP-50369 #)
;              (#:SUPPLIEDP-50370 #)
;              (#:SUPPLIEDP-50371 #))
;         (DECLARE (IGNORABLE #:KEYWORDS-50368))
;         (MULTIPLE-VALUE-BIND (#:PROBLEM143 #:INFO144)
;             (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-50368 '# 'NIL NIL)
;           (WHEN #:PROBLEM143 #))
;         (LET* (# # #)
;           (BLOCK SB!ALIEN:C-STRING #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...)
; x-compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...)
; x-compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NULL-ERROR ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "host-c-call.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/host-c-call.lisp-obj-tmp written
; compilation finished in 0:00:02.034
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (/SHOW0 "compiler-deftype.lisp 14")
; x-compiling (DEFUN %COMPILER-DEFTYPE ...)
; x-compiling (/SHOW0 "compiler-deftype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/compiler-deftype.lisp-obj-tmp written
; compilation finished in 0:00:00.163
; compiling file "/«PKGBUILDDIR»/src/code/late-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "late-type.lisp 19")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...)
; x-compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...)
; x-compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...)
; x-compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...)
; x-compiling (DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...)
; x-compiling (DEFMACRO !DEFINE-SUPERCLASSES ...)

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: DEFSTRUCT KEY-INFO
;     (DEFSTRUCT (SB!KERNEL:KEY-INFO (:PURE T) (:COPIER NIL))
;       (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T)
;       (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:KEY-INFO {54295BD1}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:KEY-INFO-NAME could not be inlined
;   because the structure definition for SB!KERNEL:KEY-INFO was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (KEY-INFO # ...) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...)
; x-compiling (DEFUN TYPE=-LIST ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-CLASS FUNCTION ...)
; x-compiling (!DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY* ...)
; x-compiling (!DEFVAR *UNPARSE-ALLOW-NEGATION* ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES FUNCTION ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-CLASS CONSTANT ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR CONSTANT-ARG ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN UNPARSE-ARGS-TYPES ...)
; x-compiling (!DEF-TYPE-TRANSLATOR FUNCTION ...)
; x-compiling (!DEF-TYPE-TRANSLATOR VALUES ...)
; x-compiling (DEFUN VALUES-TYPE-MIN-VALUE-COUNT ...)
; x-compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...)
; x-compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...)
; x-compiling (DEFUN TYPE-SINGLE-VALUE-P ...)
; x-compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE))
; x-compiling (DEFUN SINGLE-VALUE-TYPE ...)
; x-compiling (DEFUN FUN-TYPE-NARGS ...)
; x-compiling (DEFUN VALUES-TYPES ...)
; x-compiling (DEFUN VALUES-TYPE-TYPES ...)
; x-compiling (DEFUN VALUES-TYPE-OUT ...)
; x-compiling (DEFUN VALUES-TYPE-IN ...)
; x-compiling (DEFUN FIXED-VALUES-OP ...)
; x-compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...)
; x-compiling (DEFUN COERCE-TO-VALUES ...)
; x-compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...)
; x-compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...)
; x-compiling (DEFUN ARGS-TYPE-OP ...)
; x-compiling (DEFUN VALUES-TYPE-OP ...)
; x-compiling (DEFUN COMPARE-KEY-ARGS ...)
; x-compiling (DEFUN TYPE=-ARGS ...)
; x-compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...)
; x-compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN SB-XC:SUBTYPEP ...)
; x-compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN TYPE/= ...)
; x-compiling (DEFUN %TYPE-UNION2 ...)
; x-compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN %TYPE-INTERSECTION2 ...)
; x-compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...)
; x-compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...)
; x-compiling (DEFUN TYPE-SPECIFIER ...)
; x-compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN !PRECOMPUTE-TYPES ...)
; x-compiling (DEF SIMPLIFY-INTERSECTIONS ...)
; x-compiling (DEF SIMPLIFY-UNIONS ...)
; x-compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...)
; x-compiling (DEFUN TYPE-INTERSECTION ...)
; x-compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...)
; x-compiling (DEFUN TYPE-UNION ...)
; x-compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS NAMED ...)
; x-compiling (DEFGLOBAL *SATISFIES-KEYWORDP-TYPE* ...)
; x-compiling (DEFGLOBAL *FUN-NAME-TYPE* ...)
; x-compiling (DEFUN !LATE-TYPE-COLD-INIT2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-=) ...)
; x-compiling (DEFUN CONS-TYPE-MIGHT-BE-EMPTY-TYPE ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 ...) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR SATISFIES ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR NOT ...)
; x-compiling (!DEFINE-TYPE-CLASS NUMBER ...)
; x-compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL))
; x-compiling (DEFUN NUMERIC-TYPE-EQUAL ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...)
; x-compiling (DEFMACRO NUMERIC-BOUND-TEST ...)
; x-compiling (DEFMACRO NUMERIC-BOUND-TEST* ...)
; x-compiling (DEFMACRO NUMERIC-BOUND-MAX ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES NUMBER ...)
; x-compiling (DEFUN NUMERIC-TYPES-ADJACENT ...)
; x-compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...)
; x-compiling (!COLD-INIT-FORMS (SETF # ...) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...)
; x-compiling (DECLAIM (INLINE CANONICALIZED-BOUND))
; x-compiling (DEFUN CANONICALIZED-BOUND ...)
; x-compiling (!DEF-TYPE-TRANSLATOR INTEGER ...)
; x-compiling (DEFMACRO !DEF-BOUNDED-TYPE ...)
; x-compiling (!DEF-BOUNDED-TYPE RATIONAL ...)
; x-compiling (DEFUN COERCE-BOUND ...)
; x-compiling (DEFUN INNER-COERCE-REAL-BOUND ...)
; x-compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...)
; x-compiling (DEFUN COERCED-REAL-BOUND ...)
; x-compiling (DEFUN COERCED-FLOAT-BOUND ...)
; x-compiling (!DEF-TYPE-TRANSLATOR REAL ...)
; x-compiling (!DEF-TYPE-TRANSLATOR FLOAT ...)
; x-compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...)
; x-compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT)
; x-compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT)
; x-compiling (DEFUN NUMERIC-TYPES-INTERSECT ...)
; x-compiling (DEFUN ROUND-NUMERIC-BOUND ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN FLOAT-FORMAT-MAX ...)
; x-compiling (DEFUN NUMERIC-CONTAGION ...)
; x-compiling (!DEFINE-TYPE-CLASS ARRAY ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES ARRAY ...)
; x-compiling (DEFUN ARRAY-TYPES-INTERSECT ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...)
; x-compiling (!DEFINE-TYPE-CLASS MEMBER ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR MEMBER ...)
; x-compiling (!DEFINE-TYPE-CLASS INTERSECTION ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...)
; x-compiling (DEFUN TYPE=-SET ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...)
; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...)
; x-compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR AND ...)
; x-compiling (!DEFINE-TYPE-CLASS UNION ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...)
; x-compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...)
; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR OR ...)
; x-compiling (!DEFINE-TYPE-CLASS CONS ...)
; x-compiling (!DEF-TYPE-TRANSLATOR CONS ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...)
; x-compiling (!DEFINE-SUPERCLASSES CONS ...)
; x-compiling (!DEFINE-TYPE-CLASS CHARACTER-SET ...)
; x-compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN INTERSECT-TYPE-PAIRS ...)
; x-compiling (DEFUN TYPE-DIFFERENCE ...)
; x-compiling (!DEF-TYPE-TRANSLATOR ARRAY ...)
; x-compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...)
; x-compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...)
; x-compiling (DEFUN CTYPE-OF-NUMBER ...)
; x-compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION))
; x-compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...)
; x-compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION))

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION
;     (SB!KERNEL:GENERIC-ABSTRACT-TYPE-FUNCTION TYPE SB!KERNEL::OVERAPPROXIMATE
;                                               #'UNION #'INTERSECTION
;                                               #'SET-DIFFERENCE '* NIL
;                                               SB!KERNEL::OVER SB!KERNEL::UNDER)
; --> BLOCK LABELS BLOCK UNLESS IF PROGN RETURN-FROM SB!KERNEL::DEFAULT 
; ==>
;   SB!KERNEL::OVERAPPROXIMATE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 3 notes
; x-compiling (/SHOW0 "late-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-type.lisp-obj-tmp written
; compilation finished in 0:00:22.876
; compiling file "/«PKGBUILDDIR»/src/code/pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!PRETTY")
; x-compiling (DEFTYPE COLUMN ...)
; x-compiling (DEFTYPE POSN ...)
; x-compiling (DEFCONSTANT INITIAL-BUFFER-SIZE ...)
; x-compiling (DEFCONSTANT DEFAULT-LINE-LENGTH ...)
; x-compiling (DECLAIM (MAYBE-INLINE MAKE-PRETTY-STREAM))

; file: /«PKGBUILDDIR»/src/code/pprint.lisp
; in: DEFSTRUCT PRETTY-STREAM
;     (DEFSTRUCT
;         (SB!PRETTY:PRETTY-STREAM
;          (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT)
;           (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT)
;           (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC))
;          (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET))
;          (:COPIER NIL))
;       (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T)
;       (SB!KERNEL:LINE-LENGTH
;        (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET)
;            SB!PRETTY::DEFAULT-LINE-LENGTH)
;        :TYPE SB!PRETTY::COLUMN :READ-ONLY T)
;       (SB!PRETTY::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION))
;       (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE
;        (SIMPLE-ARRAY CHARACTER (*)))
;       (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX)
;       (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN)
;       (SB!PRETTY::BUFFER-START-COLUMN
;        (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN)
;       (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX)
;       (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL)
;        :READ-ONLY T)
;       (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!PRETTY:PRETTY-STREAM {540C1559}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for STREAM {525C93E1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {52763231}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!PRETTY:PRETTY-STREAM-P could not be inlined
;   because the structure definition for SB!PRETTY:PRETTY-STREAM was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (PRETTY-STREAM # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (INLINE INDEX-POSN ...))
; x-compiling (DEFUN INDEX-POSN ...)
; x-compiling (DEFUN POSN-INDEX ...)

; file: /«PKGBUILDDIR»/src/code/pprint.lisp
; in: DEFUN POSN-COLUMN
;     (DEFUN SB!PRETTY::POSN-COLUMN (SB!PRETTY::POSN STREAM)
;       (DECLARE (TYPE SB!PRETTY::POSN SB!PRETTY::POSN)
;                (TYPE SB!PRETTY:PRETTY-STREAM STREAM)
;                (VALUES SB!PRETTY::POSN))
;       (SB!PRETTY::INDEX-COLUMN (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM)
;        STREAM))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES FIXNUM &REST T)
;        (PROGN
;         (BLOCK SB!PRETTY::POSN-COLUMN
;           (SB!PRETTY::INDEX-COLUMN
;            (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM) STREAM))))
; 
; note: type assertion too complex to check:
;  (VALUES FIXNUM &REST T).
; x-compiling (DEFUN POSN-COLUMN ...)
; x-compiling (DEFUN PRINT-PRETTY-ON-STREAM-P ...)
; x-compiling (DEFUN PRETTY-OUT ...)

; file: /«PKGBUILDDIR»/src/code/pprint.lisp
; in: DEFUN PRETTY-SOUT
;     (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR
;           SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START
;           SB!PRETTY::WITH ...)
; --> BLOCK LET 
; ==>
;   FILL-POINTER
; 
; note: deleting unreachable code

; --> BLOCK LET LET 
; ==>
;   SB!PRETTY::START
; 
; note: deleting unreachable code

;     (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR
;           SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START
;           SB!PRETTY::WITH ...)
; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY WHEN IF >= 
; ==>
;   SB!PRETTY::I
; 
; note: deleting unreachable code

; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ 
; --> SETQ THE 1+ + 
; ==>
;   SB!PRETTY::I
; 
; note: deleting unreachable code

; ==>
;   SB!PRETTY::J
; 
; note: deleting unreachable code

;     (SETF (AREF SB!PRETTY::TARGET SB!PRETTY::I) (AREF STRING SB!PRETTY::J))
; --> LET* 
; ==>
;   SB!PRETTY::TARGET
; 
; note: deleting unreachable code

; ==>
;   SB!PRETTY::I
; 
; note: deleting unreachable code

;     (AREF STRING SB!PRETTY::J)
; ==>
;   STRING
; 
; note: deleting unreachable code

;     (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN PRETTY-SOUT ...)
; x-compiling (DEFUN PRETTY-MISC ...)
; x-compiling (DEFSTRUCT (LOGICAL-BLOCK #) ...)
; x-compiling (DEFUN REALLY-START-LOGICAL-BLOCK ...)
; x-compiling (DEFUN SET-INDENTATION ...)
; x-compiling (DEFUN REALLY-END-LOGICAL-BLOCK ...)
; x-compiling (DEFSTRUCT (QUEUED-OP # ...) ...)
; x-compiling (DEFMACRO ENQUEUE ...)
; x-compiling (DEFSTRUCT (SECTION-START # ...) ...)
; x-compiling (DEFSTRUCT (NEWLINE # ...) ...)
; x-compiling (DEFUN ENQUEUE-NEWLINE ...)
; x-compiling (DEFSTRUCT (INDENTATION # ...) ...)
; x-compiling (DEFUN ENQUEUE-INDENT ...)
; x-compiling (DEFSTRUCT (BLOCK-START # ...) ...)
; x-compiling (DEFUN START-LOGICAL-BLOCK ...)
; x-compiling (DEFSTRUCT (BLOCK-END # ...) ...)
; x-compiling (DEFUN END-LOGICAL-BLOCK ...)
; x-compiling (DEFSTRUCT (TAB # ...) ...)
; x-compiling (DEFUN ENQUEUE-TAB ...)
; x-compiling (DEFUN COMPUTE-TAB-SIZE ...)
; x-compiling (DEFUN INDEX-COLUMN ...)
; x-compiling (DEFUN EXPAND-TABS ...)
; x-compiling (DEFUN ENSURE-SPACE-IN-BUFFER ...)
; x-compiling (DEFUN MAYBE-OUTPUT ...)
; x-compiling (DEFUN MISERING-P ...)
; x-compiling (DEFUN FITS-ON-LINE-P ...)
; x-compiling (DEFUN OUTPUT-LINE ...)
; x-compiling (DEFUN OUTPUT-PARTIAL-LINE ...)
; x-compiling (DEFUN FORCE-PRETTY-OUTPUT ...)
; x-compiling (DEFUN PPRINT-NEWLINE ...)
; x-compiling (DEFUN PPRINT-INDENT ...)
; x-compiling (DEFUN PPRINT-TAB ...)
; x-compiling (DEFUN PPRINT-FILL ...)
; x-compiling (DEFUN PPRINT-LINEAR ...)
; x-compiling (DEFUN PPRINT-TABULAR ...)
; x-compiling (DEFVAR *STANDARD-PPRINT-DISPATCH-TABLE*)
; x-compiling (DEFVAR *INITIAL-PPRINT-DISPATCH-TABLE*)
; x-compiling (DEFSTRUCT (PPRINT-DISPATCH-ENTRY # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN ENTRY< ...)
; x-compiling (DEFUN COMPUTE-TEST-FN ...)
; x-compiling (DEFUN COPY-PPRINT-DISPATCH ...)
; x-compiling (DEFUN PPRINT-DISPATCH ...)
; x-compiling (DEFUN ASSERT-NOT-STANDARD-PPRINT-DISPATCH-TABLE ...)
; x-compiling (DEFUN TESTABLE-TYPE-P ...)
; x-compiling (DEFUN DEFER-TYPE-CHECKER ...)
; x-compiling (DEFUN SET-PPRINT-DISPATCH ...)
; x-compiling (DEFUN PPRINT-ARRAY ...)
; x-compiling (DEFUN PPRINT-VECTOR ...)
; x-compiling (DEFUN PPRINT-MULTI-DIM-ARRAY ...)
; x-compiling (DEFUN PPRINT-LAMBDA-LIST ...)
; x-compiling (DEFUN PPRINT-LAMBDA ...)
; x-compiling (DEFUN PPRINT-BLOCK ...)
; x-compiling (DEFUN PPRINT-FLET ...)
; x-compiling (DEFUN PPRINT-LET ...)
; x-compiling (DEFUN PPRINT-PROGN ...)
; x-compiling (DEFUN PPRINT-PROGV ...)
; x-compiling (DEFUN PPRINT-PROG2 ...)
; x-compiling (DEFUN PPRINT-UNQUOTING-COMMA ...)
; x-compiling (DEFVAR *PPRINT-QUOTE-WITH-SYNTACTIC-SUGAR* ...)
; x-compiling (DEFUN PPRINT-QUOTE ...)
; x-compiling (DEFUN PPRINT-DECLARE ...)
; x-compiling (DEFUN PPRINT-SETQ ...)
; x-compiling (DEFUN PPRINT-TAGBODY ...)
; x-compiling (DEFUN PPRINT-CASE ...)
; x-compiling (DEFUN PPRINT-DEFUN ...)
; x-compiling (DEFUN PPRINT-DEFMETHOD ...)
; x-compiling (DEFUN PPRINT-DEFPACKAGE ...)
; x-compiling (DEFUN PPRINT-DESTRUCTURING-BIND ...)
; x-compiling (DEFUN PPRINT-DO ...)
; x-compiling (DEFUN PPRINT-DOLIST ...)
; x-compiling (DEFUN PPRINT-TYPECASE ...)
; x-compiling (DEFUN PPRINT-PROG ...)
; x-compiling (DEFVAR *LOOP-SEPERATING-CLAUSES* ...)
; x-compiling (DEFUN PPRINT-EXTENDED-LOOP ...)
; x-compiling (DEFUN PPRINT-LOOP ...)
; x-compiling (DEFUN PPRINT-IF ...)
; x-compiling (DEFUN PPRINT-FUN-CALL ...)
; x-compiling (DEFUN PPRINT-SPREAD-FUN-CALL ...)
; x-compiling (DEFUN PPRINT-DATA-LIST ...)
; x-compiling (DEFUN MACRO-INDENTATION ...)
; x-compiling (DEFUN PPRINT-MACRO-CALL ...)
; x-compiling (DEFUN OUTPUT-PRETTY-OBJECT ...)
; x-compiling (DEFUN CALL-LOGICAL-BLOCK-PRINTER ...)
; x-compiling (DEFUN PPRINT-LENGTH-CHECK ...)
; x-compiling (DEFUN PPRINT-LENGTH-CHECK* ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 11 notes
; x-compiling (DEFUN !PPRINT-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/pprint.lisp-obj-tmp written
; compilation finished in 0:00:15.935
; compiling file "/«PKGBUILDDIR»/src/code/deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "deftypes-for-target.lisp 14")
; x-compiling (SB-XC:DEFTYPE BOOLEAN ...)
; x-compiling (SB-XC:DEFTYPE MOD ...)
; x-compiling (SB-XC:DEFTYPE SIGNED-BYTE ...)
; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...)
; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...)
; x-compiling (SB-XC:DEFTYPE BIT ...)
; x-compiling (SB-XC:DEFTYPE ATOM ...)
; x-compiling (SB-XC:DEFTYPE BASE-CHAR ...)
; x-compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...)
; x-compiling (SB-XC:DEFTYPE STANDARD-CHAR ...)
; x-compiling (SB-XC:DEFTYPE KEYWORD ...)
; x-compiling (SB-XC:DEFTYPE EQL ...)
; x-compiling (SB-XC:DEFTYPE VECTOR ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...)
; x-compiling (SB-XC:DEFTYPE BASE-STRING ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...)
; x-compiling (SB-XC:DEFTYPE STRING ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-STRING ...)
; x-compiling (SB-XC:DEFTYPE BIT-VECTOR ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...)
; x-compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...)
; x-compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...)
; x-compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE ARRAY-RANK ...)
; x-compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...)
; x-compiling (SB-XC:DEFTYPE FORM ...)
; x-compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE FILENAME ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE IRRATIONAL ...)
; x-compiling (SB-XC:DEFTYPE CHAR-CODE ...)
; x-compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...)
; x-compiling (SB-XC:DEFTYPE SEQUENCE-END ...)
; x-compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...)
; x-compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE CALLABLE ...)
; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...)
; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...)
; x-compiling (/SHOW0 "deftypes-for-target.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:02.107
; compiling file "/«PKGBUILDDIR»/src/compiler/knownfun.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (/SHOW0 "knownfun.lisp 17")
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...)
; x-compiling (DEFSTRUCT (FUN-INFO #) ...)
; x-compiling (DEFPRINTER (FUN-INFO) ...)
; x-compiling (DEFSTRUCT (TRANSFORM #) ...)
; x-compiling (DEFPRINTER (TRANSFORM) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %DEFTRANSFORM ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %DEFKNOWN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FUN-INFO-OR-LOSE ...)
; x-compiling (DEFUN RESULT-TYPE-FIRST-ARG ...)
; x-compiling (DEFUN RESULT-TYPE-LAST-ARG ...)
; x-compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...)
; x-compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...)
; x-compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; x-compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; x-compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...)
; x-compiling (DEFUN NTH-CONSTANT-ARGS ...)
; x-compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...)
; x-compiling (DEFUN READ-ELT-TYPE-DERIVER ...)
; x-compiling (DEFUN COUNT/POSITION-MAX-VALUE ...)
; x-compiling (DEFUN POSITION-DERIVE-TYPE ...)
; x-compiling (DEFUN COUNT-DERIVE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE IR1
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNWIND SB!C:ANY
;                                    SB!C::DX-SAFE SB!C:FOLDABLE SB!ASSEM:FLUSHABLE
;                                    SB!C:UNSAFELY-FLUSHABLE SB!C::IMPORTANT-RESULT
;                                    SB!C:MOVABLE SB!C::PREDICATE ...)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "knownfun.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/knownfun.lisp-obj-tmp written
; compilation finished in 0:00:02.363
; compiling file "/«PKGBUILDDIR»/src/compiler/constantp.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFGLOBAL **SPECIAL-FORM-CONSTANTP-TESTS** ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (!COLD-INIT-FORMS (SETF **SPECIAL-FORM-CONSTANTP-TESTS** ...))
; x-compiling (!DEFVAR *SPECIAL-CONSTANT-VARIABLES* ...)
; x-compiling (DEFUN %CONSTANTP ...)
; x-compiling (DEFUN %CONSTANT-FORM-VALUE ...)
; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...)
; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...)
; x-compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...)
; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...)
; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/constantp.lisp
; in: DECLAIM (INLINE SB-XC:CONSTANTP)
;     (DECLAIM (INLINE SB-XC:CONSTANTP))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB-XC:CONSTANTP) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-XC:CONSTANTP to be INLINE, but 11 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE SB-XC:CONSTANTP))
; x-compiling (DEFUN SB-XC:CONSTANTP ...)

; file: /«PKGBUILDDIR»/src/compiler/constantp.lisp
; in: DECLAIM (INLINE CONSTANT-FORM-VALUE)
;     (DECLAIM (INLINE SB!INT:CONSTANT-FORM-VALUE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!INT:CONSTANT-FORM-VALUE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!INT:CONSTANT-FORM-VALUE to be INLINE, but 6 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE))
; x-compiling (DEFUN CONSTANT-FORM-VALUE ...)
; x-compiling (DECLAIM (INLINE CONSTANT-TYPEP))
; x-compiling (DEFUN CONSTANT-TYPEP ...)
; x-compiling (DEFMACRO !DEFCONSTANTP ...)
; x-compiling (!DEFCONSTANTP QUOTE ...)
; x-compiling (!DEFCONSTANTP IF ...)
; x-compiling (!DEFCONSTANTP PROGN ...)
; x-compiling (!DEFCONSTANTP UNWIND-PROTECT ...)
; x-compiling (!DEFCONSTANTP THE ...)
; x-compiling (!DEFCONSTANTP BLOCK ...)
; x-compiling (!DEFCONSTANTP MULTIPLE-VALUE-PROG1 ...)
; x-compiling (!DEFCONSTANTP PROGV ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/constantp.lisp-obj-tmp written
; compilation finished in 0:00:01.916
; compiling file "/«PKGBUILDDIR»/src/compiler/fun-info-funs.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN %DEF-REFFER ...)
; x-compiling (DEFUN %DEF-SETTER ...)
; x-compiling (DEFUN %DEF-ALLOC ...)
; x-compiling (DEFUN %DEF-CASSER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fun-info-funs.lisp-obj-tmp written
; compilation finished in 0:00:00.128
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (SB-XC:DEFTYPE LONG-FLOAT ...)
; x-compiling (SB-XC:DEFTYPE SHORT-FLOAT ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-DIGITS ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-RADIX ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-INT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE BOOLE-CODE ...)
; x-compiling (SB-XC:DEFTYPE BYTE-SPECIFIER ...)
; x-compiling (SB-XC:DEFTYPE CHAR-INT ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-HOST ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-DEVICE ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-DIRECTORY ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-NAME ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-TYPE ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-VERSION ...)
; x-compiling (SB-XC:DEFTYPE INTERNAL-TIME ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-TYPE ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-INDEX ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-LENGTH ...)
; x-compiling (SB-XC:DEFTYPE BIT-INDEX ...)
; x-compiling (SB-XC:DEFTYPE UNBOXED-ARRAY ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...)
; x-compiling (SB-XC:DEFTYPE COMPLEX-VECTOR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FLOAT-FORMAT-NAME ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...)
; x-compiling (DEFUN CONTAINING-INTEGER-TYPE ...)
; x-compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...)
; x-compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...)
; x-compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-type.lisp-obj-tmp written
; compilation finished in 0:00:02.038
; compiling file "/«PKGBUILDDIR»/src/compiler/proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *UNDEFINED-WARNINGS*)
; x-compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-OLD-VARS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-OPTIMIZE-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...)
; x-compiling (!DEFVAR *QUEUED-PROCLAIMS* ...)
; x-compiling (DEFUN PROCESS-VARIABLE-DECLARATION ...)
; x-compiling (DEFUN PROCLAIM-TYPE ...)
; x-compiling (DEFUN PROCLAIM-FTYPE ...)
; x-compiling (DEFUN SEAL-CLASS ...)
; x-compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...)
; x-compiling (DEFUN PROCESS-INLINE-DECLARATION ...)
; x-compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...)
; x-compiling (DEFUN CANONIZED-DECL-SPEC ...)
; x-compiling (DEFUN %PROCLAIM ...)
; x-compiling (DEFUN SB-XC:PROCLAIM ...)

; file: /«PKGBUILDDIR»/src/compiler/proclaim.lisp
; in: DEFUN CANONIZED-DECL-SPEC
;     (TYPEP SB!C::ID 'CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: CLASS
; 
; compilation unit finished
;   Undefined type:
;     CLASS
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/proclaim.lisp-obj-tmp written
; compilation finished in 0:00:01.445
; compiling file "/«PKGBUILDDIR»/src/code/class-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "beginning class-init.lisp")
; x-compiling (DOLIST (X *!BUILT-IN-CLASSES*) ...)
; x-compiling (/SHOW0 "done with class-init.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/class-init.lisp-obj-tmp written
; compilation finished in 0:00:00.141
; compiling file "/«PKGBUILDDIR»/src/code/defstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "code/defstruct.lisp 15")
; x-compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...)
; x-compiling (DEFUN COMPILER-LAYOUT-READY-P ...)
; x-compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; x-compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; x-compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...)
; x-compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DD-CLASS-P ...)
; x-compiling (DEFUN DD-LAYOUT-OR-LOSE ...)
; x-compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DD-LISP-TYPE ...)
; x-compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...)
; x-compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...)
; x-compiling (SB-XC:DEFMACRO DEFSTRUCT ...)
; x-compiling (DEFUN ACCESSOR-INHERITED-DATA ...)
; x-compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...)
; x-compiling (DEFUN TYPED-COPIER-DEFINITIONS ...)
; x-compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...)
; x-compiling (DEFCONSTANT-EQX +DD-OPTION-NAMES+ ...)
; x-compiling (DEFUN PARSE-1-DD-OPTION ...)
; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...)
; x-compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...)
; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...)
; x-compiling (DEFUN PARSE-1-DSD ...)
; x-compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...)
; x-compiling (DEFUN ALLOCATE-1-SLOT ...)
; x-compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...)
; x-compiling (DEFUN FROB-DD-INCLUSION-STUFF ...)
; x-compiling (DEFUN INHERITS-FOR-STRUCTURE ...)
; x-compiling (DEFUN %DEFSTRUCT ...)
; x-compiling (DEFUN %ACCESSOR-PLACE-FORM ...)
; x-compiling (DEFUN SLOT-ACCESS-TRANSFORM ...)
; x-compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...)
; x-compiling (DEFUN UNDECLARE-STRUCTURE ...)
; x-compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...)
; x-compiling (DEFUN %COMPILER-DEFSTRUCT ...)
; x-compiling (DEFUN COMPARE-SLOTS ...)
; x-compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...)
; x-compiling (DEFUN %REDEFINE-DEFSTRUCT ...)
; x-compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH))
; x-compiling (DEFUN DD-LAYOUT-LENGTH ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DD-INSTANCE-LENGTH ...)
; x-compiling (DEFUN DD-BITMAP ...)
; x-compiling (DEFUN ENSURE-STRUCTURE-CLASS ...)
; x-compiling (DEFUN FIND-NAME-INDICES ...)
; x-compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...)
; x-compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...)
; x-compiling (DEFUN ACCESSOR-DEFINITIONS ...)
; x-compiling (DEFUN COPIER-DEFINITION ...)
; x-compiling (DEFUN PREDICATE-DEFINITION ...)
; x-compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...)
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...)
; x-compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...)
; x-compiling (DOLIST (ARGS #) ...)
; x-compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...)
; x-compiling (DEFUN STRUCTURE-INSTANCE-ACCESSOR-P ...)
; x-compiling (/SHOW0 "code/defstruct.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/defstruct.lisp-obj-tmp written
; compilation finished in 0:00:10.445
; compiling file "/«PKGBUILDDIR»/src/code/target-defstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "target-defstruct.lisp 12")
; x-compiling (DEFUN %MAKE-INSTANCE ...)
; x-compiling (DEFUN %INSTANCE-LENGTH ...)
; x-compiling (DEFUN %INSTANCE-REF ...)
; x-compiling (DEFUN %INSTANCE-SET ...)
; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/WORD ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/WORD ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/DOUBLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/DOUBLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; x-compiling (DEFUN %INSTANCE-LAYOUT ...)
; x-compiling (DEFUN %SET-INSTANCE-LAYOUT ...)
; x-compiling (DEFUN %MAKE-FUNCALLABLE-INSTANCE ...)
; x-compiling (DEFUN FUNCALLABLE-INSTANCE-P ...)
; x-compiling (DEFTYPE FUNCALLABLE-INSTANCE ...)
; x-compiling (DEFUN %FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFUN %SET-FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFUN FUNCALLABLE-INSTANCE-FUN ...)
; x-compiling (DEFUN (SETF FUNCALLABLE-INSTANCE-FUN) ...)
; x-compiling (!DEFVAR *DEFSTRUCT-HOOKS* ...)
; x-compiling (DEFUN %TARGET-DEFSTRUCT ...)
; x-compiling (DEFUN COPY-STRUCTURE ...)
; x-compiling (DEFUN RAW-INSTANCE-SLOTS-EQUALP ...)
; x-compiling (DEFUN %DEFAULT-STRUCTURE-PRETTY-PRINT ...)
; x-compiling (DEFUN %DEFAULT-STRUCTURE-UGLY-PRINT ...)
; x-compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN STRUCTURE-OBJ-SLOT-SAVING-FORMS ...)
; x-compiling (DEFUN CANONICAL-SLOT-SAVING-FORMS-P ...)

; file: /«PKGBUILDDIR»/src/code/target-defstruct.lisp
; in: DEFUN CANONICAL-SLOT-SAVING-FORMS-P
;     (CLASS-NAME (CLASS-OF SB!ALIEN:STRUCT))
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

;     (CLASS-OF SB!ALIEN:STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-OF
; 
; compilation unit finished
;   Undefined functions:
;     CLASS-NAME CLASS-OF
;   caught 2 STYLE-WARNING conditions
; x-compiling (/SHOW0 "target-defstruct.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-defstruct.lisp-obj-tmp written
; compilation finished in 0:00:01.176
; compiling file "/«PKGBUILDDIR»/src/code/alien-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "code/alien-type.lisp 16")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)

; file: /«PKGBUILDDIR»/src/code/alien-type.lisp
; in: DEFSTRUCT ALIEN-TYPE-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:ALIEN-TYPE-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!ALIEN:ALIEN)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-ALIEN-TYPE-TYPE
;           (SB!ALIEN-INTERNALS:ALIEN-TYPE))
;          (:COPIER NIL))
;       (SB!ALIEN-INTERNALS:ALIEN-TYPE NIL :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE
;        :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:ALIEN-TYPE-TYPE {550D9191}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52760A69}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527040A9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE could not be
;   inlined because the structure definition for SB!KERNEL:ALIEN-TYPE-TYPE was not
;   yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (ALIEN-TYPE-TYPE # ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS ALIEN ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES ALIEN ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR ALIEN ...)
; x-compiling (DEFUN MAKE-ALIEN-TYPE-TYPE ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "code/alien-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/alien-type.lisp-obj-tmp written
; compilation finished in 0:00:00.536
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangstructs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")

; /«PKGBUILDDIR»/obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj-tmp written
; compilation finished in 0:00:00.021
; compiling file "/«PKGBUILDDIR»/src/code/early-full-eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!EVAL")
; x-compiling (SB!INT:!DEFPARAMETER *EVAL-LEVEL* ...)
; x-compiling (SB!INT:!DEFPARAMETER *EVAL-VERBOSE* ...)

; file: /«PKGBUILDDIR»/src/code/early-full-eval.lisp
; in: !DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION
;     (SB!KERNEL:!DEFSTRUCT-WITH-ALTERNATE-METACLASS SB!EVAL:INTERPRETED-FUNCTION
;                                                    :SLOT-NAMES
;                                                    (SB!EVAL::NAME
;                                                     SB!EVAL::DEBUG-NAME
;                                                     SB!EVAL::LAMBDA-LIST
;                                                     SB!EVAL::DEBUG-LAMBDA-LIST
;                                                     SB!EVAL::ENV
;                                                     SB!EVAL::DECLARATIONS
;                                                     DOCUMENTATION SB!EVAL::BODY
;                                                     SB!EVAL::SOURCE-LOCATION)
;                                                    :BOA-CONSTRUCTOR
;                                                    SB!EVAL::%MAKE-INTERPRETED-FUNCTION
;                                                    :SUPERCLASS-NAME FUNCTION
;                                                    :METACLASS-NAME
;                                                    SB!KERNEL:STATIC-CLASSOID
;                                                    :METACLASS-CONSTRUCTOR
;                                                    SB!KERNEL:MAKE-STATIC-CLASSOID
;                                                    ...)
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM
;    '(INLINE SB!EVAL:INTERPRETED-FUNCTION-NAME
;      SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME
;      SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST
;      SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST
;      SB!EVAL::INTERPRETED-FUNCTION-ENV
;      SB!EVAL:INTERPRETED-FUNCTION-DECLARATIONS
;      SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION
;      SB!EVAL:INTERPRETED-FUNCTION-BODY
;      SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION)
;    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME to be INLINE, but 1 call to
;   it was previously compiled. A declaration of NOTINLINE at the call site will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST to be INLINE, but 1
;   call to it was previously compiled. A declaration of NOTINLINE at the call site
;   will eliminate this warning, as will proclaiming and defining the function
;   before its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION to be INLINE, but 1 call
;   to it was previously compiled. A declaration of NOTINLINE at the call site will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION to be INLINE, but 1
;   call to it was previously compiled. A declaration of NOTINLINE at the call site
;   will eliminate this warning, as will proclaiming and defining the function
;   before its first potential use.

; ==>
;   (SB!C::%PROCLAIM
;    '(INLINE (SETF SB!EVAL:INTERPRETED-FUNCTION-NAME)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST)
;      (SETF SB!EVAL::INTERPRETED-FUNCTION-ENV)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DECLARATIONS)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-BODY)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION))
;    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) to be
;   INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at
;   the call site will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST)
;   to be INLINE, but 1 call to it was previously compiled. A declaration of
;   NOTINLINE at the call site will eliminate this warning, as will proclaiming and
;   defining the function before its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) to be
;   INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at
;   the call site will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...)
; x-compiling (DECLAIM (FREEZE-TYPE INTERPRETED-FUNCTION))
; x-compiling (DEFUN MAKE-INTERPRETED-FUNCTION ...)
; x-compiling (DEFUN INTERPRETED-FUNCTION-P ...)
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions
; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-full-eval.lisp-obj-tmp written
; compilation finished in 0:00:00.777
; compiling file "/«PKGBUILDDIR»/src/code/typep.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN TYPEP ...)
; x-compiling (DEFUN %TYPEP ...)
; x-compiling (DEFUN %%TYPEP ...)
; x-compiling (DEFUN CLASSOID-CELL-TYPEP ...)
; x-compiling (DEFUN CLASSOID-TYPEP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/typep.lisp-obj-tmp written
; compilation finished in 0:00:00.990
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *COMPILER-ERROR-BAILOUT*)
; x-compiling (DEFINE-CONDITION COMPILER-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.")
; ==>
;   "Control returned from *COMPILER-ERROR-BAILOUT*."
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPILER-ERROR ...)
; x-compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...)
; x-compiling (DEFUN COMPILER-WARN ...)
; x-compiling (DEFUN COMPILER-STYLE-WARN ...)
; x-compiling (DEFUN SOURCE-TO-STRING ...)
; x-compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...)
; x-compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...)
; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/compiler-error.lisp-obj-tmp written
; compilation finished in 0:00:00.366
; compiling file "/«PKGBUILDDIR»/src/code/late-deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:00.043
; compiling file "/«PKGBUILDDIR»/src/code/type-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "precomputing built-in symbol type specifiers")
; x-compiling (!PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*)
; x-compiling (/SHOW0 "done with type-init.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/type-init.lisp-obj-tmp written
; compilation finished in 0:00:00.026
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (!COLD-INIT-FORMS (MAP # ...))
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fixup-type.lisp-obj-tmp written
; compilation finished in 0:00:00.106
; compiling file "/«PKGBUILDDIR»/src/code/package.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!TYPE HASH-VECTOR ...)
; x-compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...)
; x-compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFUN PACKAGE-ITER-INIT ...)
; x-compiling (DECLAIM (INLINE PKG-SYMBOL-VALID-P))
; x-compiling (DEFUN PKG-SYMBOL-VALID-P ...)
; x-compiling (DEFCONSTANT +PACKAGE-ITER-CHECK-SHADOWS+ ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in: DEFUN PACKAGE-ITER-STEP
;     (THE FIXNUM (+ SB!IMPL::STATE (ASH 1 6)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; x-compiling (DEFUN PACKAGE-ITER-STEP ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/package.lisp-obj-tmp written
; compilation finished in 0:00:02.525
; compiling file "/«PKGBUILDDIR»/src/code/random.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...)
; x-compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/random.lisp-obj-tmp written
; compilation finished in 0:00:00.194
; compiling file "/«PKGBUILDDIR»/src/code/hash-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...)
; x-compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...)
; x-compiling (DEFUN %HASH-TABLE-ALIST ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/hash-table.lisp-obj-tmp written
; compilation finished in 0:00:01.384
; compiling file "/«PKGBUILDDIR»/src/code/readtable.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...)
; x-compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE READTABLE))

; /«PKGBUILDDIR»/obj/from-xc/src/code/readtable.lisp-obj-tmp written
; compilation finished in 0:00:00.523
; compiling file "/«PKGBUILDDIR»/src/code/pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!STRUCT (HOST #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN ...)
; x-compiling (DEF!STRUCT (PATTERN #) ...)
; x-compiling (DEF!TYPE PATHNAME-COMPONENT-TOKENS ...)
; x-compiling (SB-XC:DEFSTRUCT (PATHNAME # ...) ...)
; x-compiling (SB-XC:DEFSTRUCT (LOGICAL-PATHNAME # ...))
; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...)
; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/pathname.lisp-obj-tmp written
; compilation finished in 0:00:03.452
; compiling file "/«PKGBUILDDIR»/src/code/host-pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!PRETTY")
; x-compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/host-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00.209
; compiling file "/«PKGBUILDDIR»/src/compiler/lexenv.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV))
; x-compiling (DEF!STRUCT (LEXENV # ...) ...)
; x-compiling (DEFUN LEXENV-POLICY ...)
; x-compiling (DEFUN NULL-LEXENV-P ...)
; x-compiling (DEFUN COERCE-TO-LEXENV ...)
; x-compiling (DEFUN PRINT-LEXENV ...)
; x-compiling (DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/lexenv.lisp-obj-tmp written
; compilation finished in 0:00:01.027
; compiling file "/«PKGBUILDDIR»/src/compiler/fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN COERCE ...)
; x-compiling (DEFKNOWN LIST-TO-VECTOR* ...)
; x-compiling (DEFKNOWN VECTOR-TO-VECTOR* ...)
; x-compiling (DEFKNOWN TYPE-OF ...)
; x-compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...)
; x-compiling (DEFKNOWN TYPEP ...)
; x-compiling (DEFKNOWN SUBTYPEP ...)
; x-compiling (DEFKNOWN (NULL SYMBOLP ...) ...)
; x-compiling (DEFKNOWN (EQ EQL ...) ...)
; x-compiling (DEFKNOWN (EQUAL EQUALP) ...)
; x-compiling (DEFKNOWN FIXNUM-MOD-P ...)
; x-compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...)
; x-compiling (DEFKNOWN CLASSOID-NAME ...)
; x-compiling (DEFKNOWN FIND-CLASSOID ...)
; x-compiling (DEFKNOWN CLASSOID-OF ...)
; x-compiling (DEFKNOWN LAYOUT-OF ...)
; x-compiling (DEFKNOWN COPY-STRUCTURE ...)
; x-compiling (DEFKNOWN (SYMBOL-VALUE) ...)
; x-compiling (DEFKNOWN ABOUT-TO-MODIFY-SYMBOL-VALUE ...)
; x-compiling (DEFKNOWN (SYMBOL-FUNCTION) ...)
; x-compiling (DEFKNOWN BOUNDP ...)
; x-compiling (DEFKNOWN FBOUNDP ...)
; x-compiling (DEFKNOWN SPECIAL-OPERATOR-P ...)
; x-compiling (DEFKNOWN SET ...)
; x-compiling (DEFKNOWN FDEFINITION ...)
; x-compiling (DEFKNOWN %SET-FDEFINITION ...)
; x-compiling (DEFKNOWN MAKUNBOUND ...)
; x-compiling (DEFKNOWN FMAKUNBOUND ...)
; x-compiling (DEFKNOWN APPLY ...)
; x-compiling (DEFKNOWN FUNCALL ...)
; x-compiling (DEFKNOWN (MAPCAR MAPLIST) ...)
; x-compiling (DEFKNOWN (MAPCAN MAPCON) ...)
; x-compiling (DEFKNOWN (MAPC MAPL) ...)
; x-compiling (DEFKNOWN VALUES ...)
; x-compiling (DEFKNOWN VALUES-LIST ...)
; x-compiling (DEFKNOWN MACRO-FUNCTION ...)
; x-compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...)
; x-compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...)
; x-compiling (DEFKNOWN PROCLAIM ...)
; x-compiling (DEFKNOWN GET ...)
; x-compiling (DEFKNOWN SB!IMPL::GET3 ...)
; x-compiling (DEFKNOWN REMPROP ...)
; x-compiling (DEFKNOWN SYMBOL-PLIST ...)
; x-compiling (DEFKNOWN GETF ...)
; x-compiling (DEFKNOWN GET-PROPERTIES ...)
; x-compiling (DEFKNOWN SYMBOL-NAME ...)
; x-compiling (DEFKNOWN MAKE-SYMBOL ...)
; x-compiling (DEFKNOWN %MAKE-SYMBOL ...)
; x-compiling (DEFKNOWN COPY-SYMBOL ...)
; x-compiling (DEFKNOWN GENSYM ...)
; x-compiling (DEFKNOWN SYMBOL-PACKAGE ...)
; x-compiling (DEFKNOWN KEYWORDP ...)
; x-compiling (DEFKNOWN GENTEMP ...)
; x-compiling (DEFKNOWN MAKE-PACKAGE ...)
; x-compiling (DEFKNOWN FIND-PACKAGE ...)
; x-compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; x-compiling (DEFKNOWN PACKAGE-NAME ...)
; x-compiling (DEFKNOWN PACKAGE-NICKNAMES ...)
; x-compiling (DEFKNOWN RENAME-PACKAGE ...)
; x-compiling (DEFKNOWN PACKAGE-USE-LIST ...)
; x-compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...)
; x-compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...)
; x-compiling (DEFKNOWN LIST-ALL-PACKAGES ...)
; x-compiling (DEFKNOWN INTERN ...)
; x-compiling (DEFKNOWN FIND-SYMBOL ...)
; x-compiling (DEFKNOWN (EXPORT IMPORT) ...)
; x-compiling (DEFKNOWN UNINTERN ...)
; x-compiling (DEFKNOWN UNEXPORT ...)
; x-compiling (DEFKNOWN SHADOWING-IMPORT ...)
; x-compiling (DEFKNOWN SHADOW ...)
; x-compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...)
; x-compiling (DEFKNOWN FIND-ALL-SYMBOLS ...)
; x-compiling (DEFKNOWN PACKAGE-ITER-STEP ...)
; x-compiling (DEFKNOWN ZEROP ...)
; x-compiling (DEFKNOWN (PLUSP MINUSP) ...)
; x-compiling (DEFKNOWN (ODDP EVENP) ...)
; x-compiling (DEFKNOWN (=) ...)
; x-compiling (DEFKNOWN (/=) ...)
; x-compiling (DEFKNOWN (< > ...) ...)
; x-compiling (DEFKNOWN (MAX MIN) ...)
; x-compiling (DEFKNOWN (+ *) ...)
; x-compiling (DEFKNOWN - ...)
; x-compiling (DEFKNOWN / ...)
; x-compiling (DEFKNOWN (1+ 1-) ...)
; x-compiling (DEFKNOWN CONJUGATE ...)
; x-compiling (DEFKNOWN GCD ...)
; x-compiling (DEFKNOWN LCM ...)
; x-compiling (DEFKNOWN EXP ...)
; x-compiling (DEFKNOWN EXPT ...)
; x-compiling (DEFKNOWN LOG ...)
; x-compiling (DEFKNOWN SQRT ...)
; x-compiling (DEFKNOWN ISQRT ...)
; x-compiling (DEFKNOWN (ABS PHASE ...) ...)
; x-compiling (DEFKNOWN CIS ...)
; x-compiling (DEFKNOWN (SIN COS) ...)
; x-compiling (DEFKNOWN ATAN ...)
; x-compiling (DEFKNOWN (TAN SINH ...) ...)
; x-compiling (DEFKNOWN (ASIN ACOS ...) ...)
; x-compiling (DEFKNOWN FLOAT ...)
; x-compiling (DEFKNOWN (RATIONAL) ...)
; x-compiling (DEFKNOWN (RATIONALIZE) ...)
; x-compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...)
; x-compiling (DEFKNOWN (FLOOR CEILING ...) ...)
; x-compiling (DEFKNOWN TRUNCATE ...)
; x-compiling (DEFKNOWN %MULTIPLY-HIGH ...)
; x-compiling (DEFKNOWN (MOD REM) ...)
; x-compiling (DEFKNOWN (FFLOOR FCEILING ...) ...)
; x-compiling (DEFKNOWN DECODE-FLOAT ...)
; x-compiling (DEFKNOWN SCALE-FLOAT ...)
; x-compiling (DEFKNOWN FLOAT-RADIX ...)
; x-compiling (DEFKNOWN FLOAT-SIGN ...)
; x-compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...)
; x-compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...)
; x-compiling (DEFKNOWN COMPLEX ...)
; x-compiling (DEFKNOWN (REALPART IMAGPART) ...)
; x-compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...)
; x-compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...)
; x-compiling (DEFKNOWN BOOLE ...)
; x-compiling (DEFKNOWN LOGNOT ...)
; x-compiling (DEFKNOWN LOGTEST ...)
; x-compiling (DEFKNOWN LOGBITP ...)
; x-compiling (DEFKNOWN ASH ...)
; x-compiling (DEFKNOWN %ASH/RIGHT ...)
; x-compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...)
; x-compiling (DEFKNOWN BYTE ...)
; x-compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...)
; x-compiling (DEFKNOWN LDB ...)
; x-compiling (DEFKNOWN LDB-TEST ...)
; x-compiling (DEFKNOWN MASK-FIELD ...)
; x-compiling (DEFKNOWN DPB ...)
; x-compiling (DEFKNOWN DEPOSIT-FIELD ...)
; x-compiling (DEFKNOWN RANDOM ...)
; x-compiling (DEFKNOWN MAKE-RANDOM-STATE ...)
; x-compiling (DEFKNOWN SEED-RANDOM-STATE ...)
; x-compiling (DEFKNOWN RANDOM-STATE-P ...)
; x-compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...)
; x-compiling (DEFKNOWN DIGIT-CHAR-P ...)
; x-compiling (DEFKNOWN (CHAR=) ...)
; x-compiling (DEFKNOWN (CHAR/= CHAR< ...) ...)
; x-compiling (DEFKNOWN (CHAR-EQUAL CHAR-LESSP ...) ...)
; x-compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...)
; x-compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...)
; x-compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...)
; x-compiling (DEFKNOWN CHARACTER ...)
; x-compiling (DEFKNOWN CHAR-CODE ...)
; x-compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...)
; x-compiling (DEFKNOWN DIGIT-CHAR ...)
; x-compiling (DEFKNOWN CHAR-INT ...)
; x-compiling (DEFKNOWN CHAR-NAME ...)
; x-compiling (DEFKNOWN NAME-CHAR ...)
; x-compiling (DEFKNOWN CODE-CHAR ...)
; x-compiling (DEFKNOWN ELT ...)
; x-compiling (DEFKNOWN SUBSEQ ...)
; x-compiling (DEFKNOWN COPY-SEQ ...)
; x-compiling (DEFKNOWN LENGTH ...)
; x-compiling (DEFKNOWN REVERSE ...)
; x-compiling (DEFKNOWN NREVERSE ...)
; x-compiling (DEFKNOWN MAKE-SEQUENCE ...)
; x-compiling (DEFKNOWN CONCATENATE ...)
; x-compiling (DEFKNOWN %CONCATENATE-TO-STRING ...)
; x-compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...)
; x-compiling (DEFKNOWN (MAP %MAP) ...)
; x-compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...)
; x-compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...)
; x-compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...)
; x-compiling (DEFKNOWN MAP-INTO ...)
; x-compiling (DEFKNOWN (SB!IMPL::VECTOR-MAP-INTO/SIMPLE-ARRAY-NIL SB!IMPL::VECTOR-MAP-INTO/SIMPLE-BASE-STRING ...) ...)
; x-compiling (DEFKNOWN SOME ...)
; x-compiling (DEFKNOWN (EVERY NOTANY ...) ...)
; x-compiling (DEFKNOWN REDUCE ...)
; x-compiling (DEFKNOWN FILL ...)
; x-compiling (DEFKNOWN REPLACE ...)
; x-compiling (DEFKNOWN REMOVE ...)
; x-compiling (DEFKNOWN SUBSTITUTE ...)
; x-compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...)
; x-compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...)
; x-compiling (DEFKNOWN DELETE ...)
; x-compiling (DEFKNOWN NSUBSTITUTE ...)
; x-compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...)
; x-compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...)
; x-compiling (DEFKNOWN REMOVE-DUPLICATES ...)
; x-compiling (DEFKNOWN DELETE-DUPLICATES ...)
; x-compiling (DEFKNOWN FIND ...)
; x-compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...)
; x-compiling (DEFKNOWN POSITION ...)
; x-compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...)
; x-compiling (DEFKNOWN COUNT ...)
; x-compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...)
; x-compiling (DEFKNOWN (MISMATCH SEARCH) ...)
; x-compiling (DEFKNOWN (STABLE-SORT SORT) ...)
; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...)
; x-compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...)
; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...)
; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...)
; x-compiling (DEFKNOWN MERGE ...)
; x-compiling (DEFKNOWN READ-SEQUENCE ...)
; x-compiling (DEFKNOWN WRITE-SEQUENCE ...)
; x-compiling (DEFKNOWN (CAR CDR ...) ...)
; x-compiling (DEFKNOWN (CAAR CADR ...) ...)
; x-compiling (DEFKNOWN CONS ...)
; x-compiling (DEFKNOWN TREE-EQUAL ...)
; x-compiling (DEFKNOWN ENDP ...)
; x-compiling (DEFKNOWN LIST-LENGTH ...)
; x-compiling (DEFKNOWN (NTH FAST-&REST-NTH) ...)
; x-compiling (DEFKNOWN NTHCDR ...)
; x-compiling (DEFKNOWN LAST ...)
; x-compiling (DEFKNOWN %LAST0 ...)
; x-compiling (DEFKNOWN %LAST1 ...)
; x-compiling (DEFKNOWN %LASTN/FIXNUM ...)
; x-compiling (DEFKNOWN %LASTN/BIGNUM ...)
; x-compiling (DEFKNOWN LIST ...)
; x-compiling (DEFKNOWN LIST* ...)
; x-compiling (DEFKNOWN MAKE-LIST ...)
; x-compiling (DEFKNOWN SB!IMPL::|List| ...)
; x-compiling (DEFKNOWN SB!IMPL::|List*| ...)
; x-compiling (DEFKNOWN SB!IMPL::|Append| ...)
; x-compiling (DEFKNOWN SB!IMPL::|Vector| ...)
; x-compiling (DEFKNOWN APPEND ...)
; x-compiling (DEFKNOWN SB!IMPL::APPEND2 ...)
; x-compiling (DEFKNOWN COPY-LIST ...)
; x-compiling (DEFKNOWN COPY-ALIST ...)
; x-compiling (DEFKNOWN COPY-TREE ...)
; x-compiling (DEFKNOWN REVAPPEND ...)
; x-compiling (DEFKNOWN NCONC ...)
; x-compiling (DEFKNOWN NRECONC ...)
; x-compiling (DEFKNOWN BUTLAST ...)
; x-compiling (DEFKNOWN NBUTLAST ...)
; x-compiling (DEFKNOWN LDIFF ...)
; x-compiling (DEFKNOWN (RPLACA RPLACD) ...)
; x-compiling (DEFKNOWN SUBST ...)
; x-compiling (DEFKNOWN NSUBST ...)
; x-compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...)
; x-compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...)
; x-compiling (DEFKNOWN SUBLIS ...)
; x-compiling (DEFKNOWN NSUBLIS ...)
; x-compiling (DEFKNOWN MEMBER ...)
; x-compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...)
; x-compiling (DEFKNOWN TAILP ...)
; x-compiling (DEFKNOWN ADJOIN ...)
; x-compiling (DEFKNOWN (UNION INTERSECTION ...) ...)
; x-compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...)
; x-compiling (DEFKNOWN SUBSETP ...)
; x-compiling (DEFKNOWN ACONS ...)
; x-compiling (DEFKNOWN PAIRLIS ...)
; x-compiling (DEFKNOWN (RASSOC ASSOC) ...)
; x-compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...)
; x-compiling (DEFKNOWN (MEMQ ASSQ) ...)
; x-compiling (DEFKNOWN DELQ ...)
; x-compiling (DEFKNOWN MAKE-HASH-TABLE ...)
; x-compiling (DEFKNOWN HASH-TABLE-P ...)
; x-compiling (DEFKNOWN GETHASH ...)
; x-compiling (DEFKNOWN SB!IMPL::GETHASH3 ...)
; x-compiling (DEFKNOWN %PUTHASH ...)
; x-compiling (DEFKNOWN REMHASH ...)
; x-compiling (DEFKNOWN MAPHASH ...)
; x-compiling (DEFKNOWN CLRHASH ...)
; x-compiling (DEFKNOWN HASH-TABLE-COUNT ...)
; x-compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...)
; x-compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...)
; x-compiling (DEFKNOWN HASH-TABLE-SIZE ...)
; x-compiling (DEFKNOWN HASH-TABLE-TEST ...)
; x-compiling (DEFKNOWN SXHASH ...)
; x-compiling (DEFKNOWN PSXHASH ...)
; x-compiling (DEFKNOWN HASH-TABLE-EQUALP ...)
; x-compiling (DEFKNOWN MAKE-ARRAY ...)
; x-compiling (DEFKNOWN %MAKE-ARRAY ...)
; x-compiling (DEFKNOWN SB!IMPL::FILL-DATA-VECTOR ...)
; x-compiling (DEFKNOWN VECTOR ...)
; x-compiling (DEFKNOWN AREF ...)
; x-compiling (DEFKNOWN ROW-MAJOR-AREF ...)
; x-compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFKNOWN ARRAY-RANK ...)
; x-compiling (DEFKNOWN ARRAY-DIMENSION ...)
; x-compiling (DEFKNOWN ARRAY-DIMENSIONS ...)
; x-compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...)
; x-compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...)
; x-compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...)
; x-compiling (DEFKNOWN SVREF ...)
; x-compiling (DEFKNOWN BIT ...)
; x-compiling (DEFKNOWN SBIT ...)
; x-compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...)
; x-compiling (DEFKNOWN BIT-NOT ...)
; x-compiling (DEFKNOWN BIT-VECTOR-= ...)
; x-compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...)
; x-compiling (DEFKNOWN FILL-POINTER ...)
; x-compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...)
; x-compiling (DEFKNOWN VECTOR-PUSH ...)
; x-compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...)
; x-compiling (DEFKNOWN VECTOR-POP ...)
; x-compiling (DEFKNOWN ADJUST-ARRAY ...)
; x-compiling (DEFKNOWN CHAR ...)
; x-compiling (DEFKNOWN SCHAR ...)
; x-compiling (DEFKNOWN (STRING= STRING-EQUAL) ...)
; x-compiling (DEFKNOWN (STRING< STRING> ...) ...)
; x-compiling (DEFKNOWN MAKE-STRING ...)
; x-compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...)
; x-compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...)
; x-compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...)
; x-compiling (DEFKNOWN STRING ...)
; x-compiling (DEFKNOWN (STRING<* STRING>* ...) ...)
; x-compiling (DEFKNOWN STRING=* ...)
; x-compiling (DEFKNOWN EVAL ...)
; x-compiling (DEFKNOWN CONSTANTP ...)
; x-compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...)
; x-compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...)
; x-compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...)
; x-compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...)
; x-compiling (DEFKNOWN MAKE-ECHO-STREAM ...)
; x-compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...)
; x-compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...)
; x-compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...)
; x-compiling (DEFKNOWN STREAMP ...)
; x-compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...)
; x-compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...)
; x-compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...)
; x-compiling (DEFKNOWN OPEN-STREAM-P ...)
; x-compiling (DEFKNOWN CLOSE ...)
; x-compiling (DEFKNOWN FILE-STRING-LENGTH ...)
; x-compiling (DEFKNOWN COPY-READTABLE ...)
; x-compiling (DEFKNOWN READTABLEP ...)
; x-compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...)
; x-compiling (DEFKNOWN SET-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN GET-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...)
; x-compiling (DEFKNOWN PPRINT-DISPATCH ...)
; x-compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...)
; x-compiling (DEFKNOWN PPRINT-TABULAR ...)
; x-compiling (DEFKNOWN PPRINT-INDENT ...)
; x-compiling (DEFKNOWN PPRINT-NEWLINE ...)
; x-compiling (DEFKNOWN PPRINT-TAB ...)
; x-compiling (DEFKNOWN SET-PPRINT-DISPATCH ...)
; x-compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...)
; x-compiling (DEFKNOWN READ-CHAR ...)
; x-compiling (DEFKNOWN READ-CHAR-NO-HANG ...)
; x-compiling (DEFKNOWN READ-DELIMITED-LIST ...)
; x-compiling (DEFKNOWN READ-LINE ...)
; x-compiling (DEFKNOWN UNREAD-CHAR ...)
; x-compiling (DEFKNOWN PEEK-CHAR ...)
; x-compiling (DEFKNOWN LISTEN ...)
; x-compiling (DEFKNOWN CLEAR-INPUT ...)
; x-compiling (DEFKNOWN READ-FROM-STRING ...)
; x-compiling (DEFKNOWN PARSE-INTEGER ...)
; x-compiling (DEFKNOWN READ-BYTE ...)
; x-compiling (DEFKNOWN (PRIN1 PRINT ...) ...)
; x-compiling (DEFKNOWN OUTPUT-OBJECT ...)
; x-compiling (DEFKNOWN (PPRINT) ...)
; x-compiling (DEFFROB WRITE ...)
; x-compiling (DEFFROB WRITE-TO-STRING ...)
; x-compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...)
; x-compiling (DEFKNOWN SB!IMPL::STRINGIFY-OBJECT ...)
; x-compiling (DEFKNOWN WRITE-CHAR ...)
; x-compiling (DEFKNOWN (WRITE-STRING WRITE-LINE) ...)
; x-compiling (DEFKNOWN (TERPRI FINISH-OUTPUT ...) ...)
; x-compiling (DEFKNOWN FRESH-LINE ...)
; x-compiling (DEFKNOWN WRITE-BYTE ...)
; x-compiling (DEFKNOWN FORMAT ...)
; x-compiling (DEFKNOWN SB!FORMAT::ARGS-EXHAUSTED ...)
; x-compiling (DEFKNOWN (Y-OR-N-P YES-OR-NO-P) ...)
; x-compiling (DEFKNOWN WILD-PATHNAME-P ...)
; x-compiling (DEFKNOWN PATHNAME-MATCH-P ...)
; x-compiling (DEFKNOWN TRANSLATE-PATHNAME ...)
; x-compiling (DEFKNOWN LOGICAL-PATHNAME ...)
; x-compiling (DEFKNOWN TRANSLATE-LOGICAL-PATHNAME ...)
; x-compiling (DEFKNOWN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFKNOWN LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFKNOWN PATHNAME ...)
; x-compiling (DEFKNOWN TRUENAME ...)
; x-compiling (DEFKNOWN PARSE-NAMESTRING ...)
; x-compiling (DEFKNOWN MERGE-PATHNAMES ...)
; x-compiling (DEFKNOWN MAKE-PATHNAME ...)
; x-compiling (DEFKNOWN PATHNAMEP ...)
; x-compiling (DEFKNOWN PATHNAME-HOST ...)
; x-compiling (DEFKNOWN PATHNAME-DEVICE ...)
; x-compiling (DEFKNOWN PATHNAME-DIRECTORY ...)
; x-compiling (DEFKNOWN PATHNAME-NAME ...)
; x-compiling (DEFKNOWN PATHNAME-TYPE ...)
; x-compiling (DEFKNOWN PATHNAME-VERSION ...)
; x-compiling (DEFKNOWN PATHNAME= ...)
; x-compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...)
; x-compiling (DEFKNOWN ENOUGH-NAMESTRING ...)
; x-compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...)
; x-compiling (DEFKNOWN OPEN ...)
; x-compiling (DEFKNOWN RENAME-FILE ...)
; x-compiling (DEFKNOWN DELETE-FILE ...)
; x-compiling (DEFKNOWN PROBE-FILE ...)
; x-compiling (DEFKNOWN FILE-WRITE-DATE ...)
; x-compiling (DEFKNOWN FILE-AUTHOR ...)
; x-compiling (DEFKNOWN FILE-POSITION ...)
; x-compiling (DEFKNOWN FILE-LENGTH ...)
; x-compiling (DEFKNOWN LOAD ...)
; x-compiling (DEFKNOWN DIRECTORY ...)
; x-compiling (DEFKNOWN ERROR ...)
; x-compiling (DEFKNOWN CERROR ...)
; x-compiling (DEFKNOWN INVALID-METHOD-ERROR ...)
; x-compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...)
; x-compiling (DEFKNOWN SIGNAL ...)
; x-compiling (DEFKNOWN WARN ...)
; x-compiling (DEFKNOWN INVOKE-DEBUGGER ...)
; x-compiling (DEFKNOWN BREAK ...)
; x-compiling (DEFKNOWN MAKE-CONDITION ...)
; x-compiling (DEFKNOWN COMPUTE-RESTARTS ...)
; x-compiling (DEFKNOWN FIND-RESTART ...)
; x-compiling (DEFKNOWN INVOKE-RESTART ...)
; x-compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...)
; x-compiling (DEFKNOWN RESTART-NAME ...)
; x-compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...)
; x-compiling (DEFKNOWN CONTINUE ...)
; x-compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...)
; x-compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...)
; x-compiling (DEFKNOWN BUG ...)
; x-compiling (DEFKNOWN SIMPLE-READER-ERROR ...)
; x-compiling (DEFKNOWN READER-EOF-ERROR ...)
; x-compiling (DEFKNOWN COMPILE ...)
; x-compiling (DEFKNOWN COMPILE-FILE ...)
; x-compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...)
; x-compiling (DEFKNOWN DISASSEMBLE ...)
; x-compiling (DEFKNOWN DESCRIBE ...)
; x-compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...)
; x-compiling (DEFKNOWN INSPECT ...)
; x-compiling (DEFKNOWN ROOM ...)
; x-compiling (DEFKNOWN ED ...)
; x-compiling (DEFKNOWN DRIBBLE ...)
; x-compiling (DEFKNOWN APROPOS ...)
; x-compiling (DEFKNOWN APROPOS-LIST ...)
; x-compiling (DEFKNOWN GET-DECODED-TIME ...)
; x-compiling (DEFKNOWN GET-UNIVERSAL-TIME ...)
; x-compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...)
; x-compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...)
; x-compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...)
; x-compiling (DEFKNOWN SLEEP ...)
; x-compiling (DEFKNOWN CALL-WITH-TIMING ...)
; x-compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...)
; x-compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...)
; x-compiling (DEFKNOWN IDENTITY ...)
; x-compiling (DEFKNOWN CONSTANTLY ...)
; x-compiling (DEFKNOWN COMPLEMENT ...)
; x-compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFKNOWN GET-BYTES-CONSED ...)
; x-compiling (DEFKNOWN MASK-SIGNED-FIELD ...)
; x-compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...)
; x-compiling (DEFKNOWN %REST-VALUES ...)
; x-compiling (DEFKNOWN %REST-REF ...)
; x-compiling (DEFKNOWN %REST-LENGTH ...)
; x-compiling (DEFKNOWN %REST-NULL ...)
; x-compiling (DEFKNOWN %REST-TRUE ...)
; x-compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN %TYPEP ...)
; x-compiling (DEFKNOWN %INSTANCE-TYPEP ...)
; x-compiling (DEFKNOWN %TYPEP-WRAPPER ...)
; x-compiling (DEFKNOWN %CLEANUP-POINT ...)
; x-compiling (DEFKNOWN %SPECIAL-BIND ...)
; x-compiling (DEFKNOWN %SPECIAL-UNBIND ...)
; x-compiling (DEFKNOWN %LISTIFY-REST-ARGS ...)
; x-compiling (DEFKNOWN %MORE-ARG-CONTEXT ...)
; x-compiling (DEFKNOWN %MORE-ARG ...)
; x-compiling (DEFKNOWN %MORE-ARG-VALUES ...)
; x-compiling (DEFKNOWN %ARG-COUNT-ERROR ...)
; x-compiling (DEFKNOWN %UNKNOWN-VALUES ...)
; x-compiling (DEFKNOWN %CATCH ...)
; x-compiling (DEFKNOWN %UNWIND-PROTECT ...)
; x-compiling (DEFKNOWN (%CATCH-BREAKUP %UNWIND-PROTECT-BREAKUP) ...)
; x-compiling (DEFKNOWN %LEXICAL-EXIT-BREAKUP ...)
; x-compiling (DEFKNOWN %CONTINUE-UNWIND ...)
; x-compiling (DEFKNOWN %THROW ...)
; x-compiling (DEFKNOWN %NLX-ENTRY ...)
; x-compiling (DEFKNOWN %%PRIMITIVE ...)
; x-compiling (DEFKNOWN %POP-VALUES ...)
; x-compiling (DEFKNOWN %NIP-VALUES ...)
; x-compiling (DEFKNOWN %DUMMY-DX-ALLOC ...)
; x-compiling (DEFKNOWN %ALLOCATE-CLOSURES ...)
; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR ...)
; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR/C ...)
; x-compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...)
; x-compiling (DEFKNOWN CASE-FAILURE ...)
; x-compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...)
; x-compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...)
; x-compiling (DEFKNOWN (%LDB %MASK-FIELD) ...)
; x-compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...)
; x-compiling (DEFKNOWN %NEGATE ...)
; x-compiling (DEFKNOWN %CHECK-BOUND ...)
; x-compiling (DEFKNOWN DATA-VECTOR-REF ...)
; x-compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...)
; x-compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...)
; x-compiling (DEFKNOWN DATA-VECTOR-SET ...)
; x-compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; x-compiling (DEFKNOWN %CALLER-FRAME ...)
; x-compiling (DEFKNOWN %CALLER-PC ...)
; x-compiling (DEFKNOWN %WITH-ARRAY-DATA ...)
; x-compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...)
; x-compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DEFKNOWN %FIND-POSITION ...)
; x-compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...)
; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...)
; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...)
; x-compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...)
; x-compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...)
; x-compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...)
; x-compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...)
; x-compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...)
; x-compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...)
; x-compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...)
; x-compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...)
; x-compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...)
; x-compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...)
; x-compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; x-compiling (DEFKNOWN ARG-COUNT-ERROR ...)
; x-compiling (DEFKNOWN (SETF AREF) ...)
; x-compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...)
; x-compiling (DEFKNOWN (%RPLACA %RPLACD) ...)
; x-compiling (DEFKNOWN %PUT ...)
; x-compiling (DEFKNOWN %SETELT ...)
; x-compiling (DEFKNOWN %SVSET ...)
; x-compiling (DEFKNOWN (SETF BIT) ...)
; x-compiling (DEFKNOWN (SETF SBIT) ...)
; x-compiling (DEFKNOWN %CHARSET ...)
; x-compiling (DEFKNOWN %SCHARSET ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-VALUE ...)
; x-compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-PLIST ...)
; x-compiling (DEFKNOWN %SETNTH ...)
; x-compiling (DEFKNOWN %SET-FILL-POINTER ...)
; x-compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...)
; x-compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFKNOWN %FUN-NAME ...)
; x-compiling (DEFKNOWN (SETF %FUN-NAME) ...)
; x-compiling (DEFKNOWN POLICY-QUALITY ...)
; x-compiling (DEFKNOWN COMPILER-ERROR ...)
; x-compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...)
; x-compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...)
; x-compiling (DEFKNOWN STYLE-WARN ...)
; x-compiling (DEFKNOWN COERCE-TO-CONDITION ...)
; x-compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...)
; x-compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...)
; x-compiling (DEFKNOWN SET-INFO-VALUE ...)
; x-compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%READ-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...)
; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...)
; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...)
; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; x-compiling (DEFKNOWN (%ATOMIC-DEC-SYMBOL-GLOBAL-VALUE %ATOMIC-INC-SYMBOL-GLOBAL-VALUE) ...)
; x-compiling (DEFKNOWN (%ATOMIC-DEC-CAR %ATOMIC-INC-CAR ...) ...)
; x-compiling (DEFKNOWN SPIN-LOOP-HINT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fndb.lisp-obj-tmp written
; compilation finished in 0:00:03.493
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...)
; x-compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...)
; x-compiling (DEFKNOWN %OTHER-POINTER-P ...)
; x-compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...)
; x-compiling (DEFKNOWN POINTER-HASH ...)
; x-compiling (DEFKNOWN %SP-STRING-COMPARE ...)
; x-compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...)
; x-compiling (DEFKNOWN (%SXHASH-SIMPLE-SUBSTRING COMPUTE-SYMBOL-HASH) ...)
; x-compiling (DEFKNOWN SYMBOL-HASH ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-HASH ...)
; x-compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...)
; x-compiling (DEFKNOWN INITIALIZE-VECTOR ...)
; x-compiling (DEFKNOWN VECTOR-FILL* ...)
; x-compiling (DEFKNOWN VECTOR-LENGTH ...)
; x-compiling (DEFKNOWN VECTOR-SAP ...)
; x-compiling (DEFKNOWN LOWTAG-OF ...)
; x-compiling (DEFKNOWN WIDETAG-OF ...)
; x-compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...)
; x-compiling (DEFKNOWN SET-HEADER-DATA ...)
; x-compiling (DEFKNOWN %ARRAY-DIMENSION ...)
; x-compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...)
; x-compiling (DEFKNOWN %ARRAY-RANK ...)
; x-compiling (DEFKNOWN %MAKE-INSTANCE ...)
; x-compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...)
; x-compiling (DEFKNOWN %INSTANCE-LAYOUT ...)
; x-compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...)
; x-compiling (DEFKNOWN %INSTANCE-LENGTH ...)
; x-compiling (DEFKNOWN %INSTANCE-REF ...)
; x-compiling (DEFKNOWN %INSTANCE-SET ...)
; x-compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; x-compiling (DEFKNOWN %VECTOR-RAW-BITS ...)
; x-compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...)
; x-compiling (DEFKNOWN ALLOCATE-VECTOR ...)
; x-compiling (DEFKNOWN MAKE-ARRAY-HEADER ...)
; x-compiling (DEFKNOWN MAKE-WEAK-POINTER ...)
; x-compiling (DEFKNOWN %MAKE-COMPLEX ...)
; x-compiling (DEFKNOWN %MAKE-RATIO ...)
; x-compiling (DEFKNOWN MAKE-VALUE-CELL ...)
; x-compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...)
; x-compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...)
; x-compiling (DEFKNOWN CURRENT-SP ...)
; x-compiling (DEFKNOWN CURRENT-FP ...)
; x-compiling (DEFKNOWN STACK-REF ...)
; x-compiling (DEFKNOWN %SET-STACK-REF ...)
; x-compiling (DEFKNOWN LRA-CODE-HEADER ...)
; x-compiling (DEFKNOWN FUN-CODE-HEADER ...)
; x-compiling (DEFKNOWN %MAKE-LISP-OBJ ...)
; x-compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...)
; x-compiling (DEFKNOWN FUN-WORD-OFFSET ...)
; x-compiling (DEFKNOWN WORD-LOGICAL-NOT ...)
; x-compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...)
; x-compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...)
; x-compiling (DEFKNOWN %ALLOCATE-BIGNUM ...)
; x-compiling (DEFKNOWN %BIGNUM-LENGTH ...)
; x-compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...)
; x-compiling (DEFKNOWN %BIGNUM-REF ...)
; x-compiling (DEFKNOWN %BIGNUM-SET ...)
; x-compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...)
; x-compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...)
; x-compiling (DEFKNOWN %MULTIPLY-AND-ADD ...)
; x-compiling (DEFKNOWN %MULTIPLY ...)
; x-compiling (DEFKNOWN %LOGNOT ...)
; x-compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...)
; x-compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...)
; x-compiling (DEFKNOWN %BIGFLOOR ...)
; x-compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...)
; x-compiling (DEFKNOWN (%ASHL %ASHR ...) ...)
; x-compiling (DEFINE-KNOWN-COPIERS)
; x-compiling (DEFKNOWN %BYTE-BLT ...)
; x-compiling (DEFKNOWN CODE-INSTRUCTIONS ...)
; x-compiling (DEFKNOWN CODE-HEADER-REF ...)
; x-compiling (DEFKNOWN CODE-HEADER-SET ...)
; x-compiling (DEFKNOWN FUN-SUBTYPE ...)
; x-compiling (DEFKNOWN (#) ...)
; x-compiling (DEFKNOWN MAKE-FDEFN ...)
; x-compiling (DEFKNOWN FDEFN-P ...)
; x-compiling (DEFKNOWN FDEFN-NAME ...)
; x-compiling (DEFKNOWN FDEFN-FUN ...)
; x-compiling (DEFKNOWN (SETF FDEFN-FUN) ...)
; x-compiling (DEFKNOWN FDEFN-MAKUNBOUND ...)
; x-compiling (DEFKNOWN %SIMPLE-FUN-SELF ...)
; x-compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...)
; x-compiling (DEFKNOWN %CLOSURE-FUN ...)
; x-compiling (DEFKNOWN %CLOSURE-INDEX-REF ...)
; x-compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...)
; x-compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj-tmp written
; compilation finished in 0:00:00.798
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (FROB)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/late-objdef.lisp-obj-tmp written
; compilation finished in 0:00:00.510
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/interr.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN ERROR-NUMBER-OR-LOSE ...)
; x-compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...)
; x-compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/interr.lisp-obj-tmp written
; compilation finished in 0:00:00.377
; compiling file "/«PKGBUILDDIR»/src/compiler/bit-util.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (INLINE CLEAR-BIT-VECTOR ...))
; x-compiling (DEFUN CLEAR-BIT-VECTOR ...)
; x-compiling (DEFUN SET-BIT-VECTOR ...)
; x-compiling (DEFUN BIT-VECTOR-REPLACE ...)
; x-compiling (DEFUN BIT-VECTOR-COPY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/bit-util.lisp-obj-tmp written
; compilation finished in 0:00:00.396
; compiling file "/«PKGBUILDDIR»/src/compiler/early-assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!ASSEM")
; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-BITS ...)
; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-MASK ...)
; x-compiling (DEF!TYPE ASSEMBLY-UNIT ...)
; x-compiling (DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT ...)
; x-compiling (DEF!CONSTANT MAX-ALIGNMENT ...)
; x-compiling (DEF!TYPE ALIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-assem.lisp-obj-tmp written
; compilation finished in 0:00:00.156
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/core.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFSTRUCT (CORE-OBJECT # ...) ...)
; x-compiling (DEFUN NOTE-FUN ...)
; x-compiling (DEFUN DO-CORE-FIXUPS ...)
; x-compiling (DEFUN REFERENCE-CORE-FUN ...)
; x-compiling (DEFUN CORE-CALL-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN FIX-CORE-SOURCE-INFO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/core.lisp-obj-tmp written
; compilation finished in 0:00:00.486
; compiling file "/«PKGBUILDDIR»/src/code/thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (DEF!TYPE THREAD-NAME ...)
; x-compiling (DEF!STRUCT (THREAD #) ...)
; x-compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...)

; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DECLAIM (INLINE MAKE-MUTEX)
;     (DECLAIM (INLINE SB!THREAD:MAKE-MUTEX))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!THREAD:MAKE-MUTEX) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!THREAD:MAKE-MUTEX to be INLINE, but 11 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE MAKE-MUTEX))
; x-compiling (DEF!STRUCT MUTEX ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-MUTEX))
; x-compiling (DEFUN MUTEX-VALUE ...)
; x-compiling (DEFUN HOLDING-MUTEX-P ...)
; x-compiling (DEFSETF MUTEX-VALUE ...)
; x-compiling (DECLAIM (INLINE SET-MUTEX-VALUE))
; x-compiling (DEFUN SET-MUTEX-VALUE ...)
; x-compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...)
; x-compiling (DEFTYPE SPINLOCK ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...)
; x-compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...)
; x-compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...)
; x-compiling (SB-XC:DEFMACRO WITH-MUTEX ...)
; x-compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...)
; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...)
; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...)
; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX)
; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; x-compiling (DEFUN CALL-WITH-MUTEX ...)
; x-compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...)
; x-compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/thread.lisp-obj-tmp written
; compilation finished in 0:00:02.733
; compiling file "/«PKGBUILDDIR»/src/code/load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFUN LOAD-FRESH-LINE ...)
; x-compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...)
; x-compiling (DECLAIM (INLINE READ-BYTE))
; x-compiling (DEFMACRO FAST-READ-U-INTEGER ...)
; x-compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...)
; x-compiling (DEFMACRO FAST-READ-S-INTEGER ...)
; x-compiling (DEFMACRO READ-ARG ...)
; x-compiling (DECLAIM (INLINE READ-BYTE-ARG ...))
; x-compiling (DEFUN READ-BYTE-ARG ...)
; x-compiling (DEFUN READ-HALFWORD-ARG ...)
; x-compiling (DEFUN READ-WORD-ARG ...)
; x-compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...)
; x-compiling (DECLAIM (INLINE REF-FOP-TABLE))
; x-compiling (DEFUN REF-FOP-TABLE ...)
; x-compiling (DEFUN PUSH-FOP-TABLE ...)
; x-compiling (DEFUN MAKE-FOP-VECTOR ...)
; x-compiling (DEFUN GROW-FOP-VECTOR ...)
; x-compiling (DEFUN NUKE-FOP-VECTOR ...)
; x-compiling (DECLAIM (INLINE FOP-STACK-EMPTY-P))
; x-compiling (DEFUN FOP-STACK-EMPTY-P ...)
; x-compiling (DEFUN FOP-STACK-POP-N ...)
; x-compiling (DEFUN PUSH-FOP-STACK ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN MAYBE-SKIP-SHEBANG-LINE
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN MAYBE-SKIP-SHEBANG-LINE ...)
; x-compiling (DEFUN FASL-HEADER-P ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN CHECK-FASL-HEADER
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN CHECK-FASL-HEADER ...)
; x-compiling (DEFCONSTANT +2-OPERAND-FOPS+ ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN LOAD-FASL-GROUP
;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   "~&~6x : [~D,~D] ~2,'0x(~A)"
; 
; note: deleting unreachable code

;     (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!FASL::FASL-INPUT
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   SB-XC:BYTE
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "{~D~@[,~D~]}" SB!FASL::ARG1 SB!FASL::ARG2)
; ==>
;   "{~D~@[,~D~]}"
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; ==>
;   " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]"
; 
; note: deleting unreachable code

;     (EQL SB!FASL::PTR 0)
; ==>
;   SB!FASL::PTR
; 
; note: deleting unreachable code

;     (AREF SB!FASL::STACK SB!FASL::PTR)
; ==>
;   SB!FASL::STACK
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; 
; note: deleting unreachable code

;     (READ-BYTE STREAM)
; --> BLOCK IF LET SB!GRAY:STREAM-READ-BYTE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN LOAD-FASL-GROUP ...)
; x-compiling (DEFUN LOAD-AS-FASL ...)
; 
; compilation unit finished
;   printed 12 notes
; x-compiling (DECLAIM (NOTINLINE READ-BYTE))

; /«PKGBUILDDIR»/obj/from-xc/src/code/load.lisp-obj-tmp written
; compilation finished in 0:00:03.383
; compiling file "/«PKGBUILDDIR»/src/code/linkage-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ...)
; x-compiling (DEFVAR *LINKAGE-INFO* ...)
; x-compiling (DEFUN WRITE-LINKAGE-TABLE-ENTRY ...)
; x-compiling (DEFUN LINK-FOREIGN-SYMBOL ...)
; x-compiling (DEFUN ENSURE-FOREIGN-SYMBOL-LINKAGE ...)
; x-compiling (DEFUN UPDATE-LINKAGE-TABLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/linkage-table.lisp-obj-tmp written
; compilation finished in 0:00:00.315
; compiling file "/«PKGBUILDDIR»/src/code/foreign-load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFVAR *SHARED-OBJECTS-LOCK* ...)
; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-FOREIGN ...)
; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-1-FOREIGN ...)
; x-compiling (DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ADDRESS ...)
; x-compiling (DEFVAR *RUNTIME-DLHANDLE*)
; x-compiling (DEFVAR *SHARED-OBJECTS*)
; x-compiling (DEFSTRUCT SHARED-OBJECT ...)
; x-compiling (DEFUN LOAD-SHARED-OBJECT ...)
; x-compiling (DEFUN UNLOAD-SHARED-OBJECT ...)
; x-compiling (DEFUN TRY-REOPEN-SHARED-OBJECT ...)
; x-compiling (DEFUN REOPEN-SHARED-OBJECTS ...)
; x-compiling (DEFUN CLOSE-SHARED-OBJECTS ...)
; x-compiling (LET (# #) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/foreign-load.lisp-obj-tmp written
; compilation finished in 0:00:01.172
; compiling file "/«PKGBUILDDIR»/src/code/unix-foreign-load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFINE-ALIEN-ROUTINE DLOPEN ...)
; x-compiling (DEFINE-ALIEN-ROUTINE DLCLOSE ...)
; x-compiling (DEFINE-ALIEN-ROUTINE DLERROR ...)
; x-compiling (DEFINE-ALIEN-ROUTINE DLSYM ...)
; x-compiling (DEFUN DLOPEN-OR-LOSE ...)
; x-compiling (DEFUN DLCLOSE-OR-LOSE ...)
; x-compiling (DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unix-foreign-load.lisp-obj-tmp written
; compilation finished in 0:00:00.560
; compiling file "/«PKGBUILDDIR»/src/code/foreign.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN EXTERN-ALIEN-NAME ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...)
; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFUN FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFUN FOREIGN-REINIT ...)
; x-compiling (DEFUN FOREIGN-DEINIT ...)
; x-compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL))
; x-compiling (DEFUN SAP-FOREIGN-SYMBOL ...)
; x-compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*)
; x-compiling (DEFUN !FOREIGN-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/foreign.lisp-obj-tmp written
; compilation finished in 0:00:00.927
; compiling file "/«PKGBUILDDIR»/src/code/fop.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFMACRO WITH-FOP-STACK ...)
; x-compiling (DEFMACRO !DEFINE-FOP ...)
; x-compiling (DEFUN !%DEFINE-FOP ...)
; x-compiling (DEFUN READ-STRING-AS-BYTES ...)
; x-compiling (DEFUN READ-BASE-STRING-AS-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN READ-STRING-AS-UNSIGNED-BYTE-32
;     (SB-XC:CODE-CHAR (SB!INT:FAST-READ-U-INTEGER 4))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G277
;    'SB!KERNEL::OBJECT-NOT-UNICODE-CODE-POINT-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...)
; x-compiling (!DEFINE-FOP 137 ...)
; x-compiling (!DEFINE-FOP 0 ...)
; x-compiling (!DEFINE-FOP 1 ...)
; x-compiling (!DEFINE-FOP 2 ...)
; x-compiling (!DEFINE-FOP 3 ...)
; x-compiling (!DEFINE-FOP 4 ...)
; x-compiling (!DEFINE-FOP 66 ...)
; x-compiling (!DEFINE-FOP 76 ...)
; x-compiling (!DEFINE-FOP 48 ...)
; x-compiling (!DEFINE-FOP 45 ...)
; x-compiling (!DEFINE-FOP 68 ...)
; x-compiling (!DEFINE-FOP 69 ...)
; x-compiling (!DEFINE-FOP 64 ...)
; x-compiling (!DEFINE-FOP 62 ...)
; x-compiling (!DEFINE-FOP 63 ...)
; x-compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...)
; x-compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE))
; x-compiling (DEFUN AUX-FOP-INTERN ...)
; x-compiling (!DEFINE-FOP 80 ...)
; x-compiling (!DEFINE-FOP 84 ...)
; x-compiling (!DEFINE-FOP 240 ...)
; x-compiling (!DEFINE-FOP 96 ...)
; x-compiling (!DEFINE-FOP 104 ...)
; x-compiling (!DEFINE-FOP 44 ...)
; x-compiling (!DEFINE-FOP 156 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN LOAD-S-INTEGER
;     (ASH 1 SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &REST T).
;       etc.

;     (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (INTEGER 1), 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (ASH SB-XC:BYTE SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX))
;           (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE))
;           (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)))
;           (SB!FASL::BITS 0 (+ SB!FASL::BITS 8)))
;          ((= SB!INT:INDEX 0)
;           (IF (LOGBITP 7 SB-XC:BYTE)
;               (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
;               SB!FASL::RESULT))
;       (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS)))
; --> BLOCK LET* TAGBODY SETQ SETQ 
; ==>
;   (THE FIXNUM (1- SB!INT:INDEX))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; ==>
;   (THE FIXNUM (+ SB!FASL::BITS 8))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; x-compiling (DEFUN LOAD-S-INTEGER ...)
; x-compiling (!DEFINE-FOP 36 ...)
; x-compiling (!DEFINE-FOP 34 ...)
; x-compiling (!DEFINE-FOP 35 ...)
; x-compiling (!DEFINE-FOP 70 ...)
; x-compiling (!DEFINE-FOP 71 ...)
; x-compiling (DEFINE-COMPLEX-FOP 72 ...)
; x-compiling (DEFINE-COMPLEX-FOP 73 ...)
; x-compiling (DEFINE-FLOAT-FOP 46 ...)
; x-compiling (DEFINE-FLOAT-FOP 47 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN FOP-LIST-FROM-STACK
;     (DO* ((SB!FASL::I (+ SB!FASL::PTR SB!FASL::N) (1- SB!FASL::I))
;           (SB!FASL::RES NIL
;                         (CONS (SB!FASL::FOP-STACK-REF SB!FASL::I) SB!FASL::RES)))
;          ((= SB!FASL::I SB!FASL::PTR) SB!FASL::RES)
;       (DECLARE (TYPE SB!INT:INDEX SB!FASL::I)))
; --> BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1297 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN FOP-LIST-FROM-STACK ...)
; x-compiling (!DEFINE-FOP 33 ...)
; x-compiling (!DEFINE-FOP 16 ...)
; x-compiling (FROB FOP-LIST-1 ...)
; x-compiling (FROB FOP-LIST-2 ...)
; x-compiling (FROB FOP-LIST-3 ...)
; x-compiling (FROB FOP-LIST-4 ...)
; x-compiling (FROB FOP-LIST-5 ...)
; x-compiling (FROB FOP-LIST-6 ...)
; x-compiling (FROB FOP-LIST-7 ...)
; x-compiling (FROB FOP-LIST-8 ...)
; x-compiling (FROB FOP-LIST*-1 ...)
; x-compiling (FROB FOP-LIST*-2 ...)
; x-compiling (FROB FOP-LIST*-3 ...)
; x-compiling (FROB FOP-LIST*-4 ...)
; x-compiling (FROB FOP-LIST*-5 ...)
; x-compiling (FROB FOP-LIST*-6 ...)
; x-compiling (FROB FOP-LIST*-7 ...)
; x-compiling (FROB FOP-LIST*-8 ...)
; x-compiling (!DEFINE-FOP 100 ...)
; x-compiling (!DEFINE-FOP 160 ...)
; x-compiling (!DEFINE-FOP 92 ...)
; x-compiling (!DEFINE-FOP 89 ...)
; x-compiling (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFINE-FOP 43 ...)
; x-compiling (!DEFINE-FOP 53 ...)
; x-compiling (!DEFINE-FOP 54 ...)
; x-compiling (DEFUN FOP-FUNCALL* ...)
; x-compiling (!DEFINE-FOP 55 ...)
; x-compiling (!DEFINE-FOP 56 ...)
; x-compiling (!DEFINE-FOP 200 ...)
; x-compiling (!DEFINE-FOP 201 ...)
; x-compiling (!DEFINE-FOP 202 ...)
; x-compiling (!DEFINE-FOP 204 ...)
; x-compiling (!DEFINE-FOP 203 ...)
; x-compiling (!DEFINE-FOP 224 ...)
; x-compiling (!DEFINE-FOP 60 ...)
; x-compiling (!DEFINE-FOP 65 ...)
; x-compiling (!DEFINE-FOP 61 ...)
; x-compiling (!DEFINE-FOP 174 ...)
; x-compiling (!DEFINE-FOP 140 ...)
; x-compiling (!DEFINE-FOP 139 ...)
; x-compiling (!DEFINE-FOP 144 ...)
; x-compiling (!DEFINE-FOP 145 ...)
; x-compiling (!DEFINE-FOP 146 ...)
; x-compiling (!DEFINE-FOP 147 ...)
; x-compiling (!DEFINE-FOP 148 ...)
; x-compiling (!DEFINE-FOP 149 ...)
; x-compiling (!DEFINE-FOP 150 ...)
; x-compiling (!DEFINE-FOP 151 ...)
; x-compiling (!DEFINE-FOP 152 ...)
; x-compiling (!DEFINE-FOP 153 ...)
; x-compiling (!DEFINE-FOP 154 ...)
; x-compiling (!DEFINE-FOP 155 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 68
;     (ALLOCATE-INSTANCE (FIND-CLASS (THE SYMBOL SB!FASL::NAME)))
; 
; caught STYLE-WARNING:
;   undefined function: ALLOCATE-INSTANCE

;     (FIND-CLASS (THE SYMBOL SB!FASL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS

; in: !DEFINE-FOP 69
;     (SLOT-MAKUNBOUND SB!FASL::OBJ SB!FASL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-MAKUNBOUND
; 
; compilation unit finished
;   Undefined functions:
;     ALLOCATE-INSTANCE FIND-CLASS SLOT-MAKUNBOUND
;   caught 3 STYLE-WARNING conditions
;   printed 8 notes
; x-compiling (FROB (108 T) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/fop.lisp-obj-tmp written
; compilation finished in 0:00:13.024
; compiling file "/«PKGBUILDDIR»/src/compiler/ctype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LOSSAGE-FUN*)
; x-compiling (DEFVAR *UNWINNAGE-FUN*)
; x-compiling (DEFVAR *CTYPE-TEST-FUN*)
; x-compiling (DEFVAR *LOSSAGE-DETECTED*)
; x-compiling (DEFVAR *UNWINNAGE-DETECTED*)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-LOSSAGE ...)
; x-compiling (DEFUN NOTE-UNWINNAGE ...)
; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; x-compiling (DEFUN ALWAYS-SUBTYPEP ...)
; x-compiling (DEFUN VALID-FUN-USE ...)
; x-compiling (DEFUN CHECK-ARG-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-FIXED-AND-REST ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-KEY-ARGS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DEFINITION-TYPE ...)
; x-compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...)
; x-compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-FUN-USE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN VALID-APPROXIMATE-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...)
; x-compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...)
; x-compiling (DEFUN TRY-TYPE-INTERSECTIONS ...)
; x-compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...)
; x-compiling (DEFUN FIND-LAMBDA-TYPES ...)
; x-compiling (DEFUN ASSERT-DEFINITION-TYPE ...)
; x-compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...)
; x-compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...)
; x-compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...)
; x-compiling (DEFUN ASSERT-CALL-TYPE ...)
; x-compiling (DEFUN CHECK-CATCH-TAG-TYPE ...)
; x-compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...)
; x-compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ctype.lisp-obj-tmp written
; compilation finished in 0:00:04.288
; compiling file "/«PKGBUILDDIR»/src/compiler/disassem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!DISASSEM")
; x-compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...)
; x-compiling (DEFTYPE TEXT-WIDTH ...)
; x-compiling (DEFTYPE ALIGNMENT ...)
; x-compiling (DEFTYPE OFFSET ...)
; x-compiling (DEFTYPE ADDRESS ...)
; x-compiling (DEFTYPE DISASSEM-LENGTH ...)
; x-compiling (DEFTYPE COLUMN ...)
; x-compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...)
; x-compiling (DEFTYPE FILTERED-VALUE-INDEX ...)
; x-compiling (DEFTYPE FILTERED-VALUE-VECTOR ...)
; x-compiling (DEFVAR *DISASSEM-INSTS* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *DISASSEM-INST-SPACE* ...)
; x-compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...)
; x-compiling (DECLAIM (TYPE ALIGNMENT ...))
; x-compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...)
; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; x-compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...)
; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; x-compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...)
; x-compiling (DEFSTRUCT (FUN-CACHE # ...) ...)
; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; x-compiling (DECLAIM (TYPE FUN-CACHE ...))
; x-compiling (DECLAIM (INLINE DCHUNK-OR ...))
; x-compiling (DEF!CONSTANT DCHUNK-BITS ...)
; x-compiling (DEFTYPE DCHUNK ...)
; x-compiling (DEFTYPE DCHUNK-INDEX ...)
; x-compiling (DEF!CONSTANT DCHUNK-ZERO ...)
; x-compiling (DEF!CONSTANT DCHUNK-ONE ...)
; x-compiling (DEFUN DCHUNK-EXTRACT ...)
; x-compiling (DEFMACRO DCHUNK-COPY ...)
; x-compiling (DEFUN DCHUNK-OR ...)
; x-compiling (DEFUN DCHUNK-AND ...)
; x-compiling (DEFUN DCHUNK-CLEAR ...)
; x-compiling (DEFUN DCHUNK-NOT ...)
; x-compiling (DEFMACRO DCHUNK-ANDF ...)
; x-compiling (DEFMACRO DCHUNK-ORF ...)
; x-compiling (DEFMACRO DCHUNK-CLEARF ...)
; x-compiling (DEFUN DCHUNK-MAKE-MASK ...)
; x-compiling (DEFUN DCHUNK-MAKE-FIELD ...)
; x-compiling (DEFMACRO MAKE-DCHUNK ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN SAP-REF-DCHUNK
;     (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
; ==>
;   SB!DISASSEM::BYTE-ORDER
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (DEFUN SB!DISASSEM:SAP-REF-DCHUNK
;            (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET SB!DISASSEM::BYTE-ORDER)
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP)
;                (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET)
;                (OPTIMIZE (SPEED 3) (SAFETY 0)))
;       (THE SB!DISASSEM:DCHUNK
;            (ECASE SB!DISASSEM::DCHUNK-BITS
;              (32
;               (IF #
;                   #
;                   #))
;              (64
;               (IF #
;                   #
;                   #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!DISASSEM:SAP-REF-DCHUNK
;         (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET SB!DISASSEM::BYTE-ORDER)
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP)
;                (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET)
;                (OPTIMIZE (SPEED 3) (SAFETY 0)))
;       (BLOCK SB!DISASSEM:SAP-REF-DCHUNK
;         (THE SB!DISASSEM:DCHUNK
;              (ECASE SB!DISASSEM::DCHUNK-BITS (32 #) (64 #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; x-compiling (DEFUN SAP-REF-DCHUNK ...)
; x-compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...)
; x-compiling (DEFMACRO DCHUNK-INSERTF ...)
; x-compiling (DEFUN DCHUNK= ...)
; x-compiling (DEFMACRO DCHUNK-ZEROP ...)
; x-compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...)
; x-compiling (DEFUN DCHUNK-COUNT-BITS ...)
; x-compiling (DEFSTRUCT (INSTRUCTION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (INST-SPACE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...)
; x-compiling (DEFVAR *ARG-FORM-KINDS* ...)
; x-compiling (DEFSTRUCT (ARG-FORM-KIND #) ...)
; x-compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...)
; x-compiling (DEFUN FIND-ARG-FORM-PRODUCER ...)
; x-compiling (DEFUN FIND-ARG-FORM-CHECKER ...)
; x-compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...)
; x-compiling (DEFVAR *DISASSEM-INST-FORMATS* ...)
; x-compiling (DEFVAR *DISASSEM-ARG-TYPES* ...)
; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; x-compiling (DEFSTRUCT (ARG # ...) ...)
; x-compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...)
; x-compiling (DEFSTRUCT (FUNSTATE # ...) ...)
; x-compiling (DEFUN MAKE-FUNSTATE ...)
; x-compiling (DEFUN FUNSTATE-COMPATIBLE-P ...)
; x-compiling (DEFUN ARG-OR-LOSE ...)
; x-compiling (DEFSTRUCT (VALSRC # ...) ...)
; x-compiling (DEFUN MAKE-VALSRC ...)
; x-compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...)
; x-compiling (DEFUN PD-ERROR ...)
; x-compiling (DEFUN SELF-EVALUATING-P ...)
; x-compiling (DEFUN MAYBE-QUOTE ...)
; x-compiling (DEFUN DOESNT-NEED-WRAPPING-P ...)
; x-compiling (DEFUN MAKE-WRAPPER ...)
; x-compiling (DEFUN FILTER-OVERRIDES ...)
; x-compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...)
; x-compiling (DEFUN MUNGE-FUN-REFS ...)
; x-compiling (DEFUN GEN-ARGS-DEF-FORM ...)
; x-compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...)
; x-compiling (DEFUN UPDATE-ARGS-FORM ...)
; x-compiling (DEFUN FORMAT-OR-LOSE ...)
; x-compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...)
; x-compiling (DEFUN MAKE-ARG ...)
; x-compiling (DEFUN COPY-ARG ...)
; x-compiling (DEFUN MODIFY-OR-ADD-ARG ...)
; x-compiling (DEFUN MODIFY-ARG ...)
; x-compiling (DEFMACRO ARG-ACCESS-MACRO ...)
; x-compiling (DEFUN ARG-VALUE-FORM ...)
; x-compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...)
; x-compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...)
; x-compiling (DEFUN GEN-ARG-FORMS ...)
; x-compiling (DEFUN MAYBE-LISTIFY ...)
; x-compiling (DEFUN SET-ARG-FROM-TYPE ...)
; x-compiling (DEFUN GET-ARG-TEMP ...)
; x-compiling (DEFUN SET-ARG-TEMPS ...)
; x-compiling (DEFMACRO DEFINE-ARG-TYPE ...)
; x-compiling (DEFMACRO DEF-ARG-FORM-KIND ...)
; x-compiling (DEF-ARG-FORM-KIND (:RAW) ...)
; x-compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...)
; x-compiling (DEFUN VALSRC-EQUAL ...)
; x-compiling (DEF-ARG-FORM-KIND (:FILTERING) ...)
; x-compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...)
; x-compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...)
; x-compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...)
; x-compiling (DEF-ARG-FORM-KIND (:PRINTED) ...)
; x-compiling (DEFUN REMEMBER-PRINTER-USE ...)
; x-compiling (DEFUN SOURCE-FORM ...)
; x-compiling (DEFUN VALUE-OR-SOURCE ...)
; x-compiling (DEFSTRUCT (CACHED-FUN # ...) ...)
; x-compiling (DEFUN FIND-CACHED-FUN ...)
; x-compiling (DEFMACRO !WITH-CACHED-FUN ...)
; x-compiling (DEFUN FIND-PRINTER-FUN ...)
; x-compiling (DEFUN MAKE-PRINTER-DEFUN ...)
; x-compiling (DEFUN PREPROCESS-TEST ...)
; x-compiling (DEFUN PREPROCESS-CONDITIONALS ...)
; x-compiling (DEFUN PREPROCESS-PRINTER ...)
; x-compiling (DEFUN FIND-FIRST-FIELD-NAME ...)
; x-compiling (DEFUN PREPROCESS-CHOOSES ...)
; x-compiling (DEFUN SHARING-CONS ...)
; x-compiling (DEFUN SHARING-MAPCAR ...)
; x-compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...)
; x-compiling (DEFUN PICK-PRINTER-CHOICE ...)
; x-compiling (DEFUN COMPILE-PRINTER-LIST ...)
; x-compiling (DEFUN COMPILE-PRINTER-BODY ...)
; x-compiling (DEFUN COMPILE-PRINT ...)
; x-compiling (DEFUN STRING-OR-QSYM-P ...)
; x-compiling (DEFUN STRIP-QUOTE ...)
; x-compiling (DEFUN COMPARE-FIELDS-FORM ...)
; x-compiling (DEFUN COMPILE-TEST ...)
; x-compiling (DEFUN FIND-LABELLER-FUN ...)
; x-compiling (DEFUN FIND-PREFILTER-FUN ...)
; x-compiling (DEFUN COMPUTE-MASK-ID ...)
; x-compiling (DEFUN INSTALL-INST-FLAVORS ...)
; x-compiling (DECLAIM (INLINE BYTES-TO-BITS))
; x-compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...))
; x-compiling (DEFUN BYTES-TO-BITS ...)
; x-compiling (DEFUN BITS-TO-BYTES ...)
; x-compiling (DEFUN SIGN-EXTEND ...)
; x-compiling (DEFUN ALIGNED-P ...)
; x-compiling (DEFUN ALIGN ...)
; x-compiling (DEFUN TAB ...)
; x-compiling (DEFUN TAB0 ...)
; x-compiling (DEFUN PRINC16 ...)
; x-compiling (DEFUN READ-SIGNED-SUFFIX ...)
; x-compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DSTATE-CUR-ADDR ...)
; x-compiling (DEFUN DSTATE-NEXT-ADDR ...)
; x-compiling (DEFMACRO DSTATE-GET-PROP ...)
; x-compiling (DEFUN DSTATE-PUT-INST-PROP ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFSTRUCT DISASSEM-STATE
;     (DEFSTRUCT
;         (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-)
;          (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL))
;       (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER))
;       (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT))
;       (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT)
;       (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE
;        (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN))
;       (SB!DISASSEM::PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::FILTERED-VALUES
;        (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE
;        SB!DISASSEM::FILTERED-VALUE-VECTOR)
;       (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20)))
;       ...)
; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT
; 
; compilation unit finished
;   Undefined type:
;     SEGMENT
;   caught 1 STYLE-WARNING condition
;   printed 4 notes
; x-compiling (DEFUN DSTATE-GET-INST-PROP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/disassem.lisp-obj-tmp written
; compilation finished in 0:00:10.590
; compiling file "/«PKGBUILDDIR»/src/compiler/assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!ASSEM")
; x-compiling (DEFVAR *ASSEM-SCHEDULER-P* ...)
; x-compiling (DECLAIM (TYPE BOOLEAN ...))
; x-compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFSTRUCT (SEGMENT #) ...)
; x-compiling (DEFPRINTER (SEGMENT) ...)
; x-compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX))
; x-compiling (DEFUN SEGMENT-CURRENT-INDEX ...)
; x-compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...)
; x-compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...)
; x-compiling (DEF!STRUCT (INSTRUCTION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFMACRO WITHOUT-SCHEDULING ...)
; x-compiling (DEFMACRO NOTE-DEPENDENCIES ...)
; x-compiling (DEFUN NOTE-READ-DEPENDENCY ...)
; x-compiling (DEFUN NOTE-WRITE-DEPENDENCY ...)
; x-compiling (DEFUN QUEUE-INST ...)
; x-compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...)
; x-compiling (DEFUN ADD-TO-NTH-LIST ...)
; x-compiling (DEFUN SCHEDULE-ONE-INST ...)
; x-compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...)
; x-compiling (DEFUN ADVANCE-ONE-INST ...)
; x-compiling (DEFUN INSERT-EMITTABLE-INST ...)
; x-compiling (DEF!STRUCT (ANNOTATION # ...) ...)
; x-compiling (DEF!STRUCT (LABEL # ...))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...)
; x-compiling (DEF!STRUCT (BACK-PATCH # ...) ...)
; x-compiling (DEF!STRUCT (CHOOSER # ...) ...)
; x-compiling (DEF!STRUCT (FILLER # ...) ...)
; x-compiling (DEFUN EMIT-BYTE ...)
; x-compiling (DEFUN EMIT-SKIP ...)
; x-compiling (DEFUN EMIT-ANNOTATION ...)
; x-compiling (DEFUN EMIT-BACK-PATCH ...)
; x-compiling (DEFUN EMIT-CHOOSER ...)
; x-compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...)
; x-compiling (DEFUN EMIT-FILLER ...)
; x-compiling (DEFUN %EMIT-LABEL ...)
; x-compiling (DEFUN %EMIT-ALIGNMENT ...)
; x-compiling (DEFUN FIND-ALIGNMENT ...)
; x-compiling (DEFUN %EMIT-POSTIT ...)
; x-compiling (DEFUN COMPRESS-OUTPUT ...)
; x-compiling (DEFUN FINALIZE-POSITIONS ...)
; x-compiling (DEFUN PROCESS-BACK-PATCHES ...)
; x-compiling (DEFUN COMPACT-SEGMENT-BUFFER ...)
; x-compiling (DEFMACRO %%CURRENT-SEGMENT%% ...)
; x-compiling (DEFVAR **CURRENT-SEGMENT**)
; x-compiling (DEFMACRO %%CURRENT-VOP%% ...)
; x-compiling (DEFVAR **CURRENT-VOP** ...)
; x-compiling (DEF DEF!MACRO ...)
; x-compiling (DEFMACRO INST ...)
; x-compiling (DEFMACRO EMIT-LABEL ...)
; x-compiling (DEFMACRO EMIT-POSTIT ...)
; x-compiling (DEFMACRO EMIT-ALIGNMENT ...)
; x-compiling (DEFUN LABEL-POSITION ...)
; x-compiling (DEFUN APPEND-SEGMENT ...)
; x-compiling (DEFUN FINALIZE-SEGMENT ...)
; x-compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...)
; x-compiling (DEFUN WRITE-SEGMENT-CONTENTS ...)
; x-compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...)
; x-compiling (DEFUN GROVEL-LAMBDA-LIST ...)
; x-compiling (DEFUN EXTRACT-NTHS ...)
; x-compiling (DEFMACRO DEFINE-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...)

; file: /«PKGBUILDDIR»/src/compiler/assem.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE
;                                    SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN %DEFINE-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/assem.lisp-obj-tmp written
; compilation finished in 0:00:12.249
; compiling file "/«PKGBUILDDIR»/src/code/debug-info.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-INDIRECT-P ...)
; x-compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...)
; x-compiling (DEF!STRUCT (DEBUG-FUN #))
; x-compiling (DEF!STRUCT (COMPILED-DEBUG-FUN # ...) ...)
; x-compiling (DEF!STRUCT (DEBUG-SOURCE #) ...)
; x-compiling (DEF!STRUCT DEBUG-INFO ...)
; x-compiling (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...)
; x-compiling (DEF!STRUCT (COMPILED-DEBUG-INFO # ...) ...)
; x-compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*)
; x-compiling (DEFUN !DEBUG-INFO-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug-info.lisp-obj-tmp written
; compilation finished in 0:00:02.530
; compiling file "/«PKGBUILDDIR»/src/compiler/dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...)
; x-compiling (DEFSTRUCT (CIRCULARITY #) ...)
; x-compiling (DEFVAR *CIRCULARITIES-DETECTED*)
; x-compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...)
; x-compiling (DEFUN DUMP-BYTE ...)
; x-compiling (DEFUN DUMP-WORD ...)
; x-compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...)
; x-compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...)
; x-compiling (DEFUN DUMP-FOP+OPERANDS ...)
; x-compiling (DEFMACRO DUMP-FOP ...)
; x-compiling (DEFUN DUMP-PUSH ...)
; x-compiling (DEFUN DUMP-POP ...)
; x-compiling (DEFUN EQUAL-CHECK-TABLE ...)
; x-compiling (DEFUN STRING-CHECK-TABLE ...)
; x-compiling (DEFUN EQ-SAVE-OBJECT ...)
; x-compiling (DEFUN EQUAL-SAVE-OBJECT ...)
; x-compiling (DEFUN STRING-SAVE-OBJECT ...)
; x-compiling (DEFUN NOTE-POTENTIAL-CIRCULARITY ...)
; x-compiling (DEFUN OPEN-FASL-OUTPUT ...)
; x-compiling (DEFUN CLOSE-FASL-OUTPUT ...)
; x-compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...)
; x-compiling (DEFUN SUB-DUMP-OBJECT ...)
; x-compiling (DEFUN DUMP-CIRCULARITIES ...)
; x-compiling (DEFUN DUMP-OBJECT ...)
; x-compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...)
; x-compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...)
; x-compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...)
; x-compiling (DEFUN FASL-VALIDATE-STRUCTURE ...)
; x-compiling (DEFUN DUMP-RATIO ...)
; x-compiling (DEFUN DUMP-INTEGER ...)
; x-compiling (DEFUN DUMP-FLOAT ...)
; x-compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...)
; x-compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...)
; x-compiling (DEFUN DUMP-COMPLEX-RATIONAL ...)
; x-compiling (DEFUN DUMP-COMPLEX ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DUMP-PACKAGE ...)
; x-compiling (DEFUN DUMP-LIST ...)
; x-compiling (DEFUN TERMINATE-DOTTED-LIST ...)
; x-compiling (DEFUN TERMINATE-UNDOTTED-LIST ...)
; x-compiling (DEFUN DUMP-ARRAY ...)
; x-compiling (DEFUN DUMP-VECTOR ...)
; x-compiling (DEFUN DUMP-SIMPLE-VECTOR ...)
; x-compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...)
; x-compiling (DEFUN DUMP-CHARACTER ...)
; x-compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...)
; x-compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...)
; x-compiling (DEFUN DUMP-SYMBOL ...)
; x-compiling (DEFUN DUMP-SEGMENT ...)
; x-compiling (DEFUN DUMP-FIXUPS ...)
; x-compiling (DEFUN DUMP-CODE-OBJECT ...)
; x-compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...)
; x-compiling (DEFUN DUMP-ONE-ENTRY ...)
; x-compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...)
; x-compiling (DEFUN FASL-DUMP-COMPONENT ...)
; x-compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...)
; x-compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...)
; x-compiling (DEFUN FASL-DUMP-SOURCE-INFO ...)
; x-compiling (DEFUN DUMP-STRUCTURE ...)
; x-compiling (DEFUN DUMP-LAYOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/dump.lisp-obj-tmp written
; compilation finished in 0:00:04.963
; compiling file "/«PKGBUILDDIR»/src/compiler/main.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *CONSTANTS* ...))
; x-compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...)
; x-compiling (DEFVAR *CHECK-CONSISTENCY* ...)
; x-compiling (DEFVAR *LOOP-ANALYZE* ...)
; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...)
; x-compiling (DEFVAR *BLOCK-COMPILE*)
; x-compiling (DEFVAR *BLOCK-COMPILE-ARG*)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *ENTRY-POINTS*)
; x-compiling (DECLAIM (LIST *ENTRY-POINTS*))
; x-compiling (DEFVAR *TOPLEVEL-LAMBDAS*)
; x-compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*))
; x-compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...)
; x-compiling (DEFVAR *COMPILE-PROGRESS* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *SOURCE-INFO* ...)
; x-compiling (DEFVAR *IN-COMPILATION-UNIT* ...)
; x-compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*)
; x-compiling (DEFUN MAYBE-MUMBLE ...)
; x-compiling (DEFTYPE OBJECT ...)
; x-compiling (DEFVAR *COMPILE-OBJECT* ...)
; x-compiling (DECLAIM (TYPE OBJECT ...))
; x-compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...)
; x-compiling (DEFVAR *EMIT-CFASL* ...)
; x-compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*)
; x-compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...)
; x-compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...)
; x-compiling (DEFVAR *CODE-COVERAGE-INFO* ...)
; x-compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...)
; x-compiling (DEFVAR *SOURCE-PLIST* ...)
; x-compiling (DEFVAR *SOURCE-NAMESTRING* ...)
; x-compiling (DEFUN %WITH-COMPILATION-UNIT ...)
; x-compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...)
; x-compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...)
; x-compiling (DEFMACRO WITH-COMPILATION-VALUES ...)
; x-compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...)
; x-compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...)
; x-compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...)
; x-compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...)
; x-compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...)
; x-compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...)
; x-compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...)
; x-compiling (DEFUN DFO-AS-NEEDED ...)
; x-compiling (DEFUN IR1-PHASES ...)
; x-compiling (DEFUN %COMPILE-COMPONENT ...)
; x-compiling (DEFUN DELETE-IF-NO-ENTRIES ...)
; x-compiling (DEFUN COMPILE-COMPONENT ...)
; x-compiling (DEFUN CLEAR-CONSTANT-INFO ...)
; x-compiling (DEFUN CLEAR-IR1-INFO ...)
; x-compiling (DEFUN DESCRIBE-COMPONENT ...)
; x-compiling (DEFUN DESCRIBE-IR2-COMPONENT ...)
; x-compiling (DEF!STRUCT (FILE-INFO # ...) ...)
; x-compiling (DEF!STRUCT (SOURCE-INFO # ...) ...)
; x-compiling (DEFUN MAKE-FILE-SOURCE-INFO ...)
; x-compiling (DEFUN MAKE-LISP-SOURCE-INFO ...)
; x-compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...)
; x-compiling (DEFUN GET-SOURCE-STREAM ...)
; x-compiling (DEFUN CLOSE-SOURCE-INFO ...)
; x-compiling (DEFUN %DO-FORMS-FROM-INFO ...)
; x-compiling (DEFMACRO DO-FORMS-FROM-INFO ...)
; x-compiling (DEFUN SUB-SUB-COMPILE-FILE ...)
; x-compiling (DEFUN FIND-SOURCE-ROOT ...)
; x-compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...)
; x-compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...)
; x-compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...)
; x-compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...)
; x-compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...)
; x-compiling (DEFUN FUNCTIONAL-COMPONENTS ...)
; x-compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN %COMPILE ...)
; x-compiling (DEFUN NOTE-TOP-LEVEL-FORM ...)
; x-compiling (DEFUN EVAL-COMPILE-TOPLEVEL ...)
; x-compiling (DEFUN PROCESS-TOPLEVEL-FORM ...)
; x-compiling (DEFUN PRODUCING-FASL-FILE ...)
; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...)
; x-compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...)
; x-compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...)
; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...)
; x-compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN COMPILE-TOPLEVEL-LAMBDAS
;     (POSITION-IF (LAMBDA (SB!C::X) (NOT (EQ (SB!C::COMPONENT-KIND #) :TOPLEVEL)))
;                  SB!C::LAMBDAS :START (MIN SB!C::START SB!C::LEN))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!KERNEL:%FIND-POSITION-IF LET FLET IF AND IF AND THE > 
; ==>
;   SB!C::START
; 
; note: deleting unreachable code

; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!KERNEL:%FIND-POSITION-IF LET FLET BLOCK 
; --> SB!INT:SEQUENCE-BOUNDING-INDICES-BAD-ERROR 
; ==>
;   SB!C::START
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...)
; x-compiling (DEFUN COMPILE-TOPLEVEL ...)
; x-compiling (DEFUN FINISH-BLOCK-COMPILATION ...)
; x-compiling (DEFUN HANDLE-CONDITION-P ...)
; x-compiling (DEFUN HANDLE-CONDITION-HANDLER ...)
; x-compiling (DEFUN SUB-COMPILE-FILE ...)
; x-compiling (DEFUN VERIFY-SOURCE-FILE ...)
; x-compiling (DEFUN ELAPSED-TIME-TO-STRING ...)
; x-compiling (DEFUN PRINT-COMPILE-START-NOTE ...)
; x-compiling (DEFUN PRINT-COMPILE-END-NOTE ...)
; x-compiling (DEFUN SB-XC:COMPILE-FILE ...)
; x-compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...)
; x-compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...)
; x-compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...)
; x-compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN HANDLE-CONDITION-HANDLER
;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G68085 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; in: DEFUN HANDLE-CONDITION-P
;     (DEFUN SB!C::HANDLE-CONDITION-P (CONDITION)
;       (LET ((SB!KERNEL:LEXENV (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* # # #)))
;         (LET ((SB!C::MUFFLES #))
;           (IF (NULL SB!C::MUFFLES)
;               NIL
;               (DOLIST # #)))))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!C::HANDLE-CONDITION-P
;    (SB!INT:NAMED-LAMBDA SB!C::HANDLE-CONDITION-P
;        (CONDITION)
;      (BLOCK SB!C::HANDLE-CONDITION-P
;        (LET (#)
;          (LET #
;            #))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G68069 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; 
; caught STYLE-WARNING:
;   6 more uses of undefined type COMPILER-ERROR-CONTEXT


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN EMIT-MAKE-LOAD-FORM
;     (SB-XC:MAKE-LOAD-FORM SB!KERNEL:CONSTANT (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MAKE-LOAD-FORM
; 
; compilation unit finished
;   Undefined type:
;     COMPILER-ERROR-CONTEXT
;   Undefined function:
;     SB-XC:MAKE-LOAD-FORM
;   caught 5 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (DEFUN EMIT-MAKE-LOAD-FORM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/main.lisp-obj-tmp written
; compilation finished in 0:00:09.386
; compiling file "/«PKGBUILDDIR»/src/compiler/xref.lisp" (written 30 MAY 2015 05:47:21 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *XREF-KINDS* ...)
; x-compiling (DEFUN RECORD-COMPONENT-XREFS ...)
; x-compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...)
; x-compiling (DEFUN RECORD-NODE-XREFS ...)
; x-compiling (DEFUN INTERNAL-NAME-P ...)
; x-compiling (DEFUN RECORD-XREF ...)
; x-compiling (DEFUN RECORD-MACROEXPANSION ...)
; x-compiling (DEFUN RECORD-CALL ...)
; x-compiling (DEFUN PACK-XREF-DATA ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/xref.lisp-obj-tmp written
; compilation finished in 0:00:00.956
; compiling file "/«PKGBUILDDIR»/src/code/source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION # ...) ...)
; x-compiling (DEFUN MAKE-DEFINITION-SOURCE-LOCATION ...)
; x-compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/source-location.lisp-obj-tmp written
; compilation finished in 0:00:00.340
; compiling file "/«PKGBUILDDIR»/src/compiler/target-main.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN GET-LAMBDA-TO-COMPILE ...)
; x-compiling (DEFUN ACTUALLY-COMPILE ...)
; x-compiling (DEFUN COMPILE-IN-LEXENV ...)
; x-compiling (DEFUN COMPILE ...)
; x-compiling (DEFUN MAKE-FORM-TRACKING-STREAM-OBSERVER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-main.lisp
; in: DEFMACRO COMPILE-FILE-POSITION
;     (DEFMACRO SB!EXT:COMPILE-FILE-POSITION (&WHOLE SB!C::THIS-FORM)
;       "Return character position of this macro invocation or NIL if unavailable."
;       (SB!C::COMPUTE-COMPILE-FILE-POSITION SB!C::THIS-FORM NIL))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!EXT:COMPILE-FILE-POSITION
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (#)
;                            (BLOCK SB!EXT:COMPILE-FILE-POSITION #))))
;                    '(&WHOLE SB!C::THIS-FORM)
;                    "Return character position of this macro invocation or NIL if unavailable."
;                    '(MACRO-FUNCTION SB!EXT:COMPILE-FILE-POSITION)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-COMPILE-FILE-POSITION
; x-compiling (DEFMACRO COMPILE-FILE-POSITION ...)

; file: /«PKGBUILDDIR»/src/compiler/target-main.lisp
; in: DEFMACRO COMPILE-FILE-LINE
;     (DEFMACRO SB!EXT:COMPILE-FILE-LINE (&WHOLE SB!C::THIS-FORM)
;       "Return line# and column# of this macro invocation as multiple values."
;       (SB!C::COMPUTE-COMPILE-FILE-POSITION SB!C::THIS-FORM T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!EXT:COMPILE-FILE-LINE
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (#)
;                            (BLOCK SB!EXT:COMPILE-FILE-LINE #))))
;                    '(&WHOLE SB!C::THIS-FORM)
;                    "Return line# and column# of this macro invocation as multiple values."
;                    '(MACRO-FUNCTION SB!EXT:COMPILE-FILE-LINE)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-COMPILE-FILE-POSITION
; x-compiling (DEFMACRO COMPILE-FILE-LINE ...)
; x-compiling (DEFUN COMPUTE-COMPILE-FILE-POSITION ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN COMPILE-FILE-POSITION-HELPER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/target-main.lisp-obj-tmp written
; compilation finished in 0:00:01.690
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*))
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFVAR *CURRENT-FORM-NUMBER*)
; x-compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*))
; x-compiling (DEFVAR *SOURCE-PATHS*)
; x-compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P))
; x-compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...)
; x-compiling (DEFUN GET-SOURCE-PATH ...)
; x-compiling (DEFUN ENSURE-SOURCE-PATH ...)
; x-compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...)
; x-compiling (DEFUN NOTE-SOURCE-PATH ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *CURRENT-COMPONENT*)
; x-compiling (DECLAIM (LIST *CURRENT-PATH*))
; x-compiling (DEFVAR *CURRENT-PATH*)
; x-compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...)
; x-compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...)
; x-compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...)
; x-compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...)
; x-compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF))
; x-compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...)
; x-compiling (DEFUN MAYBE-DEFINED-HERE ...)
; x-compiling (DEFUN FIND-GLOBAL-FUN ...)
; x-compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FREE-FUN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...)
; x-compiling (DEFUN MAYBE-FIND-FREE-VAR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FREE-VAR ...)
; x-compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...)
; x-compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...)
; x-compiling (DECLAIM (INLINE USE-CTRAN))
; x-compiling (DEFUN USE-CTRAN ...)
; x-compiling (DEFUN %USE-CTRAN ...)
; x-compiling (DEFUN INSERT-NODE-BEFORE ...)
; x-compiling (DEFUN USE-LVAR ...)
; x-compiling (DECLAIM (INLINE USE-CONTINUATION))
; x-compiling (DEFUN USE-CONTINUATION ...)
; x-compiling (DEFUN IR1-TOPLEVEL ...)
; x-compiling (DEFUN FIND-SOURCE-PATHS ...)
; x-compiling (DEFUN SUB-FIND-SOURCE-PATHS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-CONVERT ...)
; x-compiling (DEFUN REFERENCE-CONSTANT ...)
; x-compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...)
; x-compiling (DEFUN REFERENCE-LEAF ...)
; x-compiling (DEFUN ALWAYS-BOUNDP ...)
; x-compiling (DEFUN IR1-CONVERT-VAR ...)
; x-compiling (DEFUN FIND-COMPILER-MACRO ...)
; x-compiling (DEFUN EXPAND-COMPILER-MACRO ...)
; x-compiling (DEFUN IR1-CONVERT-FUNCTOID ...)
; x-compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...)
; x-compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN MUFFLE-WARNING-OR-DIE
;     (SB!INT:BUG "no MUFFLE-WARNING restart")
; ==>
;   "no MUFFLE-WARNING restart"
; 
; note: deleting unreachable code
; x-compiling (DEFUN MUFFLE-WARNING-OR-DIE ...)
; x-compiling (DEFUN CAREFUL-EXPAND-MACRO ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-CONVERT-PROGN-BODY ...)
; x-compiling (DEFUN INSTRUMENT-COVERAGE ...)
; x-compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...)
; x-compiling (DEFUN RECORD-CODE-COVERAGE ...)
; x-compiling (DEFUN CLEAR-CODE-COVERAGE ...)
; x-compiling (DEFUN RESET-CODE-COVERAGE ...)
; x-compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...)
; x-compiling (DEFUN STEP-FORM-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-CONVERT-COMBINATION ...)
; x-compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...)
; x-compiling (DEFUN IR1-CONVERT-SRCTRAN ...)
; x-compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...)
; x-compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...)
; x-compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...)
; x-compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-IN-BINDINGS ...)
; x-compiling (DEFUN PROCESS-TYPE-DECL ...)
; x-compiling (DEFUN PROCESS-FTYPE-DECL ...)
; x-compiling (DEFUN PROCESS-SPECIAL-DECL ...)
; x-compiling (DEFUN MAKE-NEW-INLINEP ...)
; x-compiling (DEFUN PROCESS-INLINE-DECL ...)
; x-compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...)
; x-compiling (DEFUN PROCESS-IGNORE-DECL ...)
; x-compiling (DEFUN PROCESS-EXTENT-DECL ...)
; x-compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...)
; x-compiling (DEFUN PROCESS-1-DECL ...)
; x-compiling (DEFUN PROCESS-DECLS ...)
; x-compiling (DEFUN %PROCESSING-DECLS ...)
; x-compiling (DEFMACRO PROCESSING-DECLS ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN SPECVAR-FOR-BINDING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1tran.lisp-obj-tmp written
; compilation finished in 0:00:07.290
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN VARIFY-LAMBDA-ARG ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-LAMBDA-VARS ...)
; x-compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...)
; x-compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...)
; x-compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...)
; x-compiling (DEFUN REGISTER-ENTRY-POINT ...)
; x-compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...)
; x-compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...)
; x-compiling (DEFUN CONVERT-MORE-ENTRY ...)
; x-compiling (DEFUN IR1-CONVERT-MORE ...)
; x-compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...)
; x-compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...)
; x-compiling (DEFUN IR1-CONVERT-LAMBDA ...)
; x-compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...)
; x-compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...)
; x-compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...)
; x-compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...)
; x-compiling (DEFUN GET-DEFINED-FUN ...)
; x-compiling (DEFUN ASSERT-NEW-DEFINITION ...)
; x-compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...)
; x-compiling (DEFUN %SET-INLINE-EXPANSION ...)
; x-compiling (DEFUN %COMPILER-DEFUN ...)
; x-compiling (DEFUN %COMPILER-DEFMACRO ...)
; x-compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj-tmp written
; compilation finished in 0:00:05.412
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1-translators.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF-IR1-TRANSLATOR PROGN ...)
; x-compiling (DEF-IR1-TRANSLATOR IF ...)
; x-compiling (DEFUN BEST-SUB-SOURCE-PATH ...)
; x-compiling (DEF-IR1-TRANSLATOR BLOCK ...)
; x-compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...)
; x-compiling (DEFUN PARSE-TAGBODY ...)
; x-compiling (DEF-IR1-TRANSLATOR TAGBODY ...)
; x-compiling (DEF-IR1-TRANSLATOR GO ...)
; x-compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...)
; x-compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...)
; x-compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...)
; x-compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...)
; x-compiling (DEF-IR1-TRANSLATOR MACROLET ...)
; x-compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...)
; x-compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...)
; x-compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...)
; x-compiling (DEFUN EVAL-INFO-ARGS ...)
; x-compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...)
; x-compiling (DEF-IR1-TRANSLATOR QUOTE ...)
; x-compiling (DEFUN NAME-CONTEXT ...)
; x-compiling (DEFUN NAME-LAMBDALIKE ...)
; x-compiling (DEFUN FUN-NAME-LEAF ...)
; x-compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...)
; x-compiling (DEFMACRO WITH-FUN-NAME-LEAF ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; x-compiling (DEF-IR1-TRANSLATOR FUNCTION ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)
; ==>
;   SB!C::START
; 
; note: deleting unreachable code
; x-compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...)
; x-compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...)
; x-compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...)
; x-compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...)
; x-compiling (DEFUN ENSURE-LVAR-FUN-FORM ...)
; x-compiling (DEFTRANSFORM FUNCALL ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR %FUNCALL
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                        (SB!INT:QUASIQUOTE
;                         (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                          #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2))))
; ==>
;   SB!C::START
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEF-IR1-TRANSLATOR %FUNCALL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...)
; x-compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXTRACT-LET-VARS ...)
; x-compiling (DEF-IR1-TRANSLATOR LET ...)
; x-compiling (DEF-IR1-TRANSLATOR LET* ...)
; x-compiling (DEFUN IR1-TRANSLATE-LOCALLY ...)
; x-compiling (DEF-IR1-TRANSLATOR LOCALLY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXTRACT-FLET-VARS ...)
; x-compiling (DEFUN IR1-CONVERT-FBINDINGS ...)
; x-compiling (DEF-IR1-TRANSLATOR FLET ...)
; x-compiling (DEF-IR1-TRANSLATOR LABELS ...)
; x-compiling (DEFUN THE-IN-POLICY ...)
; x-compiling (DEF-IR1-TRANSLATOR THE ...)
; x-compiling (DEF-IR1-TRANSLATOR TRULY-THE ...)
; x-compiling (SETF (INFO :FUNCTION ...) ...)
; x-compiling (DEFUN EXPLODE-SETQ ...)
; x-compiling (DEF-IR1-TRANSLATOR SETQ ...)
; x-compiling (DEFUN SETQ-VAR ...)
; x-compiling (DEF-IR1-TRANSLATOR THROW ...)
; x-compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...)
; x-compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...)
; x-compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...)
; x-compiling (DEF-IR1-TRANSLATOR CATCH ...)
; x-compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...)
; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...)
; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...)
; 
; compilation unit finished
;   printed 7 notes
; x-compiling (DEFUN REVERT-SOURCE-PATH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1-translators.lisp-obj-tmp written
; compilation finished in 0:00:07.882
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1util.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NODE-ENCLOSING-CLEANUP ...)
; x-compiling (DEFUN MAP-NESTED-CLEANUPS ...)
; x-compiling (DEFUN INSERT-CLEANUP-CODE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-USES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PRINCIPAL-LVAR ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-USE ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-DEST ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %DELETE-LVAR-USE ...)
; x-compiling (DEFUN DELETE-LVAR-USE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ADD-LVAR-USE ...)
; x-compiling (DEFUN IMMEDIATELY-USED-P ...)
; x-compiling (DEFUN COMBINATION-DEFINED-TYPE ...)
; x-compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...)
; x-compiling (DEFUN SUBSTITUTE-LVAR ...)
; x-compiling (DEFUN SUBSTITUTE-LVAR-USES ...)
; x-compiling (DEFUN CTRAN-STARTS-BLOCK ...)
; x-compiling (DEFUN ENSURE-BLOCK-START ...)
; x-compiling (DEFUN START-BLOCK ...)
; x-compiling (DEFUN FILTER-LVAR ...)
; x-compiling (DEFUN DELETE-FILTER ...)
; x-compiling (DEFUN INSERT-CAST-BEFORE ...)
; x-compiling (DEFUN NODE-HOME-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-BLOCK)
;     (DECLAIM (INLINE SB!C::NODE-BLOCK))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::NODE-BLOCK) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-BLOCK to be INLINE, but 6 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE NODE-BLOCK))
; x-compiling (DEFUN NODE-BLOCK ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NODE-COMPONENT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NODE-PHYSENV ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-DEST)
;     (DECLAIM (INLINE SB!C::NODE-DEST))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::NODE-DEST) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-DEST to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE NODE-DEST))
; x-compiling (DEFUN NODE-DEST ...)
; x-compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P))
; x-compiling (DEFUN NODE-STACK-ALLOCATE-P ...)
; x-compiling (DEFUN FLUSHABLE-COMBINATION-P ...)
; x-compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...)
; x-compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...)
; x-compiling (DEFUN USE-GOOD-FOR-DX-P ...)
; x-compiling (DEFUN LVAR-GOOD-FOR-DX-P ...)
; x-compiling (DEFUN KNOWN-DX-COMBINATION-P ...)
; x-compiling (DEFUN DX-COMBINATION-P ...)
; x-compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...)
; x-compiling (DEFUN REF-GOOD-FOR-DX-P ...)
; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...)
; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...)
; x-compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...)
; x-compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P))
; x-compiling (DEFUN BLOCK-TO-BE-DELETED-P ...)
; x-compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P))
; x-compiling (DEFUN NODE-TO-BE-DELETED-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LAMBDA-BLOCK ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LAMBDA-COMPONENT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-START-NODE ...)
; x-compiling (DEFUN BLOCK-START-CLEANUP ...)
; x-compiling (DEFUN BLOCK-END-CLEANUP ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-HOME-LAMBDA ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-PHYSENV ...)
; x-compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...)
; x-compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...)
; x-compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...)
; x-compiling (DEFUN SOURCE-PATH-FORMS ...)
; x-compiling (DEFUN TREE-SOME ...)
; x-compiling (DEFUN NODE-SOURCE-FORM ...)
; x-compiling (DEFUN LVAR-SOURCE ...)
; x-compiling (DEFUN COMMON-SUFFIX ...)
; x-compiling (DEFUN LVAR-ALL-SOURCES ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-USE)
;     (DECLAIM (INLINE SB!C::LVAR-USE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::LVAR-USE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-USE to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE LVAR-USE))
; x-compiling (DEFUN LVAR-USE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)
;     (DECLAIM (INLINE SB!C::LVAR-HAS-SINGLE-USE-P))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::LVAR-HAS-SINGLE-USE-P) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-HAS-SINGLE-USE-P to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P))
; x-compiling (DEFUN LVAR-HAS-SINGLE-USE-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CTRAN-HOME-LAMBDA-OR-NULL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CTRAN-HOME-LAMBDA ...)
; x-compiling (DECLAIM (INLINE CAST-SINGLE-VALUE-P))
; x-compiling (DEFUN CAST-SINGLE-VALUE-P ...)
; x-compiling (DECLAIM (INLINE LVAR-SINGLE-VALUE-P))
; x-compiling (DEFUN LVAR-SINGLE-VALUE-P ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-END ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY ...)
; x-compiling (DEFUN MAKE-LEXENV ...)
; x-compiling (DEFUN MAKE-RESTRICTED-LEXENV ...)
; x-compiling (DEFUN LINK-BLOCKS ...)
; x-compiling (DEFUN %LINK-BLOCKS ...)
; x-compiling (DEFUN UNLINK-BLOCKS ...)
; x-compiling (DEFUN CHANGE-BLOCK-SUCCESSOR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN REMOVE-FROM-DFO ...)
; x-compiling (DEFUN ADD-TO-DFO ...)
; x-compiling (DEFUN MAP-BLOCK-NLXES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CLEAR-FLAGS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-EMPTY-COMPONENT ...)
; x-compiling (DEFUN NODE-ENDS-BLOCK ...)
; x-compiling (DEFUN DELETE-LAMBDA-VAR ...)
; x-compiling (DEFUN REOPTIMIZE-LAMBDA-VAR ...)
; x-compiling (DEFUN DELETE-FUNCTIONAL ...)
; x-compiling (DEFUN DELETE-LAMBDA ...)
; x-compiling (DEFUN DELETE-OPTIONAL-DISPATCH ...)
; x-compiling (DEFUN NOTE-LOCAL-FUNCTIONAL ...)
; x-compiling (DEFUN DEFINED-FUN-FUNCTIONAL ...)
; x-compiling (DEFUN DELETE-REF ...)
; x-compiling (DEFUN FLUSH-NODE ...)
; x-compiling (DEFUN FLUSH-DEST ...)
; x-compiling (DEFUN DELETE-DEST ...)
; x-compiling (DEFUN DELETE-BLOCK-LAZILY ...)
; x-compiling (DEFUN MARK-FOR-DELETION ...)
; x-compiling (DEFUN DELETE-BLOCK ...)
; x-compiling (DEFUN DELETE-RETURN ...)
; x-compiling (DEFUN NOTE-UNREFERENCED-VARS ...)
; x-compiling (DEFUN NOTE-UNREFERENCED-FUN-VARS ...)
; x-compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...)
; x-compiling (DEFUN PRESENT-IN-FORM ...)
; x-compiling (DEFUN NOTE-BLOCK-DELETION ...)
; x-compiling (DEFUN UNLINK-NODE ...)
; x-compiling (DEFUN CTRAN-DELETED-P ...)
; x-compiling (DEFUN NODE-DELETED ...)
; x-compiling (DEFUN DELETE-COMPONENT ...)
; x-compiling (DEFUN CLEAN-COMPONENT ...)
; x-compiling (DEFUN SPLICE-FUN-ARGS ...)
; x-compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...)
; x-compiling (DEFUN EXTRACT-FUN-ARGS ...)
; x-compiling (DEFUN FLUSH-COMBINATION ...)
; x-compiling (DEFUN CHANGE-REF-LEAF ...)
; x-compiling (DEFUN SUBSTITUTE-LEAF ...)
; x-compiling (DEFUN SUBSTITUTE-LEAF-IF ...)
; x-compiling (DEFUN FIND-CONSTANT ...)
; x-compiling (DEFUN CLOSURE-VAR-P ...)
; x-compiling (DEFUN FIND-NLX-INFO ...)
; x-compiling (DEFUN NLX-INFO-LVAR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAIN-ENTRY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...)
; x-compiling (DEFUN XEP-P ...)
; x-compiling (DEFUN LVAR-FUN-NAME ...)
; x-compiling (DEFUN LVAR-FUN-DEBUG-NAME ...)
; x-compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...)
; x-compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...)
; x-compiling (DEFUN LET-COMBINATION ...)
; x-compiling (DEFUN LET-VAR-INITIAL-VALUE ...)
; x-compiling (DEFUN COMBINATION-LAMBDA ...)
; x-compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...)
; x-compiling (DEFUN INLINE-EXPANSION-OK ...)
; x-compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...)
; x-compiling (DEFUN ASSURE-LEAF-LIVE-P ...)
; x-compiling (DEFUN CALL-FULL-LIKE-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CAREFUL-CALL ...)
; x-compiling (DEFFROB SPECIFIER-TYPE ...)
; x-compiling (DEFFROB VALUES-SPECIFIER-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-KEYWORD-LVAR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-TRANSFORM-KEYS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %EVENT ...)
; x-compiling (DEFUN MAKE-CAST ...)
; x-compiling (DEFUN CAST-TYPE-CHECK ...)
; x-compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...)
; x-compiling (DEFUN LVAR-FUN-IS ...)
; x-compiling (DEFUN LVAR-MATCHES ...)
; x-compiling (DEFUN OPTIONAL-REST-P ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFFROB VALUES-SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:VALUES-SPECIFIER-TYPE
;      SB!C::CAREFUL-VALUES-SPECIFIER-TYPE SB!C::COMPILER-VALUES-SPECIFIER-TYPE
;      SB!C::IR1-TRANSFORM-VALUES-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR

; in: DEFFROB SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:SPECIFIER-TYPE SB!C::CAREFUL-SPECIFIER-TYPE
;      SB!C::COMPILER-SPECIFIER-TYPE SB!C::IR1-TRANSFORM-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL::ARG-COUNT-ERROR
;   caught 6 STYLE-WARNING conditions
; x-compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1util.lisp-obj-tmp written
; compilation finished in 0:00:14.776
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1report.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *CURRENT-PATH*))
; x-compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))

; file: /«PKGBUILDDIR»/src/compiler/ir1report.lisp
; in: DEFSTRUCT COMPILER-ERROR-CONTEXT
;     (DEFSTRUCT
;         (SB!C::COMPILER-ERROR-CONTEXT
;          (:PRINT-OBJECT (LAMBDA (SB!C::X STREAM) (PRINT-UNREADABLE-OBJECT #)))
;          (:COPIER NIL))
;       (SB!C::ENCLOSING-SOURCE NIL :TYPE LIST)
;       (SB!C::SOURCE NIL :TYPE LIST)
;       (SB!C::ORIGINAL-SOURCE (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING)
;       (SB!C::CONTEXT NIL :TYPE LIST)
;       (SB!INT:FILE-NAME (SB!INT:MISSING-ARG) :TYPE
;        (OR PATHNAME (MEMBER :LISP :STREAM)))
;       (FILE-POSITION NIL :TYPE (OR SB!INT:INDEX NULL))
;       (SB!C::ORIGINAL-SOURCE-PATH NIL :TYPE LIST)
;       (SB!KERNEL:LEXENV NIL :TYPE (OR NULL SB!KERNEL:LEXENV)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C::COMPILER-ERROR-CONTEXT {55417279}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::COMPILER-ERROR-CONTEXT-LEXENV could not be
;   inlined because the structure definition for SB!C::COMPILER-ERROR-CONTEXT was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...)
; x-compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...)
; x-compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...)
; x-compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...)
; x-compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...)
; x-compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...)
; x-compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...)
; x-compiling (DEFUN SOURCE-FORM-CONTEXT ...)
; x-compiling (DEFUN FIND-ORIGINAL-SOURCE ...)
; x-compiling (DEFUN STRINGIFY-FORM ...)
; x-compiling (DEFUN FIND-ERROR-CONTEXT ...)
; x-compiling (DEFVAR *LAST-ERROR-CONTEXT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LAST-FORMAT-STRING* ...)
; x-compiling (DEFVAR *LAST-FORMAT-ARGS* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *LAST-MESSAGE-COUNT* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN NOTE-MESSAGE-REPEATS ...)
; x-compiling (DEFUN PRINT-COMPILER-MESSAGE ...)
; x-compiling (DEFUN %PRINT-COMPILER-MESSAGE ...)
; x-compiling (DEFUN PRINT-COMPILER-CONDITION ...)
; x-compiling (DEFINE-CONDITION COMPILER-NOTE ...)
; x-compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...)
; x-compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...)
; x-compiling (DEFUN COMPILER-NOTIFY ...)
; x-compiling (DEFUN MAYBE-COMPILER-NOTIFY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN COMPILER-MUMBLE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-COMPONENT-NAME ...)
; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; x-compiling (DEFVAR *FAILURE-P*)
; x-compiling (DEFVAR *WARNINGS-P*)
; x-compiling (DEFUN COMPILER-ERROR-HANDLER ...)
; x-compiling (DEFUN COMPILER-WARNING-HANDLER ...)
; x-compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...)
; x-compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...)
; x-compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...)
; x-compiling (DEFUN WARN-IF-COMPILER-MACRO-DEPENDENCY-PROBLEM ...)
; x-compiling (DEFUN WARN-IF-INLINE-FAILED/PROCLAIM ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN WARN-IF-INLINE-FAILED/CALL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1report.lisp-obj-tmp written
; compilation finished in 0:00:03.868
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN CONSTANT-LVAR-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LVAR-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE LVAR-DERIVED-TYPE)
;     (DECLAIM (INLINE SB!C::LVAR-DERIVED-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::LVAR-DERIVED-TYPE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-DERIVED-TYPE to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE))
; x-compiling (DEFUN LVAR-DERIVED-TYPE ...)
; x-compiling (DEFUN %LVAR-DERIVED-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LVAR-TYPE ...)
; x-compiling (DEFUN LVAR-CONSERVATIVE-TYPE ...)
; x-compiling (DEFUN NODE-CONSERVATIVE-TYPE ...)
; x-compiling (DEFUN CONSERVATIVE-TYPE ...)
; x-compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...)
; x-compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE))
; x-compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...)
; x-compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;     (DECLAIM (INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE to be INLINE, but 3
;   calls to it were previously compiled. A declaration of NOTINLINE at the call
;   sites will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; x-compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; x-compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE REOPTIMIZE-COMPONENT)
;     (DECLAIM (INLINE SB!C::REOPTIMIZE-COMPONENT))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::REOPTIMIZE-COMPONENT) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::REOPTIMIZE-COMPONENT to be INLINE, but 4 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT))
; x-compiling (DEFUN REOPTIMIZE-COMPONENT ...)
; x-compiling (DEFUN REOPTIMIZE-LVAR ...)
; x-compiling (DEFUN REOPTIMIZE-LVAR-USES ...)
; x-compiling (DEFUN DERIVE-NODE-TYPE ...)
; x-compiling (DEFUN ASSERT-LVAR-TYPE ...)
; x-compiling (DEFUN IR1-OPTIMIZE ...)
; x-compiling (DEFUN IR1-OPTIMIZE-BLOCK ...)
; x-compiling (DEFUN JOIN-SUCCESSOR-IF-POSSIBLE ...)
; x-compiling (DEFUN JOIN-BLOCKS ...)
; x-compiling (DEFUN FLUSH-DEAD-CODE ...)
; x-compiling (DEFUN FIND-RESULT-TYPE ...)
; x-compiling (DEFUN IR1-OPTIMIZE-RETURN ...)
; x-compiling (DEFUN CBLOCKS-EQUIVALENT-P ...)
; x-compiling (DEFUN IR1-OPTIMIZE-IF ...)
; x-compiling (DEFUN KILL-IF-BRANCH-1 ...)
; x-compiling (DEFUN TENSION-IF-IF-1 ...)
; x-compiling (DEFUN DUPLICATE-IF-IF-1 ...)
; x-compiling (DEFUN CONVERT-IF-IF ...)
; x-compiling (DEFUN MAYBE-DELETE-EXIT ...)
; x-compiling (DEFUN CHECK-IMPORTANT-RESULT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...)
; x-compiling (DEFUN XEP-TAIL-COMBINATION-P ...)
; x-compiling (DEFUN MAYBE-TERMINATE-BLOCK ...)
; x-compiling (DEFUN RECOGNIZE-KNOWN-CALL ...)
; x-compiling (DEFUN VALIDATE-CALL-TYPE ...)
; x-compiling (DEFUN PROPAGATE-FUN-CHANGE ...)
; x-compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...)
; x-compiling (DEFUN IR1-TRANSFORM ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...)
; x-compiling (DEFUN ABORT-IR1-TRANSFORM ...)
; x-compiling (DEFUN DELAY-IR1-TRANSFORM ...)
; x-compiling (DEFMACRO CATCH-GIVE-UP-IR1-TRANSFORM ...)
; x-compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...)
; x-compiling (DEFUN TRANSFORM-CALL ...)
; x-compiling (DEFUN CONSTANT-FOLD-CALL ...)
; x-compiling (DEFUN PROPAGATE-TO-REFS ...)
; x-compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...)
; x-compiling (DEFTRANSFORM + ...)
; x-compiling (DEFUN PROPAGATE-FROM-SETS ...)
; x-compiling (DEFUN IR1-OPTIMIZE-SET ...)
; x-compiling (DEFUN CONSTANT-REFERENCE-P ...)
; x-compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...)
; x-compiling (DEFUN DELETE-LET ...)
; x-compiling (DEFUN PROPAGATE-LET-ARGS ...)
; x-compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...)
; x-compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...)
; x-compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...)
; x-compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...)
; x-compiling (DEFUN CONVERT-MV-BIND-TO-LET ...)
; x-compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...)
; x-compiling (DEFTRANSFORM VALUES ...)
; x-compiling (DEFUN DELETE-CAST ...)
; x-compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...)
; x-compiling (DEFUN COMPILE-TIME-TYPE-ERROR-CONTEXT ...)
; x-compiling (DEFUN IR1-OPTIMIZE-CAST ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFTRANSFORM MAKE-SYMBOL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1opt.lisp-obj-tmp written
; compilation finished in 0:00:10.758
; compiling file "/«PKGBUILDDIR»/src/compiler/loop.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FIND-DOMINATORS ...)
; x-compiling (DEFUN DOMINATES-P ...)
; x-compiling (DEFUN LOOP-ANALYZE ...)
; x-compiling (DEFUN FIND-LOOP-BLOCKS ...)
; x-compiling (DEFUN FIND-BLOCKS-FROM-HERE ...)
; x-compiling (DEFUN NOTE-LOOP-HEAD ...)
; x-compiling (DEFUN FIND-SUPERIOR ...)
; x-compiling (DEFUN FIND-STRANGE-LOOP-BLOCKS ...)
; x-compiling (DEFUN FIND-STRANGE-LOOP-SEGMENTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/loop.lisp-obj-tmp written
; compilation finished in 0:00:00.844
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1final.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NOTE-FAILED-OPTIMIZATION ...)
; x-compiling (DEFUN FINALIZE-XEP-DEFINITION ...)
; x-compiling (DEFUN NOTE-ASSUMED-TYPES ...)
; x-compiling (DEFUN IR1-MERGE-CASTS ...)
; x-compiling (DEFUN IR1-FINALIZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1final.lisp-obj-tmp written
; compilation finished in 0:00:02.584
; compiling file "/«PKGBUILDDIR»/src/compiler/array-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...)
; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...)
; x-compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...)
; x-compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...)
; x-compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...)
; x-compiling (DEFUN UNSUPPLIED-OR-NIL ...)
; x-compiling (DEFUN SUPPLIED-AND-TRUE ...)
; x-compiling (DEFUN ASSERT-ARRAY-RANK ...)
; x-compiling (DEFUN DERIVE-AREF-TYPE ...)
; x-compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...)
; x-compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; x-compiling (DEFINE DATA-VECTOR-REF)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; x-compiling (DEFINE DATA-VECTOR-SET)
; x-compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...)
; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFUN DERIVE-MAKE-ARRAY-TYPE
;     'ARRAY
; 
; note: deleting unreachable code
; x-compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...)
; x-compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...)
; x-compiling (DEFTRANSFORM MAKE-STRING ...)
; x-compiling (DEFUN REWRITE-INITIAL-CONTENTS ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY
;     (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS)))
; ==>
;   SB!C::DIMENSIONS
; 
; note: deleting unreachable code
; x-compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM COERCE ...)
; x-compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...)
; x-compiling (DEFTRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFTRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFTRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...)
; x-compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...)
; x-compiling (DEFTRANSFORM ARRAY-RANK ...)
; x-compiling (DEFUN DERIVE-ARRAY-RANK ...)
; x-compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM ARRAY-DIMENSION ...)
; x-compiling (DEFTRANSFORM LENGTH ...)
; x-compiling (DEFTRANSFORM LENGTH ...)
; x-compiling (DEFTRANSFORM VECTOR-LENGTH ...)
; x-compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...)
; x-compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...)
; x-compiling (DEFTRANSFORM %CHECK-BOUND ...)
; x-compiling (SB-XC:DEFMACRO WITH-ARRAY-DATA ...)
; x-compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...)
; x-compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUMBLE ...)
; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...)
; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...)
; x-compiling (DEFINE-BIT-FROB SBIT ...)
; x-compiling (DEFINE-BIT-FROB BIT ...)
; x-compiling (DEFINE-FROB SCHAR ...)
; x-compiling (DEFINE-FROB CHAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SVREF ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...)
; x-compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFTRANSFORM AREF ...)
; x-compiling (DEFTRANSFORM (SETF AREF) ...)
; x-compiling (DEFTRANSFORM AREF ...)
; x-compiling (DEFTRANSFORM (SETF AREF) ...)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; x-compiling (DEFTRANSFORM ROW-MAJOR-AREF ...)
; x-compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...)
; x-compiling (DEF BIT-AND)
; x-compiling (DEF BIT-IOR)
; x-compiling (DEF BIT-XOR)
; x-compiling (DEF BIT-EQV)
; x-compiling (DEF BIT-NAND)
; x-compiling (DEF BIT-NOR)
; x-compiling (DEF BIT-ANDC1)
; x-compiling (DEF BIT-ANDC2)
; x-compiling (DEF BIT-ORC1)
; x-compiling (DEF BIT-ORC2)
; x-compiling (DEFTRANSFORM BIT-NOT ...)
; x-compiling (DEFTRANSFORM BIT-NOT ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/array-tran.lisp-obj-tmp written
; compilation finished in 0:00:10.420
; compiling file "/«PKGBUILDDIR»/src/compiler/seqtran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN MAPFOO-TRANSFORM ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPC ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...)
; x-compiling (DEFTRANSFORM MAP ...)
; x-compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...)
; x-compiling (DEFTRANSFORM %MAP ...)
; x-compiling (DEFTRANSFORM MAP-INTO ...)
; x-compiling (DEFTRANSFORM ELT ...)
; x-compiling (DEFTRANSFORM ELT ...)
; x-compiling (DEFTRANSFORM %SETELT ...)
; x-compiling (DEFTRANSFORM %SETELT ...)
; x-compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; x-compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...)
; x-compiling (DEFUN EQ-COMPARABLE-TYPE-P ...)
; x-compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...)
; x-compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...)
; x-compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...)
; x-compiling (DEF ADJOIN)
; x-compiling (DEF ASSOC ...)
; x-compiling (DEF MEMBER ...)
; x-compiling (DEF RASSOC ...)
; x-compiling (DEFTRANSFORM MEMQ ...)
; x-compiling (DEFTRANSFORM DELETE ...)
; x-compiling (DEFTRANSFORM DELETE-IF ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEF STRING< ...)
; x-compiling (DEF STRING> ...)
; x-compiling (DEF STRING<= ...)
; x-compiling (DEF STRING>= ...)
; x-compiling (DEF STRING= ...)
; x-compiling (DEF STRING/= ...)
; x-compiling (DEF STRING<* ...)
; x-compiling (DEF STRING<=* ...)
; x-compiling (DEF STRING>* ...)
; x-compiling (DEF STRING>=* ...)
; x-compiling (DEFTRANSFORM STRING=* ...)
; x-compiling (DEFTRANSFORM STRING/=* ...)
; x-compiling (DEF STRING=* ...)
; x-compiling (DEF STRING/=* ...)
; x-compiling (DEFTRANSFORM STRING/=* ...)
; x-compiling (DEFTRANSFORM STRING ...)
; x-compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...)
; x-compiling (DEFUN MAKE-REPLACE-TRANSFORM ...)
; x-compiling (DEFINE-REPLACE-TRANSFORMS)
; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...)
; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...)
; x-compiling (DEFUN FROB-BASH-TRANSFORM ...)
; x-compiling (DEFTRANSFORM UB1-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB2-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB4-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB8-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB16-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB32-BASH-COPY ...)
; x-compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...)
; x-compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...)
; x-compiling (DEFUN EXPAND-AREF-COPY-LOOP ...)
; x-compiling (DEFTRANSFORM MAKE-SEQUENCE ...)
; x-compiling (DEFTRANSFORM SUBSEQ ...)
; x-compiling (DEFTRANSFORM SUBSEQ ...)
; x-compiling (DEFTRANSFORM SUBSEQ ...)
; x-compiling (DEFTRANSFORM COPY-SEQ ...)
; x-compiling (DEFTRANSFORM COPY-SEQ ...)
; x-compiling (DEFTRANSFORM COPY-SEQ ...)
; x-compiling (DEFTRANSFORM SEARCH ...)
; x-compiling (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFTRANSFORM CONCATENATE ...)
; x-compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...)
; x-compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...)
; x-compiling (DEFUN %FIND/POSITION-IF-LIST-EXPANSION ...)
; x-compiling (DEF %FIND-POSITION-IF ...)
; x-compiling (DEF %FIND-POSITION-IF-NOT ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...)
; x-compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...)
; x-compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...)
; x-compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION-IF ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...)
; x-compiling (DEFINE-FIND-POSITION FIND ...)
; x-compiling (DEFINE-FIND-POSITION POSITION ...)
; x-compiling (DEFINE-FIND-POSITION-IF FIND-IF ...)
; x-compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...)
; x-compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...)
; x-compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...)
; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...)
; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...)
; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...)
; x-compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...)
; x-compiling (DEFTRANSFORM SB!IMPL::|List| ...)
; x-compiling (DEFTRANSFORM SB!IMPL::|List*| ...)
; x-compiling (DEFTRANSFORM SB!IMPL::|Append| ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/seqtran.lisp-obj-tmp written
; compilation finished in 0:00:12.854
; compiling file "/«PKGBUILDDIR»/src/compiler/typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...)
; x-compiling (DEFUN %DEFINE-TYPE-PREDICATE ...)
; x-compiling (DEFTRANSFORM TYPEP ...)
; x-compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...)
; x-compiling (DEFTRANSFORM %TYPEP ...)
; x-compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...)
; x-compiling (DEFTRANSFORM FIND-CLASSOID ...)
; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...)
; x-compiling (DEFTRANSFORM %TYPEP-WRAPPER ...)
; x-compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...)
; x-compiling (!DEFINE-STANDARD-TYPE-PREDICATES)
; x-compiling (DEFINE-SOURCE-TRANSFORM ATOM ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...)
; x-compiling (DEFTRANSFORM CONSP ...)
; x-compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...)
; x-compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...)
; x-compiling (DEFUN TEST-ARRAY-DIMENSIONS ...)
; x-compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...)
; x-compiling (DEFTRANSFORM %INSTANCE-TYPEP ...)
; x-compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...)
; x-compiling (DEFOPTIMIZER (COERCE OPTIMIZER) ...)
; x-compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...)
; x-compiling (DEFTRANSFORM COERCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/typetran.lisp-obj-tmp written
; compilation finished in 0:00:03.598
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...)
; x-compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...)
; x-compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE RATIOP ...)
; x-compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-BASE-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-CHARACTER-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SYSTEM-AREA-POINTER-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE UNSIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE LRA-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...)
; x-compiling (DEF)
; x-compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj-tmp written
; compilation finished in 0:00:00.305
; compiling file "/«PKGBUILDDIR»/src/compiler/float-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN %DOUBLE-FLOAT ...)
; x-compiling (DEFTRANSFORM FLOAT ...)
; x-compiling (DEFTRANSFORM FLOAT ...)
; x-compiling (DEFTRANSFORM FLOAT ...)
; x-compiling (DEFTRANSFORM %SINGLE-FLOAT ...)
; x-compiling (DEFTRANSFORM %DOUBLE-FLOAT ...)
; x-compiling (FROB %RANDOM-SINGLE-FLOAT ...)
; x-compiling (FROB %RANDOM-DOUBLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2
;     (<= SB!C::N-BITS (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS))
; ==>
;   SB!C::N-BITS
; 
; note: deleting unreachable code

;     (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS)
; ==>
;   SB!KERNEL:N-RANDOM-CHUNK-BITS
; 
; note: deleting unreachable code

;     (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS")
; ==>
;   "Unexpectedly small N-RANDOM-CHUNK-BITS"
; 
; note: deleting unreachable code
; x-compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...)
; x-compiling (DEFTRANSFORM RANDOM ...)
; x-compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...)
; x-compiling (DEFTRANSFORM MAKE-SINGLE-FLOAT ...)
; x-compiling (DEFTRANSFORM MAKE-DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN SINGLE-FLOAT-BITS ...)
; x-compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...)
; x-compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...)
; x-compiling (DEFTRANSFORM FLOAT-SIGN ...)
; x-compiling (DEFTRANSFORM FLOAT-SIGN ...)
; x-compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...)
; x-compiling (DEFTRANSFORM DECODE-FLOAT ...)
; x-compiling (DEFTRANSFORM DECODE-FLOAT ...)
; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)
; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX)
;              'SINGLE-FLOAT)
; 
; note: deleting unreachable code
; x-compiling (DEFTRANSFORM SCALE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX)
; 
; note: deleting unreachable code
; x-compiling (DEFTRANSFORM SCALE-FLOAT ...)
; x-compiling (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (FROB %SINGLE-FLOAT ...)
; x-compiling (FROB %DOUBLE-FLOAT ...)
; x-compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...)
; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...)
; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...)
; x-compiling (DOLIST (X #) ...)
; x-compiling (DOLIST (X #) ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)
; x-compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...)
; x-compiling (DEF SINGLE-FLOAT)
; x-compiling (DEF DOUBLE-FLOAT)
; x-compiling (DEF + ...)
; x-compiling (DEF - ...)
; x-compiling (DEF + ...)
; x-compiling (DEF - ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)
; x-compiling (FROB <)
; x-compiling (FROB >)
; x-compiling (FROB =)
; x-compiling (DEFKNOWN (%TAN %SINH ...) ...)
; x-compiling (DEFKNOWN (%SIN %COS ...) ...)
; x-compiling (DEFKNOWN (%ASIN %ATAN) ...)
; x-compiling (DEFKNOWN (%ACOS) ...)
; x-compiling (DEFKNOWN (%COSH) ...)
; x-compiling (DEFKNOWN (%ACOSH %EXP ...) ...)
; x-compiling (DEFKNOWN %EXPM1 ...)
; x-compiling (DEFKNOWN (%HYPOT) ...)
; x-compiling (DEFKNOWN (%POW) ...)
; x-compiling (DEFKNOWN (%ATAN2) ...)
; x-compiling (DEFKNOWN (%SCALB) ...)
; x-compiling (DEFKNOWN (%SCALBN) ...)
; x-compiling (DEFKNOWN (%LOG1P) ...)
; x-compiling (DEF EXP ...)
; x-compiling (DEF LOG ...)
; x-compiling (DEF SQRT ...)
; x-compiling (DEF ASIN ...)
; x-compiling (DEF ACOS ...)
; x-compiling (DEF ATAN ...)
; x-compiling (DEF SINH ...)
; x-compiling (DEF COSH ...)
; x-compiling (DEF TANH ...)
; x-compiling (DEF ASINH ...)
; x-compiling (DEF ACOSH ...)
; x-compiling (DEF ATANH ...)
; x-compiling (DEF SIN ...)
; x-compiling (DEF COS ...)
; x-compiling (DEF TAN ...)
; x-compiling (DEFTRANSFORM ATAN ...)
; x-compiling (DEFTRANSFORM ATAN ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM LOG ...)
; x-compiling (DEFTRANSFORM ABS ...)
; x-compiling (DEFTRANSFORM ABS ...)
; x-compiling (DEFTRANSFORM PHASE ...)
; x-compiling (DEFTRANSFORM PHASE ...)
; x-compiling (DEFTRANSFORM PHASE ...)
; x-compiling (DEFUN NUMERIC-TYPE-REAL-P ...)
; x-compiling (DEFUN COERCE-NUMERIC-BOUND ...)
; x-compiling (DEFUN COMPLEX-FLOAT-TYPE ...)
; x-compiling (DEFUN FLOAT-OR-COMPLEX-FLOAT-TYPE ...)
; x-compiling (DEFUN DOMAIN-SUBTYPEP ...)
; x-compiling (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ...)
; x-compiling (FROB EXP ...)
; x-compiling (FROB SINH ...)
; x-compiling (FROB TANH ...)
; x-compiling (FROB ASINH ...)
; x-compiling (FROB ASIN ...)
; x-compiling (FROB ACOS ...)
; x-compiling (FROB ACOSH ...)
; x-compiling (FROB ATANH ...)
; x-compiling (FROB SQRT ...)
; x-compiling (DEFUN SAFE-EXPT ...)
; x-compiling (DEFUN INTERVAL-EXPT-> ...)
; x-compiling (DEFUN INTERVAL-EXPT-< ...)
; x-compiling (DEFUN INTERVAL-EXPT ...)
; x-compiling (DEFUN FIXUP-INTERVAL-EXPT ...)
; x-compiling (DEFUN MERGED-INTERVAL-EXPT ...)
; x-compiling (DEFUN EXPT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (EXPT DERIVE-TYPE) ...)
; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-1 ...)
; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-2 ...)
; x-compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...)
; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-1 ...)
; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-2 ...)
; x-compiling (DEFOPTIMIZER (ATAN DERIVE-TYPE) ...)
; x-compiling (DEFUN COSH-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (COSH DERIVE-TYPE) ...)
; x-compiling (DEFUN PHASE-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (PHASE DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM REALPART ...)
; x-compiling (DEFTRANSFORM IMAGPART ...)
; x-compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...)
; x-compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...)
; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...)
; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...)
; x-compiling (DEFOPTIMIZER (COMPLEX DERIVE-TYPE) ...)
; x-compiling (FROB SINGLE-FLOAT)
; x-compiling (FROB DOUBLE-FLOAT)
; x-compiling (DEFUN TRIG-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (SIN DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (COS DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (TAN DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CIS DERIVE-TYPE) ...)
; x-compiling (DEFINE-FROBS TRUNCATE ...)
; x-compiling (DEFINE-FROBS ROUND ...)
; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN %UNARY-FTRUNCATE ...)
; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...)
; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/SINGLE
;     (DEFUN SB!C::%UNARY-FTRUNCATE/SINGLE (SB!C::X)
;       (DECLARE (TYPE SINGLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (LET* ((SB!C::BITS (SB!KERNEL:SINGLE-FLOAT-BITS SB!C::X))
;              (EXP (SB-XC:LDB SB!VM:SINGLE-FLOAT-EXPONENT-BYTE SB!C::BITS))
;              (SB!C::BIASED (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT #)))
;         (DECLARE (TYPE (SIGNED-BYTE 32) SB!C::BITS))
;         (COND ((= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X)
;               ((<= SB!C::BIASED 0) (* SB!C::X 0.0)) ((>= SB!C::BIASED #) SB!C::X)
;               (T
;                (LET #
;                  #
;                  #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::%UNARY-FTRUNCATE/SINGLE
;         (SB!C::X)
;       (DECLARE (TYPE SINGLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (BLOCK SB!C::%UNARY-FTRUNCATE/SINGLE
;         (LET* ((SB!C::BITS #) (EXP #) (SB!C::BIASED #))
;           (DECLARE (TYPE # SB!C::BITS))
;           (COND (# SB!C::X) (# #) (# SB!C::X) (T #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"
; x-compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
;     (DEFUN SB!C::%UNARY-FTRUNCATE/DOUBLE (SB!C::X)
;       (DECLARE (TYPE DOUBLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (LET* ((SB!C::HIGH (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::X))
;              (SB!C::LOW (SB!KERNEL:DOUBLE-FLOAT-LOW-BITS SB!C::X))
;              (EXP (SB-XC:LDB SB!VM:DOUBLE-FLOAT-EXPONENT-BYTE SB!C::HIGH))
;              (SB!C::BIASED (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT #)))
;         (DECLARE (TYPE (SIGNED-BYTE 32) SB!C::HIGH)
;                  (TYPE (UNSIGNED-BYTE 32) SB!C::LOW))
;         (COND ((= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X)
;               ((<= SB!C::BIASED 0) (* SB!C::X 0.0d0))
;               ((>= SB!C::BIASED #) SB!C::X)
;               (T
;                (LET #
;                  #
;                  #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::%UNARY-FTRUNCATE/DOUBLE
;         (SB!C::X)
;       (DECLARE (TYPE DOUBLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (BLOCK SB!C::%UNARY-FTRUNCATE/DOUBLE
;         (LET* ((SB!C::HIGH #) (SB!C::LOW #) (EXP #) (SB!C::BIASED #))
;           (DECLARE (TYPE # SB!C::HIGH)
;                    (TYPE # SB!C::LOW))
;           (COND (# SB!C::X) (# #) (# SB!C::X) (T #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"
; x-compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; 
; compilation unit finished
;   printed 9 notes
; x-compiling (DEF DOUBLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/float-tran.lisp-obj-tmp written
; compilation finished in 0:00:10.523
; compiling file "/«PKGBUILDDIR»/src/compiler/saptran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFKNOWN (SAP< SAP<= ...) ...)
; x-compiling (DEFKNOWN SAP+ ...)
; x-compiling (DEFKNOWN SAP- ...)
; x-compiling (DEFKNOWN SAP-INT ...)
; x-compiling (DEFKNOWN INT-SAP ...)
; x-compiling (DEFSAPREF SAP-REF-8 ...)
; x-compiling (DEFSAPREF SAP-REF-16 ...)
; x-compiling (DEFSAPREF SAP-REF-32 ...)
; x-compiling (DEFSAPREF SAP-REF-64 ...)
; x-compiling (DEFSAPREF SAP-REF-WORD ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-8 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-16 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-32 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-64 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFSAPREF SAP-REF-SAP ...)
; x-compiling (DEFSAPREF SAP-REF-LISPOBJ ...)
; x-compiling (DEFSAPREF SAP-REF-SINGLE ...)
; x-compiling (DEFSAPREF SAP-REF-DOUBLE ...)
; x-compiling (DEFSAPREF SAP-REF-LONG ...)
; x-compiling (DEF SAP< ...)
; x-compiling (DEF SAP<= ...)
; x-compiling (DEF SAP= ...)
; x-compiling (DEF SAP>= ...)
; x-compiling (DEF SAP> ...)
; x-compiling (DEFTRANSFORM SAP+ ...)
; x-compiling (DEF SAP-REF-8)
; x-compiling (DEF %SET-SAP-REF-8 ...)
; x-compiling (DEF SIGNED-SAP-REF-8)
; x-compiling (DEF %SET-SIGNED-SAP-REF-8 ...)
; x-compiling (DEF SAP-REF-16)
; x-compiling (DEF %SET-SAP-REF-16 ...)
; x-compiling (DEF SIGNED-SAP-REF-16)
; x-compiling (DEF %SET-SIGNED-SAP-REF-16 ...)
; x-compiling (DEF SAP-REF-32)
; x-compiling (DEF %SET-SAP-REF-32 ...)
; x-compiling (DEF SIGNED-SAP-REF-32)
; x-compiling (DEF %SET-SIGNED-SAP-REF-32 ...)
; x-compiling (DEF SAP-REF-64)
; x-compiling (DEF %SET-SAP-REF-64 ...)
; x-compiling (DEF SIGNED-SAP-REF-64)
; x-compiling (DEF %SET-SIGNED-SAP-REF-64 ...)
; x-compiling (DEF SAP-REF-SAP)
; x-compiling (DEF %SET-SAP-REF-SAP ...)
; x-compiling (DEF SAP-REF-LISPOBJ)
; x-compiling (DEF %SET-SAP-REF-LISPOBJ ...)
; x-compiling (DEF SAP-REF-SINGLE)
; x-compiling (DEF %SET-SAP-REF-SINGLE ...)
; x-compiling (DEF SAP-REF-DOUBLE)
; x-compiling (DEF %SET-SAP-REF-DOUBLE ...)
; x-compiling (DEF SAP-REF-WORD ...)
; x-compiling (DEF SIGNED-SAP-REF-WORD ...)
; x-compiling (DEF %SET-SAP-REF-WORD ...)
; x-compiling (DEF %SET-SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFTRANSFORM SAP-REF-64 ...)
; x-compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...)
; x-compiling (DEFTRANSFORM %SET-SAP-REF-64 ...)
; x-compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/saptran.lisp-obj-tmp written
; compilation finished in 0:00:02.388
; compiling file "/«PKGBUILDDIR»/src/compiler/srctran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES ...)
; x-compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM COMPLEMENT ...)
; x-compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...)
; x-compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CXR ...)
; x-compiling (/SHOW0 "about to set CxR source transforms")
; x-compiling (LOOP FOR ...)
; x-compiling (/SHOW0 "done setting CxR source transforms")
; x-compiling (DEFINE-SOURCE-TRANSFORM REST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FIRST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SECOND ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM THIRD ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NINTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM TENTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LIST ...)
; x-compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LIST* ...)
; x-compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NCONC ...)
; x-compiling (DEFUN DERIVE-APPEND-TYPE ...)
; x-compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...)
; x-compiling (DEFTRANSFORM LAST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM GET ...)
; x-compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFTRANSFORM NTHCDR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM 1+ ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM 1- ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ODDP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EVENP ...)
; x-compiling (DEFFROB TRUNCATE)
; x-compiling (DEFFROB ROUND)
; x-compiling (DEFFROB FLOOR)
; x-compiling (DEFFROB CEILING)
; x-compiling (DEFTRANSFORM LOGTEST ...)
; x-compiling (DEFTRANSFORM LOGBITP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...)
; x-compiling (DEF SIGNED-ZERO->= ...)
; x-compiling (DEF SIGNED-ZERO-> ...)
; x-compiling (DEF SIGNED-ZERO-= ...)
; x-compiling (DEF SIGNED-ZERO-< ...)
; x-compiling (DEF SIGNED-ZERO-<= ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFSTRUCT INTERVAL
;     (DEFSTRUCT (SB!C::INTERVAL (:CONSTRUCTOR SB!C::%MAKE-INTERVAL) (:COPIER NIL))
;       SB!C::LOW
;       SB!C::HIGH)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C::INTERVAL {5583A2B1}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::INTERVAL-LOW and SB!C::INTERVAL-HIGH could
;   not be inlined because the structure definition for SB!C::INTERVAL was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (INTERVAL # ...) ...)
; x-compiling (DEFUN MAKE-INTERVAL ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DECLAIM (INLINE SET-BOUND)
;     (DECLAIM (INLINE SB!C::SET-BOUND))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::SET-BOUND) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::SET-BOUND to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE SET-BOUND))
; x-compiling (DEFUN SET-BOUND ...)
; x-compiling (DEFUN BOUND-FUNC ...)
; x-compiling (DEFUN SAFE-DOUBLE-COERCION-P ...)
; x-compiling (DEFUN SAFE-SINGLE-COERCION-P ...)
; x-compiling (DEFMACRO SAFELY-BINOP ...)
; x-compiling (DEFMACRO BOUND-BINOP ...)
; x-compiling (DEFUN COERCION-LOSES-PRECISION-P ...)
; x-compiling (DEFUN COERCE-FOR-BOUND ...)
; x-compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...)
; x-compiling (DEFUN NUMERIC-TYPE->INTERVAL ...)
; x-compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...)
; x-compiling (DEFUN COPY-INTERVAL-LIMIT ...)
; x-compiling (DEFUN COPY-INTERVAL ...)
; x-compiling (DEFUN INTERVAL-SPLIT ...)
; x-compiling (DEFUN INTERVAL-CLOSURE ...)
; x-compiling (DEFUN INTERVAL-RANGE-INFO ...)
; x-compiling (DEFUN INTERVAL-BOUNDED-P ...)
; x-compiling (DEFUN INTERVAL-CONTAINS-P ...)
; x-compiling (DEFUN INTERVAL-INTERSECT-P ...)
; x-compiling (DEFUN INTERVAL-ADJACENT-P ...)
; x-compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...)
; x-compiling (DEFUN INTERVAL-MERGE-PAIR ...)
; x-compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...)
; x-compiling (DEFUN INTERVAL-NEG ...)
; x-compiling (DEFUN INTERVAL-ADD ...)
; x-compiling (DEFUN INTERVAL-SUB ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN INTERVAL-MUL
;     (SB!INT:BUG "excluded case in INTERVAL-MUL")
; ==>
;   "excluded case in INTERVAL-MUL"
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERVAL-MUL ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN INTERVAL-DIV
;     (SB!INT:BUG "excluded case in INTERVAL-DIV")
; ==>
;   "excluded case in INTERVAL-DIV"
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERVAL-DIV ...)
; x-compiling (DEFUN INTERVAL-FUNC ...)
; x-compiling (DEFUN INTERVAL-< ...)
; x-compiling (DEFUN INTERVAL->= ...)
; x-compiling (DEFUN INTERVAL-= ...)
; x-compiling (DEFUN INTERVAL-/= ...)
; x-compiling (DEFUN INTERVAL-ABS ...)
; x-compiling (DEFUN INTERVAL-SQR ...)
; x-compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...)
; x-compiling (DEFUN DERIVE-INTEGER-TYPE ...)
; x-compiling (DEFUN FLATTEN-LIST ...)
; x-compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...)
; x-compiling (DEFUN CONVERT-NUMERIC-TYPE ...)
; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...)
; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...)
; x-compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...)
; x-compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...)
; x-compiling (DEFUN CONVERT-MEMBER-TYPE ...)
; x-compiling (DEFUN ONE-ARG-DERIVE-TYPE ...)
; x-compiling (DEFUN TWO-ARG-DERIVE-TYPE ...)
; x-compiling (DEFUN +-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...)
; x-compiling (DEFUN --DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...)
; x-compiling (DEFUN *-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...)
; x-compiling (DEFUN /-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...)
; x-compiling (DEFUN ASH-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...)
; x-compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...)
; x-compiling (DEFUN ABS-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...)
; x-compiling (DEFUN REM-RESULT-TYPE ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT-AUX ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM-AUX ...)
; x-compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT ...)
; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT-AUX ...)
; x-compiling (DEFOPTIMIZER (FTRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFUN %UNARY-TRUNCATE-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/SINGLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/DOUBLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-FTRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-ROUND DERIVE-TYPE) ...)
; x-compiling (DEF FLOOR ...)
; x-compiling (DEF CEILING ...)
; x-compiling (DEF FFLOOR ...)
; x-compiling (DEF FCEILING ...)
; x-compiling (DEFUN FLOOR-QUOTIENT-BOUND ...)
; x-compiling (DEFUN FLOOR-REM-BOUND ...)
; x-compiling (DEFUN CEILING-QUOTIENT-BOUND ...)
; x-compiling (DEFUN CEILING-REM-BOUND ...)
; x-compiling (DEFUN TRUNCATE-QUOTIENT-BOUND ...)
; x-compiling (DEFUN TRUNCATE-REM-BOUND ...)
; x-compiling (DEFUN NUMERIC-RANGE-INFO ...)
; x-compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...)
; x-compiling (DEFUN RANDOM-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGCOUNT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...)
; x-compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LDB ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM DPB ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...)
; x-compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...)
; x-compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %LDB ...)
; x-compiling (DEFTRANSFORM %MASK-FIELD ...)
; x-compiling (DEFTRANSFORM %DPB ...)
; x-compiling (DEFTRANSFORM %DPB ...)
; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...)
; x-compiling (DEFUN %ASH/RIGHT ...)
; x-compiling (DEFTRANSFORM ASH ...)
; x-compiling (DEFTRANSFORM ASH ...)
; x-compiling (DEFTRANSFORM %ASH/RIGHT ...)
; x-compiling (DEFTRANSFORM %ASH/RIGHT ...)
; x-compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...)
; x-compiling (DEFUN CUT-TO-WIDTH ...)
; x-compiling (DEFUN BEST-MODULAR-VERSION ...)
; x-compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...)
; x-compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...)
; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...)
; x-compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...)
; x-compiling (DEFTRANSFORM BOOLE ...)
; x-compiling (DEFTRANSFORM * ...)
; x-compiling (DEFTRANSFORM FLOOR ...)
; x-compiling (DEFTRANSFORM CEILING ...)
; x-compiling (DEFTRANSFORM REM ...)
; x-compiling (DEFTRANSFORM MOD ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFTRANSFORM MOD ...)
; x-compiling (DEFTRANSFORM TRUNCATE ...)
; x-compiling (DEFTRANSFORM REM ...)
; x-compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...)
; x-compiling (DEFTRANSFORM TRUNCATE ...)
; x-compiling (DEF ASH ...)
; x-compiling (DEF LOGAND ...)
; x-compiling (DEF LOGAND ...)
; x-compiling (DEF LOGIOR ...)
; x-compiling (DEF LOGIOR ...)
; x-compiling (DEF LOGXOR ...)
; x-compiling (DEF LOGXOR ...)
; x-compiling (DEFUN LEAST-ZERO-BIT ...)
; x-compiling (DEFTRANSFORM LOGAND ...)
; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; x-compiling (DEFTRANSFORM LOGIOR ...)
; x-compiling (DEF LOGAND)
; x-compiling (DEF LOGIOR)
; x-compiling (DEF LOGXOR)
; x-compiling (DEF LOGTEST ...)
; x-compiling (DEF + ...)
; x-compiling (DEF + ...)
; x-compiling (DEF * ...)
; x-compiling (DEF * ...)
; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; x-compiling (DEFTRANSFORM - ...)
; x-compiling (DEFTRANSFORM * ...)
; x-compiling (DEFTRANSFORM %NEGATE ...)
; x-compiling (DEFTRANSFORM %NEGATE ...)
; x-compiling (DEFUN NOT-MORE-CONTAGIOUS ...)
; x-compiling (DEF!TYPE EXACT-NUMBER ...)
; x-compiling (DEFTRANSFORM + ...)
; x-compiling (DEFTRANSFORM - ...)
; x-compiling (DEF * ...)
; x-compiling (DEF / ...)
; x-compiling (DEF EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEF ASH)
; x-compiling (DEF /)
; x-compiling (DEF TRUNCATE)
; x-compiling (DEF ROUND)
; x-compiling (DEF FLOOR)
; x-compiling (DEF CEILING)
; x-compiling (DEF TRUNCATE)
; x-compiling (DEF ROUND)
; x-compiling (DEF FLOOR)
; x-compiling (DEF CEILING)
; x-compiling (DEF FTRUNCATE ...)
; x-compiling (DEF FROUND ...)
; x-compiling (DEF FFLOOR ...)
; x-compiling (DEF FCEILING ...)
; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; x-compiling (DEFTRANSFORM CHAR-UPCASE ...)
; x-compiling (DEFTRANSFORM CHAR-DOWNCASE ...)
; x-compiling (DEFUN SAME-LEAF-REF-P ...)
; x-compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...)
; x-compiling (DEF EQ)
; x-compiling (DEF CHAR=)
; x-compiling (DEF TWO-ARG-CHAR-EQUAL)
; x-compiling (DEFTRANSFORM EQL ...)
; x-compiling (DEFTRANSFORM EQUAL ...)
; x-compiling (DEFTRANSFORM EQUALP ...)
; x-compiling (DEFTRANSFORM = ...)
; x-compiling (DEFUN MAYBE-FLOAT-LVAR-P ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEF = ...)
; x-compiling (DEF /= ...)
; x-compiling (DEF < ...)
; x-compiling (DEF > ...)
; x-compiling (DEF <= ...)
; x-compiling (DEF >= ...)
; x-compiling (DEFUN IR1-TRANSFORM-CHAR< ...)
; x-compiling (DEFTRANSFORM CHAR< ...)
; x-compiling (DEFTRANSFORM CHAR> ...)
; x-compiling (DEFUN MULTI-COMPARE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM = ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM < ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM > ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM <= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM >= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MULTI-NOT-EQUAL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM /= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAX ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MIN ...)
; x-compiling (DEF < ...)
; x-compiling (DEF > ...)
; x-compiling (DEFTRANSFORM = ...)
; x-compiling (DEFTRANSFORM = ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ASSOCIATE-ARGS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN REDUCE-CONSTANTS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM + ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM * ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM GCD ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LCM ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE
;     (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;            (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;             &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (CASE (LENGTH SB!C::ARGS)
;         ((0 2) (VALUES NIL T))
;         (1 (SB!INT:QUASIQUOTE (# #)))
;         (T
;          (LET (#)
;            (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;          &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (CASE (LENGTH SB!C::ARGS)
;           ((0 2) (VALUES NIL T))
;           (1 (SB!INT:QUASIQUOTE #))
;           (T
;            (LET #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LIST &OPTIONAL (MEMBER T NIL)).
; x-compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM - ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM / ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM APPLY ...)
; x-compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...)
; x-compiling (DEFUN MARK-MORE-CONTEXT-USED ...)
; x-compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...)
; x-compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FAST-&REST-NTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ELT ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CADR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CADDR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-NULL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NOT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NULL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ENDP ...)
; x-compiling (DEFTRANSFORM %REST-VALUES ...)
; x-compiling (DEFTRANSFORM %REST-REF ...)
; x-compiling (DEFTRANSFORM %REST-LENGTH ...)
; x-compiling (DEFTRANSFORM %REST-NULL ...)
; x-compiling (DEFTRANSFORM %REST-TRUE ...)
; x-compiling (DEFUN CHECK-FORMAT-ARGS ...)
; x-compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFUN CONCATENATE-FORMAT-P ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM PATHNAME ...)
; x-compiling (DEFTRANSFORM PATHNAME ...)
; x-compiling (DEF ERROR)
; x-compiling (DEF WARN)
; x-compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFOPTIMIZER (COERCE DERIVE-TYPE)
;     (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE))))
;       (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT)))))
; 
; note: deleting unreachable code

;     (LISTP ELT)
; ==>
;   ELT
; 
; note: deleting unreachable code

;     (FIRST ELT)
; --> CAR 
; ==>
;   ELT
; 
; note: deleting unreachable code

;     (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE))))
;       (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT)))))
; 
; note: deleting unreachable code

;     (NUMBERP ELT)
; ==>
;   ELT
; 
; note: deleting unreachable code

;     (SB!KERNEL:CONS-TYPE-CDR-TYPE SB!KERNEL:CONS-TYPE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!KERNEL:CONS-TYPE
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-SIZE SB!KERNEL:CONS-TYPE)
; ==>
;   SB!KERNEL:CONS-TYPE
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!KERNEL:CONS-TYPE)
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-SIZE SB!KERNEL:CONS-TYPE)
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!KERNEL:CONS-TYPE)
; ==>
;   SB!KERNEL:CONS-TYPE
; 
; note: deleting unreachable code

;     (LET ((SB!C::C-TYPE (SB!C::UNCONSIFY-TYPE (SB!KERNEL:TYPE-SPECIFIER TYPE))))
;       (IF (SB!C::COERCEABLE-P SB!C::C-TYPE)
;           (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE)
;           SB!KERNEL:*UNIVERSAL-TYPE*))
; 
; note: deleting unreachable code

;     (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE)
; ==>
;   SB!C::C-TYPE
; 
; note: deleting unreachable code

;     (IF (SB!C::COERCEABLE-P SB!C::C-TYPE)
;         (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE)
;         SB!KERNEL:*UNIVERSAL-TYPE*)
; ==>
;   SB!KERNEL:*UNIVERSAL-TYPE*
; 
; note: deleting unreachable code
; x-compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...)
; x-compiling (DEFTRANSFORM SORT ...)
; x-compiling (DEFTRANSFORM STABLE-SORT ...)
; x-compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...)
; x-compiling (DEFTRANSFORM SLEEP ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFTRANSFORM FORMAT
;     (HANDLER-CASE
;      (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL))
;      (SB!FORMAT:FORMAT-ERROR NIL (SB!C::GIVE-UP-IR1-TRANSFORM)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

;     (HANDLER-CASE (SB!FORMAT::%FORMATTER SB!C::CONTROL SB!C::ARGC NIL)
;                   (SB!FORMAT:FORMAT-ERROR NIL
;                    (SB!INT:QUASIQUOTE
;                     (FORMATTER #S(SB!IMPL::COMMA :EXPR SB!C::CONTROL :KIND 0)))))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; in: DEFUN CHECK-FORMAT-ARGS
;     (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
;                   (SB!FORMAT:FORMAT-ERROR (SB!C::C)
;                    (SB!C:COMPILER-WARN "~A" SB!C::C)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; 
; caught STYLE-WARNING:
;   10 more uses of undefined type SB!FORMAT:FORMAT-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SB!FORMAT:FORMAT-ERROR
;   caught 6 STYLE-WARNING conditions
;   printed 16 notes
; x-compiling (DEFTRANSFORM SLEEP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/srctran.lisp-obj-tmp written
; compilation finished in 0:00:24.384
; compiling file "/«PKGBUILDDIR»/src/compiler/bitops-derive-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN INTEGER-TYPE-LENGTH ...)
; x-compiling (DECLAIM (INLINE ZEROES))
; x-compiling (DEFUN ZEROES ...)
; x-compiling (DECLAIM (INLINE ONES))
; x-compiling (DEFUN ONES ...)
; x-compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...)
; x-compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...)
; x-compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...)
; x-compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...)
; x-compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...)
; x-compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...)
; x-compiling (DEFFROB LOGAND)
; x-compiling (DEFFROB LOGIOR)
; x-compiling (DEFFROB LOGXOR)
; x-compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/bitops-derive-type.lisp-obj-tmp written
; compilation finished in 0:00:01.070
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...)
; x-compiling (DEFTRANSFORM ABS ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; x-compiling (DEFTRANSFORM DATA-VECTOR-REF ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; x-compiling (DEFTRANSFORM DATA-VECTOR-SET ...)
; x-compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...)
; x-compiling (DEF %ARRAY-DATA-VECTOR)
; x-compiling (DEF ARRAY-STORAGE-VECTOR)
; x-compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...)
; x-compiling (DEF BIT-AND ...)
; x-compiling (DEF BIT-IOR ...)
; x-compiling (DEF BIT-XOR ...)
; x-compiling (DEF BIT-EQV ...)
; x-compiling (DEF BIT-NAND ...)
; x-compiling (DEF BIT-NOR ...)
; x-compiling (DEF BIT-ANDC1 ...)
; x-compiling (DEF BIT-ANDC2 ...)
; x-compiling (DEF BIT-ORC1 ...)
; x-compiling (DEF BIT-ORC2 ...)
; x-compiling (DEFTRANSFORM BIT-NOT ...)
; x-compiling (DEFTRANSFORM BIT-VECTOR-= ...)
; x-compiling (DEFTRANSFORM COUNT ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM %BYTE-BLT ...)
; x-compiling (DEFTRANSFORM EQL ...)
; x-compiling (DEFTRANSFORM EQL ...)
; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...)
; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...)
; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...)
; x-compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...)
; x-compiling (DEF SB!VM::ASH-LEFT-MODFX ...)
; x-compiling (DEF SB!VM::ASH-LEFT-MOD32 ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-AND ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-OR ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...)
; x-compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...)
; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-tran.lisp-obj-tmp written
; compilation finished in 0:00:05.020
; compiling file "/«PKGBUILDDIR»/src/compiler/locall.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN PROPAGATE-TO-ARGS ...)
; x-compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...)
; x-compiling (DEFUN MERGE-TAIL-SETS ...)
; x-compiling (DEFUN CONVERT-CALL ...)
; x-compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...)
; x-compiling (DEFUN MAKE-XEP ...)
; x-compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...)
; x-compiling (DEFUN REFERENCE-ENTRY-POINT ...)
; x-compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...)
; x-compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...)
; x-compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...)
; x-compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...)
; x-compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...)
; x-compiling (DEFUN CONVERT-MV-CALL ...)
; x-compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...)
; x-compiling (DEFUN WARN-INVALID-LOCAL-CALL ...)
; x-compiling (DEFUN CONVERT-LAMBDA-CALL ...)
; x-compiling (DEFUN CONVERT-HAIRY-CALL ...)
; x-compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...)
; x-compiling (DEFUN CONVERT-MORE-CALL ...)
; x-compiling (DEFUN INSERT-LET-BODY ...)
; x-compiling (DEFUN DEPART-FROM-TAIL-SET ...)
; x-compiling (DEFUN MERGE-LETS ...)
; x-compiling (DEFUN MOVE-RETURN-USES ...)
; x-compiling (DEFUN UNCONVERT-TAIL-CALLS ...)
; x-compiling (DEFUN MOVE-RETURN-STUFF ...)
; x-compiling (DEFUN LET-CONVERT ...)
; x-compiling (DEFUN REOPTIMIZE-CALL ...)
; x-compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...)
; x-compiling (DEFUN OK-INITIAL-CONVERT-P ...)
; x-compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...)
; x-compiling (DEFUN MAYBE-LET-CONVERT ...)
; x-compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...)
; x-compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...)
; x-compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/locall.lisp-obj-tmp written
; compilation finished in 0:00:04.530
; compiling file "/«PKGBUILDDIR»/src/compiler/dfo.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-DFO ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN JOIN-COMPONENTS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-DFO-AUX ...)
; x-compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...)
; x-compiling (DEFUN FIND-INITIAL-DFO-AUX ...)
; x-compiling (DEFUN FIND-REFERENCE-FUNS ...)
; x-compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...)
; x-compiling (DEFUN HAS-XEP-OR-NLX ...)
; x-compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...)
; x-compiling (DEFUN FIND-INITIAL-DFO ...)
; x-compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/dfo.lisp-obj-tmp written
; compilation finished in 0:00:02.044
; compiling file "/«PKGBUILDDIR»/src/compiler/dce.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN LAMBDA-EXTERNALLY-REFERENCED-P ...)
; x-compiling (DEFUN DCE-ANALYZE-REF ...)
; x-compiling (DEFUN DCE-ANALYZE-BLOCK ...)
; x-compiling (DEFUN DCE-ANALYZE-ONE-FUN ...)
; x-compiling (DEFUN ELIMINATE-DEAD-CODE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/dce.lisp-obj-tmp written
; compilation finished in 0:00:00.267
; compiling file "/«PKGBUILDDIR»/src/compiler/checkgen.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FUN-GUESSED-COST ...)
; x-compiling (DEFUN TYPE-TEST-COST ...)
; x-compiling (DEFUN WEAKEN-INTEGER-TYPE ...)
; x-compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...)
; x-compiling (DEFUN WEAKEN-VALUES-TYPE ...)
; x-compiling (DEFUN MAYBE-WEAKEN-CHECK ...)
; x-compiling (DEFUN NO-FUN-VALUES-TYPES ...)
; x-compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...)
; x-compiling (DEFUN MAYBE-NEGATE-CHECK ...)
; x-compiling (DEFUN CAST-CHECK-TYPES ...)
; x-compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...)
; x-compiling (DEFUN PROBABLE-TYPE-CHECK-P ...)
; x-compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...)
; x-compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...)
; x-compiling (DEFUN MAKE-TYPE-CHECK-FORM ...)
; x-compiling (DEFUN CONVERT-TYPE-CHECK ...)
; x-compiling (DEFUN CAST-CHECK-USES ...)
; x-compiling (DEFUN GENERATE-TYPE-CHECKS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/checkgen.lisp-obj-tmp written
; compilation finished in 0:00:02.854
; compiling file "/«PKGBUILDDIR»/src/compiler/constraint.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; x-compiling (DEFTYPE CONSTRAINT-Y ...)
; x-compiling (DEFSTRUCT (CONSTRAINT # ...) ...)
; x-compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER))
; x-compiling (DEFUN %CONSTRAINT-NUMBER ...)
; x-compiling (DEFSTRUCT (CONSET # ...) ...)
; x-compiling (DEFUN CONSET-EMPTY ...)
; x-compiling (DEFUN COPY-CONSET ...)
; x-compiling (DEFUN %CONSET-GROW ...)
; x-compiling (DECLAIM (INLINE CONSET-GROW))
; x-compiling (DEFUN CONSET-GROW ...)
; x-compiling (DEFUN CONSET-MEMBER ...)
; x-compiling (DEFUN CONSET-ADJOIN ...)
; x-compiling (DEFUN CONSET= ...)
; x-compiling (DEFCONSETOP CONSET-UNION ...)
; x-compiling (DEFCONSETOP CONSET-INTERSECTION ...)
; x-compiling (DEFCONSETOP CONSET-DIFFERENCE ...)
; x-compiling (DEFUN FIND-CONSTRAINT ...)
; x-compiling (DEFUN REGISTER-CONSTRAINT ...)
; x-compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...)
; x-compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...)
; x-compiling (DEFMACRO DO-EQL-VARS ...)
; x-compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...)
; x-compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...)
; x-compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...))
; x-compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...)
; x-compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...)
; x-compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...))
; x-compiling (DEFUN CONSET-ADD-CONSTRAINT ...)
; x-compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...)
; x-compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR))
; x-compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...)
; x-compiling (DEFUN INHERIT-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...)
; x-compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR))
; x-compiling (DEFUN OK-REF-LAMBDA-VAR ...)
; x-compiling (DEFUN OK-LVAR-LAMBDA-VAR ...)
; x-compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT))
; x-compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...)
; x-compiling (DEFUN ADD-TEST-CONSTRAINT ...)
; x-compiling (DECLAIM (INLINE QUICK-ADD-COMPLEMENT-CONSTRAINTS))
; x-compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...)
; x-compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-TEST-CONSTRAINTS ...)
; x-compiling (DEFUN INTEGER-TYPE-P ...)
; x-compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...)
; x-compiling (DEFUN FLOAT-TYPE-P ...)
; x-compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...)
; x-compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...)
; x-compiling (DEFUN CONSTRAIN-REF-TYPE ...)
; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...)
; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...)
; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...)
; x-compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...)
; x-compiling (DEFUN USE-RESULT-CONSTRAINTS ...)
; x-compiling (DEFUN INIT-VAR-CONSTRAINTS ...)
; x-compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...)
; x-compiling (DEFUN COMPUTE-BLOCK-IN ...)
; x-compiling (DEFUN UPDATE-BLOCK-IN ...)
; x-compiling (DEFUN LEADING-COMPONENT-BLOCKS ...)
; x-compiling (DEFUN NCONC-NEW ...)
; x-compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...)
; x-compiling (DEFUN CONSTRAINT-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/constraint.lisp-obj-tmp written
; compilation finished in 0:00:07.722
; compiling file "/«PKGBUILDDIR»/src/compiler/physenvanal.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN PHYSENV-ANALYZE ...)
; x-compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...)
; x-compiling (DEFUN GET-LAMBDA-PHYSENV ...)
; x-compiling (DEFUN REINIT-LAMBDA-PHYSENV ...)
; x-compiling (DEFUN GET-NODE-PHYSENV ...)
; x-compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...)
; x-compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...)
; x-compiling (DEFUN XEP-ALLOCATOR ...)
; x-compiling (DEFUN CLOSE-OVER ...)
; x-compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...)
; x-compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*)

; file: /«PKGBUILDDIR»/src/compiler/physenvanal.lisp
; in: DEFUN FUNCTIONAL-MAY-ESCAPE-P
;     (WHEN SB!C::LVAR (SB!C::LVAR-DEST SB!C::LVAR))
; --> IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a NODE:
;     NIL
; x-compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...)
; x-compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...)
; x-compiling (DEFUN INSERT-NLX-ENTRY-STUB ...)
; x-compiling (DEFUN NOTE-NON-LOCAL-EXIT ...)
; x-compiling (DEFUN FIND-NON-LOCAL-EXITS ...)
; x-compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...)
; x-compiling (DEFUN EMIT-CLEANUPS ...)
; x-compiling (DEFUN FIND-CLEANUP-POINTS ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN TAIL-ANNOTATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/physenvanal.lisp-obj-tmp written
; compilation finished in 0:00:01.856
; compiling file "/«PKGBUILDDIR»/src/compiler/tn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; x-compiling (DEFMACRO DO-PACKED-TNS ...)
; x-compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...)
; x-compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...)
; x-compiling (DEFUN DELETE-UNREFERENCED-TNS ...)
; x-compiling (DEFUN MAKE-NORMAL-TN ...)
; x-compiling (DEFUN MAKE-REPRESENTATION-TN ...)
; x-compiling (DEFUN MAKE-WIRED-TN ...)
; x-compiling (DEFUN MAKE-RESTRICTED-TN ...)
; x-compiling (DEFUN PHYSENV-LIVE-TN ...)
; x-compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...)
; x-compiling (DEFUN COMPONENT-LIVE-TN ...)
; x-compiling (DEFUN SPECIFY-SAVE-TN ...)
; x-compiling (DEFUN MAKE-CONSTANT-TN ...)
; x-compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...)
; x-compiling (DEFUN MAKE-ALIAS-TN ...)
; x-compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...)
; x-compiling (DEFUN REFERENCE-TN ...)
; x-compiling (DEFUN REFERENCE-TN-LIST ...)
; x-compiling (DEFUN DELETE-TN-REF ...)
; x-compiling (DEFUN CHANGE-TN-REF-TN ...)
; x-compiling (DEFUN EMIT-MOVE-TEMPLATE ...)
; x-compiling (DEFUN EMIT-LOAD-TEMPLATE ...)
; x-compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...)
; x-compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...)
; x-compiling (DEFUN BLOCK-LABEL ...)
; x-compiling (DEFUN BLOCK-TRAMPOLINE ...)
; x-compiling (DEFUN DROP-THRU-P ...)
; x-compiling (DEFUN REGISTER-DROP-THRU ...)
; x-compiling (DEFUN INSERT-VOP ...)
; x-compiling (DEFUN EMIT-AND-INSERT-VOP ...)
; x-compiling (DEFUN DELETE-VOP ...)
; x-compiling (DEFUN MAKE-N-TNS ...)
; x-compiling (DEFUN LOCATION= ...)
; x-compiling (DEFUN TN-VALUE ...)
; x-compiling (DEFUN IMMEDIATE-TN-P ...)
; x-compiling (DEFUN FORCE-TN-TO-STACK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/tn.lisp-obj-tmp written
; compilation finished in 0:00:05.431
; compiling file "/«PKGBUILDDIR»/src/compiler/life.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN ADD-GLOBAL-CONFLICT ...)
; x-compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...)
; x-compiling (DEFUN RESET-CURRENT-CONFLICT ...)
; x-compiling (DEFUN CACHED-BLOCK-PHYSENV ...)
; x-compiling (DEFUN CONVERT-TO-GLOBAL ...)
; x-compiling (DEFUN FIND-LOCAL-REFERENCES ...)
; x-compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...)
; x-compiling (DEFEVENT SPLIT-IR2-BLOCK ...)
; x-compiling (DEFUN SPLIT-IR2-BLOCKS ...)
; x-compiling (DEFUN CLEAR-LIFETIME-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/life.lisp
; in: DEFUN COALESCE-MORE-LTN-NUMBERS
;     (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN
;                    (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY
;                    #'SB!C::GLOBAL-CONFLICTS-TN)
; 
; note: deleting unreachable code
; x-compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...)
; x-compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...)
; x-compiling (DEFUN LIFETIME-PRE-PASS ...)
; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...)
; x-compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...)
; x-compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...)
; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...)
; x-compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...)
; x-compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...)
; x-compiling (DEFUN PROPAGATE-LIVE-TNS ...)
; x-compiling (DEFPARAMETER *MAX-FAST-PROPAGATE-LIVE-TN-PASSES* ...)
; x-compiling (DEFUN LIFETIME-FLOW-ANALYSIS ...)
; x-compiling (DEFUN NOTE-CONFLICTS ...)
; x-compiling (DEFUN COMPUTE-SAVE-SET ...)
; x-compiling (DEFUN SAVED-AFTER-READ ...)
; x-compiling (DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE ...)
; x-compiling (DEFUN COMPUTE-INITIAL-CONFLICTS ...)
; x-compiling (DEFUN CONFLICTIZE-SAVE-P-VOP ...)
; x-compiling (DEFMACRO FROB-MORE-TNS ...)
; x-compiling (DEFMACRO SCAN-VOP-REFS ...)
; x-compiling (DEFMACRO ENSURE-RESULTS-LIVE ...)
; x-compiling (DEFUN CONFLICT-ANALYZE-1-BLOCK ...)
; x-compiling (DEFUN LIFETIME-POST-PASS ...)
; x-compiling (DEFUN MERGE-ALIAS-BLOCK-CONFLICTS ...)
; x-compiling (DEFUN CHANGE-GLOBAL-CONFLICTS-TN ...)
; x-compiling (DEFUN ENSURE-GLOBAL-TN ...)
; x-compiling (DEFUN MERGE-ALIAS-CONFLICTS ...)
; x-compiling (DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...)
; x-compiling (DEFUN LIFETIME-ANALYZE ...)
; x-compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...)
; x-compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN TNS-CONFLICT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/life.lisp-obj-tmp written
; compilation finished in 0:00:05.398
; compiling file "/«PKGBUILDDIR»/src/compiler/debug-dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFTYPE BYTE-BUFFER ...)
; x-compiling (DEFVAR *BYTE-BUFFER*)
; x-compiling (DECLAIM (TYPE BYTE-BUFFER ...))
; x-compiling (DEFTYPE LOCATION-KIND ...)
; x-compiling (DEFSTRUCT (LOCATION-INFO # ...) ...)
; x-compiling (DEFUN NOTE-DEBUG-LOCATION ...)
; x-compiling (DECLAIM (INLINE IR2-BLOCK-PHYSENV))
; x-compiling (DEFUN IR2-BLOCK-PHYSENV ...)
; x-compiling (DEFUN LEAF-VISIBLE-TO-DEBUGGER-P ...)
; x-compiling (DEFUN COMPUTE-LIVE-VARS ...)
; x-compiling (DEFVAR *PREVIOUS-LOCATION*)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN DUMP-1-LOCATION ...)
; x-compiling (DEFUN DUMP-LOCATION-FROM-INFO ...)
; x-compiling (DEFUN FIND-TLF-NUMBER ...)
; x-compiling (DEFUN DUMP-BLOCK-LOCATIONS ...)
; x-compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...)
; x-compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...)
; x-compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...)
; x-compiling (DEFUN TN-SC-OFFSET ...)
; x-compiling (DEFUN LAMBDA-ANCESTOR-P ...)
; x-compiling (DEFUN DUMP-1-VAR ...)
; x-compiling (DEFUN COMPUTE-VARS ...)
; x-compiling (DEFUN COMPUTE-MINIMAL-VARS ...)
; x-compiling (DEFUN DEBUG-LOCATION-FOR ...)
; x-compiling (DEFUN COMPUTE-ARGS ...)
; x-compiling (DEFUN COMPUTE-DEBUG-RETURNS ...)
; x-compiling (DEFUN DFUN-FROM-FUN ...)

; file: /«PKGBUILDDIR»/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-1-DEBUG-FUN
;     (MAX SB!C::ACTUAL-LEVEL 2)
; --> LET 
; ==>
;   SB!C::ACTUAL-LEVEL
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPUTE-1-DEBUG-FUN ...)
; x-compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...)
; x-compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/debug-dump.lisp-obj-tmp written
; compilation finished in 0:00:04.153
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/utils.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN FIXNUMIZE ...)
; x-compiling (DEFUN STATIC-SYMBOL-P ...)
; x-compiling (DEFUN STATIC-SYMBOL-OFFSET ...)
; x-compiling (DEFUN OFFSET-STATIC-SYMBOL ...)
; x-compiling (DEFUN STATIC-FDEFN-OFFSET ...)
; x-compiling (DEFUN STATIC-FUN-OFFSET ...)
; x-compiling (DEFVAR *ADJUSTABLE-VECTORS* ...)
; x-compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/utils.lisp-obj-tmp written
; compilation finished in 0:00:00.279
; compiling file "/«PKGBUILDDIR»/src/compiler/fopcompile.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/fopcompile.lisp
; in:
;      FLET ((SETQ-FOPCOMPILABLE-P (ARGS) (LOOP FOR (NAME VALUE) ON ARGS ...))
;        (COLD-SVSET-FOPCOMPILABLE-P (ARGS)
;         (DESTRUCTURING-BIND (THING INDEX VALUE) ARGS (AND # # # #))))
;     (FLET ((SB!C::SETQ-FOPCOMPILABLE-P (SB!C::ARGS)
;              (LOOP SB!C::FOR (SB!C::NAME
;                               SB!C::VALUE) SB!C::ON SB!C::ARGS SB!C::BY #'CDDR
;                    SB!C::ALWAYS (AND # # #)))
;            (SB!C::COLD-SVSET-FOPCOMPILABLE-P (SB!C::ARGS)
;              (DESTRUCTURING-BIND
;                  (SB!C::THING SB!INT:INDEX SB!C::VALUE)
;                  SB!C::ARGS
;                (AND # # # #))))
;       (DEFUN SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM &OPTIONAL (SB!C::EXPAND T))
;         (FLET ((SB!C::EXPAND #
;                  #)
;                (SB!C::EXPAND-CM #
;                  #))
;           (OR (AND # #) (AND # #) (AND # # # #)))))
; ==>
;   (FLET ((SB!C::SETQ-FOPCOMPILABLE-P (SB!C::ARGS)
;            (LOOP SB!C::FOR (SB!C::NAME
;                             SB!C::VALUE) SB!C::ON SB!C::ARGS SB!C::BY #'CDDR
;                  SB!C::ALWAYS (AND # # #)))
;          (SB!C::COLD-SVSET-FOPCOMPILABLE-P (SB!C::ARGS)
;            (DESTRUCTURING-BIND
;                (SB!C::THING SB!INT:INDEX SB!C::VALUE)
;                SB!C::ARGS
;              (AND # # # #))))
;     (DEFUN SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM &OPTIONAL (SB!C::EXPAND T))
;       (FLET ((SB!C::EXPAND #
;                #)
;              (SB!C::EXPAND-CM #
;                #))
;         (OR (AND # #) (AND # #) (AND # # # #)))))
; 
; note: deleting unused function
;   (FLET COLD-SVSET-FOPCOMPILABLE-P :IN "SYS:SRC;COLD;COMPILE-COLD-SBCL.LISP")
; x-compiling (FLET (# #) ...)
; x-compiling (DEFUN LET-FOPCOMPILABLE-P ...)
; x-compiling (DEFUN LAMBDA-FORM-P ...)
; x-compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...)
; x-compiling (DEFUN FOPCOMPILE ...)
; x-compiling (DEFUN FOPCOMPILE-FUNCTION ...)
; x-compiling (DEFUN FOPCOMPILE-IF ...)
; x-compiling (DEFUN FOPCOMPILE-CONSTANT ...)
; x-compiling (DEFUN CANONICAL-INSTANCE-MAKER-FORM-P ...)
; x-compiling (DEFUN FOPCOMPILE-ALLOCATE-INSTANCE ...)
; x-compiling (DEFUN TRIVIAL-LOAD-FORM-INITFORM-ARGS ...)

; file: /«PKGBUILDDIR»/src/compiler/fopcompile.lisp
; in: DEFUN CONSTANT-FOPCOMPILABLE-P
;     (SB-XC:MAKE-LOAD-FORM SB!C::VALUE (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MAKE-LOAD-FORM
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:MAKE-LOAD-FORM
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN FOPCOMPILE-CONSTANT-INIT-FORMS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fopcompile.lisp-obj-tmp written
; compilation finished in 0:00:01.915
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/assembly/
; compiling file "/«PKGBUILDDIR»/src/assembly/assemfile.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...)
; x-compiling (DEFVAR *ENTRY-POINTS* ...)
; x-compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...)
; x-compiling (DEFUN ASSEMBLE-FILE ...)
; x-compiling (DEFSTRUCT (REG-SPEC #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN REG-SPEC-SC ...)
; x-compiling (DEFUN PARSE-REG-SPEC ...)
; x-compiling (DEFUN EMIT-ASSEMBLE ...)
; x-compiling (DEFUN ARG-OR-RES-SPEC ...)
; x-compiling (DEFUN EMIT-ASSEMBLE-VOP ...)
; x-compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/assemfile.lisp-obj-tmp written
; compilation finished in 0:00:01.625
; compiling file "/«PKGBUILDDIR»/src/compiler/late-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NOTE-THIS-LOCATION ...)
; x-compiling (DEFUN NOTE-NEXT-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/late-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00.093
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP
;     (DEFSTRUCT
;         (SB!C:FIXUP
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP
;           (SB!C::NAME SB!C::FLAVOR &OPTIONAL SB!C::OFFSET))
;          (:COPIER NIL))
;       SB!C::NAME
;       SB!C::FLAVOR
;       SB!C::OFFSET)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C:FIXUP {54F81961}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NAME and SB!C:FIXUP-FLAVOR could not be
;   inlined because the structure definition for SB!C:FIXUP was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (FIXUP # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP-NOTE
;     (DEFSTRUCT
;         (SB!C::FIXUP-NOTE
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP-NOTE (SB!C::KIND SB!C:FIXUP POSITION))
;          (:COPIER NIL))
;       SB!C::KIND
;       SB!C:FIXUP
;       POSITION)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C::FIXUP-NOTE {550EE129}>
;    '#(#<SB!KERNEL:LAYOUT for T {5222AA69}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {5229CA39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NOTE-KIND, SB!C:FIXUP-NOTE-FIXUP and
;   SB!C:FIXUP-NOTE-POSITION could not be inlined because the structure definition
;   for SB!C::FIXUP-NOTE was not yet seen. To avoid this warning, DEFSTRUCT should
;   precede references to the affected functions, or they must be declared locally
;   notinline at each call site.
; x-compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...)
; x-compiling (DEFVAR *FIXUP-NOTES*)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN NOTE-FIXUP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fixup.lisp-obj-tmp written
; compilation finished in 0:00:00.431
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/insts.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...)
; x-compiling (DEFPARAMETER *CONDITIONS* ...)
; x-compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...)
; x-compiling (SETF *ASSEM-SCHEDULER-P* ...)
; x-compiling (DEFUN CONDITIONAL-OPCODE ...)
; x-compiling (DEFUN MAYBE-ADD-NOTES ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-CONDITION
;     (DEFUN SB!VM::PRINT-CONDITION (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (UNLESS (= SB!VM::VALUE 14)
;         (PRINC (AREF SB!VM::*CONDITION-NAME-VEC* SB!VM::VALUE) STREAM)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-CONDITION in DEFUN
; x-compiling (DEFUN PRINT-CONDITION ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-REG
;     (DEFUN SB!VM::PRINT-REG (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (PRINC (AREF SB!VM::*REGISTER-NAMES* SB!VM::VALUE) STREAM))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-REG in DEFUN
; x-compiling (DEFUN PRINT-REG ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-SHIFT-TYPE
;     (DEFUN SB!VM::PRINT-SHIFT-TYPE (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (PRINC (AREF #(SB!VM::LSL SB!VM::LSR SB!VM::ASR SB!VM::ROR) SB!VM::VALUE)
;              STREAM))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-SHIFT-TYPE in DEFUN
; x-compiling (DEFUN PRINT-SHIFT-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-IMMEDIATE-SHIFT
;     (DEFUN SB!VM::PRINT-IMMEDIATE-SHIFT (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (TYPE (CONS FIXNUM (CONS FIXNUM NULL)) SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (DESTRUCTURING-BIND
;           (SB!VM::AMOUNT SB!VM::SHIFT)
;           SB!VM::VALUE
;         (COND ((AND # #)) ((AND # #) (PRINC ", RRX" STREAM))
;               (T (PRINC ", " STREAM) (PRINC # STREAM) (PRINC " #" STREAM)
;                (PRINC SB!VM::AMOUNT STREAM)))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-IMMEDIATE-SHIFT in DEFUN
; x-compiling (DEFUN PRINT-IMMEDIATE-SHIFT ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-SHIFTER-IMMEDIATE
;     (DEFUN SB!VM::PRINT-SHIFTER-IMMEDIATE (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE))
;       (SB!VM::MAYBE-ADD-NOTES SB!VM::DSTATE)
;       (LET* ((SB!VM::ROTATE (SB-XC:LDB # SB!VM::VALUE))
;              (SB!VM::IMMEDIATE (SB-XC:MASK-FIELD # SB!VM::VALUE))
;              (SB!VM::LEFT (SB-XC:MASK-FIELD # #))
;              (SB!VM::RIGHT (ASH SB!VM::IMMEDIATE #)))
;         (PRINC (LOGIOR SB!VM::LEFT SB!VM::RIGHT) STREAM)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-SHIFTER-IMMEDIATE in DEFUN
; x-compiling (DEFUN PRINT-SHIFTER-IMMEDIATE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN USE-LABEL-RELATIVE-LABEL
;     (DEFUN SB!VM::USE-LABEL-RELATIVE-LABEL (SB!VM::VALUE SB!VM::DSTATE)
;       (DECLARE (TYPE (SIGNED-BYTE 24) SB!VM::VALUE)
;                (TYPE SB!DISASSEM:DISASSEM-STATE SB!VM::DSTATE))
;       (+ 8 (ASH SB!VM::VALUE 2) (SB!DISASSEM:DSTATE-CUR-ADDR SB!VM::DSTATE)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::USE-LABEL-RELATIVE-LABEL in DEFUN
; x-compiling (DEFUN USE-LABEL-RELATIVE-LABEL ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-LOAD/STORE-IMMEDIATE
;     (DEFUN SB!VM::PRINT-LOAD/STORE-IMMEDIATE (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (TYPE (CONS BIT (CONS BIT #)) SB!VM::VALUE))
;       (SB!VM::MAYBE-ADD-NOTES SB!VM::DSTATE)
;       (DESTRUCTURING-BIND
;           (SB!VM::P SB!VM::U SB!VM::W SB!VM::OFFSET)
;           SB!VM::VALUE
;         (IF (ZEROP SB!VM::OFFSET)
;             (PRINC "]" STREAM)
;             (PROGN
;              (PRINC # STREAM)
;              (WHEN # #)
;              (PRINC SB!VM::OFFSET STREAM)
;              (UNLESS # #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-LOAD/STORE-IMMEDIATE in DEFUN
; x-compiling (DEFUN PRINT-LOAD/STORE-IMMEDIATE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-LOAD/STORE-REGISTER
;     (DEFUN SB!VM::PRINT-LOAD/STORE-REGISTER (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DESTRUCTURING-BIND
;           (SB!VM::P SB!VM::U SB!VM::W SB!VM::SHIFT-IMM SB!VM::SHIFT SB!VM::RM)
;           SB!VM::VALUE
;         (WHEN (ZEROP SB!VM::P) (PRINC "]" STREAM))
;         (PRINC
;          (IF (ZEROP SB!VM::U)
;              ", -"
;              ", ")
;          STREAM)
;         (SB!VM::PRINT-REG SB!VM::RM STREAM SB!VM::DSTATE)
;         (SB!VM::PRINT-IMMEDIATE-SHIFT (LIST SB!VM::SHIFT-IMM SB!VM::SHIFT) STREAM
;                                       SB!VM::DSTATE)
;         (UNLESS (ZEROP SB!VM::P)
;           (PRINC
;            (IF #
;                "]"
;                "]!")
;            STREAM))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-LOAD/STORE-REGISTER in DEFUN
; x-compiling (DEFUN PRINT-LOAD/STORE-REGISTER ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-MSR-FIELD-MASK
;     (DEFUN SB!VM::PRINT-MSR-FIELD-MASK (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (TYPE (CONS BIT (CONS # NULL)) SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (DESTRUCTURING-BIND
;           (SB!VM::SPSR-P SB!VM::FIELD-MASK)
;           SB!VM::VALUE
;         (IF (ZEROP SB!VM::SPSR-P)
;             (PRINC "CPSR_" STREAM)
;             (PRINC "SPSR_" STREAM))
;         (WHEN (LOGBITP 0 SB!VM::FIELD-MASK) (PRINC "c" STREAM))
;         (WHEN (LOGBITP 1 SB!VM::FIELD-MASK) (PRINC "x" STREAM))
;         (WHEN (LOGBITP 2 SB!VM::FIELD-MASK) (PRINC "s" STREAM))
;         (WHEN (LOGBITP 3 SB!VM::FIELD-MASK) (PRINC "f" STREAM))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-MSR-FIELD-MASK in DEFUN
; x-compiling (DEFUN PRINT-MSR-FIELD-MASK ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFT-TYPE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMMEDIATE-SHIFT ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFTER-IMMEDIATE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE RELATIVE-LABEL ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-IMMEDIATE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-REGISTER ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE
;     (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::DEBUG-TRAP-CODE :PREFILTER
;                                  (LAMBDA (SB!VM::VALUE SB!VM::DSTATE)
;                                    (DECLARE (IGNORE SB!VM::VALUE))
;                                    (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)))
; --> PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE)
;     (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES*
;             (DELETE 'SB!VM::DEBUG-TRAP-CODE SB!DISASSEM::*DISASSEM-ARG-TYPES*
;                     :KEY #'SB!DISASSEM::ARG-NAME))
;     (PUSH
;      (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::DEBUG-TRAP-CODE)
;                               NIL :PREFILTER
;                               (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #)
;                                                         'SB!VM::*DEBUG-TRAP-CODE-PREFILTER-WRAPPER*))
;      SB!DISASSEM::*DISASSEM-ARG-TYPES*))
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE MSR-FIELD-MASK ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-REGISTER 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-REGISTER 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SWI 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DEBUG-TRAP 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-REGISTER 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DZSM 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DNSM 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DDSM 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH-EXCHANGE 32 ...) ...)
; x-compiling (DEFUN SNARF-ERROR-JUNK ...)
; x-compiling (DEFUN DEBUG-TRAP-CONTROL ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...)
; x-compiling (DEFUN REGISTER-P ...)
; x-compiling (DEFMACRO WITH-CONDITION-DEFAULTED ...)
; x-compiling (DEFINE-INSTRUCTION BYTE ...)
; x-compiling (DEFINE-INSTRUCTION WORD ...)
; x-compiling (DEFUN EMIT-HEADER-DATA ...)
; x-compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...)
; x-compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...)
; x-compiling (DEFSTRUCT SHIFTER-OPERAND ...)
; x-compiling (DEFUN LSL ...)
; x-compiling (DEFUN LSR ...)
; x-compiling (DEFUN ASR ...)
; x-compiling (DEFUN ROR ...)
; x-compiling (DEFUN RRX ...)
; x-compiling (DEFINE-CONDITION CANNOT-ENCODE-IMMEDIATE-OPERAND ...)
; x-compiling (DEFUN ENCODABLE-IMMEDIATE ...)
; x-compiling (DEFUN ENCODE-SHIFTER-IMMEDIATE ...)
; x-compiling (DEFUN ENCODE-SHIFTER-OPERAND ...)
; x-compiling (DEFMACRO COMPOSITE-IMMEDIATE-INSTRUCTION ...)
; x-compiling (DEFSTRUCT MEMORY-OPERAND ...)
; x-compiling (DEFUN %@ ...)
; x-compiling (DEFMACRO @ ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-DP-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-DATA-PROCESSING-INSTRUCTION ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION AND ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ANDS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EOR ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EORS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUB ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUBS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSB ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSBS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADD ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADDS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADCS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBCS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSCS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORR ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORRS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BIC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BICS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TST ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TEQ ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMP ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMN ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOV ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOVS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVN ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVNS ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-SWI-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION SWI ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BKPT-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION BKPT ...)
; x-compiling (DEFINE-INSTRUCTION DEBUG-TRAP ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-CLZ-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION CLZ ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-INSTRUCTION ...)
; x-compiling (DEFUN EMIT-BRANCH-BACK-PATCH ...)
; x-compiling (DEFINE-INSTRUCTION B ...)
; x-compiling (DEFINE-INSTRUCTION BL ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-EXCHANGE-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION BX ...)
; x-compiling (DEFINE-INSTRUCTION BLX ...)
; x-compiling (DEFUN EMIT-SEMAPHORE-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION SWP ...)
; x-compiling (DEFINE-INSTRUCTION SWPB ...)
; x-compiling (DEFINE-INSTRUCTION MRS ...)
; x-compiling (DEFUN ENCODE-STATUS-REGISTER-FIELDS ...)
; x-compiling (DEFMACRO CPSR ...)
; x-compiling (DEFMACRO SPSR ...)
; x-compiling (DEFINE-INSTRUCTION MSR ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-MULTIPLY-INSTRUCTION ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MUL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MULS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MLA ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MLAS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMULL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMULLS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMLAL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMLALS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULLS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWT ...)
; x-compiling (DEFUN EMIT-LOAD/STORE-INSTRUCTION ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION LDR ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION LDRB ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION STR ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION STRB ...)
; x-compiling (DEFUN EMIT-MISC-LOAD/STORE-INSTRUCTION ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRH ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRD ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRD ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRH ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSB ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSH ...)
; x-compiling (DEFINE-INSTRUCTION COMPUTE-CODE ...)
; x-compiling (DEFINE-INSTRUCTION COMPUTE-LRA ...)
; x-compiling (DEFINE-INSTRUCTION LOAD-FROM-LABEL ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-DP-INSTRUCTION ...)
; x-compiling (DEFUN LOW-BIT-FLOAT-REG ...)
; x-compiling (DEFUN HIGH-BITS-FLOAT-REG ...)
; x-compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMAC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMAC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMSC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMSC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMUL ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMUL ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FADD ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FSUB ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FDIV ...)
; x-compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCPY ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FABS ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FNEG ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSQRT ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMP ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPE ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPEZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FUITO ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSITO ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUI ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUIZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSI ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSIZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTDS ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTSD ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-LS-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMS ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMS ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMD ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMD ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMX ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMX ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-DOUBLE ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-DOUBLE ...)
; x-compiling (DEFMACRO DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTS ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDS ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTD ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDD ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-SRT-INSTRUCTION ...)
; x-compiling (DEFUN SYSTEM-REG-ENCODING ...)
; x-compiling (DEFMACRO DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMSR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRS ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDLR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDL ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDHR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDH ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMXR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRX ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-TRT-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION ...)
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMSRR ...)
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRS ...)
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMDRR ...)
; 
; compilation unit finished
;   caught 10 STYLE-WARNING conditions
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/insts.lisp-obj-tmp written
; compilation finished in 0:00:45.071
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFMACRO MOVE ...)
; x-compiling (DEF SINGLE ...)
; x-compiling (DEF DOUBLE ...)
; x-compiling (DEF LOADW ...)
; x-compiling (DEF STOREW ...)
; x-compiling (DEFMACRO LOAD-SYMBOL ...)
; x-compiling (DEFMACRO LOAD-SYMBOL-VALUE ...)
; x-compiling (DEFMACRO STORE-SYMBOL-VALUE ...)
; x-compiling (DEFMACRO LOAD-TYPE ...)
; x-compiling (DEFMACRO LOAD-CSP ...)
; x-compiling (DEFMACRO STORE-CSP ...)
; x-compiling (DEFMACRO LISP-JUMP ...)
; x-compiling (DEFMACRO LISP-RETURN ...)
; x-compiling (DEFMACRO EMIT-RETURN-PC ...)
; x-compiling (DEFUN LOAD-STACK-OFFSET ...)
; x-compiling (DEFMACRO LOAD-STACK-TN ...)
; x-compiling (DEFUN STORE-STACK-OFFSET ...)
; x-compiling (DEFMACRO STORE-STACK-TN ...)
; x-compiling (DEFMACRO MAYBE-LOAD-STACK-TN ...)
; x-compiling (DEFUN ALLOCATION-TRAMP ...)
; x-compiling (DEFMACRO ALLOCATION ...)
; x-compiling (DEFMACRO WITH-FIXED-ALLOCATION ...)
; x-compiling (DEFUN EMIT-ERROR-BREAK ...)
; x-compiling (DEFUN ERROR-CALL ...)
; x-compiling (DEFUN GENERATE-ERROR-CODE ...)
; x-compiling (DEFMACRO PSEUDO-ATOMIC ...)
; x-compiling (DEFMACRO DEFINE-FULL-REFFER ...)
; x-compiling (DEFMACRO DEFINE-FULL-SETTER ...)
; x-compiling (DEFMACRO DEFINE-PARTIAL-REFFER ...)
; x-compiling (DEFMACRO DEFINE-PARTIAL-SETTER ...)
; x-compiling (DEF!MACRO WITH-PINNED-OBJECTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/macros.lisp-obj-tmp written
; compilation finished in 0:00:07.468
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")

; file: /«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp
; in: DEFPARAMETER *IMMEDIATE-TYPES*
;     (LIST SB!VM:SINGLE-FLOAT-WIDETAG)
; --> CONS 
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code
; x-compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...)
; x-compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...)
; x-compiling (DEFUN CANONICALIZE-HEADERS ...)
; x-compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp
; in: DEFMACRO TEST-TYPE
;     (- SB!VM:SINGLE-FLOAT-WIDETAG 4)
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code

;     (+ SB!VM:SINGLE-FLOAT-WIDETAG 4)
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code

;     (REMOVE SB!VM:SINGLE-FLOAT-WIDETAG SB!VM::*IMMEDIATE-TYPES*)
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code

;     (AND (= SB!VM:N-WORD-BITS 64) SB!VM::IMMEDIATES SB!VM::HEADERS)
; --> IF AND IF 
; ==>
;   SB!VM::IMMEDIATES
; 
; note: deleting unreachable code

; --> IF AND IF AND THE 
; ==>
;   SB!VM::HEADERS
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
; x-compiling (DEFMACRO TEST-TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:00.417
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/support.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN GENERATE-CALL-SEQUENCE ...)
; x-compiling (DEFUN GENERATE-RETURN-SEQUENCE ...)
; x-compiling (DEFUN RETURN-MACHINE-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/support.lisp-obj-tmp written
; compilation finished in 0:00:00.102
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/move.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN LOWEST-SET-BIT-INDEX ...)
; x-compiling (DEFUN REPEATING-PATTERN-P ...)
; x-compiling (DEFUN LOAD-REPEATING-PATTERN ...)
; x-compiling (DEFUN LOAD-IMMEDIATE-WORD ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5) ...)
; x-compiling (DEFINE-VOP (MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE ...)
; x-compiling (PRIMITIVE-TYPE-VOP MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (ILLEGAL-MOVE) ...)
; x-compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...)
; x-compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...)
; x-compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...)
; x-compiling (DEFINE-VOP (WORD-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP WORD-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-WORD-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/move.lisp-obj-tmp written
; compilation finished in 0:00:05.222
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/float.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 1) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-SINGLE 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...)
; x-compiling (FROB SINGLE-MOVE ...)
; x-compiling (FROB DOUBLE-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-FLOAT) ...)
; x-compiling (FROB MOVE-FROM-SINGLE ...)
; x-compiling (FROB MOVE-FROM-DOUBLE ...)
; x-compiling (FROB MOVE-TO-SINGLE ...)
; x-compiling (FROB MOVE-TO-DOUBLE ...)
; x-compiling (FROB MOVE-SINGLE-FLOAT-ARG ...)
; x-compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...)
; x-compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...)
; x-compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...)
; x-compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...)
; x-compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 4) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 4) ...)
; x-compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...)
; x-compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...)
; x-compiling (DEFINE-VOP (MOVE-TO-COMPLEX-SINGLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-VOP (MOVE-TO-COMPLEX-DOUBLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-DOUBLE ...)
; x-compiling (DEFINE-VOP (MOVE-COMPLEX-SINGLE-FLOAT-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-SINGLE-FLOAT-ARG ...)
; x-compiling (DEFINE-VOP (MOVE-COMPLEX-DOUBLE-FLOAT-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (FLOAT-OP) ...)
; x-compiling (FROB SINGLE-FLOAT-OP ...)
; x-compiling (FROB DOUBLE-FLOAT-OP ...)
; x-compiling (FROB + ...)
; x-compiling (FROB - ...)
; x-compiling (FROB * ...)
; x-compiling (FROB / ...)
; x-compiling (FROB ABS/SINGLE-FLOAT ...)
; x-compiling (FROB ABS/DOUBLE-FLOAT ...)
; x-compiling (FROB %NEGATE/SINGLE-FLOAT ...)
; x-compiling (FROB %NEGATE/DOUBLE-FLOAT ...)
; x-compiling (DEFINE-VOP (FSQRTD) ...)
; x-compiling (DEFINE-VOP (FSQRTS) ...)
; x-compiling (DEFINE-VOP (FLOAT-COMPARE) ...)
; x-compiling (FROB SINGLE-FLOAT-COMPARE ...)
; x-compiling (FROB DOUBLE-FLOAT-COMPARE ...)
; x-compiling (FROB < ...)
; x-compiling (FROB > ...)
; x-compiling (FROB = ...)
; x-compiling (DEFINE-VOP (FLOAT-COMPARE-ZERO) ...)
; x-compiling (FROB SINGLE-FLOAT-COMPARE-ZERO ...)
; x-compiling (FROB DOUBLE-FLOAT-COMPARE-ZERO ...)
; x-compiling (FROB < ...)
; x-compiling (FROB > ...)
; x-compiling (FROB = ...)
; x-compiling (FROB %SINGLE-FLOAT/SIGNED ...)
; x-compiling (FROB %DOUBLE-FLOAT/SIGNED ...)
; x-compiling (FROB %SINGLE-FLOAT/UNSIGNED ...)
; x-compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...)
; x-compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...)
; x-compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...)
; x-compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; x-compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; x-compiling (FROB %UNARY-ROUND ...)
; x-compiling (FROB %UNARY-ROUND ...)
; x-compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...)
; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...)
; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-MODES ...)
; x-compiling (DEFKNOWN FLOATING-POINT-MODES ...)
; x-compiling (DEFKNOWN (#) ...)
; x-compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...)
; x-compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...)
; x-compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (COMPLEX-SINGLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (COMPLEX-DOUBLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/float.lisp-obj-tmp written
; compilation finished in 0:00:17.003
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/sap.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (MOVE-TO-SAP) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-SAP) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...)
; x-compiling (DEFINE-VOP (SAP-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP SAP-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-SAP-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (SAP-INT) ...)
; x-compiling (DEFINE-VOP (INT-SAP) ...)
; x-compiling (DEFINE-VOP (POINTER+) ...)
; x-compiling (DEFINE-VOP (POINTER+-UNSIGNED-C) ...)
; x-compiling (DEFINE-VOP (POINTER+-SIGNED-C) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/sap.lisp
; in:
;      MACROLET ((DEF-SYSTEM-REF-AND-SET (REF-NAME SET-NAME SC TYPE SIZE ...)
;             (LET (# #)
;               (QUASIQUOTE #))))
;     (MACROLET ((SB!VM::DEF-SYSTEM-REF-AND-SET
;                    (SB!VM::REF-NAME SB!VM::SET-NAME SB!C:SC TYPE SB!VM::SIZE
;                     &KEY SB!ALIEN:SIGNED SB!VM::USE-LIP)
;                  (LET (# #)
;                    (SB!INT:QUASIQUOTE #))))
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-8 SB!KERNEL:%SET-SAP-REF-8
;        SB!VM::UNSIGNED-REG SB!VM::POSITIVE-FIXNUM :BYTE :SIGNED NIL)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SIGNED-SAP-REF-8
;        SB!KERNEL:%SET-SIGNED-SAP-REF-8 SB!VM::SIGNED-REG SB!VM::TAGGED-NUM :BYTE
;        :SIGNED T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-16 SB!KERNEL:%SET-SAP-REF-16
;        SB!VM::UNSIGNED-REG SB!VM::POSITIVE-FIXNUM :SHORT :SIGNED NIL)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SIGNED-SAP-REF-16
;        SB!KERNEL:%SET-SIGNED-SAP-REF-16 SB!VM::SIGNED-REG SB!VM::TAGGED-NUM
;        :SHORT :SIGNED T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-32 SB!KERNEL:%SET-SAP-REF-32
;        SB!VM::UNSIGNED-REG SB!VM::UNSIGNED-NUM :LONG :SIGNED NIL)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SIGNED-SAP-REF-32
;        SB!KERNEL:%SET-SIGNED-SAP-REF-32 SB!VM::SIGNED-REG SB!VM::SIGNED-NUM :LONG
;        :SIGNED T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-SAP
;        SB!KERNEL:%SET-SAP-REF-SAP SB!VM::SAP-REG SB!SYS:SYSTEM-AREA-POINTER
;        :LONG)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-LISPOBJ
;        SB!KERNEL:%SET-SAP-REF-LISPOBJ SB!VM::DESCRIPTOR-REG * :LONG)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-SINGLE
;        SB!KERNEL:%SET-SAP-REF-SINGLE SB!VM::SINGLE-REG SINGLE-FLOAT :SINGLE
;        :USE-LIP T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-DOUBLE
;        SB!KERNEL:%SET-SAP-REF-DOUBLE SB!VM::DOUBLE-REG DOUBLE-FLOAT :DOUBLE
;        :USE-LIP T))
; 
; caught STYLE-WARNING:
;   The variable REF-NAME-C is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SET-NAME-C is defined but never used.
; x-compiling (DEFINE-VOP (POINTER-) ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-8 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-LISPOBJ ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SINGLE ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-DOUBLE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFINE-VOP (VECTOR-SAP) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/sap.lisp-obj-tmp written
; compilation finished in 0:00:07.965
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/system.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (LOWTAG-OF) ...)
; x-compiling (DEFINE-VOP (WIDETAG-OF) ...)
; x-compiling (DEFINE-VOP (FUN-SUBTYPE) ...)
; x-compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...)
; x-compiling (DEFINE-VOP (GET-HEADER-DATA) ...)
; x-compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...)
; x-compiling (DEFINE-VOP (SET-HEADER-DATA) ...)
; x-compiling (DEFINE-VOP (POINTER-HASH) ...)
; x-compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...)
; x-compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...)
; x-compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...)
; x-compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...)
; x-compiling (DEFINE-VOP (COMPUTE-FUN) ...)
; x-compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...)
; x-compiling (DEFINE-VOP (SYMBOL-PLIST) ...)
; x-compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...)
; x-compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...)
; x-compiling (DEFINE-VOP (HALT) ...)
; x-compiling (DEFINE-VOP (SPIN-LOOP-HINT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/system.lisp-obj-tmp written
; compilation finished in 0:00:02.909
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/char.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...)
; x-compiling (DEFINE-VOP (CHARACTER-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (CHAR-CODE) ...)
; x-compiling (DEFINE-VOP (CODE-CHAR) ...)
; x-compiling (DEFINE-VOP (CHARACTER-COMPARE) ...)
; x-compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...)
; x-compiling (DEFINE-VOP (FAST-CHAR>/CHARACTER CHARACTER-COMPARE) ...)
; x-compiling (DEFINE-VOP (FAST-CHAR</CHARACTER CHARACTER-COMPARE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/char.lisp-obj-tmp written
; compilation finished in 0:00:04.831
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/memory.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (CELL-REF) ...)
; x-compiling (DEFINE-VOP (CELL-SET) ...)
; x-compiling (DEFINE-VOP (SLOT-REF) ...)
; x-compiling (DEFINE-VOP (SLOT-SET) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/memory.lisp-obj-tmp written
; compilation finished in 0:00:00.793
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in: DEFUN STATIC-FUN-TEMPLATE-NAME
;     (DEFUN SB!VM::STATIC-FUN-TEMPLATE-NAME (SB!VM::NUM-ARGS SB!VM::NUM-RESULTS)
;       (INTERN
;        (FORMAT NIL "~:@(~R-arg-~R-result-static-fun~)" SB!VM::NUM-ARGS
;                SB!VM::NUM-RESULTS)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::STATIC-FUN-TEMPLATE-NAME in DEFUN
; x-compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in: DEFUN MOVES
;     (DEFUN SB!VM::MOVES (SB!VM::DST SB!VM::SRC)
;       (SB!INT:COLLECT ((SB!VM::MOVES))
;         (DO ((SB!VM::DST SB!VM::DST #)
;              (SB!VM::SRC SB!VM::SRC #))
;             ((OR # #))
;           (SB!VM::MOVES (SB!INT:QUASIQUOTE #)))
;         (SB!VM::MOVES)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::MOVES in DEFUN
; x-compiling (DEFUN MOVES ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in: DEFUN STATIC-FUN-TEMPLATE-VOP
;     (DEFUN SB!VM::STATIC-FUN-TEMPLATE-VOP (SB!VM::NUM-ARGS SB!VM::NUM-RESULTS)
;       (UNLESS
;           (AND (<= SB!VM::NUM-ARGS SB!VM::REGISTER-ARG-COUNT)
;                (<= SB!VM::NUM-RESULTS SB!VM::REGISTER-ARG-COUNT))
;         (ERROR "either too many args (~W) or too many results (~W); max = ~W"
;                SB!VM::NUM-ARGS SB!VM::NUM-RESULTS SB!VM::REGISTER-ARG-COUNT))
;       (LET ((SB!VM::NUM-TEMPS (MAX SB!VM::NUM-ARGS SB!VM::NUM-RESULTS)))
;         (SB!INT:COLLECT ((SB!VM::TEMP-NAMES) (SB!VM::TEMPS) (SB!VM::ARG-NAMES)
;                          (SB!VM::ARGS) (SB!VM::RESULT-NAMES) (SB!VM::RESULTS))
;           (DOTIMES (SB!VM::I SB!VM::NUM-RESULTS)
;             (LET #
;               #
;               #))
;           (DOTIMES (SB!VM::I SB!VM::NUM-TEMPS)
;             (LET #
;               #
;               #))
;           (DOTIMES (SB!VM::I SB!VM::NUM-ARGS)
;             (LET #
;               #
;               #))
;           (SB!INT:QUASIQUOTE
;            (SB!C:DEFINE-VOP #
;              #
;              #
;              #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::STATIC-FUN-TEMPLATE-VOP in DEFUN
; x-compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...)
; x-compiling (FROB 1 ...)
; x-compiling (FROB 2 ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFMACRO DEFINE-STATIC-FUN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/static-fn.lisp-obj-tmp written
; compilation finished in 0:00:02.107
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/arith.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FIXNUM-UNOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (SIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (UNSIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-NEGATE/UNSIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGNOT/FIXNUM SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFMACRO DEFINE-BINOP ...)
; x-compiling (DEFINE-BINOP + ...)
; x-compiling (DEFINE-BINOP - ...)
; x-compiling (DEFINE-BINOP LOGAND ...)
; x-compiling (DEFINE-BINOP LOGANDC1 ...)
; x-compiling (DEFINE-BINOP LOGANDC2 ...)
; x-compiling (DEFINE-BINOP LOGIOR ...)
; x-compiling (DEFINE-BINOP LOGXOR ...)
; x-compiling (DEFINE-VOP (FAST-LOGIOR-UNSIGNED-SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGIOR-SIGNED-UNSIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...)
; x-compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SIGNED-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGNOR/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-RIGHT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/SIGNED=>SIGNED FAST-ASH-C/SIGNED=>SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH/SIGNED/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; x-compiling (DEF FAST-ASH-LEFT/FIXNUM=>FIXNUM ...)
; x-compiling (DEF FAST-ASH-LEFT/SIGNED=>SIGNED ...)
; x-compiling (DEF FAST-ASH-LEFT/UNSIGNED=>UNSIGNED ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...)
; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...)
; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...)
; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...)
; x-compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...)
; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...)
; x-compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...)
; x-compiling (DEFINE-VOP (LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-MODULAR-BACKEND + ...)
; x-compiling (DEFINE-MODULAR-BACKEND - ...)
; x-compiling (DEFINE-MODULAR-BACKEND *)
; x-compiling (DEFINE-MODULAR-BACKEND LOGANDC1)
; x-compiling (DEFINE-MODULAR-BACKEND LOGANDC2)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; x-compiling (DEFMACRO DEFINE-CONDITIONAL-VOP ...)
; x-compiling (DEFINE-CONDITIONAL-VOP < ...)
; x-compiling (DEFINE-CONDITIONAL-VOP > ...)
; x-compiling (DEFINE-CONDITIONAL-VOP EQL ...)
; x-compiling (DEFINE-VOP (FAST-EQL/FIXNUM) ...)
; x-compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM) ...)
; x-compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...)
; x-compiling (DEFINE-LOGTEST-VOPS)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...)
; x-compiling (DEFKNOWN %LOGBITP ...)
; x-compiling (DEFUN %LOGBITP ...)
; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNUM-FIXNUM FIXNUM-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNUM-SIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNUM-UNSIGNED UNSIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (MASK-SIGNED-FIELD-WORD/C) ...)
; x-compiling (DEFINE-VOP (MASK-SIGNED-FIELD-BIGNUM/C) ...)
; x-compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...)
; x-compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...)
; x-compiling (DEFINE-FULL-REFFER BIGNUM-REF ...)
; x-compiling (DEFINE-FULL-SETTER BIGNUM-SET ...)
; x-compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...)
; x-compiling (DEFINE-VOP (ADD-W/CARRY) ...)
; x-compiling (DEFINE-VOP (SUB-W/BORROW) ...)
; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...)
; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...)
; x-compiling (DEFINE-VOP (BIGNUM-MULT) ...)
; x-compiling (DEFINE-VOP (MULHI) ...)
; x-compiling (DEFINE-VOP (MULHI/FX) ...)
; x-compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (BIGNUM-FLOOR) ...)
; x-compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...)
; x-compiling (DEFINE-VOP (DIGIT-ASHR) ...)
; x-compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...)
; x-compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-+ ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-- ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-* ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-< ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-> ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-= ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-EQV ...)
; x-compiling (DEFINE-STATIC-FUN EQL ...)
; x-compiling (DEFINE-STATIC-FUN %NEGATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/arith.lisp-obj-tmp written
; compilation finished in 0:00:31.220
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN %TEST-FIXNUM ...)
; x-compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...)
; x-compiling (DEFUN %TEST-IMMEDIATE ...)
; x-compiling (DEFUN %TEST-LOWTAG ...)
; x-compiling (DEFUN %TEST-HEADERS ...)
; x-compiling (DEFINE-VOP (CHECK-TYPE) ...)
; x-compiling (DEFINE-VOP (TYPE-PREDICATE) ...)
; x-compiling (DEFUN COST-TO-TEST-TYPES ...)
; x-compiling (DEFMACRO !DEFINE-TYPE-VOPS ...)
; x-compiling (DEFUN SIGNED-BYTE-32-TEST ...)
; x-compiling (DEFINE-VOP (SIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-32 CHECK-TYPE) ...)
; x-compiling (DEFUN UNSIGNED-BYTE-32-TEST ...)
; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-32 CHECK-TYPE) ...)
; x-compiling (DEFUN POWER-OF-TWO-LIMIT-P ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM) ...)
; x-compiling (DEFUN ENCODABLE-IMMEDIATE+1 ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM+1) ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...)
; x-compiling (DEFUN ENCODABLE-IMMEDIATE/+1 ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*-IMM) ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...)
; x-compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...)
; x-compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/type-vops.lisp-obj-tmp written
; compilation finished in 0:00:03.732
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/subprim.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (LENGTH/LIST) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/subprim.lisp-obj-tmp written
; compilation finished in 0:00:00.254
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (DEBUG-CUR-SP) ...)
; x-compiling (DEFINE-VOP (DEBUG-CUR-FP) ...)
; x-compiling (DEFINE-VOP (READ-CONTROL-STACK) ...)
; x-compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...)
; x-compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...)
; x-compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...)
; x-compiling (DEFINE-VOP (CODE-FROM-FUN CODE-FROM-MUMBLE) ...)
; x-compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...)
; x-compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...)
; x-compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/debug.lisp-obj-tmp written
; compilation finished in 0:00:01.733
; compiling file "/«PKGBUILDDIR»/src/compiler/early-aliencomp.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %ALIEN-FUNCALL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:00.028
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/c-call.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFCONSTANT +NUMBER-STACK-ALIGNMENT-MASK+ ...)
; x-compiling (DEFCONSTANT +MAX-REGISTER-ARGS+ ...)
; x-compiling (DEFUN MY-MAKE-WIRED-TN ...)
; x-compiling (DEFSTRUCT ARG-STATE ...)
; x-compiling (DEFSTRUCT (RESULT-STATE #) ...)
; x-compiling (DEFUN RESULT-REG-OFFSET ...)
; x-compiling (DEFUN REGISTER-ARGS-OFFSET ...)
; x-compiling (DEFUN INT-ARG ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...)
; x-compiling (DEFUN MAKE-CALL-OUT-TNS ...)
; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...)
; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...)
; x-compiling (DEFINE-VOP (CALL-OUT) ...)
; x-compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...)
; x-compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...)
; x-compiling (DEFTRANSFORM %ALIEN-FUNCALL ...)
; x-compiling (DEFUN ALIEN-CALLBACK-ACCESSOR-FORM ...)
; x-compiling (DEFUN ALIEN-CALLBACK-ASSEMBLER-WRAPPER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/c-call.lisp-obj-tmp written
; compilation finished in 0:00:03.342
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/cell.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (SLOT) ...)
; x-compiling (DEFINE-VOP (SET-SLOT) ...)
; x-compiling (DEFINE-VOP (INIT-SLOT SET-SLOT))
; x-compiling (DEFINE-VOP (SET CELL-SET) ...)
; x-compiling (DEFINE-VOP (CHECKED-CELL-REF) ...)
; x-compiling (DEFINE-VOP (SYMBOL-VALUE CHECKED-CELL-REF) ...)
; x-compiling (DEFINE-VOP (BOUNDP-FROB) ...)
; x-compiling (DEFINE-VOP (BOUNDP BOUNDP-FROB) ...)
; x-compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...)
; x-compiling (DEFINE-VOP (SYMBOL-HASH) ...)
; x-compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE SET))
; x-compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE SYMBOL-VALUE) ...)
; x-compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE FAST-SYMBOL-VALUE) ...)
; x-compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...)
; x-compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...)
; x-compiling (DEFINE-VOP (SET-FDEFN-FUN) ...)
; x-compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...)
; x-compiling (DEFINE-VOP (BIND) ...)
; x-compiling (DEFINE-VOP (UNBIND) ...)
; x-compiling (DEFINE-VOP (UNBIND-TO-HERE) ...)
; x-compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...)
; x-compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...)
; x-compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...)
; x-compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...)
; x-compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...)
; x-compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...)
; x-compiling (DEFINE-VOP (INSTANCE-LENGTH) ...)
; x-compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...)
; x-compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...)
; x-compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...)
; x-compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS WORD ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS SINGLE ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS DOUBLE ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-SINGLE ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-DOUBLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/cell.lisp-obj-tmp written
; compilation finished in 0:00:07.922
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/values.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (RESET-STACK-POINTER) ...)
; x-compiling (DEFINE-VOP (%%NIP-VALUES) ...)
; x-compiling (DEFINE-VOP (PUSH-VALUES) ...)
; x-compiling (DEFINE-VOP (VALUES-LIST) ...)
; x-compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/values.lisp-obj-tmp written
; compilation finished in 0:00:01.598
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/alloc.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (LIST-OR-LIST*) ...)
; x-compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...)
; x-compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...)
; x-compiling (DEFINE-VOP (MAKE-FDEFN) ...)
; x-compiling (DEFINE-VOP (MAKE-CLOSURE) ...)
; x-compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...)
; x-compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...)
; x-compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...)
; x-compiling (DEFINE-VOP (FIXED-ALLOC) ...)
; x-compiling (DEFINE-VOP (VAR-ALLOC) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/alloc.lisp-obj-tmp written
; compilation finished in 0:00:03.978
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/call.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN STANDARD-ARG-LOCATION ...)
; x-compiling (DEFUN STANDARD-ARG-LOCATION-SC ...)
; x-compiling (DEFCONSTANT ARG-COUNT-SC ...)
; x-compiling (DEFCONSTANT CLOSURE-SC ...)
; x-compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...)
; x-compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...)
; x-compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...)
; x-compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...)
; x-compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...)
; x-compiling (DEFUN MAKE-NFP-TN ...)
; x-compiling (DEFUN MAKE-STACK-POINTER-TN ...)
; x-compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...)
; x-compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...)
; x-compiling (DEFUN SELECT-COMPONENT-FORMAT ...)
; x-compiling (DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ...)
; x-compiling (DEFINE-VOP (CURRENT-FP) ...)
; x-compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...)
; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...)
; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...)
; x-compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...)
; x-compiling (DEFINE-VOP (XEP-SETUP-SP) ...)
; x-compiling (DEFINE-VOP (ALLOCATE-FRAME) ...)
; x-compiling (DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME) ...)
; x-compiling (DEFUN DEFAULT-UNKNOWN-VALUES ...)
; x-compiling (DEFUN RECEIVE-UNKNOWN-VALUES ...)
; x-compiling (DEFINE-VOP (UNKNOWN-VALUES-RECEIVER) ...)
; x-compiling (DEFUN EMIT-BLOCK-HEADER ...)
; x-compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...)
; x-compiling (DEFINE-VOP (COPY-MORE-ARG) ...)
; x-compiling (DEFINE-FULL-REFFER MORE-ARG ...)
; x-compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...)
; x-compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...)
; x-compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...)
; x-compiling (FROB ARG-COUNT-ERROR ...)
; x-compiling (FROB TYPE-CHECK-ERROR ...)
; x-compiling (FROB LAYOUT-INVALID-ERROR ...)
; x-compiling (FROB ODD-KEY-ARGS-ERROR ...)
; x-compiling (FROB UNKNOWN-KEY-ARG-ERROR ...)
; x-compiling (FROB NIL-FUN-RETURNED-ERROR ...)
; x-compiling (DEFINE-VOP (CALL-LOCAL) ...)
; x-compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...)
; x-compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...)
; x-compiling (DEFINE-VOP (KNOWN-RETURN) ...)
; x-compiling (DEFMACRO DEFINE-FULL-CALL ...)
; x-compiling (DEFINE-FULL-CALL CALL ...)
; x-compiling (DEFINE-FULL-CALL CALL-NAMED ...)
; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...)
; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...)
; x-compiling (DEFINE-FULL-CALL TAIL-CALL ...)
; x-compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...)
; x-compiling (DEFINE-FULL-CALL CALL-VARIABLE ...)
; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...)
; x-compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...)
; x-compiling (DEFINE-VOP (RETURN-SINGLE) ...)
; x-compiling (DEFINE-VOP (RETURN) ...)
; x-compiling (DEFINE-VOP (RETURN-MULTIPLE) ...)
; x-compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/call.lisp-obj-tmp written
; compilation finished in 0:00:12.667
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN MAKE-NLX-SP-TN ...)
; x-compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...)
; x-compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...)
; x-compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...)
; x-compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...)
; x-compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...)
; x-compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...)
; x-compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...)
; x-compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...)
; x-compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...)
; x-compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...)
; x-compiling (DEFINE-VOP (NLX-ENTRY) ...)
; x-compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...)
; x-compiling (DEFINE-VOP (UWP-ENTRY) ...)
; x-compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/nlx.lisp-obj-tmp written
; compilation finished in 0:00:02.859
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/late-nlx.lisp-obj-tmp written
; compilation finished in 0:00:00.051
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/show.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (PRINT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/show.lisp-obj-tmp written
; compilation finished in 0:00:00.325
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/array.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...)
; x-compiling (DEFINE-VOP (MAKE-ARRAY-HEADER/C) ...)
; x-compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...)
; x-compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...)
; x-compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...)
; x-compiling (DEFINE-VOP (CHECK-BOUND) ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...)
; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...)
; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...)
; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...)
; x-compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/array.lisp-obj-tmp written
; compilation finished in 0:00:15.261
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/type-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; x-compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/type-error.lisp-obj-tmp written
; compilation finished in 0:00:01.101
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/pred.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (BRANCH) ...)
; x-compiling (DEFINE-VOP (BRANCH-IF) ...)
; x-compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...)
; x-compiling (DEFINE-VOP (IF-EQ) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/pred.lisp-obj-tmp written
; compilation finished in 0:00:00.436
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (!DEFINE-TYPE-VOPS FIXNUMP ...)
; x-compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...)
; x-compiling (!DEFINE-TYPE-VOPS LISTP ...)
; x-compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...)
; x-compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS BIGNUMP ...)
; x-compiling (!DEFINE-TYPE-VOPS RATIOP ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEXP ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...)
; x-compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS)
; x-compiling (DEF)
; x-compiling (!DEFINE-TYPE-VOPS CHARACTERP ...)
; x-compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS LRA-P ...)
; x-compiling (!DEFINE-TYPE-VOPS FDEFN-P ...)
; x-compiling (!DEFINE-TYPE-VOPS CLOSUREP ...)
; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...)
; x-compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...)
; x-compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS STRINGP ...)
; x-compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...)
; x-compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...)
; x-compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...)
; x-compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...)
; x-compiling (!DEFINE-TYPE-VOPS VECTORP ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...)
; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...)
; x-compiling (!DEFINE-TYPE-VOPS ARRAYP ...)
; x-compiling (!DEFINE-TYPE-VOPS NUMBERP ...)
; x-compiling (!DEFINE-TYPE-VOPS RATIONALP ...)
; x-compiling (!DEFINE-TYPE-VOPS INTEGERP ...)
; x-compiling (!DEFINE-TYPE-VOPS FLOATP ...)
; x-compiling (!DEFINE-TYPE-VOPS REALP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:19.660
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/assem-rtns.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...)
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/assem-rtns.lisp-obj-tmp written
; compilation finished in 0:00:00.653
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/array.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-HEAP # ...) ...)
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-STACK # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/array.lisp-obj-tmp written
; compilation finished in 0:00:01.318
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/arith.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (SIGNED-TRUNCATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/arith.lisp-obj-tmp written
; compilation finished in 0:00:00.392
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/alloc.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00.022
RETURN-MULTIPLE assembled
TAIL-CALL-VARIABLE assembled
THROW assembled
UNWIND assembled
ALLOCATE-VECTOR-ON-HEAP assembled
ALLOCATE-VECTOR-ON-STACK assembled
SIGNED-TRUNCATE assembled
; compiling file "/«PKGBUILDDIR»/src/compiler/pseudo-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...)
; x-compiling (DEFINE-VOP (MOVE-OPERAND) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/pseudo-vops.lisp-obj-tmp written
; compilation finished in 0:00:00.219
; compiling file "/«PKGBUILDDIR»/src/compiler/aliencomp.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %SAP-ALIEN ...)
; x-compiling (DEFKNOWN ALIEN-SAP ...)
; x-compiling (DEFKNOWN SLOT ...)
; x-compiling (DEFKNOWN %SET-SLOT ...)
; x-compiling (DEFKNOWN %SLOT-ADDR ...)
; x-compiling (DEFKNOWN DEREF ...)
; x-compiling (DEFKNOWN %SET-DEREF ...)
; x-compiling (DEFKNOWN %DEREF-ADDR ...)
; x-compiling (DEFKNOWN %HEAP-ALIEN ...)
; x-compiling (DEFKNOWN %SET-HEAP-ALIEN ...)
; x-compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...)
; x-compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...)
; x-compiling (DEFKNOWN LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; x-compiling (DEFKNOWN %SET-LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...)
; x-compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN %CAST ...)
; x-compiling (DEFKNOWN NATURALIZE ...)
; x-compiling (DEFKNOWN DEPORT ...)
; x-compiling (DEFKNOWN DEPORT-ALLOC ...)
; x-compiling (DEFKNOWN %ALIEN-VALUE ...)
; x-compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...)
; x-compiling (DEFKNOWN ALIEN-FUNCALL ...)
; x-compiling (DEFTRANSFORM SLOT ...)
; x-compiling (DEFTRANSFORM %SET-SLOT ...)
; x-compiling (DEFTRANSFORM %SLOT-ADDR ...)
; x-compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...)
; x-compiling (DEFTRANSFORM SLOT ...)
; x-compiling (DEFTRANSFORM %SET-SLOT ...)
; x-compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %SLOT-ADDR ...)

; file: /«PKGBUILDDIR»/src/compiler/aliencomp.lisp
; in: DEFUN FIND-DEREF-ALIEN-TYPE
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; note: deleting unreachable code
; x-compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...)
; x-compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...)
; x-compiling (DEFUN COMPUTE-DEREF-GUTS ...)
; x-compiling (DEFTRANSFORM DEREF ...)
; x-compiling (DEFTRANSFORM %SET-DEREF ...)
; x-compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %DEREF-ADDR ...)
; x-compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...)
; x-compiling (DEFTRANSFORM %HEAP-ALIEN ...)
; x-compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...)
; x-compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...)
; x-compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...)
; x-compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...)
; x-compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...)
; x-compiling (DEFTRANSFORM LOCAL-ALIEN ...)
; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; x-compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...)
; x-compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...)
; x-compiling (DEFTRANSFORM DISPOSE-LOCAL-ALIEN ...)
; x-compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %CAST ...)
; x-compiling (DEFTRANSFORM ALIEN-SAP ...)
; x-compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %SAP-ALIEN ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...)
; x-compiling (DEFTRANSFORM / ...)
; x-compiling (DEFTRANSFORM ASH ...)
; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; x-compiling (DEFVAR *SAVED-FP-AND-PCS* ...)
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (DEFUN FIND-SAVED-FP-AND-PC ...)
; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:03.599
; compiling file "/«PKGBUILDDIR»/src/compiler/ltv.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %LOAD-TIME-VALUE ...)
; x-compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...)
; x-compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ltv.lisp-obj-tmp written
; compilation finished in 0:00:00.336
; compiling file "/«PKGBUILDDIR»/src/compiler/gtn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN GTN-ANALYZE ...)

; file: /«PKGBUILDDIR»/src/compiler/gtn.lisp
; in: DEFUN ASSIGN-LAMBDA-VAR-TNS
;     (SECOND SB!C::PTYPE-INFO)
; --> CADR CAR CDR 
; ==>
;   SB!C::PTYPE-INFO
; 
; note: deleting unreachable code
; x-compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...)
; x-compiling (DEFUN ASSIGN-IR2-PHYSENV ...)
; x-compiling (DEFUN USE-STANDARD-RETURNS ...)
; x-compiling (DEFUN RETURN-VALUE-EFFICIENCY-NOTE ...)
; x-compiling (DEFUN RETURN-INFO-FOR-SET ...)
; x-compiling (DEFUN ASSIGN-RETURN-LOCATIONS ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN ASSIGN-IR2-NLX-INFO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/gtn.lisp-obj-tmp written
; compilation finished in 0:00:00.696
; compiling file "/«PKGBUILDDIR»/src/compiler/ltn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NODE-LTN-POLICY ...)
; x-compiling (DEFUN LTN-POLICY-SAFE-P ...)
; x-compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...)
; x-compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...)
; x-compiling (DECLAIM (INLINE LVAR-PTYPE))
; x-compiling (DEFUN LVAR-PTYPE ...)
; x-compiling (DEFUN LVAR-DELAYED-LEAF ...)
; x-compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...)
; x-compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...)
; x-compiling (DEFUN ANNOTATE-FUN-LVAR ...)
; x-compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...)
; x-compiling (DEFUN LTN-DEFAULT-CALL ...)
; x-compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...)
; x-compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...)
; x-compiling (DEFUN LTN-ANALYZE-RETURN ...)
; x-compiling (DEFUN LTN-ANALYZE-MV-BIND ...)
; x-compiling (DEFUN LTN-ANALYZE-MV-CALL ...)
; x-compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...)
; x-compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...)
; x-compiling (DEFUN LTN-ANALYZE-SET ...)
; x-compiling (DEFUN LTN-ANALYZE-IF ...)
; x-compiling (DEFUN LTN-ANALYZE-EXIT ...)
; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC LTN-ANNOTATE) ...)
; x-compiling (DEFUN OPERAND-RESTRICTION-OK ...)
; x-compiling (DEFUN TEMPLATE-ARGS-OK ...)
; x-compiling (DEFUN TEMPLATE-RESULTS-OK ...)
; x-compiling (DEFUN IS-OK-TEMPLATE-USE ...)
; x-compiling (DEFUN FIND-TEMPLATE ...)
; x-compiling (DEFUN FIND-TEMPLATE-FOR-LTN-POLICY ...)
; x-compiling (DEFVAR *EFFICIENCY-NOTE-LIMIT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *EFFICIENCY-NOTE-COST-THRESHOLD* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN STRANGE-TEMPLATE-FAILURE ...)
; x-compiling (DEFUN NOTE-REJECTED-TEMPLATES ...)
; x-compiling (DEFUN LTN-ANALYZE-KNOWN-CALL ...)
; x-compiling (DEFUN LTN-ANALYZE-CAST ...)
; x-compiling (DEFUN LTN-ANNOTATE-CASTS ...)
; x-compiling (DEFUN LTN-ANNOTATE-CAST ...)
; x-compiling (DEFUN LTN-ANALYZE-BLOCK ...)
; x-compiling (DEFUN LTN-ANALYZE ...)
; x-compiling (DEFUN LTN-ANALYZE-BELATED-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ltn.lisp-obj-tmp written
; compilation finished in 0:00:03.330
; compiling file "/«PKGBUILDDIR»/src/compiler/stack.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FIND-PUSHED-LVARS ...)
; x-compiling (DEFUN NLE-BLOCK-NLX-INFO ...)
; x-compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...)
; x-compiling (DEFUN MERGE-UVL-LIVE-SETS ...)
; x-compiling (DEFUN FIND-LOWEST-COMMON-DOMINATOR ...)
; x-compiling (DEFUN BACK-PROPAGATE-ONE-DX-LVAR ...)
; x-compiling (DEFUN BACK-PROPAGATE-DX-LVARS ...)
; x-compiling (DEFUN UPDATE-UVL-LIVE-SETS ...)
; x-compiling (DEFUN ORDERED-LIST-INTERSECTION ...)
; x-compiling (DEFUN ORDERED-LIST-UNION ...)
; x-compiling (DEFUN ORDER-BLOCK-UVL-SETS ...)
; x-compiling (DEFUN ORDER-UVL-SETS ...)
; x-compiling (DEFUN INSERT-STACK-CLEANUPS ...)
; x-compiling (DEFUN FIND-PUSHING-BLOCKS ...)
; x-compiling (DEFUN STACK-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/stack.lisp-obj-tmp written
; compilation finished in 0:00:02.082
; compiling file "/«PKGBUILDDIR»/src/compiler/control.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN ADD-TO-EMIT-ORDER ...)
; x-compiling (DEFUN FIND-ROTATED-LOOP-HEAD ...)
; x-compiling (DEFUN CONTROL-ANALYZE-BLOCK ...)
; x-compiling (DEFUN CONTROL-ANALYZE-1-FUN ...)
; x-compiling (DEFEVENT CONTROL-DELETED-BLOCK ...)
; x-compiling (DEFUN CONTROL-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/control.lisp-obj-tmp written
; compilation finished in 0:00:00.601
; compiling file "/«PKGBUILDDIR»/src/compiler/entry.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN ENTRY-ANALYZE ...)
; x-compiling (DEFUN COMPUTE-ENTRY-INFO ...)
; x-compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/entry.lisp-obj-tmp written
; compilation finished in 0:00:00.404
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN EMIT-MOVE ...)
; x-compiling (DEFUN EMIT-STEP-P ...)
; x-compiling (DEFUN TYPE-CHECK-TEMPLATE ...)
; x-compiling (DEFUN EMIT-TYPE-CHECK ...)
; x-compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...)
; x-compiling (DEFUN EMIT-MAKE-VALUE-CELL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-IN-PHYSENV ...)
; x-compiling (DEFUN CONSTANT-TN ...)
; x-compiling (DEFUN LEAF-TN ...)
; x-compiling (DEFUN EMIT-CONSTANT ...)
; x-compiling (DEFUN %RETURN-IS-BOXED ...)
; x-compiling (DEFUN BOXED-REF-P ...)

; file: /«PKGBUILDDIR»/src/compiler/ir2tran.lisp
; in: DEFUN IR2-CONVERT-REF
;     (FUNCALL SB!C::REFFER SB!C::NODE BLOCK SB!C:TN (SB!C::LEAF-INFO SB!C::LEAF)
;              SB!C::RES)
; --> SB!C::%FUNCALL THE SB!KERNEL:%COERCE-CALLABLE-TO-FUN 
; ==>
;   SB!C::REFFER
; 
; note: deleting unreachable code
; x-compiling (DEFUN IR2-CONVERT-REF ...)
; x-compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...)
; x-compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...)
; x-compiling (DEFUN IR2-CONVERT-CLOSURE ...)
; x-compiling (DEFUN CLOSURE-INITIAL-VALUE ...)
; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...)

; file: /«PKGBUILDDIR»/src/compiler/ir2tran.lisp
; in: DEFUN IR2-CONVERT-SET
;     (FUNCALL SB!C::SETTER SB!C::NODE BLOCK SB!C:TN SB!C::VAL
;              (SB!C::LEAF-INFO SB!C::LEAF))
; --> SB!C::%FUNCALL THE SB!KERNEL:%COERCE-CALLABLE-TO-FUN 
; ==>
;   SB!C::SETTER
; 
; note: deleting unreachable code
; x-compiling (DEFUN IR2-CONVERT-SET ...)
; x-compiling (DEFUN LVAR-TN ...)
; x-compiling (DEFUN LVAR-TNS ...)
; x-compiling (DEFUN LVAR-RESULT-TNS ...)
; x-compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...)
; x-compiling (DEFUN STANDARD-RESULT-TNS ...)
; x-compiling (DEFUN MOVE-RESULTS-COERCED ...)
; x-compiling (DEFUN MOVE-RESULTS-CHECKED ...)
; x-compiling (DEFUN MOVE-LVAR-RESULT ...)
; x-compiling (DEFUN IR2-CONVERT-CAST ...)
; x-compiling (DEFUN REFERENCE-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-CONDITIONAL ...)
; x-compiling (DEFUN IR2-CONVERT-IF ...)
; x-compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...)
; x-compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...)
; x-compiling (DEFUN IR2-CONVERT-TEMPLATE ...)
; x-compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...)
; x-compiling (DEFUN IR2-CONVERT-LET ...)
; x-compiling (DEFUN EMIT-PSETQ-MOVES ...)
; x-compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...)
; x-compiling (DEFUN FUN-LVAR-TN ...)
; x-compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *TRACK-FULL-CALLED-FNAMES* ...)
; x-compiling (DEFUN PONDER-FULL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-FULL-CALL ...)
; x-compiling (DEFUN XEP-VERIFY-ARG-COUNT ...)
; x-compiling (DEFUN INIT-XEP-ENVIRONMENT ...)
; x-compiling (DEFUN SAVE-BSP ...)
; x-compiling (DEFUN IR2-CONVERT-BIND ...)
; x-compiling (DEFUN IR2-CONVERT-RETURN ...)
; x-compiling (DEFOPTIMIZER (%CALLER-FRAME IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...)
; x-compiling (DEFUN IR2-CONVERT-MV-BIND ...)
; x-compiling (DEFUN IR2-CONVERT-MV-CALL ...)
; x-compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...)
; x-compiling (DEF-IR1-TRANSLATOR PROGV ...)
; x-compiling (DEFUN IR2-CONVERT-EXIT ...)
; x-compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...)
; x-compiling (DEFUN IR2-CONVERT-THROW ...)
; x-compiling (DEFUN EMIT-NLX-START ...)
; x-compiling (DEFUN IR2-CONVERT-ENTRY ...)
; x-compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...)
; x-compiling (DEF LIST)
; x-compiling (DEF LIST*)
; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...)
; x-compiling (DEFUN IR2-CONVERT ...)
; x-compiling (DEFUN FINISH-IR2-BLOCK ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN IR2-CONVERT-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:09.281
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...)
; x-compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...)
; x-compiling (DEFUN EMIT-INITS ...)
; x-compiling (DEFUN EMIT-FIXED-ALLOC ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...)
; x-compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...)
; x-compiling (LET (#) ...)
; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:01.632
; compiling file "/«PKGBUILDDIR»/src/compiler/copyprop.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN TN-IS-COPY-OF ...)
; x-compiling (DEFUN INIT-COPY-SETS ...)
; x-compiling (DEFUN COPY-FLOW-ANALYSIS ...)
; x-compiling (DEFEVENT COPY-DELETED-MOVE ...)
; x-compiling (DEFUN OK-COPY-REF ...)
; x-compiling (DEFUN PROPAGATE-COPIES ...)
; x-compiling (DEFUN COPY-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/copyprop.lisp-obj-tmp written
; compilation finished in 0:00:01.013
; compiling file "/«PKGBUILDDIR»/src/compiler/represent.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN GET-OPERAND-INFO
;     (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN GET-OPERAND-INFO ...)
; x-compiling (DEFUN LISTIFY-RESTRICTIONS ...)
; x-compiling (DEFUN BAD-COSTS-ERROR ...)
; x-compiling (DEFUN BAD-COERCE-ERROR ...)
; x-compiling (DEFUN BAD-MOVE-ARG-ERROR ...)
; x-compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...)
; x-compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...)
; x-compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...)
; x-compiling (DEFUN ADD-REPRESENTATION-COSTS ...)

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN SELECT-TN-REPRESENTATION
;     (DEFUN SB!C::SELECT-TN-REPRESENTATION (SB!C:TN SB!C::SCS SB!C::COSTS)
;       (DECLARE (TYPE SB!C:TN SB!C:TN)
;                (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;                (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;       (DOLIST (SB!C::SCN SB!C::SCS) (SETF (SVREF SB!C::COSTS SB!C::SCN) 0))
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS
;                                       SB!C::COSTS #'SB!C::VOP-ARGS
;                                       #'SB!C::VOP-INFO-ARG-COSTS
;                                       #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS
;                                       SB!C::COSTS #'SB!C::VOP-RESULTS
;                                       #'SB!C::VOP-INFO-RESULT-COSTS
;                                       #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;       (LET ((MIN MOST-POSITIVE-FIXNUM) (SB!C::MIN-SCN NIL) (SB!C::UNIQUE NIL))
;         (DOLIST (SB!C::SCN SB!C::SCS)
;           (LET (#)
;             (COND # #)))
;         (VALUES (SVREF SB!C:*BACKEND-SC-NUMBERS* SB!C::MIN-SCN) SB!C::UNIQUE)))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!C::SELECT-TN-REPRESENTATION
;    (SB!INT:NAMED-LAMBDA SB!C::SELECT-TN-REPRESENTATION
;        (SB!C:TN SB!C::SCS SB!C::COSTS)
;      (DECLARE (TYPE SB!C:TN SB!C:TN)
;               (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;               (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;      (BLOCK SB!C::SELECT-TN-REPRESENTATION
;        (DOLIST (SB!C::SCN SB!C::SCS) (SETF #))
;        (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS
;                                        SB!C::COSTS #'SB!C::VOP-ARGS
;                                        #'SB!C::VOP-INFO-ARG-COSTS
;                                        #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;        (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS
;                                        SB!C::COSTS #'SB!C::VOP-RESULTS
;                                        #'SB!C::VOP-INFO-RESULT-COSTS
;                                        #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;        (LET (# # #)
;          (DOLIST # #)
;          (VALUES # SB!C::UNIQUE))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB!C::ADD-REPRESENTATION-COSTS could not be inlined because its source
;   code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be
;   in effect to save function definitions for inlining.
; x-compiling (DEFUN SELECT-TN-REPRESENTATION ...)
; x-compiling (DEFUN NOTE-NUMBER-STACK-TN ...)
; x-compiling (DEFUN GET-OPERAND-NAME ...)
; x-compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...)
; x-compiling (DEFUN FIND-MOVE-VOP ...)
; x-compiling (DEFUN EMIT-COERCE-VOP ...)
; x-compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS))
; x-compiling (DEFUN COERCE-SOME-OPERANDS ...)
; x-compiling (DEFUN COERCE-VOP-OPERANDS ...)
; x-compiling (DEFUN EMIT-ARG-MOVES ...)
; x-compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...)
; x-compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK))
; x-compiling (DEFUN NOTE-IF-NUMBER-STACK ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; x-compiling (DEFUN SELECT-REPRESENTATIONS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/represent.lisp-obj-tmp written
; compilation finished in 0:00:03.142
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *2BLOCK-PRED*)
; x-compiling (DEFVAR *2BLOCK-SUCC*)
; x-compiling (DEFVAR *LABEL-2BLOCK*)
; x-compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...)
; x-compiling (DEFUN UPDATE-BLOCK-SUCC ...)
; x-compiling (DECLAIM (INLINE VOP-NAME))
; x-compiling (DEFUN VOP-NAME ...)
; x-compiling (DEFUN MOVE-VALUE-TARGET ...)
; x-compiling (DEFUN CMOVP ...)
; x-compiling (DECLAIM (INLINE CONVERT-ONE-CMOV))
; x-compiling (DEFUN CONVERT-ONE-CMOV ...)

; file: /«PKGBUILDDIR»/src/compiler/ir2opt.lisp
; in: DEFUN MAYBE-CONVERT-ONE-CMOV
;     (SB!C::CONVERT-ONE-CMOV SB!C::CMOVE-VOP SB!C::VALUE-A SB!C::ARG-A
;                             SB!C::VALUE-B SB!C::ARG-B SB!C::TARGET SB!C::RES
;                             SB!C::FLAGS SB!INT:INFO SB!ASSEM:LABEL SB!C::VOP ...)
; --> BLOCK SB!C::EMIT-TEMPLATE SB!C::EMIT-AND-INSERT-VOP LIST* CONS 
; ==>
;   SB!INT:INFO
; 
; note: deleting unreachable code

;     (ROTATEF SB!C::VALUE-A SB!C::VALUE-B)
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   SB!C::VALUE-B
; 
; note: deleting unreachable code

;     (SB!C::CONVERT-ONE-CMOV SB!C::CMOVE-VOP SB!C::VALUE-A SB!C::ARG-A
;                             SB!C::VALUE-B SB!C::ARG-B SB!C::TARGET SB!C::RES
;                             SB!C::FLAGS SB!INT:INFO SB!ASSEM:LABEL SB!C::VOP ...)
; ==>
;   SB!C::VALUE-A
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; --> BLOCK SB!C::DELETE-VOP 
; ==>
;   SB!C::VOP
; 
; note: deleting unreachable code
; x-compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...)
; x-compiling (DEFUN CONVERT-CMOVS ...)
; x-compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...)
; x-compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...)
; 
; compilation unit finished
;   printed 5 notes
; x-compiling (DEFUN IR2-OPTIMIZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir2opt.lisp-obj-tmp written
; compilation finished in 0:00:00.923
; compiling file "/«PKGBUILDDIR»/src/compiler/pack.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!REGALLOC")
; x-compiling (DEFVAR *PACK-ASSIGN-COSTS* ...)
; x-compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CONFLICTS-IN-SC ...)
; x-compiling (DEFUN ADD-LOCATION-CONFLICTS ...)
; x-compiling (DEFUN FIND-LOCATION-USAGE ...)
; x-compiling (DEFUN IR2-BLOCK-COUNT ...)
; x-compiling (DEFUN INIT-SB-VECTORS ...)
; x-compiling (DEFUN GROW-SC ...)
; x-compiling (DEFUN NO-LOAD-FUN-ERROR ...)
; x-compiling (DEFUN FAILED-TO-PACK-ERROR ...)
; x-compiling (DEFUN DESCRIBE-TN-USE ...)
; x-compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...)
; x-compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...)
; x-compiling (DEFUN NOTE-SPILLED-TN ...)
; x-compiling (DEFUN PACK-SAVE-TN ...)
; x-compiling (DEFUN EMIT-OPERAND-LOAD ...)
; x-compiling (DEFUN REVERSE-FIND-VOP ...)
; x-compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...)
; x-compiling (DEFUN FIND-SINGLE-WRITER ...)
; x-compiling (DEFUN SAVE-SINGLE-WRITER-TN ...)
; x-compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...)
; x-compiling (DEFUN BASIC-SAVE-TN ...)
; x-compiling (DEFUN EMIT-SAVES ...)
; x-compiling (DEFUN SAVE-IF-NECESSARY ...)
; x-compiling (DEFUN RESTORE-TN ...)
; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...)
; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES ...)
; x-compiling (DEFVAR *TN-WRITE-COST* ...)
; x-compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...)
; x-compiling (DEFUN ASSIGN-TN-COSTS ...)
; x-compiling (DEFUN ASSIGN-TN-DEPTHS ...)
; x-compiling (DEFVAR *LIVE-BLOCK*)
; x-compiling (DEFVAR *LIVE-VOP*)
; x-compiling (DEFVAR *REPACK-BLOCKS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFUN INIT-LIVE-TNS ...)
; x-compiling (DEFUN COMPUTE-LIVE-TNS ...)
; x-compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...)
; x-compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...)
; x-compiling (DEFUN FIND-LOAD-TN-TARGET ...)
; x-compiling (DEFUN SELECT-LOAD-TN-LOCATION ...)
; x-compiling (DEFEVENT UNPACK-TN ...)
; x-compiling (DEFUN UNPACK-TN ...)
; x-compiling (DEFEVENT UNPACK-FALLBACK ...)

; file: /«PKGBUILDDIR»/src/compiler/pack.lisp
; in: DEFUN UNPACK-FOR-LOAD-TN
;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN UNPACK-FOR-LOAD-TN ...)
; x-compiling (DEFUN PACK-LOAD-TN ...)
; x-compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS))
; x-compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...)
; x-compiling (DEFUN PACK-LOAD-TNS ...)
; x-compiling (DEFUN TARGET-IF-DESIRABLE ...)
; x-compiling (DEFUN CHECK-OK-TARGET ...)
; x-compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS))
; x-compiling (DEFUN %CALL-WITH-TARGET-TNS ...)
; x-compiling (DEFMACRO DO-TARGET-TNS ...)
; x-compiling (DEFUN FIND-OK-TARGET-OFFSET ...)
; x-compiling (DEFUN SELECT-LOCATION ...)
; x-compiling (DEFUN ORIGINAL-TN ...)
; x-compiling (DECLAIM (INLINE UNBOUNDED-SC-P))
; x-compiling (DEFUN UNBOUNDED-SC-P ...)
; x-compiling (DEFUN UNBOUNDED-TN-P ...)
; x-compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P))
; x-compiling (DEFUN PACK-TN ...)
; x-compiling (DEFUN PACK-WIRED-TN ...)
; x-compiling (DEFEVENT REPACK-BLOCK ...)
; x-compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...)
; x-compiling (DEFUN TN-LEXICAL-DEPTH ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...)
; x-compiling (DECLAIM (FTYPE FUNCTION ...))
; x-compiling (DEFUN PACK ...)
; 
; compilation unit finished
;   printed 4 notes
; x-compiling (DEFUN PACK-GREEDY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/pack.lisp-obj-tmp written
; compilation finished in 0:00:11.318
; compiling file "/«PKGBUILDDIR»/src/compiler/pack-iterative.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!REGALLOC")
; x-compiling (DEFSTRUCT (ORDERED-SET # ...) ...)
; x-compiling (DEFUN OSET-ADJOIN ...)
; x-compiling (DEFUN OSET-DELETE ...)
; x-compiling (DEFUN OSET-MEMBER ...)
; x-compiling (DEFMACRO DO-OSET-ELEMENTS ...)
; x-compiling (DEF!STRUCT (VERTEX # ...) ...)
; x-compiling (DECLAIM (INLINE VERTEX-SC))
; x-compiling (DEFUN VERTEX-SC ...)
; x-compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...)
; x-compiling (DEFUN INSERT-ONE-EDGE ...)
; x-compiling (DEFUN BLOCK-GTNS ...)
; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...)
; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...)
; x-compiling (DEFUN INSERT-CONFLICT-EDGES ...)
; x-compiling (DEFUN RESTRICTED-TN-LOCATIONS ...)
; x-compiling (DEFUN PREPARE-VERTICES ...)
; x-compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...)
; x-compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...)
; x-compiling (DEFUN COLOR-NO-CONFLICTS-P ...)
; x-compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...)
; x-compiling (DEFUN VERTEX-DOMAIN ...)
; x-compiling (DEFUN VERTEX-TARGET-VERTICES ...)
; x-compiling (DEFUN VERTICES-BEST-COLOR ...)
; x-compiling (DEFUN FIND-VERTEX-COLOR ...)
; x-compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...)
; x-compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...)
; x-compiling (DEFVAR *PACK-ITERATIONS* ...)
; x-compiling (DEFUN ITERATE-COLOR ...)
; x-compiling (DEFUN PACK-COLORED ...)
; x-compiling (DEFUN PACK-ITERATIVE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/pack-iterative.lisp-obj-tmp written
; compilation finished in 0:00:03.468
; compiling file "/«PKGBUILDDIR»/src/compiler/codegen.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN COMPONENT-HEADER-LENGTH ...)
; x-compiling (DEFUN SB-ALLOCATED-SIZE ...)
; x-compiling (DEFUN CURRENT-NFP-TN ...)
; x-compiling (DEFUN CALLEE-NFP-TN ...)
; x-compiling (DEFUN CALLEE-RETURN-PC-TN ...)
; x-compiling (DEFVAR *CODE-SEGMENT* ...)
; x-compiling (DEFVAR *ELSEWHERE* ...)
; x-compiling (DEFVAR *ELSEWHERE-LABEL* ...)
; x-compiling (DEFVAR *PREV-SEGMENT*)
; x-compiling (DEFVAR *PREV-VOP*)
; x-compiling (DEFUN TRACE-INSTRUCTION ...)
; x-compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...)
; x-compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...)
; x-compiling (DEFUN INIT-ASSEMBLER ...)
; x-compiling (DEFUN GENERATE-CODE ...)
; x-compiling (DEFUN EMIT-LABEL-ELSEWHERE ...)
; x-compiling (DEFUN LABEL-ELSEWHERE-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/codegen.lisp-obj-tmp written
; compilation finished in 0:00:00.690
; compiling file "/«PKGBUILDDIR»/src/compiler/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *ARGS* ...)
; x-compiling (DEFVAR *IGNORED-ERRORS* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BARF ...)
; x-compiling (DEFVAR *BURP-ACTION* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BURP ...)
; x-compiling (DEFVAR *SEEN-BLOCKS*)
; x-compiling (DEFVAR *SEEN-FUNS*)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-NODE-REACHED ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-IR1-CONSISTENCY ...)
; x-compiling (DEFUN OBSERVE-FUNCTIONAL ...)
; x-compiling (DEFUN CHECK-FUN-REACHED ...)
; x-compiling (DEFUN CHECK-FUN-STUFF ...)
; x-compiling (DEFUN CHECK-FUN-CONSISTENCY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...)
; x-compiling (DEFUN CHECK-DEST ...)
; x-compiling (DEFUN CHECK-NODE-CONSISTENCY ...)
; x-compiling (DEFUN CHECK-TN-REFS ...)
; x-compiling (DEFUN CHECK-VOP-REFS ...)
; x-compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...)
; x-compiling (DEFUN CHECK-IR2-CONSISTENCY ...)
; x-compiling (DEFUN PRE-PACK-TN-STATS ...)
; x-compiling (DEFUN CHECK-MORE-TN-ENTRY ...)
; x-compiling (DEFUN CHECK-TN-CONFLICTS ...)
; x-compiling (DEFUN CHECK-BLOCK-CONFLICTS ...)
; x-compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...)
; x-compiling (DEFUN CHECK-LIFE-CONSISTENCY ...)
; x-compiling (DEFUN CHECK-PACK-CONSISTENCY ...)
; x-compiling (DEF *CONTINUATION-NUMBER* ...)
; x-compiling (DEF *TN-ID* ...)
; x-compiling (DEF *LABEL-ID* ...)
; x-compiling (DEFUN PRINT-LEAF ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-OR-LOSE ...)
; x-compiling (DEFUN PRINT-CTRAN ...)
; x-compiling (DEFUN PRINT-LVAR ...)
; x-compiling (DEFUN PRINT-LVAR-STACK ...)
; x-compiling (DEFUN PRINT-NODES ...)
; x-compiling (DEFUN PRINT-TN-GUTS ...)
; x-compiling (DEFUN PRINT-OPERANDS ...)
; x-compiling (DEFUN PRINT-VOP ...)
; x-compiling (DEFUN PRINT-IR2-BLOCK ...)
; x-compiling (DEFUN PRINT-VOPS ...)
; x-compiling (DEFUN PRINT-IR2-BLOCKS ...)
; x-compiling (DEFUN PRINT-BLOCKS ...)
; x-compiling (DEFUN PRINT-ALL-BLOCKS ...)
; x-compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...)
; x-compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...)
; x-compiling (DEFUN ADD-ALL-LOCAL-TNS ...)
; x-compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...)
; x-compiling (DEFUN LIST-CONFLICTS ...)
; x-compiling (DEFUN NTH-VOP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/debug.lisp-obj-tmp written
; compilation finished in 0:00:05.981
; compiling file "/«PKGBUILDDIR»/src/code/format-time.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFPARAMETER *ABBREV-WEEKDAY-TABLE* ...)
; x-compiling (DEFPARAMETER *LONG-WEEKDAY-TABLE* ...)
; x-compiling (DEFPARAMETER *ABBREV-MONTH-TABLE* ...)
; x-compiling (DEFPARAMETER *LONG-MONTH-TABLE* ...)
; x-compiling (DEFPARAMETER *TIMEZONE-TABLE* ...)
; x-compiling (DEFPARAMETER *DAYLIGHT-TABLE* ...)
; x-compiling (DEFUN VALID-DESTINATION-P ...)
; x-compiling (DEFUN FORMAT-UNIVERSAL-TIME ...)
; x-compiling (DEFUN TIMEZONE-NAME ...)
; x-compiling (DEFUN FORMAT-DECODED-TIME ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/format-time.lisp-obj-tmp written
; compilation finished in 0:00:03.723
; compiling file "/«PKGBUILDDIR»/src/code/error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN STYLE-WARN ...)
; x-compiling (DEFUN COERCE-TO-CONDITION ...)
; x-compiling (DEFINE-CONDITION LAYOUT-INVALID ...)
; x-compiling (DEFINE-CONDITION CASE-FAILURE ...)
; x-compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...)
; x-compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...)
; x-compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...)
; x-compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...)
; x-compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...)
; x-compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...)
; x-compiling (DEFINE-CONDITION SYSTEM-CONDITION ...)
; x-compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...)
; x-compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...)
; x-compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/error.lisp-obj-tmp written
; compilation finished in 0:00:00.643
; compiling file "/«PKGBUILDDIR»/src/code/macroexpand.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...)
; x-compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...)
; x-compiling (DEFUN SB-XC:MACROEXPAND-1 ...)
; x-compiling (DEFUN SB-XC:MACROEXPAND ...)
; x-compiling (DEFUN %MACROEXPAND-1 ...)
; x-compiling (DEFUN %MACROEXPAND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/macroexpand.lisp-obj-tmp written
; compilation finished in 0:00:00.233
; compiling file "/«PKGBUILDDIR»/src/code/late-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN LIST-WITH-LENGTH-P ...)
; x-compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...)
; x-compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...)
; x-compiling (DEFUN EXPAND-ATOMIC-FROB ...)
; x-compiling (DEF!MACRO ATOMIC-INCF ...)
; x-compiling (DEFMACRO ATOMIC-DECF ...)
; x-compiling (DEFUN SPIN-LOOP-HINT ...)
; x-compiling (DEFUN CALL-HOOKS ...)
; x-compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...)
; x-compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...)
; x-compiling (DEFUN %COMPILER-DEFGLOBAL ...)
; x-compiling (DEFUN %DEFGLOBAL ...)
; x-compiling (DEFUN %%WAIT-FOR ...)
; x-compiling (DEFUN %WAIT-FOR ...)
; x-compiling (DEFMACRO WAIT-FOR ...)
; x-compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...)
; x-compiling (DEFMACRO ATOMIC-UPDATE ...)
; x-compiling (DEFMACRO ATOMIC-PUSH ...)
; x-compiling (DEFMACRO ATOMIC-POP ...)
; x-compiling (DEFUN SPLIT-VERSION-STRING ...)
; x-compiling (DEFUN VERSION>= ...)
; x-compiling (DEFUN ASSERT-VERSION->= ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-extensions.lisp-obj-tmp written
; compilation finished in 0:00:02.993
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/target-core.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ALLOCATE-CODE-OBJECT ...)
; x-compiling (DEFUN MAKE-FUN-ENTRY ...)
; x-compiling (DEFUN MAKE-CORE-COMPONENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/target-core.lisp-obj-tmp written
; compilation finished in 0:00:00.470
; compiling file "/«PKGBUILDDIR»/src/code/eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFPARAMETER *EVAL-CALLS* ...)
; x-compiling (DEFVAR *EVAL-SOURCE-CONTEXT* ...)
; x-compiling (DEFVAR *EVAL-TLF-INDEX* ...)
; x-compiling (DEFVAR *EVAL-SOURCE-INFO* ...)
; x-compiling (DEFUN MAKE-EVAL-LAMBDA ...)
; x-compiling (DEFUN %SIMPLE-EVAL ...)
; x-compiling (DEFUN SIMPLE-EVAL-PROGN-BODY ...)
; x-compiling (DEFUN SIMPLE-EVAL-LOCALLY ...)
; x-compiling (DEFINE-CONDITION EVAL-ERROR ...)
; x-compiling (DEFUN EVAL-ERROR ...)
; x-compiling (DEFUN SIMPLE-EVAL-IN-LEXENV ...)
; x-compiling (DEFUN EVAL-IN-LEXENV ...)
; x-compiling (DEFUN EVAL ...)
; x-compiling (DEFUN EVAL-TLF ...)
; x-compiling (DEFUN APPLY ...)
; x-compiling (DEFUN FUNCALL ...)
; x-compiling (DEFUN VALUES ...)
; x-compiling (DEFUN VALUES-LIST ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/eval.lisp-obj-tmp written
; compilation finished in 0:00:01.005
; compiling file "/«PKGBUILDDIR»/src/code/target-sap.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN SAP< ...)
; x-compiling (DEFUN SAP<= ...)
; x-compiling (DEFUN SAP= ...)
; x-compiling (DEFUN SAP>= ...)
; x-compiling (DEFUN SAP> ...)
; x-compiling (DEFUN SAP+ ...)
; x-compiling (DEFUN SAP- ...)
; x-compiling (DEFUN SAP-INT ...)
; x-compiling (DEFUN INT-SAP ...)
; x-compiling (DEFUN SAP-REF-8 ...)
; x-compiling (DEFUN SAP-REF-OCTETS ...)
; x-compiling (DEFUN SAP-REF-16 ...)
; x-compiling (DEFUN SAP-REF-32 ...)
; x-compiling (DEFUN SAP-REF-64 ...)
; x-compiling (DEFUN SAP-REF-WORD ...)
; x-compiling (DEFUN SAP-REF-SAP ...)
; x-compiling (DEFUN SAP-REF-LISPOBJ ...)
; x-compiling (DEFUN SAP-REF-SINGLE ...)
; x-compiling (DEFUN SAP-REF-DOUBLE ...)
; x-compiling (DEFUN SIGNED-SAP-REF-8 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-16 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-32 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-64 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFUN %SET-SAP-REF-8 ...)
; x-compiling (DEFUN %SET-SAP-REF-16 ...)
; x-compiling (DEFUN %SET-SAP-REF-32 ...)
; x-compiling (DEFUN %SET-SAP-REF-64 ...)
; x-compiling (DEFUN %SET-SAP-REF-WORD ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-8 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-16 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-32 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-64 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFUN %SET-SAP-REF-SAP ...)
; x-compiling (DEFUN %SET-SAP-REF-LISPOBJ ...)
; x-compiling (DEFUN %SET-SAP-REF-SINGLE ...)
; x-compiling (DEFUN %SET-SAP-REF-DOUBLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-sap.lisp-obj-tmp written
; compilation finished in 0:00:00.627
; compiling file "/«PKGBUILDDIR»/src/code/target-package.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *PACKAGE-GRAPH-LOCK*)
; x-compiling (DEFUN CALL-WITH-PACKAGE-GRAPH ...)
; x-compiling (DEFVAR *PACKAGE-NAMES*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFMACRO WITH-PACKAGE-NAMES ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (!DEFPARAMETER *PACKAGE-REHASH-THRESHOLD* ...)
; x-compiling (!DEFPARAMETER *PACKAGE-HASHTABLE-IMAGE-LOAD-FACTOR* ...)
; x-compiling (DEFUN MAKE-PACKAGE-HASHTABLE ...)
; x-compiling (DEFUN RESIZE-PACKAGE-HASHTABLE ...)
; x-compiling (DEFUN PACKAGE-LOCKED-P ...)
; x-compiling (DEFUN LOCK-PACKAGE ...)
; x-compiling (DEFUN UNLOCK-PACKAGE ...)
; x-compiling (DEFUN PACKAGE-IMPLEMENTED-BY-LIST ...)
; x-compiling (DEFUN PACKAGE-IMPLEMENTS-LIST ...)
; x-compiling (DEFUN ADD-IMPLEMENTATION-PACKAGE ...)
; x-compiling (DEFUN REMOVE-IMPLEMENTATION-PACKAGE ...)
; x-compiling (DEFMACRO WITH-UNLOCKED-PACKAGES ...)
; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION ...)
; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION-P ...)
; x-compiling (DEFUN DISABLED-PACKAGE-LOCKS ...)
; x-compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...)
; x-compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF PACKAGE-NICKNAMES ...)
; x-compiling (DEF PACKAGE-USE-LIST ...)
; x-compiling (DEF PACKAGE-USED-BY-LIST ...)
; x-compiling (DEF PACKAGE-SHADOWING-SYMBOLS ...)
; x-compiling (DEFUN PACKAGE-LOCAL-NICKNAMES ...)
; x-compiling (DEFUN SIGNAL-PACKAGE-ERROR ...)
; x-compiling (DEFUN SIGNAL-PACKAGE-CERROR ...)
; x-compiling (DEFUN PACKAGE-LOCALLY-NICKNAMED-BY-LIST ...)
; x-compiling (DEFUN ADD-PACKAGE-LOCAL-NICKNAME ...)
; x-compiling (DEFUN REMOVE-PACKAGE-LOCAL-NICKNAME ...)
; x-compiling (DEFUN %PACKAGE-HASHTABLE-SYMBOL-COUNT ...)
; x-compiling (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...)
; x-compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...)
; x-compiling (DEFVAR *PACKAGE* ...)
; x-compiling (DEFINE-CONDITION BOOTSTRAP-PACKAGE-NOT-FOUND ...)
; x-compiling (DEFUN DEBOOTSTRAP-PACKAGE ...)
; x-compiling (DEFUN FIND-PACKAGE ...)
; x-compiling (DEFUN FIND-PACKAGE-USING-PACKAGE ...)
; x-compiling (DEFUN PACKAGE-LISTIFY ...)
; x-compiling (DEFUN PACKAGE-NAME ...)
; x-compiling (DECLAIM (INLINE ENTRY-HASH))
; x-compiling (DEFUN ENTRY-HASH ...)
; x-compiling (DEFUN ADD-SYMBOL ...)
; x-compiling (DEFUN TUNE-HASHTABLE-SIZES-OF-ALL-PACKAGES ...)
; x-compiling (DEFMACRO WITH-SYMBOL ...)
; x-compiling (DEFUN NUKE-SYMBOL ...)
; x-compiling (DEFUN %ENTER-NEW-NICKNAMES ...)
; x-compiling (DEFUN MAKE-PACKAGE ...)
; x-compiling (DEFUN RENAME-PACKAGE ...)
; x-compiling (DEFUN DELETE-PACKAGE ...)
; x-compiling (DEFUN LIST-ALL-PACKAGES ...)
; x-compiling (DEFUN INTERN ...)
; x-compiling (DEFUN FIND-SYMBOL ...)

; file: /«PKGBUILDDIR»/src/code/target-package.lisp
; in: DEFUN INTERN*
;     (SUBSEQ SB!IMPL::NAME 0 LENGTH)
; --> LET* OR LET IF OR THE 
; ==>
;   LENGTH
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERN* ...)
; x-compiling (DEFUN FIND-SYMBOL* ...)
; x-compiling (DEFUN FIND-EXTERNAL-SYMBOL ...)
; x-compiling (DEFINE-CONDITION NAME-CONFLICT ...)
; x-compiling (DEFUN NAME-CONFLICT ...)
; x-compiling (DEFUN UNINTERN ...)
; x-compiling (DEFUN SYMBOL-LISTIFY ...)
; x-compiling (DEFUN STRING-LISTIFY ...)
; x-compiling (DEFUN EXPORT ...)
; x-compiling (DEFUN UNEXPORT ...)
; x-compiling (DEFUN IMPORT ...)
; x-compiling (DEFUN SHADOWING-IMPORT ...)
; x-compiling (DEFUN SHADOW ...)
; x-compiling (DEFUN USE-PACKAGE ...)
; x-compiling (DEFUN UNUSE-PACKAGE ...)
; x-compiling (DEFUN FIND-ALL-SYMBOLS ...)
; x-compiling (DEFUN BRIEFLY-DESCRIBE-SYMBOL ...)
; x-compiling (DEFUN APROPOS-LIST ...)
; x-compiling (DEFUN APROPOS ...)
; x-compiling (DEFVAR *!INITIAL-SYMBOLS*)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN !PACKAGE-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-package.lisp-obj-tmp written
; compilation finished in 0:00:09.418
; compiling file "/«PKGBUILDDIR»/src/code/target-random.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFCONSTANT MT19937-N ...)
; x-compiling (DEFCONSTANT MT19937-M ...)
; x-compiling (DEFCONSTANT MT19937-UPPER-MASK ...)
; x-compiling (DEFCONSTANT MT19937-LOWER-MASK ...)
; x-compiling (DEFCONSTANT MT19937-A ...)
; x-compiling (DEFCONSTANT MT19937-B ...)
; x-compiling (DEFCONSTANT MT19937-C ...)
; x-compiling (DEFTYPE RANDOM-STATE-STATE ...)
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN INIT-RANDOM-STATE ...)
; x-compiling (DEFVAR *RANDOM-STATE*)
; x-compiling (DEFUN !RANDOM-COLD-INIT ...)
; x-compiling (DEFUN MAKE-RANDOM-STATE ...)
; x-compiling (DEFUN FALLBACK-RANDOM-SEED ...)
; x-compiling (DEFUN OS-RANDOM-SEED ...)
; x-compiling (DEFUN SEED-RANDOM-STATE ...)

; file: /«PKGBUILDDIR»/src/code/target-random.lisp
; in: DECLAIM (INLINE RANDOM-CHUNK)
;     (DECLAIM (INLINE SB!KERNEL:RANDOM-CHUNK))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!KERNEL:RANDOM-CHUNK) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!KERNEL:RANDOM-CHUNK to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE RANDOM-CHUNK))
; x-compiling (DEFUN RANDOM-MT19937-UPDATE ...)
; x-compiling (DEFUN RANDOM-CHUNK ...)
; x-compiling (DECLAIM (INLINE BIG-RANDOM-CHUNK))
; x-compiling (DEFUN BIG-RANDOM-CHUNK ...)
; x-compiling (DECLAIM (INLINE %RANDOM-SINGLE-FLOAT ...))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %RANDOM-SINGLE-FLOAT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %RANDOM-DOUBLE-FLOAT ...)
; x-compiling (DECLAIM (INLINE %RANDOM-FIXNUM))
; x-compiling (DEFUN %RANDOM-FIXNUM ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN RANDOM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-random.lisp-obj-tmp written
; compilation finished in 0:00:03.531
; compiling file "/«PKGBUILDDIR»/src/code/bignum-random.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!BIGNUM")
; x-compiling (DECLAIM (INLINE BIGNUM-LOWER-BITS-ZERO-P))
; x-compiling (DEFUN BIGNUM-LOWER-BITS-ZERO-P ...)
; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-DIGIT))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN RANDOM-BIGNUM-DIGIT
;     (SB!KERNEL:BIG-RANDOM-CHUNK SB!BIGNUM::STATE)
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN RANDOM-BIGNUM-DIGIT ...)
; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-PARTIAL-DIGIT))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN RANDOM-BIGNUM-PARTIAL-DIGIT
;     (SB!KERNEL:BIG-RANDOM-CHUNK SB!BIGNUM::STATE)
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; x-compiling (DEFUN RANDOM-BIGNUM-PARTIAL-DIGIT ...)
; x-compiling (DECLAIM (INLINE CONCATENATE-RANDOM-BIGNUM))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN CONCATENATE-RANDOM-BIGNUM
;     (SB!BIGNUM::RANDOM-BIGNUM-PARTIAL-DIGIT SB!BIGNUM::N-RANDOM-BITS
;      SB!BIGNUM::STATE)
; --> BLOCK LOGAND IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code

;     (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE)
; --> BLOCK IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; x-compiling (DEFUN CONCATENATE-RANDOM-BIGNUM ...)
; x-compiling (DECLAIM (INLINE MAKE-RANDOM-BIGNUM))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN MAKE-RANDOM-BIGNUM
;     (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE)
; --> BLOCK IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code

;     (SB!BIGNUM::RANDOM-BIGNUM-PARTIAL-DIGIT SB!BIGNUM::N-BITS-PARTIAL-DIGIT
;      SB!BIGNUM::STATE)
; --> BLOCK LOGAND IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; x-compiling (DEFUN MAKE-RANDOM-BIGNUM ...)
; 
; compilation unit finished
;   printed 7 notes
; x-compiling (DEFUN %RANDOM-BIGNUM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/bignum-random.lisp-obj-tmp written
; compilation finished in 0:00:01.700
; compiling file "/«PKGBUILDDIR»/src/code/target-hash-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO WITH-CONCURRENT-ACCESS-CHECK ...)
; x-compiling (DECLAIM (INLINE EQ-HASH))
; x-compiling (DEFUN EQ-HASH ...)
; x-compiling (DECLAIM (INLINE EQUAL-HASH))
; x-compiling (DEFUN EQUAL-HASH ...)
; x-compiling (DECLAIM (INLINE EQL-HASH))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN EQL-HASH
;     (SB!IMPL::EQUAL-HASH SB!IMPL::KEY)
; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE 
; --> PROGN BLOCK VALUES ODDP LOGTEST IF LOGTEST SB!KERNEL:GET-LISP-OBJ-ADDRESS 
; ==>
;   SB!IMPL::KEY
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE 
; --> PROGN BLOCK VALUES SB!KERNEL:POINTER-HASH 
; ==>
;   SB!IMPL::KEY
; 
; note: deleting unreachable code
; x-compiling (DEFUN EQL-HASH ...)
; x-compiling (DEFUN EQUALP-HASH ...)
; x-compiling (DECLAIM (INLINE INDEX-FOR-HASHING))
; x-compiling (DEFUN INDEX-FOR-HASHING ...)
; x-compiling (DEFVAR *USER-HASH-TABLE-TESTS* ...)
; x-compiling (DEFUN REGISTER-HASH-TABLE-TEST ...)
; x-compiling (DEFMACRO DEFINE-HASH-TABLE-TEST ...)
; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-SIZE+ ...)
; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-REHASH-THRESHOLD+ ...)
; x-compiling (DEFUN MAKE-HASH-TABLE ...)
; x-compiling (DEFUN HASH-TABLE-COUNT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN HASH-TABLE-SIZE ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN SIGNAL-CORRUPT-HASH-TABLE ...)
; x-compiling (DEFUN REHASH ...)
; x-compiling (DEFUN REHASH-WITHOUT-GROWING ...)
; x-compiling (DECLAIM (INLINE MAYBE-REHASH))
; x-compiling (DEFUN MAYBE-REHASH ...)
; x-compiling (DECLAIM (INLINE UPDATE-HASH-TABLE-CACHE))
; x-compiling (DEFUN UPDATE-HASH-TABLE-CACHE ...)
; x-compiling (DEFMACRO WITH-HASH-TABLE-LOCKS ...)
; x-compiling (DEFUN GETHASH ...)
; x-compiling (DECLAIM (MAYBE-INLINE %GETHASH3))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %GETHASH3
;     (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL)
; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = 
; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF 
; --> THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (= SB!IMPL::HASHING (AREF SB!IMPL::HASH-VECTOR SB!IMPL::NEXT))
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN %GETHASH3 ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN GETHASH3
;     (SB!IMPL::%GETHASH3 SB!IMPL::KEY HASH-TABLE SB!IMPL::DEFAULT)
; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET 
; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET 
; --> BLOCK WHEN IF PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET 
; --> BLOCK AND IF AND THE ZEROP = IF = SB!IMPL::HASH-TABLE-NEXT-FREE-KV 
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET 
; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TAGBODY LET MACROLET LET IF MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION LET* IF DO BLOCK LET TAGBODY TAGBODY WHEN IF 
; --> AND IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN GETHASH3 ...)
; x-compiling (DEFUN (SETF GETHASH) ...)
; x-compiling (DECLAIM (MAYBE-INLINE %%PUTHASH))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %%PUTHASH
;     (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
;             (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT))
; --> LET* FUNCALL SB!C::%FUNCALL (SETF SB!IMPL::HASH-TABLE-NEXT-FREE-KV) LET 
; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G733 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

;     (= SB!IMPL::HASHING (AREF SB!IMPL::HASH-VECTOR SB!IMPL::NEXT))
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (LET* ((SB!IMPL::INDEX-VECTOR (SB!IMPL::HASH-TABLE-INDEX-VECTOR HASH-TABLE))
;            (LENGTH (LENGTH SB!IMPL::INDEX-VECTOR))
;            (SB!INT:INDEX (SB!IMPL::INDEX-FOR-HASHING SB!IMPL::HASHING LENGTH))
;            (SB!IMPL::NEXT (AREF SB!IMPL::INDEX-VECTOR SB!INT:INDEX))
;            (SB!IMPL::KV-VECTOR (SB!IMPL::HASH-TABLE-TABLE HASH-TABLE))
;            (SB!IMPL::NEXT-VECTOR (SB!IMPL::HASH-TABLE-NEXT-VECTOR HASH-TABLE))
;            (SB!IMPL::HASH-VECTOR (SB!IMPL::HASH-TABLE-HASH-VECTOR HASH-TABLE))
;            (SB!IMPL::TEST-FUN (SB!IMPL::HASH-TABLE-TEST-FUN HASH-TABLE)))
;       (DECLARE (TYPE SB!INT:INDEX SB!INT:INDEX SB!IMPL::NEXT))
;       (WHEN (SB!EXT:HASH-TABLE-WEAKNESS HASH-TABLE)
;         (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR
;          SB!VM:VECTOR-VALID-HASHING-SUBTYPE))
;       (COND
;        ((OR SB!IMPL::EQ-BASED (NOT SB!IMPL::HASH-VECTOR))
;         (WHEN SB!IMPL::EQ-BASED
;           (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR
;            SB!VM:VECTOR-VALID-HASHING-SUBTYPE))
;         (DO (#
;              #)
;             (#)
;           (DECLARE #)
;           (WHEN # #)
;           (WHEN # # # #)))
;        (T
;         (DO (#
;              #)
;             (#)
;           (DECLARE #)
;           (WHEN # #)
;           (WHEN # # # #))))
;       (LET ((SB!IMPL::FREE-KV-SLOT (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)))
;         (DECLARE (TYPE SB!IMPL::INDEX/2 SB!IMPL::FREE-KV-SLOT))
;         (SB!INT:AVER (NOT (ZEROP SB!IMPL::FREE-KV-SLOT)))
;         (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
;                 (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT))
;         (INCF (SB!IMPL::HASH-TABLE-NUMBER-ENTRIES HASH-TABLE))
;         (SB!IMPL::UPDATE-HASH-TABLE-CACHE HASH-TABLE (* 2 SB!IMPL::FREE-KV-SLOT))
;         (SETF (AREF SB!IMPL::KV-VECTOR #) SB!IMPL::KEY)
;         (SETF (AREF SB!IMPL::KV-VECTOR #) SB!IMPL::VALUE)
;         (WHEN SB!IMPL::HASH-VECTOR
;           (IF (NOT SB!IMPL::EQ-BASED)
;               (SETF #)
;               (SB!INT:AVER #)))
;         (SETF (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT) SB!IMPL::NEXT)
;         (SETF (AREF SB!IMPL::INDEX-VECTOR SB!INT:INDEX) SB!IMPL::FREE-KV-SLOT)))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G718 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN %%PUTHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %PUTHASH
;     (SB!IMPL::PUT-IT NIL)
; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK 
; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* LET SETF LET* 
; --> FUNCALL SB!C::%FUNCALL (SETF SB!IMPL::HASH-TABLE-NEXT-FREE-KV) LET 
; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G845 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK 
; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* COND IF COND 
; --> THE PROGN DO BLOCK LET TAGBODY TAGBODY WHEN IF AND IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK 
; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G830 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN %PUTHASH ...)
; x-compiling (DECLAIM (MAYBE-INLINE %REMHASH))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %REMHASH
;     (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL)
; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = 
; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF 
; --> THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code
; x-compiling (DEFUN %REMHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN REMHASH
;     (SB!IMPL::%REMHASH SB!IMPL::KEY HASH-TABLE)
; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN 
; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET BLOCK WHEN IF 
; --> PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = 
; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF 
; --> THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN 
; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code
; x-compiling (DEFUN REMHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN CLRHASH
;     (SB!IMPL::WITH-HASH-TABLE-LOCKS (HASH-TABLE)
;      (LET* ((SB!IMPL::KV-VECTOR (SB!IMPL::HASH-TABLE-TABLE HASH-TABLE))
;             (SB!IMPL::NEXT-VECTOR (SB!IMPL::HASH-TABLE-NEXT-VECTOR HASH-TABLE))
;             (SB!IMPL::HASH-VECTOR (SB!IMPL::HASH-TABLE-HASH-VECTOR HASH-TABLE))
;             (SB!IMPL::SIZE (LENGTH SB!IMPL::NEXT-VECTOR))
;             (SB!IMPL::INDEX-VECTOR (SB!IMPL::HASH-TABLE-INDEX-VECTOR HASH-TABLE)))
;        (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR SB!VM:VECTOR-NORMAL-SUBTYPE)
;        (SB!INT:AVER (EQ (AREF SB!IMPL::KV-VECTOR 0) HASH-TABLE))
;        (FILL SB!IMPL::KV-VECTOR SB!INT:+EMPTY-HT-SLOT+ :START 2)
;        (DO ((SB!IMPL::I 1 #)) ((>= SB!IMPL::I #)) (SETF # #))
;        (SETF (AREF SB!IMPL::NEXT-VECTOR #) 0)
;        (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE) 1)
;        (FILL SB!IMPL::INDEX-VECTOR 0)
;        (WHEN SB!IMPL::HASH-VECTOR
;          (FILL SB!IMPL::HASH-VECTOR SB!IMPL::+MAGIC-HASH-VECTOR-VALUE+)))
;      (SETF (SB!IMPL::HASH-TABLE-CACHE HASH-TABLE) NIL)
;      (SETF (SB!IMPL::HASH-TABLE-NUMBER-ENTRIES HASH-TABLE) 0))
; --> FLET IF SB!SYS:WITH-PINNED-OBJECTS LET LIST* SB!VM::*PINNED-OBJECTS* 
; ==>
;   (SYMBOL-VALUE 'SB!VM::*PINNED-OBJECTS*)
; 
; note: could not stack allocate:
;        (WITH-HASH-TABLE-LOCKS (HASH-TABLE)
;         (LET* ((KV-VECTOR #)
;                (NEXT-VECTOR #)
;                (HASH-VECTOR #)
;                (SIZE #)
;                (INDEX-VECTOR #))
;           (SET-HEADER-DATA KV-VECTOR SB!VM:VECTOR-NORMAL-SUBTYPE)
;           (AVER (EQ # HASH-TABLE))
;           (FILL KV-VECTOR +EMPTY-HT-SLOT+ :START 2)
;           ...)
;         (SETF (HASH-TABLE-CACHE HASH-TABLE) NIL)
;         (SETF (HASH-TABLE-NUMBER-ENTRIES HASH-TABLE) 0))
; x-compiling (DEFUN CLRHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DECLAIM (INLINE MAPHASH)
;     (DECLAIM (INLINE MAPHASH))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE MAPHASH) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:MAPHASH to be INLINE, but 28 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE MAPHASH))
; x-compiling (DEFUN MAPHASH ...)
; x-compiling (DEFUN %HASH-TABLE-CTOR-ARGS ...)
; x-compiling (DEFUN %STUFF-HASH-TABLE ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 23 notes
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-hash-table.lisp-obj-tmp written
; compilation finished in 0:00:10.151
; compiling file "/«PKGBUILDDIR»/src/code/reader.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *READ-DEFAULT-FLOAT-FORMAT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *READTABLE*)
; x-compiling (DECLAIM (TYPE READTABLE ...))
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...)
; x-compiling (DEFUN READER-EOF-ERROR ...)
; x-compiling (DEFUN SIMPLE-READER-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-CAT-ENTRY ...)
; x-compiling (DEFUN SET-CAT-ENTRY ...)
; x-compiling (DEFUN SET-CMT-ENTRY ...)
; x-compiling (DEFUN GET-RAW-CMT-ENTRY ...)
; x-compiling (DEFUN GET-RAW-CMT-DISPATCH-ENTRY ...)
; x-compiling (DEFMACRO !COERCE-TO-CMT-ENTRY ...)
; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUNCTION ...)
; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUN-DESIGNATOR ...)
; x-compiling (DEFMACRO TEST-ATTRIBUTE ...)

; file: /«PKGBUILDDIR»/src/code/reader.lisp
; in: PROGN (DECLAIM (INLINE WHITESPACE[1]P WHITESPACE[2]P))
;     (DECLAIM (INLINE SB!IMPL::WHITESPACE[1]P SB!IMPL::WHITESPACE[2]P))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::WHITESPACE[1]P SB!IMPL::WHITESPACE[2]P)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::WHITESPACE[1]P to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE WHITESPACE[1]P ...))
; x-compiling (DECLAIM (INLINE CONSTITUENTP ...))
; x-compiling (DECLAIM (INLINE SINGLE-ESCAPE-P ...))
; x-compiling (DECLAIM (INLINE TOKEN-DELIMITERP))
; x-compiling (DEFUN WHITESPACE[1]P ...)
; x-compiling (DEFUN WHITESPACE[2]P ...)
; x-compiling (DEFUN CONSTITUENTP ...)
; x-compiling (DEFUN TERMINATING-MACROP ...)
; x-compiling (DEFUN SINGLE-ESCAPE-P ...)
; x-compiling (DEFUN MULTIPLE-ESCAPE-P ...)
; x-compiling (DEFUN TOKEN-DELIMITERP ...)
; x-compiling (DECLAIM (TYPE ATTRIBUTE-TABLE ...))
; x-compiling (DEFGLOBAL *CONSTITUENT-TRAIT-TABLE* ...)
; x-compiling (DEFUN !SET-CONSTITUENT-TRAIT ...)
; x-compiling (DEFUN !COLD-INIT-CONSTITUENT-TRAIT-TABLE ...)
; x-compiling (DECLAIM (INLINE GET-CONSTITUENT-TRAIT))
; x-compiling (DEFUN GET-CONSTITUENT-TRAIT ...)
; x-compiling (DEFUN ASSERT-NOT-STANDARD-READTABLE ...)
; x-compiling (DEFUN READTABLE-CASE ...)
; x-compiling (DEFUN (SETF READTABLE-CASE) ...)
; x-compiling (DEFUN READTABLE-NORMALIZATION ...)
; x-compiling (DEFUN (SETF READTABLE-NORMALIZATION) ...)
; x-compiling (DEFUN REPLACE/EQL-HASH-TABLE ...)
; x-compiling (DEFUN %MAKE-DISPATCH-MACRO-CHAR ...)
; x-compiling (DEFUN %DISPATCH-MACRO-CHAR-TABLE ...)
; x-compiling (DEFUN COPY-CMT-ENTRY ...)
; x-compiling (DEFUN COPY-READTABLE ...)
; x-compiling (DEFUN SET-SYNTAX-FROM-CHAR ...)
; x-compiling (DEFUN SET-MACRO-CHARACTER ...)
; x-compiling (DEFUN GET-MACRO-CHARACTER ...)
; x-compiling (DEFUN GET-DISPATCH-MACRO-CHAR-TABLE ...)
; x-compiling (DEFUN MAKE-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFUN SET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFUN GET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFCONSTANT +EOF+ ...)
; x-compiling (DEFUN FLUSH-WHITESPACE ...)
; x-compiling (DEFUN !COLD-INIT-STANDARD-READTABLE ...)
; x-compiling (DEFSTRUCT (TOKEN-BUF # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE TOKEN-BUF))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (TYPE TOKEN-BUF ...))
; x-compiling (DEFVAR *READ-BUFFER*)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *TOKEN-BUF-POOL* ...)
; x-compiling (DEFUN RESET-READ-BUFFER ...)
; x-compiling (DECLAIM (INLINE OUCH-READ-BUFFER))
; x-compiling (DEFUN OUCH-READ-BUFFER ...)
; x-compiling (DEFUN OUCH-READ-BUFFER-ESCAPED ...)
; x-compiling (DEFUN GROW-READ-BUFFER ...)
; x-compiling (DECLAIM (MAYBE-INLINE TOKEN-BUF-GETCHAR))
; x-compiling (DEFUN TOKEN-BUF-GETCHAR ...)
; x-compiling (DEFUN ACQUIRE-TOKEN-BUF ...)
; x-compiling (DEFUN RELEASE-TOKEN-BUF ...)
; x-compiling (DEFUN COPY-TOKEN-BUF-STRING ...)
; x-compiling (DEFUN SIZED-TOKEN-BUF-STRING ...)
; x-compiling (DEFMACRO WITH-READ-BUFFER ...)
; x-compiling (DEFUN CHECK-FOR-RECURSIVE-READ ...)
; x-compiling (DEFVAR *SHARP-EQUAL-ALIST* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %READ-PRESERVING-WHITESPACE ...)
; x-compiling (DEFUN READ-PRESERVING-WHITESPACE ...)
; x-compiling (DEFUN READ-MAYBE-NOTHING ...)
; x-compiling (DEFUN READ ...)
; x-compiling (DEFUN READ-QUOTE ...)
; x-compiling (DEFUN READ-COMMENT ...)
; x-compiling (DEFUN READ-LIST ...)
; x-compiling (DEFUN READ-DELIMITED-LIST ...)
; x-compiling (DEFUN READ-AFTER-DOT ...)
; x-compiling (DEFUN READ-STRING ...)
; x-compiling (DEFUN READ-RIGHT-PAREN ...)
; x-compiling (DEFUN INTERNAL-READ-EXTENDED-TOKEN ...)
; x-compiling (DEFMACRO CHAR-CLASS ...)
; x-compiling (DEFMACRO CHAR-CLASS2 ...)
; x-compiling (DEFMACRO CHAR-CLASS3 ...)
; x-compiling (DEFVAR *READ-SUPPRESS* ...)
; x-compiling (DEFVAR *READ-BASE* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN NORMALIZE-READ-BUFFER ...)
; x-compiling (DEFUN CASIFY-READ-BUFFER ...)
; x-compiling (DEFVAR *READER-PACKAGE* ...)
; x-compiling (DECLAIM (TYPE # ...) ...)
; x-compiling (DEFUN READER-FIND-PACKAGE ...)
; x-compiling (DEFUN READ-TOKEN ...)
; x-compiling (DEFUN READ-EXTENDED-TOKEN ...)
; x-compiling (DEFUN READ-EXTENDED-TOKEN-ESCAPED ...)
; x-compiling (DEFMACRO !SETQ-OPTIONAL-LEADING-SIGN ...)
; x-compiling (DEFUN MAKE-INTEGER ...)
; x-compiling (DEFUN TRUNCATE-EXPONENT ...)
; x-compiling (DEFUN MAKE-FLOAT ...)
; x-compiling (DEFUN MAKE-FLOAT-AUX ...)
; x-compiling (DEFUN MAKE-RATIO ...)
; x-compiling (DEFUN DISPATCH-CHAR-ERROR ...)
; x-compiling (DEFUN READ-DISPATCH-CHAR ...)
; x-compiling (DEFUN MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %READ-FROM-STRING ...)
; x-compiling (DEFUN READ-FROM-STRING ...)

; file: /«PKGBUILDDIR»/src/code/reader.lisp
; in: DEFINE-COMPILER-MACRO READ-FROM-STRING
;     (DEFINE-COMPILER-MACRO READ-FROM-STRING
;         (&WHOLE SB!KERNEL:FORM STRING &REST SB!IMPL::ARGS)
;       (DESTRUCTURING-BIND
;           (&OPTIONAL (SB!IMPL::EOF-ERROR-P T) SB!IMPL::EOF-VALUE
;            &REST SB!IMPL::KEYS)
;           SB!IMPL::ARGS
;         (COND
;          ((SB!IMPL::MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE
;            SB!IMPL::EOF-ERROR-P)
;           (SB!INT:QUASIQUOTE #))
;          (T
;           (LET* #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'READ-FROM-STRING
;                                 #'(LAMBDA (#:WHOLE1884 #:ENVIRONMENT1885)
;                                     (DECLARE (IGNORE #:ENVIRONMENT1885))
;                                     (LET* ((#:CMACRO-&WHOLE130086 #:WHOLE1884)
;                                            (#:WHOLE1884 #))
;                                       (DECLARE
;                                        (IGNORABLE #:CMACRO-&WHOLE130086))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK READ-FROM-STRING #))))
;                                 '(&WHOLE SB!KERNEL:FORM STRING &REST
;                                   SB!IMPL::ARGS)
;                                 NIL '(COMPILER-MACRO-FUNCTION READ-FROM-STRING))
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE
; 
; caught STYLE-WARNING:
;   2 calls to COMMON-LISP:READ-FROM-STRING were compiled before a compiler-macro
;   was defined for it. A declaration of NOTINLINE at the call sites will eliminate
;   this warning, as will defining the compiler-macro before its first potential
;   use.
; x-compiling (DEFINE-COMPILER-MACRO READ-FROM-STRING ...)
; x-compiling (DEFUN PARSE-INTEGER ...)
; x-compiling (DEFUN !READER-COLD-INIT ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DISPATCH-TABLES ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN (SETF DISPATCH-TABLES) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/reader.lisp-obj-tmp written
; compilation finished in 0:00:13.524
; compiling file "/«PKGBUILDDIR»/src/code/target-stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-PEEK-CHAR))
; x-compiling (DEFUN ANSI-STREAM-PEEK-CHAR ...)

; file: /«PKGBUILDDIR»/src/code/target-stream.lisp
; in: DEFUN PEEK-CHAR
;     (SB!GRAY:STREAM-UNREAD-CHAR STREAM CHAR)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!GRAY:STREAM-PEEK-CHAR STREAM)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN PEEK-CHAR ...)
; 
; compilation unit finished
;   printed 3 notes
; x-compiling (DEFUN ECHO-MISC ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-stream.lisp-obj-tmp written
; compilation finished in 0:00:01.242
; compiling file "/«PKGBUILDDIR»/src/code/target-pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (FREEZE-TYPE LOGICAL-PATHNAME ...))
; x-compiling (DEFVAR *PHYSICAL-HOST*)
; x-compiling (DEFUN MAKE-HOST-LOAD-FORM ...)
; x-compiling (DEFUN MAKE-TRIVIAL-DEFAULT-PATHNAME ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; x-compiling (DEFUN %MAKE-MAYBE-LOGICAL-PATHNAME ...)
; x-compiling (DEFVAR *LOGICAL-HOSTS* ...)
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN PATTERN= ...)
; x-compiling (DEFUN PATTERN-MATCHES ...)
; x-compiling (DEFUN DIRECTORY-COMPONENTS-MATCH ...)
; x-compiling (DEFUN COMPONENTS-MATCH ...)
; x-compiling (DEFUN COMPARE-COMPONENT ...)
; x-compiling (DEFUN PATHNAME= ...)
; x-compiling (DEFUN FIND-HOST ...)
; x-compiling (DEFUN PATHNAME ...)
; x-compiling (DEFUN NATIVE-PATHNAME ...)
; x-compiling (DEFUN MAYBE-DIDDLE-CASE ...)
; x-compiling (DEFUN MERGE-DIRECTORIES ...)
; x-compiling (DEFUN MERGE-PATHNAMES ...)
; x-compiling (DEFUN IMPORT-DIRECTORY ...)
; x-compiling (DEFUN MAKE-PATHNAME ...)
; x-compiling (DEFUN PATHNAME-HOST ...)
; x-compiling (DEFUN PATHNAME-DEVICE ...)
; x-compiling (DEFUN PATHNAME-DIRECTORY ...)
; x-compiling (DEFUN PATHNAME-NAME ...)
; x-compiling (DEFUN PATHNAME-TYPE ...)
; x-compiling (DEFUN PATHNAME-VERSION ...)
; x-compiling (DEFUN PARSEABLE-LOGICAL-NAMESTRING-P ...)
; x-compiling (DEFUN %PARSE-NAMESTRING ...)
; x-compiling (DEFUN EXTRACT-LOGICAL-HOST-PREFIX ...)
; x-compiling (DEFUN PARSE-NAMESTRING ...)
; x-compiling (DEFUN %PARSE-NATIVE-NAMESTRING ...)

; file: /«PKGBUILDDIR»/src/code/target-pathname.lisp
; in: DEFUN PARSE-NATIVE-NAMESTRING
;     (DEFUN SB!EXT:PARSE-NATIVE-NAMESTRING
;            (SB!IMPL::THING
;             &OPTIONAL SB!KERNEL:HOST
;             (SB!IMPL::DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)
;             &KEY (SB!IMPL::START 0) SB!IMPL::END SB!IMPL::JUNK-ALLOWED
;             SB!IMPL::AS-DIRECTORY)
;       "Convert THING into a pathname, using the native conventions
;   appropriate for the pathname host HOST, or if not specified the
;   host of DEFAULTS.  If THING is a string, the parse is bounded by
;   START and END, and error behaviour is controlled by JUNK-ALLOWED,
;   as with PARSE-NAMESTRING.  For file systems whose native
;   conventions allow directories to be indicated as files, if
;   AS-DIRECTORY is true, return a pathname denoting THING as a
;   directory."
;       (DECLARE
;        (TYPE SB!KERNEL:PATHNAME-DESIGNATOR SB!IMPL::THING SB!IMPL::DEFAULTS)
;        (TYPE (OR LIST SB!KERNEL:HOST STRING (MEMBER :UNSPECIFIC)) SB!KERNEL:HOST)
;        (TYPE SB!INT:INDEX SB!IMPL::START)
;        (TYPE (OR SB!INT:INDEX NULL) SB!IMPL::END)
;        (TYPE (OR T NULL) SB!IMPL::JUNK-ALLOWED)
;        (VALUES (OR NULL PATHNAME) (OR NULL SB!INT:INDEX)))
;       (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST)
;        (LET ((SB!IMPL::DEFAULTS #))
;          (DECLARE (TYPE PATHNAME SB!IMPL::DEFAULTS))
;          (ETYPECASE SB!IMPL::THING
;            (SIMPLE-STRING #)
;            (STRING #)
;            (PATHNAME # #)
;            (STREAM #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 536870909)) &REST T)
;        (PROGN
;         (BLOCK SB!EXT:PARSE-NATIVE-NAMESTRING
;           (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST)
;            (LET #
;              #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 536870909)) &REST ...).
; x-compiling (DEFUN PARSE-NATIVE-NAMESTRING ...)
; x-compiling (DEFUN NAMESTRING ...)
; x-compiling (DEFUN NATIVE-NAMESTRING ...)
; x-compiling (DEFUN HOST-NAMESTRING ...)
; x-compiling (DEFUN DIRECTORY-NAMESTRING ...)
; x-compiling (DEFUN FILE-NAMESTRING ...)
; x-compiling (DEFUN ENOUGH-NAMESTRING ...)
; x-compiling (DEFUN WILD-PATHNAME-P ...)
; x-compiling (DEFUN PATHNAME-MATCH-P ...)
; x-compiling (DEFUN SUBSTITUTE-INTO ...)
; x-compiling (DEFUN DIDNT-MATCH-ERROR ...)
; x-compiling (DEFUN TRANSLATE-COMPONENT ...)
; x-compiling (DEFUN COMPUTE-DIRECTORY-SUBSTITUTIONS ...)
; x-compiling (DEFUN TRANSLATE-DIRECTORIES ...)
; x-compiling (DEFUN TRANSLATE-PATHNAME ...)
; x-compiling (DEFUN SIMPLIFY-NAMESTRING ...)
; x-compiling (DEFUN LOGICAL-WORD-OR-LOSE ...)
; x-compiling (DEFUN FIND-LOGICAL-HOST ...)

; file: /«PKGBUILDDIR»/src/code/target-pathname.lisp
; in: DEFUN INTERN-LOGICAL-HOST
;     (DEFUN SB!IMPL::INTERN-LOGICAL-HOST (SB!IMPL::THING)
;       (DECLARE (VALUES SB!KERNEL:LOGICAL-HOST))
;       (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*)
;         (OR (SB!IMPL::FIND-LOGICAL-HOST SB!IMPL::THING NIL)
;             (LET* (# #)
;               (SETF #)
;               SB!IMPL::NEW))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES SB!KERNEL:LOGICAL-HOST &REST T)
;        (PROGN
;         (BLOCK SB!IMPL::INTERN-LOGICAL-HOST
;           (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*)
;             (OR # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LOGICAL-HOST &REST T).
; x-compiling (DEFUN INTERN-LOGICAL-HOST ...)
; x-compiling (DEFUN MAYBE-MAKE-LOGICAL-PATTERN ...)
; x-compiling (DEFUN LOGICAL-CHUNKIFY ...)
; x-compiling (DEFUN PARSE-LOGICAL-NAMESTRING ...)
; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS*)
; x-compiling (DEFUN LOGICAL-NAMESTRING-P ...)
; x-compiling (DEFTYPE LOGICAL-NAMESTRING ...)
; x-compiling (DEFUN LOGICAL-PATHNAME ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-DIRECTORY ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-PIECE ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-FILE ...)
; x-compiling (DEFUN UNPARSE-ENOUGH-NAMESTRING ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-NAMESTRING ...)
; x-compiling (DEFUN CANONICALIZE-LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFUN LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFUN (SETF LOGICAL-PATHNAME-TRANSLATIONS) ...)
; x-compiling (DEFUN TRANSLATE-LOGICAL-PATHNAME ...)
; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS* ...)
; x-compiling (DEFUN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFUN !PATHNAME-COLD-INIT ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN SET-SBCL-SOURCE-LOCATION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-pathname.lisp-obj-tmp written
; compilation finished in 0:00:13.014
; compiling file "/«PKGBUILDDIR»/src/code/unix-pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!STRUCT (UNIX-HOST # ...))
; x-compiling (DEFVAR *PHYSICAL-HOST* ...)
; x-compiling (DEFUN SPLIT-AT-SLASHES ...)
; x-compiling (DEFUN PARSE-UNIX-NAMESTRING ...)
; x-compiling (DEFUN PARSE-NATIVE-UNIX-NAMESTRING ...)
; x-compiling (/SHOW0 "filesys.lisp 300")
; x-compiling (DEFUN UNPARSE-UNIX-HOST ...)
; x-compiling (DEFUN UNPARSE-UNIX-DIRECTORY ...)
; x-compiling (DEFUN UNPARSE-UNIX-FILE ...)
; x-compiling (/SHOW0 "filesys.lisp 406")
; x-compiling (DEFUN UNPARSE-UNIX-NAMESTRING ...)
; x-compiling (DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ...)
; x-compiling (DEFUN UNPARSE-UNIX-ENOUGH ...)
; x-compiling (DEFUN SIMPLIFY-UNIX-NAMESTRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unix-pathname.lisp-obj-tmp written
; compilation finished in 0:00:04.125
; compiling file "/«PKGBUILDDIR»/src/code/filesys.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN REMOVE-ESCAPE-CHARACTERS ...)
; x-compiling (DEFUN MAYBE-MAKE-PATTERN ...)
; x-compiling (DEFUN UNPARSE-PHYSICAL-PIECE ...)
; x-compiling (DEFUN MAKE-MATCHER ...)
; x-compiling (/SHOW0 "filesys.lisp 160")
; x-compiling (DEFUN EXTRACT-NAME-TYPE-AND-VERSION ...)
; x-compiling (/SHOW0 "filesys.lisp 200")
; x-compiling (DEFUN NATIVE-FILE-KIND ...)
; x-compiling (DEFUN QUERY-FILE-SYSTEM ...)
; x-compiling (DEFUN PROBE-FILE ...)
; x-compiling (DEFUN TRUENAME ...)
; x-compiling (DEFUN FILE-AUTHOR ...)
; x-compiling (DEFUN FILE-WRITE-DATE ...)
; x-compiling (/SHOW0 "filesys.lisp 700")
; x-compiling (DEFUN RENAME-FILE ...)
; x-compiling (DEFUN DELETE-FILE ...)
; x-compiling (DEFUN DIRECTORIZE-PATHNAME ...)
; x-compiling (DEFUN DELETE-DIRECTORY ...)
; x-compiling (DEFUN SBCL-HOMEDIR-PATHNAME ...)
; x-compiling (DEFUN USER-HOMEDIR-NAMESTRING ...)
; x-compiling (DEFUN USER-HOMEDIR-PATHNAME ...)
; x-compiling (DEFUN DIRECTORY ...)
; x-compiling (DEFUN CANONICALIZE-PATHNAME ...)
; x-compiling (DEFMACRO WITH-NATIVE-DIRECTORY-ITERATOR ...)
; x-compiling (DEFUN CALL-WITH-NATIVE-DIRECTORY-ITERATOR ...)
; x-compiling (DEFUN MAP-DIRECTORY ...)
; x-compiling (DEFUN MAP-MATCHING-DIRECTORIES ...)
; x-compiling (DEFUN LAST-DIRECTORY-PIECE ...)
; x-compiling (DEFUN MAP-WILD ...)
; x-compiling (DEFUN MAP-WILD-INFERIORS ...)
; x-compiling (DEFUN MAP-MATCHING-ENTRIES ...)

; file: /«PKGBUILDDIR»/src/code/filesys.lisp
; in: DEFUN PATHNAME-INTERSECTIONS
;     (COND ((EQ SB!IMPL::ONE :WILD) SB!IMPL::TWO)
;           ((EQ SB!IMPL::TWO :WILD) SB!IMPL::ONE)
;           ((OR (NULL SB!IMPL::ONE) (EQ SB!IMPL::ONE :UNSPECIFIC)) SB!IMPL::TWO)
;           ((OR (NULL SB!IMPL::TWO) (EQ SB!IMPL::TWO :UNSPECIFIC)) SB!IMPL::ONE)
;           (T (SB!INT:AVER (EQ (CAR SB!IMPL::ONE) (CAR SB!IMPL::TWO)))
;            (MAPCAR (LAMBDA (SB!IMPL::X) (CONS # SB!IMPL::X))
;                    (SB!IMPL::INTERSECT-DIRECTORY-HELPER (CDR SB!IMPL::ONE)
;                     (CDR SB!IMPL::TWO)))))
; --> IF PROGN 
; ==>
;   SB!IMPL::TWO
; 
; note: deleting unreachable code

; --> IF COND IF PROGN 
; ==>
;   SB!IMPL::ONE
; 
; note: deleting unreachable code
; x-compiling (DEFUN PATHNAME-INTERSECTIONS ...)
; x-compiling (DEFUN INTERSECT-DIRECTORY-HELPER ...)
; x-compiling (DEFUN DIRECTORY-PATHNAME-P ...)
; x-compiling (DEFUN ENSURE-DIRECTORIES-EXIST ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (/SHOW0 "filesys.lisp 1000")

; /«PKGBUILDDIR»/obj/from-xc/src/code/filesys.lisp-obj-tmp written
; compilation finished in 0:00:05.476
; compiling file "/«PKGBUILDDIR»/src/code/save.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-ALIEN-ROUTINE "save" ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "gc_and_save" ...)
; x-compiling (DEFVAR SB!VM::*RESTART-LISP-FUNCTION*)
; x-compiling (DEFINE-CONDITION SAVE-CONDITION ...)
; x-compiling (DEFINE-CONDITION SAVE-ERROR ...)
; x-compiling (DEFINE-CONDITION SAVE-WITH-MULTIPLE-THREADS-ERROR ...)
; x-compiling (DEFUN SAVE-LISP-AND-DIE ...)
; x-compiling (DEFUN DEINIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/save.lisp-obj-tmp written
; compilation finished in 0:00:01.592
; compiling file "/«PKGBUILDDIR»/src/code/sharpm.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (SPECIAL *READ-SUPPRESS*))
; x-compiling (DEFUN IGNORE-NUMARG ...)
; x-compiling (DEFUN SHARP-LEFT-PAREN ...)
; x-compiling (DEFUN SHARP-STAR ...)
; x-compiling (DEFUN SHARP-A ...)
; x-compiling (DEFUN SHARP-S ...)
; x-compiling (DEFUN SHARP-B ...)
; x-compiling (DEFUN SHARP-C ...)
; x-compiling (DEFUN SHARP-O ...)
; x-compiling (DEFUN SHARP-R ...)
; x-compiling (DEFUN SHARP-X ...)
; x-compiling (DEFVAR *SHARP-EQUAL-CIRCLE-TABLE*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFUN CIRCLE-SUBST ...)
; x-compiling (DEFVAR *SHARP-SHARP-ALIST* ...)
; x-compiling (DEFUN SHARP-EQUAL ...)
; x-compiling (DEFUN SHARP-SHARP ...)
; x-compiling (DEFUN SHARP-PLUS-MINUS ...)
; x-compiling (DEFUN SHARP-P ...)
; x-compiling (DEFUN SHARP-BACKSLASH ...)
; x-compiling (DEFUN SHARP-VERTICAL-BAR ...)
; x-compiling (DEFUN SHARP-QUOTE ...)
; x-compiling (DEFUN SHARP-COLON ...)
; x-compiling (DEFVAR *READ-EVAL* ...)
; x-compiling (DEFUN SHARP-DOT ...)
; x-compiling (DEFUN SHARP-ILLEGAL ...)
; x-compiling (DEFUN !SHARPM-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sharpm.lisp-obj-tmp written
; compilation finished in 0:00:01.646
; compiling file "/«PKGBUILDDIR»/src/code/alloc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DECLAIM (INLINE STORE-WORD))
; x-compiling (DEFUN STORE-WORD ...)
; x-compiling (DEFUN ALLOCATE-STATIC-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00.211
; compiling file "/«PKGBUILDDIR»/src/code/early-step.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *STEPPING* ...)
; x-compiling (DEFVAR *STEP-OUT* ...)
; x-compiling (DEFUN (SETF STEPPING) ...)
; x-compiling (DEFUN STEPPING-ENABLED-P ...)
; x-compiling (DEFUN ENABLE-STEPPING ...)
; x-compiling (DEFUN DISABLE-STEPPING ...)
; x-compiling (DEFMACRO WITH-STEPPING-ENABLED ...)
; x-compiling (DEFMACRO WITH-STEPPING-DISABLED ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-step.lisp-obj-tmp written
; compilation finished in 0:00:00.138
; compiling file "/«PKGBUILDDIR»/src/code/target-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (DEFMACRO WITH-CAS-LOCK ...)
; x-compiling (DEFMACRO %WITH-CAS-LOCK ...)
; x-compiling (DEFINE-CONDITION THREAD-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-THREAD-ERROR ...)
; x-compiling (DEFINE-CONDITION THREAD-DEADLOCK ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFINE-CONDITION SYMBOL-VALUE-IN-THREAD-ERROR ...)
; x-compiling (DEFINE-CONDITION JOIN-THREAD-ERROR ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...)
; x-compiling (DEFINE-CONDITION INTERRUPT-THREAD-ERROR ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN PRINT-LOCK ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN THREAD-ALIVE-P ...)
; x-compiling (DEFUN THREAD-EPHEMERAL-P ...)
; x-compiling (DEFVAR *ALL-THREADS* ...)
; x-compiling (DEFVAR *ALL-THREADS-LOCK* ...)
; x-compiling (DEFVAR *DEFAULT-ALLOC-SIGNAL* ...)
; x-compiling (DEFMACRO WITH-ALL-THREADS-LOCK ...)
; x-compiling (DEFUN LIST-ALL-THREADS ...)
; x-compiling (DECLAIM (INLINE CURRENT-THREAD-SAP))
; x-compiling (DEFUN CURRENT-THREAD-SAP ...)
; x-compiling (DECLAIM (INLINE CURRENT-THREAD-OS-THREAD))
; x-compiling (DEFUN CURRENT-THREAD-OS-THREAD ...)
; x-compiling (DEFVAR *INITIAL-THREAD* ...)
; x-compiling (DEFVAR *MAKE-THREAD-LOCK*)
; x-compiling (DEFUN INIT-INITIAL-THREAD ...)
; x-compiling (DEFUN MAIN-THREAD ...)
; x-compiling (DEFUN MAIN-THREAD-P ...)
; x-compiling (DEFMACRO RETURN-FROM-THREAD ...)
; x-compiling (DEFUN %RETURN-FROM-THREAD ...)
; x-compiling (DEFUN ABORT-THREAD ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "kill_safely" ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "wake_thread" ...)

; file: /«PKGBUILDDIR»/src/code/target-thread.lisp
; in: DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)
;     (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!VM::CURRENT-THREAD-OFFSET-SAP to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP))
; x-compiling (DEFUN SB!VM::CURRENT-THREAD-OFFSET-SAP ...)
; x-compiling (DEFMACRO WITH-DEADLOCKS ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN MUTEX-OWNER ...)
; x-compiling (SB!EXT:DEFGLOBAL **DEADLOCK-LOCK** ...)
; x-compiling (DEFUN CHECK-DEADLOCK ...)
; x-compiling (DEFUN %TRY-MUTEX ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFUN GRAB-MUTEX ...)
; x-compiling (DEFUN RELEASE-MUTEX ...)
; x-compiling (DECLAIM (INLINE MAKE-WAITQUEUE))

; file: /«PKGBUILDDIR»/src/code/target-thread.lisp
; in: DEFSTRUCT WAITQUEUE
;     (DEFSTRUCT
;         (SB!THREAD:WAITQUEUE
;          (:CONSTRUCTOR SB!THREAD:MAKE-WAITQUEUE (&KEY SB!THREAD::NAME)))
;       "Waitqueue type."
;       (SB!THREAD::NAME NIL :TYPE (OR NULL SB!THREAD:THREAD-NAME)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!THREAD:WAITQUEUE {52AD25F1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F65361}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53DFC249}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!THREAD::WAITQUEUE-P could not be inlined because
;   the structure definition for SB!THREAD:WAITQUEUE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (WAITQUEUE #) ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-WAITQUEUE))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN CONDITION-WAIT ...)
; x-compiling (DEFUN CONDITION-NOTIFY ...)
; x-compiling (DEFUN CONDITION-BROADCAST ...)
; x-compiling (DECLAIM (INLINE MAKE-SEMAPHORE))
; x-compiling (DEFSTRUCT (SEMAPHORE #) ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-SEMAPHORE))
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFSTRUCT (SEMAPHORE-NOTIFICATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DECLAIM (INLINE SEMAPHORE-NOTIFICATION-STATUS))
; x-compiling (DEFUN SEMAPHORE-NOTIFICATION-STATUS ...)
; x-compiling (DECLAIM (INLINE CLEAR-SEMAPHORE-NOTIFICATION))
; x-compiling (DEFUN CLEAR-SEMAPHORE-NOTIFICATION ...)
; x-compiling (DECLAIM (INLINE SEMAPHORE-COUNT))
; x-compiling (DEFUN SEMAPHORE-COUNT ...)
; x-compiling (DEFUN WAIT-ON-SEMAPHORE ...)
; x-compiling (DEFUN TRY-SEMAPHORE ...)
; x-compiling (DEFUN SIGNAL-SEMAPHORE ...)
; x-compiling (DEFSTRUCT SESSION ...)
; x-compiling (DEFVAR *SESSION* ...)
; x-compiling (DEFMACRO WITH-SESSION-LOCK ...)
; x-compiling (DEFUN NEW-SESSION ...)
; x-compiling (DEFUN INIT-JOB-CONTROL ...)
; x-compiling (DEFUN %DELETE-THREAD-FROM-SESSION ...)
; x-compiling (DEFUN CALL-WITH-NEW-SESSION ...)
; x-compiling (DEFMACRO WITH-NEW-SESSION ...)
; x-compiling (DEFUN %EXIT-OTHER-THREADS ...)
; x-compiling (DEFUN TERMINATE-SESSION ...)
; x-compiling (DEFUN DEBUGGER-WAIT-UNTIL-FOREGROUND-THREAD ...)
; x-compiling (DEFUN GET-FOREGROUND ...)
; x-compiling (DEFUN RELEASE-FOREGROUND ...)
; x-compiling (DEFUN INTERACTIVE-THREADS ...)
; x-compiling (DEFUN FOREGROUND-THREAD ...)
; x-compiling (DEFUN MAKE-LISTENER-THREAD ...)
; x-compiling (DEFUN MAKE-THREAD ...)
; x-compiling (DEFUN JOIN-THREAD ...)
; x-compiling (DEFUN DESTROY-THREAD ...)
; x-compiling (DEFMACRO WITH-INTERRUPTIONS-LOCK ...)
; x-compiling (DEFUN RUN-INTERRUPTION ...)

; file: /«PKGBUILDDIR»/src/code/target-thread.lisp
; in: DEFUN INTERRUPT-THREAD
;     'SB!THREAD:INTERRUPT-THREAD-ERROR
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERRUPT-THREAD ...)
; x-compiling (DEFUN TERMINATE-THREAD ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "thread_yield" ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN SYMBOL-VALUE-IN-THREAD ...)
; x-compiling (DEFUN (SETF SYMBOL-VALUE-IN-THREAD) ...)
; x-compiling (DEFUN THREAD-STEPPING ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFUN (SETF THREAD-STEPPING) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-thread.lisp-obj-tmp written
; compilation finished in 0:00:06.229
; compiling file "/«PKGBUILDDIR»/src/code/interr.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFVAR *INTERNAL-ERRORS* ...)
; x-compiling (STRING (QUOTE UNKNOWN-ERROR))
; x-compiling (DEFERR UNDEFINED-FUN-ERROR ...)
; x-compiling (DEFERR UNDEFINED-ALIEN-FUN-ERROR ...)
; x-compiling (DEFERR INVALID-ARG-COUNT-ERROR ...)
; x-compiling (DEFERR BOGUS-ARG-TO-VALUES-LIST-ERROR ...)
; x-compiling (DEFERR UNBOUND-SYMBOL-ERROR ...)
; x-compiling (DEFERR INVALID-UNWIND-ERROR ...)
; x-compiling (DEFERR UNSEEN-THROW-TAG-ERROR ...)
; x-compiling (DEFERR NIL-FUN-RETURNED-ERROR ...)
; x-compiling (DEFERR NIL-ARRAY-ACCESSED-ERROR ...)
; x-compiling (DEFERR DIVISION-BY-ZERO-ERROR ...)
; x-compiling (DEFERR OBJECT-NOT-TYPE-ERROR ...)
; x-compiling (DEFERR LAYOUT-INVALID-ERROR ...)
; x-compiling (DEFERR ODD-KEY-ARGS-ERROR ...)
; x-compiling (DEFERR UNKNOWN-KEY-ARG-ERROR ...)
; x-compiling (DEFERR INVALID-ARRAY-INDEX-ERROR ...)
; x-compiling (DEFERR TLS-EXHAUSTED-ERROR ...)
; x-compiling (DEFVAR *FINDING-NAME* ...)
; x-compiling (DEFUN FIND-CALLER-NAME-AND-FRAME ...)
; x-compiling (DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ...)
; x-compiling (DEFUN FIND-CALLER-OF-NAMED-FRAME ...)
; x-compiling (DEFUN INTERNAL-ERROR-ARGS-OK ...)
; x-compiling (DEFVAR *CURRENT-INTERNAL-ERROR* ...)
; x-compiling (DEFVAR *INTERR-CURRENT-BSP* ...)

; file: /«PKGBUILDDIR»/src/code/interr.lisp
; in: DEFUN INTERNAL-ERROR
;     (SB!ALIEN:SAP-ALIEN SB!KERNEL::CONTEXT (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!KERNEL::CONTEXT
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN INTERNAL-ERROR ...)
; x-compiling (DEFUN CONTROL-STACK-EXHAUSTED-ERROR ...)
; x-compiling (DEFUN BINDING-STACK-EXHAUSTED-ERROR ...)
; x-compiling (DEFUN ALIEN-STACK-EXHAUSTED-ERROR ...)
; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-CONDITION*)
; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-AVAILABLE-BYTES*)
; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-REQUESTED-BYTES*)
; x-compiling (DEFUN HEAP-EXHAUSTED-ERROR ...)
; x-compiling (DEFUN UNDEFINED-ALIEN-VARIABLE-ERROR ...)
; x-compiling (DEFINE-ALIEN-VARIABLE CURRENT-MEMORY-FAULT-ADDRESS ...)
; x-compiling (DEFUN MEMORY-FAULT-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/interr.lisp
; in: DEFUN UNHANDLED-TRAP-ERROR
;     (SB!ALIEN:SAP-ALIEN SB!KERNEL::CONTEXT-SAP (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!KERNEL::CONTEXT-SAP
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; in: DEFUN FIND-CALLER-OF-NAMED-FRAME
;     (HANDLER-CASE
;      (LET ((SB!KERNEL::*FINDING-NAME* T))
;        (DO ((SB!KERNEL::FRAME # #))
;            ((NULL SB!KERNEL::FRAME))
;          (WHEN (AND # #)
;            (LET #
;              #
;              #))))
;      ((OR ERROR SB!DI:DEBUG-CONDITION) NIL NIL) (SB!DI:DEBUG-CONDITION NIL NIL))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR ERROR SB!DI:DEBUG-CONDITION))
; 
; caught STYLE-WARNING:
;   undefined type: SB!DI:DEBUG-CONDITION

; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME
;     (HANDLER-CASE
;      (LET ((SB!KERNEL::*FINDING-NAME* T))
;        (SB!INT:/SHOW0 "in ordinary case")
;        (DO ((SB!KERNEL::FRAME # #))
;            ((NULL SB!KERNEL::FRAME)
;             (SB!INT:/SHOW0 "null frame")
;             (VALUES "<error finding interrupted name -- null frame>" NIL))
;          (SB!INT:/NOSHOW0 "at head of DO loop")
;          (WHEN (AND # #)
;            (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME)
;            (SB!INT:/SHOW0 "returning from within DO loop")
;            (RETURN #))))
;      (ERROR NIL (SB!INT:/SHOW0 "trapped ERROR")
;             (VALUES "<error finding interrupted name -- trapped error>" NIL))
;      (SB!DI:DEBUG-CONDITION NIL (SB!INT:/SHOW0 "trapped DEBUG-CONDITION")
;       (VALUES "<error finding interrupted name -- trapped debug-condition>" NIL)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!DI:DEBUG-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SB!DI:DEBUG-CONDITION

; in: DEFUN FIND-CALLER-NAME-AND-FRAME
;     (HANDLER-CASE
;      (LET* ((SB!KERNEL::*FINDING-NAME* T)
;             (SB!KERNEL::FRAME (SB!DI:FRAME-DOWN #))
;             (SB!KERNEL::NAME (SB!DI:DEBUG-FUN-NAME #)))
;        (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME)
;        (VALUES SB!KERNEL::NAME SB!KERNEL::FRAME))
;      (ERROR NIL (VALUES "<error finding caller name -- trapped error>" NIL))
;      (SB!DI:DEBUG-CONDITION NIL
;       (VALUES "<error finding caller name -- trapped debug-condition>" NIL)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!DI:DEBUG-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SB!DI:DEBUG-CONDITION
; 
; compilation unit finished
;   Undefined type:
;     SB!DI:DEBUG-CONDITION
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (DEFUN UNHANDLED-TRAP-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/interr.lisp-obj-tmp written
; compilation finished in 0:00:01.144
; compiling file "/«PKGBUILDDIR»/src/code/gc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")

; file: /«PKGBUILDDIR»/src/code/gc.lisp
; in: DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START)
;     (DECLAIM (INLINE SB!KERNEL:CURRENT-DYNAMIC-SPACE-START))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!KERNEL:CURRENT-DYNAMIC-SPACE-START)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!KERNEL:CURRENT-DYNAMIC-SPACE-START to be INLINE, but 1 call to
;   it was previously compiled. A declaration of NOTINLINE at the call site will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START))
; x-compiling (DEFUN CURRENT-DYNAMIC-SPACE-START ...)
; x-compiling (DECLAIM (INLINE DYNAMIC-USAGE))
; x-compiling (DEFUN DYNAMIC-USAGE ...)
; x-compiling (DEFUN STATIC-SPACE-USAGE ...)
; x-compiling (DEFUN READ-ONLY-SPACE-USAGE ...)
; x-compiling (DEFUN CONTROL-STACK-USAGE ...)
; x-compiling (DEFUN BINDING-STACK-USAGE ...)
; x-compiling (DEFUN ROOM-MINIMAL-INFO ...)
; x-compiling (DEFUN ROOM-INTERMEDIATE-INFO ...)
; x-compiling (DEFUN ROOM-MAXIMAL-INFO ...)
; x-compiling (DEFUN ROOM ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFVAR *N-BYTES-FREED-OR-PURIFIED* ...)
; x-compiling (DEFUN GC-REINIT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-BYTES-CONSED ...)
; x-compiling (!DEFVAR *AFTER-GC-HOOKS* ...)
; x-compiling (DEFINE-ALIEN-ROUTINE COLLECT-GARBAGE ...)
; x-compiling (DEFUN GC-STOP-THE-WORLD ...)
; x-compiling (DEFUN GC-START-THE-WORLD ...)
; x-compiling (DEFINE-ALIEN-VARIABLE ("gc_logfile" %GC-LOGFILE) ...)

; file: /«PKGBUILDDIR»/src/code/gc.lisp
; in: DEFUN (SETF GC-LOGFILE)
;     (SB!ALIEN:MAKE-ALIEN-STRING
;      (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION VALUES 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN (SETF GC-LOGFILE) ...)
; x-compiling (DEFUN GC-LOGFILE ...)
; x-compiling (DECLAIM (INLINE DYNAMIC-SPACE-SIZE))
; x-compiling (DEFUN DYNAMIC-SPACE-SIZE ...)
; x-compiling (DEFVAR *ALREADY-IN-GC* ...)
; x-compiling (DECLAIM (TYPE CONS ...))
; x-compiling (!DEFVAR *GC-EPOCH* ...)
; x-compiling (DEFUN SUB-GC ...)
; x-compiling (DEFUN POST-GC ...)
; x-compiling (DEFUN GC ...)
; x-compiling (DEFINE-ALIEN-ROUTINE SCRUB-CONTROL-STACK ...)
; x-compiling (DEFUN UNSAFE-CLEAR-ROOTS ...)
; x-compiling (DEFUN BYTES-CONSED-BETWEEN-GCS ...)
; x-compiling (DEFUN (SETF BYTES-CONSED-BETWEEN-GCS) ...)
; x-compiling (DECLAIM (INLINE MAYBE-HANDLE-PENDING-GC))
; x-compiling (DEFUN MAYBE-HANDLE-PENDING-GC ...)
; x-compiling (DEFTYPE GENERATION-INDEX ...)
; x-compiling (DEFINE-ALIEN-TYPE GENERATION ...)
; x-compiling (DEFINE-ALIEN-VARIABLE GENERATIONS ...)
; x-compiling (DEF BYTES-CONSED-BETWEEN-GCS ...)
; x-compiling (DEF MINIMUM-AGE-BEFORE-GC ...)
; x-compiling (DEF NUMBER-OF-GCS-BEFORE-PROMOTION ...)
; x-compiling (DEF BYTES-ALLOCATED ...)
; x-compiling (DEF NUMBER-OF-GCS ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN GENERATION-AVERAGE-AGE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/gc.lisp-obj-tmp written
; compilation finished in 0:00:02.285
; compiling file "/«PKGBUILDDIR»/src/code/purify.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-ROUTINE ("purify" %PURIFY) ...)
; x-compiling (DEFUN PURIFY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/purify.lisp-obj-tmp written
; compilation finished in 0:00:00.159
; compiling file "/«PKGBUILDDIR»/src/code/debug-int.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!DI")
; x-compiling (DEFINE-CONDITION DEBUG-CONDITION ...)
; x-compiling (DEFINE-CONDITION NO-DEBUG-FUN-RETURNS ...)
; x-compiling (DEFINE-CONDITION NO-DEBUG-BLOCKS ...)
; x-compiling (DEFINE-CONDITION NO-DEBUG-VARS ...)
; x-compiling (DEFINE-CONDITION LAMBDA-LIST-UNAVAILABLE ...)
; x-compiling (DEFINE-CONDITION INVALID-VALUE ...)
; x-compiling (DEFINE-CONDITION AMBIGUOUS-VAR-NAME ...)
; x-compiling (DEFINE-CONDITION DEBUG-ERROR ...)
; x-compiling (DEFINE-CONDITION UNHANDLED-DEBUG-CONDITION ...)
; x-compiling (DEFINE-CONDITION UNKNOWN-CODE-LOCATION ...)
; x-compiling (DEFINE-CONDITION UNKNOWN-DEBUG-VAR ...)
; x-compiling (DEFINE-CONDITION INVALID-CONTROL-STACK-POINTER ...)
; x-compiling (DEFINE-CONDITION FRAME-FUN-MISMATCH ...)
; x-compiling (DEFMACRO DEBUG-SIGNAL ...)
; x-compiling (DEFSTRUCT (DEBUG-VAR # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFSTRUCT (COMPILED-DEBUG-VAR # ...) ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DEFSTRUCT FRAME
;     (DEFSTRUCT (SB!DI:FRAME (:CONSTRUCTOR NIL) (:COPIER NIL))
;       (SB!DI::UP NIL :TYPE (OR SB!DI:FRAME NULL))
;       (SB!DI::%DOWN :UNPARSED :TYPE (OR SB!DI:FRAME (MEMBER NIL :UNPARSED)))
;       (SB!DI:DEBUG-FUN NIL :TYPE SB!DI:DEBUG-FUN)
;       (SB!DI:CODE-LOCATION NIL :TYPE SB!DI:CODE-LOCATION)
;       (SB!DI::%CATCHES :UNPARSED :TYPE (OR LIST (MEMBER :UNPARSED)))
;       SB!DI::POINTER
;       (NUMBER 0 :TYPE SB!INT:INDEX))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!DI:FRAME {52F358D1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F65361}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53DFC249}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!DI:FRAME-DEBUG-FUN could not be inlined because
;   the structure definition for SB!DI:FRAME was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (FRAME # ...) ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DEFSTRUCT COMPILED-FRAME
;     (DEFSTRUCT
;         (SB!DI::COMPILED-FRAME (:INCLUDE SB!DI:FRAME)
;          (:CONSTRUCTOR SB!DI::MAKE-COMPILED-FRAME
;           (SB!DI::POINTER SB!DI::UP SB!DI:DEBUG-FUN SB!DI:CODE-LOCATION NUMBER
;            &OPTIONAL SB!DI::ESCAPED))
;          (:COPIER NIL))
;       SB!DI::ESCAPED)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!DI::COMPILED-FRAME {5323D231}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F65361}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53DFC249}>
;       #<SB!KERNEL:LAYOUT for SB!DI:FRAME {52F77AB1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!DI::COMPILED-FRAME-P and
;   SB!DI::COMPILED-FRAME-ESCAPED could not be inlined because the structure
;   definition for SB!DI::COMPILED-FRAME was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (COMPILED-FRAME # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (DEBUG-FUN # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (COMPILED-DEBUG-FUN # ...) ...)
; x-compiling (DEFVAR *COMPILED-DEBUG-FUNS* ...)
; x-compiling (DEFUN MAKE-COMPILED-DEBUG-FUN ...)
; x-compiling (DEFSTRUCT (BOGUS-DEBUG-FUN # ...) ...)
; x-compiling (DEFSTRUCT (DEBUG-BLOCK # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFSTRUCT (COMPILED-DEBUG-BLOCK # ...) ...)
; x-compiling (DEFSTRUCT (BREAKPOINT-DATA # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (BREAKPOINT # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (CODE-LOCATION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (COMPILED-CODE-LOCATION # ...) ...)
; x-compiling (DEFUN DEBUG-SOURCE-ROOT-NUMBER ...)
; x-compiling (DEFCONSTANT REAL-LRA-SLOT ...)
; x-compiling (DEFUN CURRENT-SP ...)
; x-compiling (DEFUN CURRENT-FP ...)
; x-compiling (DEFUN STACK-REF ...)
; x-compiling (DEFUN %SET-STACK-REF ...)
; x-compiling (DEFUN FUN-CODE-HEADER ...)
; x-compiling (DEFUN LRA-CODE-HEADER ...)
; x-compiling (DEFUN %MAKE-LISP-OBJ ...)
; x-compiling (DEFUN GET-LISP-OBJ-ADDRESS ...)
; x-compiling (DEFUN FUN-WORD-OFFSET ...)
; x-compiling (DECLAIM (INLINE CONTROL-STACK-POINTER-VALID-P))
; x-compiling (DEFUN CONTROL-STACK-POINTER-VALID-P ...)
; x-compiling (DECLAIM (INLINE COMPONENT-PTR-FROM-PC))
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE COMPONENT-PTR-FROM-PC ...)
; x-compiling (DECLAIM (INLINE VALID-LISP-POINTER-P))
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE VALID-LISP-POINTER-P ...)
; x-compiling (DECLAIM (INLINE COMPONENT-FROM-COMPONENT-PTR))
; x-compiling (DEFUN COMPONENT-FROM-COMPONENT-PTR ...)
; x-compiling (DEFUN COMPUTE-LRA-DATA-FROM-PC ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DECLAIM (INLINE DESCRIPTOR-SAP)
;     (DECLAIM (INLINE SB!DI::DESCRIPTOR-SAP))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!DI::DESCRIPTOR-SAP) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!DI::DESCRIPTOR-SAP to be INLINE, but 4 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE DESCRIPTOR-SAP))
; x-compiling (DEFUN DESCRIPTOR-SAP ...)
; x-compiling (DEFUN TOP-FRAME ...)
; x-compiling (DEFUN FLUSH-FRAMES-ABOVE ...)
; x-compiling (DEFUN FIND-SAVED-FRAME-DOWN ...)
; x-compiling (DEFUN FRAME-DOWN ...)
; x-compiling (DEFUN GET-CONTEXT-VALUE ...)
; x-compiling (DEFUN (SETF GET-CONTEXT-VALUE) ...)
; x-compiling (DEFUN FOREIGN-FUNCTION-BACKTRACE-NAME ...)
; x-compiling (DEFUN COMPUTE-CALLING-FRAME ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DEFUN NTH-INTERRUPT-CONTEXT
;     (SB!ALIEN:SAP-ALIEN
;      (SB!VM::CURRENT-THREAD-OFFSET-SAP
;       (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N))
;      (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN
;    (SB!VM::CURRENT-THREAD-OFFSET-SAP
;     (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N))
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; x-compiling (DEFUN NTH-INTERRUPT-CONTEXT ...)
; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFUN FIND-ESCAPED-FRAME ...)
; x-compiling (DEFUN FIND-PC-FROM-ASSEMBLY-FUN ...)
; x-compiling (DEFUN CODE-OBJECT-FROM-BITS ...)
; x-compiling (DEFUN FIND-ASSEMBLY-ROUTINE ...)
; x-compiling (DEFUN DEBUG-FUN-FROM-PC ...)
; x-compiling (DEFUN CODE-LOCATION-FROM-PC ...)
; x-compiling (DEFUN FRAME-CATCHES ...)
; x-compiling (DEFUN REPLACE-FRAME-CATCH-TAG ...)
; x-compiling (DEFMACRO DO-DEBUG-FUN-BLOCKS ...)
; x-compiling (DEFMACRO DO-DEBUG-FUN-VARS ...)
; x-compiling (DEFUN DEBUG-FUN-FUN ...)
; x-compiling (DEFUN DEBUG-FUN-NAME ...)
; x-compiling (DEFUN INTERRUPTED-FRAME-ERROR ...)
; x-compiling (DEFUN TL-INVALID-ARG-COUNT-ERROR-P ...)
; x-compiling (DEFUN DEBUG-FUN-CLOSURE-NAME ...)
; x-compiling (DEFUN FUN-DEBUG-FUN ...)
; x-compiling (DEFUN DEBUG-FUN-KIND ...)
; x-compiling (DEFUN DEBUG-VAR-INFO-AVAILABLE ...)
; x-compiling (DEFUN DEBUG-FUN-SYMBOL-VARS ...)
; x-compiling (DEFUN AMBIGUOUS-DEBUG-VARS ...)
; x-compiling (DEFUN FIND-VAR ...)
; x-compiling (DEFUN DEBUG-FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN PARSE-COMPILED-DEBUG-FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST-VAR ...)
; x-compiling (DEFUN COMPILED-DEBUG-FUN-DEBUG-INFO ...)
; x-compiling (DEFVAR *PARSING-BUFFER* ...)
; x-compiling (DEFVAR *OTHER-PARSING-BUFFER* ...)
; x-compiling (DEFUN DEBUG-FUN-DEBUG-BLOCKS ...)
; x-compiling (DEFUN PARSE-DEBUG-BLOCKS ...)
; x-compiling (DEFUN PARSE-COMPILED-DEBUG-BLOCKS ...)
; x-compiling (DEFUN DEBUG-FUN-DEBUG-VARS ...)
; x-compiling (DEFUN ASSIGN-MINIMAL-VAR-NAMES ...)
; x-compiling (DEFUN PARSE-COMPILED-DEBUG-VARS ...)
; x-compiling (DEFUN CODE-LOCATION-UNKNOWN-P ...)
; x-compiling (DEFUN CODE-LOCATION-DEBUG-BLOCK ...)
; x-compiling (DEFUN COMPUTE-COMPILED-CODE-LOCATION-DEBUG-BLOCK ...)
; x-compiling (DEFUN CODE-LOCATION-DEBUG-SOURCE ...)
; x-compiling (DEFUN CODE-LOCATION-TOPLEVEL-FORM-OFFSET ...)
; x-compiling (DEFUN CODE-LOCATION-FORM-NUMBER ...)
; x-compiling (DEFUN CODE-LOCATION-KIND ...)
; x-compiling (DEFUN COMPILED-CODE-LOCATION-LIVE-SET ...)
; x-compiling (DEFUN CODE-LOCATION= ...)
; x-compiling (DEFUN SUB-COMPILED-CODE-LOCATION= ...)
; x-compiling (DEFUN FILL-IN-CODE-LOCATION ...)
; x-compiling (DEFMACRO DO-DEBUG-BLOCK-LOCATIONS ...)
; x-compiling (DEFUN DEBUG-BLOCK-FUN-NAME ...)
; x-compiling (DEFUN DEBUG-BLOCK-CODE-LOCATIONS ...)
; x-compiling (DEFUN DEBUG-VAR-SYMBOL-NAME ...)
; x-compiling (DEFUN DEBUG-VAR-PACKAGE-NAME ...)
; x-compiling (DEFUN DEBUG-VAR-VALID-VALUE ...)
; x-compiling (DEFUN DEBUG-VAR-VALUE ...)
; x-compiling (DEFUN ACCESS-COMPILED-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN MAKE-LISP-OBJ ...)
; x-compiling (DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN %SET-DEBUG-VAR-VALUE ...)
; x-compiling (DEFUN SET-COMPILED-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN SUB-SET-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN INDIRECT-VALUE-CELL-P ...)
; x-compiling (DEFUN DEBUG-VAR-VALIDITY ...)
; x-compiling (DEFUN DEBUG-VAR-INFO ...)
; x-compiling (DEFUN COMPILED-DEBUG-VAR-VALIDITY ...)
; x-compiling (DEFUN FORM-NUMBER-TRANSLATIONS ...)
; x-compiling (DEFUN SOURCE-PATH-CONTEXT ...)
; x-compiling (DEFUN GET-TOPLEVEL-FORM ...)
; x-compiling (DEFUN SAFE-READTABLE ...)
; x-compiling (DEFUN GET-FILE-TOPLEVEL-FORM ...)
; x-compiling (DEFUN PREPROCESS-FOR-EVAL ...)
; x-compiling (DEFUN EVAL-IN-FRAME ...)
; x-compiling (DEFUN MAKE-BREAKPOINT ...)
; x-compiling (DEFSTRUCT (FUN-END-COOKIE # ...) ...)
; x-compiling (DEFVAR *FUN-END-COOKIES* ...)
; x-compiling (DEFUN FUN-END-STARTER-HOOK ...)
; x-compiling (DEFUN FUN-END-COOKIE-VALID-P ...)
; x-compiling (DEFUN ACTIVATE-BREAKPOINT ...)
; x-compiling (DEFUN ACTIVATE-COMPILED-CODE-LOCATION-BREAKPOINT ...)
; x-compiling (DEFUN ACTIVATE-COMPILED-FUN-START-BREAKPOINT ...)
; x-compiling (DEFUN SUB-ACTIVATE-BREAKPOINT ...)
; x-compiling (DEFUN DEACTIVATE-BREAKPOINT ...)
; x-compiling (DEFUN DEACTIVATE-COMPILED-BREAKPOINT ...)
; x-compiling (DEFUN BREAKPOINT-INFO ...)
; x-compiling (DEFUN %SET-BREAKPOINT-INFO ...)
; x-compiling (DEFUN BREAKPOINT-ACTIVE-P ...)
; x-compiling (DEFUN DELETE-BREAKPOINT ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_install" ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_remove" ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_do_displaced_inst" ...)
; x-compiling (DEFVAR *COMPONENT-BREAKPOINT-OFFSETS* ...)
; x-compiling (DEFUN BREAKPOINT-DATA ...)
; x-compiling (DEFUN DELETE-BREAKPOINT-DATA ...)
; x-compiling (DEFUN HANDLE-BREAKPOINT ...)
; x-compiling (DEFVAR *EXECUTING-BREAKPOINT-HOOKS* ...)
; x-compiling (DEFUN HANDLE-BREAKPOINT-AUX ...)
; x-compiling (DEFUN INVOKE-BREAKPOINT-HOOKS ...)
; x-compiling (DEFUN SIGNAL-CONTEXT-FRAME ...)
; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT ...)
; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT-AUX ...)
; x-compiling (DEFUN GET-FUN-END-BREAKPOINT-VALUES ...)
; x-compiling (DEFCONSTANT BOGUS-LRA-CONSTANTS ...)
; x-compiling (DEFUN MAKE-BOGUS-LRA ...)
; x-compiling (DEFUN DEBUG-FUN-START-LOCATION ...)
; x-compiling (DEFUN HANDLE-SINGLE-STEP-TRAP ...)
; x-compiling (DEFVAR *STEP-FRAME* ...)
; x-compiling (DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ...)
; x-compiling (DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ...)
; x-compiling (DEFUN SINGLE-STEP-INFO-FROM-CONTEXT ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (DEFUN FIND-STEPPED-FRAME ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug-int.lisp-obj-tmp written
; compilation finished in 0:00:16.717
; compiling file "/«PKGBUILDDIR»/src/compiler/target-disassem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!DISASSEM")
; x-compiling (DEFUN INST-SPECIALIZES-P ...)
; x-compiling (DEFUN SPECIALIZER-RANK ...)
; x-compiling (DEFUN ORDER-SPECIALIZERS ...)
; x-compiling (DEFUN SPECIALIZATION-ERROR ...)
; x-compiling (DEFUN TRY-SPECIALIZING ...)
; x-compiling (DECLAIM (INLINE INST-MATCHES-P ...))
; x-compiling (DEFUN INST-MATCHES-P ...)
; x-compiling (DEFUN CHOOSE-INST-SPECIALIZATION ...)
; x-compiling (DEFUN FIND-INST ...)
; x-compiling (DEFUN BUILD-INST-SPACE ...)
; x-compiling (DEFUN PRINT-MASKED-BINARY ...)
; x-compiling (DEFUN PRINT-INST-BITS ...)
; x-compiling (DEFUN PRINT-INST-SPACE ...)
; x-compiling (DECLAIM (INLINE WORDS-TO-BYTES ...))
; x-compiling (DEFUN WORDS-TO-BYTES ...)
; x-compiling (DEFUN BYTES-TO-WORDS ...)
; x-compiling (DEFCONSTANT LRA-SIZE ...)
; x-compiling (DEFSTRUCT (OFFS-HOOK #) ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFSTRUCT SEGMENT
;     (DEFSTRUCT
;         (SB!DISASSEM:SEGMENT (:CONC-NAME SB!DISASSEM::SEG-)
;          (:CONSTRUCTOR SB!DISASSEM::%MAKE-SEGMENT) (:COPIER NIL))
;       (SB!DISASSEM::SAP-MAKER (SB!INT:MISSING-ARG) :TYPE
;        (FUNCTION NIL SB!SYS:SYSTEM-AREA-POINTER))
;       (LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH)
;       (SB!DISASSEM::OPCODES-LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH)
;       (SB!DISASSEM::VIRTUAL-LOCATION 0 :TYPE SB!DISASSEM::ADDRESS)
;       (SB!DISASSEM::STORAGE-INFO NIL :TYPE (OR NULL SB!DISASSEM::STORAGE-INFO))
;       (SB!DISASSEM::CODE NIL :TYPE (OR NULL SB!KERNEL:CODE-COMPONENT))
;       (SB!DISASSEM::UNBOXED-DATA-RANGE NIL :TYPE (OR NULL (CONS FIXNUM FIXNUM)))
;       (SB!DISASSEM::HOOKS NIL :TYPE LIST))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!DISASSEM:SEGMENT {526F22B1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F65361}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53DFC249}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!DISASSEM:SEG-VIRTUAL-LOCATION could not be
;   inlined because the structure definition for SB!DISASSEM:SEGMENT was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (SEGMENT # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN FUN-SELF ...)
; x-compiling (DEFUN FUN-CODE ...)
; x-compiling (DEFUN FUN-NEXT ...)
; x-compiling (DEFUN FUN-ADDRESS ...)
; x-compiling (DEFUN FUN-INSTS-OFFSET ...)
; x-compiling (DEFUN FUN-OFFSET ...)
; x-compiling (DEFUN CODE-INST-AREA-LENGTH ...)
; x-compiling (DEFUN CODE-INST-AREA-ADDRESS ...)
; x-compiling (DEFUN SEGMENT-OFFS-TO-CODE-OFFS ...)
; x-compiling (DEFUN CODE-OFFS-TO-SEGMENT-OFFS ...)
; x-compiling (DEFUN CODE-INSTS-OFFS-TO-SEGMENT-OFFS ...)
; x-compiling (DEFUN LRA-HOOK ...)
; x-compiling (DEFUN FUN-HEADER-HOOK ...)
; x-compiling (DEFUN ALIGNMENT-HOOK ...)
; x-compiling (DEFUN REWIND-CURRENT-SEGMENT ...)
; x-compiling (DEFUN CALL-OFFS-HOOKS ...)
; x-compiling (DEFUN CALL-FUN-HOOKS ...)
; x-compiling (DEFUN PAD-INST-COLUMN ...)
; x-compiling (DEFUN HANDLE-BOGUS-INSTRUCTION ...)
; x-compiling (DEFUN MAP-SEGMENT-INSTRUCTIONS ...)
; x-compiling (DEFUN ADD-SEGMENT-LABELS ...)
; x-compiling (DEFUN NUMBER-LABELS ...)
; x-compiling (DEFUN GET-INST-SPACE ...)
; x-compiling (DEFUN ADD-OFFS-HOOK ...)
; x-compiling (DEFUN ADD-OFFS-NOTE-HOOK ...)
; x-compiling (DEFUN ADD-OFFS-COMMENT-HOOK ...)
; x-compiling (DEFUN ADD-FUN-HOOK ...)
; x-compiling (DEFUN SET-LOCATION-PRINTING-RANGE ...)
; x-compiling (DEFUN PRINT-CURRENT-ADDRESS ...)
; x-compiling (DEFUN PRINT-NOTES-AND-NEWLINE ...)
; x-compiling (DEFUN PRINT-INST ...)
; x-compiling (DEFUN PRINT-BYTES ...)
; x-compiling (DEFUN PRINT-WORDS ...)
; x-compiling (DEFVAR *DEFAULT-DSTATE-HOOKS* ...)
; x-compiling (DEFUN MAKE-DSTATE ...)
; x-compiling (DEFUN ADD-FUN-HEADER-HOOKS ...)
; x-compiling (DECLAIM (INLINE SAP-MAKER))

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN SAP-MAKER
;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                FIXNUM
;                                                                                &REST
;                                                                                T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                (SIGNED-BYTE
;                                                                                 32)
;                                                                                &REST
;                                                                                T).
;       etc.

;     (LET ((SB!DISASSEM::OLD-SAP
;            (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                         SB!DISASSEM::OFFSET)))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;       (LAMBDA ()
;         (LET ((SB!DISASSEM::NEW-ADDR #))
;           (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;           (IF (= # SB!DISASSEM::NEW-ADDR)
;               SB!DISASSEM::OLD-SAP
;               (SETF #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

;     (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; x-compiling (DEFUN SAP-MAKER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN VECTOR-SAP-MAKER
;     (SB!DISASSEM::SAP-MAKER #'SB!SYS:VECTOR-SAP VECTOR SB!DISASSEM::OFFSET)
; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                FIXNUM
;                                                                                &REST
;                                                                                T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                (SIGNED-BYTE
;                                                                                 32)
;                                                                                &REST
;                                                                                T).
;       etc.

; --> BLOCK 
; ==>
;   (LET ((SB!DISASSEM::OLD-SAP
;          (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                       SB!DISASSEM::OFFSET)))
;     (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;     (LAMBDA ()
;       (LET ((SB!DISASSEM::NEW-ADDR #))
;         (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;         (IF (= # SB!DISASSEM::NEW-ADDR)
;             SB!DISASSEM::OLD-SAP
;             (SETF #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE 
; ==>
;   (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; x-compiling (DEFUN VECTOR-SAP-MAKER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN CODE-SAP-MAKER
;     (SB!DISASSEM::SAP-MAKER #'SB!KERNEL:CODE-INSTRUCTIONS SB!DISASSEM::CODE
;      SB!DISASSEM::OFFSET)
; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                FIXNUM
;                                                                                &REST
;                                                                                T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                (SIGNED-BYTE
;                                                                                 32)
;                                                                                &REST
;                                                                                T).
;       etc.

; --> BLOCK 
; ==>
;   (LET ((SB!DISASSEM::OLD-SAP
;          (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                       SB!DISASSEM::OFFSET)))
;     (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;     (LAMBDA ()
;       (LET ((SB!DISASSEM::NEW-ADDR #))
;         (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;         (IF (= # SB!DISASSEM::NEW-ADDR)
;             SB!DISASSEM::OLD-SAP
;             (SETF #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE 
; ==>
;   (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; x-compiling (DEFUN CODE-SAP-MAKER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN MEMORY-SAP-MAKER
;     (LAMBDA () SB!DISASSEM::SAP)
; --> FUNCTION SB!C::%%ALLOCATE-CLOSURES 
; ==>
;   (SB!C::%ALLOCATE-CLOSURES
;    '(#<SB!C::CLAMBDA
;        :%SOURCE-NAME SB!C::.ANONYMOUS.
;        :%DEBUG-NAME (LAMBDA # :IN SB!DISASSEM::MEMORY-SAP-MAKER)
;        :KIND NIL
;        :TYPE #<SB!KERNEL:FUN-TYPE #>
;        :WHERE-FROM :DEFINED
;        :VARS NIL {52DDD371}>))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the second argument of CLOSURE-INIT
; x-compiling (DEFUN MEMORY-SAP-MAKER ...)
; x-compiling (DEFUN MAKE-SEGMENT ...)
; x-compiling (DEFUN MAKE-VECTOR-SEGMENT ...)
; x-compiling (DEFUN MAKE-CODE-SEGMENT ...)
; x-compiling (DEFUN MAKE-MEMORY-SEGMENT ...)
; x-compiling (DEFUN PRINT-FUN-HEADERS ...)
; x-compiling (DEFSTRUCT (SOURCE-FORM-CACHE # ...) ...)
; x-compiling (DEFUN GET-DIFFERENT-SOURCE-FORM ...)
; x-compiling (DEFUN CODE-FUN-MAP ...)
; x-compiling (DEFSTRUCT (LOCATION-GROUP #) ...)
; x-compiling (DEFSTRUCT (STORAGE-INFO #) ...)
; x-compiling (DEFUN DSTATE-DEBUG-VARS ...)
; x-compiling (DEFUN FIND-VALID-STORAGE-LOCATION ...)
; x-compiling (DEFUN GROW-VECTOR ...)
; x-compiling (DEFUN STORAGE-INFO-FOR-DEBUG-FUN ...)
; x-compiling (DEFUN SOURCE-AVAILABLE-P ...)
; x-compiling (DEFUN PRINT-BLOCK-BOUNDARY ...)
; x-compiling (DEFUN ADD-SOURCE-TRACKING-HOOKS ...)
; x-compiling (DEFVAR *DISASSEMBLE-ANNOTATE* ...)
; x-compiling (DEFUN ADD-DEBUGGING-HOOKS ...)
; x-compiling (DEFUN GET-FUN-SEGMENTS ...)
; x-compiling (DEFUN GET-CODE-SEGMENTS ...)
; x-compiling (DEFUN LABEL-SEGMENTS ...)
; x-compiling (DEFUN DISASSEMBLE-SEGMENT ...)
; x-compiling (DEFUN DISASSEMBLE-SEGMENTS ...)
; x-compiling (DEFUN DISASSEMBLE-FUN ...)
; x-compiling (DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P ...)
; x-compiling (DEFUN COMPILED-FUNS-OR-LOSE ...)
; x-compiling (DEFUN DISASSEMBLE ...)
; x-compiling (DEFUN DISASSEMBLE-MEMORY ...)
; x-compiling (DEFUN DISASSEMBLE-CODE-COMPONENT ...)
; x-compiling (DEFUN ASSEM-SEGMENT-TO-DISASSEM-SEGMENT ...)
; x-compiling (DEFUN DISASSEMBLE-ASSEM-SEGMENT ...)
; x-compiling (DEFPARAMETER *GROKKED-SYMBOL-SLOTS* ...)
; x-compiling (DEFUN GROK-SYMBOL-SLOT-REF ...)
; x-compiling (DEFVAR *ADDRESS-OF-NIL-OBJECT* ...)
; x-compiling (DEFUN GROK-NIL-INDEXED-SYMBOL-SLOT-REF ...)
; x-compiling (DEFUN GET-NIL-INDEXED-OBJECT ...)
; x-compiling (DEFUN GET-CODE-CONSTANT ...)
; x-compiling (DEFUN GET-CODE-CONSTANT-ABSOLUTE ...)
; x-compiling (DEFVAR *ASSEMBLER-ROUTINES-BY-ADDR* ...)
; x-compiling (DEFVAR *FOREIGN-SYMBOLS-BY-ADDR* ...)
; x-compiling (DEFUN INVERT-ADDRESS-HASH ...)
; x-compiling (DEFUN FIND-ASSEMBLER-ROUTINE ...)
; x-compiling (DECLAIM (MAYBE-INLINE SAP-REF-INT ...))

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN SAP-REF-INT
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 1095216660481), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 16)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
;       The second argument is a (MOD 280375465082881), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 40), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
;       The second argument is a (MOD 71776119061217281), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 48), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
;       The second argument is a (MOD 18374686479671623681), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 56), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + + + 
; ==>
;   (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18374686479671623681), not a FIXNUM.
;       The second argument is a (MOD 71776119061217281), not a FIXNUM.
;       The result is a (VALUES (MOD 18446462598732840961) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446462598732840961) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + + 
; ==>
;   (+
;    (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446462598732840961), not a FIXNUM.
;       The second argument is a (MOD 280375465082881), not a FIXNUM.
;       The result is a (VALUES (MOD 18446742974197923841) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446462598732840961), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446742974197923841) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + 
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 48))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446742974197923841), not a FIXNUM.
;       The second argument is a (MOD 1095216660481), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446742974197923841), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (ASH # 56) (ASH # 48))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The second argument is a (MOD 4278190081), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073692774401) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 4278190081), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744073692774401) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; --> + + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 40)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073692774401), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073709486081) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073692774401), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744073709486081) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; --> + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709486081), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073709551361) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073709486081), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744073709551361) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709551361), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073709551361), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)))
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
; ==>
;   (+
;    (+
;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 8))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (ASH # 56) (ASH # 48))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the second argument of static-fun Two-arg-+

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+
; x-compiling (DEFUN SAP-REF-INT ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN READ-SUFFIX
;     (INCF (SB!DISASSEM:DSTATE-NEXT-OFFS SB!DISASSEM::DSTATE) LENGTH)
; --> LET* 
; ==>
;   (+ LENGTH (SB!DISASSEM:DSTATE-NEXT-OFFS #:DSTATE1486))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.
; x-compiling (DEFUN READ-SUFFIX ...)
; x-compiling (DEFUN NOTE ...)
; x-compiling (DEFUN PRIN1-SHORT ...)
; x-compiling (DEFUN PRIN1-QUOTED-SHORT ...)
; x-compiling (DEFUN NOTE-CODE-CONSTANT ...)
; x-compiling (DEFUN NOTE-CODE-CONSTANT-ABSOLUTE ...)
; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF ...)
; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-OBJECT ...)
; x-compiling (DEFUN MAYBE-NOTE-ASSEMBLER-ROUTINE ...)
; x-compiling (DEFUN MAYBE-NOTE-SINGLE-STORAGE-REF ...)
; x-compiling (DEFUN MAYBE-NOTE-ASSOCIATED-STORAGE-REF ...)
; x-compiling (DEFUN MAYBE-NOTE-STATIC-SYMBOL ...)
; x-compiling (DEFUN GET-INTERNAL-ERROR-NAME ...)
; x-compiling (DEFUN GET-SC-NAME ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P
;     (TYPEP SB!DISASSEM::THING 'SB!PCL::%METHOD-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: SB!PCL::%METHOD-FUNCTION
; 
; compilation unit finished
;   Undefined type:
;     SB!PCL::%METHOD-FUNCTION
;   caught 2 STYLE-WARNING conditions
;   printed 37 notes
; x-compiling (DEFUN HANDLE-BREAK-ARGS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/target-disassem.lisp-obj-tmp written
; compilation finished in 0:00:11.439
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/target-insts.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/target-insts.lisp-obj-tmp written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/src/code/debug.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!DEBUG")
; x-compiling (DEFVAR *DEBUG-PRINT-VARIABLE-ALIST* ...)
; x-compiling (DEFVAR *DEBUG-READTABLE* ...)
; x-compiling (DEFVAR *IN-THE-DEBUGGER* ...)
; x-compiling (DEFVAR *DEBUG-COMMAND-LEVEL* ...)
; x-compiling (DEFVAR *STACK-TOP-HINT* ...)
; x-compiling (DEFVAR *REAL-STACK-TOP* ...)
; x-compiling (DEFVAR *STACK-TOP* ...)
; x-compiling (DEFVAR *CURRENT-FRAME* ...)
; x-compiling (DEFVAR *DEBUG-BEGINNER-HELP-P* ...)
; x-compiling (DEFUN DEBUG-PROMPT ...)
; x-compiling (DEFPARAMETER *DEBUG-HELP-STRING* ...)
; x-compiling (DEFMACRO WITH-DEBUG-IO-SYNTAX ...)
; x-compiling (DEFUN MAYBE-BLOCK-START-LOCATION ...)
; x-compiling (DECLAIM (UNSIGNED-BYTE *BACKTRACE-FRAME-COUNT*))
; x-compiling (DEFVAR *BACKTRACE-FRAME-COUNT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *METHOD-FRAME-STYLE* ...)
; x-compiling (DEFINE-DEPRECATED-VARIABLE :EARLY ...)
; x-compiling (DEFUN BACKTRACE ...)
; x-compiling (DEFUN BACKTRACE-AS-LIST ...)
; x-compiling (DEFUN BACKTRACE-START-FRAME ...)
; x-compiling (DEFUN MAP-BACKTRACE ...)
; x-compiling (DEFUN PRINT-BACKTRACE ...)
; x-compiling (DEFUN LIST-BACKTRACE ...)
; x-compiling (DEFUN FRAME-CALL-AS-LIST ...)
; x-compiling (DEFUN REPLACE-DYNAMIC-EXTENT-OBJECT ...)
; x-compiling (DEFUN STACK-ALLOCATED-P ...)
; x-compiling (DEFUN MAP-FRAME-ARGS ...)
; x-compiling (DEFUN ARG-COUNT-ERROR-FRAME-NTH-ARG ...)
; x-compiling (DEFUN ARG-COUNT-ERROR-FRAME-ARGS ...)
; x-compiling (DEFUN FRAME-ARGS-AS-LIST ...)
; x-compiling (DEFUN CLEAN-XEP ...)
; x-compiling (DEFUN CLEAN-&MORE-PROCESSOR ...)
; x-compiling (DEFUN CLEAN-FAST-METHOD ...)
; x-compiling (DEFUN CLEAN-FRAME-CALL ...)
; x-compiling (DEFUN FRAME-CALL ...)
; x-compiling (DEFUN ENSURE-PRINTABLE-OBJECT ...)
; x-compiling (DEFUN FRAME-CALL-ARG ...)
; x-compiling (DEFUN PRINT-FRAME-CALL ...)
; x-compiling (DEFVAR *DEBUGGER-HOOK* ...)
; x-compiling (DEFVAR *INVOKE-DEBUGGER-HOOK* ...)
; x-compiling (DEFVAR *DEBUG-RESTARTS*)
; x-compiling (DEFVAR *DEBUG-CONDITION*)
; x-compiling (DEFVAR *NESTED-DEBUG-CONDITION*)
; x-compiling (DEFUN FUNCALL-WITH-DEBUG-IO-SYNTAX ...)
; x-compiling (DECLAIM (NOTINLINE RUN-HOOK))
; x-compiling (DEFUN RUN-HOOK ...)
; x-compiling (DEFUN RESOLVE-STACK-TOP-HINT ...)
; x-compiling (DEFUN INVOKE-DEBUGGER ...)
; x-compiling (DEFUN %PRINT-DEBUGGER-INVOCATION-REASON ...)

; file: /«PKGBUILDDIR»/src/code/debug.lisp
; in: DEFUN %INVOKE-DEBUGGER
;     (SB!THREAD:RELEASE-FOREGROUND)
; 
; note: deleting unreachable code
; x-compiling (DEFUN %INVOKE-DEBUGGER ...)
; x-compiling (DEFUN DEBUGGER-DISABLED-HOOK ...)
; x-compiling (DEFVAR *OLD-DEBUGGER-HOOK* ...)
; x-compiling (DEFUN DISABLE-DEBUGGER ...)
; x-compiling (DEFUN ENABLE-DEBUGGER ...)
; x-compiling (DEFUN SHOW-RESTARTS ...)
; x-compiling (DEFVAR *DEBUG-LOOP-FUN* ...)
; x-compiling (DEFVAR *SUPPRESS-FRAME-PRINT* ...)
; x-compiling (DEFUN INTERNAL-DEBUG ...)
; x-compiling (DEFVAR *FLUSH-DEBUG-ERRORS* ...)
; x-compiling (DEFUN DEBUG-READ ...)
; x-compiling (DEFUN DEBUG-LOOP-FUN ...)
; x-compiling (DEFVAR *AUTO-EVAL-IN-FRAME* ...)
; x-compiling (DEFUN DEBUG-EVAL ...)
; x-compiling (DEFUN DEBUG-EVAL-PRINT ...)
; x-compiling (DEFUN VAR-VALID-IN-FRAME-P ...)
; x-compiling (DEFUN VAR ...)
; x-compiling (DEFUN (SETF VAR) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NTH-ARG ...)
; x-compiling (DEFUN ARG ...)
; x-compiling (DEFVAR *DEBUG-COMMANDS* ...)
; x-compiling (DEFMACRO !DEF-DEBUG-COMMAND ...)
; x-compiling (DEFUN !DEF-DEBUG-COMMAND-ALIAS ...)
; x-compiling (DEFUN DEBUG-COMMAND-P ...)
; x-compiling (DEFUN MAKE-RESTART-COMMANDS ...)
; x-compiling (!DEF-DEBUG-COMMAND "UP" ...)
; x-compiling (!DEF-DEBUG-COMMAND "DOWN" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "D" ...)
; x-compiling (!DEF-DEBUG-COMMAND "BOTTOM" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "B" ...)
; x-compiling (!DEF-DEBUG-COMMAND "FRAME" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "F" ...)
; x-compiling (!DEF-DEBUG-COMMAND "TOPLEVEL" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "TOP" ...)
; x-compiling (!DEF-DEBUG-COMMAND "RESTART" ...)
; x-compiling (!DEF-DEBUG-COMMAND "HELP" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "?" ...)
; x-compiling (!DEF-DEBUG-COMMAND "ERROR" ...)
; x-compiling (!DEF-DEBUG-COMMAND "BACKTRACE" ...)
; x-compiling (!DEF-DEBUG-COMMAND "PRINT" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "P" ...)
; x-compiling (!DEF-DEBUG-COMMAND "LIST-LOCALS" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "L" ...)
; x-compiling (!DEF-DEBUG-COMMAND "SOURCE" ...)
; x-compiling (DEFUN CODE-LOCATION-SOURCE-FORM ...)
; x-compiling (!DEF-DEBUG-COMMAND "START" ...)
; x-compiling (DEFMACRO !DEF-STEP-COMMAND ...)
; x-compiling (!DEF-STEP-COMMAND "STEP" ...)
; x-compiling (!DEF-STEP-COMMAND "NEXT" ...)
; x-compiling (!DEF-STEP-COMMAND "STOP" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "S" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "N" ...)
; x-compiling (!DEF-DEBUG-COMMAND "OUT" ...)
; x-compiling (!DEF-DEBUG-COMMAND "DESCRIBE" ...)
; x-compiling (!DEF-DEBUG-COMMAND "SLURP" ...)
; x-compiling (DEFUN UNWIND-TO-FRAME-AND-CALL ...)
; x-compiling (DEFUN FIND-BINDING-STACK-POINTER ...)
; x-compiling (DEFUN FIND-ENCLOSING-CATCH-BLOCK ...)
; x-compiling (DEFUN FIND-ENCLOSING-UWP ...)
; x-compiling (!DEF-DEBUG-COMMAND "RETURN" ...)
; x-compiling (!DEF-DEBUG-COMMAND "RESTART-FRAME" ...)
; x-compiling (DEFUN FRAME-HAS-DEBUG-TAG-P ...)
; x-compiling (DEFUN FRAME-HAS-DEBUG-VARS-P ...)
; x-compiling (DEFUN READ-PROMPTING-MAYBE ...)

; file: /«PKGBUILDDIR»/src/code/debug.lisp
; in: DEFUN CLEAN-FAST-METHOD
;     (COMPUTE-APPLICABLE-METHODS (FDEFINITION SB!DEBUG::GF-NAME)
;                                 SB!DEBUG::REAL-ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-APPLICABLE-METHODS
; 
; compilation unit finished
;   Undefined function:
;     COMPUTE-APPLICABLE-METHODS
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN READ-IF-AVAILABLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug.lisp-obj-tmp written
; compilation finished in 0:00:07.344
; compiling file "/«PKGBUILDDIR»/src/code/octets.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFTYPE ARRAY-RANGE ...)
; x-compiling (DEFINE-CONDITION OCTETS-ENCODING-ERROR ...)
; x-compiling (DEFUN ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION OCTET-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...)
; x-compiling (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...)
; x-compiling (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...)
; x-compiling (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...)
; x-compiling (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...)
; x-compiling (DEFINE-CONDITION MALFORMED-ASCII ...)
; x-compiling (DEFUN DECODING-ERROR ...)
; x-compiling (DEFMACRO INSTANTIATE-OCTETS-DEFINITION ...)
; x-compiling (DEFUN MAKE-OD-NAME ...)
; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPER ...)
; x-compiling (DECLAIM (INLINE GET-LATIN-BYTES))
; x-compiling (DEFUN GET-LATIN-BYTES ...)
; x-compiling (DECLAIM (INLINE STRING->LATIN%))

; file: /«PKGBUILDDIR»/src/code/octets.lisp
; in: DEFUN STRING->LATIN%
;     (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (INCF SB!INT:INDEX)
; --> SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

;     (INCF SB!INT:INDEX)
; --> SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->LATIN% ...)
; x-compiling (DEFMACRO DEFINE-LATIN->STRING* ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING*)
; x-compiling (DEFMACRO DEFINE-LATIN->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING)
; x-compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...)
; x-compiling (DEFUN DEFAULT-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN MAYBE-DEFAULTED-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN OCTETS-TO-STRING ...)
; x-compiling (DEFUN STRING-TO-OCTETS ...)
; x-compiling (DEFVAR +UNICODE-REPLACEMENT-CHARACTER+ ...)
; x-compiling (DEFUN USE-UNICODE-REPLACEMENT-CHAR ...)
; x-compiling (DEFMACRO WITH-STANDARD-REPLACEMENT-CHARACTER ...)
; 
; compilation unit finished
;   printed 13 notes
; x-compiling (DEFMACRO WITH-DEFAULT-DECODING-REPLACEMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/octets.lisp-obj-tmp written
; compilation finished in 0:00:03.553
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE CODE->ASCII-MAPPER))
; x-compiling (DEFUN CODE->ASCII-MAPPER ...)
; x-compiling (DECLAIM (INLINE GET-ASCII-BYTES))
; x-compiling (DEFUN GET-ASCII-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN STRING->ASCII
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ASCII-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->ASCII ...)
; x-compiling (DEFMACRO DEFINE-ASCII->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-ASCII->STRING)
; --> PROGN SB!IMPL::DEFINE-ASCII->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY LET* IF LOOP BLOCK LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII
;      (:US-ASCII :ANSI_X3.4-1968 :ISO-646 :ISO-646-US :|646|)
;      (IF (>= SB!IMPL::BITS 128)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      (IF (>= SB-XC:BYTE 128)
;          (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1)
;          (CODE-CHAR SB-XC:BYTE))
;      SB!IMPL::ASCII->STRING-AREF SB!IMPL::STRING->ASCII)
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ...)
; x-compiling (DECLAIM (INLINE GET-LATIN1-BYTES))
; x-compiling (DEFUN GET-LATIN1-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN STRING->LATIN1
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-LATIN1-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->LATIN1 ...)
; x-compiling (DEFMACRO DEFINE-LATIN1->STRING* ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING*)
; x-compiling (DEFMACRO DEFINE-LATIN1->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1
;      (:LATIN1 :ISO-8859-1 :ISO8859-1)
;      (IF (>= SB!IMPL::BITS 256)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      (CODE-CHAR SB-XC:BYTE) SB!IMPL::LATIN1->STRING-AREF SB!IMPL::STRING->LATIN1)
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ...)
; x-compiling (DECLAIM (INLINE CHAR-LEN-AS-UTF8))

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN CHAR-LEN-AS-UTF8
;     (SB!INT:BUG "can't happen")
; ==>
;   "can't happen"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN CHAR-LEN-AS-UTF8 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN STRING->UTF8
;     (LENGTH SB!IMPL::REPLACEMENT)
; 
; 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.

;     (COPY-SEQ SB!IMPL::NEW-ARRAY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (AND (VECTOR (UNSIGNED-BYTE 8))
;                                    (NOT SIMPLE-ARRAY))), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (AND (VECTOR (UNSIGNED-BYTE 8))
;                                    (NOT SIMPLE-ARRAY))), not a LIST.

;     (AREF SB!IMPL::REPLACEMENT SB!IMPL::I)
; ==>
;   (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.
; x-compiling (DEFUN STRING->UTF8 ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF8-CHAR ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF8-CHAR)
; x-compiling (DEFMACRO DEFINE-UTF8->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF8->STRING)
; --> PROGN SB!IMPL::DEFINE-UTF8->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8)
;     (< SB!IMPL::BITS 2048)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (< SB!IMPL::BITS 65536)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;             (LOGIOR 192 (SB-XC:LDB (SB-XC:BYTE 5 6) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS)))
; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (<= 55296 SB!IMPL::BITS 57343)
; --> 
; --> (LAMBDA (#:G140233 #:G140232 #:G140231) (DECLARE (TYPE REAL #:G140233 #:G140232 #:G140231)) (IF (<= #:G140233 #:G140232) (IF (<= #:G140232 #:G140231) T NIL) NIL)) 
; --> SB!C::%FUNCALL 
; --> #<SB!C::CLAMBDA :%SOURCE-NAME SB!C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (#:G140233 #:G140232 #:G140231) :IN SB!IMPL::OUTPUT-BYTES/UTF-8) :KIND :LET :TYPE #<SB!KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :VARS (#:G140233 #:G140232 #:G140231) {52DDB249}> 
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;             (LOGIOR 224 (SB-XC:LDB (SB-XC:BYTE 4 12) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS)))
; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;             (LOGIOR 240 (SB-XC:LDB (SB-XC:BYTE 3 18) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 12) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 3 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS)))
; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) T
;      (CODE-CHAR 65533)
;      (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE)))
;        (COND ((< SB!IMPL::BITS 128) 1) ((< SB!IMPL::BITS 2048) 2)
;              ((< SB!IMPL::BITS 65536) 3) (T 4)))
;      (ECASE SB!IMPL::SIZE
;        (1 (SETF # SB!IMPL::BITS))
;        (2
;         (SETF # #
;               # #))
;        (3
;         (WHEN (<= 55296 SB!IMPL::BITS 57343)
;           (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))
;         (SETF # #
;               # #
;               # #))
;        (4
;         (SETF # #
;               # #
;               # #
;               # #)))
;      (1
;       (COND ((< SB-XC:BYTE 128) 1)
;             ((< SB-XC:BYTE 194) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1))
;             ((< SB-XC:BYTE 224) 2) ((< SB-XC:BYTE 240) 3) (T 4)))
;      (CODE-CHAR
;       (ECASE SB!IMPL::SIZE
;         (1 SB-XC:BYTE)
;         (2
;          (LET #
;            #
;            #))
;         (3
;          (LET #
;            #
;            #))
;         (4
;          (LET #
;            #
;            #))))
;      SB!IMPL::UTF8->STRING-AREF SB!IMPL::STRING->UTF8)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (< SB!IMPL::BITS 2048)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (< SB!IMPL::BITS 65536)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 57 notes
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-basic.lisp-obj-tmp written
; compilation finished in 0:00:13.667
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-ebcdic.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO DEFINE-UNIBYTE-PERMUTATION-MAPPER ...)
; x-compiling (DEFINE-UNIBYTE-PERMUTATION-MAPPER EBCDIC-US->CODE-MAPPER ...)
; x-compiling (DECLAIM (INLINE GET-EBCDIC-US-BYTES))
; x-compiling (DEFUN GET-EBCDIC-US-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ebcdic.lisp
; in: DEFUN STRING->EBCDIC-US
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-EBCDIC-US-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->EBCDIC-US ...)
; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING* ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING*)
; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ebcdic.lisp
; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US
;     (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US
;      (:CP037 :|cp037| :IBM-037 :IBM037)
;      (LET ((SB!IMPL::EBCDIC-US-BYTE
;             (SB!IMPL::CODE->EBCDIC-US-MAPPER SB!IMPL::BITS)))
;        (IF SB!IMPL::EBCDIC-US-BYTE
;            (SETF # SB!IMPL::EBCDIC-US-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)))
;      (CODE-CHAR (SB!IMPL::EBCDIC-US->CODE-MAPPER SB-XC:BYTE))
;      SB!IMPL::EBCDIC-US->STRING-AREF SB!IMPL::STRING->EBCDIC-US)
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 14 notes
; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-ebcdic.lisp-obj-tmp written
; compilation finished in 0:00:02.389
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R (:|koi8-r|)
;      (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500)
;      (135 9508) (136 9516) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U (:|koi8-u|)
;      (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500)
;      (135 9508) (136 9516) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC
;      (:|x-mac-cyrillic|) (128 1040) (129 1041) (130 1042) (131 1043) (132 1044)
;      (133 1045) (134 1046) (135 1047) (136 1048) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 42 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj-tmp written
; compilation finished in 0:00:08.048
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 (:|cp437|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 (:|cp850|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 (:|cp852|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 367) (134 263) (135 231)
;      (136 322) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 (:|cp855|) (128 1106)
;      (129 1026) (130 1107) (131 1027) (132 1105) (133 1025) (134 1108) (135 1028)
;      (136 1109) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 (:|cp857|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 (:|cp860|) (128 199)
;      (129 252) (130 233) (131 226) (132 227) (133 224) (134 193) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 (:|cp861|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 (:|cp862|) (128 1488)
;      (129 1489) (130 1490) (131 1491) (132 1492) (133 1493) (134 1494) (135 1495)
;      (136 1496) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 (:|cp863|) (128 199)
;      (129 252) (130 233) (131 226) (132 194) (133 224) (134 182) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 (:|cp864|) (128 176)
;      (129 183) (130 8729) (131 8730) (132 9618) (133 9472) (134 9474) (135 9532)
;      (136 9508) ...)
; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF 
; ==>
;   SB!IMPL::CODE
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 (:|cp865|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 (:|cp866|) (128 1040)
;      (129 1041) (130 1042) (131 1043) (132 1044) (133 1045) (134 1046) (135 1047)
;      (136 1048) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 (:|cp869|) (128 NIL)
;      (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 NIL) (134 902) (135 NIL)
;      (136 183) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 (:|cp874|) (128 8364)
;      (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 8230) (134 NIL) (135 NIL)
;      (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 197 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-dos.lisp-obj-tmp written
; compilation finished in 0:00:35.818
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2
;      (:|iso-8859-2| :LATIN-2 :|latin-2|) (161 260) (162 728) (163 321) (165 317)
;      (166 346) (169 352) (170 350) (171 356) (172 377) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3
;      (:|iso-8859-3| :LATIN-3 :|latin-3|) (161 294) (162 728) (165 NIL) (166 292)
;      (169 304) (170 350) (171 286) (172 308) (174 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4
;      (:|iso-8859-4| :LATIN-4 :|latin-4|) (161 260) (162 312) (163 342) (165 296)
;      (166 315) (169 352) (170 274) (171 290) (172 358) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 (:|iso-8859-5|)
;      (161 1025) (162 1026) (163 1027) (164 1028) (165 1029) (166 1030) (167 1031)
;      (168 1032) (169 1033) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 (:|iso-8859-6|)
;      (161 NIL) (162 NIL) (163 NIL) (165 NIL) (166 NIL) (167 NIL) (168 NIL)
;      (169 NIL) (170 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 (:|iso-8859-7|)
;      (161 701) (162 700) (164 NIL) (165 NIL) (170 NIL) (174 NIL) (175 8213)
;      (180 900) (181 901) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 (:|iso-8859-8|)
;      (161 NIL) (170 215) (175 8254) (186 247) (191 NIL) (192 NIL) (193 NIL)
;      (194 NIL) (195 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9
;      (:|iso-8859-9| :LATIN-5 :|latin-5|) (208 286) (221 304) (222 350) (240 287)
;      (253 305) (254 351))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10
;      (:|iso-8859-10| :LATIN-6 :|latin-6|) (161 260) (162 274) (163 290) (164 298)
;      (165 296) (166 310) (168 315) (169 272) (170 352) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11
;      (:|iso-8859-11|) (161 3585) (162 3586) (163 3587) (164 3588) (165 3589)
;      (166 3590) (167 3591) (168 3592) (169 3593) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13
;      (:|iso-8859-13| :LATIN-7 :|latin-7|) (161 8221) (165 8222) (168 216)
;      (170 342) (175 198) (180 8220) (184 248) (186 343) (191 230) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14
;      (:|iso-8859-14| :LATIN-8 :|latin-8|) (161 7682) (162 7683) (164 266)
;      (165 267) (166 7690) (168 7808) (170 7810) (171 7691) (172 7922) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9
;      (:LATIN9 :ISO-8859-15 :ISO8859-15) (164 8364) (166 352) (168 353) (180 381)
;      (184 382) (188 338) (189 339) (190 376))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 182 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-iso.lisp-obj-tmp written
; compilation finished in 0:00:32.839
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250
;      (:|cp1250| :WINDOWS-1250 :|windows-1250|) (128 8364) (129 NIL) (130 8218)
;      (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251
;      (:|cp1251| :WINDOWS-1251 :|windows-1251|) (128 1026) (129 1027) (130 8218)
;      (131 1107) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252
;      (:|cp1252| :WINDOWS-1252 :|windows-1252|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253
;      (:|cp1253| :WINDOWS-1253 :|windows-1253|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 (:|cp1254|)
;      (128 8364) (129 NIL) (130 8218) (131 402) (132 8222) (133 8230) (134 8224)
;      (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255
;      (:|cp1255| :WINDOWS-1255 :|windows-1255|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256
;      (:|cp1256| :WINDOWS-1256 :|windows-1256|) (128 8364) (129 1662) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257
;      (:|cp1257| :WINDOWS-1257 :|windows-1257|) (128 8364) (129 NIL) (130 8218)
;      (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258
;      (:|cp1258| :WINDOWS-1258 :|windows-1258|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 126 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-win.lisp-obj-tmp written
; compilation finished in 0:00:24.249
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-mac.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-mac.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN
;      (:|mac-roman| :|MacRoman| :MAC :|mac| :MACINTOSH :|macintosh|) (128 196)
;      (129 197) (130 199) (131 201) (132 209) (133 214) (134 220) (135 225)
;      (136 224) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 14 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-mac.lisp-obj-tmp written
; compilation finished in 0:00:02.537
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/mb-util.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/mb-util.lisp
; in: DEFUN GET-MULTIBYTE-MAPPER
;     (AREF SB!IMPL::TABLE SB!IMPL::M 0)
; --> LET* 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.

;     (AREF SB!IMPL::TABLE SB!IMPL::M 1)
; --> LET* 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.
; x-compiling (DEFUN GET-MULTIBYTE-MAPPER ...)
; x-compiling (DEFUN MAKE-OD-NAME-LIST ...)
; x-compiling (DEFUN DEFINE-BYTES-PER-MB-CHARACTER-1 ...)
; x-compiling (DEFUN DEFINE-SIMPLE-GET-MB-CHAR-1 ...)
; x-compiling (DEFUN DEFINE-MB->STRING-1 ...)
; x-compiling (DECLAIM (INLINE MB-CHAR-LEN))
; x-compiling (DEFUN MB-CHAR-LEN ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFMACRO DEFINE-MULTIBYTE-ENCODING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/mb-util.lisp-obj-tmp written
; compilation finished in 0:00:00.900
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-cn-tbl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-TABLE* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj-tmp written
; compilation finished in 0:00:03.796
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-cn.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE UCS-TO-GBK ...))
; x-compiling (DEFUN UCS-TO-GBK ...)
; x-compiling (DEFUN GBK-TO-UCS ...)
; x-compiling (DEFUN MB-LEN-AS-GBK ...)
; x-compiling (DEFUN GBK-CONTINUATION-BYTE-P ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :GBK
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :GBK (:GBK :CP936) SB!IMPL::UCS-TO-GBK
;      SB!IMPL::GBK-TO-UCS SB!IMPL::MB-LEN-AS-GBK SB!IMPL::GBK-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-GBK-CHAR PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :GBK 'SB!IMPL::MALFORMED-GBK SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB 
; --> SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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 SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; --> LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.
; 
; compilation unit finished
;   printed 18 notes
; x-compiling (DEFINE-MULTIBYTE-ENCODING :GBK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-cn.lisp-obj-tmp written
; compilation finished in 0:00:04.815
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-jpn-tbl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-EUCJP-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *EUCJP-TO-UCS-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-SJIS-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *SJIS-TO-UCS-TABLE* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj-tmp written
; compilation finished in 0:00:03.490
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-jpn.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE UCS-TO-EUCJP ...))
; x-compiling (DEFUN UCS-TO-EUCJP ...)
; x-compiling (DEFUN EUCJP-TO-UCS ...)
; x-compiling (DEFUN MB-LEN-AS-EUCJP ...)
; x-compiling (DEFUN EUCJP-CONTINUATION-BYTE-P ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-jpn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :EUC-JP
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :EUC-JP (:EUC-JP :EUCJP :|eucJP|)
;      SB!IMPL::UCS-TO-EUCJP SB!IMPL::EUCJP-TO-UCS SB!IMPL::MB-LEN-AS-EUCJP
;      SB!IMPL::EUCJP-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-EUC-JP-CHAR PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB 
; --> SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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 SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; --> LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.
; x-compiling (DEFINE-MULTIBYTE-ENCODING :EUC-JP ...)
; x-compiling (DECLAIM (INLINE UCS-TO-SJIS ...))
; x-compiling (DEFUN UCS-TO-SJIS ...)
; x-compiling (DEFUN SJIS-TO-UCS ...)
; x-compiling (DEFUN MB-LEN-AS-SJIS ...)
; x-compiling (DEFUN SJIS-CONTINUATION-BYTE-P ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-jpn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;      (:SHIFT_JIS :SJIS :|Shift_JIS| :CP932) SB!IMPL::UCS-TO-SJIS
;      SB!IMPL::SJIS-TO-UCS SB!IMPL::MB-LEN-AS-SJIS
;      SB!IMPL::SJIS-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-SHIFT_JIS-CHAR PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET 
; --> LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB 
; --> SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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 SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; --> LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.
; 
; compilation unit finished
;   printed 36 notes
; x-compiling (DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj-tmp written
; compilation finished in 0:00:10.572
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE SAP-REF-16LE ...))
; x-compiling (DEFUN SAP-REF-16LE ...)
; x-compiling (DEFUN (SETF SAP-REF-16LE) ...)
; x-compiling (DEFUN SAP-REF-16BE ...)
; x-compiling (DEFUN (SETF SAP-REF-16BE) ...)
; x-compiling (DEFUN SAP-REF-32LE ...)
; x-compiling (DEFUN (SETF SAP-REF-32LE) ...)
; x-compiling (DEFUN SAP-REF-32BE ...)
; x-compiling (DEFUN (SETF SAP-REF-32BE) ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-2LE))
; x-compiling (DEFUN CHAR->UCS-2LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-2BE))
; x-compiling (DEFUN CHAR->UCS-2BE ...)
; x-compiling (DEFUN STRING->UCS-2LE ...)
; x-compiling (DEFUN STRING->UCS-2BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS2-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS2-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS2-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS2-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UCS-2->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-2->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) T
;      (CODE-CHAR 65533) 2
;      (IF (< SB!IMPL::BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD))
;      SB!IMPL::UCS-2LE->STRING-AREF SB!IMPL::STRING->UCS-2LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) T
;      (CODE-CHAR 65533) 2
;      (IF (< SB!IMPL::BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD))
;      SB!IMPL::UCS-2BE->STRING-AREF SB!IMPL::STRING->UCS-2BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-4LE))
; x-compiling (DEFUN CHAR->UCS-4LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-4BE))
; x-compiling (DEFUN CHAR->UCS-4BE ...)
; x-compiling (DEFUN STRING->UCS-4LE ...)
; x-compiling (DEFUN STRING->UCS-4BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS4-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS4-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS4-CHARACTER ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION
;      SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER)
; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UCS-4->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UCS-4->STRING)
; --> PROGN SB!IMPL::DEFINE-UCS-4->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) NIL
;      (CODE-CHAR 65533) 4
;      (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT)
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UCS-4LE->STRING-AREF SB!IMPL::STRING->UCS-4LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) NIL
;      (CODE-CHAR 65533) 4
;      (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT)
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UCS-4BE->STRING-AREF SB!IMPL::STRING->UCS-4BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 20 notes
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-ucs.lisp-obj-tmp written
; compilation finished in 0:00:10.664
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE UTF-NONCHARACTER-CODE-P))
; x-compiling (DEFUN UTF-NONCHARACTER-CODE-P ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-16LE))
; x-compiling (DEFUN CHAR->UTF-16LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-16BE))
; x-compiling (DEFUN CHAR->UTF-16BE ...)
; x-compiling (DEFUN STRING->UTF-16LE ...)
; x-compiling (DEFUN STRING->UTF-16BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF16-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF16-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF16-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF16-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UTF-16->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-16->STRING)
; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE)
;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) T
;      (CODE-CHAR 65533)
;      (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE)))
;        (IF (< SB!IMPL::BITS 65536)
;            2
;            4))
;      (COND
;       ((< SB!IMPL::BITS 65536)
;        (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (SETF #)))
;       (T
;        (IF (= # 65534)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (LET* #
;              #
;              #))))
;      (2
;       (IF (<= 55296 (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD) 56319)
;           4
;           2))
;      (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2))
;              ((<= 55296 SB!IMPL::BITS 56319)
;               (LET #
;                 #
;                 #))
;              (T (CODE-CHAR SB!IMPL::BITS))))
;      SB!IMPL::UTF-16LE->STRING-AREF SB!IMPL::STRING->UTF-16LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE)
;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) T
;      (CODE-CHAR 65533)
;      (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE)))
;        (IF (< SB!IMPL::BITS 65536)
;            2
;            4))
;      (COND
;       ((< SB!IMPL::BITS 65536)
;        (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (SETF #)))
;       (T
;        (IF (= # 65534)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (LET* #
;              #
;              #))))
;      (2
;       (IF (<= 55296 (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD) 56319)
;           4
;           2))
;      (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2))
;              ((<= 55296 SB!IMPL::BITS 56319)
;               (LET #
;                 #
;                 #))
;              (T (CODE-CHAR SB!IMPL::BITS))))
;      SB!IMPL::UTF-16BE->STRING-AREF SB!IMPL::STRING->UTF-16BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-32LE))
; x-compiling (DEFUN CHAR->UTF-32LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-32BE))
; x-compiling (DEFUN CHAR->UTF-32BE ...)
; x-compiling (DEFUN STRING->UTF-32LE ...)
; x-compiling (DEFUN STRING->UTF-32BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF32-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF32-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF32-CHARACTER ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION
;      SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER)
; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UTF-32->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-32->STRING)
; --> PROGN SB!IMPL::DEFINE-UTF-32->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) T
;      (CODE-CHAR 65533) 4
;      (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #))
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UTF-32LE->STRING-AREF SB!IMPL::STRING->UTF-32LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) T
;      (CODE-CHAR 65533) 4
;      (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #))
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UTF-32BE->STRING-AREF SB!IMPL::STRING->UTF-32BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 88 notes
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-utf.lisp-obj-tmp written
; compilation finished in 0:00:16.265
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro-errors.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; x-compiling (DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; x-compiling (DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; x-compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...)
; x-compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...)
; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/parse-defmacro-errors.lisp-obj-tmp written
; compilation finished in 0:00:00.409
; compiling file "/«PKGBUILDDIR»/src/code/full-eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!EVAL")
; x-compiling (DEFVAR *SPECIAL* ...)
; x-compiling (DEFVAR *MACRO* ...)
; x-compiling (DEFVAR *SYMBOL-MACRO* ...)
; x-compiling (DEFVAR *NOT-PRESENT* ...)
; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION ARG-COUNT-PROGRAM-ERROR ...)
; x-compiling (DEFUN ARG-COUNT-PROGRAM-ERROR ...)
; x-compiling (DEFMACRO PROGRAM-DESTRUCTURING-BIND ...)
; x-compiling (DEFUN IP-ERROR ...)
; x-compiling (DEFMACRO NCONC-2 ...)
; x-compiling (DEFUN FABRICATE-NEW-NATIVE-ENVIRONMENT ...)
; x-compiling (DEFSTRUCT (ENV #) ...)
; x-compiling (DEFUN MAKE-ENV ...)
; x-compiling (DEFUN MAKE-NULL-ENVIRONMENT ...)
; x-compiling (DECLAIM (INLINE PUSH-VAR))
; x-compiling (DEFUN PUSH-VAR ...)
; x-compiling (DECLAIM (INLINE PUSH-FUN))
; x-compiling (DEFUN PUSH-FUN ...)
; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-GET-BINDING GET-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-FBINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-EXPANDER-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-SYMBOL-EXPANSION-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-TAG-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-BLOCK-BINDING ...)
; x-compiling (DEFUN DECLARED-SPECIALS ...)
; x-compiling (DEFUN SPECIAL-BINDINGS ...)
; x-compiling (DEFUN SPECIALP ...)
; x-compiling (DEFUN BINDING-NAME ...)
; x-compiling (DEFUN BINDING-VALUE ...)
; x-compiling (DEFUN SUPPLIED-P-PARAMETER ...)
; x-compiling (DEFUN KEYWORD-NAME ...)
; x-compiling (DEFUN KEYWORD-KEY ...)
; x-compiling (DEFUN KEYWORD-DEFAULT-VALUE ...)
; x-compiling (DEFUN PARSE-ARGUMENTS ...)
; x-compiling (DEFUN EVAL-NEXT-LET*-BINDING ...)
; x-compiling (DEFUN CALL-WITH-NEW-ENV ...)
; x-compiling (DEFUN CALL-WITH-NEW-ENV-FULL-PARSING ...)

; file: /«PKGBUILDDIR»/src/code/full-eval.lisp
; in: DEFUN SET-VARIABLE
;     (SETF (SB!ALIEN-INTERNALS:%HEAP-ALIEN TYPE) SB!EVAL::VALUE)
; ==>
;   (SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN TYPE SB!EVAL::VALUE)
; 
; note: unable to optimize because: info not constant; can't open code
; x-compiling (DEFUN SET-VARIABLE ...)
; x-compiling (DEFUN GET-VARIABLE ...)
; x-compiling (DEFUN GET-FUNCTION ...)
; x-compiling (DEFUN LAMBDAP ...)
; x-compiling (DEFUN PARSE-LAMBDA-HEADERS ...)
; x-compiling (DEFUN EVAL-LAMBDA ...)
; x-compiling (DEFUN EVAL-PROGN ...)
; x-compiling (DEFUN EVAL-IF ...)
; x-compiling (DEFUN EVAL-LET ...)
; x-compiling (DEFUN EVAL-LET* ...)
; x-compiling (DEFUN EVAL-LOCAL-FUNCTION-DEF ...)
; x-compiling (DEFUN EVAL-FLET ...)
; x-compiling (DEFUN EVAL-LABELS ...)
; x-compiling (DEFUN EVAL-LOCAL-MACRO-DEF ...)
; x-compiling (DEFUN EVAL-MACROLET ...)
; x-compiling (DEFUN EVAL-SYMBOL-MACROLET ...)
; x-compiling (DEFUN EVAL-PROGV ...)
; x-compiling (DEFUN EVAL-FUNCTION ...)
; x-compiling (DEFUN EVAL-EVAL-WHEN ...)
; x-compiling (DEFUN EVAL-QUOTE ...)
; x-compiling (DEFUN EVAL-SETQ ...)
; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-CALL ...)
; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-PROG1 ...)
; x-compiling (DEFUN EVAL-CATCH ...)
; x-compiling (DEFUN EVAL-TAGBODY ...)
; x-compiling (DEFUN EVAL-GO ...)
; x-compiling (DEFUN EVAL-BLOCK ...)
; x-compiling (DEFUN EVAL-RETURN-FROM ...)
; x-compiling (DEFUN EVAL-THE ...)
; x-compiling (DEFUN EVAL-UNWIND-PROTECT ...)
; x-compiling (DEFUN EVAL-THROW ...)
; x-compiling (DEFUN EVAL-LOAD-TIME-VALUE ...)
; x-compiling (DEFUN EVAL-LOCALLY ...)
; x-compiling (DEFUN EVAL-ARGS ...)
; x-compiling (DEFUN EVAL-WITH-PINNED-OBJECTS ...)
; x-compiling (DEFINE-CONDITION MACROEXPAND-HOOK-TYPE-ERROR ...)
; x-compiling (DEFVAR *EVAL-DISPATCH-FUNCTIONS* ...)
; x-compiling (DECLAIM (INLINE %%EVAL))
; x-compiling (DEFUN %%EVAL ...)
; x-compiling (DEFUN %EVAL ...)
; x-compiling (DEFUN %APPLY ...)
; x-compiling (DEFUN INTERPRETED-APPLY ...)
; x-compiling (DEFINE-CONDITION INTERPRETER-ENVIRONMENT-TOO-COMPLEX-ERROR ...)
; x-compiling (DEFINE-CONDITION COMPILER-ENVIRONMENT-TOO-COMPLEX-ERROR ...)
; x-compiling (DEFUN PREPARE-FOR-COMPILE ...)
; x-compiling (DEFUN MAKE-ENV-FROM-NATIVE-ENVIRONMENT ...)
; x-compiling (DEFUN EVAL-IN-ENVIRONMENT ...)

; file: /«PKGBUILDDIR»/src/code/full-eval.lisp
; in: DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR
;     (SLOT-BOUNDP CONDITION 'CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-BOUNDP
; 
; compilation unit finished
;   Undefined function:
;     SLOT-BOUNDP
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN EVAL-IN-NATIVE-ENVIRONMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/full-eval.lisp-obj-tmp written
; compilation finished in 0:00:06.288
; compiling file "/«PKGBUILDDIR»/src/code/bit-bash.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFTYPE BIT-OFFSET ...)
; x-compiling (DEF WORD-LOGICAL-NOT ...)
; x-compiling (DEF WORD-LOGICAL-AND ...)
; x-compiling (DEF WORD-LOGICAL-OR ...)
; x-compiling (DEF WORD-LOGICAL-XOR ...)
; x-compiling (DEF WORD-LOGICAL-NOR ...)
; x-compiling (DEF WORD-LOGICAL-EQV ...)
; x-compiling (DEF WORD-LOGICAL-NAND ...)
; x-compiling (DEF WORD-LOGICAL-ANDC1 ...)
; x-compiling (DEF WORD-LOGICAL-ANDC2 ...)
; x-compiling (DEF WORD-LOGICAL-ORC1 ...)
; x-compiling (DEF WORD-LOGICAL-ORC2 ...)
; x-compiling (DEFUN SHIFT-TOWARDS-START ...)
; x-compiling (DEFUN SHIFT-TOWARDS-END ...)
; x-compiling (DECLAIM (INLINE START-MASK ...))
; x-compiling (DEFUN START-MASK ...)
; x-compiling (DEFUN END-MASK ...)
; x-compiling (DECLAIM (INLINE WORD-SAP-REF ...))
; x-compiling (DEFUN WORD-SAP-REF ...)
; x-compiling (DEFUN %SET-WORD-SAP-REF ...)
; x-compiling (DEFMACRO !DEFINE-SAP-FIXER ...)
; x-compiling (DEFMACRO !DEFINE-BYTE-BASHERS ...)
; x-compiling (!DEFINE-SAP-FIXER 1)
; x-compiling (!DEFINE-SAP-FIXER 2)
; x-compiling (!DEFINE-SAP-FIXER 4)
; x-compiling (!DEFINE-SAP-FIXER 8)
; x-compiling (!DEFINE-SAP-FIXER 16)
; x-compiling (!DEFINE-SAP-FIXER 32)
; x-compiling (!DEFINE-BYTE-BASHERS 1)
; x-compiling (!DEFINE-BYTE-BASHERS 2)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: PROGN (!DEFINE-SAP-FIXER 1)
;     (SB!VM::!DEFINE-BYTE-BASHERS 4)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2416 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB4 THE 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2675 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2669 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2794 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2873 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (!DEFINE-BYTE-BASHERS 4)
; x-compiling (!DEFINE-BYTE-BASHERS 8)
; x-compiling (!DEFINE-BYTE-BASHERS 16)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: PROGN (!DEFINE-SAP-FIXER 1)
;     (SB!VM::!DEFINE-BYTE-BASHERS 32)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB!KERNEL::CONSTANT-UB32-BASH BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF LET LET MULTIPLE-VALUE-BIND 
; ==>
;   (LET ((#:G4127 'SB!C::DUMMY))
;     (UNLESS (TYPEP #:G4127 '(UNSIGNED-BYTE 29))
;       (SB!C::%TYPE-CHECK-ERROR #:G4127 '(UNSIGNED-BYTE 29)))
;     (VALUES #:G4127))
; 
; note: doing signed word to integer coercion (cost 20) to #:G4127

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL::CONSTANT-UB32-BASH BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF LET LET MULTIPLE-VALUE-BIND 
; ==>
;   (LET ((#:G4161 'SB!C::DUMMY))
;     (UNLESS (TYPEP #:G4161 '(UNSIGNED-BYTE 29))
;       (SB!C::%TYPE-CHECK-ERROR #:G4161 '(UNSIGNED-BYTE 29)))
;     (VALUES #:G4161))
; 
; note: doing signed word to integer coercion (cost 20) to #:G4161
; x-compiling (!DEFINE-BYTE-BASHERS 32)
; x-compiling (DEFUN COPY-BYTE-VECTOR-TO-SYSTEM-AREA ...)
; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-MASK+ ...)
; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-SHIFT+ ...)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: DEF %BIT-POSITION/0
;     (SB!VM::DEF SB!KERNEL:%BIT-POSITION/0 (LOGANDC2 4294967295))
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF 
; ==>
;   (LET* ((SB!VM::WORD-OFFSET SB!VM::LAST-WORD)
;          (SB!EXT:WORD
;           (LOGAND SB!VM::END-MASK (SB!VM::GET-WORD SB!VM::WORD-OFFSET))))
;     (DECLARE (SB!EXT:WORD SB!EXT:WORD)
;              (SB!INT:INDEX SB!VM::WORD-OFFSET))
;     (UNLESS (ZEROP SB!EXT:WORD)
;       (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF SB!EXT:WORD #))
;       (UNLESS (ZEROP SB!EXT:WORD)
;         (SB!VM::FOUND (SB!VM::END-BIT SB!EXT:WORD) SB!VM::WORD-OFFSET)))
;     (DECF SB!VM::WORD-OFFSET)
;     (LOOP
;      (WHEN (< SB!VM::WORD-OFFSET SB!VM::FIRST-WORD)
;        (RETURN-FROM SB!KERNEL:%BIT-POSITION/0 NIL))
;      (SETF SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
;      (UNLESS (ZEROP SB!EXT:WORD)
;        (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF #))
;        (UNLESS (ZEROP SB!EXT:WORD) (SB!VM::FOUND # SB!VM::WORD-OFFSET)))
;      (DECF SB!VM::WORD-OFFSET)))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN WHEN IF PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN WHEN IF PROGN 
; --> SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF ZEROP = EQL IF EQL EQ 
; --> IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN UNLESS IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEF %BIT-POSITION/0 ...)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: DEF %BIT-POSITION/1
;     (SB!VM::DEF SB!KERNEL:%BIT-POSITION/1 (IDENTITY))
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF 
; ==>
;   (LET* ((SB!VM::WORD-OFFSET SB!VM::LAST-WORD)
;          (SB!EXT:WORD
;           (LOGAND SB!VM::END-MASK (SB!VM::GET-WORD SB!VM::WORD-OFFSET))))
;     (DECLARE (SB!EXT:WORD SB!EXT:WORD)
;              (SB!INT:INDEX SB!VM::WORD-OFFSET))
;     (UNLESS (ZEROP SB!EXT:WORD)
;       (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF SB!EXT:WORD #))
;       (UNLESS (ZEROP SB!EXT:WORD)
;         (SB!VM::FOUND (SB!VM::END-BIT SB!EXT:WORD) SB!VM::WORD-OFFSET)))
;     (DECF SB!VM::WORD-OFFSET)
;     (LOOP
;      (WHEN (< SB!VM::WORD-OFFSET SB!VM::FIRST-WORD)
;        (RETURN-FROM SB!KERNEL:%BIT-POSITION/1 NIL))
;      (SETF SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
;      (UNLESS (ZEROP SB!EXT:WORD)
;        (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF #))
;        (UNLESS (ZEROP SB!EXT:WORD) (SB!VM::FOUND # SB!VM::WORD-OFFSET)))
;      (DECF SB!VM::WORD-OFFSET)))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN WHEN IF PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN WHEN IF PROGN 
; --> SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF ZEROP = EQL IF EQL EQ 
; --> IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN UNLESS IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEF %BIT-POSITION/1 ...)
; 
; compilation unit finished
;   printed 39 notes
; x-compiling (DEFUN %BIT-POSITION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/bit-bash.lisp-obj-tmp written
; compilation finished in 0:00:47.186
; compiling file "/«PKGBUILDDIR»/src/code/target-load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFVAR *LOAD-SOURCE-DEFAULT-TYPE* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LOAD-TRUENAME* ...)
; x-compiling (DEFVAR *LOAD-PATHNAME* ...)
; x-compiling (DEFUN LOAD-AS-SOURCE ...)
; x-compiling (DEFINE-CONDITION FASL-HEADER-MISSING ...)
; x-compiling (DEFUN LOAD ...)
; x-compiling (DEFUN PROBE-LOAD-DEFAULTS ...)
; x-compiling (DEFUN LOAD-CODE ...)
; x-compiling (DEFVAR *!INITIAL-ASSEMBLER-ROUTINES*)
; x-compiling (DEFUN !LOADER-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-load.lisp-obj-tmp written
; compilation finished in 0:00:01.675
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/sanctify.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN SANCTIFY-FOR-EXECUTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/sanctify.lisp-obj-tmp written
; compilation finished in 0:00:00.090
; compiling file "/«PKGBUILDDIR»/src/compiler/target-dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFUN DUMP-CHARACTERS-OF-STRING ...)
; x-compiling (DEFUN DUMP-SIMPLE-CHARACTER-STRING ...)
; x-compiling (DEFUN DUMP-RAW-BYTES ...)
; x-compiling (DEFUN DUMP-MULTI-DIM-ARRAY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/target-dump.lisp-obj-tmp written
; compilation finished in 0:00:00.201
; compiling file "/«PKGBUILDDIR»/src/code/cold-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN !UNINTERN-INIT-ONLY-STUFF ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN !COLD-LOSE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CRITICALLY-UNREACHABLE ...)
; x-compiling (DEFVAR *!REVERSED-COLD-TOPLEVELS*)
; x-compiling (!DEFVAR *!REVERSED-COLD-SETF-MACROS* ...)
; x-compiling (!DEFVAR *!REVERSED-COLD-DEFUNS* ...)
; x-compiling (DEFVAR *!LOAD-TIME-VALUES*)
; x-compiling (DEFUN !COLD-INIT ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXIT ...)
; x-compiling (DEFUN THREAD-INIT-OR-REINIT ...)
; x-compiling (DEFUN REINIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cold-init.lisp-obj-tmp written
; compilation finished in 0:00:00.925
; compiling file "/«PKGBUILDDIR»/src/code/cl-specials.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "COMMON-LISP")
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/obj/from-xc/src/code/cl-specials.lisp-obj-tmp written
; compilation finished in 0:00:00.105
; compiling file "/«PKGBUILDDIR»/src/compiler/late-proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*))
; x-compiling (!COLD-INIT-FORMS (MAPCAR # ...))
; x-compiling (!COLD-INIT-FORMS (MAKUNBOUND #))
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/late-proclaim.lisp-obj-tmp written
; compilation finished in 0:00:00.045
; compiling file "/«PKGBUILDDIR»/src/code/defboot.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...)
; x-compiling (DEFUN LIST-OF-SYMBOLS-P ...)
; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...)
; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...)
; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...)
; x-compiling (DEFMACRO-MUNDANELY COND ...)
; x-compiling (DEFMACRO-MUNDANELY WHEN ...)
; x-compiling (DEFMACRO-MUNDANELY UNLESS ...)
; x-compiling (DEFMACRO-MUNDANELY AND ...)
; x-compiling (DEFMACRO-MUNDANELY OR ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFMACRO-MUNDANELY PROG1 ...)
; x-compiling (DEFMACRO-MUNDANELY PROG2 ...)
; x-compiling (DEFUN INLINE-FUN-NAME-P ...)
; x-compiling (DEFMACRO-MUNDANELY DEFUN ...)
; x-compiling (DEFUN %DEFUN ...)
; x-compiling (DEFUN !%QUIETLY-DEFUN ...)
; x-compiling (DEFMACRO-MUNDANELY DEFVAR ...)
; x-compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...)
; x-compiling (DEFUN %COMPILER-DEFVAR ...)
; x-compiling (DEFUN %DEFVAR ...)
; x-compiling (DEFUN %DEFPARAMETER ...)
; x-compiling (DEFMACRO-MUNDANELY DO ...)
; x-compiling (DEFMACRO-MUNDANELY DO* ...)
; x-compiling (DEFMACRO-MUNDANELY DOTIMES ...)
; x-compiling (DEFMACRO-MUNDANELY DOLIST ...)
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SETF (INFO :VARIABLE ...) ...)
; x-compiling (SETF (INFO :VARIABLE ...) ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...)
; x-compiling (DEFMACRO-MUNDANELY RESTART-BIND ...)
; x-compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...)
; x-compiling (DEFMACRO-MUNDANELY RESTART-CASE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...)
; x-compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...)
; x-compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...)
; x-compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...)
; x-compiling (DEFMACRO-MUNDANELY RETURN ...)
; x-compiling (DEFMACRO-MUNDANELY LAMBDA ...)
; x-compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...)
; x-compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defboot.lisp-obj-tmp written
; compilation finished in 0:00:02.493
; compiling file "/«PKGBUILDDIR»/src/code/destructuring-bind.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/destructuring-bind.lisp-obj-tmp written
; compilation finished in 0:00:00.068
; compiling file "/«PKGBUILDDIR»/src/code/setf.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...)
; x-compiling (DEFUN MACROEXPAND-FOR-SETF ...)
; x-compiling (LABELS (# # ...) ...)
; x-compiling (DEFMACRO-MUNDANELY ROTATEF ...)
; x-compiling (DEFMACRO-MUNDANELY PUSH ...)
; x-compiling (DEFMACRO-MUNDANELY PUSHNEW ...)
; x-compiling (DEFMACRO-MUNDANELY POP ...)
; x-compiling (DEFMACRO-MUNDANELY REMF ...)
; x-compiling (DEFUN %REMF ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: DECLAIM (INLINE XSUBTRACT)
;     (DECLAIM (INLINE SB!IMPL::XSUBTRACT))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::XSUBTRACT) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::XSUBTRACT to be INLINE, but 1253 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE XSUBTRACT))
; x-compiling (DEFUN XSUBTRACT ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...)
; x-compiling (DEFUN %DEFSETF ...)
; x-compiling (DEFUN !QUIETLY-DEFSETF ...)
; x-compiling (DEF!MACRO SB-XC:DEFSETF ...)
; x-compiling (DEFUN COLLECT-SETF-TEMPS ...)
; x-compiling (DEFUN MAKE-SIMPLE-SETF-QUINTUPLE ...)
; x-compiling (DEFUN MAKE-SETF-QUINTUPLE ...)
; x-compiling (DEFUN EXPAND-RMW-MACRO ...)
; x-compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...)
; x-compiling (SB-XC:DEFSETF GET ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: SB-XC:DEFSETF GETHASH
;     (SB-XC:DEFSETF GETHASH
;                    (SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL SB!IMPL::DEFAULT
;                     &ENVIRONMENT SB!IMPL::E)
;                    (SB!IMPL::NEWVAL)
;                    (LET ((SB!IMPL::CONSTP
;                           (SB-XC:CONSTANTP SB!IMPL::DEFAULT SB!IMPL::E)))
;                      (SB!INT:QUASIQUOTE
;                       (SB!KERNEL:%PUTHASH
;                        #S(SB!IMPL::COMMA :EXPR SB!IMPL::KEY :KIND 0)
;                        #S(SB!IMPL::COMMA :EXPR SB!IMPL::HASHTABLE :KIND 0)
;                        #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> EVAL-WHEN 
; ==>
;   (SB!IMPL::%DEFSETF 'GETHASH
;                      (CONS 1
;                            (LAMBDA (#:FORM #:ENV SB!IMPL::NEWVAL)
;                              (LET* ()
;                                (LET #
;                                  #)
;                                (LET* #
;                                  #))))
;                      '(SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL
;                        SB!IMPL::DEFAULT &ENVIRONMENT SB!IMPL::E)
;                      NIL 'NIL)
; 
; caught STYLE-WARNING:
;   defining setf macro for GETHASH when (SETF GETHASH) is also defined
; x-compiling (SB-XC:DEFSETF GETHASH ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: SB-XC:DEFINE-SETF-EXPANDER LDB
;     (SB-XC:DEFINE-SETF-EXPANDER SB-XC:LDB
;         (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV)
;       "The first argument is a byte specifier. The second is any place form
;   acceptable to SETF. Replace the specified byte of the number in this
;   place with bits from the low-order end of the new value."
;       (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV))
;       (MULTIPLE-VALUE-BIND
;           (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER
;            SB!IMPL::GETTER)
;           (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
;         (IF (AND (CONSP SB!IMPL::BYTESPEC) (EQ # 'SB-XC:BYTE))
;             (LET (# # #)
;               (VALUES # # # # #))
;             (LET (# #)
;               (VALUES # # # # #)))))
; --> EVAL-WHEN 
; ==>
;   (SB!IMPL::%DEFSETF 'SB-XC:LDB
;                      (LAMBDA (#:WHOLE778 #:ENVIRONMENT779)
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (DECLARE #)
;                            (BLOCK SB-XC:LDB #))))
;                      '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT
;                        SB!IMPL::ENV)
;                      NIL
;                      '"The first argument is a byte specifier. The second is any place form
; acceptable to SETF. Replace the specified byte of the number in this
; place with bits from the low-order end of the new value.")
; 
; caught STYLE-WARNING:
;   defining setf macro for LDB when (SETF LDB) is also defined
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD
;     (SB-XC:DEFINE-SETF-EXPANDER SB-XC:MASK-FIELD
;         (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV)
;       "The first argument is a byte specifier. The second is any place form
;   acceptable to SETF. Replaces the specified byte of the number in this place
;   with bits from the corresponding position in the new value."
;       (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV))
;       (MULTIPLE-VALUE-BIND
;           (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER
;            SB!IMPL::GETTER)
;           (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
;         (LET ((SB!IMPL::BTEMP #) (SB!IMPL::GNUVAL #))
;           (VALUES (CONS SB!IMPL::BTEMP SB!IMPL::DUMMIES)
;                   (CONS SB!IMPL::BYTESPEC SB!IMPL::VALS) (LIST SB!IMPL::GNUVAL)
;                   (SB!INT:QUASIQUOTE #) (SB!INT:QUASIQUOTE #)))))
; --> EVAL-WHEN 
; ==>
;   (SB!IMPL::%DEFSETF 'SB-XC:MASK-FIELD
;                      (LAMBDA (#:WHOLE822 #:ENVIRONMENT823)
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (DECLARE #)
;                            (BLOCK SB-XC:MASK-FIELD #))))
;                      '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT
;                        SB!IMPL::ENV)
;                      NIL
;                      '"The first argument is a byte specifier. The second is any place form
; acceptable to SETF. Replaces the specified byte of the number in this place
; with bits from the corresponding position in the new value.")
; 
; caught STYLE-WARNING:
;   defining setf macro for MASK-FIELD when (SETF MASK-FIELD) is also defined
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...)
; x-compiling (DEFUN SETF-EXPAND-THE ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...)
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/setf.lisp-obj-tmp written
; compilation finished in 0:00:03.312
; compiling file "/«PKGBUILDDIR»/src/code/macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY ASSERT ...)
; x-compiling (DEFUN ASSERT-PROMPT ...)
; x-compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...)
; x-compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...)

; file: /«PKGBUILDDIR»/src/code/macros.lisp
; in: DEFUN SB!C::%DEFINE-SYMBOL-MACRO
;     (CASE SB!IMPL::KIND
;       (:ALIEN "an alien variable")
;       (:CONSTANT "a constant")
;       (:SPECIAL "a special variable")
;       (:GLOBAL "a global variable")
;       (T SB!IMPL::KIND))
; --> LET COND IF COND IF COND IF COND IF COND THE PROGN 
; ==>
;   SB!IMPL::KIND
; 
; note: deleting unreachable code
; x-compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...)
; x-compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...)
; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; x-compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...)
; x-compiling (DEFUN CASE-BODY ...)
; x-compiling (DEFUN CASE-BODY-AUX ...)
; x-compiling (DEFMACRO-MUNDANELY CASE ...)
; x-compiling (DEFMACRO-MUNDANELY CCASE ...)
; x-compiling (DEFMACRO-MUNDANELY ECASE ...)
; x-compiling (DEFMACRO-MUNDANELY TYPECASE ...)
; x-compiling (DEFMACRO-MUNDANELY CTYPECASE ...)
; x-compiling (DEFMACRO-MUNDANELY ETYPECASE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...)
; x-compiling (DEFMACRO-MUNDANELY NTH-VALUE ...)
; x-compiling (DEFMACRO-MUNDANELY DECLAIM ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...)
; x-compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN FUNARG-BIND/CALL-FORMS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/macros.lisp-obj-tmp written
; compilation finished in 0:00:02.268
; compiling file "/«PKGBUILDDIR»/src/code/loop.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!LOOP")
; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...)
; x-compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...)
; x-compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...)
; x-compiling (DEFUN MAKE-LOOP-MINIMAX ...)
; x-compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...)
; x-compiling (DEFUN LOOP-TEQUAL ...)
; x-compiling (DEFUN LOOP-TASSOC ...)
; x-compiling (DEFUN LOOP-TMEMBER ...)
; x-compiling (DEFUN LOOP-LOOKUP-KEYWORD ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...)
; x-compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...)
; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFVAR *LOOP-UNIVERSE*)
; x-compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...)
; x-compiling (DEFUN LOOP-MAKE-PSETQ ...)
; x-compiling (DEFUN LOOP-MAKE-DESETQ ...)
; x-compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...)
; x-compiling (DEFVAR *LOOP-SOURCE-CODE*)
; x-compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*)
; x-compiling (DEFVAR *LOOP-SOURCE-CONTEXT*)
; x-compiling (DEFVAR *LOOP-NAMES*)
; x-compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*)
; x-compiling (DEFVAR *LOOP-NAMED-VARS*)
; x-compiling (DEFVAR *LOOP-VARS*)
; x-compiling (DEFVAR *LOOP-DECLARATIONS*)
; x-compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*)
; x-compiling (DEFVAR *LOOP-DESETQ*)
; x-compiling (DEFVAR *LOOP-WRAPPERS*)
; x-compiling (DEFVAR *LOOP-BIND-STACK*)
; x-compiling (DEFVAR *LOOP-PROLOGUE*)
; x-compiling (DEFVAR *LOOP-BEFORE-LOOP*)
; x-compiling (DEFVAR *LOOP-BODY*)
; x-compiling (DEFVAR *LOOP-AFTER-BODY*)
; x-compiling (DEFVAR *LOOP-EMITTED-BODY*)
; x-compiling (DEFVAR *LOOP-EPILOGUE*)
; x-compiling (DEFVAR *LOOP-AFTER-EPILOGUE*)
; x-compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*)
; x-compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*)
; x-compiling (DEFVAR *LOOP-WHEN-IT-VAR*)
; x-compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*)
; x-compiling (DEFVAR *LOOP-COLLECTION-CRUFT*)
; x-compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...)
; x-compiling (DEFUN LOOP-CONTEXT ...)
; x-compiling (DEFUN LOOP-ERROR ...)
; x-compiling (DEFUN LOOP-WARN ...)
; x-compiling (DEFUN LOOP-CHECK-DATA-TYPE ...)
; x-compiling (DEFUN TRANSFORM-DESTRUCTURING ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND ...)
; x-compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...)
; x-compiling (DEFUN LOOP-TRANSLATE ...)
; x-compiling (DEFUN LOOP-ITERATION-DRIVER ...)
; x-compiling (DEFUN LOOP-POP-SOURCE ...)
; x-compiling (DEFUN LOOP-GET-FORM ...)
; x-compiling (DEFUN LOOP-GET-COMPOUND-FORM ...)
; x-compiling (DEFUN LOOP-GET-PROGN ...)
; x-compiling (DEFUN LOOP-CONSTRUCT-RETURN ...)
; x-compiling (DEFUN LOOP-PSEUDO-BODY ...)
; x-compiling (DEFUN LOOP-EMIT-BODY ...)
; x-compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...)
; x-compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...)
; x-compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...)
; x-compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...)
; x-compiling (DEFUN LOOP-TYPED-INIT ...)
; x-compiling (DEFUN LOOP-OPTIONAL-TYPE ...)
; x-compiling (DEFUN LOOP-BIND-BLOCK ...)
; x-compiling (DEFUN CHECK-VAR-NAME ...)
; x-compiling (DEFUN LOOP-MAKE-VAR ...)
; x-compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...)
; x-compiling (DEFUN LOOP-DECLARE-VAR ...)
; x-compiling (DEFUN LOOP-MAYBE-BIND-FORM ...)
; x-compiling (DEFUN LOOP-DO-IF ...)
; x-compiling (DEFUN LOOP-DO-INITIALLY ...)
; x-compiling (DEFUN LOOP-DO-FINALLY ...)
; x-compiling (DEFUN LOOP-DO-DO ...)
; x-compiling (DEFUN LOOP-DO-NAMED ...)
; x-compiling (DEFUN LOOP-DO-RETURN ...)
; x-compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...)
; x-compiling (DEFUN LOOP-GET-COLLECTION-INFO ...)
; x-compiling (DEFUN LOOP-LIST-COLLECTION ...)
; x-compiling (DEFUN LOOP-SUM-COLLECTION ...)
; x-compiling (DEFUN LOOP-MAXMIN-COLLECTION ...)
; x-compiling (DEFUN LOOP-DO-ALWAYS ...)
; x-compiling (DEFUN LOOP-DO-THEREIS ...)
; x-compiling (DEFUN LOOP-DO-WHILE ...)
; x-compiling (DEFUN LOOP-DO-REPEAT ...)
; x-compiling (DEFUN LOOP-DO-WITH ...)
; x-compiling (DEFUN LOOP-HACK-ITERATION ...)
; x-compiling (DEFUN LOOP-DO-FOR ...)
; x-compiling (DEFUN LOOP-WHEN-IT-VAR ...)
; x-compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...)
; x-compiling (DEFUN LOOP-FOR-ACROSS ...)
; x-compiling (DEFUN LOOP-LIST-STEP ...)
; x-compiling (DEFUN LOOP-FOR-ON ...)
; x-compiling (DEFUN LOOP-FOR-IN ...)
; x-compiling (DEFSTRUCT (LOOP-PATH # ...) ...)
; x-compiling (DEFUN ADD-LOOP-PATH ...)
; x-compiling (DEFUN LOOP-FOR-BEING ...)
; x-compiling (DEFUN LOOP-NAMED-VAR ...)
; x-compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...)
; x-compiling (DEFUN LOOP-SEQUENCER ...)
; x-compiling (DEFUN LOOP-FOR-ARITHMETIC ...)
; x-compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...)
; x-compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...)
; x-compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...)
; x-compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...)
; x-compiling (DEFUN LOOP-STANDARD-EXPANSION ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/loop.lisp-obj-tmp written
; compilation finished in 0:00:06.060
; compiling file "/«PKGBUILDDIR»/src/code/cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!MACRO CAS ...)
; x-compiling (DEFUN GET-CAS-EXPANSION ...)
; x-compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...)
; x-compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...)
; x-compiling (DEF!MACRO DEFCAS ...)
; x-compiling (DEF!MACRO COMPARE-AND-SWAP ...)
; x-compiling (DEF %COMPARE-AND-SWAP-CAR ...)
; x-compiling (DEF %COMPARE-AND-SWAP-CDR ...)
; x-compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...)
; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...)
; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; x-compiling (DEF %COMPARE-AND-SWAP-SVREF ...)
; x-compiling (DEF-FROB %ATOMIC-INC-SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEF-FROB %ATOMIC-DEC-SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEF-FROB %ATOMIC-INC-CAR ...)
; x-compiling (DEF-FROB %ATOMIC-DEC-CAR ...)
; x-compiling (DEF-FROB %ATOMIC-INC-CDR ...)
; x-compiling (DEF-FROB %ATOMIC-DEC-CDR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cas.lisp-obj-tmp written
; compilation finished in 0:00:01.001
; compiling file "/«PKGBUILDDIR»/src/code/late-cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFCAS CAR ...)
; x-compiling (DEFCAS CDR ...)
; x-compiling (DEFCAS FIRST ...)
; x-compiling (DEFCAS REST ...)
; x-compiling (DEFCAS SYMBOL-PLIST ...)
; x-compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...)
; x-compiling (DEFINE-CAS-EXPANDER SVREF ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-cas.lisp-obj-tmp written
; compilation finished in 0:00:00.634
; compiling file "/«PKGBUILDDIR»/src/code/late-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FORMAT")
; x-compiling (DEFINE-CONDITION FORMAT-ERROR ...)
; x-compiling (DEFUN %PRINT-FORMAT-ERROR ...)
; x-compiling (DEF!STRUCT FORMAT-DIRECTIVE ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN TOKENIZE-CONTROL-STRING ...)
; x-compiling (DEFUN PARSE-DIRECTIVE ...)
; x-compiling (SB-XC:DEFMACRO FORMATTER ...)
; x-compiling (DEFUN %FORMATTER ...)
; x-compiling (DEFUN ARGS-EXHAUSTED ...)
; x-compiling (DEFUN EXPAND-CONTROL-STRING ...)
; x-compiling (DEFUN EXPAND-DIRECTIVE-LIST ...)
; x-compiling (DEFUN EXPAND-DIRECTIVE ...)
; x-compiling (DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG ...)
; x-compiling (DEFUN EXPAND-NEXT-ARG ...)
; x-compiling (DEFMACRO EXPAND-BIND-DEFAULTS ...)
; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...)
; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...)
; x-compiling (DEFUN FIND-DIRECTIVE ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\A ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\S ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\C ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\W ...)
; x-compiling (DEFUN EXPAND-FORMAT-INTEGER ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\D ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\B ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\O ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\X ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\R ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\P ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\F ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\E ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\G ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\$ ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\% ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\& ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\| ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\~ ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\T ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\_ ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\I ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\* ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\? ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\( ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\) ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\[ ...)
; x-compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...)
; x-compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...)
; x-compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\; ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\] ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\^ ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\{ ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\} ...)
; x-compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...)
; x-compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\< ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\> ...)
; x-compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...)
; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...)
; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...)
; x-compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...)
; x-compiling (SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...)
; x-compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...)
; x-compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\/ ...)
; x-compiling (DEFUN EXTRACT-USER-FUN-NAME ...)
; x-compiling (DEFUN %COMPILER-WALK-FORMAT-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-format.lisp-obj-tmp written
; compilation finished in 0:00:08.039
; compiling file "/«PKGBUILDDIR»/src/code/sxhash.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM PSXHASH ...)
; x-compiling (DEFTRANSFORM PSXHASH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sxhash.lisp-obj-tmp written
; compilation finished in 0:00:00.457
; compiling file "/«PKGBUILDDIR»/src/code/signal.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (!DEFVAR *INTERRUPTS-ENABLED* ...)
; x-compiling (!DEFVAR *INTERRUPT-PENDING* ...)
; x-compiling (!DEFVAR *ALLOW-WITH-INTERRUPTS* ...)
; x-compiling (!DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...)
; x-compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...)
; x-compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...)
; x-compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...)
; x-compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...)
; x-compiling (DEFUN %CHECK-INTERRUPTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/signal.lisp-obj-tmp written
; compilation finished in 0:00:00.565
; compiling file "/«PKGBUILDDIR»/src/code/late-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY DEF!METHOD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00.038
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/pcl/
; compiling file "/«PKGBUILDDIR»/src/pcl/walk.lisp" (written 30 MAY 2015 05:47:21 AM):
; x-compiling (IN-PACKAGE "SB!WALKER")
; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*)
; x-compiling (/SHOW "walk.lisp 108")
; x-compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...)
; x-compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...)
; x-compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...)
; x-compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...)
; x-compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...)
; x-compiling (DEFUN ENVIRONMENT-FUNCTION ...)
; x-compiling (DEFUN ENVIRONMENT-MACRO ...)
; x-compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...)
; x-compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...)
; x-compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...)
; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...)
; x-compiling (DEFUN ENV-LOCK ...)
; x-compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...)
; x-compiling (DEFUN ENV-WALK-FUNCTION ...)
; x-compiling (DEFUN ENV-WALK-FORM ...)
; x-compiling (DEFUN ENV-DECLARATIONS ...)
; x-compiling (DEFUN ENV-VAR-TYPE ...)
; x-compiling (DEFUN ENV-LEXICAL-VARIABLES ...)
; x-compiling (DEFUN NOTE-DECLARATION ...)
; x-compiling (DEFUN NOTE-VAR-BINDING ...)
; x-compiling (DEFUN VAR-LEXICAL-P ...)
; x-compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...)
; x-compiling (DEFUN VAR-GLOBALLY-SYMBOL-MACRO-P ...)
; x-compiling (DEFUN WALKED-VAR-DECLARATION-P ...)
; x-compiling (DEFUN %VAR-DECLARATION ...)
; x-compiling (DEFUN VAR-DECLARATION ...)
; x-compiling (DEFINE-COMPILER-MACRO VAR-DECLARATION ...)
; x-compiling (DEFUN VAR-SPECIAL-P ...)
; x-compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...)
; x-compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...)
; x-compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...)
; x-compiling (DEFUN GET-WALKER-TEMPLATE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE BLOCK ...)
; x-compiling (DEFINE-WALKER-TEMPLATE CATCH ...)
; x-compiling (DEFINE-WALKER-TEMPLATE DECLARE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...)
; x-compiling (DEFINE-WALKER-TEMPLATE FLET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...)
; x-compiling (DEFINE-WALKER-TEMPLATE GO ...)
; x-compiling (DEFINE-WALKER-TEMPLATE IF ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LABELS ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LET* ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LOAD-TIME-VALUE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LOCALLY ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MACROLET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-CALL ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-PROG1 ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-SETQ ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-BIND ...)
; x-compiling (DEFINE-WALKER-TEMPLATE PROGN ...)
; x-compiling (DEFINE-WALKER-TEMPLATE PROGV ...)
; x-compiling (DEFINE-WALKER-TEMPLATE QUOTE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE RETURN-FROM ...)
; x-compiling (DEFINE-WALKER-TEMPLATE SETQ ...)
; x-compiling (DEFINE-WALKER-TEMPLATE SYMBOL-MACROLET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE TAGBODY ...)
; x-compiling (DEFINE-WALKER-TEMPLATE THE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE THROW ...)
; x-compiling (DEFINE-WALKER-TEMPLATE UNWIND-PROTECT ...)
; x-compiling (DEFINE-WALKER-TEMPLATE TRULY-THE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE NAMED-LAMBDA ...)
; x-compiling (DEFVAR *WALK-FORM-EXPAND-MACROS-P* ...)
; x-compiling (DEFUN WALK-FORM ...)
; x-compiling (DEFUN WALK-FORM-INTERNAL ...)
; x-compiling (DEFUN WALK-TEMPLATE ...)
; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT ...)
; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1 ...)
; x-compiling (DEFUN WALK-REPEAT-EVAL ...)
; x-compiling (DEFUN RECONS ...)
; x-compiling (DEFUN RELIST ...)
; x-compiling (DEFUN RELIST* ...)
; x-compiling (DEFUN RELIST-INTERNAL ...)
; x-compiling (DEFUN WALK-DECLARATIONS ...)
; x-compiling (DEFUN WALK-UNEXPECTED-DECLARE ...)
; x-compiling (DEFUN WALK-ARGLIST ...)
; x-compiling (DEFUN WALK-LET ...)
; x-compiling (DEFUN LET*-BINDING-NAME ...)
; x-compiling (DEFUN LET*-BINDING-INIT ...)
; x-compiling (DEFUN LET*-BINDINGS ...)
; x-compiling (DEFUN WALK-LET* ...)
; x-compiling (DEFUN WALK-LOAD-TIME-VALUE ...)
; x-compiling (DEFUN WALK-LOCALLY ...)
; x-compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...)
; x-compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...)
; x-compiling (DEFUN WALK-BINDINGS-1 ...)
; x-compiling (DEFUN WALK-LAMBDA ...)
; x-compiling (DEFUN WALK-NAMED-LAMBDA ...)
; x-compiling (DEFUN WALK-SETQ ...)
; x-compiling (DEFUN WALK-SYMBOL-MACROLET ...)
; x-compiling (DEFUN WALK-TAGBODY ...)
; x-compiling (DEFUN WALK-TAGBODY-1 ...)
; x-compiling (DEFUN WALK-MACROLET ...)
; x-compiling (DEFUN WALK-FLET ...)
; x-compiling (DEFUN WALK-LABELS ...)
; x-compiling (DEFUN WALK-IF ...)

; /«PKGBUILDDIR»/obj/from-xc/src/pcl/walk.lisp-obj-tmp written
; compilation finished in 0:00:02.659
T
* 
Likely suspicious calls:
5013 SB!IMPL::XSUBTRACT
 113 MAPHASH
  49 SB!INT:LEGAL-FUN-NAME-P
  45 CONSTANTP
  32 SB!C::LVAR-SINGLE-VALUE-P
  25 SB!C::NODE-BLOCK
  25 SB!INT:CONSTANT-FORM-VALUE
  17 SB!C::REOPTIMIZE-COMPONENT
  17 SB!DI::DESCRIPTOR-SAP
  13 SB!C::NODE-DEST
  13 SB!C::SET-BOUND
  13 SB!C::LVAR-USE
  13 SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE
   9 SB!IMPL::VECTOR-WITH-FILL-POINTER-P
   9 SB!IMPL::BOTH-CASE-INDEX-P
   5 ALPHANUMERICP
   5 FILL-POINTER
   5 SB!C::LVAR-HAS-SINGLE-USE-P
   5 SB!C::LVAR-DERIVED-TYPE
   5 SB!IMPL::%MAKUNBOUND
   5 SB!IMPL::WHITESPACE[1]P
   5 SB!KERNEL:RANDOM-CHUNK
   5 SB!KERNEL:CURRENT-DYNAMIC-SPACE-START
   5 SB!VM::CURRENT-THREAD-OFFSET-SAP
   5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION)
   5 SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION
   5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST)
   5 SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST
   5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME)
   5 SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME
   5 SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION

Possibly suspicious calls:
2401 SB!KERNEL:%COERCE-CALLABLE-TO-FUN
2317 LENGTH
1793 FORMAT
1673 ASH
1193 NCONC
 593 TRUNCATE
 537 APPEND
 521 SB!KERNEL:%DOUBLE-FLOAT
 397 COMPLEX
 393 REALPART
 389 SB!KERNEL:%SINGLE-FLOAT
 349 INTEGER-LENGTH
 321 MAKE-ARRAY
 305 IMAGPART
 205 COERCE
 189 LOGNOT
 181 ABS
 101 TYPEP
  85 SB!KERNEL:CONS-TYPE-P
  81 LOGANDC2
  77 SB!C::INTERVAL-LOW
  77 SB!KERNEL:ARRAY-TYPE-DIMENSIONS
  69 SB!C::INTERVAL-HIGH
  69 SB!KERNEL:ARRAY-TYPE-P
  49 LOGCOUNT
  33 EVERY
  33 LOGANDC1
  33 SB!KERNEL:%UNARY-TRUNCATE/SINGLE-FLOAT
  29 ELT
  29 SB!KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT
  21 ROUND
  21 LIST-LENGTH
  21 LOGNOR
  21 SB!C::MASK-SIGNED-FIELD
  21 SB!KERNEL:%UNARY-ROUND
  17 SOME
  13 SYNONYM-STREAM-SYMBOL
  13 VALUES-LIST
  13 SIGNUM
  13 SB!DI:FRAME-DEBUG-FUN
  13 SB!IMPL::SYNONYM-STREAM-P
  13 SB!SYS:FD-STREAM-P
   9 WRITE
   9 READ-FROM-STRING
   9 SB!C:FIXUP-FLAVOR
   9 SB!C:FIXUP-NOTE-KIND
   9 SB!C:FIXUP-NOTE-FIXUP
   9 SB!C:FIXUP-NAME
   9 SB!C:FIXUP-NOTE-POSITION
   9 SB!C::COMPILER-ERROR-CONTEXT-LEXENV
   9 SB!DI::COMPILED-FRAME-P
   9 SB!DISASSEM:SEG-VIRTUAL-LOCATION
   9 SB!IMPL::FD-STREAM-CHAR-SIZE
   9 SB!PRETTY:PRETTY-STREAM-P
   9 SB!SYS:SAP+
   5 WRITE-TO-STRING
   5 SB!C::POLICY-QUALITY
   5 SB!DI::COMPILED-FRAME-ESCAPED
   5 SB!IMPL::EF-READ-C-STRING-FUN
   5 SB!IMPL::EF-WRITE-C-STRING-FUN
   5 SB!INT:FORM-TRACKING-STREAM-P
   5 SB!KERNEL:KEY-INFO-NAME
   5 SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE
   5 SB!KERNEL:UNION-TYPE-TYPES
   5 SB!KERNEL:HAIRY-TYPE-SPECIFIER
   5 SB!KERNEL:UNION-TYPE-P
   5 SB!KERNEL:CHARACTER-SET-TYPE-PAIRS
   5 SB!KERNEL:ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE
   5 SB!KERNEL:NUMERIC-TYPE-FORMAT
   5 SB!KERNEL:NEGATION-TYPE-TYPE
   5 SB!KERNEL:COMPOUND-TYPE-TYPES
   5 SB!THREAD::WAITQUEUE-P
   5 SB!SYS:FOREIGN-SYMBOL-SAP
   4 MAPCAR
   4 LIST
   4 SB!KERNEL:MAKE-DOUBLE-FLOAT
   4 SB!KERNEL:MAKE-SINGLE-FLOAT
NIL
* 
NIL
* 
(#P"obj/from-xc/src/code/early-source-location.lisp-obj"
 #P"obj/from-xc/src/code/show.lisp-obj"
 #P"obj/from-xc/src/code/early-constants.lisp-obj"
 #P"obj/from-xc/src/code/backq.lisp-obj"
 #P"obj/from-xc/src/code/globals.lisp-obj" ...)
* 
T
* [undoing binding stack and other enclosing state... done]
[saving current Lisp image into output/after-xc.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 77881344 bytes from the dynamic space at 0x4f000000
done]
//entering make-genesis-2.sh
//loading and running GENESIS to create cold-sbcl.core
This is SBCL 1.2.11.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* 
5
* target features *SHEBANG-FEATURES*=(:OS-PROVIDES-POLL
                                      :OS-PROVIDES-GETPROTOBY-R
                                      :OS-PROVIDES-SUSECONDS-T
                                      :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN
                                      :LITTLE-ENDIAN
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :PRECISE-ARG-COUNT-ERROR
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :STACK-ALLOCATABLE-VECTORS
                                      :STACK-ALLOCATABLE-FIXED-OBJECTS
                                      :STACK-ALLOCATABLE-LISTS
                                      :SYMBOL-INFO-VOPS :MULTIPLY-HIGH-VOPS
                                      :ASH-RIGHT-VOPS :ARM-VFPV2 :ARM-VFP
                                      :ALIEN-CALLBACKS :LINKAGE-TABLE :GENCGC
                                      :LARGEFILE :LINUX :ELF :UNIX :ARM
                                      :IEEE-FLOATING-POINT
                                      :PACKAGE-LOCAL-NICKNAMES
                                      :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE
                                      :SB-PACKAGE-LOCKS :SB-LDB :SB-TEST
                                      :SB-DOC :SBCL :COMMON-LISP :ANSI-CL
                                      :SB-CORE-COMPRESSION
                                      :SB-XREF-FOR-INTERNALS :SB-AFTER-XC-CORE)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-xc/"
* 
T
* 
T
; in: LAMBDA (SB-KERNEL::NEWVAL SB-KERNEL:INSTANCE)
;     (THE SB!C::CLAMBDA #:NEW599)
; 
; caught STYLE-WARNING:
;   undefined type: CLAMBDA
; 
; compilation unit finished
;   Undefined type:
;     CLAMBDA
;   caught 1 STYLE-WARNING condition

;     (THE SB!C:TN #:NEW606)
; 
; caught STYLE-WARNING:
;   undefined type: TN
; 
; compilation unit finished
;   Undefined type:
;     TN
;   caught 1 STYLE-WARNING condition

; in: SB-XC:DEFMACRO DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN
* 
* 
*TARGET-OBJECT-FILE-NAMES*
* 
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/genesis.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFCONSTANT CORE-MAGIC ...)
; compiling (DEFUN ROUND-UP ...)
; compiling (DEFCONSTANT +SMALLVEC-LENGTH+ ...)
; compiling (DEFTYPE SMALLVEC ...)
; compiling (DEFUN MAKE-SMALLVEC ...)
; compiling (DEFSTRUCT BIGVEC ...)
; compiling (DEFUN BVREF ...)
; compiling (DEFUN (SETF BVREF) ...)
; compiling (DEFUN BVLENGTH ...)
; compiling (DEFUN WRITE-BIGVEC-AS-SEQUENCE ...)
; compiling (DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE ...)
; compiling (DEFUN EXPAND-BIGVEC ...)
; compiling (MAKE-BVREF-N 8)
; compiling (MAKE-BVREF-N 16)
; compiling (MAKE-BVREF-N 32)
; compiling (MAKE-BVREF-N 64)
; compiling (DEFUN BVREF-WORD ...)
; compiling (DEFUN (SETF BVREF-WORD) ...)
; compiling (DEFVAR *DYNAMIC*)
; compiling (DEFCONSTANT DYNAMIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *STATIC*)
; compiling (DEFCONSTANT STATIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *READ-ONLY*)
; compiling (DEFCONSTANT READ-ONLY-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT MAX-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT DEFLATED-CORE-SPACE-ID-FLAG ...)
; compiling (DEFCONSTANT TARGET-SPACE-ALIGNMENT ...)
; compiling (DEFSTRUCT (GSPACE # ...) ...)
; compiling (DEFUN GSPACE-BYTE-ADDRESS ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-GSPACE ...)
; compiling (DEFUN IS-FIXNUM-LOWTAG ...)
; compiling (DEFUN IS-OTHER-IMMEDIATE-LOWTAG ...)
; compiling (DEFSTRUCT (DESCRIPTOR # ...) ...)
; compiling (DECLAIM (INLINE DESCRIPTOR=))
; compiling (DEFUN DESCRIPTOR= ...)
; compiling (DEFUN MAKE-RANDOM-DESCRIPTOR ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALLOCATE-COLD-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-LOWTAG ...)
; compiling (DEFUN DESCRIPTOR-FIXNUM ...)
; compiling (DEFUN DESCRIPTOR-WORD-SIZED-INTEGER ...)
; compiling (DEFUN DESCRIPTOR-BYTES ...)
; compiling (DEFUN DESCRIPTOR-BYTE-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DESCRIPTOR-INTUIT-GSPACE ...)
; compiling (DEFUN %FIXNUM-DESCRIPTOR-IF-POSSIBLE ...)
; compiling (DEFUN MAKE-FIXNUM-DESCRIPTOR ...)
; compiling (DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR ...)
; compiling (DEFUN MAKE-CHARACTER-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-BEYOND ...)
; compiling (DEFVAR *FOREIGN-SYMBOL-PLACEHOLDER-VALUE*)
; compiling (DEFVAR *UNBOUND-MARKER*)
; compiling (DEFVAR *NIL-DESCRIPTOR*)
; compiling (DEFVAR *CURRENT-REVERSED-COLD-TOPLEVELS*)
; compiling (DEFVAR *CURRENT-DEBUG-SOURCES*)
; compiling (DEFPARAMETER *COLD-FOREIGN-UNDEFINED-SYMBOLS* ...)
; compiling (DEFMACRO COLD-PUSH ...)
; compiling (DEFUN TARGET-PUSH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-BITS-WORDINDEXED ...)
; compiling (DEFUN READ-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-MEMORY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-MEMORY ...)
; compiling (DEFUN WRITE-HEADER-WORD ...)
; compiling (DEFUN ALLOCATE-OBJECT ...)
; compiling (DEFUN ALLOCATE-HEADER+OBJECT ...)
; compiling (DEFUN ALLOCATE-VECTOR-OBJECT ...)
; compiling (DEFVAR *HOST-LAYOUT-OF-LAYOUT* ...)
; compiling (DEFUN COLD-LAYOUT-LENGTH ...)
; compiling (DEFUN ALLOCATE-STRUCT ...)
; compiling (DEFUN BASE-STRING-TO-CORE ...)
; compiling (DEFUN BASE-STRING-FROM-CORE ...)
; compiling (DEFUN BIGNUM-TO-CORE ...)
; compiling (DEFUN BIGNUM-FROM-CORE ...)
; compiling (DEFUN NUMBER-PAIR-TO-CORE ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN WRITE-DOUBLE-FLOAT-BITS
;     (LET ((SB!FASL::BITS
;            (SB!FASL::MAKE-RANDOM-DESCRIPTOR (ECASE SB!C:*BACKEND-BYTE-ORDER* #))))
;       (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::BITS))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32))
; ==>
;   SB!FASL::LO
; 
; note: deleting unreachable code

;     (SB!FASL::MAKE-RANDOM-DESCRIPTOR
;      (ECASE SB!C:*BACKEND-BYTE-ORDER*
;        (:LITTLE-ENDIAN (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32)))))
; 
; note: deleting unreachable code
; compiling (DEFUN WRITE-DOUBLE-FLOAT-BITS ...)
; compiling (DEFUN FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE ...)
; compiling (DEFUN NUMBER-TO-CORE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-INT-TO-CORE ...)
; compiling (DEFUN COLD-CONS ...)
; compiling (DEFUN COLD-LIST ...)
; compiling (DEFUN COLD-LIST-LENGTH ...)
; compiling (DEFUN VECTOR-IN-CORE ...)
; compiling (DEFUN COLD-SVSET ...)
; compiling (DECLAIM (INLINE COLD-VECTOR-LEN ...))
; compiling (DEFUN COLD-VECTOR-LEN ...)
; compiling (DEFUN COLD-SVREF ...)
; compiling (DEFUN COLD-VECTOR-ELEMENTS-EQ ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN VECTOR-FROM-CORE
;     (SB!FASL::COLD-SVREF SB!FASL::DESCRIPTOR SB!FASL::I)
; --> BLOCK SB!FASL::READ-WORDINDEXED + IF SB!FASL::DESCRIPTOR-FIXNUM 
; ==>
;   SB!FASL::I
; 
; note: deleting unreachable code
; compiling (DEFUN VECTOR-FROM-CORE ...)
; compiling (DEFVAR *GENESIS-TLS-COUNTER* ...)
; compiling (DEFUN ALLOCATE-SYMBOL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COLD-SET ...)
; compiling (DEFUN COLD-SYMBOL-VALUE ...)
; compiling (DEFUN COLD-FDEFN-FUN ...)
; compiling (DEFVAR *COLD-LAYOUTS* ...)
; compiling (DEFVAR *COLD-LAYOUT-NAMES* ...)
; compiling (DEFVAR *LAYOUT-LAYOUT*)
; compiling (DEFVAR *PACKAGE-LAYOUT*)
; compiling (DEFVAR *KNOWN-STRUCTURE-CLASSOIDS*)
; compiling (DEFCONSTANT TARGET-LAYOUT-LENGTH ...)
; compiling (DEFUN LISTIFY-COLD-INHERITS ...)
; compiling (DEFUN WRITE-SLOTS ...)
; compiling (DEFUN READ-SLOT ...)
; compiling (DEFVAR *SIMPLE-VECTOR-0-DESCRIPTOR*)
; compiling (DEFVAR *VACUOUS-SLOT-TABLE*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-COLD-LAYOUT ...)
; compiling (DEFUN PATCH-INSTANCE-LAYOUT ...)
; compiling (DEFUN INITIALIZE-LAYOUTS ...)
; compiling (DEFVAR *COLD-PACKAGE-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *COLD-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN INITIALIZE-PACKAGES ...)
; compiling (DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P ...)
; compiling (DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL ...)
; compiling (DEFVAR *UNINTERNED-SYMBOL-TABLE* ...)
; compiling (DEFUN GET-UNINTERNED-SYMBOL ...)
; compiling (DEFUN HOST-CONSTANT-TO-CORE ...)
; compiling (DEFUN TARGET-SYMBOL-FUNCTION ...)
; compiling (DEFUN EMULATE-TARGET-MAKE-ARRAY ...)
; compiling (DEFUN EMULATE-TARGET-EVAL ...)
; compiling (DEFUN COLD-INTERN ...)
; compiling (DEFUN RECORD-ACCESSIBILITY ...)
; compiling (DEFUN MAKE-NIL-DESCRIPTOR ...)
; compiling (DEFUN INITIALIZE-NON-NIL-SYMBOLS ...)
; compiling (DEFUN SORT-COLD-LAYOUTS ...)
; compiling (DEFUN COLD-LIST-ALL-LAYOUTS ...)
; compiling (DEFUN FINISH-SYMBOLS ...)
; compiling (DEFVAR *COLD-FDEFN-OBJECTS*)
; compiling (DEFVAR *COLD-FDEFN-GSPACE* ...)
; compiling (DEFUN WARM-SYMBOL ...)
; compiling (DEFUN COLD-CAR ...)
; compiling (DEFUN COLD-CDR ...)
; compiling (DEFUN COLD-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WARM-FUN-NAME ...)
; compiling (DEFUN COLD-FDEFINITION-OBJECT ...)
; compiling (DEFUN STATIC-FSET ...)
; compiling (DEFPARAMETER *COLD-FSET-WARM-NAMES* ...)
; compiling (DEFUN COLD-FSET ...)
; compiling (DEFUN INITIALIZE-STATIC-FNS ...)
; compiling (DEFUN ATTACH-FDEFINITIONS-TO-SYMBOLS ...)
; compiling (DEFVAR *COLD-FOREIGN-SYMBOL-TABLE*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE ...)
; compiling (DEFUN COLD-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFVAR *COLD-ASSEMBLER-ROUTINES*)
; compiling (DEFVAR *COLD-ASSEMBLER-FIXUPS*)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-ROUTINE ...)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-FIXUP ...)
; compiling (DEFUN LOOKUP-ASSEMBLER-REFERENCE ...)
; compiling (DEFVAR *DEFERRED-KNOWN-FUN-REFS*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CALC-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DO-COLD-FIXUP ...)
; compiling (DEFUN RESOLVE-ASSEMBLER-FIXUPS ...)
; compiling (DEFUN FOREIGN-SYMBOLS-TO-CORE ...)
; compiling (DEFUN POP-FOP-STACK ...)
; compiling (DEFMACRO DEFINE-COLD-FOP ...)
; compiling (DEFMACRO NOT-COLD-FOP ...)
; compiling (DEFUN COLD-LOAD ...)
; compiling (DEFINE-COLD-FOP (FOP-MISC-TRAP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER #) ...)
; compiling (DEFINE-COLD-FOP (FOP-EMPTY-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-TRUTH) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCT #) ...)
; compiling (DEFINE-COLD-FOP (FOP-LAYOUT) ...)
; compiling (DEFUN COLD-LOAD-SYMBOL ...)
; compiling (FLET (#) ...)
; compiling (DEFINE-COLD-FOP (FOP-LISP-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-COPY-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-NAMED-PACKAGE-SAVE #) ...)
; compiling (DEFMACRO COLD-STACK-LIST ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-BASE-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-VECTOR #) ...)
; compiling (DEFINE-COLD-FOP (FOP-SPEC-VECTOR) ...)
; compiling (NOT-COLD-FOP FOP-ARRAY)
; compiling (DEFMACRO DEFINE-COLD-NUMBER-FOP ...)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-WORD-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-BYTE-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-INTEGER ...)
; compiling (DEFINE-COLD-FOP (FOP-RATIO) ...)
; compiling (DEFINE-COLD-FOP (FOP-COMPLEX) ...)
; compiling (NOT-COLD-FOP FOP-EVAL)
; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT)
; compiling (DEFVAR *LOAD-TIME-VALUE-COUNTER*)
; compiling (FLET (#) ...)
; compiling (DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACA) ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACD) ...)
; compiling (DEFINE-COLD-FOP (FOP-SVSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCTSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-NTHCDR) ...)
; compiling (DEFUN COLD-NTHCDR ...)
; compiling (DEFINE-COLD-FOP (FOP-NOTE-DEBUG-SOURCE) ...)
; compiling (DEFINE-COLD-FOP (FOP-FDEFN) ...)
; compiling (DEFINE-COLD-FOP (FOP-KNOWN-FUN) ...)
; compiling (DEFINE-COLD-FOP (FOP-SANCTIFY-FOR-EXECUTION) ...)
; compiling (DEFUN COLD-LOAD-CODE ...)
; compiling (DOTIMES (I 16) ...)
; compiling (DEFUN RESOLVE-DEFERRED-KNOWN-FUNS ...)
; compiling (DEFINE-COLD-FOP (FOP-ALTER-CODE #) ...)
; compiling (DEFVAR *SIMPLE-FUN-METADATA* ...)
; compiling (DEFUN MAKE-EQUAL-COMPARABLE-THING ...)
; compiling (DEFINE-COLD-FOP (FOP-FUN-ENTRY) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP) ...)
; compiling (DEFUN CHECK-SPACES ...)
; compiling (DEFUN TAILWISE-EQUAL ...)
; compiling (DEFUN WRITE-BOILERPLATE ...)
; compiling (DEFUN C-NAME ...)
; compiling (DEFUN C-SYMBOL-NAME ...)
; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...)
; compiling (DEFUN WRITE-CONFIG-H ...)
; compiling (DEFUN WRITE-CONSTANTS-H ...)
; compiling (DEFUN WRITE-TAGNAMES-H ...)
; compiling (DEFUN WRITE-PRIMITIVE-OBJECT ...)
; compiling (DEFUN WRITE-STRUCTURE-OBJECT ...)
; compiling (DEFUN WRITE-STATIC-SYMBOLS ...)
; compiling (DEFUN WRITE-MAP ...)
; compiling (DEFVAR *CORE-FILE*)
; compiling (DEFVAR *DATA-PAGE*)
; compiling (DEFCONSTANT BUILD-ID-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT INITIAL-FUN-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT PAGE-TABLE-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT END-CORE-ENTRY-TYPE-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORD ...)
; compiling (DEFUN ADVANCE-TO-PAGE ...)
; compiling (DEFUN OUTPUT-GSPACE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-INITIAL-CORE-FILE ...)
; compiling (DEFUN SB!VM:GENESIS ...)
; 
; compilation unit finished
;   printed 5 notes
; compiling (DEFUN WARMELIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/genesis.fasl-tmp written
; compilation finished in 0:00:20.730
T
* 
beginning GENESIS, creating core "output/cold-sbcl.core"
obj/from-xc/src/code/early-source-location.lisp-obj
obj/from-xc/src/code/show.lisp-obj
obj/from-xc/src/code/early-constants.lisp-obj
obj/from-xc/src/code/backq.lisp-obj
obj/from-xc/src/code/globals.lisp-obj
obj/from-xc/src/code/defsetfs.lisp-obj
obj/from-xc/src/code/cold-init-helper-macros.lisp-obj
obj/from-xc/src/code/uncross.lisp-obj
obj/from-xc/src/code/primordial-type.lisp-obj
obj/from-xc/src/code/early-defbangmethod.lisp-obj
obj/from-xc/src/code/defbangtype.lisp-obj
obj/from-xc/src/code/defbangmacro.lisp-obj
obj/from-xc/src/code/defbangconstant.lisp-obj
obj/from-xc/src/code/primordial-extensions.lisp-obj
obj/from-xc/src/compiler/early-globaldb.lisp-obj
obj/from-xc/src/code/function-names.lisp-obj
obj/from-xc/src/compiler/generic/parms.lisp-obj
obj/from-xc/src/compiler/arm/parms.lisp-obj
obj/from-xc/src/compiler/generic/early-vm.lisp-obj
obj/from-xc/src/compiler/generic/early-objdef.lisp-obj
obj/from-xc/src/code/early-array.lisp-obj
obj/from-xc/src/code/kernel.lisp-obj
obj/from-xc/src/code/barrier.lisp-obj
obj/from-xc/src/code/early-extensions.lisp-obj
obj/from-xc/src/code/parse-body.lisp-obj
obj/from-xc/src/code/parse-defmacro.lisp-obj
obj/from-xc/src/compiler/deftype.lisp-obj
obj/from-xc/src/code/restart.lisp-obj
obj/from-xc/src/compiler/defconstant.lisp-obj
obj/from-xc/src/code/early-alieneval.lisp-obj
obj/from-xc/src/code/specializable-array.lisp-obj
obj/from-xc/src/code/early-cl.lisp-obj
obj/from-xc/src/code/early-fasl.lisp-obj
obj/from-xc/src/code/debug-var-io.lisp-obj
obj/from-xc/src/code/early-thread.lisp-obj
obj/from-xc/src/code/target-defbangmethod.lisp-obj
obj/from-xc/src/code/early-print.lisp-obj
obj/from-xc/src/code/early-pprint.lisp-obj
obj/from-xc/src/code/early-impl.lisp-obj
obj/from-xc/src/code/target-extensions.lisp-obj
obj/from-xc/src/code/early-package.lisp-obj
obj/from-xc/src/code/early-defstructs.lisp-obj
obj/from-xc/src/code/early-raw-slots.lisp-obj
obj/from-xc/src/code/defbangstruct.lisp-obj
obj/from-xc/src/code/unportable-float.lisp-obj
obj/from-xc/src/code/funutils.lisp-obj
obj/from-xc/src/code/type-class.lisp-obj
obj/from-xc/src/code/ansi-stream.lisp-obj
obj/from-xc/src/code/sysmacs.lisp-obj
obj/from-xc/src/code/target-error.lisp-obj
obj/from-xc/src/compiler/early-backend.lisp-obj
obj/from-xc/output/stuff-groveled-from-headers.lisp-obj
obj/from-xc/src/code/toplevel.lisp-obj
obj/from-xc/src/code/cold-error.lisp-obj
obj/from-xc/src/compiler/info-vector.lisp-obj
obj/from-xc/src/code/fdefinition.lisp-obj
obj/from-xc/src/code/target-type.lisp-obj
obj/from-xc/src/code/pred.lisp-obj
obj/from-xc/src/code/target-alieneval.lisp-obj
obj/from-xc/src/code/target-c-call.lisp-obj
obj/from-xc/src/code/target-allocate.lisp-obj
obj/from-xc/src/code/misc-aliens.lisp-obj
obj/from-xc/src/code/typedefs.lisp-obj
obj/from-xc/src/compiler/generic/vm-array.lisp-obj
obj/from-xc/src/code/weak.lisp-obj
obj/from-xc/src/code/array.lisp-obj
obj/from-xc/src/code/early-float.lisp-obj
obj/from-xc/src/code/target-sxhash.lisp-obj
obj/from-xc/src/code/list.lisp-obj
obj/from-xc/src/code/seq.lisp-obj
obj/from-xc/src/code/coerce.lisp-obj
obj/from-xc/src/code/string.lisp-obj
obj/from-xc/src/code/mipsstrops.lisp-obj
obj/from-xc/src/code/early-time.lisp-obj
obj/from-xc/src/code/unix.lisp-obj
obj/from-xc/src/code/common-os.lisp-obj
obj/from-xc/src/code/linux-os.lisp-obj
obj/from-xc/src/code/sc-offset.lisp-obj
obj/from-xc/src/code/arm-vm.lisp-obj
obj/from-xc/src/code/target-signal.lisp-obj
obj/from-xc/src/code/symbol.lisp-obj
obj/from-xc/src/code/bignum.lisp-obj
obj/from-xc/src/code/numbers.lisp-obj
obj/from-xc/src/code/float-trap.lisp-obj
obj/from-xc/src/code/float.lisp-obj
obj/from-xc/src/code/irrat.lisp-obj
obj/from-xc/src/code/char.lisp-obj
obj/from-xc/src/code/huffman.lisp-obj
obj/from-xc/src/code/target-char.lisp-obj
obj/from-xc/src/code/target-unicode.lisp-obj
obj/from-xc/src/code/target-misc.lisp-obj
obj/from-xc/src/code/misc.lisp-obj
obj/from-xc/src/code/room.lisp-obj
obj/from-xc/src/code/stream.lisp-obj
obj/from-xc/src/code/print.lisp-obj
obj/from-xc/src/code/early-format.lisp-obj
obj/from-xc/src/code/target-format.lisp-obj
obj/from-xc/src/code/defpackage.lisp-obj
obj/from-xc/src/code/error-error.lisp-obj
obj/from-xc/src/code/deadline.lisp-obj
obj/from-xc/src/code/serve-event.lisp-obj
obj/from-xc/src/code/fd-stream.lisp-obj
obj/from-xc/src/code/module.lisp-obj
obj/from-xc/src/code/query.lisp-obj
obj/from-xc/src/code/sort.lisp-obj
obj/from-xc/src/code/time.lisp-obj
obj/from-xc/src/code/timer.lisp-obj
obj/from-xc/src/code/final.lisp-obj
obj/from-xc/src/code/setf-funs.lisp-obj
obj/from-xc/src/code/stubs.lisp-obj
obj/from-xc/src/code/exhaust.lisp-obj
obj/from-xc/src/compiler/early-c.lisp-obj
obj/from-xc/src/compiler/policy.lisp-obj
obj/from-xc/src/compiler/policies.lisp-obj
obj/from-xc/src/compiler/macros.lisp-obj
obj/from-xc/src/compiler/globaldb.lisp-obj
obj/from-xc/src/compiler/info-functions.lisp-obj
obj/from-xc/src/compiler/generic/vm-macs.lisp-obj
obj/from-xc/src/compiler/generic/objdef.lisp-obj
obj/from-xc/src/compiler/sset.lisp-obj
obj/from-xc/src/compiler/node.lisp-obj
obj/from-xc/src/compiler/vop.lisp-obj
obj/from-xc/src/compiler/backend.lisp-obj
obj/from-xc/src/compiler/vmdef.lisp-obj
obj/from-xc/src/compiler/arm/backend-parms.lisp-obj
obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj
obj/from-xc/src/code/defmacro.lisp-obj
obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj
obj/from-xc/src/compiler/late-macros.lisp-obj
obj/from-xc/src/compiler/meta-vmdef.lisp-obj
obj/from-xc/src/compiler/arm/vm.lisp-obj
obj/from-xc/src/code/xset.lisp-obj
obj/from-xc/src/code/early-type.lisp-obj
obj/from-xc/src/code/class.lisp-obj
obj/from-xc/src/code/condition.lisp-obj
obj/from-xc/src/compiler/generic/primtype.lisp-obj
obj/from-xc/src/compiler/parse-lambda-list.lisp-obj
obj/from-xc/src/code/host-alieneval.lisp-obj
obj/from-xc/src/code/host-c-call.lisp-obj
obj/from-xc/src/compiler/compiler-deftype.lisp-obj
obj/from-xc/src/code/late-type.lisp-obj
obj/from-xc/src/code/pprint.lisp-obj
obj/from-xc/src/code/deftypes-for-target.lisp-obj
obj/from-xc/src/compiler/knownfun.lisp-obj
obj/from-xc/src/compiler/constantp.lisp-obj
obj/from-xc/src/compiler/fun-info-funs.lisp-obj
obj/from-xc/src/compiler/generic/vm-type.lisp-obj
obj/from-xc/src/compiler/proclaim.lisp-obj
obj/from-xc/src/code/class-init.lisp-obj
obj/from-xc/src/code/defstruct.lisp-obj
obj/from-xc/src/code/target-defstruct.lisp-obj
obj/from-xc/src/code/alien-type.lisp-obj
obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj
obj/from-xc/src/code/early-full-eval.lisp-obj
obj/from-xc/src/code/typep.lisp-obj
obj/from-xc/src/compiler/compiler-error.lisp-obj
obj/from-xc/src/code/late-deftypes-for-target.lisp-obj
obj/from-xc/src/code/type-init.lisp-obj
obj/from-xc/src/compiler/fixup-type.lisp-obj
obj/from-xc/src/code/package.lisp-obj
obj/from-xc/src/code/random.lisp-obj
obj/from-xc/src/code/hash-table.lisp-obj
obj/from-xc/src/code/readtable.lisp-obj
obj/from-xc/src/code/pathname.lisp-obj
obj/from-xc/src/code/host-pprint.lisp-obj
obj/from-xc/src/compiler/lexenv.lisp-obj
obj/from-xc/src/compiler/fndb.lisp-obj
obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj
obj/from-xc/src/compiler/generic/late-objdef.lisp-obj
obj/from-xc/src/compiler/generic/interr.lisp-obj
obj/from-xc/src/compiler/bit-util.lisp-obj
obj/from-xc/src/compiler/early-assem.lisp-obj
obj/from-xc/src/compiler/generic/core.lisp-obj
obj/from-xc/src/code/thread.lisp-obj
obj/from-xc/src/code/load.lisp-obj
obj/from-xc/src/code/linkage-table.lisp-obj
obj/from-xc/src/code/foreign-load.lisp-obj
obj/from-xc/src/code/unix-foreign-load.lisp-obj
obj/from-xc/src/code/foreign.lisp-obj
obj/from-xc/src/code/fop.lisp-obj
obj/from-xc/src/compiler/ctype.lisp-obj
obj/from-xc/src/compiler/disassem.lisp-obj
obj/from-xc/src/compiler/assem.lisp-obj
obj/from-xc/src/code/debug-info.lisp-obj
obj/from-xc/src/compiler/dump.lisp-obj
obj/from-xc/src/compiler/main.lisp-obj
obj/from-xc/src/compiler/xref.lisp-obj
obj/from-xc/src/code/source-location.lisp-obj
obj/from-xc/src/compiler/target-main.lisp-obj
obj/from-xc/src/compiler/ir1tran.lisp-obj
obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj
obj/from-xc/src/compiler/ir1-translators.lisp-obj
obj/from-xc/src/compiler/ir1util.lisp-obj
obj/from-xc/src/compiler/ir1report.lisp-obj
obj/from-xc/src/compiler/ir1opt.lisp-obj
obj/from-xc/src/compiler/loop.lisp-obj
obj/from-xc/src/compiler/ir1final.lisp-obj
obj/from-xc/src/compiler/array-tran.lisp-obj
obj/from-xc/src/compiler/seqtran.lisp-obj
obj/from-xc/src/compiler/typetran.lisp-obj
obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj
obj/from-xc/src/compiler/float-tran.lisp-obj
obj/from-xc/src/compiler/saptran.lisp-obj
obj/from-xc/src/compiler/srctran.lisp-obj
obj/from-xc/src/compiler/bitops-derive-type.lisp-obj
obj/from-xc/src/compiler/generic/vm-tran.lisp-obj
obj/from-xc/src/compiler/locall.lisp-obj
obj/from-xc/src/compiler/dfo.lisp-obj
obj/from-xc/src/compiler/dce.lisp-obj
obj/from-xc/src/compiler/checkgen.lisp-obj
obj/from-xc/src/compiler/constraint.lisp-obj
obj/from-xc/src/compiler/physenvanal.lisp-obj
obj/from-xc/src/compiler/tn.lisp-obj
obj/from-xc/src/compiler/life.lisp-obj
obj/from-xc/src/compiler/debug-dump.lisp-obj
obj/from-xc/src/compiler/generic/utils.lisp-obj
obj/from-xc/src/compiler/fopcompile.lisp-obj
obj/from-xc/src/assembly/assemfile.lisp-obj
obj/from-xc/src/compiler/late-vmdef.lisp-obj
obj/from-xc/src/compiler/fixup.lisp-obj
obj/from-xc/src/compiler/arm/insts.lisp-obj
obj/from-xc/src/compiler/arm/macros.lisp-obj
obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj
obj/from-xc/src/assembly/arm/support.lisp-obj
obj/from-xc/src/compiler/arm/move.lisp-obj
obj/from-xc/src/compiler/arm/float.lisp-obj
obj/from-xc/src/compiler/arm/sap.lisp-obj
obj/from-xc/src/compiler/arm/system.lisp-obj
obj/from-xc/src/compiler/arm/char.lisp-obj
obj/from-xc/src/compiler/arm/memory.lisp-obj
obj/from-xc/src/compiler/arm/static-fn.lisp-obj
obj/from-xc/src/compiler/arm/arith.lisp-obj
obj/from-xc/src/compiler/arm/type-vops.lisp-obj
obj/from-xc/src/compiler/arm/subprim.lisp-obj
obj/from-xc/src/compiler/arm/debug.lisp-obj
obj/from-xc/src/compiler/early-aliencomp.lisp-obj
obj/from-xc/src/compiler/arm/c-call.lisp-obj
obj/from-xc/src/compiler/arm/cell.lisp-obj
obj/from-xc/src/compiler/arm/values.lisp-obj
obj/from-xc/src/compiler/arm/alloc.lisp-obj
obj/from-xc/src/compiler/arm/call.lisp-obj
obj/from-xc/src/compiler/arm/nlx.lisp-obj
obj/from-xc/src/compiler/generic/late-nlx.lisp-obj
obj/from-xc/src/compiler/arm/show.lisp-obj
obj/from-xc/src/compiler/arm/array.lisp-obj
obj/from-xc/src/compiler/generic/type-error.lisp-obj
obj/from-xc/src/compiler/arm/pred.lisp-obj
obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj
obj/from-xc/src/assembly/arm/assem-rtns.lisp-obj
obj/from-xc/src/assembly/arm/array.lisp-obj
obj/from-xc/src/assembly/arm/arith.lisp-obj
obj/from-xc/src/assembly/arm/alloc.lisp-obj
obj/from-xc/src/assembly/arm/assem-rtns.assem-obj
obj/from-xc/src/assembly/arm/array.assem-obj
obj/from-xc/src/assembly/arm/arith.assem-obj
obj/from-xc/src/assembly/arm/alloc.assem-obj
obj/from-xc/src/compiler/pseudo-vops.lisp-obj
obj/from-xc/src/compiler/aliencomp.lisp-obj
obj/from-xc/src/compiler/ltv.lisp-obj
obj/from-xc/src/compiler/gtn.lisp-obj
obj/from-xc/src/compiler/ltn.lisp-obj
obj/from-xc/src/compiler/stack.lisp-obj
obj/from-xc/src/compiler/control.lisp-obj
obj/from-xc/src/compiler/entry.lisp-obj
obj/from-xc/src/compiler/ir2tran.lisp-obj
obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj
obj/from-xc/src/compiler/copyprop.lisp-obj
obj/from-xc/src/compiler/represent.lisp-obj
obj/from-xc/src/compiler/ir2opt.lisp-obj
obj/from-xc/src/compiler/pack.lisp-obj
obj/from-xc/src/compiler/pack-iterative.lisp-obj
obj/from-xc/src/compiler/codegen.lisp-obj
obj/from-xc/src/compiler/debug.lisp-obj
obj/from-xc/src/code/format-time.lisp-obj
obj/from-xc/src/code/error.lisp-obj
obj/from-xc/src/code/macroexpand.lisp-obj
obj/from-xc/src/code/late-extensions.lisp-obj
obj/from-xc/src/compiler/generic/target-core.lisp-obj
obj/from-xc/src/code/eval.lisp-obj
obj/from-xc/src/code/target-sap.lisp-obj
obj/from-xc/src/code/target-package.lisp-obj
obj/from-xc/src/code/target-random.lisp-obj
obj/from-xc/src/code/bignum-random.lisp-obj
obj/from-xc/src/code/target-hash-table.lisp-obj
obj/from-xc/src/code/reader.lisp-obj
obj/from-xc/src/code/target-stream.lisp-obj
obj/from-xc/src/code/target-pathname.lisp-obj
obj/from-xc/src/code/unix-pathname.lisp-obj
obj/from-xc/src/code/filesys.lisp-obj
obj/from-xc/src/code/save.lisp-obj
obj/from-xc/src/code/sharpm.lisp-obj
obj/from-xc/src/code/alloc.lisp-obj
obj/from-xc/src/code/early-step.lisp-obj
obj/from-xc/src/code/target-thread.lisp-obj
obj/from-xc/src/code/interr.lisp-obj
obj/from-xc/src/code/gc.lisp-obj
obj/from-xc/src/code/purify.lisp-obj
obj/from-xc/src/code/debug-int.lisp-obj
obj/from-xc/src/compiler/target-disassem.lisp-obj
obj/from-xc/src/compiler/arm/target-insts.lisp-obj
obj/from-xc/src/code/debug.lisp-obj
obj/from-xc/src/code/octets.lisp-obj
obj/from-xc/src/code/external-formats/enc-basic.lisp-obj
obj/from-xc/src/code/external-formats/enc-ebcdic.lisp-obj
obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj
obj/from-xc/src/code/external-formats/enc-dos.lisp-obj
obj/from-xc/src/code/external-formats/enc-iso.lisp-obj
obj/from-xc/src/code/external-formats/enc-win.lisp-obj
obj/from-xc/src/code/external-formats/enc-mac.lisp-obj
obj/from-xc/src/code/external-formats/mb-util.lisp-obj
obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj
obj/from-xc/src/code/external-formats/enc-cn.lisp-obj
obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj
obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj
obj/from-xc/src/code/external-formats/enc-ucs.lisp-obj
obj/from-xc/src/code/external-formats/enc-utf.lisp-obj
obj/from-xc/src/code/parse-defmacro-errors.lisp-obj
obj/from-xc/src/code/full-eval.lisp-obj
obj/from-xc/src/code/bit-bash.lisp-obj
obj/from-xc/src/code/target-load.lisp-obj
obj/from-xc/src/compiler/arm/sanctify.lisp-obj
obj/from-xc/src/compiler/target-dump.lisp-obj
obj/from-xc/src/code/cold-init.lisp-obj
obj/from-xc/src/code/cl-specials.lisp-obj
obj/from-xc/src/compiler/late-proclaim.lisp-obj
obj/from-xc/src/code/defboot.lisp-obj
obj/from-xc/src/code/destructuring-bind.lisp-obj
obj/from-xc/src/code/setf.lisp-obj
obj/from-xc/src/code/macros.lisp-obj
obj/from-xc/src/code/loop.lisp-obj
obj/from-xc/src/code/cas.lisp-obj
obj/from-xc/src/code/late-cas.lisp-obj
obj/from-xc/src/code/late-format.lisp-obj
obj/from-xc/src/code/sxhash.lisp-obj
obj/from-xc/src/code/signal.lisp-obj
obj/from-xc/src/code/late-defbangmethod.lisp-obj
obj/from-xc/src/pcl/walk.lisp-obj
; SB!Loader: 256 DEFSTRUCTs, 11391 DEFUNs, 71 SETF macros
[building initial core file in "output/cold-sbcl.core": 
writing 4096 bytes [1 page] from #<SB!FASL::GSPACE :READ-ONLY>
writing 4096 bytes [1 page] from #<SB!FASL::GSPACE :STATIC>
writing 40267776 bytes [9831 pages] from #<SB!FASL::GSPACE :DYNAMIC>
/(DESCRIPTOR-BITS INITIAL-FUN)=#X514F8D45
done]
* //testing for consistency of first and second GENESIS passes
1653.01user 52.36system 28:36.42elapsed 99%CPU (0avgtext+0avgdata 222024maxresident)k
200inputs+301832outputs (1major+932927minor)pagefaults 0swaps
//header files match between first and second GENESIS -- good
//entering make-target-2.sh
//doing warm init - compilation phase
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
COLD-INIT... (PACKAGE = "COMMON-LISP")
("Length(TLFs)= " 13150)

* 
; compiling file "/«PKGBUILDDIR»/src/pcl/early-low.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;EARLY-LOW.FASL.NEWEST written
; compilation finished in 0:00:00.106
; compiling file "/«PKGBUILDDIR»/src/pcl/macros.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;MACROS.FASL.NEWEST written
; compilation finished in 0:00:00.448
; compiling file "/«PKGBUILDDIR»/src/pcl/compiler-support.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;COMPILER-SUPPORT.FASL.NEWEST written
; compilation finished in 0:00:00.224
; compiling file "/«PKGBUILDDIR»/src/pcl/low.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/low.lisp
; in: DEFINE-COMPILER-MACRO FSC-INSTANCE-P
;     (DEFINE-COMPILER-MACRO SB-PCL::FSC-INSTANCE-P
;         (SB-PCL::FIN)
;       `(SB-KERNEL:FUNCALLABLE-INSTANCE-P ,SB-PCL::FIN))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SB-PCL::FSC-INSTANCE-P
;                                 #'(LAMBDA (#:WHOLE142 #:ENVIRONMENT143)
;                                     (DECLARE (IGNORE #:ENVIRONMENT143))
;                                     (LET* ((#:CMACRO-&WHOLE144 #:WHOLE142)
;                                            (#:WHOLE142 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE144))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (#)
;                                         (BLOCK SB-PCL::FSC-INSTANCE-P `#))))
;                                 '(SB-PCL::FIN) NIL
;                                 '(COMPILER-MACRO-FUNCTION
;                                   SB-PCL::FSC-INSTANCE-P))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (1 FSC-INSTANCE-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO STD-INSTANCE-P
;     (DEFINE-COMPILER-MACRO SB-PCL::STD-INSTANCE-P
;         (SB-PCL::X)
;       `(SB-KERNEL:%INSTANCEP ,SB-PCL::X))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SB-PCL::STD-INSTANCE-P
;                                 #'(LAMBDA (#:WHOLE196 #:ENVIRONMENT197)
;                                     (DECLARE (IGNORE #:ENVIRONMENT197))
;                                     (LET* ((#:CMACRO-&WHOLE198 #:WHOLE196)
;                                            (#:WHOLE196 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE198))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (#)
;                                         (BLOCK SB-PCL::STD-INSTANCE-P `#))))
;                                 '(SB-PCL::X) NIL
;                                 '(COMPILER-MACRO-FUNCTION
;                                   SB-PCL::STD-INSTANCE-P))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (1 STD-INSTANCE-P))
;      :ASSIGNED-SLOTS NIL)

; in: !DEFSTRUCT-WITH-ALTERNATE-METACLASS %METHOD-FUNCTION
;     (SB-KERNEL:!DEFSTRUCT-WITH-ALTERNATE-METACLASS SB-PCL::%METHOD-FUNCTION
;                                                    :SLOT-NAMES
;                                                    (SB-PCL::FAST-FUNCTION
;                                                     SB-PCL::NAME)
;                                                    :BOA-CONSTRUCTOR
;                                                    SB-PCL::%MAKE-METHOD-FUNCTION
;                                                    :SUPERCLASS-NAME FUNCTION
;                                                    :METACLASS-NAME
;                                                    SB-KERNEL:STATIC-CLASSOID
;                                                    :METACLASS-CONSTRUCTOR
;                                                    SB-KERNEL:MAKE-STATIC-CLASSOID
;                                                    ...)
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(INLINE (SETF SB-PCL::%METHOD-FUNCTION-FAST-FUNCTION)
;      (SETF SB-PCL::%METHOD-FUNCTION-NAME))
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SB-C:INLINING-DEPENDENCY-FAILURE
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<Proclaiming ~/sb-impl:print-symbol-with-prefix/ to be INLINE, but ~D call~:P to it ~
;   ~:*~[~;was~:;were~] previously compiled. A declaration of NOTINLINE ~
;   at the call site~:P will eliminate this warning, as will proclaiming ~
;   and defining the function before its first potential use.~@:>
;                        FORMAT-ARGUMENTS ((SETF %METHOD-FUNCTION-NAME) 1))
;      :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;LOW.FASL.NEWEST written
; compilation finished in 0:00:01.070
; compiling file "/«PKGBUILDDIR»/src/pcl/slot-name.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;SLOT-NAME.FASL.NEWEST written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/src/pcl/defclass.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DEFCLASS.FASL.NEWEST written
; compilation finished in 0:00:01.899
; compiling file "/«PKGBUILDDIR»/src/pcl/defs.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DEFS.FASL.NEWEST written
; compilation finished in 0:00:00.900
; compiling file "/«PKGBUILDDIR»/src/pcl/fngen.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;FNGEN.FASL.NEWEST written
; compilation finished in 0:00:00.560
; compiling file "/«PKGBUILDDIR»/src/pcl/wrapper.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/wrapper.lisp
; in: DEFUN CHECK-WRAPPER-VALIDITY
;     (SB-INT:BUG "Invalid LAYOUT-INVALID: ~S" SB-PCL::STATE)
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; ==>
;   "Invalid LAYOUT-INVALID: ~S"
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;WRAPPER.FASL.NEWEST written
; compilation finished in 0:00:01.845
; compiling file "/«PKGBUILDDIR»/src/pcl/cache.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;CACHE.FASL.NEWEST written
; compilation finished in 0:00:01.952
; compiling file "/«PKGBUILDDIR»/src/pcl/dlisp.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DLISP.FASL.NEWEST written
; compilation finished in 0:00:00.639
; compiling file "/«PKGBUILDDIR»/src/pcl/boot.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/boot.lisp
; in: DEFUN CHECK-GF-LAMBDA-LIST
;     (MULTIPLE-VALUE-BIND
;         (SB-PCL::LLKS SB-PCL::REQUIRED SB-PCL::OPTIONAL REST SB-PCL::KEYS)
;         (SB-INT:PARSE-LAMBDA-LIST SB-PCL::LAMBDA-LIST :DISALLOW
;                                   '(&AUX &ENVIRONMENT SB-INT:&MORE) :CONTEXT
;                                   "a generic function lambda list")
;       (DECLARE (IGNORE SB-PCL::LLKS REST))
;       (DOLIST (SB-PCL::ARG SB-PCL::OPTIONAL)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (SB-PCL::COMPLAIN SB-PCL::ARG)))
;       (DOLIST (SB-PCL::ARG SB-PCL::KEYS)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (TYPEP SB-PCL::ARG '(CONS # NULL)) (SB-PCL::COMPLAIN SB-PCL::ARG))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (SB-PCL::LLKS) (SB-PCL::REQUIRED) (SB-PCL::OPTIONAL) (REST)
;          (SB-PCL::KEYS)
;          &REST #:G163)
;       (DECLARE (IGNORE #:G163))
;       (DECLARE (IGNORE SB-PCL::LLKS REST))
;       (DOLIST (SB-PCL::ARG SB-PCL::OPTIONAL)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (SB-PCL::COMPLAIN SB-PCL::ARG)))
;       (DOLIST (SB-PCL::ARG SB-PCL::KEYS)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (TYPEP SB-PCL::ARG '(CONS # NULL)) (SB-PCL::COMPLAIN SB-PCL::ARG))))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (REQUIRED))
;      :ASSIGNED-SLOTS NIL)

; in: DEFMACRO DEFMETHOD
;     (DEFMACRO DEFMETHOD (SB-PCL::NAME &REST SB-PCL::ARGS)
;       (MULTIPLE-VALUE-BIND (SB-PCL::QUALIFIERS SB-PCL::LAMBDA-LIST SB-PCL::BODY)
;           (SB-PCL::PARSE-DEFMETHOD SB-PCL::ARGS)
;         `(PROGN
;           (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE)
;             (SB-PCL::COMPILE-OR-LOAD-DEFGENERIC ',SB-PCL::NAME))
;           (EVAL-WHEN (:LOAD-TOPLEVEL)
;             (SB-PCL::%DEFMETHOD-EXPANDER ,SB-PCL::NAME ,SB-PCL::QUALIFIERS
;              ,SB-PCL::LAMBDA-LIST ,SB-PCL::BODY))
;           (EVAL-WHEN (:EXECUTE)
;             (SB-PCL::%DEFMETHOD-EXPANDER ,SB-PCL::NAME ,SB-PCL::QUALIFIERS
;              ,SB-PCL::LAMBDA-LIST ,SB-PCL::BODY)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFMACRO 'DEFMETHOD
;                    #'(SB-INT:NAMED-LAMBDA (DEFMACRO DEFMETHOD)
;                          (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# #)
;                            (BLOCK DEFMETHOD #))))
;                    '(SB-PCL::NAME &REST SB-PCL::ARGS) NIL
;                    '(MACRO-FUNCTION DEFMETHOD) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(REDEFINITION-WITH-DEFMACRO
;      :ACTUAL-INITARGS (NAME DEFMETHOD NEW-FUNCTION
;                        #1=#<FUNCTION (DEFMACRO DEFMETHOD) {51CAE765}>
;                        NEW-LOCATION
;                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
;                              :NAMESTRING SYS:SRC;PCL;BOOT.LISP.NEWEST
;                              :TOPLEVEL-FORM-NUMBER 10
;                              :PLIST NIL))
;      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME DEFMETHOD))

; SYS:SRC;PCL;BOOT.FASL.NEWEST written
; compilation finished in 0:00:09.650
; compiling file "/«PKGBUILDDIR»/src/pcl/vector.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;VECTOR.FASL.NEWEST written
; compilation finished in 0:00:05.498
; compiling file "/«PKGBUILDDIR»/src/pcl/slots-boot.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;SLOTS-BOOT.FASL.NEWEST written
; compilation finished in 0:00:03.161
; compiling file "/«PKGBUILDDIR»/src/pcl/combin.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;COMBIN.FASL.NEWEST written
; compilation finished in 0:00:00.784
; compiling file "/«PKGBUILDDIR»/src/pcl/dfun.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DFUN.FASL.NEWEST written
; compilation finished in 0:00:06.288
; compiling file "/«PKGBUILDDIR»/src/pcl/ctor.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/ctor.lisp
; in: DEFINE-COMPILER-MACRO MAKE-INSTANCE
;     (DEFINE-COMPILER-MACRO MAKE-INSTANCE
;         (&WHOLE SB-KERNEL:FORM &REST SB-PCL::ARGS &ENVIRONMENT SB-PCL::ENV)
;       (DECLARE (IGNORE SB-PCL::ARGS))
;       (OR
;        (UNLESS SB-PCL::*COMPILING-OPTIMIZED-CONSTRUCTOR*
;          (SB-PCL::MAKE-INSTANCE->CONSTRUCTOR-CALL SB-KERNEL:FORM
;           (SB-PCL::SAFE-CODE-P SB-PCL::ENV)))
;        SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'MAKE-INSTANCE
;                                 #'(LAMBDA (#:WHOLE564 #:ENVIRONMENT565)
;                                     (LET* ((#:CMACRO-&WHOLE566 #:WHOLE564)
;                                            (#:WHOLE564 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE566))
;                                       (LET* (# # #)
;                                         (DECLARE #)
;                                         (BLOCK MAKE-INSTANCE #))))
;                                 '(&WHOLE SB-KERNEL:FORM &REST SB-PCL::ARGS
;                                   &ENVIRONMENT SB-PCL::ENV)
;                                 NIL '(COMPILER-MACRO-FUNCTION MAKE-INSTANCE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (4 MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;CTOR.FASL.NEWEST written
; compilation finished in 0:00:06.487
; compiling file "/«PKGBUILDDIR»/src/pcl/braid.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;BRAID.FASL.NEWEST written
; compilation finished in 0:00:02.630
; compiling file "/«PKGBUILDDIR»/src/pcl/dlisp3.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DLISP3.FASL.NEWEST written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/src/pcl/generic-functions.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;GENERIC-FUNCTIONS.FASL.NEWEST written
; compilation finished in 0:00:00.147
; compiling file "/«PKGBUILDDIR»/src/pcl/slots.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/slots.lisp
; in:
;      DECLAIM (INLINE STANDARD-INSTANCE-ACCESS (SETF STANDARD-INSTANCE-ACCESS)
;           (CAS STADARD-INSTANCE-ACCESS) FUNCALLABLE-STANDARD-INSTANCE-ACCESS
;           (SETF FUNCALLABLE-STANDARD-INSTANCE-ACCESS)
;           (CAS FUNCALLABLE-STANDARD-INSTANCE-ACCESS))
;     (DECLAIM
;      (INLINE SB-MOP:STANDARD-INSTANCE-ACCESS
;       (SETF SB-MOP:STANDARD-INSTANCE-ACCESS)
;       (CAS SB-PCL::STADARD-INSTANCE-ACCESS)
;       SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
;       (SETF SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS)
;       (CAS SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS)))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(INLINE SB-MOP:STANDARD-INSTANCE-ACCESS
;      (SETF SB-MOP:STANDARD-INSTANCE-ACCESS)
;      (CAS SB-PCL::STADARD-INSTANCE-ACCESS)
;      SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
;      (SETF SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS)
;      (CAS SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS))
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SB-C:INLINING-DEPENDENCY-FAILURE
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<Proclaiming ~/sb-impl:print-symbol-with-prefix/ to be INLINE, but ~D call~:P to it ~
;   ~:*~[~;was~:;were~] previously compiled. A declaration of NOTINLINE ~
;   at the call site~:P will eliminate this warning, as will proclaiming ~
;   and defining the function before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (STANDARD-INSTANCE-ACCESS 1))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SB-C:INLINING-DEPENDENCY-FAILURE
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<Proclaiming ~/sb-impl:print-symbol-with-prefix/ to be INLINE, but ~D call~:P to it ~
;   ~:*~[~;was~:;were~] previously compiled. A declaration of NOTINLINE ~
;   at the call site~:P will eliminate this warning, as will proclaiming ~
;   and defining the function before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (FUNCALLABLE-STANDARD-INSTANCE-ACCESS 1))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO SLOT-VALUE
;     (DEFINE-COMPILER-MACRO SLOT-VALUE
;         (&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT SB-PCL::SLOT-NAME &ENVIRONMENT
;          SB-PCL::ENV)
;       (IF (AND (CONSTANTP SB-PCL::SLOT-NAME SB-PCL::ENV)
;                (SB-PCL::INTERNED-SYMBOL-P
;                 (SB-INT:CONSTANT-FORM-VALUE SB-PCL::SLOT-NAME SB-PCL::ENV)))
;           `(SB-PCL::ACCESSOR-SLOT-VALUE ,SB-PCL::OBJECT ,SB-PCL::SLOT-NAME)
;           SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SLOT-VALUE
;                                 #'(LAMBDA (#:WHOLE227 #:ENVIRONMENT228)
;                                     (LET* ((#:CMACRO-&WHOLE229 #:WHOLE227)
;                                            (#:WHOLE227 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE229))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # #)
;                                         (BLOCK SLOT-VALUE #))))
;                                 '(&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT
;                                   SB-PCL::SLOT-NAME &ENVIRONMENT SB-PCL::ENV)
;                                 NIL '(COMPILER-MACRO-FUNCTION SLOT-VALUE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (5 SLOT-VALUE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO SET-SLOT-VALUE
;     (DEFINE-COMPILER-MACRO SB-PCL::SET-SLOT-VALUE
;         (&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT SB-PCL::SLOT-NAME SB-PCL::NEW-VALUE
;          &ENVIRONMENT SB-PCL::ENV)
;       (IF (AND (CONSTANTP SB-PCL::SLOT-NAME SB-PCL::ENV)
;                (SB-PCL::INTERNED-SYMBOL-P
;                 (SB-INT:CONSTANT-FORM-VALUE SB-PCL::SLOT-NAME SB-PCL::ENV))
;                (NOT (SB-PCL::SAFE-CODE-P SB-PCL::ENV)))
;           `(SB-PCL::ACCESSOR-SET-SLOT-VALUE ,SB-PCL::OBJECT ,SB-PCL::SLOT-NAME
;                                             ,SB-PCL::NEW-VALUE)
;           SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SB-PCL::SET-SLOT-VALUE
;                                 #'(LAMBDA (#:WHOLE305 #:ENVIRONMENT306)
;                                     (LET* ((#:CMACRO-&WHOLE307 #:WHOLE305)
;                                            (#:WHOLE305 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE307))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # # #)
;                                         (BLOCK SB-PCL::SET-SLOT-VALUE #))))
;                                 '(&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT
;                                   SB-PCL::SLOT-NAME SB-PCL::NEW-VALUE
;                                   &ENVIRONMENT SB-PCL::ENV)
;                                 NIL
;                                 '(COMPILER-MACRO-FUNCTION
;                                   SB-PCL::SET-SLOT-VALUE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (3 SET-SLOT-VALUE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO SLOT-BOUNDP
;     (DEFINE-COMPILER-MACRO SLOT-BOUNDP
;         (&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT SB-PCL::SLOT-NAME &ENVIRONMENT
;          SB-PCL::ENV)
;       (IF (AND (CONSTANTP SB-PCL::SLOT-NAME SB-PCL::ENV)
;                (SB-PCL::INTERNED-SYMBOL-P
;                 (SB-INT:CONSTANT-FORM-VALUE SB-PCL::SLOT-NAME SB-PCL::ENV)))
;           `(SB-PCL::ACCESSOR-SLOT-BOUNDP ,SB-PCL::OBJECT ,SB-PCL::SLOT-NAME)
;           SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SLOT-BOUNDP
;                                 #'(LAMBDA (#:WHOLE393 #:ENVIRONMENT394)
;                                     (LET* ((#:CMACRO-&WHOLE395 #:WHOLE393)
;                                            (#:WHOLE393 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE395))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # #)
;                                         (BLOCK SLOT-BOUNDP #))))
;                                 '(&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT
;                                   SB-PCL::SLOT-NAME &ENVIRONMENT SB-PCL::ENV)
;                                 NIL '(COMPILER-MACRO-FUNCTION SLOT-BOUNDP))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (1 SLOT-BOUNDP))
;      :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;SLOTS.FASL.NEWEST written
; compilation finished in 0:00:03.055
; compiling file "/«PKGBUILDDIR»/src/pcl/init.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;INIT.FASL.NEWEST written
; compilation finished in 0:00:01.400
; compiling file "/«PKGBUILDDIR»/src/pcl/std-class.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;STD-CLASS.FASL.NEWEST written
; compilation finished in 0:00:14.425
; compiling file "/«PKGBUILDDIR»/src/pcl/cpl.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;CPL.FASL.NEWEST written
; compilation finished in 0:00:00.624
; compiling file "/«PKGBUILDDIR»/src/pcl/fsc.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;FSC.FASL.NEWEST written
; compilation finished in 0:00:00.215
; compiling file "/«PKGBUILDDIR»/src/pcl/methods.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;METHODS.FASL.NEWEST written
; compilation finished in 0:00:06.595
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFUN
      :ACTUAL-INITARGS (NAME MAYBE-UPDATE-INFO-FOR-GF NEW-FUNCTION
                        #1=#<FUNCTION SB-C::MAYBE-UPDATE-INFO-FOR-GF
                             {53C8609D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;METHODS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 38
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME
                       MAYBE-UPDATE-INFO-FOR-GF))
; compiling file "/«PKGBUILDDIR»/src/pcl/fixup.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;FIXUP.FASL.NEWEST written
; compilation finished in 0:00:00.264
; compiling file "/«PKGBUILDDIR»/src/pcl/defcombin.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DEFCOMBIN.FASL.NEWEST written
; compilation finished in 0:00:00.916
; compiling file "/«PKGBUILDDIR»/src/pcl/ctypes.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;CTYPES.FASL.NEWEST written
; compilation finished in 0:00:00.117
; compiling file "/«PKGBUILDDIR»/src/pcl/env.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;ENV.FASL.NEWEST written
; compilation finished in 0:00:00.369
; compiling file "/«PKGBUILDDIR»/src/pcl/documentation.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DOCUMENTATION.FASL.NEWEST written
; compilation finished in 0:00:03.113
; compiling file "/«PKGBUILDDIR»/src/pcl/print-object.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;PRINT-OBJECT.FASL.NEWEST written
; compilation finished in 0:00:01.929
STYLE-WARNING: #<REDEFINITION-WITH-DEFUN {52122DA1}>
; compiling file "/«PKGBUILDDIR»/src/pcl/precom1.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;PRECOM1.FASL.NEWEST written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/src/pcl/precom2.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;PRECOM2.FASL.NEWEST written
; compilation finished in 0:00:07.955
; 
; compilation unit finished
;   caught 11 STYLE-WARNING conditions
;   printed 2 notes
; Done with PCL compilation

; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangmethods.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")

; file: /«PKGBUILDDIR»/src/code/force-delayed-defbangmethods.lisp
; in:
;      MACROLET ((FORCE-DELAYED-DEF!METHODS NIL
;             `(PROGN
;               ,@(MAPCAR # *DELAYED-DEF!METHOD-ARGS*)
;               (MAKUNBOUND '*DELAYED-DEF!METHOD-ARGS*))))
;     (SB-IMPL::FORCE-DELAYED-DEF!METHODS)
; --> PROGN PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK IF IF IF THE 
; --> SB-PCL::OPTIMIZED-SLOT-BOUNDP SB-PCL::INSTANCE-BOUNDP 
; --> SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::DATUM BOUNDP)
;                   CONDITION)
; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {53DDDC09}>

; --> PROGN PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK IF IF IF SB-PCL::OPTIMIZED-SLOT-BOUNDP 
; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL
;    #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::EXPECTED-TYPE BOUNDP) CONDITION)
; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {53DEE819}>

; --> PROGN PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK IF IF THE SB-PCL::OPTIMIZED-SLOT-BOUNDP 
; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP)
;                   CONDITION)
; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {53DFA609}>
; 
; compilation unit finished
;   Undefined functions:
;     (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::DATUM BOUNDP) (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::EXPECTED-TYPE BOUNDP) (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP)
;   caught 3 STYLE-WARNING conditions
; compiling (FORCE-DELAYED-DEF!METHODS)

; SYS:SRC;CODE;FORCE-DELAYED-DEFBANGMETHODS.FASL.NEWEST written
; compilation finished in 0:00:19.935
; compiling file "/«PKGBUILDDIR»/src/code/late-condition.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-KERNEL")
; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-READER))
; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-WRITER))
; compiling (DEFMACRO STANDARD-METHOD-FUNCTION ...)
; compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...)
; compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...)

; SYS:SRC;CODE;LATE-CONDITION.FASL.NEWEST written
; compilation finished in 0:00:00.192
; compiling file "/«PKGBUILDDIR»/src/pcl/gray-streams-class.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB-GRAY")
; compiling (LET (#) ...)
; compiling (DEFCLASS FUNDAMENTAL-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-OUTPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-OUTPUT-STREAM ...)

; SYS:SRC;PCL;GRAY-STREAMS-CLASS.FASL.NEWEST written
; compilation finished in 0:00:00.035
; compiling file "/«PKGBUILDDIR»/src/pcl/gray-streams.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB-GRAY")
; compiling (DEFMACRO BUG-OR-ERROR ...)
; compiling (FMAKUNBOUND (QUOTE STREAM-ELEMENT-TYPE))
; compiling (DEFGENERIC STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFGENERIC PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (PCL-OPEN-STREAM-P (MAKE-STRING-OUTPUT-STREAM))
; compiling (SETF (FDEFINITION #) ...)
; compiling (DEFGENERIC PCL-CLOSE ...)
; compiling (DEFMETHOD PCL-CLOSE ...)
; compiling (DEFMETHOD PCL-CLOSE ...)
; compiling (PCL-CLOSE (MAKE-STRING-OUTPUT-STREAM))
; compiling (SETF (FDEFINITION #) ...)
; compiling (LET NIL ...)
; compiling (LET NIL ...)
; compiling (LET NIL ...)
; compiling (DEFGENERIC STREAM-READ-CHAR ...)
; compiling (DEFGENERIC STREAM-UNREAD-CHAR ...)
; compiling (DEFGENERIC STREAM-READ-CHAR-NO-HANG ...)
; compiling (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...)
; compiling (DEFGENERIC STREAM-PEEK-CHAR ...)
; compiling (DEFMETHOD STREAM-PEEK-CHAR ...)
; compiling (DEFGENERIC STREAM-LISTEN ...)
; compiling (DEFMETHOD STREAM-LISTEN ...)
; compiling (DEFGENERIC STREAM-READ-LINE ...)
; compiling (DEFMETHOD STREAM-READ-LINE ...)
; compiling (DEFGENERIC STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFGENERIC STREAM-READ-SEQUENCE ...)
; compiling (DEFUN BASIC-IO-TYPE-STREAM-READ-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-WRITE-CHAR ...)
; compiling (DEFGENERIC STREAM-LINE-COLUMN ...)
; compiling (DEFMETHOD STREAM-LINE-COLUMN ...)
; compiling (DEFGENERIC STREAM-LINE-LENGTH ...)
; compiling (DEFMETHOD STREAM-LINE-LENGTH ...)
; compiling (DEFGENERIC STREAM-START-LINE-P ...)
; compiling (DEFMETHOD STREAM-START-LINE-P ...)
; compiling (DEFGENERIC STREAM-WRITE-STRING ...)
; compiling (DEFMETHOD STREAM-WRITE-STRING ...)
; compiling (DEFGENERIC STREAM-TERPRI ...)
; compiling (DEFMETHOD STREAM-TERPRI ...)
; compiling (DEFGENERIC STREAM-FRESH-LINE ...)
; compiling (DEFMETHOD STREAM-FRESH-LINE ...)
; compiling (DEFGENERIC STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFGENERIC STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFGENERIC STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFGENERIC STREAM-ADVANCE-TO-COLUMN ...)
; compiling (DEFMETHOD STREAM-ADVANCE-TO-COLUMN ...)
; compiling (DEFGENERIC STREAM-WRITE-SEQUENCE ...)
; compiling (DEFUN BASIC-IO-TYPE-STREAM-WRITE-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-READ-BYTE ...)
; compiling (DEFMETHOD STREAM-READ-BYTE ...)
; compiling (DEFMETHOD STREAM-READ-BYTE ...)
; compiling (DEFGENERIC STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-FILE-POSITION ...)
; compiling (DEFMETHOD STREAM-FILE-POSITION ...)
; compiling (DEFMETHOD STREAM-FILE-POSITION ...)

; SYS:SRC;PCL;GRAY-STREAMS.FASL.NEWEST written
; compilation finished in 0:00:04.319
; compiling file "/«PKGBUILDDIR»/src/pcl/sequence.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFINE-CONDITION SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...)
; compiling (DEFUN SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...)
; compiling (DEFGENERIC SB-SEQUENCE:EMPTYP ...)
; compiling (DEFGENERIC SB-SEQUENCE:LENGTH ...)
; compiling (DEFGENERIC SB-SEQUENCE:ELT ...)
; compiling (DEFGENERIC (SETF SB-SEQUENCE:ELT) ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-LIKE ...)
; compiling (DEFGENERIC SB-SEQUENCE:ADJUST-SEQUENCE ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-ITERATOR ...)
; compiling (DEFVAR *EXHAUSTED* ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SIMPLE-SEQUENCE-ITERATOR ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-STEP ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ENDP ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ELEMENT ...)
; compiling (DEFGENERIC (SETF SB-SEQUENCE:ITERATOR-ELEMENT) ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-INDEX ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-COPY ...)
; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR ...)
; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR-FUNCTIONS ...)
; compiling (DEFUN SB-SEQUENCE:CANONIZE-TEST ...)
; compiling (DEFUN SB-SEQUENCE:CANONIZE-KEY ...)
; compiling (DEFUN LOOP-ELEMENTS-ITERATION-PATH ...)
; compiling (SB-LOOP::ADD-LOOP-PATH (QUOTE #) ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAP ...)
; compiling (DEFMETHOD SB-SEQUENCE:MAP ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSEQ ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSEQ ...)
; compiling (DEFGENERIC SB-SEQUENCE:COPY-SEQ ...)
; compiling (DEFMETHOD SB-SEQUENCE:COPY-SEQ ...)
; compiling (DEFGENERIC SB-SEQUENCE:FILL ...)
; compiling (DEFMETHOD SB-SEQUENCE:FILL ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF-NOT ...)
; compiling (DEFUN %SEQUENCE-REPLACE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REPLACE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REPLACE ...)
; compiling (DEFGENERIC SB-SEQUENCE:NREVERSE ...)
; compiling (DEFMETHOD SB-SEQUENCE:NREVERSE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REVERSE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REVERSE ...)
; compiling (DEFGENERIC SB-SEQUENCE:CONCATENATE ...)
; compiling (DEFMETHOD SB-SEQUENCE:CONCATENATE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REDUCE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REDUCE ...)
; compiling (DEFGENERIC SB-SEQUENCE:MISMATCH ...)
; compiling (DEFMETHOD SB-SEQUENCE:MISMATCH ...)
; compiling (DEFGENERIC SB-SEQUENCE:SEARCH ...)
; compiling (DEFMETHOD SB-SEQUENCE:SEARCH ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-DUPLICATES ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-DUPLICATES ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-DUPLICATES ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-DUPLICATES ...)
; compiling (DEFGENERIC SB-SEQUENCE:SORT ...)
; compiling (DEFMETHOD SB-SEQUENCE:SORT ...)
; compiling (DEFGENERIC SB-SEQUENCE:STABLE-SORT ...)
; compiling (DEFMETHOD SB-SEQUENCE:STABLE-SORT ...)
; compiling (DEFGENERIC SB-SEQUENCE:MERGE ...)
; compiling (DEFMETHOD SB-SEQUENCE:MERGE ...)

; SYS:SRC;PCL;SEQUENCE.FASL.NEWEST written
; compilation finished in 0:00:11.153
; compiling file "/«PKGBUILDDIR»/src/code/describe.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFUN CLASS-NAME-OR-CLASS ...)
; compiling (DEFUN FUN-NAME ...)
; compiling (DEFUN FUNCTION-LAMBDA-EXPRESSION ...)
; compiling (DEFUN PRIN1-TO-LINE ...)
; compiling (DEFUN DESCRIBE ...)
; compiling (DEFGENERIC OBJECT-SELF-STRING ...)
; compiling (DEFMETHOD OBJECT-SELF-STRING ...)
; compiling (DEFMETHOD OBJECT-SELF-STRING ...)
; compiling (DEFGENERIC OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFUN PRINT-STANDARD-DESCRIBE-HEADER ...)
; compiling (DEFGENERIC DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFUN DESCRIBE-CLASS ...)
; compiling (DEFUN DESCRIBE-INSTANCE ...)
; compiling (DEFUN QUIET-DOC ...)
; compiling (DEFUN DESCRIBE-DOCUMENTATION ...)
; compiling (DEFUN DESCRIBE-STUFF ...)
; compiling (DEFUN DESCRIBE-LAMBDA-LIST ...)
; compiling (DEFUN DESCRIBE-FUNCTION-SOURCE ...)
; compiling (DEFUN DESCRIBE-FUNCTION ...)

; SYS:SRC;CODE;DESCRIBE.FASL.NEWEST written
; compilation finished in 0:00:04.564
; compiling file "/«PKGBUILDDIR»/src/code/describe-policy.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-C")
; compiling (DEFUN DESCRIBE-COMPILER-POLICY ...)

; SYS:SRC;CODE;DESCRIBE-POLICY.FASL.NEWEST written
; compilation finished in 0:00:00.138
; compiling file "/«PKGBUILDDIR»/src/code/inspect.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFPARAMETER *INSPECT-LENGTH* ...)
; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...)
; compiling (DEFUN INSPECTOR ...)
; compiling (DEFVAR *INSPECT-FUN* ...)
; compiling (DEFVAR *INSPECTED*)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN INSPECT ...)
; compiling (DEFVAR *HELP-FOR-INSPECT* ...)
; compiling (DEFUN %INSPECT ...)
; compiling (DEFUN EVAL-FOR-INSPECT ...)
; compiling (DEFUN TTY-DISPLAY-INSPECTED-PARTS ...)
; compiling (DEFGENERIC INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STRUCTURE-ELEMENTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STANDARD-OBJECT-ELEMENTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-INDEX-STRING ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)

; SYS:SRC;CODE;INSPECT.FASL.NEWEST written
; compilation finished in 0:00:02.628
; compiling file "/«PKGBUILDDIR»/src/code/profile.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-PROFILE")
; compiling (DECLAIM (INLINE MAKE-COUNTER))
; compiling (DEFSTRUCT (COUNTER # ...) ...)
; compiling (DEFUN INCF-COUNTER ...)
; compiling (DEFUN COUNTER-COUNT ...)
; compiling (DEFCONSTANT +TICKS-PER-SECOND+ ...)
; compiling (DECLAIM (INLINE GET-INTERNAL-TICKS))
; compiling (DEFUN GET-INTERNAL-TICKS ...)
; compiling (DEFVAR *PROFILED-FUN-NAME->INFO* ...)
; compiling (DEFSTRUCT (PROFILE-INFO #) ...)
; compiling (DECLAIM (COUNTER *ENCLOSED-TICKS* ...))
; compiling (DEFVAR *ENCLOSED-TICKS*)
; compiling (DEFVAR *ENCLOSED-CONSING*)
; compiling (DECLAIM (COUNTER *ENCLOSED-PROFILES*))
; compiling (DEFVAR *ENCLOSED-PROFILES*)
; compiling (DECLAIM (COUNTER *ENCLOSED-GC-RUN-TIME*))
; compiling (DEFVAR *ENCLOSED-GC-RUN-TIME*)
; compiling (DEFVAR *COMPUTING-PROFILING-DATA-FOR*)
; compiling (DEFSTRUCT (OVERHEAD #) ...)
; compiling (DEFVAR *OVERHEAD*)
; compiling (DECLAIM (TYPE OVERHEAD ...))
; compiling (MAKUNBOUND (QUOTE *OVERHEAD*))

; file: /«PKGBUILDDIR»/src/code/profile.lisp
; in: DEFUN PROFILE-ENCAPSULATION-LAMBDAS
;     (SB-PROFILE::MAKE-COUNTER)
; --> BLOCK LET 
; ==>
;   #:INSTANCE0
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)

;     (1+ SB-PROFILE::INNER-ENCLOSED-PROFILES)
; ==>
;   (+ SB-PROFILE::INNER-ENCLOSED-PROFILES 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do #1=inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do #1# (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
;       etc.

;     (- (SB-PROFILE::GET-INTERNAL-TICKS) SB-PROFILE::START-TICKS)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0)
; 
; note: forced to do static-fun Eql (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (- (GET-BYTES-CONSED) SB-PROFILE::NBF0 SB-PROFILE::DYNAMIC-USAGE-0)
; --> - 
; ==>
;   (- (GET-BYTES-CONSED) SB-PROFILE::NBF0)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

; ==>
;   (- (- (GET-BYTES-CONSED) SB-PROFILE::NBF0) SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 4294967295) . #1=(&OPTIONAL)), not a (VALUES
;                                                                                          FIXNUM
;                                                                                          &REST
;                                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 4294967295) . #1#), not a (VALUES
;                                                                               (SIGNED-BYTE
;                                                                                32)
;                                                                               &REST
;                                                                               T).
;       etc.

;     (SETF SB-PROFILE::DTICKS
;             (- (SB-PROFILE::GET-INTERNAL-TICKS) SB-PROFILE::START-TICKS)
;           SB-PROFILE::DCONSING
;             (IF (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0)
;                 (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
;                 (- (GET-BYTES-CONSED) SB-PROFILE::NBF0
;                    SB-PROFILE::DYNAMIC-USAGE-0))
;           SB-PROFILE::INNER-ENCLOSED-PROFILES
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-PROFILES*)
;           SB-PROFILE::DGC-RUN-TIME
;             (- *GC-RUN-TIME* SB-PROFILE::START-GC-RUN-TIME))
; --> PROGN SETF SETQ MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (- SB-PROFILE::DTICKS
;        (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-TICKS*))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND 
; --> IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (- SB-PROFILE::DGC-RUN-TIME
;        (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-GC-RUN-TIME*))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND 
; --> IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER * 536870908) . #1=(&OPTIONAL)), not a (VALUES
;                                                                               FIXNUM
;                                                                               &REST
;                                                                               T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER * 536870908) . #1#), not a (VALUES
;                                                                    (SIGNED-BYTE
;                                                                     32)
;                                                                    &REST T).
;       etc.

;     (- SB-PROFILE::DCONSING
;        (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-CONSING*))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND 
; --> IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (APPLY FUNCTION SB-PROFILE::ARGS)
; --> MULTIPLE-VALUE-CALL PROGN 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::CLAMBDA
;      :%SOURCE-NAME #:CLEANUP-FUN-284
;      :%DEBUG-NAME (FLET #:CLEANUP-FUN-284 :IN SB-PROFILE::PROFILE-ENCAPSULATION-LAMBDAS)
;      :KIND :CLEANUP
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS NIL {52A7AF21}>)
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (UNWIND-PROTECT (APPLY FUNCTION SB-PROFILE::ARGS)
;       (LET ((SB-PROFILE::*COMPUTING-PROFILING-DATA-FOR* FUNCTION)
;             (SB-PROFILE::DYNAMIC-USAGE-1 (SB-KERNEL:DYNAMIC-USAGE)))
;         (SETF SB-PROFILE::DTICKS (- # SB-PROFILE::START-TICKS)
;               SB-PROFILE::DCONSING
;                 (IF #
;                     #
;                     #)
;               SB-PROFILE::INNER-ENCLOSED-PROFILES
;                 (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-PROFILES*)
;               SB-PROFILE::DGC-RUN-TIME
;                 (- *GC-RUN-TIME* SB-PROFILE::START-GC-RUN-TIME))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::TICKS
;          (- SB-PROFILE::DTICKS
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-TICKS*)))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::GC-RUN-TIME
;          (- SB-PROFILE::DGC-RUN-TIME
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-GC-RUN-TIME*)))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::CONSING
;          (- SB-PROFILE::DCONSING
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-CONSING*)))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::PROFILES
;          SB-PROFILE::INNER-ENCLOSED-PROFILES)))
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (#:CLEANUP-FUN-284)
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg--
; compiling (DEFUN PROFILE-ENCAPSULATION-LAMBDAS ...)
; compiling (DEFUN MAPC-ON-NAMED-FUNS ...)
; compiling (DEFUN PROFILE-1-UNPROFILED-FUN ...)
; compiling (DEFUN PROFILE-1-FUN ...)
; compiling (DEFUN UNPROFILE-1-FUN ...)
; compiling (DEFMACRO PROFILE ...)
; compiling (DEFMACRO UNPROFILE ...)
; compiling (DEFUN UNPROFILE-ALL ...)
; compiling (DEFUN RESET ...)
; compiling (DEFSTRUCT (TIME-INFO #) ...)
; compiling (DEFUN COMPENSATE-TIME ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN PRINT-PROFILE-TABLE ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; compiling (DEFPARAMETER *TIMER-OVERHEAD-ITERATIONS* ...)
; compiling (DECLAIM (NOTINLINE COMPUTE-OVERHEAD-AUX))
; compiling (DEFUN COMPUTE-OVERHEAD-AUX ...)
; compiling (DEFUN COMPUTE-OVERHEAD ...)
; 
; compilation unit finished
;   printed 20 notes
; compiling (DEFUN PROFILE-DEINIT ...)

; SYS:SRC;CODE;PROFILE.FASL.NEWEST written
; compilation finished in 0:00:02.156
; compiling file "/«PKGBUILDDIR»/src/code/ntrace.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-DEBUG")
; compiling (DEFVAR *TRACE-INDENTATION-STEP* ...)
; compiling (DEFVAR *MAX-TRACE-INDENTATION* ...)
; compiling (DEFVAR *TRACE-ENCAPSULATE-DEFAULT* ...)
; compiling (DEFVAR *TRACED-FUNS* ...)
; compiling (DEF!STRUCT (TRACE-INFO # ...) ...)
; compiling (DEFVAR *TRACED-ENTRIES* ...)
; compiling (DECLAIM (LIST *TRACED-ENTRIES*))
; compiling (DEFVAR *IN-TRACE* ...)
; compiling (DEFUN TRACE-FDEFINITION ...)
; compiling (DEFUN TRACE-REDEFINED-UPDATE ...)
; compiling (PUSH (FUNCTION TRACE-REDEFINED-UPDATE) ...)
; compiling (DEFUN COERCE-FORM ...)
; compiling (DEFUN COERCE-FORM-LIST ...)
; compiling (DEFUN PRINT-TRACE-INDENTATION ...)
; compiling (DEFUN TRACE-WHEREIN-P ...)
; compiling (DEFUN TRACE-PRINT ...)
; compiling (DEFUN TRACE-MAYBE-BREAK ...)
; compiling (DEFUN DISCARD-INVALID-ENTRIES ...)
; compiling (DEFUN TRACE-START-BREAKPOINT-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN TRACE-END-BREAKPOINT-FUN ...)
; compiling (DEFUN TRACE-CALL ...)
; compiling (DEFUN TRACE-1 ...)
; compiling (DEFUN PARSE-TRACE-OPTIONS ...)
; compiling (DEFUN EXPAND-TRACE ...)
; compiling (DEFUN %LIST-TRACED-FUNS ...)
; compiling (DEFMACRO TRACE ...)
; compiling (DEFUN UNTRACE-1 ...)
; compiling (DEFUN UNTRACE-ALL ...)
; compiling (DEFUN UNTRACE-PACKAGE ...)
; compiling (DEFMACRO UNTRACE ...)

; SYS:SRC;CODE;NTRACE.FASL.NEWEST written
; compilation finished in 0:00:01.840
; compiling file "/«PKGBUILDDIR»/src/code/step.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFUN STEP-FORM ...)
; compiling (DEFUN STEP-VALUES ...)
; compiling (DEFUN STEP-FINISHED ...)
; compiling (DEFGENERIC SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFVAR *STEPPER-HOOK* ...)
; compiling (DEFUN INVOKE-STEPPER ...)
; compiling (DEFMACRO STEP ...)

; SYS:SRC;CODE;STEP.FASL.NEWEST written
; compilation finished in 0:00:00.434
; compiling file "/«PKGBUILDDIR»/src/code/warm-lib.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")

; SYS:SRC;CODE;WARM-LIB.FASL.NEWEST written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/src/code/run-program.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")

; file: /«PKGBUILDDIR»/src/code/run-program.lisp
; in: DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON
;     (DEFINE-ALIEN-ROUTINE SB-IMPL::WRAPPED-ENVIRON (* C-STRING))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; compiling (DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON ...)
; compiling (DEFUN POSIX-ENVIRON ...)
; compiling (DEFUN UNIX-ENVIRONMENT-SBCL-FROM-CMUCL ...)
; compiling (DEFINE-ALIEN-ROUTINE ("waitpid" C-WAITPID) ...)
; compiling (DEFUN WAITPID ...)
; compiling (DEFVAR *ACTIVE-PROCESSES* ...)
; compiling (DEFVAR *ACTIVE-PROCESSES-LOCK* ...)
; compiling (DEFMACRO WITH-ACTIVE-PROCESSES-LOCK ...)
; compiling (DEFSTRUCT (PROCESS #) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN PROCESS-EXIT-CODE ...)
; compiling (DEFUN PROCESS-STATUS ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN PROCESS-WAIT ...)
; compiling (DEFUN FIND-CURRENT-FOREGROUND-PROCESS ...)

; file: /«PKGBUILDDIR»/src/code/run-program.lisp
; in: DEFUN PROCESS-KILL
;     (VALUES NIL SB-IMPL::ERRNO)
; ==>
;   SB-IMPL::ERRNO
; 
; note: deleting unreachable code
; compiling (DEFUN PROCESS-KILL ...)
; compiling (DEFUN PROCESS-ALIVE-P ...)
; compiling (DEFUN PROCESS-CLOSE ...)
; compiling (DEFUN GET-PROCESSES-STATUS-CHANGES ...)
; compiling (DEFVAR *CLOSE-ON-ERROR* ...)
; compiling (DEFVAR *CLOSE-IN-PARENT* ...)
; compiling (DEFVAR *HANDLERS-INSTALLED* ...)
; compiling (DEFINE-ALIEN-ROUTINE PTSNAME ...)
; compiling (DEFINE-ALIEN-ROUTINE GRANTPT ...)
; compiling (DEFINE-ALIEN-ROUTINE UNLOCKPT ...)
; compiling (DEFUN FIND-A-PTY ...)
; compiling (DEFUN OPEN-PTY ...)
; compiling (DEFMACRO ROUND-NULL-TERMINATED-BYTES-TO-WORDS ...)
; compiling (DEFUN STRING-LIST-TO-C-STRVEC ...)
; compiling (DEFMACRO WITH-ARGS ...)
; compiling (DEFMACRO WITH-ENVIRONMENT ...)
; compiling (DEFINE-ALIEN-ROUTINE SPAWN ...)
; compiling (DEFUN PREPARE-ARGS ...)
; compiling (DEFUN RUN-PROGRAM ...)
; compiling (DEFUN COPY-DESCRIPTOR-TO-STREAM ...)
; compiling (DEFUN GET-STREAM-FD-AND-EXTERNAL-FORMAT ...)
; compiling (DEFUN GET-TEMPORARY-DIRECTORY ...)
; 
; compilation unit finished
;   printed 2 notes
; compiling (DEFUN GET-DESCRIPTOR-FOR ...)

; SYS:SRC;CODE;RUN-PROGRAM.FASL.NEWEST written
; compilation finished in 0:00:06.498
T
* //doing warm init - load and dump phase
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
COLD-INIT... (PACKAGE = "COMMON-LISP")
("Length(TLFs)= " 13150)

* 
*COMPILE-FILES-P*
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFMACRO
      :ACTUAL-INITARGS (NAME DEFMETHOD NEW-FUNCTION
                        #1=#<FUNCTION (DEFMACRO DEFMETHOD) {520DD735}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;BOOT.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 10
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME DEFMETHOD))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFUN
      :ACTUAL-INITARGS (NAME MAYBE-UPDATE-INFO-FOR-GF NEW-FUNCTION
                        #1=#<FUNCTION SB-C::MAYBE-UPDATE-INFO-FOR-GF
                             {52E1C09D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;METHODS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 38
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME
                       MAYBE-UPDATE-INFO-FOR-GF))
STYLE-WARNING: #<REDEFINITION-WITH-DEFUN {52CEFD41}>
* 
T
* 
NIL
* 
NIL
* 
NIL
* 
NIL
* 
* 
NIL
* 
NIL
* 
NIL
* 
T
* 
NIL
* [undoing binding stack and other enclosing state... done]
[saving current Lisp image into output/sbcl.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45187072 bytes from the dynamic space at 0x4f000000
done]
//checking for leftover cold-init symbols
Found 70:
(#:!WITH-CACHED-FUN #:!DO-PACKED-INFO-VECTOR-AUX-KEY
 #:!WITH-PACKED-INFO-ITERATOR #:!MAKE-SPECIALIZED-ARRAY #:!COERCE-TO-CMT-ENTRY
 #:!EARLY-GF-NAME #:!FIX-ENSURE-ACCESSOR-SPECIALIZERS #:!BOOTSTRAP-GET-SLOT
 #:!SETQ-OPTIONAL-LEADING-SIGN #:!COPY-LIST-MACRO #:!UNCROSS-FORMAT-CONTROL
 #:!GET-META-INFOS #:!BOOTSTRAP-SET-SLOT #:!BOOTSTRAP-SLOT-INDEX
 #:!CMT-ENTRY-TO-FUN-DESIGNATOR #:!VALUES-SPECIFIER-TYPE-BODY
 #:!+PCL-READER-NAME+ #:!+PCL-WRITER-NAME+ #:!+PCL-BOUNDP-NAME+
 #:!DO-PROBE-SEQUENCE #:!DEFGLOBAL #:!DEFINE-HASH-CACHE #:!+COMMA-AT+
 #:!+COMMA-DOT+ #:!CMT-ENTRY-TO-FUNCTION #:!INVOKE-TYPE-METHOD
 #:!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS #:!FIND-DATA-VECTOR-SETTER
 #:!FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS #:!QUIETLY-DEFSETF #:!%QUIETLY-DEFUN
 #:!ENABLE-INFINITE-ERROR-PROTECTOR #:!PPRINT-COLD-INIT #:!BACKQ-COLD-INIT
 #:!SHARPM-COLD-INIT #:!READER-COLD-INIT #:!CLASS-FINALIZE #:!FOREIGN-COLD-INIT
 #:!LOADER-COLD-INIT #:!DEBUG-INFO-COLD-INIT #:!PATHNAME-COLD-INIT
 #:!LATE-PROCLAIM-COLD-INIT #:!FIXUP-TYPE-COLD-INIT
 #:!SET-UP-STRUCTURE-OBJECT-CLASS #:!CONSTANTP-COLD-INIT
 #:!POLICY-COLD-INIT-OR-RESANIFY #:!TARGET-TYPE-COLD-INIT
 #:!ALIEN-TYPE-COLD-INIT #:!LATE-TYPE-COLD-INIT2 #:!LATE-TYPE-COLD-INIT
 #:!EARLY-TYPE-COLD-INIT #:!CLASSES-COLD-INIT #:!WORLD-LOCK-COLD-INIT
 #:!TYPEDEFS-COLD-INIT #:!TYPE-CLASS-COLD-INIT #:!GLOBALDB-COLD-INIT
 #:!UNICODE-PROPERTIES-COLD-INIT #:!CHARACTER-NAME-DATABASE-COLD-INIT
 #:!CHARACTER-DATABASE-COLD-INIT #:!HAIRY-DATA-VECTOR-REFFER-INIT
 #:!RANDOM-COLD-INIT #:!PRINTER-COLD-INIT #:!PACKAGE-COLD-INIT #:!ZZZZZZ
 #:!MAKE-COLD-STDERR-STREAM #:!COLD-INIT #:!COLD-LOSE #:*!LOAD-TIME-VALUES*
 #:*!REVERSED-COLD-TOPLEVELS* #:*!REVERSED-COLD-DEFUNS*
 #:*!REVERSED-COLD-SETF-MACROS*)
209.19user 7.77system 3:37.45elapsed 99%CPU (0avgtext+0avgdata 125020maxresident)k
0inputs+99696outputs (0major+204687minor)pagefaults 0swaps
//entering make-target-contrib.sh
find: `obj/asdf-cache/': No such file or directory
find: `obj/sbcl-home/contrib/': No such file or directory
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
mkdir -p /«PKGBUILDDIR»/obj/sbcl-home/contrib/
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file #p"SYS:CONTRIB;ASDF;UIOP.LISP" :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//uiop.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/asdf/uiop.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :UIOP/PACKAGE ...)
; compiling (IN-PACKAGE :UIOP/PACKAGE)
; compiling (DEFUN FIND-PACKAGE* ...)
; compiling (DEFUN FIND-SYMBOL* ...)
; compiling (DEFUN SYMBOL-CALL ...)
; compiling (DEFUN INTERN* ...)
; compiling (DEFUN EXPORT* ...)
; compiling (DEFUN IMPORT* ...)
; compiling (DEFUN SHADOWING-IMPORT* ...)
; compiling (DEFUN SHADOW* ...)
; compiling (DEFUN MAKE-SYMBOL* ...)
; compiling (DEFUN UNINTERN* ...)
; compiling (DEFUN SYMBOL-SHADOWING-P ...)
; compiling (DEFUN HOME-PACKAGE-P ...)
; compiling (DEFUN SYMBOL-PACKAGE-NAME ...)
; compiling (DEFUN STANDARD-COMMON-LISP-SYMBOL-P ...)
; compiling (DEFUN REIFY-PACKAGE ...)
; compiling (DEFUN UNREIFY-PACKAGE ...)
; compiling (DEFUN REIFY-SYMBOL ...)
; compiling (DEFUN UNREIFY-SYMBOL ...)
; compiling (DEFVAR *ALL-PACKAGE-HAPPINESS* ...)
; compiling (DEFVAR *ALL-PACKAGE-FISHINESS* ...)
; compiling (DEFUN RECORD-FISHY ...)
; compiling (DEFMACRO WHEN-PACKAGE-FISHINESS ...)
; compiling (DEFMACRO NOTE-PACKAGE-FISHINESS ...)
; compiling (DEFUN SET-DUMMY-SYMBOL ...)
; compiling (DEFUN MAKE-DUMMY-SYMBOL ...)
; compiling (DEFUN DUMMY-SYMBOL ...)
; compiling (DEFUN GET-DUMMY-SYMBOL ...)
; compiling (DEFUN NUKE-SYMBOL-IN-PACKAGE ...)
; compiling (DEFUN NUKE-SYMBOL ...)
; compiling (DEFUN REHOME-SYMBOL ...)
; compiling (DEFUN ENSURE-PACKAGE-UNUSED ...)
; compiling (DEFUN DELETE-PACKAGE* ...)
; compiling (DEFUN PACKAGE-NAMES ...)
; compiling (DEFUN PACKAGES-FROM-NAMES ...)
; compiling (DEFUN FRESH-PACKAGE-NAME ...)
; compiling (DEFUN RENAME-PACKAGE-AWAY ...)
; compiling (DEFUN PACKAGE-DEFINITION-FORM ...)
; compiling (DEFUN ENSURE-SHADOWING-IMPORT ...)
; compiling (DEFUN ENSURE-IMPORTED ...)
; compiling (DEFUN ENSURE-IMPORT ...)
; compiling (DEFUN ENSURE-INHERITED ...)
; compiling (DEFUN ENSURE-MIX ...)
; compiling (DEFUN RECYCLE-SYMBOL ...)
; compiling (DEFUN SYMBOL-RECYCLED-P ...)
; compiling (DEFUN ENSURE-SYMBOL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ENSURE-EXPORTED-TO-USER ...)
; compiling (DEFUN ENSURE-EXPORTED ...)
; compiling (DEFUN ENSURE-EXPORT ...)
; compiling (DEFUN ENSURE-PACKAGE ...)
; compiling (DEFUN PARSE-DEFINE-PACKAGE-FORM ...)
; compiling (DEFMACRO DEFINE-PACKAGE ...)
; compiling (DEFINE-PACKAGE :ASDF/PACKAGE ...)
; compiling (DEFINE-PACKAGE :UIOP/COMMON-LISP ...)
; compiling (IN-PACKAGE :UIOP/COMMON-LISP)
; compiling (WHEN (AND #) ...)
; compiling NIL
; compiling NIL
; compiling (DEFMACRO LOOP* ...)
; compiling (DEFUN FROB-SUBSTRINGS ...)
; compiling (DEFMACRO COMPATFMT ...)
; compiling (DEFINE-PACKAGE :UIOP/UTILITY ...)
; compiling (IN-PACKAGE :UIOP/UTILITY)
; compiling (DEFUN UNDEFINE-FUNCTION ...)
; compiling (DEFUN UNDEFINE-FUNCTIONS ...)
; compiling (DEFDEF DEFGENERIC* ...)
; compiling (DEFDEF DEFUN* ...)
; compiling (DEFMACRO WITH-UPGRADABILITY ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFVAR +CR+ ...)
; compiling (DEFVAR +LF+ ...)
; compiling (DEFVAR +CRLF+ ...)
; compiling (DEFUN STRIPLN ...)
; compiling (DEFTYPE STAMP ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/OS ...)
; compiling (IN-PACKAGE :UIOP/OS)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/PATHNAME ...)
; compiling (IN-PACKAGE :UIOP/PATHNAME)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/FILESYSTEM ...)
; compiling (IN-PACKAGE :UIOP/FILESYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/STREAM ...)
; compiling (IN-PACKAGE :UIOP/STREAM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/IMAGE ...)
; compiling (IN-PACKAGE :UIOP/IMAGE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/RUN-PROGRAM ...)
; compiling (IN-PACKAGE :UIOP/RUN-PROGRAM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/LISP-BUILD ...)
; compiling (IN-PACKAGE :UIOP/LISP-BUILD)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/CONFIGURATION ...)
; compiling (IN-PACKAGE :UIOP/CONFIGURATION)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (UIOP/PACKAGE:DEFINE-PACKAGE :UIOP/BACKWARD-DRIVER ...)
; compiling (IN-PACKAGE :UIOP/BACKWARD-DRIVER)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/DRIVER ...)
; compiling (PROVIDE "uiop")
; compiling (PROVIDE "UIOP")
; compiling (PROVIDE "UIOP")
; compiling (PROVIDE "uiop")

; /«PKGBUILDDIR»/obj/sbcl-home/contrib//uiop.fasl written
; compilation finished in 0:00:38.714
* if [ -d asdf-upstream ] ; then rm -rf asdf-upstream ; fi
mkdir -p /«PKGBUILDDIR»/obj/sbcl-home/contrib/
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file #p"SYS:CONTRIB;ASDF;ASDF.LISP" :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//asdf.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/asdf/asdf.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (REQUIRE :UIOP)
; compiling (UIOP/PACKAGE:DEFINE-PACKAGE :ASDF/UPGRADE ...)
; compiling (IN-PACKAGE :ASDF/UPGRADE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WHEN-UPGRADING NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/COMPONENT ...)
; compiling (IN-PACKAGE :ASDF/COMPONENT)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/SYSTEM ...)
; compiling (IN-PACKAGE :ASDF/SYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/CACHE ...)
; compiling (IN-PACKAGE :ASDF/CACHE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/FIND-SYSTEM ...)
; compiling (IN-PACKAGE :ASDF/FIND-SYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/FIND-COMPONENT ...)
; compiling (IN-PACKAGE :ASDF/FIND-COMPONENT)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/OPERATION ...)
; compiling (IN-PACKAGE :ASDF/OPERATION)
; compiling (WHEN-UPGRADING (:WHEN #) ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/ACTION ...)
; compiling (IN-PACKAGE :ASDF/ACTION)
; compiling (DEFTYPE ACTION ...)
; compiling (DEFTYPE OPERATION-DESIGNATOR ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/LISP-ACTION ...)
; compiling (IN-PACKAGE :ASDF/LISP-ACTION)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/PLAN ...)
; compiling (IN-PACKAGE :ASDF/PLAN)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/OPERATE ...)
; compiling (IN-PACKAGE :ASDF/OPERATE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/OUTPUT-TRANSLATIONS ...)
; compiling (IN-PACKAGE :ASDF/OUTPUT-TRANSLATIONS)
; compiling (WHEN-UPGRADING NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/SOURCE-REGISTRY ...)
; compiling (IN-PACKAGE :ASDF/SOURCE-REGISTRY)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/BACKWARD-INTERNALS ...)
; compiling (IN-PACKAGE :ASDF/BACKWARD-INTERNALS)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WHEN-UPGRADING (:WHEN #) ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/PARSE-DEFSYSTEM ...)
; compiling (IN-PACKAGE :ASDF/PARSE-DEFSYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/BUNDLE ...)
; compiling (IN-PACKAGE :ASDF/BUNDLE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFTYPE USER-SYSTEM ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFCLASS FASL-OP ...)
; compiling (DEFCLASS LOAD-FASL-OP ...)
; compiling (DEFCLASS BINARY-OP ...)
; compiling (DEFCLASS MONOLITHIC-FASL-OP ...)
; compiling (DEFCLASS MONOLITHIC-LOAD-FASL-OP ...)
; compiling (DEFCLASS MONOLITHIC-BINARY-OP ...)
; compiling (DEFINE-PACKAGE :ASDF/CONCATENATE-SOURCE ...)
; compiling (IN-PACKAGE :ASDF/CONCATENATE-SOURCE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/BACKWARD-INTERFACE ...)
; compiling (IN-PACKAGE :ASDF/BACKWARD-INTERFACE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/PACKAGE-INFERRED-SYSTEM ...)
; compiling (IN-PACKAGE :ASDF/PACKAGE-INFERRED-SYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/INTERFACE ...)
; compiling (DEFINE-PACKAGE :ASDF/USER ...)
; compiling (DEFINE-PACKAGE :ASDF/FOOTER ...)
; compiling (IN-PACKAGE :ASDF/FOOTER)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WHEN *LOAD-VERBOSE* ...)

; /«PKGBUILDDIR»/obj/sbcl-home/contrib//asdf.fasl written
; compilation finished in 0:00:46.640
* true
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-aclrepl")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-aclrepl/module-setup.lisp" (written 11 JUN 2015 07:43:37 AM):
; compiling (PROVIDE :SB-ACLREPL)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-aclrepl/module-setup.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/toplevel.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-ACLREPL ...)
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFVAR *NOPRINT* ...)
; compiling (DEFVAR *BREAK-LEVEL* ...)
; compiling (DEFVAR *INSPECT-BREAK* ...)
; compiling (DEFVAR *CONTINUABLE-BREAK* ...)
; compiling (DEFUN REPL ...)
; compiling (DEFUN REP-ONE ...)

; SYS:CONTRIB;SB-ACLREPL;TOPLEVEL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.120
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/repl.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFSTRUCT USER-CMD ...)
; compiling (DEFSTRUCT CMD-TABLE-ENTRY ...)
; compiling (DEFPARAMETER *DEFAULT-PROMPT* ...)
; compiling (DEFPARAMETER *PROMPT* ...)
; compiling (DEFPARAMETER *USE-SHORT-PACKAGE-NAME* ...)
; compiling (DEFPARAMETER *DIR-STACK* ...)
; compiling (DEFPARAMETER *COMMAND-CHAR* ...)
; compiling (DEFVAR *MAX-HISTORY* ...)
; compiling (DEFVAR *EXIT-ON-EOF* ...)
; compiling (DEFPARAMETER *HISTORY* ...)
; compiling (DEFPARAMETER *CMD-NUMBER* ...)
; compiling (DEFVAR *INPUT*)
; compiling (DEFVAR *OUTPUT*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *EOF-MARKER* ...)
; compiling (DEFVAR *EOF-CMD* ...)
; compiling (DEFVAR *NULL-CMD* ...)
; compiling (DEFPARAMETER *CMD-TABLE-HASH* ...)
; compiling (DEFUN PROMPT-PACKAGE-NAME ...)
; compiling (DEFUN READ-CMD ...)
; compiling (DEFUN DISPATCH-COMMAND-LINE ...)
; compiling (DEFUN PROCESS-CMD-NUMERIC ...)
; compiling (DEFUN MAYBE-RETURN-HISTORY-CMD ...)
; compiling (DEFUN FIND-HISTORY-MATCHING-PATTERN ...)
; compiling (DEFUN PROCESS-HISTORY-SEARCH ...)
; compiling (DEFUN PROCESS-CMD-TEXT ...)
; compiling (DEFUN MAKE-CTE ...)
; compiling (DEFUN %ADD-ENTRY ...)
; compiling (DEFUN ADD-CMD-TABLE-ENTRY ...)
; compiling (DEFUN FIND-CMD ...)
; compiling (DEFUN USER-CMD= ...)
; compiling (DEFUN ADD-TO-HISTORY ...)
; compiling (DEFUN GET-HISTORY ...)
; compiling (DEFUN GET-CMD-DOC-LIST ...)
; compiling (DEFUN CD-CMD ...)
; compiling (DEFUN PWD-CMD ...)
; compiling (DEFUN TRACE-CMD ...)
; compiling (DEFUN UNTRACE-CMD ...)
; compiling (DEFUN EXIT-CMD ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/repl.lisp
; in: DEFUN EXIT-CMD
;     (VALUES)
; 
; note: deleting unreachable code

; compiling (DEFUN PACKAGE-CMD ...)
; compiling (DEFUN STRING-TO-LIST-SKIP-SPACES ...)
; compiling (LET (#) ...)
; compiling (DEFUN CF-CMD ...)
; compiling (DEFUN >-NUM ...)
; compiling (DEFUN NEWER-FILE-P ...)
; compiling (DEFUN COMPILE-FILE-AS-NEEDED ...)
; compiling (DEFUN APROPOS-CMD ...)
; compiling (LET (#) ...)
; compiling (DEFUN INSPECT-CMD ...)
; compiling (DEFUN ISTEP-CMD ...)
; compiling (DEFUN DESCRIBE-CMD ...)
; compiling (DEFUN MACROEXPAND-CMD ...)
; compiling (DEFUN HISTORY-CMD ...)
; compiling (DEFUN HELP-CMD ...)
; compiling (DEFUN ALIAS-CMD ...)
; compiling (DEFUN SHELL-CMD ...)
; compiling (DEFUN PUSHD-CMD ...)
; compiling (DEFUN POPD-CMD ...)
; compiling (DEFUN POP-CMD ...)
; compiling (DEFUN BT-CMD ...)
; compiling (DEFUN CURRENT-CMD ...)
; compiling (DEFUN TOP-CMD ...)
; compiling (DEFUN BOTTOM-CMD ...)
; compiling (DEFUN UP-CMD ...)
; compiling (DEFUN DN-CMD ...)
; compiling (DEFUN CONTINUE-CMD ...)
; compiling (DEFUN ERROR-CMD ...)
; compiling (DEFUN FRAME-CMD ...)
; compiling (DEFUN ZOOM-CMD ...)
; compiling (DEFUN LOCAL-CMD ...)
; compiling (DEFUN PROCESSES-CMD ...)
; compiling (DEFUN KILL-CMD ...)
; compiling (DEFUN FOCUS-CMD ...)
; compiling (DEFUN RESET-CMD ...)
; compiling (DEFUN DIRS-CMD ...)
; compiling (LET (#) ...)
; compiling (DEFSETF ALIAS ...)
; compiling (DEFMACRO ALIAS ...)
; compiling (DEFUN REMOVE-ALIAS ...)
; compiling (DEFUN PEEK-CHAR-NON-WHITESPACE ...)
; compiling (DEFUN STRING-TRIM-WHITESPACE ...)
; compiling (DEFUN WHITESPACE-CHAR-P ...)
; compiling (DEFUN WHITESPACE-CHAR-NOT-NEWLINE-P ...)
; compiling (DEFUN REPL-PROMPT-FUN ...)
; compiling (DEFUN PROCESS-CMD ...)
; compiling (DEFUN REPL-READ-FORM-FUN ...)
; compiling (SETF *REPL-PROMPT-FUN* ...)
; compiling (DEFMACRO WITH-NEW-REPL-STATE ...)
; compiling (DEFUN MAKE-REPL-FUN ...)
; compiling (WHEN (BOUNDP #) ...)

; SYS:CONTRIB;SB-ACLREPL;REPL-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.026
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/debug.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFUN DEBUG-LOOP ...)
; compiling (DEFUN CONTINUABLE-BREAK-P ...)
; compiling (DEFUN PRINT-RESTARTS ...)

; SYS:CONTRIB;SB-ACLREPL;DEBUG-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.258
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE #:SB-ACLREPL)
; compiling (DEFCONSTANT +DEFAULT-INSPECT-LENGTH+ ...)
; compiling (DEFSTRUCT (%INSPECT # ...) ...)
; compiling (DEFPARAMETER *CURRENT-INSPECT* ...)
; compiling (DEFPARAMETER *INSPECT-RAW* ...)
; compiling (DEFPARAMETER *INSPECT-LENGTH* ...)
; compiling (DEFPARAMETER *SKIP-ADDRESS-DISPLAY* ...)
; compiling (DEFVAR *INSPECT-HELP* ...)
; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...)
; compiling (DEFUN INSPECTOR-FUN ...)
; compiling (SETQ SB-IMPL::*INSPECT-FUN* ...)
; compiling (DEFUN ISTEP ...)
; compiling (DEFUN ISTEP-DISPATCH ...)
; compiling (DEFUN SET-CURRENT-INSPECT ...)
; compiling (DEFUN RESET-STACK ...)
; compiling (DEFUN OUTPUT-INSPECT-NOTE ...)
; compiling (DEFUN STACK ...)
; compiling (DEFUN REDISPLAY ...)
; compiling (DEFUN ISTEP-CMD-REDISPLAY ...)
; compiling (DEFUN ISTEP-CMD-PARENT ...)
; compiling (DEFUN ISTEP-CMD-INSPECT-* ...)
; compiling (DEFUN ISTEP-CMD-INSPECT-NEW-FORM ...)
; compiling (DEFUN ISTEP-CMD-SELECT-PARENT-COMPONENT ...)
; compiling (DEFUN ISTEP-CMD-SET-RAW ...)
; compiling (DEFUN ISTEP-CMD-RESET ...)
; compiling (DEFUN ISTEP-CMD-HELP ...)
; compiling (DEFUN ISTEP-CMD-SKIP ...)
; compiling (DEFUN ISTEP-CMD-PRINT ...)
; compiling (DEFUN SELECT-DESCRIPTION ...)
; compiling (DEFUN ISTEP-CMD-TREE ...)
; compiling (DEFUN ISTEP-CMD-SET ...)
; compiling (DEFUN ISTEP-CMD-SELECT-COMPONENT ...)
; compiling (DEFUN ISTEP-CMD-SET-STACK ...)
; compiling (DEFUN NO-OBJECT-MSG ...)
; compiling (DEFUN DISPLAY-CURRENT ...)
; compiling (DEFUN DISPLAY-INSPECT ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN DISPLAY-INSPECT
;     (TYPEP SB-ACLREPL::OBJECT 'SINGLE-FLOAT)
; --> LET 
; ==>
;   SB-ACLREPL::OBJECT
; 
; note: deleting unreachable code

; compiling (DEFUN ARRAY-LABEL-P ...)
; compiling (DEFUN NAMED-OR-ARRAY-LABEL-P ...)
; compiling (DEFUN HEX-LABEL-P ...)
; compiling (DEFUN DISPLAY-LABELED-ELEMENT ...)
; compiling (DEFUN FIND-PART-ID ...)
; compiling (DEFUN COMPONENT-AT ...)
; compiling (DEFUN ID-AT ...)
; compiling (DEFUN INSPECTED-ELEMENTS ...)
; compiling (DEFUN LAST-REQUESTED ...)
; compiling (DEFUN LAST-PART ...)
; compiling (DEFUN COMPUTE-ELEMENTS-COUNT ...)
; compiling (DEFUN SET-ELEMENT ...)
; compiling (DEFUN SET-ELEMENT-VALUES ...)
; compiling (DEFUN FIRST-ELEMENT-ELLIPSES-P ...)
; compiling (DEFUN LABEL-AT ...)
; compiling (DEFUN ARRAY-INDEX-STRING ...)
; compiling (DEFGENERIC INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN SIMPLE-CONS-PAIR-P ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN CONS-SAFE-LENGTH ...)
; compiling (DEFUN INSPECTED-DESCRIPTION-OF-NONTRIVIAL-LIST ...)
; compiling (DEFUN N-WORD-BITS-HEX-FORMAT ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN N-WORD-BITS-HEX-FORMAT
;     (CASE SB-VM:N-WORD-BITS (64 "~16,'0X") (32 "~8,'0X") (T "~X"))
; --> LET COND IF PROGN 
; ==>
;   "~16,'0X"
; 
; note: deleting unreachable code

; --> LET COND IF COND IF COND THE PROGN 
; ==>
;   "~X"
; 
; note: deleting unreachable code

; compiling (DEFUN REF32-HEXSTR ...)
; compiling (DEFUN REF32 ...)
; compiling (DEFUN DESCRIPTION-MAYBE-INTERNALS ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFMETHOD INSPECTED-DESCRIPTION (SINGLE-FLOAT)
;     (SB-ACLREPL::DESCRIPTION-MAYBE-INTERNALS "single-float ~W"
;      (LIST SB-ACLREPL::OBJECT) "[#x~8,'0X]"
;      (ASH (SB-KERNEL:GET-LISP-OBJ-ADDRESS SB-ACLREPL::OBJECT) -32))
; ==>
;   "single-float ~W"
; 
; note: deleting unreachable code

; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN BIGNUM-WORDS ...)
; compiling (DEFUN BIGNUM-COMPONENT-AT ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN BIGNUM-COMPONENT-AT
;     (LET ((SB-ACLREPL::START (* 8 (1+ SB-ACLREPL::OFFSET))))
;       (+ (SB-ACLREPL::REF32 BIGNUM SB-ACLREPL::START)
;          (ASH (SB-ACLREPL::REF32 BIGNUM (+ 4 SB-ACLREPL::START)) 32)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DECLAIM (INLINE PARTS-COMPONENTS))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-COMPONENTS)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-COMPONENTS))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-COMPONENTS)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-COMPONENTS to be INLINE, but 3 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.

; compiling (DEFUN PARTS-COMPONENTS ...)
; compiling (DECLAIM (INLINE PARTS-COUNT))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-COUNT)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-COUNT))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-COUNT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-COUNT to be INLINE, but 12 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.

; compiling (DEFUN PARTS-COUNT ...)
; compiling (DECLAIM (INLINE PARTS-SEQ-TYPE))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-SEQ-TYPE)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-SEQ-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-SEQ-TYPE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-SEQ-TYPE to be INLINE, but 5 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.

; compiling (DEFUN PARTS-SEQ-TYPE ...)
; compiling (DECLAIM (INLINE PARTS-SEQ-HINT))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-SEQ-HINT)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-SEQ-HINT))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-SEQ-HINT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-SEQ-HINT to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.

; compiling (DEFUN PARTS-SEQ-HINT ...)
; compiling (DEFGENERIC INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STRUCTURE-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STANDARD-OBJECT-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFGENERIC SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)

; SYS:CONTRIB;SB-ACLREPL;INSPECT-TMP.FASL.NEWEST written
; compilation finished in 0:00:04.074
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-aclrepl" "inspect">
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 7 notes
CL-USER(1): echo "(defsystem :sb-aclrepl :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-aclrepl.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-aclrepl")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-rt/rt.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-RT ...)
; compiling (IN-PACKAGE :SB-RT)
; compiling (DEFVAR *TEST* ...)
; compiling (DEFVAR *DO-TESTS-WHEN-DEFINED* ...)
; compiling (DEFVAR *ENTRIES* ...)
; compiling (DEFVAR *IN-TEST* ...)
; compiling (DEFVAR *DEBUG* ...)
; compiling (DEFVAR *CATCH-ERRORS* ...)
; compiling (DEFVAR *PRINT-CIRCLE-ON-FAILURE* ...)
; compiling (DEFVAR *COMPILE-TESTS* ...)
; compiling (DEFVAR *OPTIMIZATION-SETTINGS* ...)
; compiling (DEFVAR *EXPECTED-FAILURES* ...)
; compiling (DEFSTRUCT (ENTRY # ...) ...)
; compiling (DEFMACRO VALS ...)
; compiling (DEFMACRO DEFN ...)
; compiling (DEFUN PENDING-TESTS ...)
; compiling (DEFUN REM-ALL-TESTS ...)
; compiling (DEFUN REM-TEST ...)
; compiling (DEFUN GET-TEST ...)
; compiling (DEFUN GET-ENTRY ...)
; compiling (DEFMACRO DEFTEST ...)
; compiling (DEFUN ADD-ENTRY ...)
; compiling (DEFUN REPORT-ERROR ...)
; compiling (DEFUN DO-TEST ...)
; compiling (DEFUN EQUALP-WITH-CASE ...)
; compiling (DEFUN DO-ENTRY ...)
; compiling (DEFUN CONTINUE-TESTING ...)
; compiling (DEFUN DO-TESTS ...)
; compiling (DEFUN DO-ENTRIES ...)

; SYS:CONTRIB;SB-RT;RT-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.828
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:ACLREPL-TESTS ...)
; compiling (IN-PACKAGE #:ACLREPL-TESTS)
; compiling (DECLAIM (SPECIAL SB-ACLREPL::*SKIP-ADDRESS-DISPLAY* ...))
; compiling (SETF SB-RT::*CATCH-ERRORS* ...)
; compiling (REM-ALL-TESTS)
; compiling (DEFTEST HOOK.1 ...)
; compiling (DEFTEST HOOK.2 ...)
; compiling (DEFTEST HOOK.3 ...)
; compiling (DEFCLASS EMPTY-CLASS ...)
; compiling (DEFPARAMETER *EMPTY-CLASS* ...)
; compiling (DEFCLASS EMPTY-CLASS ...)
; compiling (DEFCLASS SIMPLE-CLASS ...)
; compiling (DEFSTRUCT EMPTY-STRUCT)
; compiling (DEFSTRUCT TINY-STRUCT ...)
; compiling (DEFSTRUCT SIMPLE-STRUCT ...)
; compiling (DEFPARAMETER *EMPTY-CLASS* ...)
; compiling (DEFPARAMETER *SIMPLE-CLASS* ...)
; compiling (DEFPARAMETER *EMPTY-STRUCT* ...)
; compiling (DEFPARAMETER *TINY-STRUCT* ...)
; compiling (DEFPARAMETER *SIMPLE-STRUCT* ...)
; compiling (DEFPARAMETER *NORMAL-LIST* ...)
; compiling (DEFPARAMETER *DOTTED-LIST* ...)
; compiling (DEFPARAMETER *CONS-PAIR* ...)
; compiling (DEFPARAMETER *COMPLEX* ...)
; compiling (DEFPARAMETER *RATIO* ...)
; compiling (DEFPARAMETER *DOUBLE* ...)
; compiling (DEFPARAMETER *BIGNUM* ...)
; compiling (DEFPARAMETER *ARRAY* ...)
; compiling (DEFPARAMETER *VECTOR* ...)
; compiling (DEFPARAMETER *CIRCLE-LIST1* ...)
; compiling (SETF (CAR *CIRCLE-LIST1*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST2* ...)
; compiling (SETF (CDR *CIRCLE-LIST2*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST3* ...)
; compiling (SETF (CAR *CIRCLE-LIST3*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST4* ...)
; compiling (SETF (SECOND *CIRCLE-LIST4*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST5* ...)
; compiling (SETF (CDDR *CIRCLE-LIST5*) ...)
; compiling (DEFUN FIND-POSITION ...)
; compiling (DEFUN PARTS ...)
; compiling (DEFUN DESCRIPTION ...)
; compiling (DEFUN ELEMENTS ...)
; compiling (DEFUN ELEMENTS-COMPONENTS ...)
; compiling (DEFUN ELEMENTS-LABELS ...)
; compiling (DEFUN ELEMENTS-COUNT ...)
; compiling (DEFUN LABELED-ELEMENT ...)
; compiling (DEFUN DISPLAY ...)
; compiling (DEFUN DO-INSPECT ...)
; compiling (DEFUN ISTEP ...)
; compiling (DEFTEST FIND.LIST.0 ...)
; compiling (DEFTEST FIND.LIST.1 ...)
; compiling (DEFTEST FIND.LIST.2 ...)
; compiling (DEFTEST FIND.LIST.3 ...)
; compiling (DEFTEST PARTS.LIST.1 ...)
; compiling (DEFTEST PARTS.LIST.2 ...)
; compiling (DEFTEST PARTS.LIST.3 ...)
; compiling (DEFTEST PARTS.LIST.4 ...)
; compiling (DEFTEST PARTS.LIST.5 ...)
; compiling (DEFTEST PARTS.LIST.6 ...)
; compiling (DEFTEST PARTS.LIST.7 ...)
; compiling (DEFTEST PARTS.LIST.8 ...)
; compiling (DEFUN BASENAME ...)
; compiling (DEFUN ELEMENTS-TESTS-NAME ...)
; compiling (DEFMACRO DEF-ELEMENTS-TESTS ...)
; compiling (DEF-ELEMENTS-TESTS *NORMAL-LIST* ...)
; compiling (DEF-ELEMENTS-TESTS *DOTTED-LIST* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST1* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST2* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST3* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST4* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST5* ...)
; compiling (DEFTEST CIRCLE-LIST1-COMPONENTS ...)
; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.2 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.2 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.2 ...)
; compiling (DEF-ELEMENTS-TESTS *CONS-PAIR* ...)
; compiling (DEF-ELEMENTS-TESTS *COMPLEX* ...)
; compiling (DEF-ELEMENTS-TESTS *RATIO* ...)
; compiling (CASE SB-VM:N-WORD-BITS ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/tests.lisp
; in: DEF-ELEMENTS-TESTS *BIGNUM*
;     (ACLREPL-TESTS::DEF-ELEMENTS-TESTS ACLREPL-TESTS::*BIGNUM* 1
;                                        #(4938271560493827156) #((0 . :HEX64)))
; --> PROGN UNLESS IF EQ 
; ==>
;   #(4938271560493827156)
; 
; note: deleting unreachable code

; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *ARRAY* ...)
; compiling (DEF-ELEMENTS-TESTS *EMPTY-CLASS* ...)
; compiling (DEF-ELEMENTS-TESTS *EMPTY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *SIMPLE-STRUCT* ...)
; compiling (DEFUN LABEL-TEST-NAME ...)
; compiling (DEFMACRO DEF-LABEL-TEST ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *COMPLEX* ...)
; compiling (DEF-LABEL-TEST *COMPLEX* ...)
; compiling (DEF-LABEL-TEST *RATIO* ...)
; compiling (DEF-LABEL-TEST *RATIO* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *CONS-PAIR* ...)
; compiling (DEF-LABEL-TEST *CONS-PAIR* ...)
; compiling (DEFTEST NIL.PARTS.0 ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...)
; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...)
; compiling (DEFUN DISPLAY-TEST-NAME ...)
; compiling (DEFMACRO DEF-DISPLAY-TEST ...)
; compiling (DEF-DISPLAY-TEST *CONS-PAIR* ...)
; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...)
; compiling (CASE SB-VM:N-WORD-BITS ...)
; compiling (DEF-DISPLAY-TEST *VECTOR* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST1* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST2* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST3* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST4* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST5* ...)
; compiling (DEFTEST INSPECT.0 ...)
; compiling (DEFTEST ISTEP.0 ...)
; compiling (DEFTEST ISTEP.1 ...)
; compiling (DEFTEST ISTEP.2 ...)
; compiling (DEFTEST ISTEP.3 ...)
; compiling (DEFTEST ISTEP.4 ...)
; compiling (DEFTEST ISTEP.5 ...)
; compiling (DEFTEST ISTEP.6 ...)
; compiling (DEFTEST ISTEP.7 ...)
; compiling (DEFTEST ISTEP.8 ...)
; compiling (DEFTEST ISTEP.9 ...)

; SYS:CONTRIB;SB-ACLREPL;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.859
Doing 144 pending tests of 144 tests total.
 ACLREPL-TESTS::HOOK.1 ACLREPL-TESTS::HOOK.2 ACLREPL-TESTS::HOOK.3
 ACLREPL-TESTS::FIND.LIST.0 ACLREPL-TESTS::FIND.LIST.1
 ACLREPL-TESTS::FIND.LIST.2 ACLREPL-TESTS::FIND.LIST.3
 ACLREPL-TESTS::PARTS.LIST.1 ACLREPL-TESTS::PARTS.LIST.2
 ACLREPL-TESTS::PARTS.LIST.3 ACLREPL-TESTS::PARTS.LIST.4
 ACLREPL-TESTS::PARTS.LIST.5 ACLREPL-TESTS::PARTS.LIST.6
 ACLREPL-TESTS::PARTS.LIST.7 ACLREPL-TESTS::PARTS.LIST.8
 ACLREPL-TESTS::ELEM.NORMAL-LIST.COUNT
 ACLREPL-TESTS::ELEM.NORMAL-LIST.COMPONENTS
 ACLREPL-TESTS::ELEM.NORMAL-LIST.LABELS ACLREPL-TESTS::ELEM.DOTTED-LIST.COUNT
 ACLREPL-TESTS::ELEM.DOTTED-LIST.COMPONENTS
 ACLREPL-TESTS::ELEM.DOTTED-LIST.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST1.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST1.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST2.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST2.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST3.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST3.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST4.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST4.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST5.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST5.LABELS ACLREPL-TESTS::CIRCLE-LIST1-COMPONENTS
 ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.2
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.2
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.2 ACLREPL-TESTS::ELEM.CONS-PAIR.COUNT
 ACLREPL-TESTS::ELEM.CONS-PAIR.COMPONENTS ACLREPL-TESTS::ELEM.CONS-PAIR.LABELS
 ACLREPL-TESTS::ELEM.COMPLEX.COUNT ACLREPL-TESTS::ELEM.COMPLEX.COMPONENTS
 ACLREPL-TESTS::ELEM.COMPLEX.LABELS ACLREPL-TESTS::ELEM.RATIO.COUNT
 ACLREPL-TESTS::ELEM.RATIO.COMPONENTS ACLREPL-TESTS::ELEM.RATIO.LABELS
 ACLREPL-TESTS::ELEM.BIGNUM.COUNT ACLREPL-TESTS::ELEM.BIGNUM.COMPONENTS
 ACLREPL-TESTS::ELEM.BIGNUM.LABELS ACLREPL-TESTS::ELEM.VECTOR.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.S3.COUNT ACLREPL-TESTS::ELEM.VECTOR.S3.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.S3.LABELS ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P10.S3.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.LABELS ACLREPL-TESTS::ELEM.ARRAY.COUNT
 ACLREPL-TESTS::ELEM.ARRAY.COMPONENTS ACLREPL-TESTS::ELEM.ARRAY.LABELS
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.COUNT
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.COMPONENTS
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.LABELS ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.EMPTY-STRUCT.LABELS ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.LABELS ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.0
 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.1 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.2
 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.0 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.1
 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.2 ACLREPL-TESTS::LABEL.COMPLEX.0
 ACLREPL-TESTS::LABEL.COMPLEX.1 ACLREPL-TESTS::LABEL.RATIO.0
 ACLREPL-TESTS::LABEL.RATIO.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.0
 ACLREPL-TESTS::LABEL.DOTTED-LIST.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.2
 ACLREPL-TESTS::LABEL.NORMAL-LIST.0 ACLREPL-TESTS::LABEL.NORMAL-LIST.1
 ACLREPL-TESTS::LABEL.NORMAL-LIST.2 ACLREPL-TESTS::LABEL.VECTOR.0
 ACLREPL-TESTS::LABEL.VECTOR.1 ACLREPL-TESTS::LABEL.VECTOR.S2.0
 ACLREPL-TESTS::LABEL.VECTOR.S2.1 ACLREPL-TESTS::LABEL.CONS-PAIR.0
 ACLREPL-TESTS::LABEL.CONS-PAIR.1 ACLREPL-TESTS::NIL.PARTS.0
 ACLREPL-TESTS::ELEM.TINY-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.LABELS ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.LABELS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.LABELS ACLREPL-TESTS::ELEM.DOUBLE.COUNT
 ACLREPL-TESTS::ELEM.DOUBLE.COMPONENTS ACLREPL-TESTS::ELEM.DOUBLE.LABELS
 ACLREPL-TESTS::ELEM.DOUBLE.S1.COUNT ACLREPL-TESTS::ELEM.DOUBLE.S1.COMPONENTS
 ACLREPL-TESTS::ELEM.DOUBLE.S1.LABELS ACLREPL-TESTS::DISPLAY.CONS-PAIR
 ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT.S2
 ACLREPL-TESTS::DISPLAY.BIGNUM ACLREPL-TESTS::DISPLAY.VECTOR.P5.S6
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST1 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST2
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST3 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST4
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST5 ACLREPL-TESTS::INSPECT.0
 ACLREPL-TESTS::ISTEP.0 ACLREPL-TESTS::ISTEP.1 ACLREPL-TESTS::ISTEP.2
 ACLREPL-TESTS::ISTEP.3 ACLREPL-TESTS::ISTEP.4 ACLREPL-TESTS::ISTEP.5
 ACLREPL-TESTS::ISTEP.6 ACLREPL-TESTS::ISTEP.7 ACLREPL-TESTS::ISTEP.8
 ACLREPL-TESTS::ISTEP.9
No tests failed.
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/tests.lisp
; in: DEFUN ACLREPL-TESTS::DO-INSPECT
;     (SB-ACLREPL::INSPECTOR `',ACLREPL-TESTS::OBJECT NIL ACLREPL-TESTS::STRM)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ACLREPL::INSPECTOR
; 
; compilation unit finished
;   Undefined function:
;     SB-ACLREPL::INSPECTOR
;   caught 1 STYLE-WARNING condition
;   printed 1 note

CL-USER(1): make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-bsd-sockets")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-grovel/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-GROVEL" ...)

; SYS:CONTRIB;SB-GROVEL;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/contrib/sb-grovel/def-to-lisp.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE #:SB-GROVEL)
; compiling (DEFVAR *DEFAULT-C-STREAM* ...)
; compiling (DEFUN ESCAPE-FOR-STRING ...)
; compiling (DEFUN SPLIT-CFLAGS ...)
; compiling (DEFUN C-ESCAPE ...)
; compiling (DEFUN AS-C ...)
; compiling (DEFUN PRINTF ...)
; compiling (DEFUN C-FOR-ENUM ...)
; compiling (DEFUN C-FOR-STRUCTURE ...)
; compiling (DEFUN PRINT-C-SOURCE ...)
; compiling (DEFUN C-CONSTANTS-EXTRACT ...)
; compiling (DEFCLASS GROVEL-CONSTANTS-FILE ...)
; compiling (DEFCLASS ASDF/INTERFACE::SB-GROVEL-CONSTANTS-FILE ...)
; compiling (DEFINE-CONDITION C-COMPILE-FAILED ...)
; compiling (DEFINE-CONDITION A-DOT-OUT-FAILED ...)
; compiling (DEFMETHOD PERFORM ...)

; SYS:CONTRIB;SB-GROVEL;DEF-TO-LISP-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.595
; compiling file "/«PKGBUILDDIR»/contrib/sb-grovel/foreign-glue.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-GROVEL)
; compiling (DEFMACRO DEFINE-FOREIGN-ROUTINE ...)
; compiling (DEFUN REINTERN ...)
; compiling (DEFPARAMETER ALIEN-TYPE-TABLE ...)
; compiling (DEFPARAMETER LISP-TYPE-TABLE ...)
; compiling (DEFINE-ALIEN-TYPES (TYPE SIZE) ...)
; compiling (DEFUN RETRIEVE-TYPE-FOR ...)
; compiling (DEFUN ALIEN-TYPE-FOR ...)
; compiling (DEFUN LISP-TYPE-FOR ...)
; compiling (DEFUN MK-PADDING ...)
; compiling (DEFUN MK-STRUCT ...)
; compiling (DEFUN MK-UNION ...)
; compiling (DEFUN MK-VAL ...)
; compiling (DEFCLASS SLOT ...)
; compiling (DEFCLASS STRUCTURED-TYPE ...)
; compiling (DEFCLASS UNION ...)
; compiling (DEFCLASS STRUCT ...)
; compiling (DEFCLASS VALUE-SLOT ...)
; compiling (DEFCLASS PADDING ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFGENERIC SLOT-END ...)
; compiling (DEFMETHOD SLOT-END ...)
; compiling (DEFUN OVERLAP-P ...)
; compiling (DEFGENERIC FIND-OVERLAPS ...)
; compiling (DEFMETHOD FIND-OVERLAPS ...)
; compiling (DEFMETHOD FIND-OVERLAPS ...)
; compiling (DEFGENERIC PAD-TO-OFFSET-OF ...)
; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...)
; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...)
; compiling (DEFGENERIC REPLACE-BY-UNION ...)
; compiling (DEFMETHOD REPLACE-BY-UNION ...)
; compiling (DEFMETHOD REPLACE-BY-UNION ...)
; compiling (DEFGENERIC INSERT-ELEMENT ...)
; compiling (DEFMETHOD INSERT-ELEMENT ...)
; compiling (DEFUN SANE-SLOT ...)
; compiling (DEFGENERIC ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFUN C-STRING-READER[1] ...)
; compiling (DEFUN C-STRING-WRITER ...)
; compiling (DEFGENERIC ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFGENERIC GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMACRO DEFINE-C-STRUCT ...)
; compiling (DEFUN FOREIGN-NULLP ...)

; SYS:CONTRIB;SB-GROVEL;FOREIGN-GLUE-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.196
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/module-setup.lisp" (written 11 JUN 2015 07:44:02 AM):
; compiling (PROVIDE :SB-BSD-SOCKETS)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/module-setup.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-BSD-SOCKETS-INTERNAL" ...)
; compiling (DEFPACKAGE "SB-BSD-SOCKETS" ...)
; compiling (LET (#) ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.020
(SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.LISP
 SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.FASL.NEWEST
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.fasl
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/foo.c
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/a.out
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp)
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp" (written 11 JUN 2015 07:44:03 AM):
; compiling (IN-PACKAGE #:SOCKINT)
; compiling (DEFCONSTANT AF-INET ...)
; compiling (DEFCONSTANT AF-UNSPEC ...)
; compiling (DEFCONSTANT AF-LOCAL ...)
; compiling (DEFCONSTANT AF-INET6 ...)
; compiling (DEFCONSTANT AF-ROUTE ...)
; compiling (DEFCONSTANT SOCK-STREAM ...)
; compiling (DEFCONSTANT SOCK-DGRAM ...)
; compiling (DEFCONSTANT SOCK-RAW ...)
; compiling (DEFCONSTANT SOCK-RDM ...)
; compiling (DEFCONSTANT SOCK-SEQPACKET ...)
; compiling (DEFCONSTANT SOL-SOCKET ...)
; compiling (DEFCONSTANT SO-DEBUG ...)
; compiling (DEFCONSTANT SO-REUSEADDR ...)
; compiling (DEFCONSTANT SO-TYPE ...)
; compiling (DEFCONSTANT SO-ERROR ...)
; compiling (DEFCONSTANT SO-DONTROUTE ...)
; compiling (DEFCONSTANT SO-BROADCAST ...)
; compiling (DEFCONSTANT SO-SNDBUF ...)
; compiling (DEFCONSTANT SO-PASSCRED ...)
; compiling (DEFCONSTANT SO-RCVBUF ...)
; compiling (DEFCONSTANT SO-KEEPALIVE ...)
; compiling (DEFCONSTANT TCP-KEEPCNT ...)
; compiling (DEFCONSTANT TCP-KEEPIDLE ...)
; compiling (DEFCONSTANT TCP-KEEPINTVL ...)
; compiling (DEFCONSTANT SO-OOBINLINE ...)
; compiling (DEFCONSTANT SO-NO-CHECK ...)
; compiling (DEFCONSTANT SO-PRIORITY ...)
; compiling (DEFCONSTANT SO-LINGER ...)
; compiling (DEFCONSTANT SO-BSDCOMPAT ...)
; compiling (DEFCONSTANT SO-SNDLOWAT ...)
; compiling (DEFCONSTANT SO-RCVLOWAT ...)
; compiling (DEFCONSTANT SO-SNDTIMEO ...)
; compiling (DEFCONSTANT SO-RCVTIMEO ...)
; compiling (DEFCONSTANT TCP-NODELAY ...)
; compiling (DEFCONSTANT SO-BINDTODEVICE ...)
; compiling (DEFCONSTANT IFNAMSIZ ...)
; compiling (DEFCONSTANT SHUT_RD ...)
; compiling (DEFCONSTANT SHUT_WR ...)
; compiling (DEFCONSTANT SHUT_RDWR ...)
; compiling (DEFCONSTANT EADDRINUSE ...)
; compiling (DEFCONSTANT EAGAIN ...)
; compiling (DEFCONSTANT EBADF ...)
; compiling (DEFCONSTANT ECONNREFUSED ...)
; compiling (DEFCONSTANT ETIMEDOUT ...)
; compiling (DEFCONSTANT EINTR ...)
; compiling (DEFCONSTANT EINVAL ...)
; compiling (DEFCONSTANT ENOBUFS ...)
; compiling (DEFCONSTANT ENOMEM ...)
; compiling (DEFCONSTANT EOPNOTSUPP ...)
; compiling (DEFCONSTANT EPERM ...)
; compiling (DEFCONSTANT EPROTONOSUPPORT ...)
; compiling (DEFCONSTANT ERANGE ...)
; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...)
; compiling (DEFCONSTANT ENETUNREACH ...)
; compiling (DEFCONSTANT ENOTCONN ...)
; compiling (DEFCONSTANT EAFNOSUPPORT ...)
; compiling (DEFCONSTANT NETDB-INTERNAL ...)
; compiling (DEFCONSTANT NETDB-SUCCESS ...)
; compiling (DEFCONSTANT HOST-NOT-FOUND ...)
; compiling (DEFCONSTANT TRY-AGAIN ...)
; compiling (DEFCONSTANT NO-RECOVERY ...)
; compiling (DEFCONSTANT NO-DATA ...)
; compiling (DEFCONSTANT NO-ADDRESS ...)
; compiling (DECLAIM (INLINE H-STRERROR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("hstrerror" H-STRERROR) ...)
; compiling (DEFCONSTANT O-NONBLOCK ...)
; compiling (DEFCONSTANT F-GETFL ...)
; compiling (DEFCONSTANT F-SETFL ...)
; compiling (DEFCONSTANT MSG-OOB ...)
; compiling (DEFCONSTANT MSG-PEEK ...)
; compiling (DEFCONSTANT MSG-TRUNC ...)
; compiling (DEFCONSTANT MSG-WAITALL ...)
; compiling (DEFCONSTANT MSG-EOR ...)
; compiling (DEFCONSTANT MSG-DONTROUTE ...)
; compiling (DEFCONSTANT MSG-DONTWAIT ...)
; compiling (DEFCONSTANT MSG-NOSIGNAL ...)
; compiling (DEFCONSTANT MSG-CONFIRM ...)
; compiling (DEFCONSTANT MSG-MORE ...)
; compiling (DEFINE-ALIEN-TYPE SOCKLEN-T ...)
; compiling (DEFINE-ALIEN-TYPE SIZE-T ...)
; compiling (DEFINE-ALIEN-TYPE SSIZE-T ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT PROTOENT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT PROTOENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT 12
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ALIASES (* (* T))
;                                  "char **" 4 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::PROTO INTEGER "int" 8
;                                  4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE GETPROTOBYNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("getprotobyname" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME)
;      (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)
;      (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTO # :OFFSET
;                                        64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-12 #
;                                        :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETPROTOBYNAME-R))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname_r" GETPROTOBYNAME-R) ...)
; compiling (DECLAIM (INLINE GETPROTOBYNUMBER))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in:
;      SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("getprotobynumber" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNUMBER)
;      (* SB-BSD-SOCKETS-INTERNAL::PROTOENT) (SB-BSD-SOCKETS-INTERNAL::PROTO INT))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTO # :OFFSET
;                                        64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-12 #
;                                        :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETPROTOBYNUMBER-R))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber_r" GETPROTOBYNUMBER-R) ...)
; compiling (DEFCONSTANT INADDR-ANY ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT IN-ADDR ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT IN-ADDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::IN-ADDR 4
;                                 (ADDR (ARRAY (UNSIGNED 8)) "u_int32_t" 0 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN 16
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PORT
;                                  (ARRAY (UNSIGNED 8)) "u_int16_t" 2 2)
;                                 (ADDR (ARRAY (UNSIGNED 8)) "struct in_addr" 4 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT IN6-ADDR ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT IN6-ADDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::IN6-ADDR 16
;                                 (ADDR (ARRAY (UNSIGNED 8)) "unsigned char" 16 1))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 1)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 1)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN6 ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN6
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN6 28
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PORT
;                                  (ARRAY (UNSIGNED 8)) "u_int16_t" 2 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::FLOWINFO
;                                  (ARRAY (UNSIGNED 8)) "u_int32_t" 4 4)
;                                 (ADDR (ARRAY (UNSIGNED 8)) "struct in_addr6" 8
;                                       16)
;                                 (SB-BSD-SOCKETS-INTERNAL::SCOPE-ID
;                                  (ARRAY (UNSIGNED 8)) "u_int32_t" 24 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 16)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 16)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN 110
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PATH C-STRING "char" 2
;                                  108))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN-ABSTRACT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN-ABSTRACT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-ABSTRACT 110
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PATH
;                                  (ARRAY (UNSIGNED 8)) "char" 2 108))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 108)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 108)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFCONSTANT INET-ADDRSTRLEN ...)
; compiling (DEFCONSTANT INET6-ADDRSTRLEN ...)
; compiling (DECLAIM (INLINE INET-NTOP))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("inet_ntop" INET-NTOP) ...)
; compiling (DECLAIM (INLINE INET-PTON))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("inet_pton" INET-PTON) ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT HOSTENT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT HOSTENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT 20
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ALIASES (* C-STRING)
;                                  "char **" 4 4)
;                                 (TYPE INTEGER "int" 8 4)
;                                 (LENGTH INTEGER "int" 12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ADDRESSES
;                                  (* (* (UNSIGNED 8))) "char **" 16 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE (SLOT STRUCT 'TYPE)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH (SLOT STRUCT 'LENGTH)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* (UNSIGNED 8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* (UNSIGNED 8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (SB-GROVEL::DEFINE-C-STRUCT MSGHDR ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT MSGHDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::MSGHDR 28
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "void *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::NAMELEN INTEGER
;                                  "socklen_t" 4 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::IOV (* T)
;                                  "struct iovec" 8 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::IOVLEN INTEGER "size_t"
;                                  12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CONTROL (* T) "void *"
;                                  16 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CONTROLLEN INTEGER
;                                  "socklen_t" 20 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 24
;                                  4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE SOCKET))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("socket" SOCKET) ...)
; compiling (DECLAIM (INLINE BIND))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("bind" BIND) ...)
; compiling (DECLAIM (INLINE LISTEN))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("listen" LISTEN) ...)
; compiling (DECLAIM (INLINE ACCEPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("accept" ACCEPT) ...)
; compiling (DECLAIM (INLINE GETPEERNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getpeername" GETPEERNAME) ...)
; compiling (DECLAIM (INLINE GETSOCKNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockname" GETSOCKNAME) ...)
; compiling (DECLAIM (INLINE CONNECT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("connect" CONNECT) ...)
; compiling (DECLAIM (INLINE CLOSE))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("close" CLOSE) ...)
; compiling (DECLAIM (INLINE SHUTDOWN))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("shutdown" SHUTDOWN) ...)
; compiling (DECLAIM (INLINE RECVFROM))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvfrom" RECVFROM) ...)
; compiling (DECLAIM (INLINE RECVMSG))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvmsg" RECVMSG) ...)
; compiling (DECLAIM (INLINE SEND))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("send" SEND) ...)
; compiling (DECLAIM (INLINE SENDTO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendto" SENDTO) ...)
; compiling (DECLAIM (INLINE SENDMSG))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendmsg" SENDMSG) ...)
; compiling (DECLAIM (INLINE GETHOSTBYNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("gethostbyname" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYNAME)
;      (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)
;      (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (TYPE # :OFFSET 64) (LENGTH # :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRESSES #
;                                        :OFFSET 128)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-20 #
;                                        :OFFSET 160)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETHOSTBYADDR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("gethostbyaddr" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR)
;      (* SB-BSD-SOCKETS-INTERNAL::HOSTENT) (ADDR (* T))
;      (SB-BSD-SOCKETS-INTERNAL::LEN INT) (SB-BSD-SOCKETS-INTERNAL::AF INT))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (TYPE # :OFFSET 64) (LENGTH # :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRESSES #
;                                        :OFFSET 128)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-20 #
;                                        :OFFSET 160)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETHOSTBYNAME-R))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname_r" GETHOSTBYNAME-R) ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT ADDRINFO ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ADDRINFO
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO 32
;                                 (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 0
;                                  4)
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER "int" 4
;                                  4)
;                                 (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE INTEGER "int"
;                                  8 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::PROTOCOL INTEGER "int"
;                                  12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ADDRLEN INTEGER
;                                  "size_t" 16 4)
;                                 (ADDR (* T) "struct sockaddr*" 20 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 24 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::NEXT
;                                  (* (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                                  "struct addrinfo*" 28 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FAMILY)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::SOCKTYPE)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTOCOL)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRLEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (DECLAIM (INLINE GETADDRINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getaddrinfo" GETADDRINFO) ...)
; compiling (DECLAIM (INLINE FREEADDRINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("freeaddrinfo" FREEADDRINFO) ...)
; compiling (DECLAIM (INLINE GAI-STRERROR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gai_strerror" GAI-STRERROR) ...)
; compiling (DECLAIM (INLINE GETNAMEINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getnameinfo" GETNAMEINFO) ...)
; compiling (DEFCONSTANT EAI-FAMILY ...)
; compiling (DEFCONSTANT EAI-SOCKTYPE ...)
; compiling (DEFCONSTANT EAI-BADFLAGS ...)
; compiling (DEFCONSTANT EAI-NONAME ...)
; compiling (DEFCONSTANT EAI-SERVICE ...)
; compiling (DEFCONSTANT EAI-ADDRFAMILY ...)
; compiling (DEFCONSTANT EAI-MEMORY ...)
; compiling (DEFCONSTANT EAI-FAIL ...)
; compiling (DEFCONSTANT EAI-AGAIN ...)
; compiling (DEFCONSTANT EAI-SYSTEM ...)
; compiling (DEFCONSTANT NI-NAMEREQD ...)
; compiling (DECLAIM (INLINE SETSOCKOPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("setsockopt" SETSOCKOPT) ...)
; compiling (DECLAIM (INLINE FCNTL))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("fcntl" FCNTL) ...)
; compiling (DECLAIM (INLINE GETSOCKOPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockopt" GETSOCKOPT) ...)
; compiling (DEFCONSTANT IPPROTO_IP ...)
; compiling (DEFCONSTANT IPPROTO_IPV6 ...)
; compiling (DEFCONSTANT IPPROTO_ICMP ...)
; compiling (DEFCONSTANT IPPROTO_IGMP ...)
; compiling (DEFCONSTANT IPPROTO_TCP ...)
; compiling (DEFCONSTANT IPPROTO_UDP ...)
; compiling (DEFCONSTANT IPPROTO_RAW ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:11.926
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/util.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFUN INTERRUPTED-P ...)
; compiling (DEFMACRO SYSCALL-ERROR-CASE ...)
; compiling (DEFMACRO SOCKET-ERROR-CASE ...)
; compiling (DEFMACRO ADDRINFO-ERROR-CASE ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;UTIL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.404
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/protocol.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE #:SB-BSD-SOCKETS)
; compiling (DEFGENERIC MAKE-SOCKADDR-FOR ...)
; compiling (DEFGENERIC FREE-SOCKADDR-FOR ...)
; compiling (DEFGENERIC BITS-OF-SOCKADDR ...)
; compiling (DEFGENERIC SIZE-OF-SOCKADDR ...)
; compiling (DEFGENERIC SOCKET-NAME ...)
; compiling (DEFGENERIC SOCKET-PEERNAME ...)
; compiling (DEFGENERIC SOCKET-NAMESTRING ...)
; compiling (DEFGENERIC SOCKET-PEERSTRING ...)
; compiling (DEFGENERIC SOCKET-OPEN-P ...)
; compiling (DEFGENERIC SOCKET-CLOSE ...)
; compiling (DEFGENERIC SOCKET-BIND ...)
; compiling (DEFGENERIC SOCKET-ACCEPT ...)
; compiling (DEFGENERIC SOCKET-CONNECT ...)
; compiling (DEFGENERIC SOCKET-RECEIVE ...)
; compiling (DEFGENERIC SOCKET-SEND ...)
; compiling (DEFGENERIC SOCKET-LISTEN ...)
; compiling (DEFGENERIC SOCKET-SHUTDOWN ...)
; compiling (DEFGENERIC SOCKET-MAKE-STREAM ...)
; compiling (DEFGENERIC NON-BLOCKING-MODE ...)
; compiling (DEFGENERIC (SETF NON-BLOCKING-MODE) ...)
; compiling (DEFGENERIC HOST-ENT-ADDRESS ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;PROTOCOL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.393
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sockets.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFUN SOCKET-ERRNO ...)
; compiling (DEFCLASS SOCKET ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFUN CALL-WITH-SOCKET-ADDR ...)
; compiling (DEFMACRO WITH-SOCKET-ADDR ...)
; compiling (DEFMACRO WITH-SOCKET-FD-AND-ADDR ...)
; compiling (DEFMETHOD SOCKET-BIND ...)
; compiling (DEFMETHOD SOCKET-ACCEPT ...)
; compiling (DEFMETHOD SOCKET-CONNECT ...)
; compiling (DEFMETHOD SOCKET-PEERNAME ...)
; compiling (DEFMETHOD SOCKET-NAME ...)
; compiling (DEFMETHOD SOCKET-RECEIVE ...)
; compiling (DEFMACRO WITH-VECTOR-SAP ...)
; compiling (DEFMETHOD SOCKET-SEND ...)
; compiling (DEFMETHOD SOCKET-LISTEN ...)
; compiling (DEFMETHOD SOCKET-OPEN-P ...)
; compiling (DEFMETHOD SOCKET-CLOSE ...)
; compiling (DEFMETHOD SOCKET-SHUTDOWN ...)
; compiling (DEFMETHOD SOCKET-MAKE-STREAM ...)
; compiling (DEFINE-CONDITION SOCKET-ERROR ...)
; compiling (DEFMACRO DEFINE-SOCKET-CONDITION ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-ERRNO* ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EADDRINUSE ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EAGAIN ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EBADF ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ECONNREFUSED ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ETIMEDOUT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINTR ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINVAL ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOBUFS ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOMEM ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EOPNOTSUPP ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPERM ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPROTONOSUPPORT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ESOCKTNOSUPPORT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENETUNREACH ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOTCONN ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EAFNOSUPPORT ...)
; compiling (DEFUN CONDITION-FOR-ERRNO ...)
; compiling (DEFUN SOCKET-ERROR ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKETS-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.550
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/misc.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFMETHOD NON-BLOCKING-MODE ...)
; compiling (DEFMETHOD (SETF NON-BLOCKING-MODE) ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/misc.lisp
; in: DEFMETHOD (SETF NON-BLOCKING-MODE) (T SOCKET)
;     (= (THE (SIGNED-BYTE 32) -1)
;        (THE (SIGNED-BYTE 32)
;             (SB-BSD-SOCKETS-INTERNAL::FCNTL SB-BSD-SOCKETS::FD
;                                             SB-BSD-SOCKETS-INTERNAL::F-SETFL
;                                             SB-BSD-SOCKETS::ARG2)))
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ


; SYS:CONTRIB;SB-BSD-SOCKETS;MISC-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.172
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/name-service.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS HOST-ENT ...)
; compiling (DEFMETHOD HOST-ENT-ADDRESS ...)
; compiling (DECLAIM (INLINE NATURALIZE-UNSIGNED-BYTE-8-ARRAY))
; compiling (DEFUN NATURALIZE-UNSIGNED-BYTE-8-ARRAY ...)
; compiling (DEFCONSTANT NI-MAX-HOST ...)
; compiling (DEFUN GET-HOST-BY-NAME ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/name-service.lisp
; in: DEFUN GET-HOST-BY-NAME
;     (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                  SB-BSD-SOCKETS::INFO*)
;           SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;           DO (COND
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET)
;                (LET (#)
;                  (SETF #)))
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET6)
;                (LET (#)
;                  (SETF #)))))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> SB-BSD-SOCKETS::INFO SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT SB-BSD-SOCKETS::INFO*)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getaddrinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETADDRINFO
;                                            SB-BSD-SOCKETS::NODE NIL NIL
;                                            (ADDR SB-BSD-SOCKETS::INFO)))
;         (LET ((SB-BSD-SOCKETS::HOST-ENT4
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET :ALIASES NIL
;                               :ADDRESSES NIL))
;               (SB-BSD-SOCKETS::HOST-ENT6
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET6 :ALIASES
;                               NIL :ADDRESSES NIL)))
;           (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                        SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;                 DO (COND (# #) (# #)))
;           (SB-BSD-SOCKETS-INTERNAL::FREEADDRINFO SB-BSD-SOCKETS::INFO)
;           (VALUES SB-BSD-SOCKETS::HOST-ENT4 SB-BSD-SOCKETS::HOST-ENT6)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF NOT IF ZEROP = EQL IF EQL 
; --> EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                  SB-BSD-SOCKETS::INFO*)
;           SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;           DO (COND
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET)
;                (LET (#)
;                  (SETF #)))
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET6)
;                (LET (#)
;                  (SETF #)))))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> SB-BSD-SOCKETS::INFO SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
; --> BLOCK ZEROP = IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (= (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;        SB-BSD-SOCKETS-INTERNAL::AF-INET)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT SB-BSD-SOCKETS::INFO*)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (= (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;        SB-BSD-SOCKETS-INTERNAL::AF-INET6)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getaddrinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETADDRINFO
;                                            SB-BSD-SOCKETS::NODE NIL NIL
;                                            (ADDR SB-BSD-SOCKETS::INFO)))
;         (LET ((SB-BSD-SOCKETS::HOST-ENT4
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET :ALIASES NIL
;                               :ADDRESSES NIL))
;               (SB-BSD-SOCKETS::HOST-ENT6
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET6 :ALIASES
;                               NIL :ADDRESSES NIL)))
;           (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                        SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;                 DO (COND (# #) (# #)))
;           (SB-BSD-SOCKETS-INTERNAL::FREEADDRINFO SB-BSD-SOCKETS::INFO)
;           (VALUES SB-BSD-SOCKETS::HOST-ENT4 SB-BSD-SOCKETS::HOST-ENT6)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF PROGN 
; ==>
;   (SB-BSD-SOCKETS::ADDRINFO-ERROR "getaddrinfo" #:RESULT56)
; 
; note: doing signed word to integer coercion (cost 20) from SB-ALIEN:ALIEN

; compiling (DEFUN GET-HOST-BY-ADDRESS ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/name-service.lisp
; in: DEFUN GET-HOST-BY-ADDRESS
;     (AREF SB-BSD-SOCKETS::ADDRESS SB-BSD-SOCKETS::I)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FUNCALL SB-BSD-SOCKETS::SOCKADDR-FREE SB-BSD-SOCKETS::SOCKADDR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-BSD-SOCKETS::SOCKADDR-FREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getnameinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETNAMEINFO
;                                            (CAST SB-BSD-SOCKETS::SOCKADDR (* T))
;                                            SB-BSD-SOCKETS::SOCKADDR-SIZE
;                                            (CAST SB-BSD-SOCKETS::HOST-BUF
;                                                  (* CHAR))
;                                            SB-BSD-SOCKETS::NI-MAX-HOST NIL 0
;                                            SB-BSD-SOCKETS-INTERNAL::NI-NAMEREQD))
;         (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME
;                        (SB-ALIEN::C-STRING-TO-STRING
;                         (ALIEN-SAP SB-BSD-SOCKETS::HOST-BUF)
;                         (SB-IMPL::DEFAULT-EXTERNAL-FORMAT) 'CHARACTER)
;                        :TYPE SB-BSD-SOCKETS::ADDRESS-FAMILY :ALIASES NIL
;                        :ADDRESSES (LIST SB-BSD-SOCKETS::ADDRESS)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF NOT IF ZEROP = EQL IF EQL 
; --> EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-ALIEN::C-STRING-TO-STRING (ALIEN-SAP SB-BSD-SOCKETS::HOST-BUF)
;                                   (SB-IMPL::DEFAULT-EXTERNAL-FORMAT) 'CHARACTER)
; 
; note: doing SAP to pointer coercion (cost 20) from #:VAR216

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getnameinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETNAMEINFO
;                                            (CAST SB-BSD-SOCKETS::SOCKADDR (* T))
;                                            SB-BSD-SOCKETS::SOCKADDR-SIZE
;                                            (CAST SB-BSD-SOCKETS::HOST-BUF
;                                                  (* CHAR))
;                                            SB-BSD-SOCKETS::NI-MAX-HOST NIL 0
;                                            SB-BSD-SOCKETS-INTERNAL::NI-NAMEREQD))
;         (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME
;                        (SB-ALIEN::C-STRING-TO-STRING
;                         (ALIEN-SAP SB-BSD-SOCKETS::HOST-BUF)
;                         (SB-IMPL::DEFAULT-EXTERNAL-FORMAT) 'CHARACTER)
;                        :TYPE SB-BSD-SOCKETS::ADDRESS-FAMILY :ALIASES NIL
;                        :ADDRESSES (LIST SB-BSD-SOCKETS::ADDRESS)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF PROGN 
; ==>
;   (SB-BSD-SOCKETS::ADDRINFO-ERROR "getnameinfo" #:RESULT217)
; 
; note: doing signed word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (SETF (DEREF
;            (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN6-ADDR SB-BSD-SOCKETS::SOCKADDR)
;            SB-BSD-SOCKETS::I)
;             (AREF SB-BSD-SOCKETS::ADDRESS SB-BSD-SOCKETS::I))
; --> LET* SB-ALIEN-INTERNALS:%SET-DEREF SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-8 
; ==>
;   (SB-KERNEL:%SET-SAP-REF-8 SB-C::SAP (+ SB-C::OFFSET1 SB-C::OFFSET2)
;                             SB-C::NEW-VALUE)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; compiling (DEFVAR *NAME-SERVICE-ERRNO* ...)
; compiling (DEFUN NAME-SERVICE-ERROR ...)
; compiling (DEFUN ADDRINFO-ERROR ...)
; compiling (DEFINE-CONDITION NAME-SERVICE-ERROR ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-NAME-SERVICE-ERRNO* ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-NAME-SERVICE-ERROR-CODE* ...)
; compiling (DEFMACRO DEFINE-NAME-SERVICE-CONDITION ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-INTERNAL ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-SUCCESS ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::HOST-NOT-FOUND ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::TRY-AGAIN ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-RECOVERY ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-ADDRESS ...)
; compiling (DEFUN CONDITION-FOR-NAME-SERVICE-ERRNO ...)
; compiling (DEFUN CONDITION-FOR-NAME-SERVICE-ERROR-CODE ...)
; compiling (DEFUN GET-NAME-SERVICE-ERRNO ...)
; compiling (DEFUN GET-NAME-SERVICE-ERROR-MESSAGE ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;NAME-SERVICE-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.350
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/local.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS LOCAL-SOCKET ...)
; compiling (DEFMETHOD SOCKET-NAMESTRING ...)
; compiling (DEFMETHOD SOCKET-PEERSTRING ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/local.lisp
; in: DEFMETHOD BITS-OF-SOCKADDR (LOCAL-SOCKET T)
;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK CAST SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE IF 
; --> ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> BLOCK CAST SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-C::SAP

; compiling (DEFCLASS LOCAL-ABSTRACT-SOCKET ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;LOCAL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.861
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet6.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS INET6-SOCKET ...)
; compiling (DEFPARAMETER *INET6-ADDRESS-ANY* ...)
; compiling (DEFUN ADDRESS-NUMBERS/V6 ...)
; compiling (DEFUN ENDPOINT-STRING/V6 ...)
; compiling (DEFMETHOD SOCKET-NAMESTRING ...)
; compiling (DEFMETHOD SOCKET-PEERSTRING ...)
; compiling (DEFUN UNPARSE-INET6-ADDRESS ...)
; compiling (DEFUN MAKE-INET6-ADDRESS ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;INET6-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.348
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet4.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS INET-SOCKET ...)
; compiling (DEFPARAMETER *INET-ADDRESS-ANY* ...)
; compiling (DEFUN ADDRESS-NUMBERS/V4 ...)
; compiling (DEFUN ENDPOINT-STRING/V4 ...)
; compiling (DEFMETHOD SOCKET-NAMESTRING ...)
; compiling (DEFMETHOD SOCKET-PEERSTRING ...)
; compiling (DEFUN MAKE-INET-ADDRESS ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet4.lisp
; in: DEFMETHOD MAKE-SOCKADDR-FOR (INET-SOCKET)
;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-PORT SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-PORT SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)
; compiling (DEFUN MAKE-INET-SOCKET ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;INET4-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.799
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFINE-CONDITION UNKNOWN-PROTOCOL ...)
; compiling (DEFVAR *PROTOCOLS* ...)
; compiling (DEFUN GET-PROTOCOL-BY-NAME ...)
; compiling (DEFUN GETPROTOBYNAME ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet.lisp
; in: DEFUN GETPROTOBYNAME
;     (SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME SB-BSD-SOCKETS::NAME)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTO # :OFFSET
;                                        64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-12 #
;                                        :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF (SB-BSD-SOCKETS-INTERNAL::PROTOENT-ALIASES SB-BSD-SOCKETS::PROTOENT)
;            SB-BSD-SOCKETS::INDEX)
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::PROTOENT-NAME SB-BSD-SOCKETS::PROTOENT)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN:ALIEN


; SYS:CONTRIB;SB-BSD-SOCKETS;INET-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.269
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sockopt.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION ...)
; compiling (DEFUN FOREIGN-INT-TO-INTEGER ...)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION-INT ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-LOW-WATER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-LOW-WATER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TYPE ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-BUFFER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-BUFFER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-PRIORITY ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPCNT ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPIDLE ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPINTVL ...)
; compiling (DEFUN FOREIGN-INT-TO-BOOL ...)
; compiling (DEFUN BOOL-TO-FOREIGN-INT ...)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION-BOOL ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-REUSE-ADDRESS ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-KEEP-ALIVE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-OOB-INLINE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BSD-COMPATIBLE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-PASS-CREDENTIALS ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DEBUG ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DONT-ROUTE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BROADCAST ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-TCP-NODELAY ...)
; compiling (DEFUN IDENTITY-1 ...)
; compiling (DEFINE-SOCKET-OPTION SOCKOPT-BIND-TO-DEVICE ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKOPT-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.381
; 
; compilation unit finished
;   printed 115 notes
* echo "(defsystem :sb-bsd-sockets :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-bsd-sockets.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-bsd-sockets")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-POSIX ...)

; SYS:CONTRIB;SB-POSIX;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.013
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/designator.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFVAR *DESIGNATOR-TYPES* ...)
; compiling (DEFMACRO DEFINE-DESIGNATOR ...)

; SYS:CONTRIB;SB-POSIX;DESIGNATOR-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.164
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/macros.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFINE-DESIGNATOR FILENAME ...)
; compiling (DEFINE-DESIGNATOR FILE-DESCRIPTOR ...)
; compiling (DEFINE-DESIGNATOR SAP-OR-NIL ...)
; compiling (DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/macros.lisp
; in: DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL
;     (SAP-ALIEN (SB-SYS:INT-SAP 0) (* T))
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-SYS:INT-SAP 0)
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFUN LISP-FOR-C-SYMBOL ...)
; compiling (DEFPARAMETER *C-FUNCTIONS-IN-RUNTIME* ...)
; compiling (DEFUN REAL-C-NAME ...)
; compiling (DEFMACRO DEFINE-CALL-INTERNALLY ...)
; compiling (DEFMACRO DEFINE-CALL ...)
; compiling (DEFMACRO DEFINE-ENTRY-POINT ...)
; compiling (DEFMACRO DEFINE-SIMPLE-CALL ...)

; SYS:CONTRIB;SB-POSIX;MACROS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.559
(SYS:CONTRIB;SB-POSIX;CONSTANTS.LISP SYS:CONTRIB;SB-POSIX;CONSTANTS.FASL.NEWEST
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.fasl
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/foo.c
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/a.out
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp)
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp" (written 11 JUN 2015 07:44:38 AM):
; compiling (IN-PACKAGE #:SB-POSIX)
; compiling (DEFCONSTANT AF-INET ...)
; compiling (EXPORT (QUOTE AF-INET))
; compiling (DEFINE-ALIEN-TYPE UID-T ...)
; compiling (DEFINE-ALIEN-TYPE GID-T ...)
; compiling (DEFINE-ALIEN-TYPE NLINK-T ...)
; compiling (DEFINE-ALIEN-TYPE PID-T ...)
; compiling (DEFINE-ALIEN-TYPE INO-T ...)
; compiling (DEFINE-ALIEN-TYPE TIME-T ...)
; compiling (DEFINE-ALIEN-TYPE DEV-T ...)
; compiling (DEFCONSTANT SIGHUP ...)
; compiling (EXPORT (QUOTE SIGHUP))
; compiling (DEFCONSTANT SIGINT ...)
; compiling (EXPORT (QUOTE SIGINT))
; compiling (DEFCONSTANT SIGQUIT ...)
; compiling (EXPORT (QUOTE SIGQUIT))
; compiling (DEFCONSTANT SIGILL ...)
; compiling (EXPORT (QUOTE SIGILL))
; compiling (DEFCONSTANT SIGTRAP ...)
; compiling (EXPORT (QUOTE SIGTRAP))
; compiling (DEFCONSTANT SIGABRT ...)
; compiling (EXPORT (QUOTE SIGABRT))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...)
; compiling (EXPORT (QUOTE SIGEMT))
; compiling (DEFCONSTANT SIGFPE ...)
; compiling (EXPORT (QUOTE SIGFPE))
; compiling (DEFCONSTANT SIGKILL ...)
; compiling (EXPORT (QUOTE SIGKILL))
; compiling (DEFCONSTANT SIGBUS ...)
; compiling (EXPORT (QUOTE SIGBUS))
; compiling (DEFCONSTANT SIGSEGV ...)
; compiling (EXPORT (QUOTE SIGSEGV))
; compiling (DEFCONSTANT SIGSYS ...)
; compiling (EXPORT (QUOTE SIGSYS))
; compiling (DEFCONSTANT SIGPIPE ...)
; compiling (EXPORT (QUOTE SIGPIPE))
; compiling (DEFCONSTANT SIGALRM ...)
; compiling (EXPORT (QUOTE SIGALRM))
; compiling (DEFCONSTANT SIGTERM ...)
; compiling (EXPORT (QUOTE SIGTERM))
; compiling (DEFCONSTANT SIGURG ...)
; compiling (EXPORT (QUOTE SIGURG))
; compiling (DEFCONSTANT SIGSTOP ...)
; compiling (EXPORT (QUOTE SIGSTOP))
; compiling (DEFCONSTANT SIGTSTP ...)
; compiling (EXPORT (QUOTE SIGTSTP))
; compiling (DEFCONSTANT SIGCONT ...)
; compiling (EXPORT (QUOTE SIGCONT))
; compiling (DEFCONSTANT SIGCHLD ...)
; compiling (EXPORT (QUOTE SIGCHLD))
; compiling (DEFCONSTANT SIGTTIN ...)
; compiling (EXPORT (QUOTE SIGTTIN))
; compiling (DEFCONSTANT SIGTTOU ...)
; compiling (EXPORT (QUOTE SIGTTOU))
; compiling (DEFCONSTANT SIGIO ...)
; compiling (EXPORT (QUOTE SIGIO))
; compiling (DEFCONSTANT SIGXCPU ...)
; compiling (EXPORT (QUOTE SIGXCPU))
; compiling (DEFCONSTANT SIGXFSZ ...)
; compiling (EXPORT (QUOTE SIGXFSZ))
; compiling (DEFCONSTANT SIGVTALRM ...)
; compiling (EXPORT (QUOTE SIGVTALRM))
; compiling (DEFCONSTANT SIGPROF ...)
; compiling (EXPORT (QUOTE SIGPROF))
; compiling (DEFCONSTANT SIGWINCH ...)
; compiling (EXPORT (QUOTE SIGWINCH))
; compiling (DEFCONSTANT SIGPWR ...)
; compiling (EXPORT (QUOTE SIGPWR))
; compiling (DEFCONSTANT SIGUSR1 ...)
; compiling (EXPORT (QUOTE SIGUSR1))
; compiling (DEFCONSTANT SIGUSR2 ...)
; compiling (EXPORT (QUOTE SIGUSR2))
; compiling (DEFCONSTANT SIGRTMIN ...)
; compiling (EXPORT (QUOTE SIGRTMIN))
; compiling (DEFCONSTANT SIGRTMAX ...)
; compiling (EXPORT (QUOTE SIGRTMAX))
; compiling (DEFCONSTANT EPERM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPERM))
; compiling (DEFCONSTANT ENOENT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOENT))
; compiling (DEFCONSTANT ESRCH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESRCH))
; compiling (DEFCONSTANT EINTR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINTR))
; compiling (DEFCONSTANT EIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EIO))
; compiling (DEFCONSTANT ENXIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENXIO))
; compiling (DEFCONSTANT E2BIG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE E2BIG))
; compiling (DEFCONSTANT ENOEXEC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOEXEC))
; compiling (DEFCONSTANT EBADF ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADF))
; compiling (DEFCONSTANT ECHILD ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECHILD))
; compiling (DEFCONSTANT EAGAIN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EAGAIN))
; compiling (DEFCONSTANT ENOMEM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMEM))
; compiling (DEFCONSTANT EACCES ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EACCES))
; compiling (DEFCONSTANT EFAULT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EFAULT))
; compiling (DEFCONSTANT ENOTBLK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTBLK))
; compiling (DEFCONSTANT EBUSY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBUSY))
; compiling (DEFCONSTANT EEXIST ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EEXIST))
; compiling (DEFCONSTANT EXDEV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EXDEV))
; compiling (DEFCONSTANT ENODEV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENODEV))
; compiling (DEFCONSTANT ENOTDIR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTDIR))
; compiling (DEFCONSTANT EISDIR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EISDIR))
; compiling (DEFCONSTANT EINVAL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINVAL))
; compiling (DEFCONSTANT ENFILE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENFILE))
; compiling (DEFCONSTANT EMFILE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMFILE))
; compiling (DEFCONSTANT ENOTTY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTTY))
; compiling (DEFCONSTANT ETXTBSY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETXTBSY))
; compiling (DEFCONSTANT EFBIG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EFBIG))
; compiling (DEFCONSTANT ENOSPC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSPC))
; compiling (DEFCONSTANT ESPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESPIPE))
; compiling (DEFCONSTANT EROFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EROFS))
; compiling (DEFCONSTANT EMLINK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMLINK))
; compiling (DEFCONSTANT EPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPIPE))
; compiling (DEFCONSTANT EDOM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDOM))
; compiling (DEFCONSTANT ERANGE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ERANGE))
; compiling (DEFCONSTANT EDEADLK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDEADLK))
; compiling (DEFCONSTANT ENAMETOOLONG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENAMETOOLONG))
; compiling (DEFCONSTANT ENOLCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOLCK))
; compiling (DEFCONSTANT ENOSYS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSYS))
; compiling (DEFCONSTANT ENOTEMPTY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTEMPTY))
; compiling (DEFCONSTANT ELOOP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELOOP))
; compiling (DEFCONSTANT EWOULDBLOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EWOULDBLOCK))
; compiling (DEFCONSTANT ENOMSG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMSG))
; compiling (DEFCONSTANT EIDRM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EIDRM))
; compiling (DEFCONSTANT ECHRNG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECHRNG))
; compiling (DEFCONSTANT EL2NSYNC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL2NSYNC))
; compiling (DEFCONSTANT EL3HLT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL3HLT))
; compiling (DEFCONSTANT EL3RST ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL3RST))
; compiling (DEFCONSTANT ELNRNG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELNRNG))
; compiling (DEFCONSTANT EUNATCH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EUNATCH))
; compiling (DEFCONSTANT ENOCSI ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOCSI))
; compiling (DEFCONSTANT EL2HLT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL2HLT))
; compiling (DEFCONSTANT EBADE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADE))
; compiling (DEFCONSTANT EBADR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADR))
; compiling (DEFCONSTANT EXFULL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EXFULL))
; compiling (DEFCONSTANT ENOANO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOANO))
; compiling (DEFCONSTANT EBADRQC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADRQC))
; compiling (DEFCONSTANT EBADSLT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADSLT))
; compiling (DEFCONSTANT EDEADLOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDEADLOCK))
; compiling (DEFCONSTANT EBFONT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBFONT))
; compiling (DEFCONSTANT ENOSTR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSTR))
; compiling (DEFCONSTANT ENODATA ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENODATA))
; compiling (DEFCONSTANT ETIME ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETIME))
; compiling (DEFCONSTANT ENOSR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSR))
; compiling (DEFCONSTANT ENONET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENONET))
; compiling (DEFCONSTANT ENOPKG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOPKG))
; compiling (DEFCONSTANT EREMOTE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EREMOTE))
; compiling (DEFCONSTANT ENOLINK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOLINK))
; compiling (DEFCONSTANT EADV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADV))
; compiling (DEFCONSTANT ESRMNT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESRMNT))
; compiling (DEFCONSTANT ECOMM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECOMM))
; compiling (DEFCONSTANT EPROTO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTO))
; compiling (DEFCONSTANT EMULTIHOP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMULTIHOP))
; compiling (DEFCONSTANT EDOTDOT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDOTDOT))
; compiling (DEFCONSTANT EBADMSG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADMSG))
; compiling (DEFCONSTANT EOVERFLOW ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EOVERFLOW))
; compiling (DEFCONSTANT ENOTUNIQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTUNIQ))
; compiling (DEFCONSTANT EBADFD ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADFD))
; compiling (DEFCONSTANT EREMCHG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EREMCHG))
; compiling (DEFCONSTANT ELIBACC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBACC))
; compiling (DEFCONSTANT ELIBBAD ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBBAD))
; compiling (DEFCONSTANT ELIBSCN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBSCN))
; compiling (DEFCONSTANT ELIBMAX ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBMAX))
; compiling (DEFCONSTANT ELIBEXEC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBEXEC))
; compiling (DEFCONSTANT EILSEQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EILSEQ))
; compiling (DEFCONSTANT ERESTART ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ERESTART))
; compiling (DEFCONSTANT ESTRPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESTRPIPE))
; compiling (DEFCONSTANT EUSERS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EUSERS))
; compiling (DEFCONSTANT ENOTSOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTSOCK))
; compiling (DEFCONSTANT EDESTADDRREQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDESTADDRREQ))
; compiling (DEFCONSTANT EMSGSIZE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMSGSIZE))
; compiling (DEFCONSTANT EPROTOTYPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTOTYPE))
; compiling (DEFCONSTANT ENOPROTOOPT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOPROTOOPT))
; compiling (DEFCONSTANT EPROTONOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTONOSUPPORT))
; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESOCKTNOSUPPORT))
; compiling (DEFCONSTANT EOPNOTSUPP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EOPNOTSUPP))
; compiling (DEFCONSTANT EPFNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPFNOSUPPORT))
; compiling (DEFCONSTANT EAFNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EAFNOSUPPORT))
; compiling (DEFCONSTANT EADDRINUSE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADDRINUSE))
; compiling (DEFCONSTANT EADDRNOTAVAIL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADDRNOTAVAIL))
; compiling (DEFCONSTANT ENETDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETDOWN))
; compiling (DEFCONSTANT ENETUNREACH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETUNREACH))
; compiling (DEFCONSTANT ENETRESET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETRESET))
; compiling (DEFCONSTANT ECONNABORTED ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNABORTED))
; compiling (DEFCONSTANT ECONNRESET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNRESET))
; compiling (DEFCONSTANT ENOBUFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOBUFS))
; compiling (DEFCONSTANT EISCONN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EISCONN))
; compiling (DEFCONSTANT ENOTCONN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTCONN))
; compiling (DEFCONSTANT ESHUTDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESHUTDOWN))
; compiling (DEFCONSTANT ETOOMANYREFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETOOMANYREFS))
; compiling (DEFCONSTANT ETIMEDOUT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETIMEDOUT))
; compiling (DEFCONSTANT ECONNREFUSED ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNREFUSED))
; compiling (DEFCONSTANT EHOSTDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EHOSTDOWN))
; compiling (DEFCONSTANT EHOSTUNREACH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EHOSTUNREACH))
; compiling (DEFCONSTANT EALREADY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EALREADY))
; compiling (DEFCONSTANT EINPROGRESS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINPROGRESS))
; compiling (DEFCONSTANT ESTALE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESTALE))
; compiling (DEFCONSTANT EUCLEAN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EUCLEAN))
; compiling (DEFCONSTANT ENOTNAM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTNAM))
; compiling (DEFCONSTANT ENAVAIL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENAVAIL))
; compiling (DEFCONSTANT EREMOTEIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EREMOTEIO))
; compiling (DEFCONSTANT EDQUOT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDQUOT))
; compiling (DEFCONSTANT ENOMEDIUM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMEDIUM))
; compiling (DEFCONSTANT EMEDIUMTYPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMEDIUMTYPE))
; compiling (DEFCONSTANT WNOHANG ...)
; compiling (EXPORT (QUOTE WNOHANG))
; compiling (DEFCONSTANT WUNTRACED ...)
; compiling (EXPORT (QUOTE WUNTRACED))
; compiling (DEFINE-ALIEN-TYPE MODE-T ...)
; compiling (DEFCONSTANT S-IFMT ...)
; compiling (EXPORT (QUOTE S-IFMT))
; compiling (DEFCONSTANT S-IFIFO ...)
; compiling (EXPORT (QUOTE S-IFIFO))
; compiling (DEFCONSTANT S-IFCHR ...)
; compiling (EXPORT (QUOTE S-IFCHR))
; compiling (DEFCONSTANT S-IFDIR ...)
; compiling (EXPORT (QUOTE S-IFDIR))
; compiling (DEFCONSTANT S-IFBLK ...)
; compiling (EXPORT (QUOTE S-IFBLK))
; compiling (DEFCONSTANT S-IFREG ...)
; compiling (EXPORT (QUOTE S-IFREG))
; compiling (DEFCONSTANT S-IFLNK ...)
; compiling (EXPORT (QUOTE S-IFLNK))
; compiling (DEFCONSTANT S-IFSOCK ...)
; compiling (EXPORT (QUOTE S-IFSOCK))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...)
; compiling (EXPORT (QUOTE S-IFWHT))
; compiling (DEFCONSTANT S-ISUID ...)
; compiling (EXPORT (QUOTE S-ISUID))
; compiling (DEFCONSTANT S-ISGID ...)
; compiling (EXPORT (QUOTE S-ISGID))
; compiling (DEFCONSTANT S-ISVTX ...)
; compiling (EXPORT (QUOTE S-ISVTX))
; compiling (DEFCONSTANT S-IRUSR ...)
; compiling (EXPORT (QUOTE S-IRUSR))
; compiling (DEFCONSTANT S-IWUSR ...)
; compiling (EXPORT (QUOTE S-IWUSR))
; compiling (DEFCONSTANT S-IXUSR ...)
; compiling (EXPORT (QUOTE S-IXUSR))
; compiling (DEFCONSTANT S-IREAD ...)
; compiling (EXPORT (QUOTE S-IREAD))
; compiling (DEFCONSTANT S-IWRITE ...)
; compiling (EXPORT (QUOTE S-IWRITE))
; compiling (DEFCONSTANT S-IEXEC ...)
; compiling (EXPORT (QUOTE S-IEXEC))
; compiling (DEFCONSTANT S-IRGRP ...)
; compiling (EXPORT (QUOTE S-IRGRP))
; compiling (DEFCONSTANT S-IWGRP ...)
; compiling (EXPORT (QUOTE S-IWGRP))
; compiling (DEFCONSTANT S-IXGRP ...)
; compiling (EXPORT (QUOTE S-IXGRP))
; compiling (DEFCONSTANT S-IROTH ...)
; compiling (EXPORT (QUOTE S-IROTH))
; compiling (DEFCONSTANT S-IWOTH ...)
; compiling (EXPORT (QUOTE S-IWOTH))
; compiling (DEFCONSTANT S-IXOTH ...)
; compiling (EXPORT (QUOTE S-IXOTH))
; compiling (DEFCONSTANT R-OK ...)
; compiling (EXPORT (QUOTE R-OK))
; compiling (DEFCONSTANT W-OK ...)
; compiling (EXPORT (QUOTE W-OK))
; compiling (DEFCONSTANT X-OK ...)
; compiling (EXPORT (QUOTE X-OK))
; compiling (DEFCONSTANT F-OK ...)
; compiling (EXPORT (QUOTE F-OK))
; compiling (DEFINE-ALIEN-TYPE OFF-T ...)
; compiling (DEFCONSTANT PROT-NONE ...)
; compiling (EXPORT (QUOTE PROT-NONE))
; compiling (DEFCONSTANT PROT-READ ...)
; compiling (EXPORT (QUOTE PROT-READ))
; compiling (DEFCONSTANT PROT-WRITE ...)
; compiling (EXPORT (QUOTE PROT-WRITE))
; compiling (DEFCONSTANT PROT-EXEC ...)
; compiling (EXPORT (QUOTE PROT-EXEC))
; compiling (DEFCONSTANT MAP-SHARED ...)
; compiling (EXPORT (QUOTE MAP-SHARED))
; compiling (DEFCONSTANT MAP-PRIVATE ...)
; compiling (EXPORT (QUOTE MAP-PRIVATE))
; compiling (DEFCONSTANT MAP-FIXED ...)
; compiling (EXPORT (QUOTE MAP-FIXED))
; compiling (DEFCONSTANT MAP-ANON ...)
; compiling (EXPORT (QUOTE MAP-ANON))
; compiling (DEFCONSTANT MS-ASYNC ...)
; compiling (EXPORT (QUOTE MS-ASYNC))
; compiling (DEFCONSTANT MS-SYNC ...)
; compiling (EXPORT (QUOTE MS-SYNC))
; compiling (DEFCONSTANT MS-INVALIDATE ...)
; compiling (EXPORT (QUOTE MS-INVALIDATE))
; compiling (DEFCONSTANT MCL-CURRENT ...)
; compiling (EXPORT (QUOTE MCL-CURRENT))
; compiling (DEFCONSTANT MCL-FUTURE ...)
; compiling (EXPORT (QUOTE MCL-FUTURE))
; compiling (SB-GROVEL::DEFINE-C-STRUCT DIRENT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT DIRENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::DIRENT 280
;                                 (SB-POSIX::INO SB-POSIX::INO-T "ino_t" 0 8)
;                                 (SB-POSIX::NAME C-STRING "char *" 19 256))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-PASSWD 28
;                                 (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER
;                                  "char *" 4 4)
;                                 (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 8 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 12 4)
;                                 (SB-POSIX::GECOS SB-POSIX::C-STRING-POINTER
;                                  "char *" 16 4)
;                                 (SB-POSIX::DIR SB-POSIX::C-STRING-POINTER
;                                  "char *" 20 4)
;                                 (SB-POSIX::SHELL SB-POSIX::C-STRING-POINTER
;                                  "char *" 24 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-PASSWD-UID (SLOT STRUCT 'SB-POSIX::UID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-PASSWD-GID (SLOT STRUCT 'SB-POSIX::GID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-GROUP 16
;                                 (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER
;                                  "char *" 4 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 8 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-GROUP-GID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-GROUP)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-GROUP-GID (SLOT STRUCT 'SB-POSIX::GID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-STAT 104
;                                 (SB-POSIX::MODE SB-POSIX::MODE-T "mode_t" 16 4)
;                                 (SB-POSIX::NLINK SB-POSIX::NLINK-T "nlink_t" 20
;                                  4)
;                                 (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 24 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 28 4)
;                                 (SB-POSIX::RDEV SB-POSIX::DEV-T "dev_t" 32 8)
;                                 (SB-POSIX::SIZE OFF-T "off_t" 48 8)
;                                 (SB-POSIX::ATIME SB-POSIX::TIME-T "time_t" 72 4)
;                                 (SB-POSIX::MTIME SB-POSIX::TIME-T "time_t" 80 4)
;                                 (SB-POSIX::CTIME SB-POSIX::TIME-T "time_t" 88 4)
;                                 ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MODE
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-MODE (SLOT STRUCT 'SB-POSIX::MODE)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-NLINK
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-NLINK (SLOT STRUCT 'SB-POSIX::NLINK)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-UID (SLOT STRUCT 'SB-POSIX::UID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-GID (SLOT STRUCT 'SB-POSIX::GID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-ATIME (SLOT STRUCT 'SB-POSIX::ATIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-MTIME (SLOT STRUCT 'SB-POSIX::MTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-CTIME (SLOT STRUCT 'SB-POSIX::CTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; compiling (DEFCONSTANT O-RDONLY ...)
; compiling (EXPORT (QUOTE O-RDONLY))
; compiling (DEFCONSTANT O-WRONLY ...)
; compiling (EXPORT (QUOTE O-WRONLY))
; compiling (DEFCONSTANT O-RDWR ...)
; compiling (EXPORT (QUOTE O-RDWR))
; compiling (DEFCONSTANT O-CREAT ...)
; compiling (EXPORT (QUOTE O-CREAT))
; compiling (DEFCONSTANT O-EXCL ...)
; compiling (EXPORT (QUOTE O-EXCL))
; compiling (DEFCONSTANT O-NOCTTY ...)
; compiling (EXPORT (QUOTE O-NOCTTY))
; compiling (DEFCONSTANT O-TRUNC ...)
; compiling (EXPORT (QUOTE O-TRUNC))
; compiling (DEFCONSTANT O-APPEND ...)
; compiling (EXPORT (QUOTE O-APPEND))
; compiling (DEFCONSTANT O-NONBLOCK ...)
; compiling (EXPORT (QUOTE O-NONBLOCK))
; compiling (DEFCONSTANT O-NDELAY ...)
; compiling (EXPORT (QUOTE O-NDELAY))
; compiling (DEFCONSTANT O-SYNC ...)
; compiling (EXPORT (QUOTE O-SYNC))
; compiling (DEFCONSTANT O-NOFOLLOW ...)
; compiling (EXPORT (QUOTE O-NOFOLLOW))
; compiling (DEFCONSTANT O-DIRECTORY ...)
; compiling (EXPORT (QUOTE O-DIRECTORY))
; compiling (DEFCONSTANT O-DIRECT ...)
; compiling (EXPORT (QUOTE O-DIRECT))
; compiling (DEFCONSTANT O-ASYNC ...)
; compiling (EXPORT (QUOTE O-ASYNC))
; compiling (DEFCONSTANT O-LARGEFILE ...)
; compiling (EXPORT (QUOTE O-LARGEFILE))
; compiling (DEFCONSTANT O-DSYNC ...)
; compiling (EXPORT (QUOTE O-DSYNC))
; compiling (DEFCONSTANT O-RSYNC ...)
; compiling (EXPORT (QUOTE O-RSYNC))
; compiling (DEFCONSTANT SEEK-SET ...)
; compiling (EXPORT (QUOTE SEEK-SET))
; compiling (DEFCONSTANT SEEK-CUR ...)
; compiling (EXPORT (QUOTE SEEK-CUR))
; compiling (DEFCONSTANT SEEK-END ...)
; compiling (EXPORT (QUOTE SEEK-END))
; compiling (DEFCONSTANT F-DUPFD ...)
; compiling (EXPORT (QUOTE F-DUPFD))
; compiling (DEFCONSTANT F-GETFD ...)
; compiling (EXPORT (QUOTE F-GETFD))
; compiling (DEFCONSTANT F-SETFD ...)
; compiling (EXPORT (QUOTE F-SETFD))
; compiling (DEFCONSTANT F-GETFL ...)
; compiling (EXPORT (QUOTE F-GETFL))
; compiling (DEFCONSTANT F-SETFL ...)
; compiling (EXPORT (QUOTE F-SETFL))
; compiling (DEFCONSTANT F-GETLK ...)
; compiling (EXPORT (QUOTE F-GETLK))
; compiling (DEFCONSTANT F-SETLK ...)
; compiling (EXPORT (QUOTE F-SETLK))
; compiling (DEFCONSTANT F-SETLKW ...)
; compiling (EXPORT (QUOTE F-SETLKW))
; compiling (DEFCONSTANT F-GETOWN ...)
; compiling (EXPORT (QUOTE F-GETOWN))
; compiling (DEFCONSTANT F-SETOWN ...)
; compiling (EXPORT (QUOTE F-SETOWN))
; compiling (DEFCONSTANT F-RDLCK ...)
; compiling (EXPORT (QUOTE F-RDLCK))
; compiling (DEFCONSTANT F-WRLCK ...)
; compiling (EXPORT (QUOTE F-WRLCK))
; compiling (DEFCONSTANT F-UNLCK ...)
; compiling (EXPORT (QUOTE F-UNLCK))
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-FLOCK ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-FLOCK
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-FLOCK 32 (TYPE SHORT "short" 0 2)
;                                 (SB-POSIX::WHENCE SHORT "short" 2 2)
;                                 (SB-POSIX::START OFF-T "off_t" 8 8)
;                                 (SB-POSIX::LEN OFF-T "off_t" 16 8)
;                                 (SB-POSIX::PID SB-POSIX::PID-T "pid_t" 24 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-FLOCK-PID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-FLOCK)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-FLOCK-PID (SLOT STRUCT 'SB-POSIX::PID)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFCONSTANT F-LOCK ...)
; compiling (EXPORT (QUOTE F-LOCK))
; compiling (DEFCONSTANT F-TLOCK ...)
; compiling (EXPORT (QUOTE F-TLOCK))
; compiling (DEFCONSTANT F-ULOCK ...)
; compiling (EXPORT (QUOTE F-ULOCK))
; compiling (DEFCONSTANT F-TEST ...)
; compiling (EXPORT (QUOTE F-TEST))
; compiling (DEFINE-ALIEN-TYPE CC-T ...)
; compiling (DEFINE-ALIEN-TYPE SPEED-T ...)
; compiling (EXPORT (QUOTE SPEED-T))
; compiling (DEFINE-ALIEN-TYPE TCFLAG-T ...)
; compiling (EXPORT (QUOTE TCFLAG-T))
; compiling (DEFCONSTANT NCCS ...)
; compiling (EXPORT (QUOTE NCCS))
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TERMIOS 60
;                                 (SB-POSIX::IFLAG SB-POSIX::TCFLAG-T "tcflag_t" 0
;                                  4)
;                                 (SB-POSIX::OFLAG SB-POSIX::TCFLAG-T "tcflag_t" 4
;                                  4)
;                                 (SB-POSIX::CFLAG SB-POSIX::TCFLAG-T "tcflag_t" 8
;                                  4)
;                                 (SB-POSIX::LFLAG SB-POSIX::TCFLAG-T "tcflag_t" 12
;                                  4)
;                                 (SB-POSIX::CC (ARRAY SB-POSIX::CC-T) "cc_t" 17
;                                  32))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG (SLOT STRUCT 'SB-POSIX::IFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG (SLOT STRUCT 'SB-POSIX::OFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG (SLOT STRUCT 'SB-POSIX::CFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG (SLOT STRUCT 'SB-POSIX::LFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 32)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 32)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-UTIMBUF 8
;                                 (SB-POSIX::ACTIME SB-POSIX::TIME-T "time_t" 0 4)
;                                 (SB-POSIX::MODTIME SB-POSIX::TIME-T "time_t" 4 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME (SLOT STRUCT 'SB-POSIX::ACTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME (SLOT STRUCT 'SB-POSIX::MODTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TIMEVAL 8
;                                 (SB-POSIX::SEC SB-POSIX::TIME-T "time_t" 0 4)
;                                 (SB-POSIX::USEC SB-POSIX::SUSECONDS-T
;                                  "suseconds_t" 4 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC (SLOT STRUCT 'SB-POSIX::SEC)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC (SLOT STRUCT 'SB-POSIX::USEC)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFCONSTANT VEOF ...)
; compiling (EXPORT (QUOTE VEOF))
; compiling (DEFCONSTANT VEOL ...)
; compiling (EXPORT (QUOTE VEOL))
; compiling (DEFCONSTANT VERASE ...)
; compiling (EXPORT (QUOTE VERASE))
; compiling (DEFCONSTANT VINTR ...)
; compiling (EXPORT (QUOTE VINTR))
; compiling (DEFCONSTANT VKILL ...)
; compiling (EXPORT (QUOTE VKILL))
; compiling (DEFCONSTANT VMIN ...)
; compiling (EXPORT (QUOTE VMIN))
; compiling (DEFCONSTANT VQUIT ...)
; compiling (EXPORT (QUOTE VQUIT))
; compiling (DEFCONSTANT VSTART ...)
; compiling (EXPORT (QUOTE VSTART))
; compiling (DEFCONSTANT VSTOP ...)
; compiling (EXPORT (QUOTE VSTOP))
; compiling (DEFCONSTANT VSUSP ...)
; compiling (EXPORT (QUOTE VSUSP))
; compiling (DEFCONSTANT VTIME ...)
; compiling (EXPORT (QUOTE VTIME))
; compiling (DEFCONSTANT VDISABLE ...)
; compiling (EXPORT (QUOTE VDISABLE))
; compiling (DEFCONSTANT BRKINT ...)
; compiling (EXPORT (QUOTE BRKINT))
; compiling (DEFCONSTANT ICRNL ...)
; compiling (EXPORT (QUOTE ICRNL))
; compiling (DEFCONSTANT IGNBRK ...)
; compiling (EXPORT (QUOTE IGNBRK))
; compiling (DEFCONSTANT IGNCR ...)
; compiling (EXPORT (QUOTE IGNCR))
; compiling (DEFCONSTANT IGNPAR ...)
; compiling (EXPORT (QUOTE IGNPAR))
; compiling (DEFCONSTANT INLCR ...)
; compiling (EXPORT (QUOTE INLCR))
; compiling (DEFCONSTANT INPCK ...)
; compiling (EXPORT (QUOTE INPCK))
; compiling (DEFCONSTANT ISTRIP ...)
; compiling (EXPORT (QUOTE ISTRIP))
; compiling (DEFCONSTANT IXOFF ...)
; compiling (EXPORT (QUOTE IXOFF))
; compiling (DEFCONSTANT IXON ...)
; compiling (EXPORT (QUOTE IXON))
; compiling (DEFCONSTANT PARMRK ...)
; compiling (EXPORT (QUOTE PARMRK))
; compiling (DEFCONSTANT OPOST ...)
; compiling (EXPORT (QUOTE OPOST))
; compiling (DEFCONSTANT OCRNL ...)
; compiling (EXPORT (QUOTE OCRNL))
; compiling (DEFCONSTANT ONOCR ...)
; compiling (EXPORT (QUOTE ONOCR))
; compiling (DEFCONSTANT ONLRET ...)
; compiling (EXPORT (QUOTE ONLRET))
; compiling (DEFCONSTANT OFDEL ...)
; compiling (EXPORT (QUOTE OFDEL))
; compiling (DEFCONSTANT OFILL ...)
; compiling (EXPORT (QUOTE OFILL))
; compiling (DEFCONSTANT NLDLY ...)
; compiling (EXPORT (QUOTE NLDLY))
; compiling (DEFCONSTANT NL0 ...)
; compiling (EXPORT (QUOTE NL0))
; compiling (DEFCONSTANT NL1 ...)
; compiling (EXPORT (QUOTE NL1))
; compiling (DEFCONSTANT CRDLY ...)
; compiling (EXPORT (QUOTE CRDLY))
; compiling (DEFCONSTANT CR0 ...)
; compiling (EXPORT (QUOTE CR0))
; compiling (DEFCONSTANT CR1 ...)
; compiling (EXPORT (QUOTE CR1))
; compiling (DEFCONSTANT CR2 ...)
; compiling (EXPORT (QUOTE CR2))
; compiling (DEFCONSTANT CR3 ...)
; compiling (EXPORT (QUOTE CR3))
; compiling (DEFCONSTANT TABDLY ...)
; compiling (EXPORT (QUOTE TABDLY))
; compiling (DEFCONSTANT TAB0 ...)
; compiling (EXPORT (QUOTE TAB0))
; compiling (DEFCONSTANT TAB1 ...)
; compiling (EXPORT (QUOTE TAB1))
; compiling (DEFCONSTANT TAB2 ...)
; compiling (EXPORT (QUOTE TAB2))
; compiling (DEFCONSTANT TAB3 ...)
; compiling (EXPORT (QUOTE TAB3))
; compiling (DEFCONSTANT BSDLY ...)
; compiling (EXPORT (QUOTE BSDLY))
; compiling (DEFCONSTANT BS0 ...)
; compiling (EXPORT (QUOTE BS0))
; compiling (DEFCONSTANT BS1 ...)
; compiling (EXPORT (QUOTE BS1))
; compiling (DEFCONSTANT VTDLY ...)
; compiling (EXPORT (QUOTE VTDLY))
; compiling (DEFCONSTANT VT0 ...)
; compiling (EXPORT (QUOTE VT0))
; compiling (DEFCONSTANT VT1 ...)
; compiling (EXPORT (QUOTE VT1))
; compiling (DEFCONSTANT FFDLY ...)
; compiling (EXPORT (QUOTE FFDLY))
; compiling (DEFCONSTANT FF0 ...)
; compiling (EXPORT (QUOTE FF0))
; compiling (DEFCONSTANT FF1 ...)
; compiling (EXPORT (QUOTE FF1))
; compiling (DEFCONSTANT B0 ...)
; compiling (EXPORT (QUOTE B0))
; compiling (DEFCONSTANT B50 ...)
; compiling (EXPORT (QUOTE B50))
; compiling (DEFCONSTANT B75 ...)
; compiling (EXPORT (QUOTE B75))
; compiling (DEFCONSTANT B110 ...)
; compiling (EXPORT (QUOTE B110))
; compiling (DEFCONSTANT B134 ...)
; compiling (EXPORT (QUOTE B134))
; compiling (DEFCONSTANT B150 ...)
; compiling (EXPORT (QUOTE B150))
; compiling (DEFCONSTANT B200 ...)
; compiling (EXPORT (QUOTE B200))
; compiling (DEFCONSTANT B300 ...)
; compiling (EXPORT (QUOTE B300))
; compiling (DEFCONSTANT B600 ...)
; compiling (EXPORT (QUOTE B600))
; compiling (DEFCONSTANT B1200 ...)
; compiling (EXPORT (QUOTE B1200))
; compiling (DEFCONSTANT B1800 ...)
; compiling (EXPORT (QUOTE B1800))
; compiling (DEFCONSTANT B2400 ...)
; compiling (EXPORT (QUOTE B2400))
; compiling (DEFCONSTANT B4800 ...)
; compiling (EXPORT (QUOTE B4800))
; compiling (DEFCONSTANT B9600 ...)
; compiling (EXPORT (QUOTE B9600))
; compiling (DEFCONSTANT B19200 ...)
; compiling (EXPORT (QUOTE B19200))
; compiling (DEFCONSTANT B38400 ...)
; compiling (EXPORT (QUOTE B38400))
; compiling (DEFCONSTANT B57600 ...)
; compiling (EXPORT (QUOTE B57600))
; compiling (DEFCONSTANT B115200 ...)
; compiling (EXPORT (QUOTE B115200))
; compiling (DEFCONSTANT B230400 ...)
; compiling (EXPORT (QUOTE B230400))
; compiling (DEFCONSTANT CSIZE ...)
; compiling (EXPORT (QUOTE CSIZE))
; compiling (DEFCONSTANT CS5 ...)
; compiling (EXPORT (QUOTE CS5))
; compiling (DEFCONSTANT CS6 ...)
; compiling (EXPORT (QUOTE CS6))
; compiling (DEFCONSTANT CS7 ...)
; compiling (EXPORT (QUOTE CS7))
; compiling (DEFCONSTANT CS8 ...)
; compiling (EXPORT (QUOTE CS8))
; compiling (DEFCONSTANT CSTOPB ...)
; compiling (EXPORT (QUOTE CSTOPB))
; compiling (DEFCONSTANT CREAD ...)
; compiling (EXPORT (QUOTE CREAD))
; compiling (DEFCONSTANT PARENB ...)
; compiling (EXPORT (QUOTE PARENB))
; compiling (DEFCONSTANT PARODD ...)
; compiling (EXPORT (QUOTE PARODD))
; compiling (DEFCONSTANT HUPCL ...)
; compiling (EXPORT (QUOTE HUPCL))
; compiling (DEFCONSTANT CLOCAL ...)
; compiling (EXPORT (QUOTE CLOCAL))
; compiling (DEFCONSTANT ECHO ...)
; compiling (EXPORT (QUOTE ECHO))
; compiling (DEFCONSTANT ECHOE ...)
; compiling (EXPORT (QUOTE ECHOE))
; compiling (DEFCONSTANT ECHOK ...)
; compiling (EXPORT (QUOTE ECHOK))
; compiling (DEFCONSTANT ECHONL ...)
; compiling (EXPORT (QUOTE ECHONL))
; compiling (DEFCONSTANT ICANON ...)
; compiling (EXPORT (QUOTE ICANON))
; compiling (DEFCONSTANT IEXTEN ...)
; compiling (EXPORT (QUOTE IEXTEN))
; compiling (DEFCONSTANT ISIG ...)
; compiling (EXPORT (QUOTE ISIG))
; compiling (DEFCONSTANT NOFLSH ...)
; compiling (EXPORT (QUOTE NOFLSH))
; compiling (DEFCONSTANT TOSTOP ...)
; compiling (EXPORT (QUOTE TOSTOP))
; compiling (DEFCONSTANT TCSANOW ...)
; compiling (EXPORT (QUOTE TCSANOW))
; compiling (DEFCONSTANT TCSADRAIN ...)
; compiling (EXPORT (QUOTE TCSADRAIN))
; compiling (DEFCONSTANT TCSAFLUSH ...)
; compiling (EXPORT (QUOTE TCSAFLUSH))
; compiling (DEFCONSTANT TCIFLUSH ...)
; compiling (EXPORT (QUOTE TCIFLUSH))
; compiling (DEFCONSTANT TCIOFLUSH ...)
; compiling (EXPORT (QUOTE TCIOFLUSH))
; compiling (DEFCONSTANT TCOFLUSH ...)
; compiling (EXPORT (QUOTE TCOFLUSH))
; compiling (DEFCONSTANT TCIOFF ...)
; compiling (EXPORT (QUOTE TCIOFF))
; compiling (DEFCONSTANT TCION ...)
; compiling (EXPORT (QUOTE TCION))
; compiling (DEFCONSTANT TCOOFF ...)
; compiling (EXPORT (QUOTE TCOOFF))
; compiling (DEFCONSTANT TCOON ...)
; compiling (EXPORT (QUOTE TCOON))
; compiling (DEFCONSTANT LOG-USER ...)
; compiling (EXPORT (QUOTE LOG-USER))
; compiling (DEFCONSTANT LOG-LOCAL0 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL0))
; compiling (DEFCONSTANT LOG-LOCAL1 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL1))
; compiling (DEFCONSTANT LOG-LOCAL2 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL2))
; compiling (DEFCONSTANT LOG-LOCAL3 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL3))
; compiling (DEFCONSTANT LOG-LOCAL4 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL4))
; compiling (DEFCONSTANT LOG-LOCAL5 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL5))
; compiling (DEFCONSTANT LOG-LOCAL6 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL6))
; compiling (DEFCONSTANT LOG-LOCAL7 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL7))
; compiling (DEFCONSTANT LOG-AUTHPRIV ...)
; compiling (EXPORT (QUOTE LOG-AUTHPRIV))
; compiling (DEFCONSTANT LOG-CRON ...)
; compiling (EXPORT (QUOTE LOG-CRON))
; compiling (DEFCONSTANT LOG-DAEMON ...)
; compiling (EXPORT (QUOTE LOG-DAEMON))
; compiling (DEFCONSTANT LOG-FTP ...)
; compiling (EXPORT (QUOTE LOG-FTP))
; compiling (DEFCONSTANT LOG-KERN ...)
; compiling (EXPORT (QUOTE LOG-KERN))
; compiling (DEFCONSTANT LOG-LPR ...)
; compiling (EXPORT (QUOTE LOG-LPR))
; compiling (DEFCONSTANT LOG-MAIL ...)
; compiling (EXPORT (QUOTE LOG-MAIL))
; compiling (DEFCONSTANT LOG-NEWS ...)
; compiling (EXPORT (QUOTE LOG-NEWS))
; compiling (DEFCONSTANT LOG-SYSLOG ...)
; compiling (EXPORT (QUOTE LOG-SYSLOG))
; compiling (DEFCONSTANT LOG-UUCP ...)
; compiling (EXPORT (QUOTE LOG-UUCP))
; compiling (DEFCONSTANT LOG-PID ...)
; compiling (EXPORT (QUOTE LOG-PID))
; compiling (DEFCONSTANT LOG-CONS ...)
; compiling (EXPORT (QUOTE LOG-CONS))
; compiling (DEFCONSTANT LOG-NDELAY ...)
; compiling (EXPORT (QUOTE LOG-NDELAY))
; compiling (DEFCONSTANT LOG-ODELAY ...)
; compiling (EXPORT (QUOTE LOG-ODELAY))
; compiling (DEFCONSTANT LOG-NOWAIT ...)
; compiling (EXPORT (QUOTE LOG-NOWAIT))
; compiling (DEFCONSTANT LOG-PERROR ...)
; compiling (EXPORT (QUOTE LOG-PERROR))
; compiling (DEFCONSTANT LOG-EMERG ...)
; compiling (EXPORT (QUOTE LOG-EMERG))
; compiling (DEFCONSTANT LOG-ALERT ...)
; compiling (EXPORT (QUOTE LOG-ALERT))
; compiling (DEFCONSTANT LOG-CRIT ...)
; compiling (EXPORT (QUOTE LOG-CRIT))
; compiling (DEFCONSTANT LOG-ERR ...)
; compiling (EXPORT (QUOTE LOG-ERR))
; compiling (DEFCONSTANT LOG-WARNING ...)
; compiling (EXPORT (QUOTE LOG-WARNING))
; compiling (DEFCONSTANT LOG-NOTICE ...)
; compiling (EXPORT (QUOTE LOG-NOTICE))
; compiling (DEFCONSTANT LOG-INFO ...)
; compiling (EXPORT (QUOTE LOG-INFO))
; compiling (DEFCONSTANT LOG-DEBUG ...)
; compiling (EXPORT (QUOTE LOG-DEBUG))

; SYS:CONTRIB;SB-POSIX;CONSTANTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:10.038
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/interface.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFMACRO DEFINE-PROTOCOL-CLASS ...)
; compiling (DEFINE-CONDITION SYSCALL-ERROR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SYSCALL-ERROR ...)
; compiling (DEFUN UNSUPPORTED-ERROR ...)
; compiling (DEFUN UNSUPPORTED-WARNING ...)
; compiling (DECLAIM (INLINE NEVER-FAILS))
; compiling (DEFUN NEVER-FAILS ...)
; compiling (SETF *C-FUNCTIONS-IN-RUNTIME* ...)
; compiling (DEFMACRO DEFINE-CALL* ...)
; compiling (DEFINE-CALL* "access" ...)
; compiling (DEFINE-CALL* "chdir" ...)
; compiling (DEFINE-CALL* "chmod" ...)
; compiling (DEFINE-CALL* "close" ...)
; compiling (DEFINE-CALL* "creat" ...)
; compiling (DEFINE-CALL* "dup" ...)
; compiling (DEFINE-CALL* "dup2" ...)
; compiling (DEFINE-CALL* ("lseek" :OPTIONS ...) ...)
; compiling (DEFINE-CALL* "mkdir" ...)
; compiling (DEF "open")
; compiling (DEFINE-CALL* "read" ...)
; compiling (DEFINE-CALL "rename" ...)
; compiling (DEFINE-CALL* "rmdir" ...)
; compiling (DEFINE-CALL* "unlink" ...)
; compiling (DEFINE-CALL "opendir" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-CALL "opendir"
;     (SB-POSIX::DEFINE-CALL "opendir" (* T) NULL-ALIEN
;                            (PATHNAME SB-POSIX:FILENAME))
; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL* "write" ...)
; compiling (DEFINE-CALL ("readdir" :OPTIONS ...) ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-CALL ("readdir" :OPTIONS :LARGEFILE)
;     (SB-POSIX::DEFINE-CALL ("readdir" :OPTIONS :LARGEFILE) (* SB-POSIX::DIRENT)
;                            NOT (SB-POSIX::DIR (* T)))
; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::DIRENT
;                                       (SB-POSIX::INO # :OFFSET 0)
;                                       (SB-POSIX::PADDING-11-8 # :OFFSET 64)
;                                       (SB-POSIX::NAME # :OFFSET 152)
;                                       (SB-POSIX::PADDING-5-275 # :OFFSET
;                                        2200)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "closedir" ...)
; compiling (DEFINE-CALL* "umask" ...)
; compiling (DEFINE-CALL* "getpid" ...)
; compiling (DEFINE-CALL "chown" ...)
; compiling (DEFINE-CALL "chroot" ...)
; compiling (DEFINE-CALL "fchdir" ...)
; compiling (DEFINE-CALL "fchmod" ...)
; compiling (DEFINE-CALL "fchown" ...)
; compiling (DEFINE-CALL "fdatasync" ...)
; compiling (DEFINE-CALL ("ftruncate" :OPTIONS ...) ...)
; compiling (DEFINE-CALL "fsync" ...)
; compiling (DEFINE-CALL "lchown" ...)
; compiling (DEFINE-CALL "link" ...)
; compiling (DEFINE-CALL "lockf" ...)
; compiling (DEFINE-CALL "mkfifo" ...)
; compiling (DEFINE-CALL "symlink" ...)
; compiling (DEFINE-CALL "sync" ...)
; compiling (DEFINE-CALL ("truncate" :OPTIONS ...) ...)
; compiling (DEF-MK*TEMP MKTEMP ...)
; compiling (DEF-MK*TEMP MKSTEMP ...)
; compiling (DEF-MK*TEMP MKDTEMP ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITHOUT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-INT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-POINTER-ARG ...)
; compiling (DEFINE-ENTRY-POINT "ioctl" ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITHOUT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-INT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-POINTER-ARG ...)
; compiling (DEFINE-PROTOCOL-CLASS FLOCK ...)
; compiling (DEFINE-ENTRY-POINT "fcntl" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-ENTRY-POINT "fcntl"
;     (SB-POSIX::FLOCK-TO-ALIEN SB-POSIX::ARG SB-POSIX::A-FLOCK)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::FCNTL-WITH-POINTER-ARG SB-POSIX::FD SB-POSIX::CMD
;      SB-POSIX::A-FLOCK)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::ALIEN-TO-FLOCK SB-POSIX::A-FLOCK SB-POSIX::ARG)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-FLOCK SB-POSIX::A-FLOCK
;         NIL
;       (SB-POSIX::FLOCK-TO-ALIEN SB-POSIX::ARG SB-POSIX::A-FLOCK)
;       (LET ((SB-POSIX::R
;              (SB-POSIX::FCNTL-WITH-POINTER-ARG SB-POSIX::FD SB-POSIX::CMD
;               SB-POSIX::A-FLOCK)))
;         (SB-POSIX::ALIEN-TO-FLOCK SB-POSIX::A-FLOCK SB-POSIX::ARG)
;         SB-POSIX::R))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-FLOCK 
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "geteuid" ...)
; compiling (DEFINE-CALL "getresuid" ...)
; compiling (DEFINE-CALL "getuid" ...)
; compiling (DEFINE-CALL "seteuid" ...)
; compiling (DEFINE-CALL "setfsuid" ...)
; compiling (DEFINE-CALL "setreuid" ...)
; compiling (DEFINE-CALL "setresuid" ...)
; compiling (DEFINE-CALL "setuid" ...)
; compiling (DEFINE-CALL "getegid" ...)
; compiling (DEFINE-CALL "getgid" ...)
; compiling (DEFINE-CALL "getresgid" ...)
; compiling (DEFINE-CALL "setegid" ...)
; compiling (DEFINE-CALL "setfsgid" ...)
; compiling (DEFINE-CALL "setgid" ...)
; compiling (DEFINE-CALL "setregid" ...)
; compiling (DEFINE-CALL "setresgid" ...)
; compiling (DEFINE-CALL "alarm" ...)
; compiling (DEFINE-SIMPLE-CALL ABORT ...)
; compiling (DEFINE-SIMPLE-CALL EXIT ...)
; compiling (DEFINE-SIMPLE-CALL _EXIT ...)
; compiling (DEFINE-CALL ("posix_fork" :C-NAME ...) ...)
; compiling (DEFUN FORK ...)
; compiling (EXPORT (QUOTE FORK) ...)
; compiling (DEFINE-CALL "getpgid" ...)
; compiling (DEFINE-CALL "getppid" ...)
; compiling (DEFINE-CALL "getpgrp" ...)
; compiling (DEFINE-CALL "getsid" ...)
; compiling (DEFINE-CALL "kill" ...)
; compiling (DEFINE-CALL "killpg" ...)
; compiling (DEFINE-CALL "pause" ...)
; compiling (DEFINE-CALL "setpgid" ...)
; compiling (DEFINE-CALL "setpgrp" ...)
; compiling (DEFINE-CALL "setsid" ...)
; compiling (DEFMACRO WITH-GROWING-C-STRING ...)
; compiling (EXPORT (QUOTE READLINK) ...)
; compiling (DEFUN READLINK ...)
; compiling (EXPORT (QUOTE GETCWD) ...)
; compiling (DEFUN GETCWD ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN GETCWD
;     (SB-POSIX::WITH-GROWING-C-STRING (SB-POSIX::BUF SB-POSIX::SIZE)
;       (LET ((SB-POSIX::RESULT (SB-POSIX::%GETCWD SB-POSIX::BUF SB-POSIX::SIZE)))
;         (COND (SB-POSIX::RESULT (SB-POSIX::BUF))
;               ((/= # SB-POSIX:ERANGE)
;                (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::GETCWD)))))
; --> BLOCK LET FLET BLOCK WHEN IF PROGN SETF SB-KERNEL:%SET-SAP-REF-8 
; --> ALIEN-SAP 
; ==>
;   SB-POSIX::BUF
; 
; note: deleting unreachable code

; compiling (EXPORT (QUOTE WAIT) ...)
; compiling (DECLAIM (INLINE WAIT))
; compiling (DEFUN WAIT ...)
; compiling (EXPORT (QUOTE WAITPID) ...)
; compiling (DECLAIM (INLINE WAITPID))
; compiling (DEFUN WAITPID ...)
; compiling (DEFINE-CALL "wifexited" ...)
; compiling (DEFINE-CALL "wexitstatus" ...)
; compiling (DEFINE-CALL "wifsignaled" ...)
; compiling (DEFINE-CALL "wtermsig" ...)
; compiling (DEFINE-CALL "wifstopped" ...)
; compiling (DEFINE-CALL "wstopsig" ...)
; compiling (DEFINE-CALL ("mmap" :OPTIONS ...) ...)
; compiling (DEFINE-CALL "munmap" ...)
; compiling (DEFINE-CALL "msync" ...)
; compiling (DEFINE-CALL "mlockall" ...)
; compiling (DEFINE-CALL "munlockall" ...)
; compiling (DEFINE-CALL "getpagesize" ...)
; compiling (DEFINE-PROTOCOL-CLASS PASSWD ...)
; compiling (DEFINE-PROTOCOL-CLASS GROUP ...)
; compiling (DEFMACRO DEFINE-OBJ-CALL ...)
; compiling (DEFINE-OBJ-CALL "getpwnam" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getpwnam"
;     (SB-POSIX::DEFINE-OBJ-CALL "getpwnam" SB-POSIX::LOGIN-NAME
;                                (FUNCTION (* SB-POSIX::ALIEN-PASSWD)
;                                 (C-STRING :NOT-NULL T))
;                                SB-POSIX::ALIEN-TO-PASSWD)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-PASSWD
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::UID # :OFFSET 64)
;                                       (SB-POSIX::GID # :OFFSET 96)
;                                       (SB-POSIX::GECOS C-STRING :OFFSET 128)
;                                       (SB-POSIX::DIR C-STRING :OFFSET 160)
;                                       (SB-POSIX::SHELL C-STRING :OFFSET 192)
;                                       (SB-POSIX::PADDING-0-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getpwuid" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getpwuid"
;     (SB-POSIX::DEFINE-OBJ-CALL "getpwuid" SB-POSIX::UID
;                                (FUNCTION (* SB-POSIX::ALIEN-PASSWD)
;                                 SB-POSIX::UID-T)
;                                SB-POSIX::ALIEN-TO-PASSWD)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-PASSWD
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::UID # :OFFSET 64)
;                                       (SB-POSIX::GID # :OFFSET 96)
;                                       (SB-POSIX::GECOS C-STRING :OFFSET 128)
;                                       (SB-POSIX::DIR C-STRING :OFFSET 160)
;                                       (SB-POSIX::SHELL C-STRING :OFFSET 192)
;                                       (SB-POSIX::PADDING-0-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getgrnam" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getgrnam"
;     (SB-POSIX::DEFINE-OBJ-CALL "getgrnam" SB-POSIX::LOGIN-NAME
;                                (FUNCTION (* SB-POSIX::ALIEN-GROUP)
;                                 (C-STRING :NOT-NULL T))
;                                SB-POSIX::ALIEN-TO-GROUP)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-GROUP
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::GID # :OFFSET 64)
;                                       (SB-POSIX::PADDING-4-12 # :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getgrgid" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getgrgid"
;     (SB-POSIX::DEFINE-OBJ-CALL "getgrgid" SB-POSIX::GID
;                                (FUNCTION (* SB-POSIX::ALIEN-GROUP)
;                                 SB-POSIX::GID-T)
;                                SB-POSIX::ALIEN-TO-GROUP)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-GROUP
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::GID # :OFFSET 64)
;                                       (SB-POSIX::PADDING-4-12 # :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-PROTOCOL-CLASS TIMEVAL ...)
; compiling (DEFINE-PROTOCOL-CLASS STAT ...)
; compiling (DEFMACRO DEFINE-STAT-CALL ...)
; compiling (DEFINE-STAT-CALL "stat" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-STAT-CALL "stat"
;     (SB-POSIX::DEFINE-STAT-CALL "stat" PATHNAME SB-POSIX:FILENAME
;                                 (FUNCTION INT (C-STRING :NOT-NULL T)
;                                  (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-STAT-CALL "lstat" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-STAT-CALL "lstat"
;     (SB-POSIX::DEFINE-STAT-CALL "lstat" PATHNAME SB-POSIX:FILENAME
;                                 (FUNCTION INT (C-STRING :NOT-NULL T)
;                                  (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-STAT-CALL "fstat" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-STAT-CALL "fstat"
;     (SB-POSIX::DEFINE-STAT-CALL "fstat" SB-POSIX::FD SB-POSIX:FILE-DESCRIPTOR
;                                 (FUNCTION INT INT (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "s_isreg" ...)
; compiling (DEFINE-CALL "s_isdir" ...)
; compiling (DEFINE-CALL "s_ischr" ...)
; compiling (DEFINE-CALL "s_isblk" ...)
; compiling (DEFINE-CALL "s_isfifo" ...)
; compiling (DEFINE-CALL "s_islnk" ...)
; compiling (DEFINE-CALL "s_issock" ...)
; compiling (EXPORT (QUOTE PIPE) ...)
; compiling (DECLAIM (INLINE PIPE))
; compiling (DEFUN PIPE ...)
; compiling (DEFINE-PROTOCOL-CLASS TERMIOS ...)
; compiling (EXPORT (QUOTE TCSETATTR) ...)
; compiling (DECLAIM (INLINE TCSETATTR))
; compiling (DEFUN TCSETATTR ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN TCSETATTR
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
;       (LET ((SB-POSIX::FD (SB-POSIX:FILE-DESCRIPTOR SB-POSIX::FD)))
;         (LET* ((SB-POSIX::R #))
;           (WHEN (MINUSP SB-POSIX::R)
;             (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::TCSETATTR)))
;         (VALUES)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE TCGETATTR) ...)
; compiling (DECLAIM (INLINE TCGETATTR))
; compiling (DEFUN TCGETATTR ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN TCGETATTR
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (LET ((SB-POSIX::R (ALIEN-FUNCALL # # SB-POSIX::A-TERMIOS)))
;         (WHEN (MINUSP SB-POSIX::R) (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::TCGETATTR))
;         (SETF SB-POSIX::TERMIOS
;                 (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS
;                  SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "tcdrain" ...)
; compiling (DEFINE-CALL "tcflow" ...)
; compiling (DEFINE-CALL "tcflush" ...)
; compiling (DEFINE-CALL "tcgetsid" ...)
; compiling (DEFINE-CALL "tcsendbreak" ...)
; compiling (EXPORT (QUOTE CFSETISPEED) ...)
; compiling (DECLAIM (INLINE CFSETISPEED))
; compiling (DEFUN CFSETISPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFSETISPEED
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (LET ((SB-POSIX::R (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS SPEED)))
;         (WHEN (MINUSP SB-POSIX::R)
;           (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::CFSETISPEED))
;         (SETF SB-POSIX::TERMIOS
;                 (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS
;                  SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFSETOSPEED) ...)
; compiling (DECLAIM (INLINE CFSETOSPEED))
; compiling (DEFUN CFSETOSPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFSETOSPEED
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (LET ((SB-POSIX::R (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS SPEED)))
;         (WHEN (MINUSP SB-POSIX::R)
;           (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::CFSETOSPEED))
;         (SETF SB-POSIX::TERMIOS
;                 (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS
;                  SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFGETISPEED) ...)
; compiling (DECLAIM (INLINE CFGETISPEED))
; compiling (DEFUN CFGETISPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFGETISPEED
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
;       (ALIEN-FUNCALL
;        (EXTERN-ALIEN "cfgetispeed"
;                      (FUNCTION SB-POSIX:SPEED-T (* SB-POSIX::ALIEN-TERMIOS)))
;        SB-POSIX::A-TERMIOS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFGETOSPEED) ...)
; compiling (DECLAIM (INLINE CFGETOSPEED))
; compiling (DEFUN CFGETOSPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFGETOSPEED
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
;       (ALIEN-FUNCALL
;        (EXTERN-ALIEN "cfgetospeed"
;                      (FUNCTION SB-POSIX:SPEED-T (* SB-POSIX::ALIEN-TERMIOS)))
;        SB-POSIX::A-TERMIOS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE TIME) ...)
; compiling (DEFUN TIME ...)
; compiling (EXPORT (QUOTE UTIME) ...)
; compiling (DEFUN UTIME ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN UTIME
;     (EXTERN-ALIEN "utime"
;                   (FUNCTION INT (C-STRING :NOT-NULL T)
;                    (* SB-POSIX::ALIEN-UTIMBUF)))
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE
;                                     (FUNCTION (SIGNED 32)
;                                      (C-STRING :NOT-NULL T)
;                                      (*
;                                       (STRUCT SB-POSIX::ALIEN-UTIMBUF # # #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE UTIMES) ...)
; compiling (DEFUN UTIMES ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN UTIMES
;     (EXTERN-ALIEN "sb_utimes"
;                   (FUNCTION INT (C-STRING :NOT-NULL T)
;                    (* (ARRAY SB-POSIX::ALIEN-TIMEVAL 2))))
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE
;                                     (FUNCTION (SIGNED 32)
;                                      (C-STRING :NOT-NULL T) (* (ARRAY # 2)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF SB-POSIX::BUF 0)
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;                                     (STRUCT SB-POSIX::ALIEN-TIMEVAL
;                                      (SB-POSIX::SEC (SIGNED 32) :OFFSET 0)
;                                      (SB-POSIX::USEC (SIGNED 32) :OFFSET 32)
;                                      (SB-POSIX::PADDING-0-8 (ARRAY # 0) :OFFSET
;                                       64))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF SB-POSIX::BUF 1)
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;                                     (STRUCT SB-POSIX::ALIEN-TIMEVAL
;                                      (SB-POSIX::SEC (SIGNED 32) :OFFSET 0)
;                                      (SB-POSIX::USEC (SIGNED 32) :OFFSET 32)
;                                      (SB-POSIX::PADDING-0-8 (ARRAY # 0) :OFFSET
;                                       64))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE GETENV) ...)
; compiling (DEFUN GETENV ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN GETENV
;     (ALIEN-FUNCALL
;      (EXTERN-ALIEN "getenv" (FUNCTION (* CHAR) (C-STRING :NOT-NULL T)))
;      SB-POSIX::NAME)
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "setenv" ...)
; compiling (DEFINE-CALL "unsetenv" ...)
; compiling (EXPORT (QUOTE PUTENV) ...)
; compiling (DEFUN PUTENV ...)
; compiling (EXPORT (QUOTE OPENLOG) ...)
; compiling (EXPORT (QUOTE SYSLOG) ...)
; compiling (EXPORT (QUOTE CLOSELOG) ...)
; compiling (DEFUN OPENLOG ...)
; compiling (DEFUN SYSLOG ...)
; compiling (DEFINE-CALL "closelog" ...)

; SYS:CONTRIB;SB-POSIX;INTERFACE-TMP.FASL.NEWEST written
; compilation finished in 0:00:14.748
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-BSD-SOCKETS-TEST" ...)
; compiling (IN-PACKAGE :SB-BSD-SOCKETS-TEST)
; compiling (DEFMACRO DEFTEST* ...)
; compiling (DEFTEST MAKE-INET-ADDRESS ...)
; compiling (DEFTEST MAKE-INET-ADDRESS2 ...)
; compiling (DEFTEST MAKE-INET6-ADDRESS.1 ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/TCP ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/UDP ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/ERROR ...)
; compiling (DEFTEST MAKE-INET-SOCKET.SMOKE ...)
; compiling (DEFTEST MAKE-INET-SOCKET.KEYWORD ...)
; compiling (DEFTEST* (MAKE-INET-SOCKET-WRONG) ...)
; compiling (DEFTEST* (MAKE-INET-SOCKET-KEYWORD-WRONG) ...)
; compiling (DEFTEST MAKE-INET6-SOCKET.SMOKE ...)
; compiling (DEFTEST MAKE-INET6-SOCKET.KEYWORD ...)
; compiling (DEFTEST* (NON-BLOCK-SOCKET) ...)
; compiling (DEFTEST INET-SOCKET-BIND ...)
; compiling (DEFTEST INET6-SOCKET-BIND ...)
; compiling (DEFTEST* (SIMPLE-SOCKOPT-TEST) ...)
; compiling (DEFUN READ-BUF-NONBLOCK ...)
; compiling (DEFTEST SIMPLE-LOCAL-CLIENT ...)
; compiling (DEFUN HTTP-STREAM ...)
; compiling (DEFTEST SOCKET-OPEN-P-TRUE.1 ...)
; compiling (DEFTEST SOCKET-OPEN-P-FALSE ...)
; compiling (DEFUN UDP-SERVER ...)
; compiling (DEFMACRO WITH-CLIENT-AND-SERVER ...)
; compiling (DEFINE-SHUTDOWN-TESTS :OUTPUT)
; compiling (DEFINE-SHUTDOWN-TESTS :IO)

; SYS:CONTRIB;SB-BSD-SOCKETS;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.412
Doing 27 pending tests of 27 tests total.
 SB-BSD-SOCKETS:MAKE-INET-ADDRESS SB-BSD-SOCKETS-TEST::MAKE-INET-ADDRESS2
 SB-BSD-SOCKETS-TEST::MAKE-INET6-ADDRESS.1
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/TCP
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/UDP
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/ERROR
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET.SMOKE
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET.KEYWORD
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-WRONG
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD-WRONG
 SB-BSD-SOCKETS-TEST::MAKE-INET6-SOCKET.SMOKE
 SB-BSD-SOCKETS-TEST::MAKE-INET6-SOCKET.KEYWORD
 SB-BSD-SOCKETS-TEST::NON-BLOCK-SOCKET SB-BSD-SOCKETS-TEST::INET-SOCKET-BIND
 SB-BSD-SOCKETS-TEST::INET6-SOCKET-BIND SB-BSD-SOCKETS-TEST::SIMPLE-SOCKOPT-TEST
 SB-BSD-SOCKETS-TEST::SIMPLE-LOCAL-CLIENT
 SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-TRUE.1
 SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-FALSE
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.CHARACTER.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.UB8.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.CHARACTER.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.UB8.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.CHARACTER.IO
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.UB8.IO
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.CHARACTER.IO
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.UB8.IO
No tests failed.
; 
; compilation unit finished
;   printed 133 notes
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-cltl2")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-cltl2/module-setup.lisp" (written 11 JUN 2015 07:45:10 AM):
; compiling (PROVIDE :SB-CLTL2)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cltl2/module-setup.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-CLTL2 ...)

; SYS:CONTRIB;SB-CLTL2;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.018
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/env.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEFVAR *NULL-LEXENV* ...)
; compiling (DEFUN AUGMENT-ENVIRONMENT ...)
; compiling (DEFUN EXTRA-PAIRS ...)
; compiling (DEFUN EXTRA-DECL-INFO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-INFORMATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VARIABLE-INFORMATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DECLARATION-INFORMATION ...)
; compiling (DEFUN PARSE-MACRO ...)
; compiling (DEFUN ENCLOSE ...)
; compiling (DEFUN UPDATE-LEXENV-USER-DATA ...)
; compiling (DEFMACRO DEFINE-DECLARATION ...)

; SYS:CONTRIB;SB-CLTL2;ENV-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.829
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/macroexpand.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEFUN MACROEXPAND-ALL ...)
; compiling (DEFUN %QUASIQUOTED-MACROEXPAND-ALL ...)
; compiling (SETF (GET # ...) ...)

; SYS:CONTRIB;SB-CLTL2;MACROEXPAND-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.112
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/compiler-let.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEF-IR1-TRANSLATOR COMPILER-LET ...)
; compiling (DEFUN WALK-COMPILER-LET ...)
; compiling (SB-WALKER:DEFINE-WALKER-TEMPLATE COMPILER-LET ...)
; compiling (SETF (GETF SB-EVAL::*EVAL-DISPATCH-FUNCTIONS* ...) ...)

; SYS:CONTRIB;SB-CLTL2;COMPILER-LET-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.223
* echo "(defsystem :sb-cltl2 :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cltl2.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-cltl2")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-CLTL2-TESTS ...)
; compiling (IN-PACKAGE :SB-CLTL2-TESTS)
; compiling (REM-ALL-TESTS)
; compiling (DEFMACRO *X*-VALUE ...)
; compiling (DEFTEST COMPILER-LET.1 ...)
; compiling (DEFVAR *EXPANSIONS* ...)
; compiling (DEFMACRO MACROEXPAND-MACRO ...)
; compiling (DEFTEST MACROEXPAND-ALL.1 ...)
; compiling (DEFTEST MACROEXPAND-ALL.2 ...)
; compiling (DEFTEST MACROEXPAND-ALL.3 ...)
; compiling (DEFUN SMV ...)
; compiling (DEFMACRO TESTR ...)
; compiling (DEFTEST MACROEXPAND-ALL.4 ...)
; compiling (DEFTEST MACROEXPAND-ALL.5 ...)
; compiling (DEFTEST MACROEXPAND-ALL.6 ...)
; compiling (DEFINE-SYMBOL-MACRO GLOBAL-SYMBOL-MACRO ...)
; compiling (DEFTEST MACROEXPAND-ALL.7 ...)
; compiling (DEFTEST MACROEXPAND-ALL.8 ...)
; compiling (DEFTEST MACROEXPAND-ALL.9 ...)
; compiling (DEFTEST MACROEXPAND-ALL.10 ...)
; compiling (DEFTEST MACROEXPAND-ALL.11 ...)
; compiling (DEFTEST MACROEXPAND-ALL.12 ...)
; compiling (DEFTEST MACROEXPAND-ALL.13 ...)
; compiling (DEFMACRO DINFO ...)
; compiling (DEF SPEED)
; compiling (DEF SAFETY)
; compiling (DEF DEBUG)
; compiling (DEF COMPILATION-SPEED)
; compiling (DEF SPACE)
; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.1 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.2 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.3 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2 ...)
; compiling (DECLAIM (DECLARATION FUBAR))
; compiling (DEFTEST DECLARATION-INFORMATION.DECLARATION ...)
; compiling (DEFVAR *FOO*)
; compiling (DEFMACRO VAR-INFO ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND/EXTRA-DECL ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/BOUND ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/BOUND/EXTRA-DECL ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/UNBOUND ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/BOUND ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/SHADOWED ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/SHADOWS-LEXICAL ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE.2 ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE.3 ...)
; compiling (DEFTEST VARIABLE-INFO.IGNORE ...)
; compiling (DEFTEST VARIABLE-INFO.SYMBOL-MACRO/LOCAL ...)
; compiling (DEFINE-SYMBOL-MACRO MY-SYMBOL-MACRO ...)
; compiling (DEFTEST VARIABLE-INFO.SYMBOL-MACRO/GLOBAL ...)
; compiling (DEFTEST VARIABLE-INFO.UNDEFINED ...)
; compiling (DECLAIM (GLOBAL THIS-IS-GLOBAL))
; compiling (DEFTEST GLOBAL-VARIABLE ...)
; compiling (DEFGLOBAL THIS-IS-GLOBAL-TOO ...)
; compiling (DEFTEST GLOBAL-VARIABLE.2 ...)
; compiling (SB-ALIEN:DEFINE-ALIEN-VARIABLE "errno" ...)
; compiling (DEFTEST ALIEN-VARIABLE ...)
; compiling (DEFMACRO FUN-INFO ...)
; compiling (DEFUN MY-GLOBAL-FUN ...)
; compiling (DEFTEST FUNCTION-INFO.GLOBAL/NO-FTYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MY-GLOBAL-FUN-2 ...)
; compiling (DEFTEST FUNCTION-INFO.GLOBAL/FTYPE ...)
; compiling (DEFMACRO MY-MACRO ...)
; compiling (DEFTEST FUNCTION-INFO.MACRO ...)
; compiling (DEFTEST FUNCTION-INFO.MACROLET ...)
; compiling (DEFTEST FUNCTION-INFO.SPECIAL-FORM ...)
; compiling (DEFTEST FUNCTION-INFO.NOTINLINE/LOCAL ...)
; compiling (DECLAIM (NOTINLINE MY-NOTINLINE))
; compiling (DEFUN MY-NOTINLINE ...)
; compiling (DEFTEST FUNCTION-INFO.NOTINLINE/GLOBAL ...)
; compiling (DECLAIM (INLINE MY-INLINE))
; compiling (DEFUN MY-INLINE ...)
; compiling (DEFTEST FUNCTION-INFO.INLINE/GLOBAL ...)
; compiling (DEFTEST FUNCTION-INFORMATION.KNOWN-INLINE ...)
; compiling (DEFTEST FUNCTION-INFORMATION.FTYPE ...)
; compiling (DEFMACRO CT ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE1 ...)
; compiling (DEFVAR *FOO*)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE2 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE3 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL1 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL12 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL13 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL.MASK ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.IGNORE ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.FUNCTION ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.MACRO ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.SYMBOL-MACRO ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.MACRO2 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.NEST ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.NEST2 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.SYMBOL-MACRO-VAR ...)
; compiling (DEFMACRO THIRD-VALUE ...)
; compiling (DEFTEST DEFINE-DECLARATION.DECLARE ...)
; compiling (DEFTEST DEFINE-DECLARATION.DECLARE2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIAL ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIAL2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MACROMASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MACROMASK2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MASK2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIALMASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.LEXICAL ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.LEXICAL2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.MASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.MASK2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION2 ...)
; compiling (DEFTEST MACROEXPAND-ALL.SPECIAL-BINDING ...)
; compiling (DEFTEST MACROEXPAND-ALL.SYMBOL-MACRO-SHADOWED ...)

; SYS:CONTRIB;SB-CLTL2;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.634
Doing 113 pending tests of 113 tests total.
 SB-CLTL2-TESTS::COMPILER-LET.1 SB-CLTL2-TESTS::MACROEXPAND-ALL.1
 SB-CLTL2-TESTS::MACROEXPAND-ALL.2 SB-CLTL2-TESTS::MACROEXPAND-ALL.3
 SB-CLTL2-TESTS::MACROEXPAND-ALL.4 SB-CLTL2-TESTS::MACROEXPAND-ALL.5
 SB-CLTL2-TESTS::MACROEXPAND-ALL.6 SB-CLTL2-TESTS::MACROEXPAND-ALL.7
 SB-CLTL2-TESTS::MACROEXPAND-ALL.8 SB-CLTL2-TESTS::MACROEXPAND-ALL.9
 SB-CLTL2-TESTS::MACROEXPAND-ALL.10 SB-CLTL2-TESTS::MACROEXPAND-ALL.11
 SB-CLTL2-TESTS::MACROEXPAND-ALL.12 SB-CLTL2-TESTS::MACROEXPAND-ALL.13
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DECLARATION
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND/EXTRA-DECL
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/BOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/BOUND/EXTRA-DECL
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/UNBOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/BOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/SHADOWED
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/SHADOWS-LEXICAL
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE.2
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE.3
 SB-CLTL2-TESTS::VARIABLE-INFO.IGNORE
 SB-CLTL2-TESTS::VARIABLE-INFO.SYMBOL-MACRO/LOCAL
 SB-CLTL2-TESTS::VARIABLE-INFO.SYMBOL-MACRO/GLOBAL
 SB-CLTL2-TESTS::VARIABLE-INFO.UNDEFINED SB-CLTL2-TESTS::GLOBAL-VARIABLE
 SB-CLTL2-TESTS::GLOBAL-VARIABLE.2 SB-CLTL2-TESTS::ALIEN-VARIABLE
 SB-CLTL2-TESTS::FUNCTION-INFO.GLOBAL/NO-FTYPE
 SB-CLTL2-TESTS::FUNCTION-INFO.GLOBAL/FTYPE SB-CLTL2-TESTS::FUNCTION-INFO.MACRO
 SB-CLTL2-TESTS::FUNCTION-INFO.MACROLET
 SB-CLTL2-TESTS::FUNCTION-INFO.SPECIAL-FORM
 SB-CLTL2-TESTS::FUNCTION-INFO.NOTINLINE/LOCAL
 SB-CLTL2-TESTS::FUNCTION-INFO.NOTINLINE/GLOBAL
 SB-CLTL2-TESTS::FUNCTION-INFO.INLINE/GLOBAL
 SB-CLTL2-TESTS::FUNCTION-INFORMATION.KNOWN-INLINE
 SB-CLTL2-TESTS::FUNCTION-INFORMATION.FTYPE
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE1
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE2
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE3
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL1
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL12
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL13
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL.MASK
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.IGNORE
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.FUNCTION
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.MACRO
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.SYMBOL-MACRO
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.MACRO2
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.NEST
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.NEST2
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.SYMBOL-MACRO-VAR
 SB-CLTL2-TESTS::DEFINE-DECLARATION.DECLARE
 SB-CLTL2-TESTS::DEFINE-DECLARATION.DECLARE2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIAL
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIAL2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MACROMASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MACROMASK2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MASK2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIALMASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.LEXICAL
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.LEXICAL2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.MASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.MASK2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION2
 SB-CLTL2-TESTS::MACROEXPAND-ALL.SPECIAL-BINDING
 SB-CLTL2-TESTS::MACROEXPAND-ALL.SYMBOL-MACRO-SHADOWED
No tests failed.; in: LAMBDA ()
;     (SB-CLTL2-TESTS::FOO
;      (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY)
;                   (PUSH SB-CLTL2-TESTS::KEY SB-CLTL2-TESTS::*EXPANSIONS*)
;                   SB-CLTL2-TESTS::KEY))
;        (SB-CLTL2-TESTS::FOO 1)))
; ==>
;   (SB-CLTL2-TESTS::BAR
;    (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY)
;                 (LET* #
;                   #)
;                 SB-CLTL2-TESTS::KEY))
;      1))
; 
; caught STYLE-WARNING:
;   undefined function: SB-CLTL2-TESTS::BAR
; 
; compilation unit finished
;   Undefined function:
;     SB-CLTL2-TESTS::BAR
;   caught 1 STYLE-WARNING condition

* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-concurrency")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-concurrency/module-setup.lisp" (written 11 JUN 2015 07:45:22 AM):
; compiling (PROVIDE :SB-CONCURRENCY)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-concurrency/module-setup.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-CONCURRENCY ...)

; SYS:CONTRIB;SB-CONCURRENCY;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.016
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/gate.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFSTRUCT (GATE # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-GATE ...)
; compiling (DEFUN OPEN-GATE ...)
; compiling (DEFUN CLOSE-GATE ...)
; compiling (DEFUN WAIT-ON-GATE ...)
; compiling (DEFUN GATE-OPEN-P ...)

; SYS:CONTRIB;SB-CONCURRENCY;GATE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.540
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/queue.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFCONSTANT +DUMMY+ ...)
; compiling (DEFCONSTANT +DEAD-END+ ...)
; compiling (DECLAIM (INLINE %MAKE-QUEUE))
; compiling (DEFSTRUCT (QUEUE # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN MAKE-QUEUE ...)
; compiling (DEFUN ENQUEUE ...)
; compiling (DEFUN DEQUEUE ...)
; compiling (DEFUN TRY-WALK-QUEUE ...)
; compiling (DEFUN LIST-QUEUE-CONTENTS ...)
; compiling (DEFUN QUEUE-COUNT ...)
; compiling (DEFUN QUEUE-EMPTY-P ...)

; SYS:CONTRIB;SB-CONCURRENCY;QUEUE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.293
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/mailbox.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFSTRUCT (MAILBOX # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN MAKE-MAILBOX ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MAILBOX-COUNT ...)
; compiling (DEFUN MAILBOX-EMPTY-P ...)
; compiling (DEFUN LIST-MAILBOX-MESSAGES ...)
; compiling (DEFUN SEND-MESSAGE ...)
; compiling (DEFUN RECEIVE-MESSAGE ...)
; compiling (DEFUN RECEIVE-MESSAGE-NO-HANG ...)
; compiling (DEFUN RECEIVE-PENDING-MESSAGES ...)

; SYS:CONTRIB;SB-CONCURRENCY;MAILBOX-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.601
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/frlock.lisp" (written 11 JUN 2015 06:59:01 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFSTRUCT (FRLOCK # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DECLAIM (INLINE MAKE-FRLOCK))
; compiling (DEFUN MAKE-FRLOCK ...)
; compiling (DECLAIM (INLINE FRLOCK-READ-BEGIN))
; compiling (DEFUN FRLOCK-READ-BEGIN ...)
; compiling (DECLAIM (INLINE FRLOCK-READ-END))
; compiling (DEFUN FRLOCK-READ-END ...)
; compiling (DEFMACRO FRLOCK-READ ...)
; compiling (DEFUN %%GRAB-FRLOCK-WRITE-LOCK ...)
; compiling (DECLAIM (INLINE %GRAB-FRLOCK-WRITE-LOCK))
; compiling (DEFUN %GRAB-FRLOCK-WRITE-LOCK ...)
; compiling (DECLAIM (INLINE GRAB-FRLOCK-WRITE-LOCK))
; compiling (DEFUN GRAB-FRLOCK-WRITE-LOCK ...)
; compiling (DECLAIM (INLINE RELEASE-FRLOCK-WRITE-LOCK))
; compiling (DEFUN RELEASE-FRLOCK-WRITE-LOCK ...)
; compiling (DEFMACRO FRLOCK-WRITE ...)

; SYS:CONTRIB;SB-CONCURRENCY;FRLOCK-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.841
* echo "(defsystem :sb-concurrency :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-concurrency.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-concurrency")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :SB-CONCURRENCY-TEST ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.014
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-utils.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-UTILS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-frlock.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFMACRO DEFTEST* ...)
; compiling (DEFVAR *MINIMUM-SLEEP* ...)
; compiling (DEFUN TEST-FRLOCKS ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-FRLOCK-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.513
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-queue.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFTEST QUEUE.1 ...)
; compiling (DEFTEST QUEUE.2 ...)
; compiling (DEFTEST QUEUE.3 ...)
; compiling (DEFTEST QUEUE.4 ...)
; compiling (DEFTEST QUEUE.5 ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-QUEUE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.026
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-mailbox.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFTEST MAILBOX-TRIVIA.1 ...)
; compiling (DEFTEST MAILBOX-TRIVIA.2 ...)
; compiling (DEFTEST MAILBOX-TRIVIA.3 ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-MAILBOX-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-gate.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFTEST GATE.0 ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-GATE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.016
Doing 9 pending tests of 9 tests total.
 SB-CONCURRENCY-TEST::QUEUE.1 SB-CONCURRENCY-TEST::QUEUE.2
 SB-CONCURRENCY-TEST::QUEUE.3 SB-CONCURRENCY-TEST::QUEUE.4
 SB-CONCURRENCY-TEST::QUEUE.5 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.1
 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.2 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.3
 SB-CONCURRENCY-TEST::GATE.0
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cover'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-cover")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-cover/module-setup.lisp" (written 11 JUN 2015 07:45:36 AM):
; compiling (PROVIDE :SB-COVER)
; compiling (REQUIRE :SB-MD5)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/module-setup.fasl written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-ROTATE-BYTE" ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/compiler.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFKNOWN ROTATE-BYTE ...)
; compiling (DEFKNOWN %ROTATE-BYTE ...)
; compiling (DEFKNOWN %UNSIGNED-32-ROTATE-BYTE ...)
; compiling (DEFINE-SOURCE-TRANSFORM ROTATE-BYTE ...)
; compiling (DEFOPTIMIZER (%ROTATE-BYTE DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %ROTATE-BYTE ...)
; compiling (DEFTRANSFORM %ROTATE-BYTE ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;COMPILER-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.229
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/arm-vm.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE/C) ...)
; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE-FIXNUM/C) ...)
; compiling (DEF %32BIT-ROTATE-BYTE ...)
; compiling (DEF %32BIT-ROTATE-BYTE-FIXNUM ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;ARM-VM-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.466
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/rotate-byte.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFUN ROTATE-BYTE ...)
; compiling (DEFUN %ROTATE-BYTE ...)
; compiling (DEFUN %UNSIGNED-32-ROTATE-BYTE ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;ROTATE-BYTE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.080
; compiling file "/«PKGBUILDDIR»/contrib/sb-md5/md5.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-MD5 ...)
; compiling (IN-PACKAGE :SB-MD5)
; compiling (DEFTYPE UB32 ...)
; compiling (DEFMACRO ASSEMBLE-UB32 ...)
; compiling (DECLAIM (INLINE F ...) ...)
; compiling (DEFUN F ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN F
;     (DEFUN SB-MD5::F (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y) (LOGANDC1 SB-MD5::X SB-MD5::Z)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::F
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::F
;         (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y) (LOGANDC1 SB-MD5::X SB-MD5::Z))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN G ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN G
;     (DEFUN SB-MD5::G (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z) (LOGANDC2 SB-MD5::Y SB-MD5::Z)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::G
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::G
;         (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z) (LOGANDC2 SB-MD5::Y SB-MD5::Z))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN H ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN H
;     (DEFUN SB-MD5::H (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::H
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::H (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN I ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN I
;     (DEFUN SB-MD5::I (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LDB (BYTE 32 0) (LOGXOR SB-MD5::Y (LOGORC2 SB-MD5::X SB-MD5::Z))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::I
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::I
;         (LDB (BYTE 32 0) (LOGXOR SB-MD5::Y (LOGORC2 SB-MD5::X SB-MD5::Z)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE MOD32+) ...)
; compiling (DEFUN MOD32+ ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN MOD32+
;     (DEFUN SB-MD5::MOD32+ (SB-MD5::A SB-MD5::B)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::MOD32+
;         (SB-MD5::A SB-MD5::B)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::MOD32+ (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-COMPILER-MACRO MOD32+ ...)
; compiling (DECLAIM (INLINE ROL32) ...)
; compiling (DEFUN ROL32 ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN ROL32
;     (DEFUN SB-MD5::ROL32 (SB-MD5::A SB-MD5::S)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A)
;                (TYPE (UNSIGNED-BYTE 5) SB-MD5::S)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0) SB-MD5::A))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::ROL32
;         (SB-MD5::A SB-MD5::S)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A)
;                (TYPE (UNSIGNED-BYTE 5) SB-MD5::S)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::ROL32
;         (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0) SB-MD5::A)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFPARAMETER *T* ...)
; compiling (DEFMACRO WITH-MD5-ROUND ...)
; compiling (DEFTYPE MD5-REGS ...)
; compiling (DEFMACRO MD5-REGS-A ...)
; compiling (DEFMACRO MD5-REGS-B ...)
; compiling (DEFMACRO MD5-REGS-C ...)
; compiling (DEFMACRO MD5-REGS-D ...)
; compiling (DEFCONSTANT +MD5-MAGIC-A+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-B+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-C+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-D+ ...)
; compiling (DECLAIM (INLINE INITIAL-MD5-REGS))
; compiling (DEFUN INITIAL-MD5-REGS ...)
; compiling (DEFUN UPDATE-MD5-BLOCK ...)
; compiling (DECLAIM (INLINE FILL-BLOCK ...))
; compiling (DEFUN FILL-BLOCK ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN FILL-BLOCK
;     (DEFUN SB-MD5:FILL-BLOCK (BLOCK SB-MD5::BUFFER SB-MD5::OFFSET)
;       "Convert a complete 64 byte input vector segment into the given 16
;   word MD5 block.  This currently works on (unsigned-byte 8) and
;   character simple-arrays, via the functions `fill-block-ub8' and
;   `fill-block-char' respectively."
;       (DECLARE (TYPE (INTEGER 0 536870847) SB-MD5::OFFSET)
;                (TYPE (SIMPLE-ARRAY SB-MD5::UB32 (16)) BLOCK)
;                (TYPE (SIMPLE-ARRAY * (*)) SB-MD5::BUFFER)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (ETYPECASE SB-MD5::BUFFER
;         ((SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
;          (SB-MD5:FILL-BLOCK-UB8 BLOCK SB-MD5::BUFFER SB-MD5::OFFSET))
;         (SIMPLE-STRING
;          (SB-MD5:FILL-BLOCK-CHAR BLOCK SB-MD5::BUFFER SB-MD5::OFFSET))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5:FILL-BLOCK
;                    (SB-INT:NAMED-LAMBDA SB-MD5:FILL-BLOCK
;                        (BLOCK SB-MD5::BUFFER SB-MD5::OFFSET)
;                      (DECLARE (TYPE (INTEGER 0 536870847) SB-MD5::OFFSET)
;                               (TYPE (SIMPLE-ARRAY SB-MD5::UB32 #) BLOCK)
;                               (TYPE (SIMPLE-ARRAY * #) SB-MD5::BUFFER)
;                               (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0)
;                                (DEBUG 0)))
;                      (BLOCK SB-MD5:FILL-BLOCK
;                        (ETYPECASE SB-MD5::BUFFER (# #) (SIMPLE-STRING #))))
;                    "Convert a complete 64 byte input vector segment into the given 16
; word MD5 block.  This currently works on (unsigned-byte 8) and
; character simple-arrays, via the functions `fill-block-ub8' and
; `fill-block-char' respectively."
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL
;                      (BLOCK SB-MD5::BUFFER SB-MD5::OFFSET)
;                      (DECLARE (TYPE (INTEGER 0 536870847) SB-MD5::OFFSET)
;                               (TYPE (SIMPLE-ARRAY SB-MD5::UB32 #) BLOCK)
;                               (TYPE (SIMPLE-ARRAY * #) SB-MD5::BUFFER)
;                               (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0)
;                                (DEBUG 0)))
;                      (BLOCK SB-MD5:FILL-BLOCK
;                        (ETYPECASE SB-MD5::BUFFER (# #) (SIMPLE-STRING #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB-MD5:FILL-BLOCK-CHAR could not be inlined because no definition for
;   it was seen prior to its first use.
; 
; caught STYLE-WARNING:
;   Call to SB-MD5:FILL-BLOCK-UB8 could not be inlined because no definition for it
;   was seen prior to its first use.

; compiling (DEFUN FILL-BLOCK-UB8 ...)
; compiling (DEFUN FILL-BLOCK-CHAR ...)
; compiling (DECLAIM (INLINE MD5REGS-DIGEST))
; compiling (DEFUN MD5REGS-DIGEST ...); in: LAMBDA (#:WHOLE580 #:ENVIRONMENT581)
;     `(LET ((,SB-MD5::VAR ,SB-MD5::REG))
;        (DECLARE (TYPE SB-MD5::UB32 ,SB-MD5::VAR))
;        (SETF (AREF SB-MD5::RESULT ,SB-MD5::OFFSET) (LDB (BYTE 8 0) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 1))
;                (LDB (BYTE 8 8) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 2))
;                (LDB (BYTE 8 16) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 3))
;                (LDB (BYTE 8 24) ,SB-MD5::VAR)))
; --> SB-IMPL::|List| SB-IMPL::|List| SB-IMPL::|List| 
; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; compiling (DEFSTRUCT (MD5-STATE # ...) ...)
; compiling (DECLAIM (INLINE COPY-TO-BUFFER))
; compiling (DEFUN COPY-TO-BUFFER ...)
; compiling (DEFUN UPDATE-MD5-STATE ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
;     (INCF (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH)
; --> LET* 
; ==>
;   (+ LENGTH (SB-MD5::MD5-STATE-AMOUNT #:STATE818))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

;     (+ (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

; compiling (DEFUN FINALIZE-MD5-STATE ...); in: LAMBDA (#:WHOLE896 #:ENVIRONMENT897)
;     `(LET ((,SB-MD5::VAR ,SB-MD5::REG))
;        (DECLARE (TYPE SB-MD5::UB32 ,SB-MD5::VAR))
;        (SETF (AREF SB-MD5::RESULT ,SB-MD5::OFFSET) (LDB (BYTE 8 0) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 1))
;                (LDB (BYTE 8 8) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 2))
;                (LDB (BYTE 8 16) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 3))
;                (LDB (BYTE 8 24) ,SB-MD5::VAR)))
; --> SB-IMPL::|List| SB-IMPL::|List| SB-IMPL::|List| 
; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
;     (* 8 (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE))
; ==>
;   (ASH SB-C::X 3)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (LDB (BYTE 32 0) SB-MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (LOGAND SB-C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (LDB (BYTE 32 32) SB-MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB-C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

; compiling (DEFUN MD5SUM-SEQUENCE ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN MD5SUM-SEQUENCE
;     (SB-MD5:UPDATE-MD5-STATE SB-MD5::STATE SB-MD5::DATA :START SB-MD5::REAL-START
;      :END (+ SB-MD5::REAL-START (- SB-MD5::END SB-MD5::START)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFUN MD5SUM-STRING ...)
; compiling (DEFCONSTANT +BUFFER-SIZE+ ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFUN MD5SUM-STREAM ...)
; compiling (DEFUN MD5SUM-FILE ...)

; SYS:CONTRIB;SB-MD5;MD5-TMP.FASL.NEWEST written
; compilation finished in 0:00:08.633
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-md5" "md5">
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/cover.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:SB-COVER ...)
; compiling (IN-PACKAGE #:SB-COVER)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SOURCE-PATH-MODE* ...)
; compiling (DEFCLASS SAMPLE-COUNT ...)
; compiling (DEFUN CLEAR-COVERAGE ...)
; compiling (DEFUN RESET-COVERAGE ...)
; compiling (DEFUN SAVE-COVERAGE ...)
; compiling (DEFUN RESTORE-COVERAGE ...)
; compiling (DEFUN SAVE-COVERAGE-IN-FILE ...)
; compiling (DEFUN RESTORE-COVERAGE-FROM-FILE ...)
; compiling (DEFUN PATHNAME-AS-DIRECTORY ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN PERCENT ...)
; compiling (DEFUN REPORT-FILE ...)
; compiling (DEFUN FILL-WITH-STATE ...)
; compiling (DEFUN DETABIFY ...)
; compiling (DEFVAR *COUNTS* ...)
; compiling (DEFUN PRINT-REPORT ...)
; compiling (DEFUN WRITE-STYLES ...)
; compiling (DEFUN CONVERT-RECORDS ...)
; compiling (DEFUN READ-FILE ...)
; compiling (DEFUN MAKE-SOURCE-RECORDER ...)
; compiling (DEFUN MAKE-SOURCE-RECORDING-READTABLE ...)
; compiling (DEFUN MAKE-RECORDING-READ-LIST ...)
; compiling (DEFUN SUPPRESS-SHARP-DOT ...)
; compiling (DEFUN READ-AND-RECORD-SOURCE-MAP ...)
; compiling (DEFUN READ-SOURCE-FORM ...)
; compiling (DEFUN SOURCE-PATH-STREAM-POSITION ...)
; compiling (DEFUN CHECK-SOURCE-PATH ...)
; compiling (DEFUN SOURCE-PATH-STRING-POSITION ...)
; compiling (DEFUN SOURCE-PATH-FILE-POSITION ...)
; compiling (DEFUN SOURCE-PATH-SOURCE-POSITION ...)

; SYS:CONTRIB;SB-COVER;COVER-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.393
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 43 notes
* echo "(defsystem :sb-cover :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cover.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-cover")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE SB-COVER-TEST ...)
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFPARAMETER *SOURCE-DIRECTORY* ...)
; compiling (DEFPARAMETER *OUTPUT-DIRECTORY* ...)
; compiling (SETF *DEFAULT-PATHNAME-DEFAULTS* ...)
; compiling (DEFUN COMPILE-LOAD ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN REPORT-EXPECT-FAILURE ...)
; compiling (COMPILE-LOAD "test-data-1")
; compiling (REPORT-EXPECT-FAILURE)
; compiling (PROCLAIM (QUOTE #))
; compiling (COMPILE-LOAD "test-data-1")
; compiling (CATCH (QUOTE OK) ...)
; compiling (REPORT)
; compiling (ASSERT (PROBE-FILE #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (TEST1)
; compiling (REPORT)
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (= # ...))
; compiling (SB-COVER:RESET-COVERAGE)
; compiling (REPORT)
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (SB-COVER:CLEAR-COVERAGE)
; compiling (REPORT-EXPECT-FAILURE)
; compiling (COMPILE-LOAD "test-data-2")
; compiling (TEST2 1)
; compiling (REPORT)
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (/= # ...))
; compiling (TEST2 0)
; compiling (REPORT)
; compiling (ASSERT (= # ...))
; compiling (COMPILE-LOAD "test-data-3")
; compiling (TEST-2)
; compiling (MAP NIL ...)

; SYS:CONTRIB;SB-COVER;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.328
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-1.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST1 ...)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-1.fasl written
; compilation finished in 0:00:00.013
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-1.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST1 ...)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-1.fasl written
; compilation finished in 0:00:00.015
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-2.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST2 ...)
; compiling (IDENTITY 1)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-2.fasl written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-3.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DECLAIM (OPTIMIZE SB-C:STORE-COVERAGE-DATA))
; compiling (DEFUN TEST-1 ...)
; compiling (DEFUN TEST-2 ...)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-3.fasl written
; compilation finished in 0:00:00.028

((1 3 1)) 
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cover'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-executable'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-executable" "sb-executable") :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/sb-executable/sb-executable.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-EXECUTABLE ...)
; compiling (IN-PACKAGE :SB-EXECUTABLE)
; compiling (DEFVAR *STREAM-BUFFER-SIZE* ...)
; compiling (DEFUN COPY-STREAM ...)
; compiling (DEFVAR *EXEC-HEADER* ...)
; compiling (DEFUN MAKE-EXECUTABLE ...)
; compiling (PROVIDE (QUOTE SB-EXECUTABLE))

; /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.fasl written
; compilation finished in 0:00:00.356
* echo "(defsystem :sb-executable :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.asd
true
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-executable'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-gmp'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-gmp")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-gmp/module-setup.lisp" (written 11 JUN 2015 07:46:00 AM):
; compiling (PROVIDE :SB-GMP)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-gmp/module-setup.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-GMP" ...)
; compiling (IN-PACKAGE "SB-GMP")
; compiling (DEFVAR *GMP-DISABLED* ...)
; compiling (DEFCONSTANT +BIGNUM-RAW-AREA-OFFSET+ ...)
; compiling (DECLAIM (INLINE BIGNUM-DATA-SAP))
; compiling (DEFUN BIGNUM-DATA-SAP ...)
; compiling (DEFUN TRY-LOAD-SHARED-OBJECT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN TRY-LOAD-SHARED-OBJECT
;     (HANDLER-CASE (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T)
;                   (ERROR (SB-GMP::E) NIL))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-9 ()
;            (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T))
;          (#:FUN6 (SB-GMP::E)
;            NIL))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-9) (FUNCTION #:FUN6)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK7
;       (SB-INT:DX-LET ((#:CELL8 #))
;         (DECLARE (IGNORABLE #:CELL8))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG5
;           (RETURN-FROM #:BLOCK7 #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; compiling (DEFUN %LOAD-GMP ...)
; compiling (DEFVAR *GMP-FEATURES* ...)
; compiling (DEFVAR *GMP-VERSION* ...)
; compiling (%LOAD-GMP)
; compiling (DEFINE-ALIEN-TYPE GMP-LIMB ...)
; compiling (DEFTYPE UI ...)
; compiling (DEFTYPE SI ...)
; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DECLAIM (INLINE Z-TO-BIGNUM ...))
; compiling (DEFUN Z-TO-BIGNUM ...)
; compiling (DEFUN Z-TO-BIGNUM-NEG ...)
; compiling (DECLAIM (INLINE GMP-Z-TO-BIGNUM))
; compiling (DEFUN GMP-Z-TO-BIGNUM ...)
; compiling (DECLAIM (INLINE BLENGTH ...) ...)
; compiling (DEFUN BLENGTH ...)
; compiling (DEFUN BASSERT ...)
; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DECLAIM (INLINE __GMPZ_INIT ...))
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_INIT ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_CLEAR ...)
; compiling (DEFMACRO DEFINE-TWOARG-MPZ-FUNS ...)
; compiling (DEFMACRO DEFINE-THREEARG-MPZ-FUNS ...)
; compiling (DEFMACRO DEFINE-FOURARG-MPZ-FUNS ...)
; compiling (DEFINE-TWOARG-MPZ-FUNS (__GMPZ_SQRT __GMPZ_NEXTPRIME))
; compiling (DEFINE-THREEARG-MPZ-FUNS (__GMPZ_ADD __GMPZ_SUB ...))
; compiling (DEFINE-FOURARG-MPZ-FUNS (__GMPZ_CDIV_QR __GMPZ_FDIV_QR ...))
; compiling (DECLAIM (INLINE __GMPZ_MUL_2EXP ...))
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_MUL_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FDIV_Q_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_POW_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_PROBAB_PRIME_P ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FAC_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_2FAC_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_MFAC_UIUI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_PRIMORIAL_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_REMOVE ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_BIN_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FIB2_UI ...)
; compiling (DEFMACRO DEFINE-THREEARG-MPQ-FUNS ...)
; compiling (DEFINE-THREEARG-MPQ-FUNS (__GMPQ_ADD __GMPQ_SUB ...))
; compiling (DEFMACRO WITH-MPZ-RESULTS ...)
; compiling (DEFMACRO WITH-MPZ-VARS ...)
; compiling (DEFMACRO WITH-GMP-MPZ-RESULTS ...)
; compiling (DEFMACRO DEFGMPFUN ...)
; compiling (DEFGMPFUN MPZ-ADD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-ADD
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_ADD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-SUB ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-SUB
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_SUB (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-MUL
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_MUL (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-MUL-2EXP ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-MUL-2EXP
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_MUL_2EXP (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA) SB-GMP::B))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-MOD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-MOD
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_MOD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB))
;       (WHEN
;           (AND (MINUSP (SLOT SB-GMP::GB 'SB-GMP::MP_SIZE))
;                (/= 0 (SLOT SB-GMP::RESULT 'SB-GMP::MP_SIZE)))
;         (SB-GMP::__GMPZ_ADD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::RESULT)
;          (ADDR SB-GMP::GB))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (/= 0 (SLOT SB-GMP::RESULT 'SB-GMP::MP_SIZE))
; --> IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-CDIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-CDIV
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::D SB-GMP::GD))
;       (SB-GMP::__GMPZ_CDIV_QR (ADDR SB-GMP::QUOT) (ADDR REM) (ADDR SB-GMP::GN)
;        (ADDR SB-GMP::GD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FDIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FDIV
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::D SB-GMP::GD))
;       (SB-GMP::__GMPZ_FDIV_QR (ADDR SB-GMP::QUOT) (ADDR REM) (ADDR SB-GMP::GN)
;        (ADDR SB-GMP::GD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FDIV-2EXP ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FDIV-2EXP
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_FDIV_Q_2EXP (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        SB-GMP::B))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-TDIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-TDIV
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::D SB-GMP::GD))
;       (SB-GMP::__GMPZ_TDIV_QR (ADDR SB-GMP::QUOT) (ADDR REM) (ADDR SB-GMP::GN)
;        (ADDR SB-GMP::GD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-POW ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-POW
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::ROP)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::BASE SB-GMP::GBASE))
;         (SB-GMP::__GMPZ_POW_UI (ADDR SB-GMP::ROP) (ADDR SB-GMP::GBASE) EXP)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::ROP 'SB-GMP::MP_D) #:RESULT3355
;          #:SIZE3356)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::BASE SB-GMP::GBASE))
;       (SB-GMP::__GMPZ_POW_UI (ADDR SB-GMP::ROP) (ADDR SB-GMP::GBASE) EXP))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-POWM ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-POWM
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::BASE SB-GMP::GBASE) (EXP SB-GMP::GEXP)
;                             (MOD SB-GMP::GMOD))
;       (SB-GMP::__GMPZ_POWM (ADDR SB-GMP::ROP) (ADDR SB-GMP::GBASE)
;        (ADDR SB-GMP::GEXP) (ADDR SB-GMP::GMOD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-GCD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-GCD
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_GCD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-LCM ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-LCM
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_LCM (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-SQRT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-SQRT
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_SQRT (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN MPZ-PROBABLY-PRIME-P ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN MPZ-PROBABLY-PRIME-P
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;       (SB-GMP::__GMPZ_PROBAB_PRIME_P (ADDR SB-GMP::GN) SB-GMP::REPS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (DEFUN SB-GMP:MPZ-PROBABLY-PRIME-P (SB-GMP::N &OPTIONAL (SB-GMP::REPS 25))
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::REPS))
;       (CHECK-TYPE SB-GMP::REPS FIXNUM)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;         (SB-GMP::__GMPZ_PROBAB_PRIME_P (ADDR SB-GMP::GN) SB-GMP::REPS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-GMP:MPZ-PROBABLY-PRIME-P
;         (SB-GMP::N &OPTIONAL (SB-GMP::REPS 25))
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::REPS))
;       (BLOCK SB-GMP:MPZ-PROBABLY-PRIME-P
;         (CHECK-TYPE SB-GMP::REPS FIXNUM)
;         (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;           (SB-GMP::__GMPZ_PROBAB_PRIME_P (ADDR SB-GMP::GN) SB-GMP::REPS))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFGMPFUN MPZ-NEXTPRIME ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-NEXTPRIME
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::PRIME)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;         (SB-GMP::__GMPZ_NEXTPRIME (ADDR SB-GMP::PRIME) (ADDR SB-GMP::GA))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::PRIME 'SB-GMP::MP_D)
;          #:RESULT4168 #:SIZE4169)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_NEXTPRIME (ADDR SB-GMP::PRIME) (ADDR SB-GMP::GA)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FAC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FAC
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC)
;       (SB-GMP::__GMPZ_FAC_UI (ADDR SB-GMP::FAC) SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4270
;          #:SIZE4271)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN %MPZ-2FAC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN %MPZ-2FAC
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC)
;       (SB-GMP::__GMPZ_2FAC_UI (ADDR SB-GMP::FAC) SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4327
;          #:SIZE4328)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN %MPZ-MFAC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN %MPZ-MFAC
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC)
;       (SB-GMP::__GMPZ_MFAC_UIUI (ADDR SB-GMP::FAC) SB-GMP::N SB-GMP::M))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4387
;          #:SIZE4388)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN %MPZ-PRIMORIAL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN %MPZ-PRIMORIAL
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::__GMPZ_PRIMORIAL_UI (ADDR SB-GMP::R) SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4446
;          #:SIZE4447)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN MPZ-REMOVE-5.1 ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-REMOVE-5.1
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;         (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4505
;          #:SIZE4506)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CHECK-TYPE SB-GMP::F UNSIGNED-BYTE "handled by GMP prior to version 5.1")
; --> DO BLOCK LET TAGBODY UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND IF 
; --> AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;         (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4505
;          #:SIZE4506)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;       (SETF SB-GMP::C
;               (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN)
;                (ADDR SB-GMP::GF))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-GMP::DEFGMPFUN SB-GMP::MPZ-REMOVE-5.1
;         (SB-GMP::N SB-GMP::F)
;       (CHECK-TYPE SB-GMP::F UNSIGNED-BYTE "handled by GMP prior to version 5.1")
;       (LET* ((SB-GMP::C 0)
;              (SB-GMP::RES
;               (SB-GMP::WITH-GMP-MPZ-RESULTS #
;                 #)))
;         (VALUES SB-GMP::RES SB-GMP::C)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-GMP::MPZ-REMOVE-5.1
;         (SB-GMP::N SB-GMP::F)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::F))
;       (BLOCK SB-GMP::MPZ-REMOVE-5.1
;         (CHECK-TYPE SB-GMP::F UNSIGNED-BYTE
;                     "handled by GMP prior to version 5.1")
;         (LET* ((SB-GMP::C 0) (SB-GMP::RES #))
;           (VALUES SB-GMP::RES SB-GMP::C))))
; 
; note: doing unsigned word to integer coercion (cost 20) from C to "<return value>"

; compiling (DEFGMPFUN MPZ-REMOVE ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-REMOVE
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;         (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4648
;          #:SIZE4649)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;       (SETF SB-GMP::C
;               (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN)
;                (ADDR SB-GMP::GF))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-GMP::DEFGMPFUN SB-GMP:MPZ-REMOVE
;         (SB-GMP::N SB-GMP::F)
;       (LET* ((SB-GMP::C 0)
;              (SB-GMP::RES
;               (SB-GMP::WITH-GMP-MPZ-RESULTS #
;                 #)))
;         (VALUES SB-GMP::RES SB-GMP::C)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-GMP:MPZ-REMOVE
;         (SB-GMP::N SB-GMP::F)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::F))
;       (BLOCK SB-GMP:MPZ-REMOVE
;         (LET* ((SB-GMP::C 0) (SB-GMP::RES #))
;           (VALUES SB-GMP::RES SB-GMP::C))))
; 
; note: doing unsigned word to integer coercion (cost 20) from C to "<return value>"

; compiling (DEFUN SETUP-5.1-STUBS ...)
; compiling (DEFGMPFUN MPZ-BIN ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-BIN
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;         (SB-GMP::__GMPZ_BIN_UI (ADDR SB-GMP::R) (ADDR SB-GMP::GN) SB-GMP::K)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4858
;          #:SIZE4859)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;       (SB-GMP::__GMPZ_BIN_UI (ADDR SB-GMP::R) (ADDR SB-GMP::GN) SB-GMP::K))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FIB2 ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FIB2
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FIBN SB-GMP::FIBN-1)
;       (SB-GMP::__GMPZ_FIB2_UI (ADDR SB-GMP::FIBN) (ADDR SB-GMP::FIBN-1)
;        SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET LET 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN 'SB-GMP::MP_D) #:RESULT4962
;          #:SIZE4963)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN-1 'SB-GMP::MP_D)
;          #:RESULT4964 #:SIZE4965)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET ABS IF 
; --> - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET LET 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN 'SB-GMP::MP_D) #:RESULT4962
;          #:SIZE4963)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN-1 'SB-GMP::MP_D)
;          #:RESULT4964 #:SIZE4965)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET ABS IF 
; --> - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of static-fun %Negate
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of static-fun %Negate

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET ABS IF 
; ==>
;   SB-C::X
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DECLAIM (INLINE __GMP_RANDINIT_MT ...))
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDINIT_MT ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDINIT_LC_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDSEED ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDSEED_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_URANDOMB ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_URANDOMM ...)
; compiling (DEFSTRUCT (GMP-RSTATE #) ...)
; compiling (DECLAIM (SB-EXT:MAYBE-INLINE MAKE-GMP-RSTATE ...))
; compiling (DEFUN MAKE-GMP-RSTATE ...)
; compiling (DEFUN MAKE-GMP-RSTATE-LC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN MAKE-GMP-RSTATE-LC
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMP_RANDINIT_LC_2EXP SB-GMP::REF (ADDR SB-GMP::GA) SB-GMP::C
;        SB-GMP::M2EXP))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN RAND-SEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN RAND-SEED
;     (TYPEP SB-GMP::SEED '(INTEGER 0 *))
; --> LET SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 4294967296)), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 4294967296)), not a FIXNUM.
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::SEED SB-GMP::GSEED))
;       (SB-GMP::__GMP_RANDSEED SB-GMP::REF (ADDR SB-GMP::GSEED)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN RANDOM-BITCOUNT ...)
; compiling (DEFUN RANDOM-INT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN RANDOM-INT
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_URANDOMM (ADDR SB-GMP::RESULT) SB-GMP::REF
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DECLAIM (INLINE %LSIZE))
; compiling (DEFUN %LSIZE ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN %LSIZE
;     (ZEROP (SB-BIGNUM:%BIGNUM-REF SB-GMP::N (1- LENGTH)))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMACRO WITH-MPQ-VAR ...)
; compiling (DEFMACRO DEFMPQFUN ...)
; compiling (DEFMPQFUN MPQ-ADD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-ADD
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-ADD SB-GMP::__GMPQ_ADD)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMPQFUN MPQ-SUB ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-SUB
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-SUB SB-GMP::__GMPQ_SUB)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMPQFUN MPQ-MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-MUL
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-MUL SB-GMP::__GMPQ_MUL)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMPQFUN MPQ-DIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-DIV
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-DIV SB-GMP::__GMPQ_DIV)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEF ORIG-MUL ...)
; compiling (DEF ORIG-TRUNCATE ...)
; compiling (DEF ORIG-GCD ...)
; compiling (DEF ORIG-LCM ...)
; compiling (DEF ORIG-ISQRT ...)
; compiling (DEF ORIG-TWO-ARG-+ ...)
; compiling (DEF ORIG-TWO-ARG-- ...)
; compiling (DEF ORIG-TWO-ARG-* ...)
; compiling (DEF ORIG-TWO-ARG-/ ...)
; compiling (DEF ORIG-INTEXP ...)
; compiling (DEFUN GMP-MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-MUL
;     (SB-GMP:MPZ-MUL SB-GMP::A SB-GMP::B)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TRUNCATE ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TRUNCATE
;     (SB-GMP:MPZ-TDIV SB-GMP::A SB-GMP::B)
; --> BLOCK LET SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> PROGN SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; --> SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-LCM ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-LCM
;     (SB-GMP:MPZ-LCM SB-GMP::A SB-GMP::B)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-ISQRT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-ISQRT
;     (DEFUN SB-GMP::GMP-ISQRT (SB-GMP::N)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3))
;                (TYPE UNSIGNED-BYTE SB-GMP::N)
;                (INLINE SB-GMP:MPZ-SQRT))
;       (IF (OR (TYPEP SB-GMP::N 'FIXNUM) SB-GMP:*GMP-DISABLED*)
;           (SB-GMP::ORIG-ISQRT SB-GMP::N)
;           (SB-GMP:MPZ-SQRT SB-GMP::N)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (SB-GMP:MPZ-SQRT SB-GMP::N)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-+ ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG-+
;     (SB-GMP:MPQ-ADD SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-- ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG--
;     (SB-GMP:MPQ-SUB SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-* ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG-*
;     (SB-GMP:MPQ-MUL SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-/ ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG-/
;     (SB-GMP:MPQ-DIV SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-INTEXP ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-INTEXP
;     (SB-GMP:MPZ-POW SB-GMP::BASE SB-GMP::POWER)
; --> BLOCK SB-GMP::WITH-GMP-MPZ-RESULTS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET LET 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::ROP 'SB-GMP::MP_D) #:RESULT9203
;          #:SIZE9204)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP:MPZ-MUL-2EXP 1 SB-GMP::POWER)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-GMP:MPZ-POW SB-GMP::BASE SB-GMP::POWER)
; --> BLOCK SB-GMP::WITH-GMP-MPZ-RESULTS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; --> SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN INSTALL-GMP-FUNS ...)
; compiling (DEFUN UNINSTALL-GMP-FUNS ...)
; compiling (DEFUN LOAD-GMP ...)
; compiling (DEFUN UNLOAD-GMP ...)
; compiling (LOAD-GMP)

; SYS:CONTRIB;SB-GMP;GMP-TMP.FASL.NEWEST written
; compilation finished in 0:00:23.653
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-gmp" "sb-gmp" "gmp">
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 138 notes
* echo "(defsystem :sb-gmp :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-gmp.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-gmp")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-gmp/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-GMP-TESTS" ...)
; compiling (IN-PACKAGE "SB-GMP-TESTS")
; compiling (DEFPARAMETER *STATE* ...)
; compiling (RAND-SEED *STATE* ...)
; compiling (DEFMACRO DEFGENERATOR ...)
; compiling (DEFGENERATOR GEN-MPZ ...)
; compiling (DEFUN GEN-MPQ ...)
; compiling (DEFUN MAYBE-APPLY ...)
; compiling (DEFUN TEST-ONE-CASE ...)
; compiling (DEFVAR *ITERATION-COUNT* ...)
; compiling (DEFUN TEST-N-CASES ...)
; compiling (DEFMACRO DEFINE-GMP-TEST ...)
; compiling (DEFINE-GMP-TEST (MPZ-ADD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-SUB :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-MUL :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-TDIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-FDIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-CDIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-GCD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-LCM :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (ISQRT :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-MOD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-POW :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-POWM :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (SIGN-CONVERSION) ...)
; compiling (DEFINE-GMP-TEST (TRUNCATE-1) ...)
; compiling (DEFINE-GMP-TEST (TRUNCATE-2) ...)
; compiling (DEFUN FAC ...)
; compiling (DEFINE-GMP-TEST (FAC1) ...)
; compiling (DEFINE-GMP-TEST (FAC2) ...)
; compiling (DEFINE-GMP-TEST (POW1) ...)
; compiling (DEFINE-GMP-TEST (POW2) ...)
; compiling (DEFTEST REMOVE-1 ...)
; compiling (DEFTEST REMOVE-2 ...)
; compiling (DEFTEST REMOVE-3 ...)
; compiling (DEFTEST FIB ...)
; compiling (DEFTEST BINOMIAL ...)
; compiling (DEFINE-GMP-TEST (MPZ-NEXTPRIME :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-ADD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-SUB :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-MUL :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-DIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (ADD-1) ...)
; compiling (DEFINE-GMP-TEST (MOD-1) ...)

; SYS:CONTRIB;SB-GMP;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:11.360
Doing 31 pending tests of 31 tests total.
 SB-GMP:MPZ-ADD SB-GMP:MPZ-SUB SB-GMP:MPZ-MUL SB-GMP:MPZ-TDIV SB-GMP:MPZ-FDIV
 SB-GMP:MPZ-CDIV SB-GMP:MPZ-GCD SB-GMP:MPZ-LCM ISQRT SB-GMP:MPZ-MOD
 SB-GMP:MPZ-POW SB-GMP:MPZ-POWM SB-GMP-TESTS::SIGN-CONVERSION
 SB-GMP-TESTS::TRUNCATE-1 SB-GMP-TESTS::TRUNCATE-2 SB-GMP-TESTS::FAC1
 SB-GMP-TESTS::FAC2 SB-GMP-TESTS::POW1 SB-GMP-TESTS::POW2 SB-GMP-TESTS::REMOVE-1
 SB-GMP-TESTS::REMOVE-2 SB-GMP-TESTS::REMOVE-3 SB-GMP-TESTS::FIB
 SB-GMP-TESTS::BINOMIAL SB-GMP:MPZ-NEXTPRIME SB-GMP:MPQ-ADD SB-GMP:MPQ-SUB
 SB-GMP:MPQ-MUL SB-GMP:MPQ-DIV SB-GMP-TESTS::ADD-1 SB-GMP-TESTS::MOD-1
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-gmp'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-grovel'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-grovel")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-grovel/module-setup.lisp" (written 11 JUN 2015 07:46:54 AM):
; compiling (PROVIDE :SB-GROVEL)
; compiling (REQUIRE :ASDF)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-grovel/module-setup.fasl written
; compilation finished in 0:00:00.006
* echo "(defsystem :sb-grovel :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-grovel.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-grovel")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-grovel'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-introspect'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-introspect")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-introspect/module-setup.lisp" (written 11 JUN 2015 07:47:04 AM):
; compiling (PROVIDE :SB-INTROSPECT)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-introspect/module-setup.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/introspect.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-INTROSPECT ...)
; compiling (IN-PACKAGE :SB-INTROSPECT)
; compiling (DEFTYPE DEBUG-INFO ...)
; compiling (DEFTYPE DEBUG-SOURCE ...)
; compiling (DEFTYPE DEBUG-FUNCTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-DEBUG-INFO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-DEBUG-SOURCE ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/introspect.lisp
; in: DEFUN FUNCTION-DEBUG-SOURCE
;     (DEFUN SB-INTROSPECT::FUNCTION-DEBUG-SOURCE (FUNCTION)
;       (SB-INTROSPECT::DEBUG-INFO-SOURCE
;        (SB-INTROSPECT::FUNCTION-DEBUG-INFO FUNCTION)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-INTROSPECT::FUNCTION-DEBUG-SOURCE
;         (FUNCTION)
;       (BLOCK SB-INTROSPECT::FUNCTION-DEBUG-SOURCE
;         (SB-INTROSPECT::DEBUG-INFO-SOURCE
;          (SB-INTROSPECT::FUNCTION-DEBUG-INFO FUNCTION))))
; 
; note: type assertion too complex to check:
;  (VALUES SB-C::DEBUG-SOURCE &REST T).

; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEBUG-INFO-SOURCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEBUG-INFO-DEBUG-FUNCTION ...)
; compiling (DEFUN VALID-FUNCTION-NAME-P ...)
; compiling (DECLAIM (INLINE MAP-CODE-CONSTANTS))
; compiling (DEFUN MAP-CODE-CONSTANTS ...)
; compiling (DECLAIM (INLINE MAP-ALLOCATED-CODE-COMPONENTS))
; compiling (DEFUN MAP-ALLOCATED-CODE-COMPONENTS ...)
; compiling (DECLAIM (INLINE MAP-CALLER-CODE-COMPONENTS))
; compiling (DEFUN MAP-CALLER-CODE-COMPONENTS ...)
; compiling (DEFSTRUCT DEFINITION-SOURCE ...)
; compiling (DEFUN VOP-SOURCES-FROM-FUN-TEMPLATES ...)
; compiling (DEFUN FIND-VOP-SOURCE ...)
; compiling (DEFUN FIND-DEFINITION-SOURCES-BY-NAME ...)
; compiling (DEFUN FIND-DEFINITION-SOURCE ...)
; compiling (DEFUN FIND-FUNCTION-DEFINITION-SOURCE ...)
; compiling (DEFUN TRANSLATE-SOURCE-LOCATION ...)
; compiling (SB-INT:DEFINE-DEPRECATED-FUNCTION :LATE ...)
; compiling (DEFUN FUNCTION-LAMBDA-LIST ...)
; compiling (DEFUN DEFTYPE-LAMBDA-LIST ...)
; compiling (DEFUN FUNCTION-TYPE ...)
; compiling (DEFUN FIND-FUNCTION-CALLEES ...)
; compiling (DEFUN FIND-FUNCTION-CALLERS ...)
; compiling (DEFUN GET-SIMPLE-FUN ...)
; compiling (DEFUN CALL-WITH-EACH-GLOBAL-FUNCTOID ...)
; compiling (DEFUN COLLECT-XREF ...)
; compiling (DEFUN WHO-CALLS ...)
; compiling (DEFUN WHO-BINDS ...)
; compiling (DEFUN WHO-REFERENCES ...)
; compiling (DEFUN WHO-SETS ...)
; compiling (DEFUN WHO-MACROEXPANDS ...)
; compiling (DEFUN WHO-SPECIALIZES-DIRECTLY ...)
; compiling (DEFUN WHO-SPECIALIZES-GENERALLY ...)
; compiling (DEFUN CANONICALIZE-CLASS-DESIGNATOR ...)
; compiling (DEFUN METHOD-GENERIC-FUNCTION-NAME ...)
; compiling (DEFUN COLLECT-SPECIALIZING-METHODS ...)
; compiling (DEFUN ALLOCATION-INFORMATION ...)
; compiling (DEFUN MAP-ROOT ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/introspect.lisp
; in: DEFUN MAP-ROOT
;     (SB-KERNEL:VALUE-CELL-REF SB-INTROSPECT::OBJECT)
; 
; note: deleting unreachable code

;     (SB-KERNEL:WIDETAG-OF SB-INTROSPECT::OBJECT)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (WARN "~&MAP-ROOT: Unknown widetag ~S: ~S~%"
;           (SB-KERNEL:WIDETAG-OF SB-INTROSPECT::OBJECT) SB-INTROSPECT::OBJECT)
; ==>
;   "~&MAP-ROOT: Unknown widetag ~S: ~S~%"
; 
; note: deleting unreachable code

;     (SB-KERNEL:VALUE-CELL-REF SB-INTROSPECT::OBJECT)
; ==>
;   SB-INTROSPECT::OBJECT
; 
; note: deleting unreachable code


; SYS:CONTRIB;SB-INTROSPECT;INTROSPECT-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.613
; 
; compilation unit finished
;   printed 6 notes
* echo "(defsystem :sb-introspect :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-introspect.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-introspect")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-INTROSPECT-TEST/XREF ...)
; compiling (IN-PACKAGE :SB-INTROSPECT-TEST/XREF)
; compiling (DEFVAR *A* ...)
; compiling (DEFCONSTANT +Z+ ...)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)
; compiling (DEFUN XREF/1 ...)
; compiling (DEFUN XREF/2 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN XREF/2
;     (SB-INTROSPECT-TEST/XREF::XREF/1)
; 
; note: deleting unreachable code

; compiling (LET (#) ...)
; compiling (FLET (#) ...)
; compiling (DEFUN XREF/7 ...)
; compiling (LET (#) ...)
; compiling (DEFVAR *C* ...)
; compiling (DEFUN XREF/8 ...)
; compiling (DEFMETHOD XREF/10 ...)
; compiling (DEFMETHOD XREF/11 ...)
; compiling (DEFMETHOD XREF/11 ...)
; compiling (DECLAIM (INLINE INLINE/1))
; compiling (DEFUN INLINE/1 ...)
; compiling (DEFUN XREF/12 ...)
; compiling (DEFUN XREF/13 ...)
; compiling (DEFUN XREF/14 ...)
; compiling (DEFMACRO MACRO/1 ...)
; compiling (DEFUN MACRO-USE/1 ...)
; compiling (DEFUN MACRO-USE/2 ...)
; compiling (FLET (#) ...)
; compiling (DEFUN MACRO-USE/4 ...)
; compiling (DECLAIM (INLINE INLINE/2))
; compiling (DEFUN INLINE/2 ...)
; compiling (DEFUN MACRO-USE/5 ...)
; compiling (DECLAIM (INLINE INLINE/3))
; compiling (DEFUN INLINE/3 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3
;     (DEFUN SB-INTROSPECT-TEST/XREF::INLINE/3
;            (SB-INTROSPECT-TEST/XREF::A
;             &OPTIONAL SB-INTROSPECT-TEST/XREF::B
;             &KEY SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D)
;       (LIST SB-INTROSPECT-TEST/XREF::A SB-INTROSPECT-TEST/XREF::B
;             SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-INTROSPECT-TEST/XREF::INLINE/3
;         (SB-INTROSPECT-TEST/XREF::A &OPTIONAL SB-INTROSPECT-TEST/XREF::B &KEY
;          SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D)
;       (BLOCK SB-INTROSPECT-TEST/XREF::INLINE/3
;         (LIST SB-INTROSPECT-TEST/XREF::A SB-INTROSPECT-TEST/XREF::B
;               SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/1 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/1
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/2 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/2
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A
;      SB-INTROSPECT-TEST/XREF::B)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/3 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/3
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A
;      SB-INTROSPECT-TEST/XREF::B :C SB-INTROSPECT-TEST/XREF::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/4 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/4
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A
;      SB-INTROSPECT-TEST/XREF::B :D SB-INTROSPECT-TEST/XREF::D :C
;      SB-INTROSPECT-TEST/XREF::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DECLAIM (INLINE INLINE/4))
; compiling (DEFUN INLINE/4 ...)
; compiling (DEFUN INLINE/4-USER ...)
; compiling (DEFINE-COMPILER-MACRO CMACRO ...)
; compiling (DEFSTRUCT STRUCT ...)
; compiling (DEFUN SOURCE-USER ...)
; compiling (DEFCLASS A-CLASS ...)
; compiling (DEFCLASS A-SUBCLASS ...)
; compiling (DEFSTRUCT A-STRUCTURE)
; compiling (DEFSTRUCT (A-SUBSTRUCTURE #))
; compiling (DEFVAR *AN-INSTANCE-OF-A-CLASS* ...)
; compiling (DEFVAR *AN-INSTANCE-OF-A-SUBCLASS* ...)
; compiling (DEFVAR *AN-INSTANCE-OF-A-STRUCTURE* ...)
; compiling (DEFVAR *AN-INSTANCE-OF-A-SUBSTRUCTURE* ...)
; compiling (DEFMETHOD A-GF-1 ...)
; compiling (DEFMETHOD A-GF-1 ...)
; compiling (DEFMETHOD A-GF-2 ...)
; compiling (DEFMETHOD A-GF-2 ...)
; compiling (DEFMETHOD A-GF-3 ...)
; compiling (DEFMETHOD A-GF-3 ...)
; compiling (DEFUN CALLED-BY-TRACED-FUN ...)
; compiling (DEFUN TRACED-FUN ...)
; compiling (TRACE TRACED-FUN)

; SYS:CONTRIB;SB-INTROSPECT;XREF-TEST-DATA-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.975
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-introspect/tests" "xref-test-data">
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::XREF/10.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::XREF/11.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-1.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-2.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-3.
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/xref-test.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-INTROSPECT-TEST/XREF)
; compiling (DEFMACRO DEFINE-XREF-TEST ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.2 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.3 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.4 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.5 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.6 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.7 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.8 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.9 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.10 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.11 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.12 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.13 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.14 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.15 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.16 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.17 ...)
; compiling (DEFINE-XREF-TEST WHO-MACROEXPANDS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-BINDS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SETS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-REFERENCES.1 ...)
; compiling (DEFINE-XREF-TEST WHO-REFERENCES.2 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.STRUCT-SLOT.1 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.CMACRO.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-DIRECTLY.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-DIRECTLY.2 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-GENERALLY.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-GENERALLY.2 ...)

; SYS:CONTRIB;SB-INTROSPECT;XREF-TEST-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.102
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/test.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DECLAIM (OPTIMIZE #))
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN ONE ...)
; compiling (DEFGENERIC TWO ...)
; compiling (DEFMETHOD TWO ...)
; compiling (DEFSTRUCT THREE ...)
; compiling (WITH-COMPILATION-UNIT (:SOURCE-PLIST #) ...)
; compiling "oops-off-by-one"
; compiling (DEFPARAMETER *A* ...)
; compiling (DEFVAR *B* ...)
; compiling (DEFCLASS A ...)
; compiling (DEFINE-CONDITION B ...)
; compiling (DEFSTRUCT C ...)
; compiling (DEFSTRUCT (D #) ...)
; compiling (DEFPACKAGE E ...)
; compiling (DEFINE-SYMBOL-MACRO F ...)
; compiling (DEFTYPE G ...)
; compiling (DEFCONSTANT +H+ ...)
; compiling (DEFMETHOD J ...)
; compiling (DEFMETHOD J ...)
; compiling (DEFMACRO L ...)
; compiling (DEFINE-COMPILER-MACRO M ...)
; compiling (DEFSETF N ...)
; compiling (DEFUN (SETF O) ...)
; compiling (DEFMETHOD (SETF P) ...)
; compiling (DEFINE-MODIFY-MACRO Q ...)
; compiling (DEFINE-METHOD-COMBINATION R ...)
; compiling (DEFINE-SETF-EXPANDER S ...)
; compiling (DEFGLOBAL **GLOBAL** ...)

; SYS:CONTRIB;SB-INTROSPECT;TEST-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.149
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::J.
STYLE-WARNING:
   Implicitly creating new generic function
   (COMMON-LISP:SETF COMMON-LISP-USER::P).
STYLE-WARNING: redefining SB-INTROSPECT::FUNCTION-DEBUG-INFO in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::FUNCTION-DEBUG-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEBUG-INFO-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEBUG-INFO-DEBUG-FUNCTION in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:VALID-FUNCTION-NAME-P in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAP-CODE-CONSTANTS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAP-ALLOCATED-CODE-COMPONENTS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAP-CALLER-CODE-COMPONENTS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::COPY-DEFINITION-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEFINITION-SOURCE-P in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-PATHNAME in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-PATHNAME) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-FORM-PATH in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-FORM-PATH) in DEFUN
STYLE-WARNING:
   redefining SB-INTROSPECT:DEFINITION-SOURCE-CHARACTER-OFFSET in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-CHARACTER-OFFSET) in DEFUN
STYLE-WARNING:
   redefining SB-INTROSPECT:DEFINITION-SOURCE-FILE-WRITE-DATE in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-FILE-WRITE-DATE) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-PLIST in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-PLIST) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEFINITION-SOURCE-DESCRIPTION in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT::DEFINITION-SOURCE-DESCRIPTION) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAKE-DEFINITION-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::VOP-SOURCES-FROM-FUN-TEMPLATES in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::FIND-VOP-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-DEFINITION-SOURCES-BY-NAME in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-DEFINITION-SOURCE in DEFUN
STYLE-WARNING:
   redefining SB-INTROSPECT::FIND-FUNCTION-DEFINITION-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::TRANSLATE-SOURCE-LOCATION in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-ARGLIST in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-LAMBDA-LIST in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFTYPE-LAMBDA-LIST in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-TYPE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-FUNCTION-CALLEES in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-FUNCTION-CALLERS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::GET-SIMPLE-FUN in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::CALL-WITH-EACH-GLOBAL-FUNCTOID in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::COLLECT-XREF in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-CALLS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-BINDS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-REFERENCES in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-SETS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-MACROEXPANDS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-SPECIALIZES-DIRECTLY in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-SPECIALIZES-GENERALLY in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::CANONICALIZE-CLASS-DESIGNATOR in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::METHOD-GENERIC-FUNCTION-NAME in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::COLLECT-SPECIALIZING-METHODS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:ALLOCATION-INFORMATION in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:MAP-ROOT in DEFUN
STYLE-WARNING: redefining SB-RT::PEND in DEFUN
STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::PEND) in DEFUN
STYLE-WARNING: redefining SB-RT::NAME in DEFUN
STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::NAME) in DEFUN
STYLE-WARNING: redefining SB-RT::FORM in DEFUN
STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::FORM) in DEFUN
STYLE-WARNING: redefining SB-RT::MAKE-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT::VALS in DEFMACRO
STYLE-WARNING: redefining SB-RT::DEFN in DEFMACRO
STYLE-WARNING: redefining SB-RT:PENDING-TESTS in DEFUN
STYLE-WARNING: redefining SB-RT:REM-ALL-TESTS in DEFUN
STYLE-WARNING: redefining SB-RT:REM-TEST in DEFUN
STYLE-WARNING: redefining SB-RT:GET-TEST in DEFUN
STYLE-WARNING: redefining SB-RT::GET-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT:DEFTEST in DEFMACRO
STYLE-WARNING: redefining SB-RT::ADD-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT::REPORT-ERROR in DEFUN
STYLE-WARNING: redefining SB-RT:DO-TEST in DEFUN
STYLE-WARNING: redefining SB-RT::EQUALP-WITH-CASE in DEFUN
STYLE-WARNING: redefining SB-RT::DO-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT:CONTINUE-TESTING in DEFUN
STYLE-WARNING: redefining SB-RT:DO-TESTS in DEFUN
STYLE-WARNING: redefining SB-RT::DO-ENTRIES in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/test-driver.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-INTROSPECT-TEST ...)
; compiling (IN-PACKAGE :SB-INTROSPECT-TEST)
; compiling (DEFMACRO DEFTEST* ...)
; compiling (DEFTEST FUNCTION-LAMBDA-LIST.1 ...)
; compiling (DEFTEST FUNCTION-LAMBDA-LIST.2 ...)
; compiling (DEFTEST FUNCTION-LAMBDA-LIST.3 ...)
; compiling (DEFTEST MACRO-LAMBDA-LIST.1 ...)
; compiling (DEFTEST MACRO-LAMBDA-LIST.2 ...)
; compiling (DEFTEST DEFINITION-SOURCE.1 ...)
; compiling (DEFTEST DEFINITION-SOURCE-PLIST.1 ...)
; compiling (DEFTEST DEFINITION-SOURCE-PLIST.2 ...)
; compiling (DEFUN MATCHP ...)
; compiling (DEFUN MATCHP-NAME ...)
; compiling (DEFUN MATCHP-LENGTH ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.1 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.2 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.3 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.4 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.5 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.6 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.7 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.8 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.9 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.10 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.11 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.12 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.13 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.14 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.15 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.16 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.17 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.18 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.19 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.20 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.21 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.22 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.23 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.24 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.25 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.26 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.27 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.28 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.29 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.30 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.31 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.32 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.33 ...)
; compiling (DEFGENERIC XUUQ ...)
; compiling (DEFMETHOD XUUQ ...)
; compiling (DEFMETHOD XUUQ ...)
; compiling (DEFTEST GF-INTERPLAY.1 ...)
; compiling (DEFMETHOD KROOLZ ...)
; compiling (DEFTEST GF-INTERPLAY.2 ...)
; compiling (DEFTYPE FOOBAR-TYPE ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.1 ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.2 ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.3 ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.4 ...)
; compiling (DEFUN TAI ...)
; compiling (DEFTEST ALLOCATION-INFROMATION.1 ...)
; compiling (DEFTEST ALLOCATION-INFORMATION.2 ...)
; compiling (DEFTEST ALLOCATION-INFORMATION.3 ...)
; compiling (DEFUN TYPE-EQUAL ...)
; compiling (DEFMACRO INTERPRET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MOON ...)
; compiling (DEFTEST FUNCTION-TYPE.1 ...)
; compiling (DEFUN SUN ...)
; compiling (DEFTEST FUNCTION-TYPE.2 ...)
; compiling (DEFTEST FUNCTION-TYPE.5 ...)
; compiling (DEFTEST FUNCTION-TYPE.6 ...)
; compiling (DEFTEST FUNCTION-TYPE.7 ...)
; compiling (DEFTEST FUNCTION-TYPE.8 ...)
; compiling (DEFGENERIC EARTH ...)
; compiling (DEFTEST FUNCTION-TYPE+GFS.1 ...)
; compiling (DEFMETHOD MARS ...)
; compiling (DEFSTRUCT (STRUCT # ...) ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.2 ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.3 ...)
; compiling (DEFSTRUCT (TYPED-STRUCT :NAMED ...) ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.4 ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.5 ...)
; compiling (DEFUN (SETF SUN) ...)
; compiling (DEFTEST FUNCTION-TYPE+SETF.1 ...)
; compiling (DEFTEST FUNCTION-TYPE+MISC.1 ...)
; compiling (DEFTEST DEFSTRUCT-FUN-SOURCES ...)
; compiling (DEFTEST DEFSTRUCT-FUN-SOURCES-BY-NAME ...)

; SYS:CONTRIB;SB-INTROSPECT;TEST-DRIVER-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.992
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST::KROOLZ.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST::MARS.
Doing 93 pending tests of 93 tests total.
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.1 SB-INTROSPECT-TEST/XREF::WHO-CALLS.2
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.3 SB-INTROSPECT-TEST/XREF::WHO-CALLS.4
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.5 SB-INTROSPECT-TEST/XREF::WHO-CALLS.6
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.7 SB-INTROSPECT-TEST/XREF::WHO-CALLS.8
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.9 SB-INTROSPECT-TEST/XREF::WHO-CALLS.10
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.11 SB-INTROSPECT-TEST/XREF::WHO-CALLS.12
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.13 SB-INTROSPECT-TEST/XREF::WHO-CALLS.14
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.15 SB-INTROSPECT-TEST/XREF::WHO-CALLS.16
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.17
 SB-INTROSPECT-TEST/XREF::WHO-MACROEXPANDS.1
 SB-INTROSPECT-TEST/XREF::WHO-BINDS.1 SB-INTROSPECT-TEST/XREF::WHO-SETS.1
 SB-INTROSPECT-TEST/XREF::WHO-REFERENCES.1
 SB-INTROSPECT-TEST/XREF::WHO-REFERENCES.2
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.STRUCT-SLOT.1
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.CMACRO.1
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-DIRECTLY.1
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-DIRECTLY.2
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-GENERALLY.1
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-GENERALLY.2
 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.1
 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.2
 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.3
 SB-INTROSPECT-TEST::MACRO-LAMBDA-LIST.1 SB-INTROSPECT-TEST::MACRO-LAMBDA-LIST.2
 SB-INTROSPECT-TEST::DEFINITION-SOURCE.1
 SB-INTROSPECT-TEST::DEFINITION-SOURCE-PLIST.1
 SB-INTROSPECT-TEST::DEFINITION-SOURCE-PLIST.2
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.1 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.2
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.3 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.4
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.5 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.6
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.7 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.8
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.9
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.10
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.11
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.12
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.13
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.14
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.15
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.16
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.17
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.18
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.19
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.20
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.21
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.22
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.23
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.24
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.25
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.26
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.27
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.28
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.29
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.30
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.31
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.32
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.33 SB-INTROSPECT-TEST::GF-INTERPLAY.1
 SB-INTROSPECT-TEST::GF-INTERPLAY.2 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.1
 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.2
 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.3
 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.4
 SB-INTROSPECT-TEST::ALLOCATION-INFROMATION.1
 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.2
 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.3
 SB-INTROSPECT-TEST::FUNCTION-TYPE.1 SB-INTROSPECT-TEST::FUNCTION-TYPE.2
 SB-INTROSPECT-TEST::FUNCTION-TYPE.5 SB-INTROSPECT-TEST::FUNCTION-TYPE.6
 SB-INTROSPECT-TEST::FUNCTION-TYPE.7 SB-INTROSPECT-TEST::FUNCTION-TYPE.8
 SB-INTROSPECT-TEST::FUNCTION-TYPE+GFS.1
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.2
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.3
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.4
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.5
 SB-INTROSPECT-TEST::FUNCTION-TYPE+SETF.1
 SB-INTROSPECT-TEST::FUNCTION-TYPE+MISC.1
 SB-INTROSPECT-TEST::DEFSTRUCT-FUN-SOURCES
 SB-INTROSPECT-TEST::DEFSTRUCT-FUN-SOURCES-BY-NAME
No tests failed.
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 1 note
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-introspect'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-md5'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-md5")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-md5/module-setup.lisp" (written 11 JUN 2015 07:47:28 AM):
; compiling (PROVIDE :SB-MD5)
; compiling (REQUIRE :SB-ROTATE-BYTE)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-md5/module-setup.fasl written
; compilation finished in 0:00:00.007
* echo "(defsystem :sb-md5 :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-md5.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-md5")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-md5/md5-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:SB-MD5-TESTS ...)
; compiling (IN-PACKAGE #:SB-MD5-TESTS)
; compiling (DEFUN BYTE-ARRAY-TO-HEX-STRING ...)
; compiling (DEFUN ONE-SHOT-TEST ...)
; compiling (DEFUN INCREMENTAL-TEST ...)
; compiling (DEFUN FILL-POINTER-TEST ...)
; compiling (DEFUN TESTS-FOR-TEST-SUITE ...)
; compiling (DEFINE-RFC1321-TESTS (# # ...))
; compiling (DEFINE-OTHER-TESTS (# # ...))
; compiling (DEFTEST SB-MD5.MD5SUM-FILE.0 ...)
; compiling (DEFTEST SB-MD5.MD5SUM-SEQUENCE.ERROR.0 ...)

; SYS:CONTRIB;SB-MD5;MD5-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.329
Doing 236 pending tests of 236 tests total.
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.0
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.0
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.0
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.1
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.1
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.1
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.2
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.2
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.2
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.3
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.3
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.3
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.4
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.4
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.4
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.5
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.5
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.5
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.6
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.6
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.6
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.0 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.0
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.0 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.1
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.1
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.1 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.2
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.2
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.2 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.3
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.3
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.3 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.4
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.4
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.4 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.5
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.5
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.5 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.6
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.6
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.6 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.7
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.7
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.7 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.8
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.8
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.8 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.9
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.9
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.9
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.10
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.10
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.10
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.11
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.11
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.11
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.12
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.12
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.12
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.13
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.13
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.13
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.14
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.14
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.14
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.15
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.15
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.15
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.16
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.16
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.16
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.17
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.17
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.17
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.18
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.18
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.18
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.19
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.19
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.19
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.20
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.20
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.20
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.21
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.21
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.21
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.22
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.22
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.22
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.23
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.23
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.23
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.24
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.24
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.24
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.25
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.25
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.25
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.26
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.26
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.26
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.27
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.27
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.27
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.28
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.28
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.28
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.29
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.29
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.29
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.30
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.30
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.30
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.31
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.31
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.31
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.32
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.32
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.32
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.33
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.33
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.33
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.34
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.34
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.34
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.35
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.35
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.35
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.36
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.36
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.36
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.37
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.37
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.37
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.38
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.38
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.38
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.39
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.39
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.39
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.40
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.40
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.40
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.41
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.41
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.41
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.42
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.42
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.42
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.43
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.43
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.43
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.44
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.44
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.44
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.45
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.45
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.45
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.46
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.46
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.46
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.47
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.47
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.47
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.48
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.48
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.48
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.49
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.49
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.49
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.50
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.50
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.50
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.51
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.51
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.51
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.52
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.52
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.52
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.53
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.53
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.53
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.54
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.54
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.54
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.55
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.55
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.55
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.56
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.56
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.56
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.57
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.57
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.57
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.58
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.58
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.58
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.59
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.59
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.59
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.60
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.60
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.60
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.61
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.61
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.61
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.62
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.62
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.62
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.63
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.63
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.63
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.64
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.64
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.64
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.65
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.65
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.65
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.66
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.66
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.66
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.67
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.67
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.67
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.68
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.68
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.68
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.69
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.69
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.69
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.70
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.70
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.70 SB-MD5-TESTS::SB-MD5.MD5SUM-FILE.0
 SB-MD5-TESTS::SB-MD5.MD5SUM-SEQUENCE.ERROR.0
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-md5'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-mpfr")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-mpfr/module-setup.lisp" (written 11 JUN 2015 07:47:39 AM):
; compiling (PROVIDE :SB-MPFR)
; compiling (REQUIRE :SB-GMP)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-mpfr/module-setup.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-MPFR ...)
; compiling (IN-PACKAGE :SB-MPFR)
; compiling (DEFVAR +MPFR-PRECISION+)
; compiling (DEFVAR *MPFR-VERSION* ...)
; compiling (DEFVAR *MPFR-FEATURES* ...)
; compiling (DEFUN TRY-LOAD-SHARED-OBJECT ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN TRY-LOAD-SHARED-OBJECT
;     (HANDLER-CASE (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T)
;                   (ERROR (SB-MPFR::E) NIL))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-4 ()
;            (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T))
;          (#:FUN1 (SB-MPFR::E)
;            NIL))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK2
;       (SB-INT:DX-LET ((#:CELL3 #))
;         (DECLARE (IGNORABLE #:CELL3))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG0
;           (RETURN-FROM #:BLOCK2 #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; compiling (DEFUN %LOAD-MPFR ...)
; compiling (DEFUN LOAD-MPFR ...)
; compiling (LOAD-MPFR)
; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DEFINE-ALIEN-TYPE MPFR_RND_ENUM ...)
; compiling (DECLAIM (INLINE MPFR_INIT2 ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_INIT2 ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CLEAR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_FLT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_NAN ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_INF ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_ZERO ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_DEFAULT_PREC ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_STR ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFINE-ALIEN-ROUTINE MPFR_GET_STR
;     (DEFINE-ALIEN-ROUTINE SB-MPFR::MPFR_GET_STR (* CHAR) (SB-MPFR::STR (* CHAR))
;                           (SB-MPFR:EXP (* LONG)) (SB-MPFR::BASE INT)
;                           (SB-MPFR::N UNSIGNED)
;                           (SB-MPFR::X (* (STRUCT SB-MPFR::MPFRFLOAT)))
;                           (SB-MPFR::RND SB-MPFR::MPFR_RND_ENUM))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE MPFR_GET_FLT ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_FLT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FREE_STR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_STR ...)
; compiling (DECLAIM (INLINE MPFR_ADD ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SI_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_D_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_Z_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SI_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_D_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQRT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQRT_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_REC_SQRT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CBRT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ROOT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_POW ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_NEG ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ABS ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIM ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_2UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_2SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_2UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_2SI ...)
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-INT ...)
; compiling (DEFINE-ONEARG-MPFR-INT (MPFR_LOG MPFR_LOG2 ...))
; compiling (DEFMACRO DEFINE-TWOARG-MPFR-INT ...)
; compiling (DEFINE-TWOARG-MPFR-INT (MPFR_SIN_COS MPFR_ATAN2 ...))
; compiling (DECLAIM (INLINE MPFR_FAC_UI ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FAC_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ZETA_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_JN ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_YN ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMA ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMS ...)
; compiling (DEFMACRO DEFINE-CONST-MPFR-INT ...)
; compiling (DEFINE-CONST-MPFR-INT (MPFR_CONST_LOG2 MPFR_CONST_PI ...))
; compiling (DECLAIM (INLINE MPFR_SUM))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUM ...)
; compiling (DECLAIM (INLINE MPFR_CMP ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_UI_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_SI_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMPABS ...)
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-BOOL ...)
; compiling (DEFINE-ONEARG-MPFR-BOOL (MPFR_NAN_P MPFR_INF_P ...))
; compiling (DECLAIM (INLINE MPFR_SGN))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SGN ...)
; compiling (DEFMACRO DEFINE-TWOARG-MPFR-BOOL ...)
; compiling (DEFINE-TWOARG-MPFR-BOOL (MPFR_GREATER_P MPFR_GREATEREQUAL_P ...))
; compiling (DEFMACRO DEFINE-MPFR-VOID ...)
; compiling (DEFINE-MPFR-VOID (MPFR_CLEAR_UNDERFLOW MPFR_CLEAR_OVERFLOW ...))
; compiling (DEFMACRO DEFINE-MPFR-BOOL ...)
; compiling (DEFINE-MPFR-BOOL (MPFR_UNDERFLOW_P MPFR_OVERFLOW_P ...))
; compiling (DECLAIM (INLINE MPFR_URANDOMB ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_URANDOMB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_URANDOM ...)
; compiling (DEFINE-ONEARG-MPFR-INT (MPFR_RINT MPFR_RINT_CEIL ...))
; compiling (DECLAIM (INLINE MPFR_CEIL ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CEIL ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FLOOR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ROUND ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_TRUNC ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MODF ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMOD ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_REMAINDER ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_REMQUO ...)
; compiling (DEFPARAMETER *MPFR-RND* ...)
; compiling (DEFPARAMETER *MPFR-BASE* ...)
; compiling (DECLAIM (INLINE MPFR-FLOAT-REF ...))
; compiling (DEFSTRUCT (MPFR-FLOAT #) ...)
; compiling (DEFUN MAKE-MPFR-FLOAT ...)
; compiling (DEFMACRO WITH-PRECISION ...)
; compiling (DEFUN SET-PRECISION ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MPFR-FLOAT-TO-STRING ...)
; compiling (DEFUN MPFR-READER ...)
; compiling (DEFUN ENABLE-MPFR-SYNTAX ...)
; compiling (ENABLE-MPFR-SYNTAX *READTABLE*)
; compiling (DEFUN ADD ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN ADD
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_ADD_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN SUB ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN SUB
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_SUB_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN MUL
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_MUL_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN SQARE ...)
; compiling (DEFUN DIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN DIV
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_DIV_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN SQRT ...)
; compiling (DEFUN RECIPROCAL-SQRT ...)
; compiling (DEFUN CUBIC-ROOT ...)
; compiling (DEFUN K-ROOT ...)
; compiling (DEFUN POWER ...)
; compiling (DEFUN NEGATE ...)
; compiling (DEFUN ABS ...)
; compiling (DEFUN DIM ...)
; compiling (DEFUN MUL-2-RAISED ...)
; compiling (DEFUN DIV-2-RAISED ...)
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-FUNS ...)
; compiling (DEFINE-ONEARG-MPFR-FUNS (# # ...))
; compiling (DEFUN ATAN ...)
; compiling (DEFUN SIN-COS ...)
; compiling (DEFUN SINH-COSH ...)
; compiling (DEFUN ARITHMETIC-GEOMETRIC-MEAN ...)
; compiling (DEFUN HYPOT ...)
; compiling (DEFUN FAC ...)
; compiling (DEFUN ZETA ...)
; compiling (DEFUN JN ...)
; compiling (DEFUN YN ...)
; compiling (DEFUN FMA ...)
; compiling (DEFUN FMS ...)
; compiling (DEFUN SUM ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN SUM
;     (SETF (DEREF SB-MPFR::AR (INCF SB-MPFR::IDX))
;             (SB-MPFR::MPFR-FLOAT-REF SB-MPFR::X))
; --> LET* SB-ALIEN-INTERNALS:%SET-DEREF SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-MPFR::MPFRFLOAT
;                                       (SB-MPFR::MPFR_PREC # :OFFSET 0)
;                                       (SB-MPFR::MPFR_SIGN # :OFFSET 32)
;                                       (SB-MPFR::MPFR_EXP # :OFFSET 64)
;                                       (SB-MPFR::MPFR_D # :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFMACRO DEFINE-CONST-MPFR-FUNS ...)
; compiling (DEFINE-CONST-MPFR-FUNS (# # ...))
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-PREDICATES ...)
; compiling (DEFINE-ONEARG-MPFR-PREDICATES (# # ...))
; compiling (DEFMACRO DEFINE-TWOARG-MPFR-PREDICATES ...)
; compiling (DEFINE-TWOARG-MPFR-PREDICATES (# # ...))
; compiling (DEFUN COMPARE ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN COMPARE
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_CMP_Q (SB-MPFR::MPFR-FLOAT-REF SB-MPFR::X)
;        (ADDR SB-MPFR::QY)))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN COMPARE-2EXP ...)
; compiling (DEFMACRO DEFINE-MPFR-FLAG-FUNS ...)
; compiling (DEFINE-MPFR-FLAG-FUNS (# # ...))
; compiling (DEFMACRO DEFINE-MPFR-FLAG-PREDICATES ...)
; compiling (DEFINE-MPFR-FLAG-PREDICATES (# # ...))
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in:
;      DEFINE-MPFR-FLAG-PREDICATES ((UNDERFLOWP MPFR_UNDERFLOW_P)
;                               (OVERFLOWP MPFR_OVERFLOW_P)
;                               (DIV-BY-ZERO-P MPFR_DIVBY0_P)
;                               (NANFLAG-P MPFR_NANFLAG_P)
;                               (INEXFLAG-P MPFR_INEXFLAG_P)
;                               (ERANGEFLAG-P MPFR_ERANGEFLAG_P))
;     (SB-MPFR::DEFINE-MPFR-FLAG-PREDICATES
;      ((SB-MPFR:UNDERFLOWP SB-MPFR::MPFR_UNDERFLOW_P)
;       (SB-MPFR:OVERFLOWP SB-MPFR::MPFR_OVERFLOW_P)
;       (SB-MPFR:DIV-BY-ZERO-P SB-MPFR::MPFR_DIVBY0_P)
;       (SB-MPFR:NANFLAG-P SB-MPFR::MPFR_NANFLAG_P)
;       (SB-MPFR:INEXFLAG-P SB-MPFR::MPFR_INEXFLAG_P)
;       (SB-MPFR:ERANGEFLAG-P SB-MPFR::MPFR_ERANGEFLAG_P)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_UNDERFLOW_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_OVERFLOW_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_DIVBY0_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_NANFLAG_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_INEXFLAG_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_ERANGEFLAG_P BLOCK WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET 
; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ 
; --> IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN URANDOMB ...)
; compiling (DEFUN URANDOM ...)
; compiling (DEFINE-ONEARG-MPFR-FUNS (# # ...))
; compiling (DEFMACRO DEFINE-ONEARG-NO-RND-MPFR-FUNS ...)
; compiling (DEFINE-ONEARG-NO-RND-MPFR-FUNS (# # ...))
; compiling (DEFUN MODF ...)
; compiling (DEFUN FMOD ...)
; compiling (DEFUN REMAINDER ...)
; compiling (DEFUN REMAINDER-QUOT ...)
; compiling (DECLAIM (INLINE MPFR_FITS_ULONG_P ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FITS_ULONG_P ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FITS_SLONG_P ...)
; compiling (DEFUN COERCE ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN COERCE
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::X SB-MPFR::QX)
;       (SB-MPFR::MPFR_SET_Q (SB-MPFR::MPFR-FLOAT-REF SB-MPFR::RESULT)
;        (ADDR SB-MPFR::QX) SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ


; SYS:CONTRIB;SB-MPFR;MPFR-TMP.FASL.NEWEST written
; compilation finished in 0:00:53.617
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-mpfr" "sb-mpfr" "mpfr">
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 20 notes
* echo "(defsystem :sb-mpfr :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-mpfr.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-mpfr")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
STYLE-WARNING: Undefined alien: "mpfr_get_version"
STYLE-WARNING: Undefined alien: "mpfr_get_default_prec"
; compiling file "/«PKGBUILDDIR»/contrib/sb-mpfr/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-MPFR-TESTS" ...)
; compiling (IN-PACKAGE "SB-MPFR-TESTS")
; compiling (DEFUN SAMPLE ...)
; compiling (DEFUN SAMPLE2 ...)
; compiling (DEFUN SAMPLE-PI ...)

; SYS:CONTRIB;SB-MPFR;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.149
Doing 0 pending tests of 0 tests total.
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-posix'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-posix")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-posix/module-setup.lisp" (written 11 JUN 2015 07:48:45 AM):
; compiling (PROVIDE :SB-POSIX)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/module-setup.fasl written
; compilation finished in 0:00:00.006
* echo "(defsystem :sb-posix :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-posix.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-posix")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/posix-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-POSIX-TESTS" ...)
; compiling (IN-PACKAGE "SB-POSIX-TESTS")
; compiling (DEFVAR *TEST-DIRECTORY* ...)
; compiling (DEFVAR *CURRENT-DIRECTORY* ...)
; compiling (DEFVAR *THIS-FILE* ...)
; compiling (DEFCONSTANT +MODE-RWX-ALL+ ...)
; compiling (DEFMACRO DEFINE-EACCES-TEST ...)
; compiling (DEFTEST CHDIR.1 ...)
; compiling (DEFTEST CHDIR.2 ...)
; compiling (DEFTEST CHDIR.3 ...)
; compiling (DEFTEST CHDIR.4 ...)
; compiling (DEFTEST CHDIR.5 ...)
; compiling (DEFTEST CHDIR.6 ...)
; compiling (DEFTEST CHDIR.7 ...)
; compiling (DEFTEST CHDIR.8 ...)
; compiling (DEFTEST CHDIR.ERROR.1 ...)
; compiling (DEFTEST CHDIR.ERROR.2 ...)
; compiling (DEFTEST MKDIR.1 ...)
; compiling (DEFTEST MKDIR.2 ...)
; compiling (DEFTEST MKDIR.ERROR.1 ...)
; compiling (DEFTEST MKDIR.ERROR.2 ...)
; compiling (DEFINE-EACCES-TEST MKDIR.ERROR.3 ...)
; compiling (DEFTEST RMDIR.1 ...)
; compiling (DEFTEST RMDIR.2 ...)
; compiling (DEFTEST RMDIR.ERROR.1 ...)
; compiling (DEFTEST RMDIR.ERROR.2 ...)
; compiling (DEFTEST RMDIR.ERROR.3 ...)
; compiling (DEFTEST RMDIR.ERROR.4 ...)
; compiling (DEFINE-EACCES-TEST RMDIR.ERROR.5 ...)
; compiling (DEFTEST STAT.1 ...)
; compiling (DEFTEST STAT.2 ...)
; compiling (DEFTEST STAT.3 ...)
; compiling (DEFTEST STAT.4 ...)
; compiling (DEFTEST STAT.5 ...)
; compiling (DEFTEST STAT.ERROR.1 ...)
; compiling (DEFINE-EACCES-TEST STAT.ERROR.2 ...)
; compiling (DEFMACRO WITH-STAT-MODE ...)
; compiling (DEFMACRO WITH-LSTAT-MODE ...)
; compiling (DEFTEST STAT-MODE.1 ...)
; compiling (DEFTEST STAT-MODE.2 ...)
; compiling (DEFTEST STAT-MODE.3 ...)
; compiling (DEFTEST STAT-MODE.4 ...)
; compiling (DEFTEST STAT-MODE.5 ...)
; compiling (DEFTEST STAT-MODE.6 ...)
; compiling (DEFTEST STAT-MODE.7 ...)
; compiling (DEFTEST STAT-MODE.8 ...)
; compiling (DEFTEST FILENAME-DESIGNATOR.1 ...)
; compiling (DEFTEST OPEN.1 ...)
; compiling (DEFTEST OPEN.ERROR.1 ...)
; compiling (DEFTEST FCNTL.1 ...)
; compiling (DEFTEST FCNTL.FLOCK.1 ...)
; compiling (DEFTEST FCNTL.FLOCK.2 ...)
; compiling (DEFTEST READ.1 ...)
; compiling (DEFTEST OPENDIR.1 ...)
; compiling (DEFTEST READDIR.1 ...)
; compiling (DEFTEST READDIR/DIRENT-NAME ...)
; compiling (DEFTEST WRITE.1 ...)
; compiling (DEFTEST PWENT.1 ...)
; compiling (DEFTEST PWENT.2 ...)
; compiling (DEFTEST PWENT.NON-EXISTING ...)
; compiling (DEFTEST GRENT.1 ...)
; compiling (DEFTEST GRENT.2 ...)
; compiling (DEFTEST GRENT.NON-EXISTING ...)
; compiling (DEFTEST TIME.1 ...)
; compiling (DEFTEST UTIMES.1 ...)
; compiling (DEFTEST READLINK.1 ...)
; compiling (DEFTEST READLINK.2 ...)
; compiling (DEFTEST READLINK.ERROR.1 ...)
; compiling (DEFTEST READLINK.ERROR.2 ...)
; compiling (DEFTEST READLINK.ERROR.3 ...)
; compiling (DEFTEST READLINK.ERROR.4 ...)
; compiling (DEFTEST READLINK.ERROR.5 ...)
; compiling (DEFTEST READLINK.ERROR.6 ...)
; compiling (DEFTEST READLINK.ERROR.7 ...)
; compiling (DEFTEST GETCWD.1 ...)
; compiling (DEFTEST MKSTEMP.1 ...)
; compiling (DEFTEST MKDTEMP.1 ...)
; compiling (DEFTEST MKTEMP.1 ...)
; compiling (DEFTEST MKSTEMP.NULL-TERMINATE ...)
; compiling (DEFTEST ENVSTUFF ...)

; SYS:CONTRIB;SB-POSIX;POSIX-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.307
Doing 71 pending tests of 71 tests total.
 SB-POSIX-TESTS::CHDIR.1 SB-POSIX-TESTS::CHDIR.2 SB-POSIX-TESTS::CHDIR.3
 SB-POSIX-TESTS::CHDIR.4 SB-POSIX-TESTS::CHDIR.5 SB-POSIX-TESTS::CHDIR.6
 SB-POSIX-TESTS::CHDIR.7 SB-POSIX-TESTS::CHDIR.8 SB-POSIX-TESTS::CHDIR.ERROR.1
 SB-POSIX-TESTS::CHDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.1 SB-POSIX-TESTS::MKDIR.2
 SB-POSIX-TESTS::MKDIR.ERROR.1 SB-POSIX-TESTS::MKDIR.ERROR.2
 SB-POSIX-TESTS::MKDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.1 SB-POSIX-TESTS::RMDIR.2
 SB-POSIX-TESTS::RMDIR.ERROR.1 SB-POSIX-TESTS::RMDIR.ERROR.2
 SB-POSIX-TESTS::RMDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.ERROR.4
 SB-POSIX-TESTS::RMDIR.ERROR.5 SB-POSIX-TESTS::STAT.1 SB-POSIX-TESTS::STAT.2
 SB-POSIX-TESTS::STAT.3 SB-POSIX-TESTS::STAT.4 SB-POSIX-TESTS::STAT.5
 SB-POSIX-TESTS::STAT.ERROR.1 SB-POSIX-TESTS::STAT.ERROR.2
 SB-POSIX-TESTS::STAT-MODE.1 SB-POSIX-TESTS::STAT-MODE.2
 SB-POSIX-TESTS::STAT-MODE.3 SB-POSIX-TESTS::STAT-MODE.4
 SB-POSIX-TESTS::STAT-MODE.5 SB-POSIX-TESTS::STAT-MODE.6
 SB-POSIX-TESTS::STAT-MODE.7 SB-POSIX-TESTS::STAT-MODE.8
 SB-POSIX-TESTS::FILENAME-DESIGNATOR.1 SB-POSIX-TESTS::OPEN.1
 SB-POSIX-TESTS::OPEN.ERROR.1 SB-POSIX-TESTS::FCNTL.1
 SB-POSIX-TESTS::FCNTL.FLOCK.1 SB-POSIX-TESTS::FCNTL.FLOCK.2
 SB-POSIX-TESTS::READ.1 SB-POSIX-TESTS::OPENDIR.1 SB-POSIX-TESTS::READDIR.1
 SB-POSIX-TESTS::READDIR/DIRENT-NAME SB-POSIX-TESTS::WRITE.1
 SB-POSIX-TESTS::PWENT.1 SB-POSIX-TESTS::PWENT.2
 SB-POSIX-TESTS::PWENT.NON-EXISTING SB-POSIX-TESTS::GRENT.1
 SB-POSIX-TESTS::GRENT.2 SB-POSIX-TESTS::GRENT.NON-EXISTING
 SB-POSIX-TESTS::TIME.1 SB-POSIX-TESTS::UTIMES.1 SB-POSIX-TESTS::READLINK.1
 SB-POSIX-TESTS::READLINK.2 SB-POSIX-TESTS::READLINK.ERROR.1
 SB-POSIX-TESTS::READLINK.ERROR.2 SB-POSIX-TESTS::READLINK.ERROR.3
 SB-POSIX-TESTS::READLINK.ERROR.4 SB-POSIX-TESTS::READLINK.ERROR.5
 SB-POSIX-TESTS::READLINK.ERROR.6 SB-POSIX-TESTS::READLINK.ERROR.7
 SB-POSIX-TESTS::GETCWD.1 SB-POSIX-TESTS::MKSTEMP.1 SB-POSIX-TESTS::MKDTEMP.1
 SB-POSIX-TESTS::MKTEMP.1 SB-POSIX-TESTS::MKSTEMP.NULL-TERMINATE
 SB-POSIX-TESTS::ENVSTUFF
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-posix'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-queue'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-queue")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-queue/module-setup.lisp" (written 11 JUN 2015 07:49:19 AM):
; compiling (PROVIDE :SB-QUEUE)
; compiling (REQUIRE :SB-CONCURRENCY)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-queue/module-setup.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/contrib/sb-queue/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-QUEUE ...)

; SYS:CONTRIB;SB-QUEUE;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.010
* echo "(defsystem :sb-queue :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-queue.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-queue")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-queue'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-rotate-byte")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-rotate-byte/module-setup.lisp" (written 11 JUN 2015 07:49:30 AM):
; compiling (PROVIDE :SB-ROTATE-BYTE)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-rotate-byte/module-setup.fasl written
; compilation finished in 0:00:00.015
* echo "(defsystem :sb-rotate-byte :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rotate-byte.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-rotate-byte")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/rotate-byte-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (FLET (#) ...)
; compiling (DEFUN PFIXNUM/C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN PFIXNUM ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32/C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32 ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32-REG-PRESSURE ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB64/C ...)
; compiling (DEFUN UB64/-C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB64 ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))

; SYS:CONTRIB;SB-ROTATE-BYTE;ROTATE-BYTE-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.538
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rt'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-rt")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-rt/module-setup.lisp" (written 11 JUN 2015 07:49:40 AM):
; compiling (PROVIDE :SB-RT)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-rt/module-setup.fasl written
; compilation finished in 0:00:00.006
* echo "(defsystem :sb-rt :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rt.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-rt")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rt'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-simple-streams")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-simple-streams/module-setup.lisp" (written 11 JUN 2015 07:49:50 AM):
; compiling (PROVIDE :SB-SIMPLE-STREAMS)
; compiling (REQUIRE :SB-BSD-SOCKETS)
; compiling (REQUIRE :SB-POSIX)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-simple-streams/module-setup.fasl written
; compilation finished in 0:00:00.009
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE SB-SIMPLE-STREAMS ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/iodefs.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN %FILE-NAMESTRING ...)
; compiling (DEFMACRO DEF-STREAM-CLASS ...)
; compiling (SB-INT:DEFCONSTANT-EQX +FLAG-BITS+ ...)
; compiling (DEFUN %FLAGS ...)
; compiling (DEFMACRO WITH-STREAM-CLASS ...)
; compiling (DEFMACRO SM ...)
; compiling (DEFMACRO FUNCALL-STM-HANDLER ...)
; compiling (DEFMACRO FUNCALL-STM-HANDLER-2 ...)
; compiling (DEFMACRO ADD-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO REMOVE-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO ANY-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH ...)
; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH-2 ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;IODEFS-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.113
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/classes.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFTYPE SIMPLE-STREAM-BUFFER ...)
; compiling (DEFTYPE BLOCKING ...)
; compiling (DEFTYPE J-LISTEN-FN ...)
; compiling (DEFTYPE J-READ-CHAR-FN ...)
; compiling (DEFTYPE J-READ-CHARS-FN ...)
; compiling (DEFTYPE J-WRITE-CHAR-FN ...)
; compiling (DEFTYPE J-WRITE-CHARS-FN ...)
; compiling (DEFTYPE J-UNREAD-CHAR-FN ...)
; compiling (DEF-STREAM-CLASS SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS SINGLE-CHANNEL-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS DUAL-CHANNEL-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS STRING-SIMPLE-STREAM ...)
; compiling (DEFGENERIC DEVICE-OPEN ...)
; compiling (DEFGENERIC DEVICE-CLOSE ...)
; compiling (DEFGENERIC DEVICE-BUFFER-LENGTH ...)
; compiling (DEFGENERIC DEVICE-FILE-POSITION ...)
; compiling (DEFGENERIC (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFGENERIC DEVICE-FILE-LENGTH ...)
; compiling (DEFGENERIC DEVICE-READ ...)
; compiling (DEFGENERIC DEVICE-CLEAR-INPUT ...)
; compiling (DEFGENERIC DEVICE-WRITE ...)
; compiling (DEFGENERIC DEVICE-CLEAR-OUTPUT ...)
; compiling (DEFGENERIC DEVICE-FINISH-RECORD ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFGENERIC (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-CLEAR-OUTPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;CLASSES-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.175
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/internal.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DECLAIM (INLINE BUFFER-SAP ...))
; compiling (DEFUN BUFFER-SAP ...)
; compiling (DEFUN BREF ...)
; compiling (DEFUN (SETF BREF) ...)
; compiling (DEFUN BUFFER-COPY ...)
; compiling (DEFUN ALLOCATE-BUFFER ...)
; compiling (DEFUN FREE-BUFFER ...)
; compiling (DEFUN MAKE-CONTROL-TABLE ...)
; compiling (DEFUN STD-NEWLINE-OUT-HANDLER ...)
; compiling (DEFUN STD-TAB-OUT-HANDLER ...)
; compiling (DEFUN STD-DC-NEWLINE-IN-HANDLER ...)
; compiling (DEFVAR *STD-CONTROL-OUT-TABLE* ...)
; compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...)
; compiling (DEFVAR *EXTERNAL-FORMATS* ...)
; compiling (DEFVAR *EXTERNAL-FORMAT-ALIASES* ...)
; compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...)
; compiling (DEFUN %PRINT-EXTERNAL-FORMAT ...)
; compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT ...)
; compiling (DEFUN LOAD-EXTERNAL-FORMAT-ALIASES ...)
; compiling (DEFUN FIND-EXTERNAL-FORMAT ...)
; compiling (DEFINE-CONDITION VOID-EXTERNAL-FORMAT ...)
; compiling (DEFINE-EXTERNAL-FORMAT :VOID ...)
; compiling (DEFINE-EXTERNAL-FORMAT :ISO8859-1 ...)
; compiling (DEFMACRO OCTETS-TO-CHAR ...)
; compiling (DEFMACRO CHAR-TO-OCTETS ...)
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DEFUN OCTETS-TO-STRING ...)
; compiling (DEFUN VECTOR-ELT-WIDTH ...)
; compiling (DEFUN ENDIAN-SWAP-VALUE ...)
; compiling (DEFUN READ-OCTETS ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/internal.lisp
; in: DEFUN READ-OCTETS
;     (SB-UNIX:UNIX-READ SB-SIMPLE-STREAMS::FD
;                        (SB-SIMPLE-STREAMS::BUFFER-SAP SB-SIMPLE-STREAMS::BUFFER
;                         SB-SIMPLE-STREAMS::START)
;                        (THE FIXNUM
;                             (- SB-SIMPLE-STREAMS::END SB-SIMPLE-STREAMS::START)))
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFUN WRITE-OCTETS ...)
; compiling (DEFUN DO-SOME-OUTPUT ...)
; compiling (DEFUN QUEUE-WRITE ...)
; compiling (DEFUN %FD-OPEN ...)
; compiling (DEFUN OPEN-FD-STREAM ...)
; compiling (DEFSTRUCT (FILESPEC-PARSER #) ...)
; compiling (DEFVAR *FILESPEC-PARSERS* ...)
; compiling (DEFUN ADD-FILESPEC ...)
; compiling (DEFMACRO DEFINE-FILESPEC ...)
; compiling (DEFUN PARSE-FILESPEC ...)
; compiling (DEFINE-FILESPEC PATHNAME ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;INTERNAL-TMP.FASL.NEWEST written
; compilation finished in 0:00:04.403
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/strategy.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN REFILL-BUFFER ...)
; compiling (DEFUN SC-SET-DIRTY ...)
; compiling (DEFUN SC-SET-CLEAN ...)
; compiling (DEFUN SC-DIRTY-P ...)
; compiling (DEFUN FLUSH-BUFFER ...)
; compiling (DEFUN FLUSH-OUT-BUFFER ...)
; compiling (DEFUN READ-BYTE-INTERNAL ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN SC-LISTEN-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN SC-READ-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN SC-READ-CHAR-EF-MAPPED ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN SC-READ-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN SC-READ-CHARS-EF-MAPPED ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN SC-UNREAD-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN SC-WRITE-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN SC-WRITE-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN DC-WRITE-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN DC-WRITE-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN STR-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN STR-LISTEN-E-CRLF ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/strategy.lisp
; in: DEFUN STR-LISTEN-E-CRLF
;     (DEFUN SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF (STREAM)
;       (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS (SB-SIMPLE-STREAMS:COMPOSING-STREAM
;                                             STREAM)
;         (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-LISTEN
;                                                (SB-SIMPLE-STREAMS:SM
;                                                 SB-SIMPLE-STREAMS::MELDED-STREAM
;                                                 STREAM))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF
;         (STREAM)
;       (BLOCK SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF
;         (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS (SB-SIMPLE-STREAMS:COMPOSING-STREAM
;                                               STREAM)
;           (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-LISTEN
;                                                  (SB-SIMPLE-STREAMS:SM
;                                                   SB-SIMPLE-STREAMS::MELDED-STREAM
;                                                   STREAM)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL (MEMBER T NIL) &REST T).

; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN STR-READ-CHAR-E-CRLF ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN STR-UNREAD-CHAR-E-CRLF ...)
; compiling (DEFUN MELDING-STREAM ...)
; compiling (DEFUN MELD ...)
; compiling (DEFUN UNMELD ...)
; compiling (DEFUN %SF ...)
; compiling (DEFUN INSTALL-SINGLE-CHANNEL-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-DUAL-CHANNEL-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-INPUT-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-OUTPUT-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-COMPOSING-FORMAT-CHARACTER-STRATEGY ...)
; compiling (DEFUN COMPOSE-ENCAPSULATING-STREAMS ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN NULL-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN NULL-READ-CHARS ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN NULL-UNREAD-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN NULL-WRITE-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN NULL-WRITE-CHARS ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN NULL-LISTEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRATEGY-TMP.FASL.NEWEST written
; compilation finished in 0:00:08.827
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/terminal.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFVAR *TERMINAL-CONTROL-IN-TABLE* ...)
; compiling (DEF-STREAM-CLASS TERMINAL-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;TERMINAL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.813
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/string.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS STRING-INPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS STRING-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS COMPOSING-STREAM ...)
; compiling (DEF-STREAM-CLASS FILL-POINTER-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS XP-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS ANNOTATION-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRING-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.098
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/socket.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS SOCKET-SIMPLE-STREAM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEF-STREAM-CLASS SOCKET-BASE-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;SOCKET-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.370
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/null.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS NULL-SIMPLE-STREAM ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN NULL-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN NULL-READ-CHARS ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN NULL-UNREAD-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN NULL-WRITE-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN NULL-WRITE-CHARS ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN NULL-LISTEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;NULL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.740
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/direct.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS DIRECT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS BUFFER-INPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS BUFFER-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;DIRECT-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.174
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/file.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS FILE-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS MAPPED-FILE-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS PROBE-SIMPLE-STREAM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN OPEN-FILE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFUN REVERT-FILE ...)
; compiling (DEFUN DELETE-ORIGINAL ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;FILE-TMP.FASL.NEWEST written
; compilation finished in 0:00:05.191
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/fndb.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "COMMON-LISP")
; compiling (SB-C:DEFKNOWN OPEN ...)
; compiling (SB-C:DEFKNOWN LISTEN ...)
; compiling (SB-C:DEFKNOWN READ-SEQUENCE ...)
; compiling (SB-C:DEFKNOWN CLEAR-INPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;FNDB-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.027
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN %UNINITIALIZED ...)
; compiling (DEFUN %CHECK ...)
; compiling (DEFMETHOD INPUT-STREAM-P ...)
; compiling (DEFMETHOD OUTPUT-STREAM-P ...)
; compiling (DEFMETHOD OPEN-STREAM-P ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFUN %FILE-POSITION ...)
; compiling (DEFUN %FILE-LENGTH ...)
; compiling (DEFUN %FILE-NAME ...)
; compiling (DEFUN %FILE-RENAME ...)
; compiling (DEFUN %FILE-STRING-LENGTH ...)
; compiling (DEFUN %READ-LINE ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN %READ-LINE
;     (REPLACE SB-SIMPLE-STREAMS::CBUF SB-SIMPLE-STREAMS::BUF :START1
;              SB-SIMPLE-STREAMS::IDX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.

;     (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-READ-CHARS
;                                            SB-SIMPLE-STREAMS::ENCAP
;                                            SB-SIMPLE-STREAMS::CBUF #\Newline
;                                            SB-SIMPLE-STREAMS::INDEX
;                                            (LENGTH SB-SIMPLE-STREAMS::CBUF) T)
; --> LET FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SB-SIMPLE-STREAMS:SM SB-SIMPLE-STREAMS::J-READ-CHARS #:G483))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (REPLACE STRING SB-SIMPLE-STREAMS::BUF :START1 SB-SIMPLE-STREAMS::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.

; compiling (DEFUN %READ-CHAR ...)
; compiling (DEFUN %UNREAD-CHAR ...)
; compiling (DEFUN %PEEK-CHAR ...)
; compiling (DEFUN %LISTEN ...)
; compiling (DEFUN %CLEAR-INPUT ...)
; compiling (DEFUN %READ-BYTE ...)
; compiling (DEFUN %WRITE-CHAR ...)
; compiling (DEFUN %FRESH-LINE ...)
; compiling (DEFUN %WRITE-STRING ...)
; compiling (DEFUN %LINE-LENGTH ...)
; compiling (DEFUN %FINISH-OUTPUT ...)
; compiling (DEFUN %FORCE-OUTPUT ...)
; compiling (DEFUN %CLEAR-OUTPUT ...)
; compiling (DEFUN %WRITE-BYTE ...)
; compiling (DEFUN %READ-SEQUENCE ...)
; compiling (DEFUN %WRITE-SEQUENCE ...)
; compiling (DEFUN READ-VECTOR ...)
; compiling (DEFMETHOD OPEN-STREAM-P ...)
; compiling (DEFMETHOD INPUT-STREAM-P ...)
; compiling (DEFMETHOD OUTPUT-STREAM-P ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFUN INTERACTIVE-STREAM-P ...)
; compiling (DEFUN (SETF INTERACTIVE-STREAM-P) ...)
; compiling (DEFUN FILE-STRING-LENGTH ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN FILE-STRING-LENGTH
;     (SB-SIMPLE-STREAMS::%FILE-STRING-LENGTH STREAM SB-SIMPLE-STREAMS::OBJECT)
; ==>
;   STREAM
; 
; note: deleting unreachable code

; compiling (DEFUN STREAM-EXTERNAL-FORMAT ...)
; compiling (DEFUN OPEN ...)
; compiling (DECLAIM (INLINE READ-BYTE ...))
; compiling (DEFUN READ-BYTE ...)
; compiling (DEFUN READ-CHAR ...)
; compiling (DEFUN READ-CHAR-NO-HANG ...)
; compiling (DEFUN UNREAD-CHAR ...)
; compiling (DECLAIM (NOTINLINE READ-BYTE ...))
; compiling (DEFUN PEEK-CHAR ...)
; compiling (DEFUN LISTEN ...)
; compiling (DEFUN READ-LINE ...)
; compiling (DEFUN READ-SEQUENCE ...)
; compiling (DEFUN CLEAR-INPUT ...)
; compiling (DEFUN WRITE-BYTE ...)
; compiling (DEFUN WRITE-CHAR ...)
; compiling (DEFUN WRITE-STRING ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN WRITE-STRING
;     (DEFUN WRITE-STRING
;            (STRING
;             &OPTIONAL (STREAM *STANDARD-OUTPUT*)
;             &KEY (SB-SIMPLE-STREAMS::START 0) (SB-SIMPLE-STREAMS::END NIL))
;       "Outputs the String to the given Stream."
;       (LET ((STREAM (SB-INT:OUT-SYNONYM-OF STREAM))
;             (SB-SIMPLE-STREAMS::END
;              (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING
;                                                       SB-SIMPLE-STREAMS::START
;                                                       SB-SIMPLE-STREAMS::END)))
;         (ETYPECASE STREAM
;           (SB-SIMPLE-STREAMS:SIMPLE-STREAM
;            (SB-SIMPLE-STREAMS::%WRITE-STRING STREAM STRING
;             SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END)
;            STRING)
;           (SB-KERNEL:ANSI-STREAM
;            (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM
;                                               SB-SIMPLE-STREAMS::START
;                                               SB-SIMPLE-STREAMS::END))
;           (FUNDAMENTAL-STREAM
;            (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START
;                                 SB-SIMPLE-STREAMS::END)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WRITE-STRING
;         (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY
;                 (SB-SIMPLE-STREAMS::START 0) (SB-SIMPLE-STREAMS::END NIL))
;       (BLOCK WRITE-STRING
;         (LET ((STREAM #) (SB-SIMPLE-STREAMS::END #))
;           (ETYPECASE STREAM
;             (SB-SIMPLE-STREAMS:SIMPLE-STREAM # STRING)
;             (SB-KERNEL:ANSI-STREAM #)
;             (FUNDAMENTAL-STREAM #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL
;                                                             (STREAM
;                                                              *STANDARD-OUTPUT*)
;                                                             &KEY (START 0)
;                                                             (END NIL))

; compiling (DEFUN WRITE-LINE ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN WRITE-LINE
;     (DEFUN WRITE-LINE
;            (STRING
;             &OPTIONAL (STREAM *STANDARD-OUTPUT*)
;             &KEY (SB-SIMPLE-STREAMS::START 0) SB-SIMPLE-STREAMS::END)
;       (DECLARE (TYPE STRING STRING))
;       (LET ((STREAM (SB-INT:OUT-SYNONYM-OF STREAM))
;             (SB-SIMPLE-STREAMS::END
;              (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING
;                                                       SB-SIMPLE-STREAMS::START
;                                                       SB-SIMPLE-STREAMS::END)))
;         (ETYPECASE STREAM
;           (SB-SIMPLE-STREAMS:SIMPLE-STREAM
;            (SB-SIMPLE-STREAMS::%CHECK STREAM :OUTPUT)
;            (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS #
;              #
;              #))
;           (SB-KERNEL:ANSI-STREAM
;            (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM
;                                               SB-SIMPLE-STREAMS::START
;                                               SB-SIMPLE-STREAMS::END)
;            (FUNCALL # STREAM #\Newline))
;           (FUNDAMENTAL-STREAM
;            (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START
;                                 SB-SIMPLE-STREAMS::END)
;            (STREAM-TERPRI STREAM))))
;       STRING)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WRITE-LINE
;         (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY
;                 (SB-SIMPLE-STREAMS::START 0) SB-SIMPLE-STREAMS::END)
;       (DECLARE (TYPE STRING STRING))
;       (BLOCK WRITE-LINE
;         (LET ((STREAM #) (SB-SIMPLE-STREAMS::END #))
;           (ETYPECASE STREAM
;             (SB-SIMPLE-STREAMS:SIMPLE-STREAM # #)
;             (SB-KERNEL:ANSI-STREAM # #)
;             (FUNDAMENTAL-STREAM # #)))
;         STRING))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL
;                                                             (STREAM
;                                                              *STANDARD-OUTPUT*)
;                                                             &KEY (START 0) END)

; compiling (DEFUN WRITE-SEQUENCE ...)
; compiling (DEFUN TERPRI ...)
; compiling (DEFUN FRESH-LINE ...)
; compiling (DEFUN FINISH-OUTPUT ...)
; compiling (DEFUN FORCE-OUTPUT ...)
; compiling (DEFUN CLEAR-OUTPUT ...)
; compiling (DEFUN FILE-POSITION ...)
; compiling (DEFUN FILE-LENGTH ...)
; compiling (DEFUN CHARPOS ...)
; compiling (DEFUN LINE-LENGTH ...)
; compiling (DEFUN WAIT-FOR-INPUT-AVAILABLE ...)
; compiling (DEFUN SB-INT:FILE-NAME ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;IMPL-TMP.FASL.NEWEST written
; compilation finished in 0:00:12.983
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-simple-streams" "impl">

; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/internal.lisp
; in: DEFUN SB-SIMPLE-STREAMS:READ-OCTETS
;     (SB-SIMPLE-STREAMS::%READ-VECTOR SB-SIMPLE-STREAMS::BUFFER
;      SB-SIMPLE-STREAMS::FD SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END
;      :BYTE-8
;      (IF SB-SIMPLE-STREAMS::BLOCKING
;          :BNB
;          NIL))
; 
; caught STYLE-WARNING:
;   undefined function: SB-SIMPLE-STREAMS::%READ-VECTOR
; 
; compilation unit finished
;   Undefined function:
;     SB-SIMPLE-STREAMS::%READ-VECTOR
;   caught 3 STYLE-WARNING conditions
;   printed 8 notes
* echo "(defsystem :sb-simple-streams :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-simple-streams.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-simple-streams")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
STYLE-WARNING:
   Generic function OPEN-STREAM-P clobbers an earlier FTYPE proclamation
   (FUNCTION (STREAM) (VALUES (MEMBER T NIL) &OPTIONAL)) for the same name with
   (FUNCTION (T) *).
STYLE-WARNING:
   Generic function CLOSE clobbers an earlier FTYPE proclamation
   (FUNCTION (STREAM &KEY (:ABORT T)) (VALUES (MEMBER T) &OPTIONAL)) for the
   same name with (FUNCTION (T &KEY (:ABORT T)) *).
STYLE-WARNING: redefining COMMON-LISP:INTERACTIVE-STREAM-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FILE-STRING-LENGTH in DEFUN
STYLE-WARNING: redefining COMMON-LISP:STREAM-EXTERNAL-FORMAT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:OPEN in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-BYTE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-CHAR-NO-HANG in DEFUN
STYLE-WARNING: redefining COMMON-LISP:UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:PEEK-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:LISTEN in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-LINE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-SEQUENCE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:CLEAR-INPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-BYTE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-STRING in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-LINE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-SEQUENCE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:TERPRI in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FRESH-LINE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FINISH-OUTPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FORCE-OUTPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:CLEAR-OUTPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FILE-POSITION in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FILE-LENGTH in DEFUN
STYLE-WARNING: redefining SB-KERNEL:CHARPOS in DEFUN
STYLE-WARNING: redefining SB-KERNEL:LINE-LENGTH in DEFUN
STYLE-WARNING: redefining SB-INT:FILE-NAME in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-READ-CHAR in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-READ-CHARS in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-WRITE-CHAR in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-WRITE-CHARS in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-LISTEN in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/simple-stream-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE SB-SIMPLE-STREAMS-TEST ...)
; compiling (IN-PACKAGE #:SB-SIMPLE-STREAMS-TEST)
; compiling (DEFPARAMETER *DUMB-STRING* ...)
; compiling (DEFPARAMETER *TEST-PATH* ...)
; compiling (DEFPARAMETER *TEST-FILE* ...)
; compiling (ENSURE-DIRECTORIES-EXIST *TEST-PATH* ...)
; compiling (DEFUN REMOVE-KEY ...)
; compiling (DEFUN CREATE-TEST-FILE ...)
; compiling (DEFUN REMOVE-TEST-FILE ...)
; compiling (DEFMACRO WITH-TEST-FILE ...)
; compiling (DEFTEST NON-EXISTENT-CLASS ...)
; compiling (DEFTEST NON-STREAM-CLASS ...)
; compiling (DEFTEST CREATE-FILE-1 ...)
; compiling (DEFTEST CREATE-FILE-2 ...)
; compiling (DEFTEST CREATE-READ-FILE-1 ...)
; compiling (DEFTEST CREATE-READ-MAPPED-FILE-1 ...)
; compiling (DEFTEST WRITE-READ-INET ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-1 ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-2 ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-3 ...)
; compiling (DEFTEST WRITE-READ-LARGE-DC-1 ...)
; compiling (DEFTEST FILE-POSITION-1 ...)
; compiling (DEFTEST FILE-POSITION-2 ...)
; compiling (DEFTEST FILE-POSITION-3 ...)
; compiling (DEFTEST FILE-POSITION-4 ...)
; compiling (DEFTEST FILE-POSITION-5 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-1 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-2 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-3 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-4 ...)
; compiling (DEFTEST WRITE-READ-APPEND-SC-1 ...)
; compiling (DEFTEST WRITE-READ-MIXED-SC-1 ...)
; compiling (DEFPARAMETER *MULTI-LINE-STRING* ...)
; compiling (DEFMACRO WITH-DC-TEST-STREAM ...)
; compiling (DEFMACRO WITH-SC-TEST-STREAM ...)
; compiling (DEFTEST LISTEN-DC-1 ...)
; compiling (DEFTEST LISTEN-DC-2 ...)
; compiling (DEFTEST LISTEN-DC-3 ...)
; compiling (DEFTEST CHARPOS-1 ...)
; compiling (DEFTEST CHARPOS-2 ...)
; compiling (DEFTEST READER-1 ...)
; compiling (DEFTEST LINE-LENGTH-DC-1 ...)
; compiling (DEFVAR *SYNONYM*)
; compiling (DEFTEST SYNONYM-STREAM-1 ...)
; compiling (DEFTEST SYNONYM-STREAM-2 ...)
; compiling (DEFTEST SYNONYM-STREAM-3 ...)
; compiling (DEFTEST SYNONYM-STREAM-4 ...)
; compiling (DEFTEST SYNONYM-STREAM-5 ...)
; compiling (DEFTEST SYNONYM-STREAM-6 ...)
; compiling (DEFTEST SYNONYM-STREAM-7 ...)
; compiling (DEFTEST SYNONYM-STREAM-8 ...)
; compiling (DEFTEST SYNONYM-STREAM-9 ...)
; compiling (DEFTEST SYNONYM-STREAM-10 ...)
; compiling (DEFTEST SYNONYM-STREAM-11 ...)
; compiling (DEFTEST SYNONYM-STREAM-12 ...)
; compiling (DEFTEST SYNONYM-STREAM-13 ...)
; compiling (DEFTEST SYNONYM-STREAM-14 ...)
; compiling (DEFTEST SYNONYM-STREAM-15 ...)
; compiling (DEFTEST SYNONYM-STREAM-16 ...)
; compiling (DEFTEST BROADCAST-STREAM-4 ...)
; compiling (DEFTEST BROADCAST-STREAM-5 ...)
; compiling (DEFTEST BROADCAST-STREAM-6 ...)
; compiling (DEFTEST BROADCAST-STREAM-9 ...)
; compiling (DEFTEST BROADCAST-STREAM-10 ...)
; compiling (DEFTEST BROADCAST-STREAM-11 ...)
; compiling (DEFTEST BROADCAST-STREAM-12 ...)
; compiling (DEFTEST BROADCAST-STREAM-13 ...)
; compiling (DEFTEST BROADCAST-STREAM-14 ...)
; compiling (DEFTEST BROADCAST-STREAM-16 ...)
; compiling (DEFTEST TWO-WAY-STREAM-1 ...)
; compiling (DEFTEST TWO-WAY-STREAM-2 ...)
; compiling (DEFTEST TWO-WAY-STREAM-3 ...)
; compiling (DEFTEST TWO-WAY-STREAM-4 ...)
; compiling (DEFTEST TWO-WAY-STREAM-5 ...)
; compiling (DEFTEST TWO-WAY-STREAM-6 ...)
; compiling (DEFTEST TWO-WAY-STREAM-7 ...)
; compiling (DEFTEST TWO-WAY-STREAM-8 ...)
; compiling (DEFTEST TWO-WAY-STREAM-9 ...)
; compiling (DEFTEST TWO-WAY-STREAM-10 ...)
; compiling (DEFTEST TWO-WAY-STREAM-11 ...)
; compiling (DEFTEST TWO-WAY-STREAM-12 ...)
; compiling (DEFTEST TWO-WAY-STREAM-13 ...)
; compiling (DEFTEST TWO-WAY-STREAM-14 ...)
; compiling (DEFTEST TWO-WAY-STREAM-16 ...)
; compiling (DEFTEST ECHO-STREAM-1 ...)
; compiling (DEFTEST ECHO-STREAM-2 ...)
; compiling (DEFTEST ECHO-STREAM-3 ...)
; compiling (DEFTEST ECHO-STREAM-7 ...)
; compiling (DEFTEST ECHO-STREAM-8 ...)
; compiling (DEFTEST ECHO-STREAM-11 ...)
; compiling (DEFTEST ECHO-STREAM-12 ...)
; compiling (DEFTEST ECHO-STREAM-13 ...)
; compiling (DEFTEST ECHO-STREAM-14 ...)
; compiling (DEFTEST ECHO-STREAM-16 ...)
; compiling (DEFTEST CONCATENATED-STREAM-1 ...)
; compiling (DEFTEST CONCATENATED-STREAM-2 ...)
; compiling (DEFTEST CONCATENATED-STREAM-3 ...)
; compiling (DEFTEST CONCATENATED-STREAM-7 ...)
; compiling (DEFTEST CONCATENATED-STREAM-8 ...)
; compiling (DEFTEST CONCATENATED-STREAM-11 ...)
; compiling (DEFTEST CONCATENATED-STREAM-12 ...)
; compiling (DEFTEST CONCATENATED-STREAM-13 ...)
; compiling (DEFTEST CONCATENATED-STREAM-14 ...)
; compiling (DEFTEST CONCATENATED-STREAM-16 ...)
; compiling (DEFTEST FILE-SIMPLE-STREAM-1 ...)
; compiling (DEFTEST STRING-SIMPLE-STREAM-1 ...)
; compiling (DEFTEST EXTERNAL-FORMAT-1 ...)
; compiling (DEFTEST LP491087 ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;SIMPLE-STREAM-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.234
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-sprof'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-sprof" "sb-sprof") :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:SB-SPROF ...)
; compiling (IN-PACKAGE #:SB-SPROF)
; compiling (DEFSTRUCT (VERTEX # ...) ...)
; compiling (DEFSTRUCT EDGE ...)
; compiling (DEFSTRUCT GRAPH ...)
; compiling (DECLAIM (INLINE SCC-P))
; compiling (DEFUN SCC-P ...)
; compiling (DEFMACRO DO-VERTICES ...)
; compiling (DEFMACRO DO-EDGES ...)
; compiling (DEFUN SELF-CYCLE-P ...)
; compiling (DEFUN MAP-VERTICES ...)
; compiling (DEFUN STRONG-COMPONENTS ...)
; compiling (DEFUN TOPOLOGICAL-SORT ...)
; compiling (DEFUN REDUCE-GRAPH ...)
; compiling (DEFTYPE ADDRESS ...)
; compiling (DEFCONSTANT +UNKNOWN-ADDRESS+ ...)
; compiling (DEFSTRUCT (CALL-GRAPH # ...) ...)
; compiling (DEFSTRUCT (NODE # ...) ...)
; compiling (DEFSTRUCT (CYCLE #))
; compiling (DEFSTRUCT (CALL # ...) ...)
; compiling (DEFVAR *SAMPLE-INTERVAL* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *ALLOC-INTERVAL* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *MAX-SAMPLES* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (SAMPLES) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFTYPE REPORT-TYPE ...)
; compiling (DEFVAR *SAMPLING-MODE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ALLOC-REGION-SIZE* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *SAMPLES* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *PROFILING* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SAMPLING* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *SHOW-PROGRESS* ...)
; compiling (DEFVAR *OLD-SAMPLING* ...)
; compiling (DEFVAR *ENCAPSULATIONS* ...)
; compiling (DEFUN TURN-OFF-SAMPLING ...)
; compiling (DEFUN TURN-ON-SAMPLING ...)
; compiling (DEFUN SHOW-PROGRESS ...)
; compiling (DEFUN START-SAMPLING ...)
; compiling (DEFUN STOP-SAMPLING ...)
; compiling (DEFMACRO WITH-SAMPLING ...)
; compiling (DECLAIM (INLINE DEBUG-INFO))
; compiling (DEFUN DEBUG-INFO ...)
; compiling (DEFUN ENSURE-SAMPLES-VECTOR ...)
; compiling (DECLAIM (INLINE RECORD))
; compiling (DEFUN RECORD ...)
; compiling (DEFUN RECORD-TRACE-START ...)
; compiling (DEFVAR *PROFILED-THREADS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *TIMER-THREAD* ...)
; compiling (DEFUN PROFILED-THREADS ...)
; compiling (DEFUN PROFILED-THREAD-P ...)
; compiling (DEFUN SIGPROF-HANDLER ...)
; compiling (DEFUN CODE-START ...)
; compiling (DEFUN CODE-BOUNDS ...)
; compiling (DEFMACRO WITH-PROFILING ...)
; compiling (DEFVAR *TIMER* ...)
; compiling (DEFVAR *OLD-ALLOC-INTERVAL* ...)
; compiling (DEFVAR *OLD-SAMPLE-INTERVAL* ...)
; compiling (DEFUN START-PROFILING ...)
; compiling (DEFUN STOP-PROFILING ...)
; compiling (DEFUN RESET ...)
; compiling (DEFUN MAKE-NODE ...)
; compiling (DEFVAR *NAME->NODE*)
; compiling (DEFMACRO WITH-LOOKUP-TABLES ...)
; compiling (DEFUN LOOKUP-NODE ...)
; compiling (DEFUN COLLECT-NODES ...)
; compiling (DEFUN MAKE-CALL-GRAPH-1 ...)
; compiling (DEFUN REDUCE-CALL-GRAPH ...)
; compiling (DEFUN COMPUTE-ACCRUED-COUNTS ...)
; compiling (DEFUN MAKE-CALL-GRAPH ...)
; compiling (DEFUN PRINT-SEPARATOR ...)
; compiling (DEFUN SAMPLES-PERCENT ...)
; compiling (DEFUN PRINT-CALL-GRAPH-HEADER ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REPORT-SORT-BY* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REPORT-SORT-ORDER* ...)
; compiling (DEFUN PRINT-FLAT ...)
; compiling (DEFUN PRINT-CYCLES ...)
; compiling (DEFUN PRINT-GRAPH ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN SAMPLE-PC-FROM-PC-OR-OFFSET ...)
; compiling (DEFUN ADD-DISASSEMBLY-PROFILE-NOTE ...)
; compiling (PUSHNEW (QUOTE ADD-DISASSEMBLY-PROFILE-NOTE) ...)
; compiling (DEFUN PROFILE-CALL-COUNTS ...)
; compiling (DEFUN PROFILE-CALL-COUNTS-FOR-FUNCTION ...)
; compiling (DEFUN UNPROFILE-CALL-COUNTS ...)
; compiling (DEFUN ENABLE-CALL-COUNTING ...)
; compiling (DEFUN DISABLE-CALL-COUNTING ...)
; compiling (DEFUN ENABLE-CALL-COUNTING-FOR-FUNCTION ...)
; file: /«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.lisp
; in: DEFUN ENABLE-CALL-COUNTING-FOR-FUNCTION
;     (INCF (THE (UNSIGNED-BYTE 59) (CAR SB-INT:INFO)))
; --> LET* 
; ==>
;   (+ 1 (THE (UNSIGNED-BYTE 59) (CAR #:INFO4198)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 59), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 576460752303423487) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 59), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 576460752303423487) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       etc.

; compiling (PROVIDE (QUOTE SB-SPROF))
; file: /«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.lisp
; in: DEFUN START-PROFILING
;     #'SB-SPROF::THREAD-DISTRIBUTION-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: THREAD-DISTRIBUTION-HANDLER
; 
; compilation unit finished
;   Undefined function:
;     THREAD-DISTRIBUTION-HANDLER
;   caught 1 STYLE-WARNING condition
;   printed 1 note


; /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.fasl written
; compilation finished in 0:00:10.217
* echo "(defsystem :sb-sprof :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(load (format nil "SYS:CONTRIB;~:@(~A~);TEST.LISP" "sb-sprof"))' </dev/null

Number of samples:   1000
Sample interval:     0.01 seconds
Total sampling time: 10.0 seconds
Number of cycles:    0
Sampled threads:

                               Callers
                 Total.     Function
 Count     %  Count     %      Callees
------------------------------------------------------------------------
     1   0.1                   TEST-0 [1]
   607  60.7   1000 100.0   TEST-0 [1]
     1   0.1                   TEST-0 [1]
   193  19.3                   SB-KERNEL:TWO-ARG-+ [3]
   200  20.0                   SB-KERNEL:TWO-ARG-< [2]
------------------------------------------------------------------------
   200  20.0                   TEST-0 [1]
   200  20.0    200  20.0   SB-KERNEL:TWO-ARG-< [2]
------------------------------------------------------------------------
   193  19.3                   TEST-0 [1]
   193  19.3    193  19.3   SB-KERNEL:TWO-ARG-+ [3]
------------------------------------------------------------------------


           Self        Total        Cumul
  Nr  Count     %  Count     %  Count     %    Calls  Function
------------------------------------------------------------------------
   1    607  60.7   1000 100.0    607  60.7        -  TEST-0
   2    200  20.0    200  20.0    807  80.7        -  SB-KERNEL:TWO-ARG-<
   3    193  19.3    193  19.3   1000 100.0        -  SB-KERNEL:TWO-ARG-+
------------------------------------------------------------------------
          0   0.0                                     elsewhere
.

Number of samples:   104
Sample interval:     0.1 seconds
Total sampling time: 10.400001 seconds
Number of cycles:    0
Sampled threads:

                               Callers
                 Total.     Function
 Count     %  Count     %      Callees
------------------------------------------------------------------------
    58  55.8     58  55.8   "foreign function sigprocmask" [1]
------------------------------------------------------------------------
    35  33.7                   CONSING-TEST [4]
    35  33.7     35  33.7   SB-VM::ALLOCATE-VECTOR-ON-HEAP [2]
------------------------------------------------------------------------
    10   9.6                   CONSING-TEST [4]
    10   9.6     10   9.6   CONSALOT [3]
------------------------------------------------------------------------
     1   1.0                   SB-INT:SIMPLE-EVAL-IN-LEXENV [5]
     1   1.0     46  44.2   CONSING-TEST [4]
    10   9.6                   CONSALOT [3]
    35  33.7                   SB-VM::ALLOCATE-VECTOR-ON-HEAP [2]
------------------------------------------------------------------------
     0   0.0      1   1.0   SB-INT:SIMPLE-EVAL-IN-LEXENV [5]
     1   1.0                   CONSING-TEST [4]
------------------------------------------------------------------------


           Self        Total        Cumul
  Nr  Count     %  Count     %  Count     %    Calls  Function
------------------------------------------------------------------------
   1     58  55.8     58  55.8     58  55.8        -  "foreign function sigprocmask"
   2     35  33.7     35  33.7     93  89.4        -  SB-VM::ALLOCATE-VECTOR-ON-HEAP
   3     10   9.6     10   9.6    103  99.0        -  CONSALOT
   4      1   1.0     46  44.2    104 100.0        -  CONSING-TEST
   5      0   0.0      1   1.0    104 100.0        -  SB-INT:SIMPLE-EVAL-IN-LEXENV
------------------------------------------------------------------------
          0   0.0                                     elsewhere
; disassembly for CONSALOT
; Size: 216 bytes. Origin: #x51C1F418
; 18:       21049AE5         LDR R0, [NULL, #1057]            ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; 1C:       08008BE5         STR R0, [CFP, #8]
; 20:       0A30A0E1         MOV LEXENV, NULL
; 24:       719DA0E3         MOV NFP, 7232
; 28:       029989E3         ORR NFP, NFP, #32768
; 2C:       190000EA         B L2
; 30: L0:   049049E2         SUB NFP, NFP, #4
; 34:       D60FA0E3         MOV R0, 856
; 38:       2810A0E3         MOV R1, 40                       ; 1/104 samples
; 3C:       2820A0E3         MOV R2, 40                       ; 1/104 samples
; 40:       84E09FE5         LDR LR, [PC, #132]
; 44:       3EFF2FE1         BLX LR                           ; 1/104 samples
; 48:       0010A0E1         MOV R1, R0
; 4C:       51F48AE5         STR PC, [NULL, #1105]            ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
                                                              ; 1/104 samples
; 50:       94709FE5         LDR OCFP, [PC, #148]
; 54:       000097E5         LDR R0, [OCFP]
; 58:       047097E5         LDR OCFP, [OCFP, #4]
; 5C:       080080E2         ADD R0, R0, #8
; 60:       070050E1         CMP R0, OCFP
; 64:       1900008A         BHI L3
; 68:       7C709FE5         LDR OCFP, [PC, #124]
; 6C:       000087E5         STR R0, [OCFP]
; 70:       080040E2         SUB R0, R0, #8
; 74: L1:   030080E3         ORR R0, R0, #3
; 78:       51A48AE5         STR NULL, [NULL, #1105]          ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; 7C:       69749AE5         LDR OCFP, [NULL, #1129]          ; SB-VM::*PSEUDO-ATOMIC-INTERRUPTED*
; 80:       0A0057E1         CMP OCFP, NULL                   ; 1/104 samples
; 84:       2771A0B1         MOVLT OCFP, OCFP, LSR #2
; 88:       000000BF         SWILT #0
; 8C:       031000E5         STR R1, [R0, #-3]                ; 4/104 samples
; 90:       013080E5         STR LEXENV, [R0, #1]             ; 1/104 samples
; 94:       0030A0E1         MOV LEXENV, R0
; 98: L2:   000059E3         CMP NFP, 0
; 9C:       E3FFFFCA         BGT L0
; A0:       0300A0E1         MOV R0, LEXENV
; A4:       00709BE5         LDR OCFP, [CFP]
; A8:       04109BE5         LDR R1, [CFP, #4]
; AC:       09B48AE5         STR CFP, [NULL, #1033]           ; SB-VM::*CONTROL-STACK-POINTER*
; B0:       07B0A0E1         MOV CFP, OCFP
; B4:       00F028E3         MSR CPSR_f, #0
; B8:       03F041E2         SUB PC, R1, #3
; BC:       00000000         ANDEQ R0, R0, R0
; C0:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; C5:       04               BYTE #X04
; C6:       19               BYTE #X19                        ; INVALID-ARG-COUNT-ERROR
; C7:       FE0403           BYTE #XFE, #X04, #X03            ; NARGS
; CA:       .ALIGN           4
; CC:       30010004         STREQ R0, [R0], #-304
; D0: L3:   0800A0E3         MOV R0, 8
; D4:       01402DE9         BYTE #X01, #X40, #X2D, #XE9
; D8:       08009FE5         LDR R0, [PC, #8]
; DC:       30FF2FE1         BLX R0
; E0:       0140BDE8         BYTE #X01, #X40, #XBD, #XE8
; E4:       E2FFFFEA         B L1
; E8:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; EC:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-sprof'
537.88user 28.25system 9:29.84elapsed 99%CPU (0avgtext+0avgdata 111756maxresident)k
256inputs+165688outputs (2major+635202minor)pagefaults 0swaps

The build seems to have finished successfully, including 18 (out of 18)
contributed modules. If you would like to run more extensive tests on
the new SBCL, you can try:

  cd tests && sh ./run-tests.sh

  (All tests should pass on x86/Linux, x86/FreeBSD4, and ppc/Darwin. On
  other platforms some failures are currently expected; patches welcome
  as always.)

To build documentation:

  cd doc/manual && make

To install SBCL (more information in INSTALL):

  sh install.sh

//build started:  Thu Jun 11 06:59:25 UTC 2015
//build finished: Thu Jun 11 07:51:37 UTC 2015
./install.sh
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//uiop.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//asdf.fasl "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-aclrepl.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-aclrepl.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-bsd-sockets.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-bsd-sockets.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cltl2.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cltl2.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-concurrency.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-concurrency.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cover'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cover.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cover.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cover'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-executable'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-executable'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-gmp'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-gmp.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-gmp.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-gmp'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-grovel'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-grovel.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-grovel.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-grovel'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-introspect'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-introspect.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-introspect.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-introspect'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-md5'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-md5.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-md5.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-md5'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-mpfr.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-mpfr.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-posix'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-posix.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-posix.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-posix'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-queue'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-queue.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-queue.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-queue'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rotate-byte.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rotate-byte.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rt'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rt.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rt.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rt'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-simple-streams.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-simple-streams.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-sprof'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.asd "/«PKGBUILDDIR»/stage1/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-sprof'

SBCL has been installed:
 binary /«PKGBUILDDIR»/stage1/bin/sbcl
 core and contribs in /«PKGBUILDDIR»/stage1/lib/sbcl/

Documentation:
 man /«PKGBUILDDIR»/stage1/share/man/man1/sbcl.1
chmod 100 stage1
./clean.sh
make[1]: Entering directory '/«PKGBUILDDIR»/doc/manual'
find: `../../obj/asdf-cache/sb-md5': No such file or directory
find: `../../obj/asdf-cache/sb-queue': No such file or directory
find: `../../obj/asdf-cache/sb-concurrency': No such file or directory
find: `../../obj/asdf-cache/sb-rotate-byte': No such file or directory
find: `../../obj/asdf-cache/sb-grovel': No such file or directory
find: `../../obj/asdf-cache/sb-sprof': No such file or directory
find: `../../obj/asdf-cache/sb-bsd-sockets': No such file or directory
find: `../../obj/asdf-cache/sb-cover': No such file or directory
find: `../../obj/asdf-cache/sb-posix': No such file or directory
rm -f *~ *.bak *.orig \#*\# .\#* texput.log *.fasl
rm -rf sbcl asdf "docstrings/"
rm -f  sbcl.html asdf.html
rm -f contrib-docs.texi-temp
rm -f package-locks.texi-temp
rm -f variables.texinfo
rm -f sbcl.ps asdf.ps sbcl.pdf asdf.pdf html-stamp tempfiles-stamp
rm -f asdf.aux asdf.cp asdf.cps asdf.fn asdf.fns asdf.ky asdf.log asdf.pg asdf.toc asdf.tp asdf.tps asdf.vr asdf.vrs sbcl.aux sbcl.cp sbcl.cps sbcl.fn sbcl.fns sbcl.ky sbcl.log sbcl.pg sbcl.toc sbcl.tp sbcl.tps sbcl.vr sbcl.vrs 
rm -f sbcl.info sbcl.info-* asdf.info
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
make[1]: Entering directory '/«PKGBUILDDIR»/doc/internals'
rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \
	*.tp *.vr *.aux *.eps *.png *.dvi *.ps *.txt *.fns \
	html-stamp sbcl-internals/
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/internals'
find: `./stage1': Permission denied
./make.sh --prefix="/usr/" --xc-host="/«PKGBUILDDIR»/stage1/bin/sbcl --no-sysinit --no-userinit --disable-debugger" --fancy
make[1]: Entering directory '/«PKGBUILDDIR»/doc/manual'
find: `../../obj/asdf-cache/sb-md5': No such file or directory
find: `../../obj/asdf-cache/sb-queue': No such file or directory
find: `../../obj/asdf-cache/sb-concurrency': No such file or directory
find: `../../obj/asdf-cache/sb-rotate-byte': No such file or directory
find: `../../obj/asdf-cache/sb-grovel': No such file or directory
find: `../../obj/asdf-cache/sb-sprof': No such file or directory
find: `../../obj/asdf-cache/sb-bsd-sockets': No such file or directory
find: `../../obj/asdf-cache/sb-cover': No such file or directory
find: `../../obj/asdf-cache/sb-posix': No such file or directory
rm -f *~ *.bak *.orig \#*\# .\#* texput.log *.fasl
rm -rf sbcl asdf "docstrings/"
rm -f  sbcl.html asdf.html
rm -f contrib-docs.texi-temp
rm -f package-locks.texi-temp
rm -f variables.texinfo
rm -f sbcl.ps asdf.ps sbcl.pdf asdf.pdf html-stamp tempfiles-stamp
rm -f asdf.aux asdf.cp asdf.cps asdf.fn asdf.fns asdf.ky asdf.log asdf.pg asdf.toc asdf.tp asdf.tps asdf.vr asdf.vrs sbcl.aux sbcl.cp sbcl.cps sbcl.fn sbcl.fns sbcl.ky sbcl.log sbcl.pg sbcl.toc sbcl.tp sbcl.tps sbcl.vr sbcl.vrs 
rm -f sbcl.info sbcl.info-* asdf.info
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
make[1]: Entering directory '/«PKGBUILDDIR»/doc/internals'
rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \
	*.tp *.vr *.aux *.eps *.png *.dvi *.ps *.txt *.fns \
	html-stamp sbcl-internals/
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/internals'
find: `./stage1': Permission denied
//entering make-config.sh
//ensuring the existence of output/ directory
//guessing default target CPU architecture from host architecture
//setting up CPU-architecture-dependent information
sbcl_arch="arm"
No threads on this platform.
//initializing /«PKGBUILDDIR»/local-target-features.lisp-expr
//setting up OS-dependent information
make[1]: Entering directory '/«PKGBUILDDIR»/tools-for-build'
cc -g -marm -march=armv5 -I../src/runtime   determine-endianness.c  -ldl -o determine-endianness
make[1]: Leaving directory '/«PKGBUILDDIR»/tools-for-build'
//finishing /«PKGBUILDDIR»/local-target-features.lisp-expr
//Starting build: Thu Jun 11 07:51:42 UTC 2015
//Options: --prefix='/usr/' --xc-host='/«PKGBUILDDIR»/stage1/bin/sbcl --no-sysinit --no-userinit --disable-debugger'
find: `./stage1': Permission denied
find: `./stage1': Permission denied
find: `./stage1': Permission denied
find: `./stage1': Permission denied
find: `./stage1': Permission denied
/in canonicalize-whitespace-1
/$*=./local-target-features.lisp-expr ./src/runtime/target-arch.h ./src/runtime/target-lispregs.h ./src/runtime/target-arch-os.h ./src/runtime/target-os.h
/$scratchfilename=/tmp/canonicalize-whitespace-1.18684.tmp
//entering make-host-1.sh
//building cross-compiler, and doing first genesis
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* 
5
* target features *SHEBANG-FEATURES*=(:OS-PROVIDES-POLL
                                      :OS-PROVIDES-GETPROTOBY-R
                                      :OS-PROVIDES-SUSECONDS-T
                                      :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN
                                      :LITTLE-ENDIAN
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :PRECISE-ARG-COUNT-ERROR
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :STACK-ALLOCATABLE-VECTORS
                                      :STACK-ALLOCATABLE-FIXED-OBJECTS
                                      :STACK-ALLOCATABLE-LISTS
                                      :SYMBOL-INFO-VOPS :MULTIPLY-HIGH-VOPS
                                      :ASH-RIGHT-VOPS :ARM-VFPV2 :ARM-VFP
                                      :ALIEN-CALLBACKS :LINKAGE-TABLE :GENCGC
                                      :LARGEFILE :LINUX :ELF :UNIX :ARM
                                      :IEEE-FLOATING-POINT
                                      :PACKAGE-LOCAL-NICKNAMES
                                      :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE
                                      :SB-PACKAGE-LOCKS :SB-LDB :SB-TEST
                                      :SB-DOC :SBCL :COMMON-LISP :ANSI-CL
                                      :SB-CORE-COMPRESSION
                                      :SB-XREF-FOR-INTERNALS :SB-AFTER-XC-CORE)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-host/"
* 
T
* 
T
* 
T
* 
T
* 
creating directory: /«PKGBUILDDIR»/obj/from-host/
creating directory: /«PKGBUILDDIR»/obj/from-host/src/
creating directory: /«PKGBUILDDIR»/obj/from-host/src/code/
; compiling file "/«PKGBUILDDIR»/src/code/early-source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN SOURCE-LOCATION ...)
; compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...)
; compiling (DEFMACRO WITH-SOURCE-LOCATION ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-source-location.fasl-tmp written
; compilation finished in 0:00:00.061
; compiling file "/«PKGBUILDDIR»/src/code/cross-early.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (DECLARATION TRULY-DYNAMIC-EXTENT))
; compiling (DECLAIM (DECLARATION FREEZE-TYPE ...))
; compiling (DECLAIM (DECLARATION INHIBIT-WARNINGS))

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-early.fasl-tmp written
; compilation finished in 0:00:00.015
; compiling file "/«PKGBUILDDIR»/src/code/show.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFMACRO /SHOW ...)
; compiling (DEFMACRO /NOSHOW ...)
; compiling (DEFMACRO /XHOW ...)
; compiling (DEFMACRO /NOXHOW ...)
; compiling (DEFMACRO /SHOW0 ...)
; compiling (DEFMACRO /NOSHOW0 ...)
; compiling (DEFMACRO /PRIMITIVE-PRINT ...)
; compiling (DEFMACRO /HEXSTR ...)
; compiling (DEFMACRO /NOHEXSTR ...)
; compiling (/SHOW0 "done with show.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/show.fasl-tmp written
; compilation finished in 0:00:00.234
; compiling file "/«PKGBUILDDIR»/src/code/early-constants.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-constants.fasl-tmp written
; compilation finished in 0:00:00.055
; compiling file "/«PKGBUILDDIR»/src/code/backq.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (/SHOW0 "entering backq.lisp")
; compiling (DEFSTRUCT (COMMA # ...) ...)
; compiling (DEFCONSTANT !+COMMA-DOT+ ...)
; compiling (DEFCONSTANT !+COMMA-AT+ ...)
; compiling (DEFUN UNQUOTE-NSPLICE ...)
; compiling (DEFUN UNQUOTE-SPLICE ...)
; compiling (DEFUN UNQUOTE* ...)
; compiling (DEFUN UNQUOTE*-SPLICE ...)
; compiling (DECLAIM (INLINE COMMA-CONSTRUCTOR ...))
; compiling (DEFUN COMMA-CONSTRUCTOR ...)
; compiling (DEFUN COMMA-SPLICING-P ...)
; compiling (DECLAIM (INLINE SINGLETON-P))
; compiling (DEFUN SINGLETON-P ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (SETF (GET # ...) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *BACKQUOTE-DEPTH* ...)
; compiling (DEFVAR *BQ-ERROR* ...)
; compiling (/SHOW0 "backq.lisp 50")
; compiling (DEFUN BACKQUOTE-CHARMACRO ...)
; compiling (/SHOW0 "backq.lisp 64")
; compiling (DEFUN COMMA-CHARMACRO ...)
; compiling (/SHOW0 "backq.lisp 83")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (INLINE QQ-SUBFORM-SPLICING-P))
; compiling (DEFUN QQ-SUBFORM-SPLICING-P ...)
; compiling (DEFUN EXPAND-QUASIQUOTE ...)
; compiling (DEFINE-COMPILER-MACRO QUASIQUOTE ...)
; compiling (DEFMACRO QUASIQUOTE ...)
; compiling (DEFUN QQ-TEMPLATE-TO-SEXPR ...)
; compiling (/SHOW0 "backq.lisp 139")
; compiling (DEFUN QQ-FOLD-SUFFIX ...)
; compiling (DEFUN QQ-MAP-TEMPLATE-TO-LIST ...)
; compiling (DEFUN QQ-TEMPLATE-1 ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DEFUN !BACKQ-COLD-INIT ...)
; compiling (!BACKQ-COLD-INIT)
; compiling (DEFUN SIMPLE-READER-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/backq.lisp
; in: DEFUN SIMPLE-READER-ERROR
;     (SB!INT:BUG "READER-ERROR on stream ~S: ~?" STREAM SB!IMPL::FORMAT-STRING
;      SB!IMPL::FORMAT-ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: BUG
; 
; compilation unit finished
;   Undefined function:
;     BUG
;   caught 1 STYLE-WARNING condition
; compiling (/SHOW0 "done with backq.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/backq.fasl-tmp written
; compilation finished in 0:00:01.253
; compiling file "/«PKGBUILDDIR»/src/code/defsetfs.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (SB!INT:/SHOW0 "entering defsetfs.lisp")
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (DEFSETF SLOT ...)
; compiling (DEFSETF DEREF ...)
; compiling (DEFSETF %HEAP-ALIEN ...)
; compiling (IN-PACKAGE "SB!BIGNUM")
; compiling (DEFSETF %BIGNUM-REF ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFSETF WORD-SAP-REF ...)
; compiling (IN-PACKAGE "SB!DI")
; compiling (DEFSETF STACK-REF ...)
; compiling (DEFSETF DEBUG-VAR-VALUE ...)
; compiling (DEFSETF DEBUG-VAR-VALUE ...)
; compiling (DEFSETF BREAKPOINT-INFO ...)
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFSETF %INSTANCE-REF ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; compiling (DEFSETF %INSTANCE-LAYOUT ...)
; compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN %CXR-SETF-EXPANDER ...)
; compiling (DEFSETF %ARRAY-DIMENSION ...)
; compiling (DEFSETF %VECTOR-RAW-BITS ...)
; compiling (DEFSETF SAP-REF-8 ...)
; compiling (DEFSETF SIGNED-SAP-REF-8 ...)
; compiling (DEFSETF SAP-REF-16 ...)
; compiling (DEFSETF SIGNED-SAP-REF-16 ...)
; compiling (DEFSETF SAP-REF-32 ...)
; compiling (DEFSETF SIGNED-SAP-REF-32 ...)
; compiling (DEFSETF SAP-REF-64 ...)
; compiling (DEFSETF SIGNED-SAP-REF-64 ...)
; compiling (DEFSETF SAP-REF-WORD ...)
; compiling (DEFSETF SIGNED-SAP-REF-WORD ...)
; compiling (DEFSETF SAP-REF-SAP ...)
; compiling (DEFSETF SAP-REF-LISPOBJ ...)
; compiling (DEFSETF SAP-REF-SINGLE ...)
; compiling (DEFSETF SAP-REF-DOUBLE ...)
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFSETF CODE-HEADER-REF ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFSETF CONTEXT-REGISTER ...)
; compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...)

; file: /«PKGBUILDDIR»/src/code/defsetfs.lisp
; in: DEFUN SB!IMPL::%CXR-SETF-EXPANDER
;     (SB-XC:GENSYM "LIST")
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GENSYM
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GENSYM
;   caught 1 STYLE-WARNING condition
; compiling (/SHOW0 "leaving defsetfs.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/defsetfs.fasl-tmp written
; compilation finished in 0:00:00.173
; compiling file "/«PKGBUILDDIR»/src/code/cold-init-helper-macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFVAR *!COLD-INIT-FORMS*)
; compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...)
; compiling (DEFMACRO !COLD-INIT-FORMS ...)
; compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...)
; compiling (DEF !DEFGLOBAL ...)
; compiling (DEF !DEFPARAMETER ...)
; compiling (DEF !DEFVAR ...)
; compiling (DEFUN !DELAYED-COLD-SET-SYMBOL-VALUE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cold-init-helper-macros.fasl-tmp written
; compilation finished in 0:00:00.234
; compiling file "/«PKGBUILDDIR»/src/code/cross-misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO TRULY-THE ...)
; compiling (DEFMACRO NAMED-LAMBDA ...)
; compiling (DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (DEFMACRO WITH-LOCKED-HASH-TABLE ...)
; compiling (DEFMACRO WITH-LOCKED-SYSTEM-TABLE ...)
; compiling (DEFMACRO DEFGLOBAL ...)
; compiling (DEFTYPE ANSI-STREAM ...)
; compiling (DEFTYPE INSTANCE ...)
; compiling (DEFTYPE FUNCALLABLE-INSTANCE ...)
; compiling (DEFUN %INSTANCEP ...)
; compiling (DEFUN FUNCALLABLE-INSTANCE-P ...)
; compiling (DEFUN ARRAY-HEADER-P ...)
; compiling (DEFVAR SB-XC:*GENSYM-COUNTER* ...)
; compiling (DEFUN SB-XC:GENSYM ...)
; compiling (DEFUN SIMPLE-ARRAY-NIL-P ...)
; compiling (DEFUN %NEGATE ...)
; compiling (DEFUN %SINGLE-FLOAT ...)
; compiling (DEFUN %DOUBLE-FLOAT ...)
; compiling (DEFUN %LDB ...)
; compiling (DEFUN %DPB ...)
; compiling (DEFUN %WITH-ARRAY-DATA ...)
; compiling (DEFUN %WITH-ARRAY-DATA/FP ...)
; compiling (DEFUN SIGNED-BYTE-32-P ...)
; compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...)
; compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...)
; compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...)
; compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; compiling (DECLAIM (DECLARATION ENABLE-PACKAGE-LOCKS ...))

; file: /«PKGBUILDDIR»/src/code/cross-misc.lisp
; in: DEFUN %DPB
;     (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN)
; 
; caught STYLE-WARNING:
;   undefined function: BYTE

; in: DEFUN %LDB
;     (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN)
; 
; caught STYLE-WARNING:
;   undefined function: BYTE

; in: DEFUN %DPB
;     (SB-XC:DPB SB!IMPL::NEWBYTE (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER)
; 
; caught STYLE-WARNING:
;   undefined function: DPB

; in: DEFUN %LDB
;     (SB-XC:LDB (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER)
; 
; caught STYLE-WARNING:
;   undefined function: LDB
; 
; compilation unit finished
;   Undefined functions:
;     BYTE DPB LDB
;   caught 4 STYLE-WARNING conditions
; compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-misc.fasl-tmp written
; compilation finished in 0:00:00.532
; compiling file "/«PKGBUILDDIR»/src/code/cross-char.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (LET (#) ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-char.fasl-tmp written
; compilation finished in 0:00:00.082
; compiling file "/«PKGBUILDDIR»/src/code/cross-byte.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFUN BYTE ...)
; compiling (DEFUN BYTE-SIZE ...)
; compiling (DEFUN BYTE-POSITION ...)
; compiling (DEFUN UNCROSS-BYTE ...)
; compiling (DEFUN LDB ...)
; compiling (DEFUN LDB-TEST ...)
; compiling (DEFUN DPB ...)
; compiling (DEFUN MASK-FIELD ...)
; compiling (DEFUN DEPOSIT-FIELD ...)
; compiling (DEFINE-SETF-EXPANDER LDB ...)

; file: /«PKGBUILDDIR»/src/code/cross-byte.lisp
; in: DEFINE-SETF-EXPANDER MASK-FIELD
;     (SB!INT:BUG "SETF SB!XC:MASK-FIELD too hairy!")
; 
; caught STYLE-WARNING:
;   undefined function: BUG

; in: DEFINE-SETF-EXPANDER LDB
;     (SB!INT:BUG "SETF SB!XC:LDB too hairy!")
; 
; caught STYLE-WARNING:
;   undefined function: BUG
; 
; compilation unit finished
;   Undefined function:
;     BUG
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-SETF-EXPANDER MASK-FIELD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-byte.fasl-tmp written
; compilation finished in 0:00:00.176
; compiling file "/«PKGBUILDDIR»/src/code/cross-boole.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFCONSTANT BOOLE-CLR ...)
; compiling (DEFCONSTANT BOOLE-SET ...)
; compiling (DEFCONSTANT BOOLE-1 ...)
; compiling (DEFCONSTANT BOOLE-2 ...)
; compiling (DEFCONSTANT BOOLE-C1 ...)
; compiling (DEFCONSTANT BOOLE-C2 ...)
; compiling (DEFCONSTANT BOOLE-AND ...)
; compiling (DEFCONSTANT BOOLE-IOR ...)
; compiling (DEFCONSTANT BOOLE-XOR ...)
; compiling (DEFCONSTANT BOOLE-EQV ...)
; compiling (DEFCONSTANT BOOLE-NAND ...)
; compiling (DEFCONSTANT BOOLE-NOR ...)
; compiling (DEFCONSTANT BOOLE-ANDC1 ...)
; compiling (DEFCONSTANT BOOLE-ANDC2 ...)
; compiling (DEFCONSTANT BOOLE-ORC1 ...)
; compiling (DEFCONSTANT BOOLE-ORC2 ...)
; compiling (DEFUN BOOLE ...)
; compiling (DEFUN UNCROSS-BOOLE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-boole.fasl-tmp written
; compilation finished in 0:00:00.057
; compiling file "/«PKGBUILDDIR»/src/code/cross-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...)
; compiling (DEFUN MASK-AND-SIGN-EXTEND ...)
; compiling (DEFUN SINGLE-FLOAT-BITS ...)
; compiling (DEFUN DOUBLE-FLOAT-BITS ...)
; compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...)
; compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...)
; compiling (DEFUN KLUDGE-OPAQUE-EXPT ...)
; compiling (DEFUN MAKE-SINGLE-FLOAT ...)
; compiling (DEFUN MAKE-DOUBLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-float.fasl-tmp written
; compilation finished in 0:00:00.372
; compiling file "/«PKGBUILDDIR»/src/code/cross-io.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFMACRO WITH-FAST-READ-BYTE ...)
; compiling (DEFUN FORM-TRACKING-STREAM-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-io.fasl-tmp written
; compilation finished in 0:00:00.082
; compiling file "/«PKGBUILDDIR»/src/code/cross-sap.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!SYS")
; compiling (DEFSTRUCT (SYSTEM-AREA-POINTER # ...) ...)
; compiling (DEFUN SAP+ ...)
; compiling (DEFUN SAP< ...)
; compiling (DEFUN SAP<= ...)
; compiling (DEFUN SAP= ...)
; compiling (DEFUN SAP>= ...)
; compiling (DEFUN SAP> ...)
; compiling (DEFUN SAP- ...)
; compiling (DEFUN SAP-REF-STUB ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-8 ...)
; compiling (DEFUN #:SETTER-STUB-116 ...)
; compiling (DEFSETF SAP-REF-8 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-16 ...)
; compiling (DEFUN #:SETTER-STUB-117 ...)
; compiling (DEFSETF SAP-REF-16 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-32 ...)
; compiling (DEFUN #:SETTER-STUB-118 ...)
; compiling (DEFSETF SAP-REF-32 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-64 ...)
; compiling (DEFUN #:SETTER-STUB-119 ...)
; compiling (DEFSETF SAP-REF-64 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-SAP ...)
; compiling (DEFUN #:SETTER-STUB-120 ...)
; compiling (DEFSETF SAP-REF-SAP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-WORD ...)
; compiling (DEFUN #:SETTER-STUB-121 ...)
; compiling (DEFSETF SAP-REF-WORD ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-SINGLE ...)
; compiling (DEFUN #:SETTER-STUB-122 ...)
; compiling (DEFSETF SAP-REF-SINGLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-DOUBLE ...)
; compiling (DEFUN #:SETTER-STUB-123 ...)
; compiling (DEFSETF SAP-REF-DOUBLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-8 ...)
; compiling (DEFUN #:SETTER-STUB-124 ...)
; compiling (DEFSETF SIGNED-SAP-REF-8 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-16 ...)
; compiling (DEFUN #:SETTER-STUB-125 ...)
; compiling (DEFSETF SIGNED-SAP-REF-16 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-32 ...)
; compiling (DEFUN #:SETTER-STUB-126 ...)
; compiling (DEFSETF SIGNED-SAP-REF-32 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-64 ...)
; compiling (DEFUN #:SETTER-STUB-127 ...)
; compiling (DEFSETF SIGNED-SAP-REF-64 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-WORD ...)
; compiling (DEFUN #:SETTER-STUB-128 ...)

; file: /«PKGBUILDDIR»/src/code/cross-sap.lisp
; in: DEFUN SAP+
;     (SB!SYS::MAKE-SAP :INT (+ (SB!SYS:SAP-INT SB!SYS::SAP) SB!SYS::OFFSET))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SAP

;     (DEFUN SB!SYS:SAP+ (SB!SYS::SAP SB!SYS::OFFSET)
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!SYS::SAP)
;                (TYPE SB!SYS:SAP-INT SB!SYS::OFFSET))
;       (SB!SYS::MAKE-SAP :INT (+ (SB!SYS:SAP-INT SB!SYS::SAP) SB!SYS::OFFSET)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G41 'SB!SYS:SAP-INT)
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT

;     (TYPE SB!SYS:SAP-INT SB!SYS::OFFSET)
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT
; 
; compilation unit finished
;   Undefined type:
;     SAP-INT
;   Undefined function:
;     MAKE-SAP
;   caught 3 STYLE-WARNING conditions
; compiling (DEFSETF SIGNED-SAP-REF-WORD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-sap.fasl-tmp written
; compilation finished in 0:00:00.801
; compiling file "/«PKGBUILDDIR»/src/code/cross-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEFUN MAKE-MUTEX ...)
; compiling (DEFMACRO WITH-MUTEX ...)
; compiling (DEFMACRO WITH-RECURSIVE-LOCK ...)
; compiling (DEFMACRO BARRIER ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-thread.fasl-tmp written
; compilation finished in 0:00:00.150
; compiling file "/«PKGBUILDDIR»/src/code/cross-make-load-form.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")

; file: /«PKGBUILDDIR»/src/code/cross-make-load-form.lisp
; in: DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS
;     (SB!INT:BUG "MAKE-LOAD-FORM-SAVING-SLOTS ~
;                   called with :SLOT-NAMES argument during cross-compilation")
; 
; caught STYLE-WARNING:
;   undefined function: BUG
; 
; compilation unit finished
;   Undefined function:
;     BUG
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-make-load-form.fasl-tmp written
; compilation finished in 0:00:00.063
; compiling file "/«PKGBUILDDIR»/src/code/cross-condition.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...)
; compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...)
; compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...)
; compiling (DEFINE-CONDITION REFERENCE-CONDITION ...)
; compiling (DEFINE-CONDITION TYPE-WARNING ...)
; compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION BUG ...)
; compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...)
; compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...)
; compiling (DEFTYPE PACKAGE-LOCK-VIOLATION ...)
; compiling (DEFTYPE PACKAGE-LOCKED-ERROR ...)
; compiling (DEFTYPE SYMBOL-PACKAGE-LOCKED-ERROR ...)
; compiling (DEFINE-CONDITION SB!C:INLINING-DEPENDENCY-FAILURE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-condition.fasl-tmp written
; compilation finished in 0:00:00.284
; compiling file "/«PKGBUILDDIR»/src/code/uncross.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (LET (#) ...)
; compiling (DEFMACRO !UNCROSS-FORMAT-CONTROL ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/uncross.fasl-tmp written
; compilation finished in 0:00:00.105
; compiling file "/«PKGBUILDDIR»/src/code/primordial-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!DEFGLOBAL *TYPE-SYSTEM-INITIALIZED* ...)
; compiling (DEFGLOBAL *WILD-TYPE* ...)
; compiling (DEFGLOBAL *EMPTY-TYPE* ...)
; compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...)
; compiling (DEFGLOBAL *INSTANCE-TYPE* ...)
; compiling (DEFGLOBAL *FUNCALLABLE-INSTANCE-TYPE* ...)
; compiling (DEFGLOBAL *EXTENDED-SEQUENCE-TYPE* ...)
; compiling (DEFGLOBAL *UNIVERSAL-FUN-TYPE* ...)
; compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; /«PKGBUILDDIR»/obj/from-host/src/code/primordial-type.fasl-tmp written
; compilation finished in 0:00:00.029
; compiling file "/«PKGBUILDDIR»/src/code/early-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO DEF!METHOD ...)
; compiling (DEFMACRO SB-XC:DEFMETHOD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-defbangmethod.fasl-tmp written
; compilation finished in 0:00:00.038
; compiling file "/«PKGBUILDDIR»/src/code/defbangtype.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO DEF!TYPE ...)
; compiling (/SHOW "binding *DELAYED-DEF!TYPES*")
; compiling (DEFVAR *DELAYED-DEF!TYPES* ...)
; compiling (/SHOW "done binding *DELAYED-DEF!TYPES*")
; compiling (DEFUN FORCE-DELAYED-DEF!TYPES ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangtype.fasl-tmp written
; compilation finished in 0:00:00.055
; compiling file "/«PKGBUILDDIR»/src/code/defbangmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFSTRUCT DELAYED-DEF!MACRO ...)
; compiling (DEFVAR *DELAYED-DEF!MACROS* ...)
; compiling (DEFMACRO DEF!MACRO ...)

; file: /«PKGBUILDDIR»/src/code/defbangmacro.lisp
; in: DEFSTRUCT DELAYED-DEF!MACRO
;     (SB!INT:MISSING-ARG)
; 
; caught STYLE-WARNING:
;   undefined function: MISSING-ARG

;     (SB!INT:SANE-PACKAGE)
; 
; caught STYLE-WARNING:
;   undefined function: SANE-PACKAGE
; 
; compilation unit finished
;   Undefined functions:
;     MISSING-ARG SANE-PACKAGE
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN FORCE-DELAYED-DEF!MACROS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangmacro.fasl-tmp written
; compilation finished in 0:00:00.232
; compiling file "/«PKGBUILDDIR»/src/code/defbangconstant.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO DEF!CONSTANT ...)
; compiling (/SHOW "binding *DELAYED-DEF!CONSTANTS*")
; compiling (DEFVAR *DELAYED-DEF!CONSTANTS* ...)
; compiling (/SHOW "done binding *DELAYED-DEF!CONSTANTS*")
; compiling (DEFUN FORCE-DELAYED-DEF!CONSTANTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangconstant.fasl-tmp written
; compilation finished in 0:00:00.080
; compiling file "/«PKGBUILDDIR»/src/code/primordial-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...)
; compiling (DEFUN FROB-DO-BODY ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-GENSYM-LIST ...)
; compiling (DECLAIM (TYPE PACKAGE ...))
; compiling (DEFGLOBAL *CL-PACKAGE* ...)
; compiling (DEFGLOBAL *KEYWORD-PACKAGE* ...)
; compiling (DEFUN SYMBOLICATE ...)
; compiling (DEFUN GENSYMIFY ...)
; compiling (DEFUN KEYWORDICATE ...)

; file: /«PKGBUILDDIR»/src/code/primordial-extensions.lisp
; in: DEFUN SANE-PACKAGE
;     (LET ((SB!IMPL::REALLY-PACKAGE (FIND-PACKAGE :CL-USER)))
;       (SETF *PACKAGE* SB!IMPL::REALLY-PACKAGE)
;       (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!IMPL::MAYBE-PACKAGE :EXPECTED-TYPE
;              '(AND PACKAGE (SATISFIES PACKAGE-NAME)) :FORMAT-CONTROL
;              "~@<~S can't be a ~A: ~2I~_~S has been reset to ~S.~:>"
;              :FORMAT-ARGUMENTS
;              (LIST '*PACKAGE*
;                    (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE)
;                        "deleted package"
;                        (TYPE-OF SB!IMPL::MAYBE-PACKAGE))
;                    '*PACKAGE* SB!IMPL::REALLY-PACKAGE)))
; 
; note: deleting unreachable code

;     (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE)
;         "deleted package"
;         (TYPE-OF SB!IMPL::MAYBE-PACKAGE))
; ==>
;   "deleted package"
; 
; note: deleting unreachable code

;     (TYPE-OF SB!IMPL::MAYBE-PACKAGE)
; ==>
;   SB!IMPL::MAYBE-PACKAGE
; 
; note: deleting unreachable code

;     '*PACKAGE*
; 
; note: deleting unreachable code

;     (LET ((SB!IMPL::REALLY-PACKAGE (FIND-PACKAGE :CL-USER)))
;       (SETF *PACKAGE* SB!IMPL::REALLY-PACKAGE)
;       (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!IMPL::MAYBE-PACKAGE :EXPECTED-TYPE
;              '(AND PACKAGE (SATISFIES PACKAGE-NAME)) :FORMAT-CONTROL
;              "~@<~S can't be a ~A: ~2I~_~S has been reset to ~S.~:>"
;              :FORMAT-ARGUMENTS
;              (LIST '*PACKAGE*
;                    (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE)
;                        "deleted package"
;                        (TYPE-OF SB!IMPL::MAYBE-PACKAGE))
;                    '*PACKAGE* SB!IMPL::REALLY-PACKAGE)))
; 
; note: deleting unreachable code
; compiling (DEFUN SANE-PACKAGE ...)
; compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...)
; compiling (DEF!MACRO STRING-DISPATCH ...)
; compiling (DEFMACRO DEFENUM ...)
; compiling (DEFMACRO DEFCONSTANT-EQX ...)
; compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...)
; compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...)
; compiling (DEFUN PROPER-LIST-P ...)
; compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...)

; file: /«PKGBUILDDIR»/src/code/primordial-extensions.lisp
; in: DEFUN MAKE-GENSYM-LIST
;     (DEFUN SB!INT:MAKE-GENSYM-LIST (SB!IMPL::N &OPTIONAL SB!IMPL::NAME)
;       (WHEN (EQ T SB!IMPL::NAME) (BREAK))
;       (IF SB!IMPL::NAME
;           (LOOP SB!IMPL::REPEAT SB!IMPL::N
;                 SB!INT:COLLECT (SB-XC:GENSYM (STRING SB!IMPL::NAME)))
;           (LOOP SB!IMPL::REPEAT SB!IMPL::N
;                 SB!INT:COLLECT (SB-XC:GENSYM))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND 
; --> IF COND THE PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G81 'SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined type: INDEX

; in:
;      DECLAIM (FTYPE (FUNCTION (INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL))
;           MAKE-GENSYM-LIST)
;     (DECLAIM
;      (FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL))
;       SB!INT:MAKE-GENSYM-LIST))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL))
;      SB!INT:MAKE-GENSYM-LIST)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: INDEX

; in: DEFUN FROB-DO-BODY
;     (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY
; 
; compilation unit finished
;   Undefined type:
;     INDEX
;   Undefined function:
;     PARSE-BODY
;   caught 3 STYLE-WARNING conditions
;   printed 5 notes
; compiling (DEF!MACRO DO-ANONYMOUS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/primordial-extensions.fasl-tmp written
; compilation finished in 0:00:00.842
creating directory: /«PKGBUILDDIR»/obj/from-host/src/compiler/
; compiling file "/«PKGBUILDDIR»/src/compiler/early-globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT INFO-NUMBER-BITS ...)
; compiling (DEFTYPE INFO-NUMBER ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (!DEFGLOBAL *INFO-TYPES* ...)
; compiling (DEF INFO ...)
; compiling (DEF (SETF INFO) ...)

; file: /«PKGBUILDDIR»/src/compiler/early-globaldb.lisp
; in: DEF (SETF INFO)
;     (SB!C::DEF (SETF SB!INT:INFO)
;      (SB!C::NEW-VALUE SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;      (LET* ((SB-XC:*GENSYM-COUNTER* SB-XC:*GENSYM-COUNTER*)
;             (SB!C::TIN (SB!C::META-INFO-NUMBER SB!C::META-INFO))
;             (SB!C::TYPE-SPEC (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO))
;             (SB!C::CHECK (WHEN # #)))
;        (SB!INT:WITH-UNIQUE-NAMES (SB!C::NEW)
;          (SB!INT:QUASIQUOTE
;           (LET #
;             #)))))
; --> DEFINE-COMPILER-MACRO PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO 
; --> SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* LET* BLOCK IF LET AND IF AND 
; --> THE 
; ==>
;   (SB!C::META-INFO SB!C::CATEGORY SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO

; in: DEF INFO
;     (SB!C::DEF SB!INT:INFO (SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;      (SB!INT:QUASIQUOTE
;       (SB!EXT:TRULY-THE (VALUES #S(SB!IMPL::COMMA :EXPR # :KIND 0) BOOLEAN)
;                         (SB!C::GET-INFO-VALUE
;                          #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;                          #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> DEFINE-COMPILER-MACRO PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO 
; --> SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* LET* BLOCK IF LET AND IF AND 
; --> THE 
; ==>
;   (SB!C::META-INFO SB!C::CATEGORY SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO

; in:
;      MACROLET ((DEF (NAME LAMBDA-LIST FORM) (ASSERT (AND # #))
;             (QUASIQUOTE
;              (DEFINE-COMPILER-MACRO #
;                  #
;                #))))
;     (MACROLET ((SB!C::DEF (SB!C::NAME SB!C::LAMBDA-LIST SB!KERNEL:FORM)
;                  (ASSERT (AND # #))
;                  (SB!INT:QUASIQUOTE
;                   (DEFINE-COMPILER-MACRO #
;                       #
;                     #))))
;       (SB!C::DEF SB!INT:INFO (SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;        (SB!INT:QUASIQUOTE
;         (SB!EXT:TRULY-THE (VALUES # BOOLEAN) (SB!C::GET-INFO-VALUE # #))))
;       (SB!C::DEF (SETF SB!INT:INFO)
;        (SB!C::NEW-VALUE SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;        (LET* ((SB-XC:*GENSYM-COUNTER* SB-XC:*GENSYM-COUNTER*)
;               (SB!C::TIN #)
;               (SB!C::TYPE-SPEC #)
;               (SB!C::CHECK #))
;          (SB!INT:WITH-UNIQUE-NAMES (SB!C::NEW)
;            (SB!INT:QUASIQUOTE #))))
;       (SB!C::DEF SB!INT:CLEAR-INFO (SB!C::CATEGORY SB!C::KIND SB!C::NAME)
;        (SB!INT:QUASIQUOTE
;         (SB!C::CLEAR-INFO-VALUES #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;          '(#)))))
; --> PROGN FUNCTION LET* LET* BLOCK IF LET AND IF AND THE 
; ==>
;   (SB!C::META-INFO SB!C::CATEGORY SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO

; 
; caught STYLE-WARNING:
;   1 more use of undefined function META-INFO


; file: /«PKGBUILDDIR»/src/compiler/early-globaldb.lisp
; in: DEF CLEAR-INFO
;     (SB!INT:QUASIQUOTE
;      (SB!C::CLEAR-INFO-VALUES #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;       '(#S(SB!IMPL::COMMA
;            :EXPR (SB!C::META-INFO-NUMBER SB!C::META-INFO)
;            :KIND 0))))
; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| 
; ==>
;   (SB!C::META-INFO-NUMBER SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-NUMBER

; in: DEF (SETF INFO)
;     (SB!C::META-INFO-NUMBER SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-NUMBER

; in: DEF INFO
;     (SB!INT:QUASIQUOTE
;      (SB!EXT:TRULY-THE
;       (VALUES
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
;           :KIND 0)
;        BOOLEAN)
;       (SB!C::GET-INFO-VALUE #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-NUMBER SB!C::META-INFO)
;           :KIND 0))))
; --> SB!IMPL::|List| SB!IMPL::|List| 
; ==>
;   (SB!C::META-INFO-NUMBER SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-NUMBER

; in: DEF (SETF INFO)
;     (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-TYPE-SPEC

; in: DEF INFO
;     (SB!INT:QUASIQUOTE
;      (SB!EXT:TRULY-THE
;       (VALUES
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
;           :KIND 0)
;        BOOLEAN)
;       (SB!C::GET-INFO-VALUE #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;        #S(SB!IMPL::COMMA
;           :EXPR (SB!C::META-INFO-NUMBER SB!C::META-INFO)
;           :KIND 0))))
; --> SB!IMPL::|List| SB!IMPL::|List*| 
; ==>
;   (SB!C::META-INFO-TYPE-SPEC SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-TYPE-SPEC

; in: DEF (SETF INFO)
;     (SB!C::META-INFO-VALIDATE-FUNCTION SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: META-INFO-VALIDATE-FUNCTION
; 
; compilation unit finished
;   Undefined functions:
;     META-INFO META-INFO-NUMBER META-INFO-TYPE-SPEC META-INFO-VALIDATE-FUNCTION
;   caught 10 STYLE-WARNING conditions
; compiling (DEF CLEAR-INFO ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-globaldb.fasl-tmp written
; compilation finished in 0:00:00.338
; compiling file "/«PKGBUILDDIR»/src/code/function-names.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (!DEFVAR *VALID-FUN-NAMES-ALIST* ...)
; compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...)
; compiling (DEFUN VALID-FUNCTION-NAME-P ...)
; compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...)
; compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...)
; compiling (DEFUN MACRO-FUNCTION-NAME ...)
; compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...)

; file: /«PKGBUILDDIR»/src/code/function-names.lisp
; in: SETF (GET '%DEFINE-FUN-NAME-SYNTAX :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::COLD-CONS (SB!FASL::COLD-INTERN SYMBOL) SB!IMPL::CHECKER)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-CONS

;     (SB!FASL::COLD-INTERN SYMBOL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-INTERN

;     (SB!FASL::TARGET-PUSH
;      (SB!FASL::COLD-CONS (SB!FASL::COLD-INTERN SYMBOL) SB!IMPL::CHECKER)
;      'SB!IMPL::*VALID-FUN-NAMES-ALIST*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::TARGET-PUSH
; 
; compilation unit finished
;   Undefined functions:
;     SB!FASL::COLD-CONS SB!FASL::COLD-INTERN SB!FASL::TARGET-PUSH
;   caught 3 STYLE-WARNING conditions
; compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/function-names.fasl-tmp written
; compilation finished in 0:00:00.164
creating directory: /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...)
; compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...)
; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...)
; compiling (DEF!CONSTANT TLS-SIZE ...)
; compiling (DEF!CONSTANT MAX-INTERRUPTS ...)
; compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...)
; compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/parms.fasl-tmp written
; compilation finished in 0:00:00.631
creating directory: /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT N-WORD-BITS ...)
; compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...)
; compiling (DEF!CONSTANT N-BYTE-BITS ...)
; compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-INPUT-DENORMAL-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...)
; compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...)
; compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...)
; compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...)
; compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...)
; compiling (DEF!CONSTANT FLOAT-FAST-BIT ...)
; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-START ...)
; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-END ...)
; compiling (DEF!CONSTANT READ-ONLY-SPACE-START ...)
; compiling (DEF!CONSTANT READ-ONLY-SPACE-END ...)
; compiling (DEF!CONSTANT STATIC-SPACE-START ...)
; compiling (DEF!CONSTANT STATIC-SPACE-END ...)
; compiling (DEF!CONSTANT DYNAMIC-SPACE-START ...)
; compiling (DEF!CONSTANT DYNAMIC-SPACE-END ...)
; compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...)
; compiling (DEFENUM (:START 8) ...)
; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *STATIC-FUNS* ...)
; compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...)
; compiling (DEFVAR *ALLOCATION-POINTER*)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/parms.fasl-tmp written
; compilation finished in 0:00:00.113
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT N-LOWTAG-BITS ...)
; compiling (DEF!CONSTANT LOWTAG-MASK ...)
; compiling (DEF!CONSTANT LOWTAG-LIMIT ...)
; compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...)
; compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...)
; compiling (DEF!CONSTANT N-FIXNUM-BITS ...)
; compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...)
; compiling (DEF!CONSTANT WORD-SHIFT ...)
; compiling (DEF!CONSTANT N-WORD-BYTES ...)
; compiling (DEF!CONSTANT N-WIDETAG-BITS ...)
; compiling (DEF!CONSTANT WIDETAG-MASK ...)
; compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...)
; compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp
; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END
;     (MIN SB!VM::STOP SB!VM::OTHER-START)
; --> LET 
; ==>
;   SB!VM::STOP
; 
; note: deleting unreachable code

; --> LET LET MIN LET 
; ==>
;   SB!VM::OTHER-START
; 
; note: deleting unreachable code
; compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...)
; 
; compilation unit finished
;   printed 2 notes
; compiling (DEF!CONSTANT INSTANCE-DATA-START ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/early-vm.fasl-tmp written
; compilation finished in 0:00:00.072
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFENUM NIL ...)
; compiling (DEF!CONSTANT NIL-VALUE ...)
; compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...)
; compiling (DEFENUM (:START # ...) ...)
; compiling (DEFENUM NIL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/early-objdef.fasl-tmp written
; compilation finished in 0:00:00.134
; compiling file "/«PKGBUILDDIR»/src/code/early-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT SB-XC:ARRAY-RANK-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:ARRAY-DIMENSION-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:ARRAY-TOTAL-SIZE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-array.fasl-tmp written
; compilation finished in 0:00:00.014
; compiling file "/«PKGBUILDDIR»/src/code/early-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *CORE-PATHNAME* ...)
; compiling (DEFVAR *RUNTIME-PATHNAME* ...)
; compiling (DEFGLOBAL *EOF-OBJECT* ...)
; compiling (DEFCONSTANT MAX-HASH ...)
; compiling (DEF!TYPE HASH ...)
; compiling (DEF!TYPE INDEX ...)
; compiling (DEF!TYPE INDEX/2 ...)
; compiling (DEF!TYPE INDEX-OR-MINUS-1 ...)
; compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE LOAD/STORE-INDEX ...)
; compiling (DEF!TYPE SFUNCTION ...)
; compiling (DEF!TYPE TYPE-SPECIFIER ...)
; compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...)
; compiling (DEF!CONSTANT BELL-CHAR-CODE ...)
; compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...)
; compiling (DEF!CONSTANT TAB-CHAR-CODE ...)
; compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT RETURN-CHAR-CODE ...)
; compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...)
; compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...)
; compiling (DEFUN MAYBE-CYCLIC-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...)
; compiling (DEFUN POSITIVE-PRIMEP ...)
; compiling (DEFUN COMPOUND-OBJECT-P ...)
; compiling (DEFUN COLLECT-NORMAL-EXPANDER ...)
; compiling (DEFUN COLLECT-LIST-EXPANDER ...)
; compiling (DEFMACRO COLLECT ...)
; compiling (DEFUN MEMQ ...)
; compiling (DEFUN ASSQ ...)
; compiling (DEFUN DELQ ...)
; compiling (DEFUN POSQ ...)
; compiling (DECLAIM (INLINE NEQ))
; compiling (DEFUN NEQ ...)
; compiling (DECLAIM (INLINE NTH-BUT-WITH-SANE-ARG-ORDER))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NTH-BUT-WITH-SANE-ARG-ORDER ...)
; compiling (DEFUN ADJUST-LIST ...)
; compiling (DEFMACRO NAMED-LET ...)
; compiling (DEFUN FILTER-DOLIST-DECLARATIONS ...)
; compiling (DEFMACRO DOVECTOR ...)
; compiling (DEFMACRO DOHASH ...)
; compiling (DEFMACRO DOPLIST ...)
; compiling (DEFVAR *PROFILE-HASH-CACHE* ...)
; compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...)
; compiling (DEFUN DROP-ALL-HASH-CACHES ...)
; compiling (DEFUN ALLOC-HASH-CACHE ...)
; compiling (DEF 2)
; compiling (DEF 3)
; compiling (DEF 4)
; compiling (DEF 5)
; compiling (DEF 6)
; compiling (DEFMACRO !DEFINE-HASH-CACHE ...)
; compiling (DEFMACRO DEFUN-CACHED ...)
; compiling (DEFUN EQUAL-BUT-NO-CAR-RECURSION ...)
; compiling (DEFUN %FIND-PACKAGE-OR-LOSE ...)
; compiling (DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; compiling (DECLAIM (INLINE LEGAL-FUN-NAME-P))
; compiling (DEFUN LEGAL-FUN-NAME-P ...)
; compiling (DEFTYPE FUNCTION-NAME ...)
; compiling (DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUN-NAME-BLOCK-NAME ...)
; compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...)
; compiling (DEFMACRO ONCE-ONLY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MISSING-ARG ...)
; compiling (DEFMACRO AVER ...)
; compiling (DEFUN %FAILED-AVER ...)
; compiling (DEFUN BUG ...)
; compiling (DEFMACRO ENFORCE-TYPE ...)
; compiling (DEFUN %FAILED-ENFORCE-TYPE ...)
; compiling (DECLAIM (INLINE SWAPPED-ARGS-FUN))
; compiling (DEFUN SWAPPED-ARGS-FUN ...)
; compiling (DEFUN TYPE-BOUND-NUMBER ...)
; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-T ...)
; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-NIL ...)
; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-0 ...)
; compiling (DEFUN FEATUREP ...)
; compiling (DEFMACRO NOT/TYPE ...)
; compiling (DEFMACRO AND/TYPE ...)
; compiling (DEFUN ANY/TYPE ...)
; compiling (DEFUN EVERY/TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEFPRINTER-PRIN1 ...)
; compiling (DEFUN DEFPRINTER-PRINC ...)
; compiling (DEFUN DEFPRINTER-PRINX ...)
; compiling (DEFUN DEFPRINTER-PRINT-SPACE ...)
; compiling (DEFMACRO DEFPRINTER ...)
; compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...)
; compiling (DEFUN PHYSICALIZE-PATHNAME ...)
; compiling (DEFUN NORMALIZE-DEPRECATION-REPLACEMENTS ...)
; compiling (DEFUN DEPRECATION-ERROR ...)
; compiling (DEFUN DEPRECATION-WARNING ...)
; compiling (DEFUN DEPRECATED-FUNCTION ...)
; compiling (DEFUN DEPRECATION-COMPILER-MACRO ...)
; compiling (DEFUN DEPRECATED-THING-P ...)
; compiling (DEFUN LOADER-DEPRECATION-WARN ...)
; compiling (DEFTYPE DEPRECATION-STATE ...)
; compiling (DEFUN PRINT-DEPRECATION-MESSAGE ...)
; compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...)
; compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...)
; compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...)
; compiling (DEFMACRO AWHEN ...)
; compiling (DEFMACRO ACOND ...)
; compiling (DEFUN EXTRACT-VAR-DECLS ...)
; compiling (DEFMACRO BINDING* ...)
; compiling (DEFMACRO DELAY ...)
; compiling (DEFUN FORCE ...)
; compiling (DEFUN PROMISE-READY-P ...)
; compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...)
; compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...)
; compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...)
; compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...)
; compiling (DEFUN LIST-MEMBERS ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (!DEFPARAMETER *EVALUATOR-MODE* ...)
; compiling (DEFMACRO DX-FLET ...)
; compiling (DEFMACRO DX-LET ...)
; compiling NIL
; compiling NIL
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN FP-ZERO-P ...)
; compiling (DEFUN NEG-FP-ZERO ...)
; compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...)
; compiling (DEFUN STREAM-ERROR-POSITION-INFO ...)
; compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST))
; compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...)

; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN DEPRECATED-THING-P
;     (SB!KERNEL:%FUN-NAME SB!IMPL::MACRO-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: %FUN-NAME

; in: DEFUN SB!IMPL::DEPRECATED-FUNCTION
;     (SETF (SB!KERNEL:%FUN-DOC SB!KERNEL:CLOSURE) SB!IMPL::DOC)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:%FUN-DOC) #:NEW783 #:CLOSURE782)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF %FUN-DOC)

; in: DEFUN DEPRECATED-THING-P
;     (SB!KERNEL:CLOSUREP SB!IMPL::MACRO-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: CLOSUREP

;     (SB!IMPL::FIND-IF-IN-CLOSURE
;      (LAMBDA (SB!IMPL::X) (MEMBER SB!IMPL::X '(:EARLY :LATE :FINAL)))
;      SB!IMPL::MACRO-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::FIND-IF-IN-CLOSURE

; in: DEFUN EXTRACT-VAR-DECLS
;     (SB!INT:INFO :TYPE :KIND SB!IMPL::ID)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN CHECK-DEPRECATED-VARIABLE
;     (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN DEPRECATED-THING-P
;     (SB!INT:INFO :FUNCTION :COMPILER-MACRO-FUNCTION SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN STREAM-ERROR-POSITION-INFO
;     (SB!INT:LINE/COL-FROM-CHARPOS STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: LINE/COL-FROM-CHARPOS

; in: DEFUN NEG-FP-ZERO
;     (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-UNPORTABLE-FLOAT

; in: DEFMACRO DEFUN-CACHED
;     (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; in: DEFMACRO DOHASH
;     (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; in: DEFMACRO DOVECTOR
;     (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function PARSE-BODY


; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN SB!IMPL::DEPRECATED-FUNCTION
;     (SB!IMPL::SET-CLOSURE-NAME
;      (LAMBDA (&REST SB!IMPL::DEPRECATED-FUNCTION-ARGS)
;        (DECLARE (IGNORE SB!IMPL::DEPRECATED-FUNCTION-ARGS))
;        (SB!INT:DEPRECATION-ERROR SB!IMPL::SINCE SB!IMPL::NAME
;         SB!IMPL::REPLACEMENTS))
;      SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::SET-CLOSURE-NAME
; 
; compilation unit finished
;   Undefined functions:
;     %FUN-NAME (SETF %FUN-DOC) CLOSUREP SB!IMPL::FIND-IF-IN-CLOSURE INFO LINE/COL-FROM-CHARPOS MAKE-UNPORTABLE-FLOAT PARSE-BODY SB!IMPL::SET-CLOSURE-NAME
;   caught 14 STYLE-WARNING conditions
; compiling (DEFMACRO WITH-SIMPLE-OUTPUT-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-extensions.fasl-tmp written
; compilation finished in 0:00:04.682
; compiling file "/«PKGBUILDDIR»/src/code/parse-body.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (/SHOW0 "entering parse-body.lisp")
; compiling (DEFUN PARSE-BODY ...)

; file: /«PKGBUILDDIR»/src/code/parse-body.lisp
; in: DEFUN PARSE-BODY
;     (SB!INT:STYLE-WARN "DECLAIM where DECLARE was probably intended")
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined function:
;     STYLE-WARN
;   caught 1 STYLE-WARNING condition
; compiling (/SHOW0 "leaving parse-body.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/parse-body.fasl-tmp written
; compilation finished in 0:00:00.075
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFVAR *ARG-TESTS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *SYSTEM-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *USER-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *ENV-VAR*)
; compiling (DEFVAR *DEFAULT-DEFAULT*)
; compiling (DEFVAR *IGNORABLE-VARS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFUN PARSE-DEFMACRO ...)
; compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...)
; compiling (DEFUN ARG-COUNT-ERROR ...)
; compiling (DEFUN PUSH-SUBLIST-BINDING ...)
; compiling (DEFUN PUSH-LET-BINDING ...)
; compiling (DEFUN PUSH-OPTIONAL-BINDING ...)
; compiling (DEFUN DEFMACRO-ERROR ...)
; compiling (DEFUN CHECK-DEFMACRO-ARG ...)
; compiling (DEFUN VERIFY-KEYWORDS ...)
; compiling (DEFUN LOOKUP-KEYWORD ...)

; file: /«PKGBUILDDIR»/src/code/parse-defmacro.lisp
; in: DEFUN PARSE-DEFMACRO
;     (SB!INT:BAD-TYPE SB!KERNEL::LAMBDA-LIST 'LIST
;      "~S lambda-list is not a list: ~S" SB!KERNEL::CONTEXT SB!KERNEL::LAMBDA-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN KEYWORD-SUPPLIED-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/parse-defmacro.fasl-tmp written
; compilation finished in 0:00:01.950
; compiling file "/«PKGBUILDDIR»/src/compiler/deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN CONSTANT-TYPE-EXPANDER ...)
; compiling (DEFUN %DEFTYPE ...)
; compiling (DEFVAR !*XC-PROCESSED-DEFTYPES* ...)

; file: /«PKGBUILDDIR»/src/compiler/deftype.lisp
; in: DEFUN %DEFTYPE
;     (SETF (SB!KERNEL:CLASSOID-CELL-PCL-CLASS
;            (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T))
;             NIL)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) #:NEW5 #:G4)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF CLASSOID-CELL-PCL-CLASS)

; in: DEF!MACRO SB-XC:DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE

; in: DEFUN %DEFTYPE
;     (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID-CELL
; 
; compilation unit finished
;   Undefined functions:
;     (SETF CLASSOID-CELL-PCL-CLASS) BAD-TYPE FIND-CLASSOID-CELL
;   caught 3 STYLE-WARNING conditions
; compiling (DEF!MACRO SB-XC:DEFTYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/deftype.fasl-tmp written
; compilation finished in 0:00:00.181
; compiling file "/«PKGBUILDDIR»/src/compiler/defconstant.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN (SETF SB!C::XC-CONSTANT-VALUE) ...)
; compiling (DEFUN SB!C::XC-CONSTANT-VALUE ...)
; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...)

; file: /«PKGBUILDDIR»/src/compiler/defconstant.lisp
; in: DEFUN SB!C::%DEFCONSTANT
;     (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'VARIABLE) SB!IMPL::DOC)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW52 #:NAME51 'VARIABLE)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF FDOCUMENTATION)

;     (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME)
;             SB!IMPL::SOURCE-LOCATION)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW15 :SOURCE-LOCATION :CONSTANT
;                   #:NAME14)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF INFO)

;     (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SB!IMPL::NAME 'DEFCONSTANT)
; 
; caught STYLE-WARNING:
;   undefined function: ABOUT-TO-MODIFY-SYMBOL-VALUE

;     (SB!INT:CLEAR-INFO :VARIABLE :MACRO-EXPANSION SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: CLEAR-INFO

;     (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

;     (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME
;      :FORMAT-CONTROL "defining ~S as a constant" :FORMAT-ARGUMENTS
;      (LIST SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     (SETF FDOCUMENTATION) (SETF INFO) ABOUT-TO-MODIFY-SYMBOL-VALUE CLEAR-INFO INFO STYLE-WARN
;   caught 6 STYLE-WARNING conditions
; compiling (DEFUN SB!C::%DEFCONSTANT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/defconstant.fasl-tmp written
; compilation finished in 0:00:00.237
; compiling file "/«PKGBUILDDIR»/src/code/early-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...)
; compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...)
; compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*)
; compiling (DEFVAR *VALUES-TYPE-OKAY* ...)
; compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-alieneval.fasl-tmp written
; compilation finished in 0:00:00.016
; compiling file "/«PKGBUILDDIR»/src/code/specializable-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO !MAKE-SPECIALIZED-ARRAY ...)
; compiling (DEFUN !COERCE-TO-SPECIALIZED ...)
; compiling (DEFUN REGISTER-SPECIALIZED-ARRAY ...)
; compiling (DEFUN !SPECIALIZED-ARRAY-ELEMENT-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/specializable-array.fasl-tmp written
; compilation finished in 0:00:00.087
; compiling file "/«PKGBUILDDIR»/src/code/early-cl.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (PROCLAIM (QUOTE #))
; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-cl.fasl-tmp written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/src/code/early-fasl.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...)
; compiling (DEFINE-FASL-FORMAT-FEATURES)
; compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...)
; compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFVAR *FASL-FILE-TYPE* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ASSEMBLER-ROUTINES* ...)
; compiling (DECLAIM (SIMPLE-VECTOR **FOP-NAMES** ...))
; compiling (DEFGLOBAL **FOP-NAMES** ...)
; compiling (DEFGLOBAL **FOP-FUNS** ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFGLOBAL **FOP-SIGNATURES** ...)
; compiling (DEFVAR *LOAD-DEPTH* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (FASL-INPUT # ...) ...)

; file: /«PKGBUILDDIR»/src/code/early-fasl.lisp
; in: DEFSTRUCT FASL-INPUT
;     (SB!FASL::MAKE-FOP-VECTOR 100)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-FOP-VECTOR
; 
; compilation unit finished
;   Undefined function:
;     MAKE-FOP-VECTOR
;   caught 1 STYLE-WARNING condition
; compiling (DECLAIM (FREEZE-TYPE FASL-INPUT))

; /«PKGBUILDDIR»/obj/from-host/src/code/early-fasl.fasl-tmp written
; compilation finished in 0:00:00.258
; compiling file "/«PKGBUILDDIR»/src/code/debug-var-io.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN %READ-VAR-INTEGER ...)
; compiling (DEFMACRO READ-VAR-INTEGER ...)
; compiling (DEFUN WRITE-VAR-INTEGER ...)
; compiling (DEFMACRO READ-VAR-STRING ...)
; compiling (DEFUN WRITE-VAR-STRING ...)
; compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/debug-var-io.fasl-tmp written
; compilation finished in 0:00:00.301
; compiling file "/«PKGBUILDDIR»/src/code/early-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEFVAR *CURRENT-THREAD* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-thread.fasl-tmp written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/src/code/early-raw-slots.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!TYPE WORD ...)
; compiling (DEF!TYPE SB!VM:SIGNED-WORD ...)
; compiling (DEFTYPE LAYOUT-RAW-SLOT-METADATA-TYPE ...)
; compiling (DEFMACRO LAYOUT-RAW-SLOT-METADATA ...)
; compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA))
; compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...)

; file: /«PKGBUILDDIR»/src/code/early-raw-slots.lisp
; in: SETQ *RAW-SLOT-DATA-LIST*
;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF 
; ==>
;   (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX)
;      (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::Y SB!INT:INDEX))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.
; 
; note: forced to do static-fun Two-arg-= (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
; compiling (SETQ *RAW-SLOT-DATA-LIST* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...)
; compiling (DEFUN RAW-SLOT-WORDS ...)

; file: /«PKGBUILDDIR»/src/code/early-raw-slots.lisp
; in: SETQ *RAW-SLOT-DATA-LIST*
;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/COMPLEX-DOUBLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/COMPLEX-SINGLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/DOUBLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/SINGLE

;     (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD)
; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = 
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/WORD
; 
; compilation unit finished
;   Undefined functions:
;     %RAW-INSTANCE-REF/COMPLEX-DOUBLE %RAW-INSTANCE-REF/COMPLEX-SINGLE %RAW-INSTANCE-REF/DOUBLE %RAW-INSTANCE-REF/SINGLE %RAW-INSTANCE-REF/WORD
;   caught 5 STYLE-WARNING conditions
;   printed 45 notes
; compiling (DEFMACRO DO-INSTANCE-TAGGED-SLOT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-raw-slots.fasl-tmp written
; compilation finished in 0:00:00.666
; compiling file "/«PKGBUILDDIR»/src/code/defbangstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...)
; compiling (DEFUN DEF!STRUCT-SUPERTYPE ...)
; compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...)
; compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...)
; compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...)
; compiling (DEFUN JUST-DUMP-IT-NORMALLY ...)
; compiling (DEFUN IGNORE-IT ...)
; compiling (DEFSTRUCT DELAYED-DEF!STRUCT ...)
; compiling (DEFVAR *DELAYED-DEF!STRUCTS* ...)
; compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...)
; compiling (DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ...)
; compiling (DEFUN %INSTANCE-LAYOUT ...)
; compiling (DEFUN %INSTANCE-LENGTH ...)
; compiling (DEFUN %INSTANCE-REF ...)
; compiling (DEFUN %INSTANCE-SET ...)
; compiling (DEFUN UNCROSS-DEFSTRUCT-ARGS ...)
; compiling (DEFMACRO DEF!STRUCT ...)
; compiling (DEFUN FORCE-DELAYED-DEF!STRUCTS ...)
; compiling (DEF!STRUCT (STRUCTURE!OBJECT # ...))
; compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)

; file: /«PKGBUILDDIR»/src/code/defbangstruct.lisp
; in: DEFUN %INSTANCE-LAYOUT
;     (SB!KERNEL:CLASSOID-LAYOUT
;      (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)))
; 
; caught STYLE-WARNING:
;   undefined function: CLASSOID-LAYOUT

; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P
;     (SB!KERNEL::COMPILER-LAYOUT-READY-P SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-LAYOUT-READY-P

; in: DEFUN %INSTANCE-SET
;     (SB!KERNEL:DD-SLOTS SB!KERNEL::DD)
; 
; caught STYLE-WARNING:
;   undefined function: DD-SLOTS

; in: DEFUN %INSTANCE-REF
;     (SB!KERNEL:DD-SLOTS SB!KERNEL::DD)
; 
; caught STYLE-WARNING:
;   undefined function: DD-SLOTS

; in: DEFUN %INSTANCE-SET
;     (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-ACCESSOR-NAME

; in: DEFUN %INSTANCE-REF
;     (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-ACCESSOR-NAME

;     (SB!KERNEL:DSD-INDEX SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-INDEX

;     (SB!KERNEL:DSD-RAW-TYPE SB!KERNEL::DSD)
; 
; caught STYLE-WARNING:
;   undefined function: DSD-RAW-TYPE

; in: DEFUN %INSTANCE-LAYOUT
;     (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID

; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P
;     (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN %INSTANCE-SET
;     (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-INFO

; in: DEFUN %INSTANCE-REF
;     (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-INFO

; in: DEFUN %INSTANCE-LENGTH
;     (SB!KERNEL:LAYOUT-LENGTH (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL:INSTANCE))
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-LENGTH

; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P
;     (SB!KERNEL:LAYOUT-RAW-SLOT-METADATA
;      (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME))
; ==>
;   (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS
;    (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-N-UNTAGGED-SLOTS
; 
; compilation unit finished
;   Undefined functions:
;     CLASSOID-LAYOUT COMPILER-LAYOUT-READY-P DD-SLOTS DSD-ACCESSOR-NAME DSD-INDEX DSD-RAW-TYPE FIND-CLASSOID INFO LAYOUT-INFO LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS
;   caught 14 STYLE-WARNING conditions
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defbangstruct.fasl-tmp written
; compilation finished in 0:00:01.286
; compiling file "/«PKGBUILDDIR»/src/code/unportable-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/unportable-float.fasl-tmp written
; compilation finished in 0:00:00.024
; compiling file "/«PKGBUILDDIR»/src/code/type-class.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFVAR *CTYPE-LCG-STATE* ...)
; compiling (DEFVAR *CTYPE-HASH-STATE* ...)
; compiling (DEFVAR *TYPE-CLASSES* ...)
; compiling (DEFUN TYPE-CLASS-OR-LOSE ...)
; compiling (DEFUN MUST-SUPPLY-THIS ...)
; compiling (DEF!STRUCT (TYPE-CLASS #) ...)
; compiling (DECLAIM (FREEZE-TYPE TYPE-CLASS))
; compiling (DEFCONSTANT-EQX !TYPE-CLASS-FUN-SLOTS ...)
; compiling (DEFUN !TYPE-CLASS-FUN-SLOT ...)
; compiling (DEFMACRO !DEFINE-TYPE-METHOD ...)
; compiling (DEFMACRO !DEFINE-TYPE-CLASS ...)
; compiling (DEFMACRO !INVOKE-TYPE-METHOD ...)
; compiling (DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ...)
; compiling (DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ...)

; file: /«PKGBUILDDIR»/src/code/type-class.lisp
; in:
;      DEF!STRUCT (TYPE-CLASS
;              (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;     #'SB!KERNEL::HIERARCHICAL-INTERSECTION2
; 
; caught STYLE-WARNING:
;   undefined function: HIERARCHICAL-INTERSECTION2

;     #'SB!KERNEL::HIERARCHICAL-UNION2
; 
; caught STYLE-WARNING:
;   undefined function: HIERARCHICAL-UNION2

; in: DEFUN INVOKE-COMPLEX-=-OTHER-METHOD
;     (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CLASS-INFO

; in: DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD
;     (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CLASS-INFO
; 
; compilation unit finished
;   Undefined functions:
;     HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO
;   caught 4 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPE-CLASS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/type-class.fasl-tmp written
; compilation finished in 0:00:01.132
; compiling file "/«PKGBUILDDIR»/src/compiler/early-backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *BACKEND-PAGE-BYTES* ...)
; compiling (DECLAIM (TYPE INDEX ...))

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-backend.fasl-tmp written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/src/compiler/info-vector.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT +EMPTY-KEY+ ...)
; compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...)
; compiling (DEFTYPE INFO-CELL-INDEX ...)
; compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...)
; compiling (DEFSTRUCT (INFO-STORAGE # ...) ...)
; compiling (DEFUN MAKE-INFO-STORAGE ...)
; compiling (DEFSTRUCT (INFO-HASHTABLE #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFMACRO INFO-CAS ...)
; compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT))
; compiling (DEFUN INFO-ENV-ADJUST-COUNT ...)
; compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...)
; compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...)
; compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...)
; compiling (DEFUN INFO-VALUE-MOVED-P ...)
; compiling (DEFMACRO !DO-PROBE-SEQUENCE ...)
; compiling (DEFUN %WAIT-FOR-REHASH ...)
; compiling (DEFUN INFO-GETHASH ...)

; file: /«PKGBUILDDIR»/src/compiler/info-vector.lisp
; in: DEFUN INFO-PUTHASH
;     (SB!C::INFO-ENV-COMPARATOR SB!C::ENV)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!C::ENV
; 
; note: deleting unreachable code

;     (SB!C::FOLLOW/UPDATE SB!C::STORAGE (SB!C::VALUE-INDEX))
; ==>
;   SB!C::STORAGE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!C::PROBE SB!C::HASHVAL (SB!C::%WAIT-FOR-REHASH SB!C::ENV SB!C::STORAGE))
; ==>
;   SB!C::HASHVAL
; 
; note: deleting unreachable code
; compiling (DEFUN INFO-PUTHASH ...)
; compiling (DEFUN INFO-ENV-REHASH ...)
; compiling (DEFMACRO INFO-MAPHASH ...)
; compiling (DEFUN (SETF INFO-GETHASH) ...)
; compiling (DEFUN SHOW-INFO-ENV ...)
; compiling (DEFCONSTANT INFO-NUM-MASK ...)
; compiling (DEFCONSTANT +INFOS-PER-WORD+ ...)
; compiling (DEFTYPE INFO-DESCRIPTOR ...)
; compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...)
; compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...)
; compiling (DEFCONSTANT +FDEFN-INFO-NUM+ ...)
; compiling (DECLAIM (INLINE PACKED-INFO-FIELD))

; file: /«PKGBUILDDIR»/src/compiler/info-vector.lisp
; in: DEFUN PACKED-INFO-FIELD
;     (THE SB!INT:INFO-NUMBER
;          (SB-XC:LDB
;           (SB-XC:BYTE SB!INT:INFO-NUMBER-BITS
;                       (* (THE # SB!C::FIELD-INDEX) SB!INT:INFO-NUMBER-BITS))
;           (THE SB!C::INFO-DESCRIPTOR (SVREF VECTOR SB!C::DESC-INDEX))))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 6) &REST T).
; compiling (DEFUN PACKED-INFO-FIELD ...)
; compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...)
; compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...)
; compiling (DEFUN PACKIFY-INFOS ...)
; compiling (DEFMACRO !WITH-PACKED-INFO-ITERATOR ...)
; compiling (DEFMACRO !DO-PACKED-INFO-VECTOR-AUX-KEY ...)
; compiling (DEFUN INFO-VECTOR-NAME-LIST ...)
; compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...)
; compiling (DEFUN UNPACKIFY-INFOS ...)
; compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...)
; compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...)
; compiling (DEFUN %PACKED-INFO-INSERT ...)
; compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P))
; compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...)
; compiling (DEFUN QUICK-PACKED-INFO-INSERT ...)
; compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT))
; compiling (DEFUN PACKED-INFO-INSERT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PACKED-INFO-VALUE-INDEX ...)
; compiling (DEFUN PACKED-INFO-REMOVE ...)
; compiling (DEFCONSTANT-EQX !+PCL-READER-NAME+ ...)
; compiling (DEFCONSTANT-EQX !+PCL-WRITER-NAME+ ...)
; compiling (DEFCONSTANT-EQX !+PCL-BOUNDP-NAME+ ...)
; compiling (DEFUN PCL-GLOBAL-ACCESSOR-NAME-P ...)
; compiling (DEFUN CONSTRUCT-GLOBALDB-NAME ...)
; compiling (DEFUN %CALL-WITH-EACH-INFO ...)
; compiling (DEFUN !TEST-PACKIFY-INFOS ...)
; compiling (DEFMACRO WITH-GLOBALDB-NAME ...)
; compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN))
; compiling (DEFUN INFO-VECTOR-FDEFN ...)
; compiling (DEFUN SYMBOL-INFO ...)
; compiling (DEFUN UPDATE-SYMBOL-INFO ...)
; compiling (DEFUN SYMBOL-INFO-VECTOR ...)
; compiling (DECLAIM (TYPE INFO-HASHTABLE ...))
; compiling (DEFVAR *INFO-ENVIRONMENT*)
; compiling (DEFUN SET-INFO-VALUE ...)
; compiling (DEFUN %ATOMIC-SET-INFO-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/info-vector.lisp
; in: DEFUN INFO-PUTHASH
;     (SB!C::INFO-VALUE-MOVED-P SB!C::VALUE)
; --> BLOCK 
; ==>
;   (SB!INT:FIXNUMP SB!C::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMP

; in: DEFUN INFO-GETHASH
;     (SB!C::INFO-VALUE-MOVED-P SB!C::VALUE)
; --> BLOCK 
; ==>
;   (SB!INT:FIXNUMP SB!C::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMP

; in: DEFUN INFO-VALUE-MOVED-P
;     (SB!INT:FIXNUMP SB!C::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMP

; in: DEFSTRUCT INFO-HASHTABLE
;     #'SB!C::GLOBALDB-SXHASHOID
; 
; caught STYLE-WARNING:
;   undefined function: GLOBALDB-SXHASHOID

; in: DEFUN MAKE-INFO-STORAGE
;     (SB!C::PRIMIFY (CEILING SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR))
; 
; caught STYLE-WARNING:
;   undefined function: PRIMIFY

; in: DEFUN CONSTRUCT-GLOBALDB-NAME
;     (SB!PCL::SLOT-BOUNDP-NAME SB!C::STEM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SLOT-BOUNDP-NAME

;     (SB!PCL::SLOT-READER-NAME SB!C::STEM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SLOT-READER-NAME

;     (SB!PCL::SLOT-WRITER-NAME SB!C::STEM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SLOT-WRITER-NAME

; in: DEFUN %WAIT-FOR-REHASH
;     (SB!THREAD:THREAD-YIELD)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD:THREAD-YIELD
; 
; compilation unit finished
;   Undefined functions:
;     FIXNUMP GLOBALDB-SXHASHOID PRIMIFY SB!PCL::SLOT-BOUNDP-NAME SB!PCL::SLOT-READER-NAME SB!PCL::SLOT-WRITER-NAME SB!THREAD:THREAD-YIELD
;   caught 9 STYLE-WARNING conditions
;   printed 5 notes
; compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/info-vector.fasl-tmp written
; compilation finished in 0:00:05.339
; compiling file "/«PKGBUILDDIR»/src/code/typedefs.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...)
; compiling (DEFUN CTYPE-RANDOM ...)
; compiling (DEFCONSTANT +CTYPE-HASH-MASK+ ...)

; file: /«PKGBUILDDIR»/src/code/typedefs.lisp
; in:
;      DEF!STRUCT (CTYPE (:CONC-NAME TYPE-) (:CONSTRUCTOR NIL)
;              (:MAKE-LOAD-FORM-FUN MAKE-TYPE-LOAD-FORM))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:CTYPE (:CONC-NAME SB!KERNEL::TYPE-) (:CONSTRUCTOR NIL)
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-TYPE-LOAD-FORM))
;      (SB!KERNEL::CLASS-INFO (SB!INT:MISSING-ARG) :TYPE SB!KERNEL::TYPE-CLASS)
;      (SB!KERNEL::HASH-VALUE
;       (SB!KERNEL::CTYPE-RANDOM SB!KERNEL::+CTYPE-HASH-MASK+) :TYPE
;       (SIGNED-BYTE 30) :READ-ONLY NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CTYPE {525BDC69}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {53D83291}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL::TYPE-CLASS-INFO could not be inlined
;   because the structure definition for SB!KERNEL:CTYPE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (CTYPE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFCONSTANT +TYPE-ADMITS-TYPE=-OPTIMIZATION+ ...)
; compiling (DEFUN MARK-CTYPE-INTERNED ...)
; compiling (DECLAIM (INLINE TYPE-MIGHT-CONTAIN-OTHER-TYPES-P))
; compiling (DEFUN TYPE-MIGHT-CONTAIN-OTHER-TYPES-P ...)
; compiling (DECLAIM (INLINE TYPE-ENUMERABLE))
; compiling (DEFUN TYPE-ENUMERABLE ...)
; compiling (DEFUN MAKE-TYPE-LOAD-FORM ...)
; compiling (DEFUN HIERARCHICAL-INTERSECTION2 ...)
; compiling (DEFUN HIERARCHICAL-UNION2 ...)
; compiling (DECLAIM (INLINE TYPE-CACHE-HASH))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN TYPE-CACHE-HASH ...)
; compiling (DECLAIM (INLINE TYPE-LIST-CACHE-HASH))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN TYPE-LIST-CACHE-HASH ...)

; file: /«PKGBUILDDIR»/src/code/typedefs.lisp
; in: DEFUN HIERARCHICAL-UNION2
;     (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2)
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN HIERARCHICAL-INTERSECTION2
;     (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE2 SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN MAKE-TYPE-LOAD-FORM
;     (SB!INT:QUASIQUOTE
;      (SB!KERNEL:SPECIFIER-TYPE
;       '#S(SB!IMPL::COMMA :EXPR (SB!KERNEL:TYPE-SPECIFIER TYPE) :KIND 0)))
; --> SB!IMPL::|List| SB!IMPL::|List| 
; ==>
;   (SB!KERNEL:TYPE-SPECIFIER TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-SPECIFIER

; in: DEF!METHOD PRINT-OBJECT
;     (SB!KERNEL:TYPE-SPECIFIER SB!KERNEL:CTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-SPECIFIER
; 
; compilation unit finished
;   Undefined functions:
;     CSUBTYPEP TYPE-SPECIFIER
;   caught 5 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPEDEFS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/typedefs.fasl-tmp written
; compilation finished in 0:00:00.497
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-array.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...)
; compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; compiling (SETQ *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; compiling (DEFUN VALID-BIT-BASH-SAETP-P ...)
; compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...)
; compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-SAETP ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/vm-array.lisp
; in: DEFUN FIND-SAETP-BY-CTYPE
;     #'SB!KERNEL:CSUBTYPEP
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP
; 
; compilation unit finished
;   Undefined function:
;     CSUBTYPEP
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN FIND-SAETP-BY-CTYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-array.fasl-tmp written
; compilation finished in 0:00:00.430
; compiling file "/«PKGBUILDDIR»/src/code/sc-offset.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT-EQX SC-OFFSET-SCN-BYTE ...)
; compiling (DEFCONSTANT-EQX SC-OFFSET-OFFSET-BYTE ...)
; compiling (DEF!TYPE SC-OFFSET ...)
; compiling (DEFMACRO MAKE-SC-OFFSET ...)
; compiling (DEFMACRO SC-OFFSET-SCN ...)
; compiling (DEFMACRO SC-OFFSET-OFFSET ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/sc-offset.fasl-tmp written
; compilation finished in 0:00:00.091
; compiling file "/«PKGBUILDDIR»/src/code/char.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...)
; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/char.fasl-tmp written
; compilation finished in 0:00:00.013
; compiling file "/«PKGBUILDDIR»/src/code/huffman.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFSTRUCT (HUFFMAN-NODE #) ...)
; compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...)
; compiling (DEFUN HUFFMAN-WEIGHTS ...)
; compiling (DEFUN MAKE-HUFFMAN-TREE ...)
; compiling (DEFUN HUFFMAN-DECODE ...)
; compiling (DEFUN HUFFMAN-MATCH ...)
; compiling (DEFUN HUFFMAN-ENCODE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/huffman.fasl-tmp written
; compilation finished in 0:00:00.454
; compiling file "/«PKGBUILDDIR»/src/code/misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...)
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/misc.fasl-tmp written
; compilation finished in 0:00:00.019
; compiling file "/«PKGBUILDDIR»/src/code/early-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FORMAT")
; compiling (DEFPARAMETER *FORMAT-WHITESPACE-CHARS* ...)
; compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...)
; compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...)
; compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...)
; compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...)
; compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...)
; compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...)
; compiling (DEFVAR *ONLY-SIMPLE-ARGS*)
; compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...)
; compiling (DEFVAR *SIMPLE-ARGS*)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-format.fasl-tmp written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/src/compiler/early-c.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT*)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*)
; compiling (DEF!TYPE LAYOUT-DEPTHOID ...)
; compiling (DEFTYPE INLINEP ...)
; compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...)
; compiling (DEFVAR *LEXENV*)
; compiling (DECLAIM (TYPE LEXENV ...))
; compiling (DEFVAR *FREE-VARS*)
; compiling (DEFVAR *FREE-FUNS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *CONSTANTS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ALLOW-INSTRUMENTING*)
; compiling (DEFVAR *CODE-SEGMENT*)
; compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; compiling (DEFVAR *COMPILER-ERROR-CONTEXT*)
; compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT*)
; compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; compiling (DEFVAR *CURRENT-PATH*)
; compiling (DEFVAR *CURRENT-COMPONENT*)
; compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*)
; compiling (DEFVAR *EVAL-TLF-INDEX*)
; compiling (DEFVAR *HANDLED-CONDITIONS*)
; compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*)
; compiling (DEFVAR *POLICY*)
; compiling (DEFVAR *MACRO-POLICY* ...)
; compiling (DEFVAR *DYNAMIC-COUNTS-TN*)
; compiling (DEFVAR *ELSEWHERE*)
; compiling (DEFVAR *EVENT-INFO*)
; compiling (DEFVAR *EVENT-NOTE-THRESHOLD*)
; compiling (DEFVAR *FAILURE-P*)
; compiling (DEFVAR *FIXUP-NOTES*)
; compiling (DEFVAR *LEXENV*)
; compiling (DEFVAR *SOURCE-INFO*)
; compiling (DEFVAR *SOURCE-PLIST*)
; compiling (DEFVAR *SOURCE-NAMESTRING*)
; compiling (DEFVAR *UNDEFINED-WARNINGS*)
; compiling (DEFVAR *WARNINGS-P*)
; compiling (DEFVAR *LAMBDA-CONVERSIONS*)
; compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...)
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFGLOBAL **WORLD-LOCK** ...)
; compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT)
; compiling (DEFMACRO WITH-WORLD-LOCK ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *COMPILER-SSET-COUNTER* ...)
; compiling (DECLAIM (FIXNUM *TYPE-CACHE-NONCE*))
; compiling (!DEFGLOBAL *TYPE-CACHE-NONCE* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-NAME-DEFINED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...))
; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...)
; compiling (DEFVAR *DEBUG-NAME-LENGTH* ...)
; compiling (DEFVAR *DEBUG-NAME-PUNT*)
; compiling (DEFVAR *DEBUG-NAME-SHARP*)
; compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*)
; compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...)
; compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...)
; compiling (SETF *DEBUG-NAME-SHARP* ...)
; compiling (DEFUN DEBUG-NAME ...)
; compiling (DECLAIM (INLINE LL-KWDS-KEYP ...))
; compiling (DEFUN LL-KWDS-KEYP ...)

; file: /«PKGBUILDDIR»/src/compiler/early-c.lisp
; in: DECLAIM (TYPE LEXENV *LEXENV*)
;     (DECLAIM (TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; in: DEFUN DEBUG-NAME
;     (SB!C::NAME-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-CONTEXT

; in: DEFUN NOTE-LEXICAL-BINDING
;     (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME
;      :FORMAT-CONTROL "using the lexical binding of the symbol ~
;                    ~/sb-impl::print-symbol-with-prefix/, not the~@
;                    dynamic binding"
;      :FORMAT-ARGUMENTS (LIST SYMBOL))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN NOTE-NAME-DEFINED
;     (SB!C::UNDEFINED-WARNING-KIND SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: UNDEFINED-WARNING-KIND

;     (SB!C::UNDEFINED-WARNING-NAME SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: UNDEFINED-WARNING-NAME
; 
; compilation unit finished
;   Undefined type:
;     LEXENV
;   Undefined functions:
;     NAME-CONTEXT STYLE-WARN UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME
;   caught 5 STYLE-WARNING conditions
; compiling (DEFUN LL-KWDS-ALLOWP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-c.fasl-tmp written
; compilation finished in 0:00:00.428
; compiling file "/«PKGBUILDDIR»/src/compiler/policy.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!TYPE POLICY-QUALITY ...)
; compiling (DEFVAR *POLICY-RESTRICTIONS* ...)
; compiling (DEFUN RESTRICT-COMPILER-POLICY ...)
; compiling (DEFSTRUCT (POLICY-DEPENDENT-QUALITY #) ...)
; compiling (DECLAIM (SIMPLE-VECTOR **POLICY-PRIMARY-QUALITIES** ...))
; compiling (!DEFGLOBAL **POLICY-PRIMARY-QUALITIES** ...)
; compiling (DEFGLOBAL **POLICY-DEPENDENT-QUALITIES** ...)
; compiling (DEFCONSTANT N-POLICY-PRIMARY-QUALITIES ...)
; compiling (DEFCONSTANT MAX-POLICY-QUALITIES ...)
; compiling (DEFSTRUCT (POLICY #) ...)
; compiling (DEFUN POLICY-TO-DECL-SPEC ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN POLICY= ...)
; compiling (DEFUN POLICY-QUALITY-NAME-P ...)
; compiling (DEFUN ALTER-POLICY ...)
; compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...)
; compiling (DECLAIM (TYPE POLICY ...) ...)
; compiling (DEFGLOBAL **BASELINE-POLICY** ...)
; compiling (DEFGLOBAL **ZERO-TYPECHECK-POLICY** ...)
; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...)
; compiling (DEFUN POLICY-QUALITY ...)
; compiling (DEFINE-COMPILER-MACRO POLICY-QUALITY ...)
; compiling (DEFUN %POLICY-QUALITY ...)
; compiling (DEFMACRO POLICY ...)
; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...)
; compiling (DEFUN SET-MACRO-POLICY ...)

; file: /«PKGBUILDDIR»/src/compiler/policy.lisp
; in: DEFUN SET-MACRO-POLICY
;     (SB!C::PROCESS-OPTIMIZE-DECL
;      (SB!INT:QUASIQUOTE (OPTIMIZE #S(SB!IMPL::COMMA :EXPR LIST :KIND 2)))
;      SB!C::**BASELINE-POLICY**)
; 
; caught STYLE-WARNING:
;   undefined function: PROCESS-OPTIMIZE-DECL
; 
; compilation unit finished
;   Undefined function:
;     PROCESS-OPTIMIZE-DECL
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN MACRO-POLICY-DECLS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/policy.fasl-tmp written
; compilation finished in 0:00:02.011
; compiling file "/«PKGBUILDDIR»/src/compiler/policies.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-CLOSURE-DEBUG-POINTER ...)

; file: /«PKGBUILDDIR»/src/compiler/policies.lisp
; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE
;                                        (COND ((= SAFETY 0) 0) (T 3))
;                                        ("no" "maybe" "yes" "yes")
;                                        "Control whether GO and RETURN-FROM check liveness of the destination tag.
;   Enabling this option can increase heap consing of closures.")
; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY 
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK
;                                        (COND ((= SAFETY 0) 0)
;                                              ((AND (< SAFETY 2) (< SAFETY SPEED))
;                                               2)
;                                              (T 3))
;                                        ("no" "maybe" "weak" "full")
;                                        "Control the way to perform runtime type checking:
;   0: declared types are simply trusted; no runtime checks are performed;
;   2: fast checks are performed: declared types are weakened to
;      FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.;
;   3: declared types are fully checked (several exceptions exist;
;      see \"SBCL User Manual\", Compiler->Handling of Types->
;      Implementation Limitations for details).")
; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY 
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY
;                                        ("no" "maybe" "yes" "yes")
;                                        "Control whether the compiler should check for constant
;   modification. Defaults to SAFETY.")
; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY 
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; 
; caught STYLE-WARNING:
;   26 more uses of undefined function %COERCE-TO-POLICY
; 
; compilation unit finished
;   Undefined function:
;     %COERCE-TO-POLICY
;   caught 4 STYLE-WARNING conditions
; compiling (!POLICY-COLD-INIT-OR-RESANIFY)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/policies.fasl-tmp written
; compilation finished in 0:00:02.324
; compiling file "/«PKGBUILDDIR»/src/compiler/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; compiling (DEFMACRO DEF-IR1-TRANSLATOR ...)
; compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...)
; compiling (DEFTYPE ATTRIBUTES ...)
; compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...)
; compiling (DEF!MACRO !DEF-BOOLEAN-ATTRIBUTE ...)
; compiling (DEFUN GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER ...)
; compiling (DEFMACRO !DEF-BOOLEAN-ATTRIBUTE-SETTER ...)
; compiling (DEFMACRO ATTRIBUTES-UNION ...)
; compiling (DEFMACRO ATTRIBUTES-INTERSECTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (INLINE ATTRIBUTES=))
; compiling (DEFUN ATTRIBUTES= ...)
; compiling (DEFUN PARSE-DEFTRANSFORM ...)
; compiling (DEFMACRO DEFTRANSFORM ...)
; compiling (DEFMACRO DEFKNOWN ...)
; compiling (DEFMACRO DEFOPTIMIZER ...)
; compiling (DEFMACRO DO-BLOCKS ...)
; compiling (DEFMACRO DO-BLOCKS-BACKWARDS ...)
; compiling (DEFMACRO DO-USES ...)
; compiling (DEFMACRO DO-NODES ...)
; compiling (DEFMACRO DO-NODES-BACKWARDS ...)
; compiling (DEFMACRO DO-NODES-CAREFULLY ...)
; compiling (DEFMACRO DO-NESTED-CLEANUPS ...)
; compiling (DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; compiling (DEFMACRO WITH-SOURCE-PATHS ...)
; compiling (DEFMACRO WITH-IR1-NAMESPACE ...)
; compiling (DEFMACRO LEXENV-FIND ...)
; compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...)
; compiling (DEFSTRUCT (EVENT-INFO #) ...)
; compiling (DEFVAR *EVENT-INFO* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-INFO-OR-LOSE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-COUNT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-ACTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %SET-EVENT-ACTION ...)
; compiling (DEFSETF EVENT-ACTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-LEVEL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %SET-EVENT-LEVEL ...)
; compiling (DEFSETF EVENT-LEVEL ...)
; compiling (DEFMACRO DEFEVENT ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...)
; compiling (DEFMACRO EVENT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EVENT-STATISTICS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CLEAR-EVENT-STATISTICS ...)
; compiling (DECLAIM (INLINE FIND-IN ...))
; compiling (DEFUN FIND-IN ...)
; compiling (DEFUN POSITION-IN ...)
; compiling (DEF!MACRO DELETEF-IN ...)
; compiling (DEF!MACRO PUSH-IN ...)
; compiling (DEFMACRO POSITION-OR-LOSE ...)
; compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...)
; compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...)

; file: /«PKGBUILDDIR»/src/compiler/macros.lisp
; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE
;     (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: AVER-LIVE-COMPONENT

;     (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE))
;           (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE))
;           (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
;       (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;       (FUNCALL SB!C::FUN))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G500 '(OR SB!KERNEL:LEXENV NULL))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

;     (DEFUN SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE (SB!C::NODE SB!C::FUN)
;       (DECLARE (TYPE SB!C::NODE SB!C::NODE)
;                (TYPE FUNCTION SB!C::FUN))
;       (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE))
;             (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE))
;             (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
;         (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;         (FUNCALL SB!C::FUN)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G507 'SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined type: NODE

;     (TYPE SB!C::NODE SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined type: NODE

;     (SB!C::NODE-COMPONENT SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

;     (SB!C::NODE-LEXENV SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-LEXENV

;     (SB!C::NODE-SOURCE-PATH SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-SOURCE-PATH

; in: DEFUN PARSE-DEFTRANSFORM
;     (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-LAMBDA-LIST
; 
; compilation unit finished
;   Undefined types:
;     LEXENV NODE
;   Undefined functions:
;     AVER-LIVE-COMPONENT NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST
;   caught 8 STYLE-WARNING conditions
; compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/macros.fasl-tmp written
; compilation finished in 0:00:04.142
; compiling file "/«PKGBUILDDIR»/src/compiler/globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFUN GLOBALDB-SXHASHOID ...)
; compiling (DEFUN PRIMIFY ...)

; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in:
;      DEF!STRUCT (META-INFO
;              (:PRINT-OBJECT (LAMBDA (X S) (PRINT-UNREADABLE-OBJECT # #)))
;              (:CONSTRUCTOR !MAKE-META-INFO
;               (NUMBER CATEGORY KIND TYPE-SPEC TYPE-CHECKER ...))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::META-INFO
;       (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #)))
;       (:CONSTRUCTOR SB!C::!MAKE-META-INFO
;        (NUMBER SB!C::CATEGORY SB!C::KIND SB!C::TYPE-SPEC SB!C::TYPE-CHECKER
;         SB!C::VALIDATE-FUNCTION SB!C::DEFAULT))
;       (:COPIER NIL))
;      (NUMBER NIL :TYPE SB!INT:INFO-NUMBER :READ-ONLY T)
;      (SB!C::CATEGORY NIL :TYPE KEYWORD :READ-ONLY T)
;      (SB!C::KIND NIL :TYPE KEYWORD :READ-ONLY T)
;      (SB!C::TYPE-SPEC NIL :TYPE T :READ-ONLY T)
;      (SB!C::TYPE-CHECKER NIL :TYPE FUNCTION :READ-ONLY T)
;      (SB!C::VALIDATE-FUNCTION NIL :TYPE (OR FUNCTION NULL) :READ-ONLY T)
;      (SB!C::DEFAULT NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::META-INFO {528DFD51}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::META-INFO-NUMBER, SB!C::META-INFO-TYPE-SPEC
;   and SB!C::META-INFO-VALIDATE-FUNCTION could not be inlined because the
;   structure definition for SB!C::META-INFO was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (META-INFO # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE META-INFO))
; compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...)
; compiling (DEFMACRO !GET-META-INFOS ...)
; compiling (DEFUN META-INFO ...)
; compiling (DEFUN !REGISTER-META-INFO ...)
; compiling (DEFUN !%DEFINE-INFO-TYPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (!COLD-INIT-FORMS (DOVECTOR # ...))
; compiling (DEFUN INFO ...)
; compiling (DEFUN (SETF INFO) ...)
; compiling (DEFUN CLEAR-INFO ...)
; compiling (DEFUN CLEAR-INFO-VALUES ...)
; compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET-INFO-VALUE ...)
; compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...)
; compiling (DEF!MACRO ATOMIC-SET-INFO-VALUE ...)
; compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :EMITTED-FULL-CALLS) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...)
; compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...)
; compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...)
; compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...)
; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...)
; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...)
; compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...)
; compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...)
; compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...)
; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...)
; compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...)
; compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...)
; compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...)
; compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...)
; compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VOP) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :DECLARATION) ...)
; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :ALIEN-TYPE) ...)
; compiling (DEFUN CALL-WITH-EACH-INFO ...)
; compiling (DEFUN SHOW-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in: DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION)
;     (SB!C::DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL))
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET 
; --> OR LET 
; ==>
;   (TYPEP #:N-OBJ4 'SB!ALIEN-INTERNALS:ALIEN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE

; in: DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT)
;     (SB!C::DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL))
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET 
; --> OR LET 
; ==>
;   (TYPEP #:N-OBJ4 'SB!ALIEN-INTERNALS:ALIEN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE

; in: DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION)
;     (SB!C::DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL))
; ==>
;   (THE (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE

; 
; caught STYLE-WARNING:
;   6 more uses of undefined type ALIEN-TYPE


; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::ALLOCATE-STRUCT SB!FASL::*DYNAMIC* SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::ALLOCATE-STRUCT

; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT)
;     (SB!KERNEL:CLASSOID-LAYOUT CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: CLASSOID-LAYOUT

; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::COLD-SVSET (SB!FASL::COLD-SYMBOL-VALUE 'SB!C::*INFO-TYPES*)
;      SB!C::ID
;      (SB!FASL::WRITE-SLOTS
;       (SB!FASL::ALLOCATE-STRUCT SB!FASL::*DYNAMIC* SB!KERNEL:LAYOUT)
;       (SB!KERNEL:FIND-LAYOUT 'SB!C::META-INFO) :CATEGORY SB!C::CATEGORY :KIND
;       SB!C::KIND :TYPE-SPEC SB!C::TYPE-SPEC :TYPE-CHECKER SB!C::CHECKER
;       :VALIDATE-FUNCTION ...))
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-SVSET

;     (SB!FASL::COLD-SYMBOL-VALUE 'SB!C::*INFO-TYPES*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::COLD-SYMBOL-VALUE

; in: DEFINE-INFO-TYPE (:FUNCTION :DEFINITION)
;     (SB!C::DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) :TYPE-SPEC
;                             (OR SB!KERNEL:FDEFN NULL))
; ==>
;   (THE (OR SB!KERNEL:FDEFN NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: FDEFN

; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT)
;     (SB!KERNEL:FIND-CLASSOID SB!C::NAME NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID

; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!KERNEL:FIND-LAYOUT 'SB!C::META-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-LAYOUT

; in: DEFINE-INFO-TYPE (:FUNCTION :INFO)
;     (SB!C::DEFINE-INFO-TYPE (:FUNCTION :INFO) :TYPE-SPEC (OR SB!C::FUN-INFO NULL))
; ==>
;   (THE (OR SB!C::FUN-INFO NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO)
;     (SB!C::DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) :TYPE-SPEC
;                             (OR SB!ALIEN-INTERNALS:HEAP-ALIEN-INFO NULL))
; ==>
;   (THE (OR SB!ALIEN-INTERNALS:HEAP-ALIEN-INFO NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: HEAP-ALIEN-INFO

; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT)
;     (SB!C::DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) :TYPE-SPEC
;                             (OR SB!KERNEL:LAYOUT NULL) :DEFAULT
;                             (LAMBDA (SB!C::NAME)
;                               (LET ((CLASS #))
;                                 (WHEN CLASS (SB!KERNEL:CLASSOID-LAYOUT CLASS)))))
; ==>
;   (THE (OR SB!KERNEL:LAYOUT NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: LAYOUT

; in: DEFINE-INFO-TYPE (:FUNCTION :TYPE)
;     (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in: SETF (GET '!%DEFINE-INFO-TYPE :SB-COLD-FUNCALL-HANDLER)
;     (SB!FASL::WRITE-SLOTS
;      (SB!FASL::ALLOCATE-STRUCT SB!FASL::*DYNAMIC* SB!KERNEL:LAYOUT)
;      (SB!KERNEL:FIND-LAYOUT 'SB!C::META-INFO) :CATEGORY SB!C::CATEGORY :KIND
;      SB!C::KIND :TYPE-SPEC SB!C::TYPE-SPEC :TYPE-CHECKER SB!C::CHECKER
;      :VALIDATE-FUNCTION ...)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FASL::WRITE-SLOTS
; 
; compilation unit finished
;   Undefined types:
;     ALIEN-TYPE FDEFN FUN-INFO HEAP-ALIEN-INFO LAYOUT
;   Undefined functions:
;     SB!FASL::ALLOCATE-STRUCT CLASSOID-LAYOUT SB!FASL::COLD-SVSET SB!FASL::COLD-SYMBOL-VALUE FIND-CLASSOID FIND-LAYOUT SPECIFIER-TYPE SB!FASL::WRITE-SLOTS
;   caught 17 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/globaldb.fasl-tmp written
; compilation finished in 0:00:03.325
; compiling file "/«PKGBUILDDIR»/src/compiler/info-functions.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN CHECK-FUN-NAME ...)
; compiling (DEFUN PROCLAIM-AS-FUN-NAME ...)
; compiling (DEFUN WARN-IF-SETF-MACRO ...)
; compiling (DEFUN UNDEFINE-FUN-NAME ...)
; compiling (DEFUN BECOME-DEFINED-FUN-NAME ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...)
; compiling (DEFUN SB-XC:MACRO-FUNCTION ...)
; compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...)
; compiling (DEFUN INSTALL-GUARD-FUNCTION ...)
; compiling (DEFUN FUN-LOCALLY-DEFINED-P ...)
; compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...)
; compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...)
; compiling (DEFUN FDOCUMENTATION ...)
; compiling (DEFUN (SETF FDOCUMENTATION) ...)
; compiling (DEFUN RANDOM-DOCUMENTATION ...)
; compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...)

; file: /«PKGBUILDDIR»/src/compiler/info-functions.lisp
; in: DEFUN FDOCUMENTATION
;     (SB!KERNEL:%FUN-DOC SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: %FUN-DOC

; in: DEFUN (SETF FDOCUMENTATION)
;     (SETF (SB!KERNEL:%FUN-DOC (FDEFINITION SB!C::NAME)) STRING)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:%FUN-DOC) #:NEW436 #:G435)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF %FUN-DOC)

; in: DEFUN CHECK-FUN-NAME
;     (SB!C:COMPILER-ERROR "illegal function name: ~S" SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN PROCLAIM-AS-FUN-NAME
;     (SB!C:COMPILER-STYLE-WARN "~S was previously defined as a macro." SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARN

; in: DEFUN FUN-LOCALLY-DEFINED-P
;     (SB!C::GLOBAL-VAR-P SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: GLOBAL-VAR-P

;     (SB!C::LEXENV-FUNS SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-FUNS

; in: DEFUN SB-XC:MACRO-FUNCTION
;     (SB!C::LEXENV-FUNS SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-FUNS

; in: DEFUN FDOCUMENTATION
;     (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: PACKAGE-DOC-STRING
; 
; compilation unit finished
;   Undefined functions:
;     %FUN-DOC (SETF %FUN-DOC) COMPILER-ERROR COMPILER-STYLE-WARN GLOBAL-VAR-P LEXENV-FUNS PACKAGE-DOC-STRING
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN EMITTED-FULL-CALL-COUNT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/info-functions.fasl-tmp written
; compilation finished in 0:00:00.776
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-macs.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFMACRO PAD-DATA-BLOCK ...)
; compiling (DEFUN REMOVE-KEYWORDS ...)
; compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...)
; compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...)
; compiling (DEFVAR *PRIMITIVE-OBJECTS* ...)
; compiling (DEFUN !%DEFINE-PRIMITIVE-OBJECT ...)
; compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...)
; compiling (DEFMACRO !DEFINE-PRIMITIVE-OBJECT ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEF-REFFER ...)
; compiling (DEFMACRO DEF-SETTER ...)
; compiling (DEFMACRO DEF-ALLOC ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...)
; compiling (DEFSTRUCT MODULAR-CLASS ...)
; compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...)
; compiling (DEFUN FIND-MODULAR-CLASS ...)
; compiling (DEFSTRUCT MODULAR-FUN-INFO ...)
; compiling (DEFUN FIND-MODULAR-VERSION ...)
; compiling (DEFUN MODULAR-VERSION-INFO ...)
; compiling (DEFUN %DEFINE-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-MODULAR-FUN ...)
; compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/vm-macs.lisp
; in: DEFUN %DEFINE-MODULAR-FUN
;     (SB!INT:STYLE-WARN "Redefining modular version ~S of ~S for ~
;                          ~:[un~;~]signed width ~S."
;      SB!C::NAME SB!C::PROTOTYPE SB!C::SIGNEDP SB!C::WIDTH)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined function:
;     STYLE-WARN
;   caught 1 STYLE-WARNING condition
; compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-macs.fasl-tmp written
; compilation finished in 0:00:02.557
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SINGLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (BINDING) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...)
; compiling (!DEFINE-PRIMITIVE-OBJECT (THREAD) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/objdef.fasl-tmp written
; compilation finished in 0:00:00.431
; compiling file "/«PKGBUILDDIR»/src/compiler/sset.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...)
; compiling (DEFSTRUCT (SSET #) ...)
; compiling (DEFPRINTER (SSET) ...)
; compiling (DEFMACRO DO-SSET-ELEMENTS ...)
; compiling (DECLAIM (INLINE SSET-HASH1))
; compiling (DEFUN SSET-HASH1 ...)
; compiling (DECLAIM (INLINE SSET-HASH2))
; compiling (DEFUN SSET-HASH2 ...)
; compiling (DEFUN SSET-GROW ...)
; compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/sset.lisp
; in: DEFUN SSET-ADJOIN
;     (LOOP SB!C::WITH VECTOR = (SB!C::SSET-VECTOR SET)
;           SB!C::WITH SB!C::MASK SB!C::OF-TYPE FIXNUM = (1- (LENGTH VECTOR))
;           SB!C::WITH ...)
; --> BLOCK LET LET LET LET LET LET SB-LOOP::LOOP-BODY TAGBODY 
; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; --> PROGN 
; ==>
;   (SB-C::%TYPE-CHECK-ERROR/C #:G258 'SB-KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; compiling (DEFUN SSET-ADJOIN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-DELETE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-MEMBER ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET= ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-EMPTY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COPY-SSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-UNION ...)
; compiling (DEFUN SSET-INTERSECTION ...)
; compiling (DEFUN SSET-DIFFERENCE ...)
; compiling (DECLAIM (FTYPE # ...))
; 
; compilation unit finished
;   printed 1 note
; compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/sset.fasl-tmp written
; compilation finished in 0:00:01.441
; compiling file "/«PKGBUILDDIR»/src/compiler/node.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (CTRAN # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (LVAR # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (NODE (:CONSTRUCTOR NIL)
;              (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::NODE (:CONSTRUCTOR NIL)
;       (:INCLUDE SB!ASSEM:SSET-ELEMENT
;        (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;       (:COPIER NIL))
;      (SB!C::REOPTIMIZE T :TYPE BOOLEAN)
;      (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST)
;      (SB!C::TAIL-P NIL :TYPE BOOLEAN))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::NODE {52AE7771}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {538A9111}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::NODE-LEXENV and SB!C::NODE-SOURCE-PATH could
;   not be inlined because the structure definition for SB!C::NODE was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (NODE # ...) ...)
; compiling (DEF!STRUCT (VALUED-NODE # ...) ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...)
; compiling (DEFATTR BLOCK-REOPTIMIZE)
; compiling (DEFATTR BLOCK-FLUSH-P)
; compiling (DEFATTR BLOCK-TYPE-CHECK)
; compiling (DEFATTR BLOCK-DELETE-P)
; compiling (DEFATTR BLOCK-TYPE-ASSERTED)
; compiling (DEFATTR BLOCK-TEST-MODIFIED)
; compiling (DEF!STRUCT (CBLOCK # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...)
; compiling (DEF!STRUCT (COMPONENT # ...) ...)
; compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...)
; compiling (DEFUN AVER-LIVE-COMPONENT ...)
; compiling (DEFUN LAMBDA-TOPLEVELISH-P ...)
; compiling (DEFUN COMPONENT-TOPLEVELISH-P ...)
; compiling (DEF!STRUCT (CLEANUP #) ...)
; compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...)
; compiling (DEF!STRUCT (PHYSENV #) ...)
; compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...)
; compiling (DEF!STRUCT (TAIL-SET) ...)
; compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...)
; compiling (DEF!STRUCT (NLX-INFO # ...) ...)
; compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...)
; compiling (DEF!STRUCT (LEAF # ...) ...)
; compiling (DEFUN LEAF-DYNAMIC-EXTENT ...)
; compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...)
; compiling (DEFUN LEAF-SOURCE-NAME ...)
; compiling (DEFUN LEAF-DEBUG-NAME ...)
; compiling (DEFUN LEAF-%DEBUG-NAME ...)
; compiling (DEF!STRUCT (CONSTANT # ...) ...)
; compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...)
; compiling (DEF!STRUCT (BASIC-VAR # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEF!STRUCT (GLOBAL-VAR (:INCLUDE BASIC-VAR))
;     (SB!INT:DEF!STRUCT (SB!C::GLOBAL-VAR (:INCLUDE SB!C::BASIC-VAR))
;                        (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE
;                         (MEMBER :SPECIAL :GLOBAL-FUNCTION :GLOBAL :UNKNOWN)))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::GLOBAL-VAR {527F0419}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {51B1C441}>
;       #<SB-KERNEL:LAYOUT for SB!C::LEAF {53B272A1}>
;       #<SB-KERNEL:LAYOUT for SB!C::BASIC-VAR {5253D8B9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::GLOBAL-VAR-P could not be inlined because the
;   structure definition for SB!C::GLOBAL-VAR was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (GLOBAL-VAR #) ...)
; compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...)
; compiling (DEF!STRUCT (DEFINED-FUN #) ...)
; compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (FUNCTIONAL
;              (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED)
;               (TYPE (SPECIFIER-TYPE 'FUNCTION))))
;     (SB!INT:DEF!STRUCT
;      (SB!C::FUNCTIONAL
;       (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;        (SB!C::WHERE-FROM :DEFINED) (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))))
;      (SB!C::%DEBUG-NAME NIL :TYPE
;       (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T)
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET
;               :MV-LET :ASSIGNMENT :ZOMBIE ...))
;      (SB!C::HAS-EXTERNAL-REFERENCES-P NIL)
;      (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL))
;      (SB!C::INLINEP NIL :TYPE SB!C::INLINEP)
;      (SB!C::INLINE-EXPANSION NIL :TYPE LIST)
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED)))
;      (DOCUMENTATION NIL :TYPE (OR NULL STRING))
;      (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::FUNCTIONAL {53576971}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {51B1C441}>
;       #<SB-KERNEL:LAYOUT for SB!C::LEAF {53B272A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::FUNCTIONAL-P and
;   SB!C::FUNCTIONAL-%DEBUG-NAME could not be inlined because the structure
;   definition for SB!C::FUNCTIONAL was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (FUNCTIONAL #) ...)
; compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...)
; compiling (DEFUN FUNCTIONAL-LETLIKE-P ...)
; compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...)
; compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-)
;              (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;       (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;       (:COPIER SB!C::COPY-LAMBDA))
;      (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;      (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;      (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;      (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;      (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST)
;      (SB!C::ENTRIES NIL :TYPE LIST)
;      (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;      (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;      (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::CLAMBDA {527548F9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>
;       #<SB-KERNEL:LAYOUT for SB!ASSEM:SSET-ELEMENT {51B1C441}>
;       #<SB-KERNEL:LAYOUT for SB!C::LEAF {53E1C5C1}>
;       #<SB-KERNEL:LAYOUT for SB!C::FUNCTIONAL {53E1C7C9}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::LAMBDA-KIND and
;   SB!C::LAMBDA-HAS-EXTERNAL-REFERENCES-P could not be inlined because the
;   structure definition for SB!C::CLAMBDA was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (CLAMBDA # ...) ...)
; compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...)
; compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...)
; compiling (DEF!STRUCT ARG-INFO ...)
; compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...)
; compiling (DEF!STRUCT (LAMBDA-VAR #) ...)
; compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...)
; compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...)
; compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...)
; compiling (DEFMACRO LAMBDA-VAR-DELETED ...)
; compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...)
; compiling (DEF!STRUCT (REF # ...) ...)
; compiling (DEFPRINTER (REF :IDENTITY ...) ...)
; compiling (DEF!STRUCT (CIF # ...) ...)
; compiling (DEFPRINTER (CIF :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (CSET # ...) ...)
; compiling (DEFPRINTER (CSET :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...)
; compiling (DEF!STRUCT (COMBINATION # ...))
; compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...)
; compiling (DEF!STRUCT (MV-COMBINATION # ...))
; compiling (DEFPRINTER (MV-COMBINATION) ...)
; compiling (DEF!STRUCT (BIND # ...) ...)
; compiling (DEFPRINTER (BIND) ...)
; compiling (DEF!STRUCT (CRETURN # ...) ...)
; compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (CAST # ...) ...)
; compiling (DEFPRINTER (CAST :IDENTITY ...) ...)
; compiling (DEF!STRUCT (ENTRY # ...) ...)
; compiling (DEFPRINTER (ENTRY :IDENTITY ...))
; compiling (DEF!STRUCT (EXIT # ...) ...)
; compiling (DEFPRINTER (EXIT :IDENTITY ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (UNDEFINED-WARNING
;              (:PRINT-OBJECT (LAMBDA (X S) (PRINT-UNREADABLE-OBJECT # #)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::UNDEFINED-WARNING
;       (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #)))
;       (:COPIER NIL))
;      (SB!C::NAME NIL :TYPE (OR SYMBOL LIST))
;      (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE (MEMBER :FUNCTION :TYPE :VARIABLE))
;      (COUNT 0 :TYPE UNSIGNED-BYTE) (SB!C::WARNINGS NIL :TYPE LIST))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::UNDEFINED-WARNING {54594959}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::UNDEFINED-WARNING-NAME and
;   SB!C::UNDEFINED-WARNING-KIND could not be inlined because the structure
;   definition for SB!C::UNDEFINED-WARNING was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (DEFUN SB!C::%COERCE-TO-POLICY (SB!C::THING)
;       (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;             (SB!C::THING (SB!C::LEXENV-POLICY (ETYPECASE SB!C::THING # # #)))
;             (T SB!C::**BASELINE-POLICY**)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::%COERCE-TO-POLICY
;         (SB!C::THING)
;       (BLOCK SB!C::%COERCE-TO-POLICY
;         (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;               (SB!C::THING (SB!C::LEXENV-POLICY #))
;               (T SB!C::**BASELINE-POLICY**))))
; 
; note: type assertion too complex to check:
;  (VALUES POLICY &REST T).
; compiling (DEFUN %COERCE-TO-POLICY ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in:
;      DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START))
;              (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;       (:PREDICATE SB!C::BLOCK-P))
;      (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST)
;      (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;      (LAST NIL :TYPE (OR SB!C::NODE NULL))
;      (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::FLAGS
;       (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                               SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;       :TYPE SB!C:ATTRIBUTES)
;      (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;        (:PREDICATE SB!C::BLOCK-P))
;     (SB!C::PRED NIL :TYPE LIST)
;     (SB!C::SUCC NIL :TYPE LIST)
;     (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;     (LAST NIL :TYPE (OR SB!C::NODE NULL))
;     (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::FLAGS
;      (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                              SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;      :TYPE SB!C:ATTRIBUTES)
;     (SB!C::KILL NIL)
;     (SB!C::GEN NIL)
;     (SB!C::IN NIL)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in: DEF!METHOD PRINT-OBJECT
;     (SB!C::CONT-NUM (SB!C::BLOCK-START SB!C::CBLOCK))
; 
; caught STYLE-WARNING:
;   undefined function: CONT-NUM

;     (SB!C::CONT-NUM SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: CONT-NUM
; 
; caught STYLE-WARNING:
;   undefined function: CONT-NUM

; in:
;      DEF!STRUCT (CONSTANT
;              (:CONSTRUCTOR MAKE-CONSTANT
;               (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.)
;                (WHERE-FROM :DEFINED)))
;              (:INCLUDE LEAF))
;     (SB!KERNEL:CTYPE-OF SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in:
;      DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (TRULY-THE (OR SB!C::FUN-INFO NULL)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!C::MV-COMBINATION SB-KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (TRULY-THE (OR SB!C::FUN-INFO NULL)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!C::COMBINATION SB-KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL)
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;       (:COPIER NIL))
;      (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;      (SB!C::ARGS NIL :TYPE LIST)
;      (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;      (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;      (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;        (:COPIER NIL))
;     (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;     (SB!C::ARGS NIL :TYPE LIST)
;     (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;     (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;     (SB!C::TYPE-VALIDATED-FOR-LEAF NIL)
;     (SB!INT:INFO NIL)
;     (SB!C::STEP-INFO))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: DEFUN AVER-LIVE-COMPONENT
;     (SB!C:COMPONENT-INFO SB!C:COMPONENT)
; ==>
;   (TRULY-THE (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))
;              (SB-KERNEL:%INSTANCE-REF (THE SB!C:COMPONENT SB!C:COMPONENT) 10))
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT

; in:
;      DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-)
;              (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;       (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;       (:COPIER SB!C::COPY-LAMBDA))
;      (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;      (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;      (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;      (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;      (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST)
;      (SB!C::ENTRIES NIL :TYPE LIST)
;      (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;      (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;      (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;        (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;        (:COPIER SB!C::COPY-LAMBDA))
;     (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;     (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;     (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;     (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;     (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL))
;     (SB!C::LETS NIL :TYPE LIST)
;     (SB!C::ENTRIES NIL :TYPE LIST)
;     (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;     (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;     (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; in:
;      DEF!STRUCT (FUNCTIONAL
;              (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED)
;               (TYPE (SPECIFIER-TYPE 'FUNCTION))))
;     (SB!INT:DEF!STRUCT
;      (SB!C::FUNCTIONAL
;       (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;        (SB!C::WHERE-FROM :DEFINED) (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))))
;      (SB!C::%DEBUG-NAME NIL :TYPE
;       (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T)
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET
;               :MV-LET :ASSIGNMENT :ZOMBIE ...))
;      (SB!C::HAS-EXTERNAL-REFERENCES-P NIL)
;      (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL))
;      (SB!C::INLINEP NIL :TYPE SB!C::INLINEP)
;      (SB!C::INLINE-EXPANSION NIL :TYPE LIST)
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED)))
;      (DOCUMENTATION NIL :TYPE (OR NULL STRING))
;      (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::FUNCTIONAL
;        (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;         (SB!C::WHERE-FROM :DEFINED)
;         (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))))
;     (SB!C::%DEBUG-NAME NIL :TYPE
;      (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T)
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET
;              :MV-LET :ASSIGNMENT :ZOMBIE ...))
;     (SB!C::HAS-EXTERNAL-REFERENCES-P NIL)
;     (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL))
;     (SB!C::INLINEP NIL :TYPE SB!C::INLINEP)
;     (SB!C::INLINE-EXPANSION NIL :TYPE LIST)
;     (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;     (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED)))
;     (DOCUMENTATION NIL :TYPE (OR NULL STRING))
;     (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; in:
;      DEF!STRUCT (NODE (:CONSTRUCTOR NIL)
;              (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::NODE (:CONSTRUCTOR NIL)
;       (:INCLUDE SB!ASSEM:SSET-ELEMENT
;        (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;       (:COPIER NIL))
;      (SB!C::REOPTIMIZE T :TYPE BOOLEAN)
;      (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST)
;      (SB!C::TAIL-P NIL :TYPE BOOLEAN))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::NODE (:CONSTRUCTOR NIL)
;        (:INCLUDE SB!ASSEM:SSET-ELEMENT
;         (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;        (:COPIER NIL))
;     (SB!C::REOPTIMIZE T :TYPE BOOLEAN)
;     (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL))
;     (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL))
;     (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;     (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST)
;     (SB!C::TAIL-P NIL :TYPE BOOLEAN))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; 
; caught STYLE-WARNING:
;   192 more uses of undefined type LEXENV


; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (SB!C::LEXENV-POLICY
;      (ETYPECASE SB!C::THING
;        (SB!KERNEL:LEXENV SB!C::THING)
;        (SB!C::NODE (SB!C::NODE-LEXENV SB!C::THING))
;        (SB!C::FUNCTIONAL (SB!C::FUNCTIONAL-LEXENV SB!C::THING))))
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-POLICY

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LOOP

; in:
;      DEF!STRUCT (CSET
;              (:INCLUDE VALUED-NODE
;               (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*)))
;              (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...)
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL))
;              (:CONSTRUCTOR MAKE-REF
;               (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #)
;                ...))
;              (:COPIER NIL))
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (NLX-INFO
;              (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #)))
;              (:MAKE-LOAD-FORM-FUN IGNORE-IT))
;     (SB!C::NODE-BLOCK SB!EXT:EXIT)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-BLOCK

; in: DEF!STRUCT (OPTIONAL-DISPATCH (:INCLUDE FUNCTIONAL))
;     (SB!INT:DEF!STRUCT (SB!C::OPTIONAL-DISPATCH (:INCLUDE SB!C::FUNCTIONAL))
;                        (SB!C::ARGLIST NIL :TYPE LIST)
;                        (SB!C::ALLOWP NIL :TYPE BOOLEAN)
;                        (SB!C::KEYP NIL :TYPE BOOLEAN)
;                        (SB!C::MIN-ARGS 0 :TYPE UNSIGNED-BYTE)
;                        (SB!C::MAX-ARGS 0 :TYPE UNSIGNED-BYTE)
;                        (SB!C::ENTRY-POINTS NIL :TYPE LIST)
;                        (SB!C::MORE-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL))
;                        (SB!C::MAIN-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL)))
; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION IF 
; ==>
;   (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in:
;      DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-)
;              (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-)
;       (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA)
;       (:COPIER SB!C::COPY-LAMBDA))
;      (SB!C::VARS NIL :TYPE LIST :READ-ONLY T)
;      (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL))
;      (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL))
;      (RETURN NIL :TYPE (OR SB!C::CRETURN NULL))
;      (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST)
;      (SB!C::ENTRIES NIL :TYPE LIST)
;      (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET))
;      (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL))
;      (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...)
; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION IF 
; ==>
;   (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in:
;      DEF!STRUCT (FUNCTIONAL
;              (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED)
;               (TYPE (SPECIFIER-TYPE 'FUNCTION))))
;     (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in:
;      DEF!STRUCT (CONSTANT
;              (:CONSTRUCTOR MAKE-CONSTANT
;               (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.)
;                (WHERE-FROM :DEFINED)))
;              (:INCLUDE LEAF))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:CONSTANT
;       (:CONSTRUCTOR SB!C::MAKE-CONSTANT
;        (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;         (SB!C::WHERE-FROM :DEFINED)))
;       (:INCLUDE SB!C::LEAF))
;      (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T)
;      (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN)))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!KERNEL:CONSTANT
;        (:CONSTRUCTOR SB!C::MAKE-CONSTANT
;         (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.)
;          (SB!C::WHERE-FROM :DEFINED)))
;        (:INCLUDE SB!C::LEAF))
;     (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T)
;     (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN)))
; 
; caught STYLE-WARNING:
;   undefined type: TN
; 
; compilation unit finished
;   Undefined types:
;     CLOOP FUN-INFO IR2-COMPONENT LEXENV TN
;   Undefined functions:
;     CONT-NUM CTYPE-OF LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE
;   caught 29 STYLE-WARNING conditions
;   printed 1 note
; compiling (DECLAIM (FREEZE-TYPE NODE ...))

; /«PKGBUILDDIR»/obj/from-host/src/compiler/node.fasl-tmp written
; compilation finished in 0:00:28.602
; compiling file "/«PKGBUILDDIR»/src/compiler/vop.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...)
; compiling (DEFTYPE LOCAL-TN-NUMBER ...)
; compiling (DEFTYPE LOCAL-TN-COUNT ...)
; compiling (DEFTYPE LOCAL-TN-VECTOR ...)
; compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...)
; compiling (DEFTYPE SC-NUMBER ...)
; compiling (DEFTYPE SC-VECTOR ...)
; compiling (DEFTYPE SC-BIT-VECTOR ...)
; compiling (DEFTYPE LTN-POLICY ...)
; compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...)
; compiling (DEFPRINTER (PRIMITIVE-TYPE) ...)
; compiling (DEFSTRUCT (IR2-BLOCK # ...) ...)
; compiling (DEFPRINTER (IR2-BLOCK) ...)
; compiling (DEFSTRUCT (IR2-LVAR # ...) ...)
; compiling (DEFPRINTER (IR2-LVAR) ...)
; compiling (DEFSTRUCT (IR2-COMPONENT #) ...)
; compiling (DEFSTRUCT (ENTRY-INFO #) ...)
; compiling (DEFSTRUCT (IR2-PHYSENV #) ...)
; compiling (DEFPRINTER (IR2-PHYSENV) ...)
; compiling (DEFSTRUCT (RETURN-INFO #) ...)
; compiling (DEFPRINTER (RETURN-INFO) ...)
; compiling (DEFSTRUCT (IR2-NLX-INFO #) ...)
; compiling (DEFPRINTER (IR2-NLX-INFO) ...)
; compiling (DEFSTRUCT (CLOOP # ...) ...)
; compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...)
; compiling (DEF!STRUCT (VOP # ...) ...)
; compiling (DEFPRINTER (VOP) ...)
; compiling (DEF!STRUCT (TN-REF # ...) ...)
; compiling (DEFPRINTER (TN-REF) ...)
; compiling (DEF!STRUCT (TEMPLATE #) ...)
; compiling (DEFPRINTER (TEMPLATE) ...)

; file: /«PKGBUILDDIR»/src/compiler/vop.lisp
; in:
;      DEF!STRUCT (VOP-INFO (:INCLUDE TEMPLATE) (:MAKE-LOAD-FORM-FUN IGNORE-IT))
;     (SB!INT:DEF!STRUCT
;      (SB!C::VOP-INFO (:INCLUDE SB!C::TEMPLATE)
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT))
;      (SB!C::EFFECTS (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES)
;      (SB!C::AFFECTED (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES)
;      (SB!C::SAVE-P NIL :TYPE (MEMBER T NIL :FORCE-TO-STACK :COMPUTE-ONLY))
;      (SB!C::MOVE-ARGS NIL :TYPE
;       (MEMBER NIL :FULL-CALL :LOCAL-CALL :KNOWN-RETURN))
;      (SB!C::ARG-COSTS NIL :TYPE LIST) (SB!C::RESULT-COSTS NIL :TYPE LIST)
;      (SB!C::MORE-ARG-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL))
;      (SB!C::MORE-RESULT-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL))
;      (SB!C::ARG-LOAD-SCS NIL :TYPE LIST) (SB!C::RESULT-LOAD-SCS NIL :TYPE LIST)
;      ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::VOP-INFO {53B81911}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>
;       #<SB-KERNEL:LAYOUT for SB!C::TEMPLATE {53712A11}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::VOP-INFO-NAME could not be inlined because
;   the structure definition for SB!C::VOP-INFO was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (VOP-INFO # ...) ...)
; compiling (DEF!STRUCT (SB #) ...)
; compiling (DEFPRINTER (SB) ...)
; compiling (DEF!STRUCT (FINITE-SB #) ...)
; compiling (DEF!STRUCT (SC #) ...)
; compiling (DEFPRINTER (SC) ...)
; compiling (DEF!STRUCT (TN # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/vop.lisp
; in: DEFSTRUCT IR2-NLX-INFO
;     (SB!ASSEM:GEN-LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: GEN-LABEL

;     (DEFSTRUCT (SB!C::IR2-NLX-INFO (:COPIER NIL))
;       (SB!C::HOME NIL :TYPE (OR SB!C:TN NULL))
;       (SB!C::SAVE-SP (SB!INT:MISSING-ARG) :TYPE SB!C:TN)
;       (SB!C::DYNAMIC-STATE
;        (LIST* (SB!C:MAKE-STACK-POINTER-TN) (SB!C:MAKE-DYNAMIC-STATE-TNS)) :TYPE
;        LIST)
;       (SB!C::TARGET (SB!ASSEM:GEN-LABEL) :TYPE SB!ASSEM:LABEL))
; 
; caught STYLE-WARNING:
;   undefined type: LABEL

; in: DEFSTRUCT IR2-PHYSENV
;     (DEFSTRUCT (SB!C::IR2-PHYSENV (:COPIER NIL))
;       (SB!KERNEL:CLOSURE (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T)
;       (SB!C::OLD-FP NIL :TYPE (OR SB!C:TN NULL))
;       (SB!C::RETURN-PC NIL :TYPE (OR SB!C:TN NULL))
;       (SB!C::RETURN-PC-PASS (SB!INT:MISSING-ARG) :TYPE SB!C:TN :READ-ONLY T)
;       (SB!C::NUMBER-STACK-P NIL :TYPE BOOLEAN)
;       (SB!C::LIVE-TNS NIL :TYPE LIST)
;       (SB!C::DEBUG-LIVE-TNS NIL :TYPE LIST)
;       (SB!C::ELSEWHERE-START NIL :TYPE (OR SB!ASSEM:LABEL NULL))
;       (SB!C::ENVIRONMENT-START NIL :TYPE (OR SB!ASSEM:LABEL NULL))
;       (SB!C::CLOSURE-SAVE-TN NIL :TYPE (OR SB!C:TN NULL))
;       ...)
; --> PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (TRULY-THE (OR SB!ASSEM:LABEL NULL)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!C::IR2-PHYSENV SB-KERNEL:INSTANCE) 8))
; 
; caught STYLE-WARNING:
;   undefined type: LABEL

; in: DEFSTRUCT ENTRY-INFO
;     (DEFSTRUCT (SB!C::ENTRY-INFO (:COPIER NIL))
;       (SB!C::CLOSURE-TN NIL :TYPE (OR NULL SB!C:TN))
;       (SB!C::OFFSET NIL :TYPE (OR SB!ASSEM:LABEL NULL))
;       (SB!C::NAME "<not computed>" :TYPE (OR SIMPLE-STRING LIST SYMBOL))
;       (SB!C::ARGUMENTS NIL :TYPE LIST)
;       (TYPE 'FUNCTION :TYPE (OR LIST (MEMBER FUNCTION)))
;       (SB!INT:INFO NIL :TYPE
;                    (OR NULL SIMPLE-VECTOR STRING (CONS STRING SIMPLE-VECTOR))))
; 
; caught STYLE-WARNING:
;   undefined type: LABEL

; in: DEFSTRUCT IR2-NLX-INFO
;     (SB!C:MAKE-DYNAMIC-STATE-TNS)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-DYNAMIC-STATE-TNS

;     (SB!C:MAKE-STACK-POINTER-TN)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-STACK-POINTER-TN

; in: DEF!METHOD PRINT-OBJECT
;     (SB!C::PRINT-TN-GUTS SB!C:TN STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-TN-GUTS
; 
; compilation unit finished
;   Undefined type:
;     LABEL
;   Undefined functions:
;     GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN PRINT-TN-GUTS
;   caught 8 STYLE-WARNING conditions
; compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/vop.fasl-tmp written
; compilation finished in 0:00:13.351
; compiling file "/«PKGBUILDDIR»/src/compiler/backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFVAR *BACKEND-BYTE-ORDER*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *BACKEND-SC-NUMBERS* ...)
; compiling (DECLAIM (TYPE SC-VECTOR ...))
; compiling (DEFVAR *BACKEND-SB-LIST* ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-SC-NAMES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*)
; compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...))
; compiling (DEFVAR *BACKEND-PARSED-VOPS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...)
; compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))
; compiling (DEFVAR *BACKEND-SUBFEATURES* ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/backend.fasl-tmp written
; compilation finished in 0:00:00.061
; compiling file "/«PKGBUILDDIR»/src/compiler/vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN TEMPLATE-OR-LOSE ...)
; compiling (DEFUN SC-OR-LOSE ...)
; compiling (DEFUN SB-OR-LOSE ...)
; compiling (DEFUN SC-NUMBER-OR-LOSE ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...)
; compiling (DEFUN COMPUTE-MOVE-COSTS ...)
; compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...)
; compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...)
; compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *VOP-TN-REFS* ...)
; compiling (DEF!CONSTANT SC-BITS ...)
; compiling (DEFUN EMIT-VOP ...)
; compiling (DEFUN ADJOIN-TEMPLATE ...)
; compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P))
; compiling (DEFUN TEMPLATE-CONDITIONAL-P ...)

; file: /«PKGBUILDDIR»/src/compiler/vmdef.lisp
; in: DEFUN EMIT-VOP
;     (SB!C:MAKE-RESTRICTED-TN NIL (ASH SB!C::TEMP -1))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-RESTRICTED-TN

;     (SB!C:MAKE-WIRED-TN NIL (SB-XC:LDB (SB-XC:BYTE SB!C::SC-BITS 1) SB!C::TEMP)
;      (ASH SB!C::TEMP (- (1+ SB!C::SC-BITS))))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-WIRED-TN

;     (SB!C::REFERENCE-TN SB!C:TN NIL)
; 
; caught STYLE-WARNING:
;   undefined function: REFERENCE-TN

;     (SB!REGALLOC:TARGET-IF-DESIRABLE
;      (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 8) SB!C::TARGET))
;      (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 0) SB!C::TARGET)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!REGALLOC:TARGET-IF-DESIRABLE
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN SB!REGALLOC:TARGET-IF-DESIRABLE
;   caught 4 STYLE-WARNING conditions
; compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/vmdef.fasl-tmp written
; compilation finished in 0:00:00.801
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/backend-parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...)
; compiling (SETF *BACKEND-BYTE-ORDER* ...)
; compiling (SETF *BACKEND-PAGE-BYTES* ...)
; compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...)
; compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...)
; compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/backend-parms.fasl-tmp written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangconstants.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (FORCE-DELAYED-DEF!CONSTANTS)

; /«PKGBUILDDIR»/obj/from-host/src/code/force-delayed-defbangconstants.fasl-tmp written
; compilation finished in 0:00:00.008
; compiling file "/«PKGBUILDDIR»/src/code/defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...)
; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; compiling (DEF (:COMPILE-TOPLEVEL) ...)
; compiling (DEFMACRO SB-XC:DEFMACRO ...)
; compiling (SB-XC:DEFMACRO DEFMACRO ...)

; file: /«PKGBUILDDIR»/src/code/defmacro.lisp
; in: MACROLET ((DEF (TIMES SET-P) (QUASIQUOTE (EVAL-WHEN # #))))
;     (MACROLET ((SB!IMPL::DEF (SB!IMPL::TIMES SB!IMPL::SET-P)
;                  (SB!INT:QUASIQUOTE (EVAL-WHEN # #))))
;       (PROGN
;        (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL)
;        (SB!IMPL::DEF (:COMPILE-TOPLEVEL) NIL)))
; --> BLOCK LET SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN IF PROGN 
; ==>
;   (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~
;                      previously ~(~A~) to be a function."
;    SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEF (:LOAD-TOPLEVEL :EXECUTE)
;     (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL)
; --> EVAL-WHEN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN 
; --> IF PROGN 
; ==>
;   (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~
;                      previously ~(~A~) to be a function."
;    SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined function:
;     STYLE-WARN
;   caught 2 STYLE-WARNING conditions
; compiling (DEF!MACRO DEFMACRO-MUNDANELY ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defmacro.fasl-tmp written
; compilation finished in 0:00:00.271
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangmacros.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (FORCE-DELAYED-DEF!MACROS)

; /«PKGBUILDDIR»/obj/from-host/src/code/force-delayed-defbangmacros.fasl-tmp written
; compilation finished in 0:00:00.010
; in: SB-XC:DEFMACRO DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition

; compiling file "/«PKGBUILDDIR»/src/compiler/late-macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (SB-XC:DEFMACRO DELETEF-IN ...)
; compiling (SB-XC:DEFMACRO PUSH-IN ...)

; file: /«PKGBUILDDIR»/src/compiler/late-macros.lisp
; in: SB-XC:DEFMACRO PUSH-IN
;     (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION

; in: SB-XC:DEFMACRO DELETEF-IN
;     (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 2 STYLE-WARNING conditions
; compiling (DEFMACRO-MUNDANELY !DEF-BOOLEAN-ATTRIBUTE-SETTER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/late-macros.fasl-tmp written
; compilation finished in 0:00:00.181
; compiling file "/«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-STORAGE-BASE ...)
; compiling (DEFMACRO DEFINE-STORAGE-CLASS ...)
; compiling (DEFMACRO DO-SC-PAIRS ...)
; compiling (DEFMACRO DEFINE-MOVE-FUN ...)
; compiling (DEFPARAMETER *SC-VOP-SLOTS* ...)
; compiling (DEFMACRO DEFINE-MOVE-VOP ...)
; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...)
; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...)
; compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...)
; compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...)

; file: /«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp
; in: DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY))
;     (SB!INT:DEF!STRUCT
;      (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY))
;      (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL))
;      (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST)
;      (SB!C::TEMPS NIL :TYPE LIST)
;      (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL))
;      (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL))
;      (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST)
;      (SB!C::CONDITIONAL-P NIL) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::VOP-PARSE {538E55C1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {5208C419}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::VOP-PARSE-COST could not be inlined because
;   the structure definition for SB!C::VOP-PARSE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (VOP-PARSE #) ...)
; compiling (DEFPRINTER (VOP-PARSE) ...)
; compiling (DEF!STRUCT (OPERAND-PARSE #) ...)
; compiling (DEFPRINTER (OPERAND-PARSE) ...)
; compiling (DEFUN FIND-OPERAND ...)
; compiling (DEFUN VOP-PARSE-OR-LOSE ...)
; compiling (DEFUN ACCESS-OPERANDS ...)
; compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...)
; compiling (DEFUN VOP-SPEC-ARG ...)
; compiling (DEFUN PARSE-TIME-SPEC ...)
; compiling (DEFUN TIME-SPEC-ORDER ...)
; compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...)
; compiling (DEFUN COMPUTE-REF-ORDERING ...)
; compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...)
; compiling (DEFUN FIND-MOVE-FUNS ...)
; compiling (DEFUN CALL-MOVE-FUN ...)
; compiling (DEFUN DECIDE-TO-LOAD ...)
; compiling (DEFUN MAKE-GENERATOR-FUNCTION ...)
; compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*)
; compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...)
; compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...)
; compiling (DEFUN PARSE-VOP-OPERANDS ...)
; compiling (DEFUN PARSE-TEMPORARY ...)
; compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...)
; compiling (DEFUN PARSE-DEFINE-VOP ...)
; compiling (DEFUN COMPUTE-LOADING-COSTS ...)
; compiling (DEFPARAMETER *NO-COSTS* ...)
; compiling (DEFPARAMETER *NO-LOADS* ...)
; compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...)
; compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...)
; compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...)
; compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...)
; compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...)
; compiling (DEFUN CHECK-OPERAND-TYPES ...)
; compiling (DEFUN GROVEL-VOP-OPERANDS ...)
; compiling (DEFUN SET-UP-FUN-TRANSLATION ...)
; compiling (DEFUN MAKE-OPERAND-TYPE ...)
; compiling (DEFUN SPECIFY-OPERAND-TYPES ...)
; compiling (DEFUN MAKE-VOP-INFO-TYPES ...)
; compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...)
; compiling (DEFMACRO INHERIT-VOP-INFO ...)
; compiling (DEFUN SET-UP-VOP-INFO ...)
; compiling (DEF!MACRO DEFINE-VOP ...)
; compiling (DEFUN STORE-VOP-INFO ...)
; compiling (DEFUN MAKE-OPERAND-LIST ...)
; compiling (DEFMACRO EMIT-TEMPLATE ...)
; compiling (DEFMACRO VOP ...)
; compiling (DEFMACRO VOP* ...)
; compiling (DEF!MACRO SC-CASE ...)
; compiling (DEFMACRO SC-IS ...)
; compiling (DEFMACRO DO-IR2-BLOCKS ...)
; compiling (DEFMACRO DO-LIVE-TNS ...)

; file: /«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp
; in: DEFUN STORE-VOP-INFO
;     (SB!KERNEL:SPECIFIER-TYPE SB!C::MY-TYPE-SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

;     (SB!KERNEL:TYPE= (SB!C::VOP-INFO-TYPE SB!C::OTHER) SB!C::MY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=
; 
; compilation unit finished
;   Undefined functions:
;     SPECIFIER-TYPE TYPE=
;   caught 3 STYLE-WARNING conditions
; compiling (DEFMACRO DO-PHYSENV-IR2-BLOCKS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/meta-vmdef.fasl-tmp written
; compilation finished in 0:00:08.318
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFVAR *REGISTER-NAMES* ...)
; compiling (DEFREG R0 ...)
; compiling (DEFREG R1 ...)
; compiling (DEFREG R2 ...)
; compiling (DEFREG LEXENV ...)
; compiling (DEFREG NL2 ...)
; compiling (DEFREG CODE ...)
; compiling (DEFREG NL3 ...)
; compiling (DEFREG OCFP ...)
; compiling (DEFREG R8 ...)
; compiling (DEFREG NFP ...)
; compiling (DEFREG NULL ...)
; compiling (DEFREG CFP ...)
; compiling (DEFREG NARGS ...)
; compiling (DEFREG NSP ...)
; compiling (DEFREG LR ...)
; compiling (DEFREG PC ...)
; compiling (DEFREGSET SYSTEM-REGS ...)
; compiling (DEFREGSET DESCRIPTOR-REGS ...)
; compiling (DEFREGSET NON-DESCRIPTOR-REGS ...)
; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...)
; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...)
; compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...)
; compiling (DEFINE-STORAGE-BASE REGISTERS ...)
; compiling (DEFINE-STORAGE-BASE CONTROL-STACK ...)
; compiling (DEFINE-STORAGE-BASE NON-DESCRIPTOR-STACK ...)
; compiling (DEFINE-STORAGE-BASE CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...)
; compiling (DEFMACRO DEFINE-STORAGE-CLASSES ...)
; compiling (DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...)
; compiling (DEFREGTN NULL ...)
; compiling (DEFREGTN CODE ...)
; compiling (DEFREGTN NARGS ...)
; compiling (DEFREGTN OCFP ...)
; compiling (DEFREGTN NSP ...)
; compiling (DEFREGTN CFP ...)
; compiling (DEFREGTN LR ...)
; compiling (DEFREGTN PC ...)
; compiling (DEFUN IMMEDIATE-CONSTANT-SC ...)
; compiling (DEFUN BOXED-IMMEDIATE-SC-P ...)
; compiling (DEF!CONSTANT REGISTER-ARG-SCN ...)
; compiling (DEF!CONSTANT IMMEDIATE-ARG-SCN ...)
; compiling (DEF!CONSTANT CONTROL-STACK-ARG-SCN ...)
; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT NFP-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...)
; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...)
; compiling (DEFUN LOCATION-PRINT-NAME ...)
; compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/vm.lisp
; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE
;     (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME

;     (SB!KERNEL:SPECIFIER-TYPE
;      (SB!INT:QUASIQUOTE
;       (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0)
;        #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0))))
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in: DEFUN IMMEDIATE-CONSTANT-SC
;     (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: STATIC-SYMBOL-P

; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE
;     (SB!C::VALID-FUN-USE SB!VM::NODE
;      (SB!KERNEL:SPECIFIER-TYPE
;       (SB!INT:QUASIQUOTE
;        (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0)
;         #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0)))))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::VALID-FUN-USE
; 
; compilation unit finished
;   Undefined functions:
;     SB!C::COMBINATION-FUN-SOURCE-NAME SPECIFIER-TYPE STATIC-SYMBOL-P SB!C::VALID-FUN-USE
;   caught 4 STYLE-WARNING conditions
; compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/vm.fasl-tmp written
; compilation finished in 0:00:01.710
; compiling file "/«PKGBUILDDIR»/src/code/xset.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DECLAIM (INLINE ALLOC-XSET ...))
; compiling (DEFSTRUCT (XSET # ...) ...)
; compiling (DEFUN XSET-COUNT ...)
; compiling (DEFUN MAP-XSET ...)
; compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...)
; compiling (DEFUN ADD-TO-XSET ...)
; compiling (DEFUN XSET-FROM-LIST ...)
; compiling (DEFUN XSET-UNION ...)
; compiling (DEFUN XSET-MEMBER-P ...)
; compiling (DEFUN XSET-MEMBERS ...)
; compiling (DEFUN XSET-INTERSECTION ...)
; compiling (DEFUN XSET-SUBSET-P ...)
; compiling (DECLAIM (INLINE XSET-EMPTY-P))
; compiling (DEFUN XSET-EMPTY-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/xset.fasl-tmp written
; compilation finished in 0:00:00.728
; compiling file "/«PKGBUILDDIR»/src/code/early-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS HAIRY ...)
; compiling (DEFSTRUCT (UNKNOWN-TYPE # ...))
; compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...)
; compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...)
; compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS NEGATION ...)
; compiling (DEFSTRUCT (ARGS-TYPE # ...) ...)
; compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...)
; compiling (DEFUN PARSE-ARGS-TYPES ...)
; compiling (DEFSTRUCT (VALUES-TYPE # ...))
; compiling (DECLAIM (INLINE VALUES-TYPE-P))
; compiling (DEFUN VALUES-TYPE-P ...)
; compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...)
; compiling (DEFUN MAKE-VALUES-TYPE ...)
; compiling (!DEFINE-TYPE-CLASS VALUES ...)
; compiling (DEFSTRUCT (FUN-TYPE # ...) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFGLOBAL *INTERNED-FUN-TYPES* ...)
; compiling (DEFUN !INTERN-IMPORTANT-FUN-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-FUN-TYPE ...)
; compiling (DEFSTRUCT (CONSTANT-TYPE # ...) ...)
; compiling (DEFSTRUCT (NAMED-TYPE # ...) ...)
; compiling (DEFPARAMETER *FLOAT-FORMATS* ...)
; compiling (DEFTYPE FLOAT-FORMAT ...)
; compiling (DEFSTRUCT (NUMERIC-TYPE # ...) ...)
; compiling (DEFGLOBAL *UNSIGNED-BYTE-TYPE* ...)
; compiling (DEFGLOBAL *INTEGER-TYPE* ...)
; compiling (DEFGLOBAL *UNSIGNED-BYTE-N-TYPES* ...)
; compiling (DEFGLOBAL *SIGNED-BYTE-N-TYPES* ...)
; compiling (DEFGLOBAL *REAL-FFLOAT-TYPE* ...)
; compiling (DEFGLOBAL *REAL-DFLOAT-TYPE* ...)
; compiling (DEFGLOBAL *COMPLEX-FFLOAT-TYPE* ...)
; compiling (DEFGLOBAL *COMPLEX-DFLOAT-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-NUMERIC-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-NUMERIC-TYPE ...)
; compiling (DEFUN MODIFIED-NUMERIC-TYPE ...)
; compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...)
; compiling (DEFGLOBAL *CHARACTER-TYPE* ...)
; compiling (DEFGLOBAL *BASE-CHAR-TYPE* ...)
; compiling (DEFGLOBAL *EXTENDED-CHAR-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-CHARACTER-SET-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...)
; compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...)
; compiling (DEFGLOBAL *RANK-1-ARRAY-CTYPES* ...)
; compiling (DEFCONSTANT +CANON-ARRAY-CTYPE-HASH-DIVISOR+ ...)
; compiling (DEFUN !INTERN-IMPORTANT-ARRAY-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-ARRAY-TYPE ...)
; compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...)
; compiling (DEFGLOBAL *NULL-TYPE* ...)
; compiling (DEFGLOBAL *EQL-T-TYPE* ...)
; compiling (DEFGLOBAL *BOOLEAN-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-MEMBER-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-MEMBER-TYPE ...)
; compiling (DEFUN MEMBER-TYPE-SIZE ...)
; compiling (DEFUN MEMBER-TYPE-MEMBER-P ...)
; compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MEMBER-TYPE-MEMBERS ...)
; compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...)
; compiling (DEFSTRUCT (UNION-TYPE # ...))
; compiling (DEFSTRUCT (INTERSECTION-TYPE # ...))
; compiling (DEFUN TYPE-*-TO-T ...)
; compiling (DEFSTRUCT (CONS-TYPE # ...) ...)
; compiling (DEFGLOBAL *CONS-T-T-TYPE* ...)
; compiling (DEFUN !INTERN-IMPORTANT-CONS-TYPE-INSTANCES ...)
; compiling (DEFUN MAKE-CONS-TYPE ...)
; compiling (DEFUN CONS-TYPE-LENGTH-INFO ...)
; compiling (DEFMACRO !VALUES-SPECIFIER-TYPE-BODY ...)
; compiling (LET (#) ...)
; compiling (DEFUN SPECIFIER-TYPE ...)
; compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...)
; compiling (DEFUN TYPEXPAND-1 ...)
; compiling (DEFUN TYPEXPAND ...)
; compiling (DEFUN TYPEXPAND-ALL ...)
; compiling (DEFUN DEFINED-TYPE-NAME-P ...)
; compiling (DEFUN VALID-TYPE-SPECIFIER-P ...)
; compiling (DEFUN %NOTE-TYPE-DEFINED ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFUN VALUES-SPECIFIER-TYPE
;     (SB!KERNEL::!VALUES-SPECIFIER-TYPE-BODY SB!KERNEL::SPECIFIER)
; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF PROGN IF 
; ==>
;   (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined type: BUILT-IN-CLASSOID

; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF PROGN IF 
; --> OR LET 
; ==>
;   (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: BUILT-IN-CLASSOID-TRANSLATION

; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF 
; ==>
;   (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined type: CLASSOID

; in: DEFUN CONS-TYPE-LENGTH-INFO
;     (SB!KERNEL:CSUBTYPEP CDR (SB!KERNEL:SPECIFIER-TYPE 'NULL))
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN MAKE-MEMBER-TYPE
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::Z)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: DEFUN VALUES-SPECIFIER-TYPE
;     (SB!KERNEL::!VALUES-SPECIFIER-TYPE-BODY SB!KERNEL::SPECIFIER)
; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF PROGN 
; ==>
;   (SB!KERNEL:FIND-CLASSOID SB!KERNEL::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASSOID

; in: DEFUN PARSE-ARGS-TYPES
;     #'SB!KERNEL:KEY-INFO-NAME
; 
; caught STYLE-WARNING:
;   undefined function: KEY-INFO-NAME

;     (SB!KERNEL:MAKE-KEY-INFO :NAME SB!KERNEL::KWD :TYPE
;      (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE (SECOND SB!KERNEL::KEY)))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-KEY-INFO

;     (SB!INT:PARSE-LAMBDA-LIST SB!KERNEL::LAMBDA-LISTY-THING :CONTEXT 'TYPE
;      :DISALLOW '(&AUX &ENVIRONMENT) :SILENT T)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-LAMBDA-LIST

; in: DEFUN VALID-TYPE-SPECIFIER-P
;     (HANDLER-CASE
;      (PROG1 T (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER))
;      (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL NIL) (ERROR NIL NIL))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: PARSE-UNKNOWN-TYPE

; in: DEFUN CONS-TYPE-LENGTH-INFO
;     (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-INTERSECTION

; in: DEFUN TYPEXPAND-ALL
;     (SB!KERNEL:TYPE-SPECIFIER
;      (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER))
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-SPECIFIER

; in: DEFUN CONS-TYPE-LENGTH-INFO
;     (SB!KERNEL:TYPE/=
;      (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR)
;      SB!KERNEL:*EMPTY-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE/=

; in: DEFUN MAKE-CONS-TYPE
;     (SB!KERNEL:TYPE= SB!KERNEL::CAR-TYPE SB!KERNEL:*UNIVERSAL-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=

; in: DEFUN TYPE-*-TO-T
;     (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=
; 
; compilation unit finished
;   Undefined types:
;     BUILT-IN-CLASSOID CLASSOID PARSE-UNKNOWN-TYPE
;   Undefined functions:
;     BUILT-IN-CLASSOID-TRANSLATION CSUBTYPEP CTYPE-OF FIND-CLASSOID KEY-INFO-NAME MAKE-KEY-INFO PARSE-LAMBDA-LIST TYPE-INTERSECTION TYPE-SPECIFIER TYPE/= TYPE=
;   caught 15 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-type.fasl-tmp written
; compilation finished in 0:00:06.605
; compiling file "/«PKGBUILDDIR»/src/code/class.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (CLASSOID (:MAKE-LOAD-FORM-FUN CLASSOID-MAKE-LOAD-FORM-FUN)
;              (:INCLUDE CTYPE (CLASS-INFO (TYPE-CLASS-OR-LOSE 'CLASSOID)))
;              (:CONSTRUCTOR NIL)
;              (:PRINT-OBJECT
;               (LAMBDA (CLASS STREAM)
;                 (LET #
;                   #))))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:CLASSOID
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::CLASSOID-MAKE-LOAD-FORM-FUN)
;       (:INCLUDE SB!KERNEL:CTYPE
;        (SB!KERNEL::CLASS-INFO
;         (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CLASSOID)))
;       (:CONSTRUCTOR NIL)
;       (:PRINT-OBJECT
;        (LAMBDA (CLASS STREAM)
;          (LET #
;            #))))
;      (SB!KERNEL::NAME NIL :TYPE SYMBOL)
;      (SB!KERNEL:LAYOUT NIL :TYPE (OR SB!KERNEL:LAYOUT NULL))
;      (SB!KERNEL::STATE NIL :TYPE (MEMBER NIL :READ-ONLY :SEALED))
;      (SB!KERNEL::DIRECT-SUPERCLASSES NIL :TYPE LIST)
;      (SB!KERNEL::SUBCLASSES NIL :TYPE (OR NULL HASH-TABLE))
;      (SB!KERNEL::PCL-CLASS NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CLASSOID {520E0839}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CTYPE {51B31739}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:CLASSOID-LAYOUT could not be inlined
;   because the structure definition for SB!KERNEL:CLASSOID was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (CLASSOID # ...) ...)
; compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...)
; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...)
; compiling (DEF!TYPE LAYOUT-CLOS-HASH ...)
; compiling (DEFVAR *!INITIAL-LAYOUTS*)
; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*)
; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEF!STRUCT (LAYOUT (:MAKE-LOAD-FORM-FUN MAKE-LOAD-FORM-FOR-LAYOUT))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LAYOUT
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-LOAD-FORM-FOR-LAYOUT))
;      (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE
;       SB!KERNEL:LAYOUT-CLOS-HASH)
;      (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID)
;      (SB!KERNEL::INVALID :UNINITIALIZED :TYPE
;       (OR CONS (MEMBER NIL T :UNINITIALIZED)))
;      (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR)
;      (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID)
;      (LENGTH 0 :TYPE SB!INT:INDEX)
;      (SB!INT:INFO NIL :TYPE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION))
;      (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0))
;      (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX)
;      (SB!KERNEL::SOURCE-LOCATION NIL) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:LAYOUT {524E13A1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:LAYOUT-LENGTH, SB!KERNEL:LAYOUT-INFO and
;   SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS could not be inlined because the structure
;   definition for SB!KERNEL:LAYOUT was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (LAYOUT #) ...)
; compiling (DECLAIM (FREEZE-TYPE LAYOUT))
; compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P))
; compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN LAYOUT-PROPER-NAME ...)
; compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*)
; compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...)
; compiling (DEFUN MAKE-LOAD-FORM-FOR-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN REDEFINE-LAYOUT-WARNING ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...)
; compiling (DEFUN REGISTER-LAYOUT ...)
; compiling (DEFUN ORDER-LAYOUT-INHERITS ...)
; compiling (DEFUN TOPOLOGICAL-SORT ...)
; compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (UNDEFINED-CLASSOID (:INCLUDE CLASSOID)
;              (:CONSTRUCTOR MAKE-UNDEFINED-CLASSOID (NAME)))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL::UNDEFINED-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID)
;       (:CONSTRUCTOR SB!KERNEL:MAKE-UNDEFINED-CLASSOID (SB!KERNEL::NAME))))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL::UNDEFINED-CLASSOID {53599081}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CTYPE {51B31739}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CLASSOID {5211CD11}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL::UNDEFINED-CLASSOID-P could not be
;   inlined because the structure definition for SB!KERNEL::UNDEFINED-CLASSOID was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (BUILT-IN-CLASSOID (:INCLUDE CLASSOID)
;              (:CONSTRUCTOR MAKE-BUILT-IN-CLASSOID))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:BUILT-IN-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID)
;       (:CONSTRUCTOR SB!KERNEL::MAKE-BUILT-IN-CLASSOID))
;      (SB!KERNEL::TRANSLATION NIL :TYPE
;       (OR SB!KERNEL:CTYPE (MEMBER NIL :INITIALIZING))))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:BUILT-IN-CLASSOID {53AB89C1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CTYPE {51B31739}>
;       #<SB-KERNEL:LAYOUT for SB!KERNEL:CLASSOID {5211CD11}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION could not
;   be inlined because the structure definition for SB!KERNEL:BUILT-IN-CLASSOID was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...)
; compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...))
; compiling (DEFUN MAKE-STRUCTURE-CLASSOID ...)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in:
;      DEF!STRUCT (CLASSOID-CELL
;              (:CONSTRUCTOR MAKE-CLASSOID-CELL (NAME &OPTIONAL CLASSOID))
;              (:MAKE-LOAD-FORM-FUN (LAMBDA (C) (QUASIQUOTE #)))
;              (:PRINT-OBJECT (LAMBDA (S STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL::CLASSOID-CELL
;       (:CONSTRUCTOR SB!KERNEL::MAKE-CLASSOID-CELL
;        (SB!KERNEL::NAME &OPTIONAL SB!KERNEL:CLASSOID))
;       (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!KERNEL::C) (SB!INT:QUASIQUOTE #)))
;       (:PRINT-OBJECT
;        (LAMBDA (SB!KERNEL::S STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;      (SB!KERNEL::NAME NIL :TYPE SYMBOL :READ-ONLY T)
;      (SB!KERNEL:CLASSOID NIL :TYPE (OR SB!KERNEL:CLASSOID NULL))
;      (SB!KERNEL::PCL-CLASS NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL::CLASSOID-CELL {5240B3F9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to
;   (COMMON-LISP:SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) could not be inlined
;   because the structure definition for SB!KERNEL::CLASSOID-CELL was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE CLASSOID-CELL))
; compiling (DEFUN FIND-CLASSOID-CELL ...)
; compiling (DEFUN FIND-CLASSOID ...)
; compiling (DEFUN (SETF FIND-CLASSOID) ...)
; compiling (DEFUN %CLEAR-CLASSOID ...)
; compiling (DEFUN INSURED-FIND-CLASSOID ...)
; compiling (DEFUN CLASSOID-PROPER-NAME ...)
; compiling (DEFUN CLASSOID-ENUMERABLE-P ...)
; compiling (!DEFINE-TYPE-CLASS CLASSOID ...)
; compiling (DEFUN %ENSURE-CLASSOID-VALID ...)
; compiling (DEFUN %ENSURE-BOTH-CLASSOIDS-VALID ...)
; compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...)
; compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...)
; compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...)
; compiling (DEF!STRUCT (STANDARD-CLASSOID # ...))
; compiling (DEF!STRUCT (STATIC-CLASSOID # ...))
; compiling (!DEFVAR *!BUILT-IN-CLASSES* ...)
; compiling (!COLD-INIT-FORMS (DOLIST # ...) ...)
; compiling (!COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes") ...)
; compiling (!COLD-INIT-FORMS (DOLIST # ...))
; compiling (DEFUN %MODIFY-CLASSOID ...)
; compiling (DEFUN %INVALIDATE-LAYOUT ...)
; compiling (DEFUN !CLASS-FINALIZE ...)
; compiling (!COLD-INIT-FORMS (SETQ **BUILT-IN-CLASS-CODES** ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!PCL::%FORCE-CACHE-FLUSHES CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::%FORCE-CACHE-FLUSHES

; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID
;     (SB!C::%LAYOUT-INVALID-ERROR SB!KERNEL::OBJECT SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::%LAYOUT-INVALID-ERROR

;     (SB!PCL::CHECK-WRAPPER-VALIDITY SB!KERNEL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::CHECK-WRAPPER-VALIDITY

; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!MOP:CLASS-FINALIZED-P CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!MOP:CLASS-FINALIZED-P

; in: !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP)
;     (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P
;      (SB!KERNEL:CLASSOID-PCL-CLASS SB!KERNEL::CLASS2))
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P

; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P

; in: DEFUN %MODIFY-CLASSOID
;     (SB!KERNEL::CLEAR-TYPE-CACHES)
; 
; caught STYLE-WARNING:
;   undefined function: CLEAR-TYPE-CACHES

; in: DEFUN MAKE-LOAD-FORM-FOR-LAYOUT
;     (SB!KERNEL::COMPILER-ERROR "can't dump reference to obsolete class: ~S"
;      (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN REGISTER-LAYOUT
;     (SETF (SB!KERNEL:LAYOUT-INVALID SB!KERNEL::DESTRUCT-LAYOUT) NIL
;           (SB!KERNEL:LAYOUT-INHERITS SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-INHERITS SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-DEPTHOID SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-DEPTHOID SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-LENGTH SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-LENGTH SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-RAW-SLOT-METADATA SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-RAW-SLOT-METADATA SB!KERNEL:LAYOUT)
;           (SB!KERNEL:LAYOUT-INFO SB!KERNEL::DESTRUCT-LAYOUT)
;             (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT)
;           ...)
; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF SB!KERNEL:LAYOUT-INFO) LET 
; --> SB-KERNEL:%INSTANCE-SET 
; ==>
;   (THE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION) #:NEW32)
; 
; caught STYLE-WARNING:
;   undefined type: DEFSTRUCT-DESCRIPTION

; in: DEF!STRUCT (LAYOUT (:MAKE-LOAD-FORM-FUN MAKE-LOAD-FORM-FOR-LAYOUT))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LAYOUT
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-LOAD-FORM-FOR-LAYOUT))
;      (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE
;       SB!KERNEL:LAYOUT-CLOS-HASH)
;      (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID)
;      (SB!KERNEL::INVALID :UNINITIALIZED :TYPE
;       (OR CONS (MEMBER NIL T :UNINITIALIZED)))
;      (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR)
;      (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID)
;      (LENGTH 0 :TYPE SB!INT:INDEX)
;      (SB!INT:INFO NIL :TYPE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION))
;      (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0))
;      (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX)
;      (SB!KERNEL::SOURCE-LOCATION NIL) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT (SB!KERNEL:LAYOUT (:INCLUDE SB!SYS:STRUCTURE!OBJECT))
;     (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE
;      SB!KERNEL:LAYOUT-CLOS-HASH)
;     (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID)
;     (SB!KERNEL::INVALID :UNINITIALIZED :TYPE
;      (OR CONS (MEMBER NIL T :UNINITIALIZED)))
;     (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR)
;     (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID)
;     (LENGTH 0 :TYPE SB!INT:INDEX)
;     (SB!INT:INFO NIL :TYPE (OR NULL SB!KERNEL:DEFSTRUCT-DESCRIPTION))
;     (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0))
;     (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX)
;     (SB!KERNEL::SOURCE-LOCATION NIL)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: DEFSTRUCT-DESCRIPTION

; in: DEFUN %ENSURE-CLASSOID-VALID
;     (SB!MOP:FINALIZE-INHERITANCE CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!MOP:FINALIZE-INHERITANCE

; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID
;     (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: LAYOUT-OF

; in: DEFUN SEALED-CLASS-INTERSECTION2
;     (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS))
; --> PROGN SETQ THE 
; ==>
;   (SB!KERNEL:TYPE-UNION (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)
;    #:RES-N-VALUE-2239)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-UNION
; 
; compilation unit finished
;   Undefined type:
;     DEFSTRUCT-DESCRIPTION
;   Undefined functions:
;     SB!PCL::%FORCE-CACHE-FLUSHES SB!C::%LAYOUT-INVALID-ERROR SB!PCL::CHECK-WRAPPER-VALIDITY SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLEAR-TYPE-CACHES COMPILER-ERROR SB!MOP:FINALIZE-INHERITANCE LAYOUT-OF TYPE-UNION
;   caught 18 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/code/class.fasl-tmp written
; compilation finished in 0:00:06.762
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/primtype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (/SHOW0 "primtype.lisp 17")
; compiling (!DEF-PRIMITIVE-TYPE T ...)
; compiling (/SHOW0 "primtype.lisp 20")
; compiling (SETF *BACKEND-T-PRIMITIVE-TYPE* ...)
; compiling (/SHOW0 "primtype.lisp 24")
; compiling (!DEF-PRIMITIVE-TYPE POSITIVE-FIXNUM ...)
; compiling (/SHOW0 "primtype.lisp 27")
; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-31 ...)
; compiling (/SHOW0 "primtype.lisp 31")
; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-32 ...)
; compiling (/SHOW0 "primtype.lisp 35")
; compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...)
; compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-32 ...)
; compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...)
; compiling (/SHOW0 "primtype.lisp 53")
; compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED)
;     '(SB!VM::UNSIGNED-BYTE-64 SB!VM::UNSIGNED-BYTE-63 SB!VM::POSITIVE-FIXNUM)
; 
; note: deleting unreachable code
; compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...)
; compiling (/SHOW0 "primtype.lisp 68")
; compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...)
; compiling (/SHOW0 "primtype.lisp 73")
; compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...)
; compiling (!DEF-PRIMITIVE-TYPE LIST ...)
; compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...)
; compiling (/SHOW0 "primtype.lisp 77")
; compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...)
; compiling (/SHOW0 "primtype.lisp 81")
; compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...)
; compiling (!DEF-PRIMITIVE-TYPE RATIO ...)
; compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...)
; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT")
; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...)
; compiling (/SHOW0 "primtype.lisp 96")
; compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES)
; compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...)
; compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...)
; compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...)
; compiling (/SHOW0 "primtype.lisp 147")
; compiling (DEFUN PRIMITIVE-TYPE-OF ...)
; compiling (/SHOW0 "primtype.lisp 188")
; compiling (DEFUN PRIMITIVE-TYPE ...)
; compiling (/SHOW0 "primtype.lisp 191")

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                ...)
;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code
; compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                ...)
;     (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in: DEFUN PRIMITIVE-TYPE-OF
;     (SB!KERNEL:CTYPE-OF SB!VM::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                ...)
;     (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST))
; 
; caught STYLE-WARNING:
;   undefined function: TYPE=
; 
; compilation unit finished
;   Undefined functions:
;     CSUBTYPEP CTYPE-OF TYPE=
;   caught 3 STYLE-WARNING conditions
;   printed 7 notes
; compiling (/SHOW0 "primtype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/primtype.fasl-tmp written
; compilation finished in 0:00:01.332
; compiling file "/«PKGBUILDDIR»/src/compiler/parse-lambda-list.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (/SHOW0 "parse-lambda-list.lisp 12")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PARSE-LAMBDA-LIST ...)

; file: /«PKGBUILDDIR»/src/compiler/parse-lambda-list.lisp
; in: DEFUN PARSE-LAMBDA-LIST
;     (SB!C:COMPILER-ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL STRING
;      :FORMAT-ARGUMENTS SB!C::ERR-ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

;     (SB!INT:STYLE-WARN "suspicious variable in lambda list: ~S." SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     COMPILER-ERROR STYLE-WARN
;   caught 2 STYLE-WARNING conditions
; compiling (/SHOW0 "parse-lambda-list.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/parse-lambda-list.fasl-tmp written
; compilation finished in 0:00:00.361
; compiling file "/«PKGBUILDDIR»/src/code/host-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (/SHOW0 "host-alieneval.lisp 15")
; compiling (DEFUN ALIGN-OFFSET ...)
; compiling (DEFUN GUESS-ALIGNMENT ...)
; compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...)
; compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...)
; compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...)
; compiling (DEFUN METHOD-SLOT ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...)
; compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...)
; compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...)
; compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN PARSE-ALIEN-TYPE ...)
; compiling (DEFUN AUXILIARY-ALIEN-TYPE ...)
; compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...)
; compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...)
; compiling (DEFUN UNPARSE-ALIEN-TYPE ...)
; compiling (DEFUN %UNPARSE-ALIEN-TYPE ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...)
; compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE ...)
; compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in:
;      DEF!STRUCT (ALIEN-TYPE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;              (:CONSTRUCTOR MAKE-ALIEN-TYPE
;               (&KEY CLASS BITS ALIGNMENT &AUX ...)))
;     (SB!INT:DEF!STRUCT
;      (SB!ALIEN-INTERNALS:ALIEN-TYPE
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;       (:CONSTRUCTOR SB!ALIEN::MAKE-ALIEN-TYPE
;        (&KEY CLASS SB!ALIEN::BITS SB!ALIEN::ALIGNMENT &AUX
;         (SB!ALIEN::ALIGNMENT #))))
;      (CLASS 'SB!ALIEN::ROOT :TYPE SYMBOL)
;      (SB!ALIEN::BITS NIL :TYPE (OR NULL UNSIGNED-BYTE))
;      (SB!ALIEN::ALIGNMENT NIL :TYPE (OR NULL UNSIGNED-BYTE)))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!ALIEN-INTERNALS:ALIEN-TYPE {51E6A0A9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!ALIEN::ALIEN-TYPE-CLASS could not be inlined
;   because the structure definition for SB!ALIEN-INTERNALS:ALIEN-TYPE was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...)
; compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...)
; compiling (DEFUN HEAP-ALIEN-INFO-SAP ...)
; compiling (DEFUN ALIEN-TYPE-= ...)
; compiling (DEFUN ALIEN-SUBTYPE-P ...)
; compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...)
; compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...)
; compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...)
; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...)
; compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...)
; compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...)
; compiling (DEFUN COMPUTE-LISP-REP-TYPE ...)
; compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...)
; compiling (DEFUN PARSE-ENUM ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...)
; compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...)
; compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...)
; compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...)
; compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...)
; compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...)
; compiling (DEFUN RECORD-FIELDS-MATCH-P ...)
; compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...)
; compiling (DEF!TYPE CALLING-CONVENTION ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...)
; compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFMACRO-MUNDANELY ADDR ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFMACRO-MUNDANELY ADDR
;     (SB!INT:%MACROEXPAND SB!ALIEN::EXPR SB!ALIEN::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN AUXILIARY-TYPE-DEFINITIONS
;     (SB!INT:%MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM
;     (SETF (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT)
;           (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::OLD)
;             (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT))
; --> PROGN SETF LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-FROM) #:NEW2 #:OLD1)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-FROM)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-KIND) #:NEW6 #:OLD5)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-KIND)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-OFFSET) #:NEW8 #:OLD7)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-OFFSET)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-SIGNED) #:NEW10 #:OLD9)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-SIGNED)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-TO) #:NEW4 #:OLD3)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-TO)

;     (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-FROM

;     (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-KIND

;     (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-OFFSET

;     (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-SIGNED

;     (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-TO

; in: DEFUN HEAP-ALIEN-INFO-SAP
;     (SB!SYS:FOREIGN-SYMBOL-SAP (SB!ALIEN::HEAP-ALIEN-INFO-ALIEN-NAME SB!INT:INFO)
;      (SB!ALIEN::HEAP-ALIEN-INFO-DATAP SB!INT:INFO))
; 
; caught STYLE-WARNING:
;   undefined function: FOREIGN-SYMBOL-SAP

; in: DEFUN AUXILIARY-ALIEN-TYPE
;     (DEFUN SB!ALIEN::AUXILIARY-ALIEN-TYPE
;            (SB!ALIEN::KIND SB!ALIEN::NAME SB!ALIEN::ENV)
;       (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV))
;       (FLET ((SB!ALIEN::AUX-DEFN-MATCHES (SB!ALIEN::X)
;                (AND # #)))
;         (LET ((SB!ALIEN::IN-AUXILIARIES #))
;           (IF SB!ALIEN::IN-AUXILIARIES
;               (VALUES # T)
;               (ECASE SB!ALIEN::KIND # # #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET OR LET 
; ==>
;   (TYPEP #:N-OBJ780 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

; in: DEFUN PARSE-ALIEN-TYPE
;     (DEFUN SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE (TYPE SB!ALIEN::ENV)
;       (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV))
;       (IF (CONSP TYPE)
;           (LET ((SB!ALIEN::TRANSLATOR #))
;             (UNLESS SB!ALIEN::TRANSLATOR (ERROR "unknown alien type: ~S" TYPE))
;             (FUNCALL SB!ALIEN::TRANSLATOR TYPE SB!ALIEN::ENV))
;           (ECASE (SB!INT:INFO :ALIEN-TYPE :KIND TYPE)
;             (:PRIMITIVE
;              (LET #
;                #
;                #))
;             (:DEFINED (OR # #))
;             (:UNKNOWN (ERROR "unknown alien type: ~S" TYPE)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET OR LET 
; ==>
;   (TYPEP #:N-OBJ717 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

;     (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

; 
; caught STYLE-WARNING:
;   8 more uses of undefined type SB!KERNEL:LEXENV


; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFUN PARSE-ENUM
;     (SB!INT:STYLE-WARN "The element value ~S is used more than once."
;      SB!ALIEN::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL:LEXENV
;   Undefined functions:
;     %MACROEXPAND (SETF ALIEN-TYPE-FROM) (SETF ALIEN-TYPE-KIND) (SETF ALIEN-TYPE-OFFSET) (SETF ALIEN-TYPE-SIGNED) (SETF ALIEN-TYPE-TO) ALIEN-TYPE-FROM ALIEN-TYPE-KIND ALIEN-TYPE-OFFSET ALIEN-TYPE-SIGNED ALIEN-TYPE-TO FOREIGN-SYMBOL-SAP STYLE-WARN
;   caught 19 STYLE-WARNING conditions
; compiling (/SHOW0 "host-alieneval.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/host-alieneval.fasl-tmp written
; compilation finished in 0:00:13.127
; compiling file "/«PKGBUILDDIR»/src/code/host-c-call.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (/SHOW0 "host-c-call.lisp 12")
; compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...)
; compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...)
; compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NULL-ERROR ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...)

; file: /«PKGBUILDDIR»/src/code/host-c-call.lisp
; in: DEFUN C-STRING-EXTERNAL-FORMAT => DEFAULT-C-STRING-EXTERNAL-FORMAT
;     (SB!ALIEN::DEFAULT-C-STRING-EXTERNAL-FORMAT)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-C-STRING-EXTERNAL-FORMAT

; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING
;     (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE 'CHAR (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

;     (SB!KERNEL:MAKE-NULL-LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:MAKE-NULL-LEXENV
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL:LEXENV
;   Undefined functions:
;     DEFAULT-C-STRING-EXTERNAL-FORMAT SB!KERNEL:MAKE-NULL-LEXENV
;   caught 3 STYLE-WARNING conditions
; compiling (/SHOW0 "host-c-call.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/host-c-call.fasl-tmp written
; compilation finished in 0:00:01.056
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (/SHOW0 "compiler-deftype.lisp 14")

; file: /«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp
; in: DEFUN %COMPILER-DEFTYPE
;     (DEFUN SB!IMPL::%COMPILER-DEFTYPE
;            (SB!IMPL::NAME SB!IMPL::LAMBDA-LIST SB!IMPL::EXPANDER SB!IMPL::DOC
;             SB!IMPL::SOURCE-LOCATION)
;       (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SB!IMPL::NAME
;                                                    "defining ~A as a type specifier"))
;       (ECASE (SB!INT:INFO :TYPE :KIND SB!IMPL::NAME)
;         (:PRIMITIVE
;          (WHEN (AND SB!KERNEL:*TYPE-SYSTEM-INITIALIZED* #)
;            (ERROR "illegal to redefine standard type: ~S" SB!IMPL::NAME)))
;         (:INSTANCE
;          (WARN "The class ~S is being redefined to be a DEFTYPE." SB!IMPL::NAME)
;          (SB!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME)
;           T)
;          (SETF # NIL)
;          (SB!INT:CLEAR-INFO :TYPE :COMPILER-LAYOUT SB!IMPL::NAME)
;          (SETF # :DEFINED))
;         (:DEFINED)
;         ((NIL :FORTHCOMING-DEFCLASS-TYPE) (SETF # :DEFINED)))
;       (SETF (SB!INT:INFO :TYPE :EXPANDER SB!IMPL::NAME) SB!IMPL::EXPANDER)
;       (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION)
;         (SETF (SB!INT:INFO :TYPE :SOURCE-LOCATION SB!IMPL::NAME)
;                 SB!IMPL::SOURCE-LOCATION))
;       (WHEN SB!IMPL::DOC
;         (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'TYPE) SB!IMPL::DOC))
;       (SB!KERNEL:%NOTE-TYPE-DEFINED SB!IMPL::NAME)
;       SB!IMPL::NAME)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!IMPL::%COMPILER-DEFTYPE
;         (SB!IMPL::NAME SB!IMPL::LAMBDA-LIST SB!IMPL::EXPANDER SB!IMPL::DOC
;          SB!IMPL::SOURCE-LOCATION)
;       (BLOCK SB!IMPL::%COMPILER-DEFTYPE
;         (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SB!IMPL::NAME
;                                                      "defining ~A as a type specifier"))
;         (ECASE (SB!INT:INFO :TYPE :KIND SB!IMPL::NAME)
;           (:PRIMITIVE (WHEN # #))
;           (:INSTANCE
;            (WARN "The class ~S is being redefined to be a DEFTYPE."
;                  SB!IMPL::NAME)
;            (SB!KERNEL:UNDECLARE-STRUCTURE # T)
;            (SETF #)
;            (SB!INT:CLEAR-INFO :TYPE :COMPILER-LAYOUT SB!IMPL::NAME)
;            (SETF #))
;           (:DEFINED)
;           ((NIL :FORTHCOMING-DEFCLASS-TYPE) (SETF #)))
;         (SETF (SB!INT:INFO :TYPE :EXPANDER SB!IMPL::NAME) SB!IMPL::EXPANDER)
;         (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION)
;           (SETF # SB!IMPL::SOURCE-LOCATION))
;         (WHEN SB!IMPL::DOC (SETF # SB!IMPL::DOC))
;         (SB!KERNEL:%NOTE-TYPE-DEFINED SB!IMPL::NAME)
;         SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   The variable LAMBDA-LIST is defined but never used.
; compiling (DEFUN %COMPILER-DEFTYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp
; in: DEFUN %COMPILER-DEFTYPE
;     (SB!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME) T)
; 
; caught STYLE-WARNING:
;   undefined function: UNDECLARE-STRUCTURE
; 
; compilation unit finished
;   Undefined function:
;     UNDECLARE-STRUCTURE
;   caught 2 STYLE-WARNING conditions
; compiling (/SHOW0 "compiler-deftype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/compiler-deftype.fasl-tmp written
; compilation finished in 0:00:00.167
; compiling file "/«PKGBUILDDIR»/src/code/late-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "late-type.lisp 19")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...)
; compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...)
; compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...)
; compiling (DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...)
; compiling (DEFMACRO !DEFINE-SUPERCLASSES ...)
; compiling (DEFSTRUCT (KEY-INFO #) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...)
; compiling (DEFUN TYPE=-LIST ...)
; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-CLASS FUNCTION ...)
; compiling (!DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY* ...)
; compiling (!DEFVAR *UNPARSE-ALLOW-NEGATION* ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES FUNCTION ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-CLASS CONSTANT ...)
; compiling (!DEFINE-TYPE-METHOD (CONSTANT :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONSTANT :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR CONSTANT-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN UNPARSE-ARGS-TYPES ...)
; compiling (!DEF-TYPE-TRANSLATOR FUNCTION ...)
; compiling (!DEF-TYPE-TRANSLATOR VALUES ...)
; compiling (DEFUN VALUES-TYPE-MIN-VALUE-COUNT ...)
; compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...)
; compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...)
; compiling (DEFUN TYPE-SINGLE-VALUE-P ...)
; compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE))
; compiling (DEFUN SINGLE-VALUE-TYPE ...)
; compiling (DEFUN FUN-TYPE-NARGS ...)
; compiling (DEFUN VALUES-TYPES ...)
; compiling (DEFUN VALUES-TYPE-TYPES ...)
; compiling (DEFUN VALUES-TYPE-OUT ...)
; compiling (DEFUN VALUES-TYPE-IN ...)
; compiling (DEFUN FIXED-VALUES-OP ...)
; compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...)
; compiling (DEFUN COERCE-TO-VALUES ...)
; compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...)
; compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...)
; compiling (DEFUN ARGS-TYPE-OP ...)
; compiling (DEFUN VALUES-TYPE-OP ...)
; compiling (DEFUN COMPARE-KEY-ARGS ...)
; compiling (DEFUN TYPE=-ARGS ...)
; compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...)
; compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...)
; compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...)
; compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...)
; compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...)
; compiling (DEFUN SB-XC:SUBTYPEP ...)
; compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...)
; compiling (DEFUN TYPE/= ...)
; compiling (DEFUN %TYPE-UNION2 ...)
; compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...)
; compiling (DEFUN %TYPE-INTERSECTION2 ...)
; compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...)
; compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...)
; compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...)
; compiling (DEFUN TYPE-SPECIFIER ...)
; compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...)
; compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN !PRECOMPUTE-TYPES ...)
; compiling (DEF SIMPLIFY-INTERSECTIONS ...)
; compiling (DEF SIMPLIFY-UNIONS ...)
; compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...)
; compiling (DEFUN TYPE-INTERSECTION ...)
; compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...)
; compiling (DEFUN TYPE-UNION ...)
; compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...)
; compiling (!DEFINE-TYPE-CLASS NAMED ...)
; compiling (DEFGLOBAL *SATISFIES-KEYWORDP-TYPE* ...)
; compiling (DEFGLOBAL *FUN-NAME-TYPE* ...)
; compiling (DEFUN !LATE-TYPE-COLD-INIT2 ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-=) ...)
; compiling (DEFUN CONS-TYPE-MIGHT-BE-EMPTY-TYPE ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-=) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (NAMED :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 ...) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR SATISFIES ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR NOT ...)
; compiling (!DEFINE-TYPE-CLASS NUMBER ...)
; compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL))
; compiling (DEFUN NUMERIC-TYPE-EQUAL ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...)
; compiling (DEFMACRO NUMERIC-BOUND-TEST ...)
; compiling (DEFMACRO NUMERIC-BOUND-TEST* ...)
; compiling (DEFMACRO NUMERIC-BOUND-MAX ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES NUMBER ...)
; compiling (DEFUN NUMERIC-TYPES-ADJACENT ...)
; compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...)
; compiling (!COLD-INIT-FORMS (SETF # ...) ...)
; compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...)
; compiling (DECLAIM (INLINE CANONICALIZED-BOUND))
; compiling (DEFUN CANONICALIZED-BOUND ...)
; compiling (!DEF-TYPE-TRANSLATOR INTEGER ...)
; compiling (DEFMACRO !DEF-BOUNDED-TYPE ...)
; compiling (!DEF-BOUNDED-TYPE RATIONAL ...)
; compiling (DEFUN COERCE-BOUND ...)
; compiling (DEFUN INNER-COERCE-REAL-BOUND ...)
; compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...)
; compiling (DEFUN COERCED-REAL-BOUND ...)
; compiling (DEFUN COERCED-FLOAT-BOUND ...)
; compiling (!DEF-TYPE-TRANSLATOR REAL ...)
; compiling (!DEF-TYPE-TRANSLATOR FLOAT ...)
; compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...)
; compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT)
; compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT)
; compiling (DEFUN NUMERIC-TYPES-INTERSECT ...)
; compiling (DEFUN ROUND-NUMERIC-BOUND ...)
; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN FLOAT-FORMAT-MAX ...)
; compiling (DEFUN NUMERIC-CONTAGION ...)
; compiling (!DEFINE-TYPE-CLASS ARRAY ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES ARRAY ...)
; compiling (DEFUN ARRAY-TYPES-INTERSECT ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...)
; compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...)
; compiling (!DEFINE-TYPE-CLASS MEMBER ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR MEMBER ...)
; compiling (!DEFINE-TYPE-CLASS INTERSECTION ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...)
; compiling (DEFUN TYPE=-SET ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...)
; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...)
; compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...)
; compiling (!DEF-TYPE-TRANSLATOR AND ...)
; compiling (!DEFINE-TYPE-CLASS UNION ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...)
; compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...)
; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...)
; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...)
; compiling (!DEF-TYPE-TRANSLATOR OR ...)
; compiling (!DEFINE-TYPE-CLASS CONS ...)
; compiling (!DEF-TYPE-TRANSLATOR CONS ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...)
; compiling (!DEFINE-SUPERCLASSES CONS ...)
; compiling (!DEFINE-TYPE-CLASS CHARACTER-SET ...)
; compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...)
; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...)
; compiling (DEFUN INTERSECT-TYPE-PAIRS ...)
; compiling (DEFUN TYPE-DIFFERENCE ...)
; compiling (!DEF-TYPE-TRANSLATOR ARRAY ...)
; compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...)
; compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...)
; compiling (DEFUN CTYPE-OF-NUMBER ...)
; compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION))
; compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...)
; compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION))

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION
;     (SB!KERNEL:GENERIC-ABSTRACT-TYPE-FUNCTION TYPE SB!KERNEL::OVERAPPROXIMATE
;      #'UNION #'INTERSECTION #'SET-DIFFERENCE '* NIL SB!KERNEL::OVER
;      SB!KERNEL::UNDER)
; --> BLOCK LABELS BLOCK UNLESS IF PROGN RETURN-FROM SB!KERNEL::DEFAULT 
; ==>
;   SB!KERNEL::OVERAPPROXIMATE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...)
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT)
; compiling (!LATE-TYPE-COLD-INIT2)

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: !DEF-TYPE-TRANSLATOR SIMPLE-ARRAY
;     (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE

; in: !DEF-TYPE-TRANSLATOR ARRAY
;     (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE

; in: !DEFINE-TYPE-METHOD (ARRAY :UNPARSE)
;     (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::DTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE

; in: !DEF-TYPE-TRANSLATOR MEMBER
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::M)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: !DEFINE-TYPE-METHOD (MEMBER :NEGATE)
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::OPPOSITE)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: !DEF-TYPE-TRANSLATOR COMPLEX
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::X)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: DEFUN TYPE-DIFFERENCE
;     (SB!KERNEL:CTYPEP ELT SB!KERNEL::Y)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2)
;     (SB!KERNEL:CTYPEP MEMBER SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1)
;     (SB!KERNEL:CTYPEP ELT SB!KERNEL::TYPE2)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: DEFUN CTYPE-OF-NUMBER
;     (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-FORMAT-NAME

; in: !DEF-TYPE-TRANSLATOR OR
;     (SB!KERNEL::SIMPLIFY-ARRAY-UNIONS TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SIMPLIFY-ARRAY-UNIONS

; in: !DEF-TYPE-TRANSLATOR INTEGER
;     (SB!KERNEL::CANONICALIZED-BOUND SB!KERNEL::HIGH 'INTEGER)
; --> BLOCK COND IF COND IF OR LET IF OR THE AND IF AND IF 
; ==>
;   (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP

; in: DEFUN CANONICALIZED-BOUND
;     (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP

; in: DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1
;     (SB-XC:TYPEP SB!KERNEL::TYPE2 'SB!KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function SB-XC:TYPEP
; 
; compilation unit finished
;   Undefined functions:
;     %UPGRADED-ARRAY-ELEMENT-TYPE CTYPE-OF CTYPEP FLOAT-FORMAT-NAME SIMPLIFY-ARRAY-UNIONS SB-XC:TYPEP
;   caught 15 STYLE-WARNING conditions
;   printed 3 notes
; compiling (/SHOW0 "late-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/late-type.fasl-tmp written
; compilation finished in 0:00:14.229
; compiling file "/«PKGBUILDDIR»/src/code/deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "deftypes-for-target.lisp 14")
; compiling (/SHOW "about to force delayed DEF!TYPEs")
; compiling (FORCE-DELAYED-DEF!TYPES)
; compiling (/SHOW "done forcing delayed DEF!TYPEs")
; compiling (SB-XC:DEFTYPE BOOLEAN ...)
; compiling (SB-XC:DEFTYPE MOD ...)
; compiling (SB-XC:DEFTYPE SIGNED-BYTE ...)
; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...)
; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...)
; compiling (SB-XC:DEFTYPE BIT ...)
; compiling (SB-XC:DEFTYPE ATOM ...)
; compiling (SB-XC:DEFTYPE BASE-CHAR ...)
; compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...)
; compiling (SB-XC:DEFTYPE STANDARD-CHAR ...)
; compiling (SB-XC:DEFTYPE KEYWORD ...)
; compiling (SB-XC:DEFTYPE EQL ...)
; compiling (SB-XC:DEFTYPE VECTOR ...)
; compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...)
; compiling (SB-XC:DEFTYPE BASE-STRING ...)
; compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...)
; compiling (SB-XC:DEFTYPE STRING ...)
; compiling (SB-XC:DEFTYPE SIMPLE-STRING ...)
; compiling (SB-XC:DEFTYPE BIT-VECTOR ...)
; compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...)
; compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...)
; compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...)
; compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE ARRAY-RANK ...)
; compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...)
; compiling (SB-XC:DEFTYPE FORM ...)
; compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE FILENAME ...)
; compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE IRRATIONAL ...)
; compiling (SB-XC:DEFTYPE CHAR-CODE ...)
; compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...)
; compiling (SB-XC:DEFTYPE SEQUENCE-END ...)
; compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...)
; compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE CALLABLE ...)
; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...)
; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...)
; compiling (/SHOW0 "deftypes-for-target.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/deftypes-for-target.fasl-tmp written
; compilation finished in 0:00:00.928
; compiling file "/«PKGBUILDDIR»/src/compiler/knownfun.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (/SHOW0 "knownfun.lisp 17")
; compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...)
; compiling (DEFSTRUCT (FUN-INFO) ...)
; compiling (DEFPRINTER (FUN-INFO) ...)
; compiling (DEFSTRUCT (TRANSFORM #) ...)
; compiling (DEFPRINTER (TRANSFORM) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DEFTRANSFORM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DEFKNOWN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUN-INFO-OR-LOSE ...)
; compiling (DEFUN RESULT-TYPE-FIRST-ARG ...)
; compiling (DEFUN RESULT-TYPE-LAST-ARG ...)
; compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...)
; compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...)
; compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...)
; compiling (DEFUN NTH-CONSTANT-ARGS ...)
; compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...)
; compiling (DEFUN READ-ELT-TYPE-DERIVER ...)
; compiling (DEFUN COUNT/POSITION-MAX-VALUE ...)
; compiling (DEFUN POSITION-DERIVE-TYPE ...)
; compiling (DEFUN COUNT-DERIVE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CAREFUL-SPECIFIER-TYPE
;      (SB!INT:QUASIQUOTE
;       (VECTOR CHARACTER
;               #S(SB!IMPL::COMMA :EXPR (WHEN SB!C::SIZE SB!C::SIZE) :KIND 2))))
; 
; caught STYLE-WARNING:
;   undefined function: CAREFUL-SPECIFIER-TYPE

; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CAREFUL-SPECIFIER-TYPE (SB!C::LVAR-VALUE SB!C::LVAR))
; 
; caught STYLE-WARNING:
;   undefined function: CAREFUL-SPECIFIER-TYPE

; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS
;     #'SB!C::CONSTANT-LVAR-P
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function CONSTANT-LVAR-P


; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN RESULT-TYPE-FLOAT-CONTAGION
;     #'SB!C::LVAR-TYPE
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN RESULT-TYPE-LAST-ARG
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN RESULT-TYPE-FIRST-ARG
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function LVAR-TYPE


; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS
;     #'SB!C::LVAR-VALUE
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function LVAR-VALUE


; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: DEFUN %DEFTRANSFORM
;     (SB!INT:STYLE-WARN 'SB!KERNEL:REDEFINITION-WITH-DEFTRANSFORM :TRANSFORM
;      SB!C::OLD)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P LVAR-TYPE LVAR-VALUE STYLE-WARN
;   caught 15 STYLE-WARNING conditions
; compiling (/SHOW0 "knownfun.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/compiler/knownfun.fasl-tmp written
; compilation finished in 0:00:02.289
; compiling file "/«PKGBUILDDIR»/src/compiler/constantp.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFGLOBAL **SPECIAL-FORM-CONSTANTP-TESTS** ...)
; compiling (!COLD-INIT-FORMS (SETF **SPECIAL-FORM-CONSTANTP-TESTS** ...))
; compiling (!DEFVAR *SPECIAL-CONSTANT-VARIABLES* ...)
; compiling (DEFUN %CONSTANTP ...)
; compiling (DEFUN %CONSTANT-FORM-VALUE ...)
; compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...)
; compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...)
; compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...)
; compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...)
; compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...)
; compiling (DECLAIM (INLINE SB-XC:CONSTANTP))
; compiling (DEFUN SB-XC:CONSTANTP ...)
; compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE))
; compiling (DEFUN CONSTANT-FORM-VALUE ...)
; compiling (DECLAIM (INLINE CONSTANT-TYPEP))
; compiling (DEFUN CONSTANT-TYPEP ...)
; compiling (DEFMACRO !DEFCONSTANTP ...)
; compiling (!DEFCONSTANTP QUOTE ...)
; compiling (!DEFCONSTANTP IF ...)
; compiling (!DEFCONSTANTP PROGN ...)
; compiling (!DEFCONSTANTP UNWIND-PROTECT ...)
; compiling (!DEFCONSTANTP THE ...)
; compiling (!DEFCONSTANTP BLOCK ...)
; compiling (!DEFCONSTANTP MULTIPLE-VALUE-PROG1 ...)
; compiling (!DEFCONSTANTP PROGV ...)

; file: /«PKGBUILDDIR»/src/compiler/constantp.lisp
; in: DEFUN %CONSTANT-FORM-VALUE
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN %CONSTANTP
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: !DEFCONSTANTP THE
;     (SB!C::CAREFUL-SPECIFIER-TYPE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: CAREFUL-SPECIFIER-TYPE

; in: DEFUN CONSTANT-TYPEP
;     (SB-XC:TYPEP
;      (SB!C::%CONSTANT-FORM-VALUE SB!KERNEL:FORM SB!C::ENVIRONMENT SB!C::ENVP)
;      TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:TYPEP
; 
; compilation unit finished
;   Undefined functions:
;     %MACROEXPAND CAREFUL-SPECIFIER-TYPE SB-XC:TYPEP
;   caught 4 STYLE-WARNING conditions
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/constantp.fasl-tmp written
; compilation finished in 0:00:00.743
; compiling file "/«PKGBUILDDIR»/src/compiler/fun-info-funs.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN %DEF-REFFER ...)
; compiling (DEFUN %DEF-SETTER ...)
; compiling (DEFUN %DEF-ALLOC ...)

; file: /«PKGBUILDDIR»/src/compiler/fun-info-funs.lisp
; in: DEFUN %DEF-CASSER
;     (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-CASSER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS
;      SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FIXED-ALLOCATION

; in: DEFUN %DEF-REFFER
;     (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-REFFER

; in: DEFUN %DEF-SETTER
;     (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETFER

;     (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETTER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;      SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION

;     (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;      SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-VARIABLE-ALLOCATION
; 
; compilation unit finished
;   Undefined functions:
;     IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION
;   caught 7 STYLE-WARNING conditions
; compiling (DEFUN %DEF-CASSER ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fun-info-funs.fasl-tmp written
; compilation finished in 0:00:00.103
; compiling file "/«PKGBUILDDIR»/src/code/cross-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN FIXNUMP ...)
; compiling (DEFINE-CONDITION CROSS-TYPE-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION CROSS-TYPE-GIVING-UP-CONSERVATIVELY ...)
; compiling (DEFUN WARN-POSSIBLE-CROSS-TYPE-FLOAT-INFO-LOSS ...)
; compiling (DEFUN SB-XC:TYPE-OF ...)
; compiling (DEFUN IN-CL-PACKAGE-P ...)
; compiling (DEFUN ACCEPTABLE-CROSS-TYPEP-PRED ...)
; compiling (DEFUN CROSS-TYPEP ...)
; compiling (DEFUN SB-XC:TYPEP ...)
; compiling (DEFUN CTYPEP ...)
; compiling (DEFUN CTYPE-OF ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-type.fasl-tmp written
; compilation finished in 0:00:00.641
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (SB-XC:DEFTYPE LONG-FLOAT ...)
; compiling (SB-XC:DEFTYPE SHORT-FLOAT ...)
; compiling (SB-XC:DEFTYPE FLOAT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE FLOAT-DIGITS ...)
; compiling (SB-XC:DEFTYPE FLOAT-RADIX ...)
; compiling (SB-XC:DEFTYPE FLOAT-INT-EXPONENT ...)
; compiling (SB-XC:DEFTYPE BOOLE-CODE ...)
; compiling (SB-XC:DEFTYPE BYTE-SPECIFIER ...)
; compiling (SB-XC:DEFTYPE CHAR-INT ...)
; compiling (SB-XC:DEFTYPE PATHNAME-HOST ...)
; compiling (SB-XC:DEFTYPE PATHNAME-DEVICE ...)
; compiling (SB-XC:DEFTYPE PATHNAME-DIRECTORY ...)
; compiling (SB-XC:DEFTYPE PATHNAME-NAME ...)
; compiling (SB-XC:DEFTYPE PATHNAME-TYPE ...)
; compiling (SB-XC:DEFTYPE PATHNAME-VERSION ...)
; compiling (SB-XC:DEFTYPE INTERNAL-TIME ...)
; compiling (SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE ...)
; compiling (SB-XC:DEFTYPE BIGNUM-TYPE ...)
; compiling (SB-XC:DEFTYPE BIGNUM-INDEX ...)
; compiling (SB-XC:DEFTYPE BIGNUM-LENGTH ...)
; compiling (SB-XC:DEFTYPE BIT-INDEX ...)
; compiling (SB-XC:DEFTYPE UNBOXED-ARRAY ...)
; compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...)
; compiling (SB-XC:DEFTYPE COMPLEX-VECTOR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FLOAT-FORMAT-NAME ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...)
; compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...)
; compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...)
; compiling (DEFUN CONTAINING-INTEGER-TYPE ...)
; compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...)
; compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...)
; compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-type.fasl-tmp written
; compilation finished in 0:00:01.518
; compiling file "/«PKGBUILDDIR»/src/compiler/proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *UNDEFINED-WARNINGS*)
; compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET-OLD-VARS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-OPTIMIZE-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...)
; compiling (!DEFVAR *QUEUED-PROCLAIMS* ...)
; compiling (DEFUN PROCESS-VARIABLE-DECLARATION ...)
; compiling (DEFUN PROCLAIM-TYPE ...)
; compiling (DEFUN PROCLAIM-FTYPE ...)
; compiling (DEFUN SEAL-CLASS ...)
; compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...)
; compiling (DEFUN PROCESS-INLINE-DECLARATION ...)
; compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...)
; compiling (DEFUN CANONIZED-DECL-SPEC ...)
; compiling (DEFUN %PROCLAIM ...)
; compiling (DEFUN SB-XC:PROCLAIM ...)

; file: /«PKGBUILDDIR»/src/compiler/proclaim.lisp
; in: DEFUN CANONIZED-DECL-SPEC
;     (SB!C:COMPILER-ERROR "ambiguous declaration ~S:~%  ~
;                ~S was declared as a DECLARATION, but is also a type name."
;      SB!C::DECL-SPEC SB!C::ID)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN GET-OLD-VARS
;     (SB!C:COMPILER-ERROR "The name ~S is not a symbol." SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR

; in: DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES
;     (SB!C:COMPILER-STYLE-WARN "Repeated OPTIMIZE qualit~@P. Using ~{~S~^ and ~}"
;      (LENGTH SB!C::DUPS) SB!C::DUPS)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARN

; in: DEFUN %PROCLAIM
;     (SB!C:COMPILER-WARN "unrecognized declaration ~S" SB!C::RAW-FORM)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARN

; in: DEFUN PROCESS-OPTIMIZE-DECL
;     (SB!C:COMPILER-WARN "~@<Ignoring unknown optimization quality ~S in:~_ ~S~:>"
;      SB!C::QUALITY SB!C::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARN

; in: DEFUN PROCLAIM-FTYPE
;     (SB!KERNEL:FTYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME
;      (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE))
; 
; caught STYLE-WARNING:
;   undefined function: FTYPE-PROCLAMATION-MISMATCH-WARN

; in: DEFUN PROCLAIM-TYPE
;     (SB!KERNEL:TYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME
;      (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE))
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-PROCLAMATION-MISMATCH-WARN

; in: DEFUN PROCESS-INLINE-DECLARATION
;     (SB!C::WARN-IF-INLINE-FAILED/PROCLAIM SB!C::NAME SB!C::NEWVAL)
; 
; caught STYLE-WARNING:
;   undefined function: WARN-IF-INLINE-FAILED/PROCLAIM
; 
; compilation unit finished
;   Undefined functions:
;     COMPILER-ERROR COMPILER-STYLE-WARN COMPILER-WARN FTYPE-PROCLAMATION-MISMATCH-WARN TYPE-PROCLAMATION-MISMATCH-WARN WARN-IF-INLINE-FAILED/PROCLAIM
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/proclaim.fasl-tmp written
; compilation finished in 0:00:00.901
; compiling file "/«PKGBUILDDIR»/src/code/class-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "beginning class-init.lisp")
; compiling (DOLIST (X *!BUILT-IN-CLASSES*) ...)
; compiling (/SHOW0 "done with class-init.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/class-init.fasl-tmp written
; compilation finished in 0:00:00.091
; compiling file "/«PKGBUILDDIR»/src/code/defstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "code/defstruct.lisp 15")
; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...)
; compiling (DEFUN COMPILER-LAYOUT-READY-P ...)
; compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...)

; file: /«PKGBUILDDIR»/src/code/defstruct.lisp
; in:
;      DEF!STRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-)
;              (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)
;              (:CONSTRUCTOR MAKE-DEFSTRUCT-DESCRIPTION (NAME)))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:DEFSTRUCT-DESCRIPTION (:CONC-NAME SB!KERNEL::DD-)
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;       (:CONSTRUCTOR SB!KERNEL::MAKE-DEFSTRUCT-DESCRIPTION (SB!KERNEL::NAME)))
;      (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T)
;      (SB!KERNEL::DOC NIL :TYPE (OR STRING NULL))
;      (SB!KERNEL::CONC-NAME NIL :TYPE (OR STRING NULL))
;      (SB!KERNEL::DEFAULT-CONSTRUCTOR NIL :TYPE SYMBOL)
;      (SB!KERNEL::CONSTRUCTORS NIL :TYPE LIST)
;      (SB!KERNEL::COPIER-NAME NIL :TYPE SYMBOL)
;      (SB!KERNEL::PREDICATE-NAME NIL :TYPE SYMBOL)
;      (SB!KERNEL::INCLUDE NIL :TYPE LIST)
;      (SB!KERNEL::ALTERNATE-METACLASS NIL :TYPE LIST)
;      (SB!KERNEL::SLOTS NIL :TYPE LIST) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:DEFSTRUCT-DESCRIPTION
;       {53D73E29}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:DD-NAME, SB!KERNEL:DD-SLOTS and
;   SB!KERNEL:DD-LENGTH could not be inlined because the structure definition for
;   SB!KERNEL:DEFSTRUCT-DESCRIPTION was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN DD-CLASS-P ...)
; compiling (DEFUN DD-LAYOUT-OR-LOSE ...)

; file: /«PKGBUILDDIR»/src/code/defstruct.lisp
; in:
;      DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION
;              (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:CONC-NAME DSD-)
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;       (:CONC-NAME SB!KERNEL::DSD-) (:COPIER NIL))
;      SB!KERNEL::NAME (SB!INT:INDEX (SB!INT:MISSING-ARG) :TYPE FIXNUM)
;      (SB!KERNEL::ACCESSOR-NAME NIL :TYPE SYMBOL) SB!KERNEL::DEFAULT (TYPE T)
;      (SB!KERNEL::SAFE-P T :TYPE BOOLEAN)
;      (SB!KERNEL::RAW-TYPE T :TYPE
;       (MEMBER T SINGLE-FLOAT DOUBLE-FLOAT SB!KERNEL::COMPLEX-SINGLE-FLOAT
;               SB!KERNEL::COMPLEX-DOUBLE-FLOAT SB!EXT:WORD))
;      (SB!KERNEL::READ-ONLY NIL :TYPE (MEMBER T NIL)))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION
;       {51EDB3B1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:DSD-INDEX, SB!KERNEL:DSD-ACCESSOR-NAME
;   and SB!KERNEL:DSD-RAW-TYPE could not be inlined because the structure
;   definition for SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN DD-LISP-TYPE ...)
; compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...)
; compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...)
; compiling (SB-XC:DEFMACRO DEFSTRUCT ...)
; compiling (DEFMACRO SB-XC:DEFSTRUCT ...)
; compiling (DEFUN ACCESSOR-INHERITED-DATA ...)
; compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...)
; compiling (DEFUN TYPED-COPIER-DEFINITIONS ...)
; compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...)
; compiling (DEFCONSTANT-EQX +DD-OPTION-NAMES+ ...)
; compiling (DEFUN PARSE-1-DD-OPTION ...)
; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...)
; compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...)
; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...)
; compiling (DEFUN PARSE-1-DSD ...)
; compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...)
; compiling (DEFUN ALLOCATE-1-SLOT ...)
; compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...)
; compiling (DEFUN FROB-DD-INCLUSION-STUFF ...)
; compiling (DEFUN INHERITS-FOR-STRUCTURE ...)
; compiling (DEFUN %DEFSTRUCT ...)
; compiling (DEFUN %ACCESSOR-PLACE-FORM ...)
; compiling (DEFUN SLOT-ACCESS-TRANSFORM ...)
; compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...)
; compiling (DEFUN UNDECLARE-STRUCTURE ...)
; compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...)
; compiling (DEFUN %COMPILER-DEFSTRUCT ...)
; compiling (DEFUN COMPARE-SLOTS ...)
; compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...)
; compiling (DEFUN %REDEFINE-DEFSTRUCT ...)
; compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH))
; compiling (DEFUN DD-LAYOUT-LENGTH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DD-INSTANCE-LENGTH ...)
; compiling (DEFUN DD-BITMAP ...)
; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...)
; compiling (DEFUN FIND-NAME-INDICES ...)
; compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...)
; compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...)
; compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...)
; compiling (DEFUN ACCESSOR-DEFINITIONS ...)
; compiling (DEFUN COPIER-DEFINITION ...)
; compiling (DEFUN PREDICATE-DEFINITION ...)
; compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...)
; compiling (DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...)
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...)
; compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...)
; compiling (!SET-UP-STRUCTURE-OBJECT-CLASS)
; compiling (DOLIST (ARGS #) ...)
; compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...)
; compiling (DEFUN STRUCTURE-INSTANCE-ACCESSOR-P ...)

; file: /«PKGBUILDDIR»/src/code/defstruct.lisp
; in: SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT
;     (SB!C:COMPILER-NOTIFY "implementation limitation: ~
;                Non-toplevel DEFSTRUCT constructors are slow.")
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:COMPILER-NOTIFY

; in: DEFUN %COMPILER-DEFSTRUCT
;     (SB!C:COMPILER-STYLE-WARN 'SB!C:INLINING-DEPENDENCY-FAILURE :FORMAT-CONTROL
;      (SB!INT:!UNCROSS-FORMAT-CONTROL "~@<Previously compiled call~P to ~
;   ~{~/sb!impl:print-symbol-with-prefix/~^~#[~; and~:;,~] ~} ~
;   could not be inlined because the structure definition for ~
;   ~/sb!impl:print-symbol-with-prefix/ was not yet seen. To avoid this warning, ~
;   DEFSTRUCT should precede references to the affected functions, ~
;   or they must be declared locally notinline at each call site.~@:>")
;      :FORMAT-ARGUMENTS
;      (LIST (LENGTH SB!INT:IT) (NREVERSE SB!INT:IT)
;            (SB!KERNEL:DD-NAME SB!KERNEL::DD)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:COMPILER-STYLE-WARN

;     (SB!INT:STYLE-WARN "~@<Non-overwritten accessor ~S does not access ~
;                               slot with name ~S (accessing an inherited slot ~
;                               instead).~:@>"
;      SB!KERNEL::ACCESSOR-NAME (SB!KERNEL:DSD-NAME SB!KERNEL::DSD))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN PARSE-1-DSD
;     (SB!INT:STYLE-WARN
;      "~@<The structure accessor name ~S is the same as the name of the ~
;             structure type predicate. ANSI doesn't specify what to do in ~
;             this case. We'll overwrite the type predicate with the slot ~
;             accessor, but you can't rely on this behavior, so it'd be wise to ~
;             remove the ambiguity in your code.~@:>"
;      SB!KERNEL::ACCESSOR-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN TYPED-ACCESSOR-DEFINITIONS
;     (SB!INT:STYLE-WARN "~@<Non-overwritten accessor ~S does not access ~
;                               slot with name ~S (accessing an inherited slot ~
;                               instead).~:@>"
;      SB!KERNEL::NAME (SB!KERNEL:DSD-NAME SB!ALIEN:SLOT))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     SB!C:COMPILER-NOTIFY SB!C:COMPILER-STYLE-WARN STYLE-WARN
;   caught 7 STYLE-WARNING conditions
; compiling (/SHOW0 "code/defstruct.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/defstruct.fasl-tmp written
; compilation finished in 0:00:08.588
; compiling file "/«PKGBUILDDIR»/src/code/alien-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "code/alien-type.lisp 16")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFSTRUCT (ALIEN-TYPE-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS ALIEN ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :UNPARSE) ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP) ...)
; compiling (!DEFINE-SUPERCLASSES ALIEN ...)
; compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=) ...)
; compiling (!DEF-TYPE-TRANSLATOR ALIEN ...)
; compiling (DEFUN MAKE-ALIEN-TYPE-TYPE ...)
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT)

; file: /«PKGBUILDDIR»/src/code/alien-type.lisp
; in: !DEF-TYPE-TRANSLATOR ALIEN
;     (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE
;                                          (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

;     (SB!KERNEL:MAKE-NULL-LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-NULL-LEXENV
; 
; compilation unit finished
;   Undefined type:
;     LEXENV
;   Undefined function:
;     MAKE-NULL-LEXENV
;   caught 2 STYLE-WARNING conditions
; compiling (/SHOW0 "code/alien-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-host/src/code/alien-type.fasl-tmp written
; compilation finished in 0:00:00.888
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangstructs.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (FORCE-DELAYED-DEF!STRUCTS)

; /«PKGBUILDDIR»/obj/from-host/src/code/force-delayed-defbangstructs.fasl-tmp written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/src/code/early-full-eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!EVAL")
; compiling (SB!INT:!DEFPARAMETER *EVAL-LEVEL* ...)
; compiling (SB!INT:!DEFPARAMETER *EVAL-VERBOSE* ...)
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...)
; compiling (SB!C::SEAL-CLASS (SPECIFIER-TYPE #))
; compiling (DECLAIM (FREEZE-TYPE INTERPRETED-FUNCTION))

; /«PKGBUILDDIR»/obj/from-host/src/code/early-full-eval.fasl-tmp written
; compilation finished in 0:00:00.041
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *COMPILER-ERROR-BAILOUT*)
; compiling (DEFINE-CONDITION COMPILER-ERROR ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.")
; ==>
;   "Control returned from *COMPILER-ERROR-BAILOUT*."
; 
; note: deleting unreachable code
; compiling (DEFUN COMPILER-ERROR ...)
; compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...)
; compiling (DEFUN COMPILER-WARN ...)
; compiling (DEFUN COMPILER-STYLE-WARN ...)
; compiling (DEFUN SOURCE-TO-STRING ...)
; compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...)
; compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...)
; compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...)

; file: /«PKGBUILDDIR»/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGUMENTS
;      'SB!INT:SIMPLE-PROGRAM-ERROR 'SB!C:COMPILER-ERROR)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN COMPILER-STYLE-WARN
;     #'SB!INT:STYLE-WARN
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN
; 
; compilation unit finished
;   Undefined functions:
;     COERCE-TO-CONDITION STYLE-WARN
;   caught 2 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/compiler-error.fasl-tmp written
; compilation finished in 0:00:00.409
; compiling file "/«PKGBUILDDIR»/src/code/late-deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...)
; compiling (SETQ SB!IMPL::!*XC-PROCESSED-DEFTYPES* ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-deftypes-for-target.fasl-tmp written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/src/code/type-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "precomputing built-in symbol type specifiers")
; compiling (!PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*)
; compiling (SETF *TYPE-SYSTEM-INITIALIZED* ...)
; compiling (/SHOW0 "done with type-init.lisp")

; /«PKGBUILDDIR»/obj/from-host/src/code/type-init.fasl-tmp written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (!COLD-INIT-FORMS (MAP # ...))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fixup-type.fasl-tmp written
; compilation finished in 0:00:00.036
; compiling file "/«PKGBUILDDIR»/src/code/package.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!TYPE HASH-VECTOR ...)
; compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in:
;      DEF!STRUCT (SB-XC:PACKAGE
;              (:CONSTRUCTOR %MAKE-PACKAGE
;               (%NAME INTERNAL-SYMBOLS EXTERNAL-SYMBOLS))
;              (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL)))
;              (:PREDICATE SB-XC:PACKAGEP))
;     (SB!INT:DEF!STRUCT
;      (SB-XC:PACKAGE
;       (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE
;        (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS))
;       (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL)))
;       (:PREDICATE SB-XC:PACKAGEP))
;      "the standard structure for the description of a package"
;      (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL))
;      (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST)
;      (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR)
;      (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX)
;      (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST)
;      (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-XC:PACKAGE {53B7D789}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:PACKAGE-DOC-STRING could not be inlined
;   because the structure definition for SB-XC:PACKAGE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...)
; compiling (FLET (#) ...)
; compiling (DEFUN PACKAGE-ITER-INIT ...)
; compiling (DECLAIM (INLINE PKG-SYMBOL-VALID-P))
; compiling (DEFUN PKG-SYMBOL-VALID-P ...)
; compiling (DEFCONSTANT +PACKAGE-ITER-CHECK-SHADOWS+ ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in: DEFUN PACKAGE-ITER-STEP
;     (LOGIOR (SB-XC:MASK-FIELD (SB-XC:BYTE 3 3) SB!IMPL::START-STATE)
;             SB!IMPL::NEXT-STATE)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, 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 3) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -536870848 536870911), not a (UNSIGNED-BYTE
;                                                                       32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (THE FIXNUM (+ SB!IMPL::STATE (ASH 1 6)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN PACKAGE-ITER-STEP ...)
; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in:
;      DEF!STRUCT (SB-XC:PACKAGE
;              (:CONSTRUCTOR %MAKE-PACKAGE
;               (%NAME INTERNAL-SYMBOLS EXTERNAL-SYMBOLS))
;              (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL)))
;              (:PREDICATE SB-XC:PACKAGEP))
;     (SB!INT:DEF!STRUCT
;      (SB-XC:PACKAGE
;       (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE
;        (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS))
;       (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL)))
;       (:PREDICATE SB-XC:PACKAGEP))
;      "the standard structure for the description of a package"
;      (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL))
;      (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST)
;      (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR)
;      (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX)
;      (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST)
;      (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;      (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB-XC:PACKAGE (:INCLUDE SB!SYS:STRUCTURE!OBJECT)
;        (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE
;         (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS))
;        (:PREDICATE SB-XC:PACKAGEP))
;     "the standard structure for the description of a package"
;     (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL))
;     (SB!IMPL::%NICKNAMES NIL :TYPE LIST)
;     (SB!IMPL::%USE-LIST NIL :TYPE LIST)
;     (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR)
;     (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX)
;     (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST)
;     (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;     (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE)
;     (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C:DEFINITION-SOURCE-LOCATION

; in: DEFUN PACKAGE-ITER-INIT
;     (SB!IMPL::PACKAGE-LISTIFY SB!IMPL::PKG-DESIGNATOR-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: PACKAGE-LISTIFY
; 
; compilation unit finished
;   Undefined type:
;     SB!C:DEFINITION-SOURCE-LOCATION
;   Undefined function:
;     PACKAGE-LISTIFY
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes
; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/package.fasl-tmp written
; compilation finished in 0:00:01.094
; compiling file "/«PKGBUILDDIR»/src/code/random.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...)
; compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/random.fasl-tmp written
; compilation finished in 0:00:00.035
; compiling file "/«PKGBUILDDIR»/src/code/hash-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...)
; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...)
; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...)
; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...)
; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...)
; compiling (DEFUN %HASH-TABLE-ALIST ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/hash-table.fasl-tmp written
; compilation finished in 0:00:00.156
; compiling file "/«PKGBUILDDIR»/src/code/readtable.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...)
; compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE READTABLE))

; /«PKGBUILDDIR»/obj/from-host/src/code/readtable.fasl-tmp written
; compilation finished in 0:00:00.076
; compiling file "/«PKGBUILDDIR»/src/code/pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!STRUCT (HOST #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN ...)
; compiling (DEF!STRUCT (PATTERN #) ...)
; compiling (DEF!TYPE PATHNAME-COMPONENT-TOKENS ...)
; compiling (SB-XC:DEFSTRUCT (PATHNAME # ...) ...)
; compiling (SB-XC:DEFSTRUCT (LOGICAL-PATHNAME # ...))
; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...)

; file: /«PKGBUILDDIR»/src/code/pathname.lisp
; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY
;     (SB!IMPL::%PATHNAME-DIRECTORY PATHNAME)
; 
; caught STYLE-WARNING:
;   undefined function: %PATHNAME-DIRECTORY

; in:
;      DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN)
;              (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING)
;               (PARSE-NATIVE (LAMBDA # #))
;               (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...))
;     (SB!IMPL::%PATHNAME-HOST SB!IMPL::X)
; 
; caught STYLE-WARNING:
;   undefined function: %PATHNAME-HOST

;     #'SB!IMPL::PARSE-LOGICAL-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-LOGICAL-NAMESTRING

;     #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-ENOUGH-NAMESTRING

;     #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-DIRECTORY

;     #'SB!IMPL::UNPARSE-LOGICAL-FILE
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-FILE

;     #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-NAMESTRING

; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST
;     (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::DIR SB!IMPL::ESCAPE-CHAR)
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-PHYSICAL-PIECE
; 
; compilation unit finished
;   Undefined functions:
;     %PATHNAME-DIRECTORY %PATHNAME-HOST PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING UNPARSE-PHYSICAL-PIECE
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/pathname.fasl-tmp written
; compilation finished in 0:00:01.998
; compiling file "/«PKGBUILDDIR»/src/code/host-pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!PRETTY")
; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/host-pprint.fasl-tmp written
; compilation finished in 0:00:00.214
; compiling file "/«PKGBUILDDIR»/src/compiler/lexenv.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV))

; file: /«PKGBUILDDIR»/src/compiler/lexenv.lisp
; in:
;      DEF!STRUCT (LEXENV (:PRINT-FUNCTION PRINT-LEXENV)
;              (:CONSTRUCTOR MAKE-NULL-LEXENV NIL)
;              (:CONSTRUCTOR INTERNAL-MAKE-LEXENV
;               (FUNS VARS BLOCKS TAGS TYPE-RESTRICTIONS ...)))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LEXENV (:PRINT-FUNCTION SB!C::PRINT-LEXENV)
;       (:CONSTRUCTOR SB!KERNEL:MAKE-NULL-LEXENV NIL)
;       (:CONSTRUCTOR SB!C::INTERNAL-MAKE-LEXENV
;        (SB!C::FUNS SB!C::VARS SB!C::BLOCKS SB!C::TAGS SB!C::TYPE-RESTRICTIONS
;         LAMBDA SB!C::CLEANUP SB!C::HANDLED-CONDITIONS
;         SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::%POLICY SB!C::USER-DATA)))
;      (SB!C::FUNS NIL :TYPE LIST) (SB!C::VARS NIL :TYPE LIST)
;      (SB!C::BLOCKS NIL :TYPE LIST) (SB!C::TAGS NIL :TYPE LIST)
;      (SB!C::TYPE-RESTRICTIONS NIL :TYPE LIST) (LAMBDA ()) (SB!C::CLEANUP NIL)
;      (SB!C::HANDLED-CONDITIONS SB!C::*HANDLED-CONDITIONS*)
;      (SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::*DISABLED-PACKAGE-LOCKS*)
;      (SB!C::%POLICY NIL :TYPE (OR NULL SB!C:POLICY)) ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:LEXENV {53BCF2C9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51B31601}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::LEXENV-FUNS could not be inlined because the
;   structure definition for SB!KERNEL:LEXENV was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (LEXENV # ...) ...)
; compiling (DEFUN LEXENV-POLICY ...)
; compiling (DEFUN NULL-LEXENV-P ...)
; compiling (DEFUN COERCE-TO-LEXENV ...)
; compiling (DEFUN PRINT-LEXENV ...)

; file: /«PKGBUILDDIR»/src/compiler/lexenv.lisp
; in: DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE
;     (SB!INT:COLLECT ((SB!C::DECLS) (SB!C::MACROS) (SB!C::SYMBOL-MACROS))
;       (COND
;        ((OR (SB!C::LEXENV-BLOCKS SB!KERNEL:LEXENV)
;             (SB!C::LEXENV-TAGS SB!KERNEL:LEXENV))
;         NIL)
;        ((AND (NULL SB!C::VARS) (NULL SB!C::FUNS))
;         (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL #)))
;        ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL)
;        ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL)
;        (T (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV # # # #)))))
; --> MACROLET 
; ==>
;   (LET* ((#:DECLS-N-VALUE-282 NIL)
;          #:DECLS-N-TAIL-283
;          (#:MACROS-N-VALUE-284 NIL)
;          #:MACROS-N-TAIL-285
;          (#:SYMBOL-MACROS-N-VALUE-286 NIL)
;          #:SYMBOL-MACROS-N-TAIL-287)
;     (COND
;      ((OR (SB!C::LEXENV-BLOCKS SB!KERNEL:LEXENV)
;           (SB!C::LEXENV-TAGS SB!KERNEL:LEXENV))
;       NIL)
;      ((AND (NULL SB!C::VARS) (NULL SB!C::FUNS))
;       (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL #)))
;      ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL)
;      ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL)
;      (T (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV # # # #)))))
; 
; caught STYLE-WARNING:
;   The variable #:DECLS-N-TAIL-283 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable #:MACROS-N-TAIL-285 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable #:SYMBOL-MACROS-N-TAIL-287 is defined but never used.

;     (DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((SB!C::X (CAR #:N-LIST298)))
;     (SETQ #:N-LIST298 (CDR #:N-LIST298))
;     (TAGBODY (RETURN T)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.

;     (DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((SB!C::X (CAR #:N-LIST300)))
;     (SETQ #:N-LIST300 (CDR #:N-LIST300))
;     (TAGBODY (RETURN T)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions
; compiling (DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/lexenv.fasl-tmp written
; compilation finished in 0:00:00.598
; compiling file "/«PKGBUILDDIR»/src/compiler/fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN COERCE ...)
; compiling (DEFKNOWN LIST-TO-VECTOR* ...)
; compiling (DEFKNOWN VECTOR-TO-VECTOR* ...)
; compiling (DEFKNOWN TYPE-OF ...)
; compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...)
; compiling (DEFKNOWN TYPEP ...)
; compiling (DEFKNOWN SUBTYPEP ...)
; compiling (DEFKNOWN (NULL SYMBOLP ...) ...)
; compiling (DEFKNOWN (EQ EQL ...) ...)
; compiling (DEFKNOWN (EQUAL EQUALP) ...)
; compiling (DEFKNOWN FIXNUM-MOD-P ...)
; compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...)
; compiling (DEFKNOWN CLASSOID-NAME ...)
; compiling (DEFKNOWN FIND-CLASSOID ...)
; compiling (DEFKNOWN CLASSOID-OF ...)
; compiling (DEFKNOWN LAYOUT-OF ...)
; compiling (DEFKNOWN COPY-STRUCTURE ...)
; compiling (DEFKNOWN (SYMBOL-VALUE) ...)
; compiling (DEFKNOWN ABOUT-TO-MODIFY-SYMBOL-VALUE ...)
; compiling (DEFKNOWN (SYMBOL-FUNCTION) ...)
; compiling (DEFKNOWN BOUNDP ...)
; compiling (DEFKNOWN FBOUNDP ...)
; compiling (DEFKNOWN SPECIAL-OPERATOR-P ...)
; compiling (DEFKNOWN SET ...)
; compiling (DEFKNOWN FDEFINITION ...)
; compiling (DEFKNOWN %SET-FDEFINITION ...)
; compiling (DEFKNOWN MAKUNBOUND ...)
; compiling (DEFKNOWN FMAKUNBOUND ...)
; compiling (DEFKNOWN APPLY ...)
; compiling (DEFKNOWN FUNCALL ...)
; compiling (DEFKNOWN (MAPCAR MAPLIST) ...)
; compiling (DEFKNOWN (MAPCAN MAPCON) ...)
; compiling (DEFKNOWN (MAPC MAPL) ...)
; compiling (DEFKNOWN VALUES ...)
; compiling (DEFKNOWN VALUES-LIST ...)
; compiling (DEFKNOWN MACRO-FUNCTION ...)
; compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...)
; compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...)
; compiling (DEFKNOWN PROCLAIM ...)
; compiling (DEFKNOWN GET ...)
; compiling (DEFKNOWN SB!IMPL::GET3 ...)
; compiling (DEFKNOWN REMPROP ...)
; compiling (DEFKNOWN SYMBOL-PLIST ...)
; compiling (DEFKNOWN GETF ...)
; compiling (DEFKNOWN GET-PROPERTIES ...)
; compiling (DEFKNOWN SYMBOL-NAME ...)
; compiling (DEFKNOWN MAKE-SYMBOL ...)
; compiling (DEFKNOWN %MAKE-SYMBOL ...)
; compiling (DEFKNOWN COPY-SYMBOL ...)
; compiling (DEFKNOWN GENSYM ...)
; compiling (DEFKNOWN SYMBOL-PACKAGE ...)
; compiling (DEFKNOWN KEYWORDP ...)
; compiling (DEFKNOWN GENTEMP ...)
; compiling (DEFKNOWN MAKE-PACKAGE ...)
; compiling (DEFKNOWN FIND-PACKAGE ...)
; compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; compiling (DEFKNOWN PACKAGE-NAME ...)
; compiling (DEFKNOWN PACKAGE-NICKNAMES ...)
; compiling (DEFKNOWN RENAME-PACKAGE ...)
; compiling (DEFKNOWN PACKAGE-USE-LIST ...)
; compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...)
; compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...)
; compiling (DEFKNOWN LIST-ALL-PACKAGES ...)
; compiling (DEFKNOWN INTERN ...)
; compiling (DEFKNOWN FIND-SYMBOL ...)
; compiling (DEFKNOWN (EXPORT IMPORT) ...)
; compiling (DEFKNOWN UNINTERN ...)
; compiling (DEFKNOWN UNEXPORT ...)
; compiling (DEFKNOWN SHADOWING-IMPORT ...)
; compiling (DEFKNOWN SHADOW ...)
; compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...)
; compiling (DEFKNOWN FIND-ALL-SYMBOLS ...)
; compiling (DEFKNOWN PACKAGE-ITER-STEP ...)
; compiling (DEFKNOWN ZEROP ...)
; compiling (DEFKNOWN (PLUSP MINUSP) ...)
; compiling (DEFKNOWN (ODDP EVENP) ...)
; compiling (DEFKNOWN (=) ...)
; compiling (DEFKNOWN (/=) ...)
; compiling (DEFKNOWN (< > ...) ...)
; compiling (DEFKNOWN (MAX MIN) ...)
; compiling (DEFKNOWN (+ *) ...)
; compiling (DEFKNOWN - ...)
; compiling (DEFKNOWN / ...)
; compiling (DEFKNOWN (1+ 1-) ...)
; compiling (DEFKNOWN CONJUGATE ...)
; compiling (DEFKNOWN GCD ...)
; compiling (DEFKNOWN LCM ...)
; compiling (DEFKNOWN EXP ...)
; compiling (DEFKNOWN EXPT ...)
; compiling (DEFKNOWN LOG ...)
; compiling (DEFKNOWN SQRT ...)
; compiling (DEFKNOWN ISQRT ...)
; compiling (DEFKNOWN (ABS PHASE ...) ...)
; compiling (DEFKNOWN CIS ...)
; compiling (DEFKNOWN (SIN COS) ...)
; compiling (DEFKNOWN ATAN ...)
; compiling (DEFKNOWN (TAN SINH ...) ...)
; compiling (DEFKNOWN (ASIN ACOS ...) ...)
; compiling (DEFKNOWN FLOAT ...)
; compiling (DEFKNOWN (RATIONAL) ...)
; compiling (DEFKNOWN (RATIONALIZE) ...)
; compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...)
; compiling (DEFKNOWN (FLOOR CEILING ...) ...)
; compiling (DEFKNOWN TRUNCATE ...)
; compiling (DEFKNOWN %MULTIPLY-HIGH ...)
; compiling (DEFKNOWN (MOD REM) ...)
; compiling (DEFKNOWN (FFLOOR FCEILING ...) ...)
; compiling (DEFKNOWN DECODE-FLOAT ...)
; compiling (DEFKNOWN SCALE-FLOAT ...)
; compiling (DEFKNOWN FLOAT-RADIX ...)
; compiling (DEFKNOWN FLOAT-SIGN ...)
; compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...)
; compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...)
; compiling (DEFKNOWN COMPLEX ...)
; compiling (DEFKNOWN (REALPART IMAGPART) ...)
; compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...)
; compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...)
; compiling (DEFKNOWN BOOLE ...)
; compiling (DEFKNOWN LOGNOT ...)
; compiling (DEFKNOWN LOGTEST ...)
; compiling (DEFKNOWN LOGBITP ...)
; compiling (DEFKNOWN ASH ...)
; compiling (DEFKNOWN %ASH/RIGHT ...)
; compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...)
; compiling (DEFKNOWN BYTE ...)
; compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...)
; compiling (DEFKNOWN LDB ...)
; compiling (DEFKNOWN LDB-TEST ...)
; compiling (DEFKNOWN MASK-FIELD ...)
; compiling (DEFKNOWN DPB ...)
; compiling (DEFKNOWN DEPOSIT-FIELD ...)
; compiling (DEFKNOWN RANDOM ...)
; compiling (DEFKNOWN MAKE-RANDOM-STATE ...)
; compiling (DEFKNOWN SEED-RANDOM-STATE ...)
; compiling (DEFKNOWN RANDOM-STATE-P ...)
; compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...)
; compiling (DEFKNOWN DIGIT-CHAR-P ...)
; compiling (DEFKNOWN (CHAR=) ...)
; compiling (DEFKNOWN (CHAR/= CHAR< ...) ...)
; compiling (DEFKNOWN (CHAR-EQUAL CHAR-LESSP ...) ...)
; compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...)
; compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...)
; compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...)
; compiling (DEFKNOWN CHARACTER ...)
; compiling (DEFKNOWN CHAR-CODE ...)
; compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...)
; compiling (DEFKNOWN DIGIT-CHAR ...)
; compiling (DEFKNOWN CHAR-INT ...)
; compiling (DEFKNOWN CHAR-NAME ...)
; compiling (DEFKNOWN NAME-CHAR ...)
; compiling (DEFKNOWN CODE-CHAR ...)
; compiling (DEFKNOWN ELT ...)
; compiling (DEFKNOWN SUBSEQ ...)
; compiling (DEFKNOWN COPY-SEQ ...)
; compiling (DEFKNOWN LENGTH ...)
; compiling (DEFKNOWN REVERSE ...)
; compiling (DEFKNOWN NREVERSE ...)
; compiling (DEFKNOWN MAKE-SEQUENCE ...)
; compiling (DEFKNOWN CONCATENATE ...)
; compiling (DEFKNOWN %CONCATENATE-TO-STRING ...)
; compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...)
; compiling (DEFKNOWN (MAP %MAP) ...)
; compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...)
; compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...)
; compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...)
; compiling (DEFKNOWN MAP-INTO ...)
; compiling (DEFKNOWN (SB!IMPL::VECTOR-MAP-INTO/SIMPLE-ARRAY-NIL SB!IMPL::VECTOR-MAP-INTO/SIMPLE-BASE-STRING ...) ...)
; compiling (DEFKNOWN SOME ...)
; compiling (DEFKNOWN (EVERY NOTANY ...) ...)
; compiling (DEFKNOWN REDUCE ...)
; compiling (DEFKNOWN FILL ...)
; compiling (DEFKNOWN REPLACE ...)
; compiling (DEFKNOWN REMOVE ...)
; compiling (DEFKNOWN SUBSTITUTE ...)
; compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...)
; compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...)
; compiling (DEFKNOWN DELETE ...)
; compiling (DEFKNOWN NSUBSTITUTE ...)
; compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...)
; compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...)
; compiling (DEFKNOWN REMOVE-DUPLICATES ...)
; compiling (DEFKNOWN DELETE-DUPLICATES ...)
; compiling (DEFKNOWN FIND ...)
; compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...)
; compiling (DEFKNOWN POSITION ...)
; compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...)
; compiling (DEFKNOWN COUNT ...)
; compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...)
; compiling (DEFKNOWN (MISMATCH SEARCH) ...)
; compiling (DEFKNOWN (STABLE-SORT SORT) ...)
; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...)
; compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...)
; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...)
; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...)
; compiling (DEFKNOWN MERGE ...)
; compiling (DEFKNOWN READ-SEQUENCE ...)
; compiling (DEFKNOWN WRITE-SEQUENCE ...)
; compiling (DEFKNOWN (CAR CDR ...) ...)
; compiling (DEFKNOWN (CAAR CADR ...) ...)
; compiling (DEFKNOWN CONS ...)
; compiling (DEFKNOWN TREE-EQUAL ...)
; compiling (DEFKNOWN ENDP ...)
; compiling (DEFKNOWN LIST-LENGTH ...)
; compiling (DEFKNOWN (NTH FAST-&REST-NTH) ...)
; compiling (DEFKNOWN NTHCDR ...)
; compiling (DEFKNOWN LAST ...)
; compiling (DEFKNOWN %LAST0 ...)
; compiling (DEFKNOWN %LAST1 ...)
; compiling (DEFKNOWN %LASTN/FIXNUM ...)
; compiling (DEFKNOWN %LASTN/BIGNUM ...)
; compiling (DEFKNOWN LIST ...)
; compiling (DEFKNOWN LIST* ...)
; compiling (DEFKNOWN MAKE-LIST ...)
; compiling (DEFKNOWN SB!IMPL::|List| ...)
; compiling (DEFKNOWN SB!IMPL::|List*| ...)
; compiling (DEFKNOWN SB!IMPL::|Append| ...)
; compiling (DEFKNOWN SB!IMPL::|Vector| ...)
; compiling (DEFKNOWN APPEND ...)
; compiling (DEFKNOWN SB!IMPL::APPEND2 ...)
; compiling (DEFKNOWN COPY-LIST ...)
; compiling (DEFKNOWN COPY-ALIST ...)
; compiling (DEFKNOWN COPY-TREE ...)
; compiling (DEFKNOWN REVAPPEND ...)
; compiling (DEFKNOWN NCONC ...)
; compiling (DEFKNOWN NRECONC ...)
; compiling (DEFKNOWN BUTLAST ...)
; compiling (DEFKNOWN NBUTLAST ...)
; compiling (DEFKNOWN LDIFF ...)
; compiling (DEFKNOWN (RPLACA RPLACD) ...)
; compiling (DEFKNOWN SUBST ...)
; compiling (DEFKNOWN NSUBST ...)
; compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...)
; compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...)
; compiling (DEFKNOWN SUBLIS ...)
; compiling (DEFKNOWN NSUBLIS ...)
; compiling (DEFKNOWN MEMBER ...)
; compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...)
; compiling (DEFKNOWN TAILP ...)
; compiling (DEFKNOWN ADJOIN ...)
; compiling (DEFKNOWN (UNION INTERSECTION ...) ...)
; compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...)
; compiling (DEFKNOWN SUBSETP ...)
; compiling (DEFKNOWN ACONS ...)
; compiling (DEFKNOWN PAIRLIS ...)
; compiling (DEFKNOWN (RASSOC ASSOC) ...)
; compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...)
; compiling (DEFKNOWN (MEMQ ASSQ) ...)
; compiling (DEFKNOWN DELQ ...)
; compiling (DEFKNOWN MAKE-HASH-TABLE ...)
; compiling (DEFKNOWN HASH-TABLE-P ...)
; compiling (DEFKNOWN GETHASH ...)
; compiling (DEFKNOWN SB!IMPL::GETHASH3 ...)
; compiling (DEFKNOWN %PUTHASH ...)
; compiling (DEFKNOWN REMHASH ...)
; compiling (DEFKNOWN MAPHASH ...)
; compiling (DEFKNOWN CLRHASH ...)
; compiling (DEFKNOWN HASH-TABLE-COUNT ...)
; compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...)
; compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...)
; compiling (DEFKNOWN HASH-TABLE-SIZE ...)
; compiling (DEFKNOWN HASH-TABLE-TEST ...)
; compiling (DEFKNOWN SXHASH ...)
; compiling (DEFKNOWN PSXHASH ...)
; compiling (DEFKNOWN HASH-TABLE-EQUALP ...)
; compiling (DEFKNOWN MAKE-ARRAY ...)
; compiling (DEFKNOWN %MAKE-ARRAY ...)
; compiling (DEFKNOWN SB!IMPL::FILL-DATA-VECTOR ...)
; compiling (DEFKNOWN VECTOR ...)
; compiling (DEFKNOWN AREF ...)
; compiling (DEFKNOWN ROW-MAJOR-AREF ...)
; compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...)
; compiling (DEFKNOWN ARRAY-RANK ...)
; compiling (DEFKNOWN ARRAY-DIMENSION ...)
; compiling (DEFKNOWN ARRAY-DIMENSIONS ...)
; compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...)
; compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...)
; compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...)
; compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...)
; compiling (DEFKNOWN SVREF ...)
; compiling (DEFKNOWN BIT ...)
; compiling (DEFKNOWN SBIT ...)
; compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...)
; compiling (DEFKNOWN BIT-NOT ...)
; compiling (DEFKNOWN BIT-VECTOR-= ...)
; compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...)
; compiling (DEFKNOWN FILL-POINTER ...)
; compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...)
; compiling (DEFKNOWN VECTOR-PUSH ...)
; compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...)
; compiling (DEFKNOWN VECTOR-POP ...)
; compiling (DEFKNOWN ADJUST-ARRAY ...)
; compiling (DEFKNOWN CHAR ...)
; compiling (DEFKNOWN SCHAR ...)
; compiling (DEFKNOWN (STRING= STRING-EQUAL) ...)
; compiling (DEFKNOWN (STRING< STRING> ...) ...)
; compiling (DEFKNOWN MAKE-STRING ...)
; compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...)
; compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...)
; compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...)
; compiling (DEFKNOWN STRING ...)
; compiling (DEFKNOWN (STRING<* STRING>* ...) ...)
; compiling (DEFKNOWN STRING=* ...)
; compiling (DEFKNOWN EVAL ...)
; compiling (DEFKNOWN CONSTANTP ...)
; compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...)
; compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...)
; compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...)
; compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...)
; compiling (DEFKNOWN MAKE-ECHO-STREAM ...)
; compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...)
; compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...)
; compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...)
; compiling (DEFKNOWN STREAMP ...)
; compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...)
; compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...)
; compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...)
; compiling (DEFKNOWN OPEN-STREAM-P ...)
; compiling (DEFKNOWN CLOSE ...)
; compiling (DEFKNOWN FILE-STRING-LENGTH ...)
; compiling (DEFKNOWN COPY-READTABLE ...)
; compiling (DEFKNOWN READTABLEP ...)
; compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...)
; compiling (DEFKNOWN SET-MACRO-CHARACTER ...)
; compiling (DEFKNOWN GET-MACRO-CHARACTER ...)
; compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...)
; compiling (DEFKNOWN PPRINT-DISPATCH ...)
; compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...)
; compiling (DEFKNOWN PPRINT-TABULAR ...)
; compiling (DEFKNOWN PPRINT-INDENT ...)
; compiling (DEFKNOWN PPRINT-NEWLINE ...)
; compiling (DEFKNOWN PPRINT-TAB ...)
; compiling (DEFKNOWN SET-PPRINT-DISPATCH ...)
; compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...)
; compiling (DEFKNOWN READ-CHAR ...)
; compiling (DEFKNOWN READ-CHAR-NO-HANG ...)
; compiling (DEFKNOWN READ-DELIMITED-LIST ...)
; compiling (DEFKNOWN READ-LINE ...)
; compiling (DEFKNOWN UNREAD-CHAR ...)
; compiling (DEFKNOWN PEEK-CHAR ...)
; compiling (DEFKNOWN LISTEN ...)
; compiling (DEFKNOWN CLEAR-INPUT ...)
; compiling (DEFKNOWN READ-FROM-STRING ...)
; compiling (DEFKNOWN PARSE-INTEGER ...)
; compiling (DEFKNOWN READ-BYTE ...)
; compiling (DEFKNOWN (PRIN1 PRINT ...) ...)
; compiling (DEFKNOWN OUTPUT-OBJECT ...)
; compiling (DEFKNOWN (PPRINT) ...)
; compiling (DEFFROB WRITE ...)
; compiling (DEFFROB WRITE-TO-STRING ...)
; compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...)
; compiling (DEFKNOWN SB!IMPL::STRINGIFY-OBJECT ...)
; compiling (DEFKNOWN WRITE-CHAR ...)
; compiling (DEFKNOWN (WRITE-STRING WRITE-LINE) ...)
; compiling (DEFKNOWN (TERPRI FINISH-OUTPUT ...) ...)
; compiling (DEFKNOWN FRESH-LINE ...)
; compiling (DEFKNOWN WRITE-BYTE ...)
; compiling (DEFKNOWN FORMAT ...)
; compiling (DEFKNOWN SB!FORMAT::ARGS-EXHAUSTED ...)
; compiling (DEFKNOWN (Y-OR-N-P YES-OR-NO-P) ...)
; compiling (DEFKNOWN WILD-PATHNAME-P ...)
; compiling (DEFKNOWN PATHNAME-MATCH-P ...)
; compiling (DEFKNOWN TRANSLATE-PATHNAME ...)
; compiling (DEFKNOWN LOGICAL-PATHNAME ...)
; compiling (DEFKNOWN TRANSLATE-LOGICAL-PATHNAME ...)
; compiling (DEFKNOWN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...)
; compiling (DEFKNOWN LOGICAL-PATHNAME-TRANSLATIONS ...)
; compiling (DEFKNOWN PATHNAME ...)
; compiling (DEFKNOWN TRUENAME ...)
; compiling (DEFKNOWN PARSE-NAMESTRING ...)
; compiling (DEFKNOWN MERGE-PATHNAMES ...)
; compiling (DEFKNOWN MAKE-PATHNAME ...)
; compiling (DEFKNOWN PATHNAMEP ...)
; compiling (DEFKNOWN PATHNAME-HOST ...)
; compiling (DEFKNOWN PATHNAME-DEVICE ...)
; compiling (DEFKNOWN PATHNAME-DIRECTORY ...)
; compiling (DEFKNOWN PATHNAME-NAME ...)
; compiling (DEFKNOWN PATHNAME-TYPE ...)
; compiling (DEFKNOWN PATHNAME-VERSION ...)
; compiling (DEFKNOWN PATHNAME= ...)
; compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...)
; compiling (DEFKNOWN ENOUGH-NAMESTRING ...)
; compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...)
; compiling (DEFKNOWN OPEN ...)
; compiling (DEFKNOWN RENAME-FILE ...)
; compiling (DEFKNOWN DELETE-FILE ...)
; compiling (DEFKNOWN PROBE-FILE ...)
; compiling (DEFKNOWN FILE-WRITE-DATE ...)
; compiling (DEFKNOWN FILE-AUTHOR ...)
; compiling (DEFKNOWN FILE-POSITION ...)
; compiling (DEFKNOWN FILE-LENGTH ...)
; compiling (DEFKNOWN LOAD ...)
; compiling (DEFKNOWN DIRECTORY ...)
; compiling (DEFKNOWN ERROR ...)
; compiling (DEFKNOWN CERROR ...)
; compiling (DEFKNOWN INVALID-METHOD-ERROR ...)
; compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...)
; compiling (DEFKNOWN SIGNAL ...)
; compiling (DEFKNOWN WARN ...)
; compiling (DEFKNOWN INVOKE-DEBUGGER ...)
; compiling (DEFKNOWN BREAK ...)
; compiling (DEFKNOWN MAKE-CONDITION ...)
; compiling (DEFKNOWN COMPUTE-RESTARTS ...)
; compiling (DEFKNOWN FIND-RESTART ...)
; compiling (DEFKNOWN INVOKE-RESTART ...)
; compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...)
; compiling (DEFKNOWN RESTART-NAME ...)
; compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...)
; compiling (DEFKNOWN CONTINUE ...)
; compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...)
; compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...)
; compiling (DEFKNOWN BUG ...)
; compiling (DEFKNOWN SIMPLE-READER-ERROR ...)
; compiling (DEFKNOWN READER-EOF-ERROR ...)
; compiling (DEFKNOWN COMPILE ...)
; compiling (DEFKNOWN COMPILE-FILE ...)
; compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...)
; compiling (DEFKNOWN DISASSEMBLE ...)
; compiling (DEFKNOWN DESCRIBE ...)
; compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...)
; compiling (DEFKNOWN INSPECT ...)
; compiling (DEFKNOWN ROOM ...)
; compiling (DEFKNOWN ED ...)
; compiling (DEFKNOWN DRIBBLE ...)
; compiling (DEFKNOWN APROPOS ...)
; compiling (DEFKNOWN APROPOS-LIST ...)
; compiling (DEFKNOWN GET-DECODED-TIME ...)
; compiling (DEFKNOWN GET-UNIVERSAL-TIME ...)
; compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...)
; compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...)
; compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...)
; compiling (DEFKNOWN SLEEP ...)
; compiling (DEFKNOWN CALL-WITH-TIMING ...)
; compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...)
; compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...)
; compiling (DEFKNOWN IDENTITY ...)
; compiling (DEFKNOWN CONSTANTLY ...)
; compiling (DEFKNOWN COMPLEMENT ...)
; compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...)
; compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...)
; compiling (DEFKNOWN GET-BYTES-CONSED ...)
; compiling (DEFKNOWN MASK-SIGNED-FIELD ...)
; compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...)
; compiling (DEFKNOWN %REST-VALUES ...)
; compiling (DEFKNOWN %REST-REF ...)
; compiling (DEFKNOWN %REST-LENGTH ...)
; compiling (DEFKNOWN %REST-NULL ...)
; compiling (DEFKNOWN %REST-TRUE ...)
; compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; compiling (DEFKNOWN %TYPEP ...)
; compiling (DEFKNOWN %INSTANCE-TYPEP ...)
; compiling (DEFKNOWN %TYPEP-WRAPPER ...)
; compiling (DEFKNOWN %CLEANUP-POINT ...)
; compiling (DEFKNOWN %SPECIAL-BIND ...)
; compiling (DEFKNOWN %SPECIAL-UNBIND ...)
; compiling (DEFKNOWN %LISTIFY-REST-ARGS ...)
; compiling (DEFKNOWN %MORE-ARG-CONTEXT ...)
; compiling (DEFKNOWN %MORE-ARG ...)
; compiling (DEFKNOWN %MORE-ARG-VALUES ...)
; compiling (DEFKNOWN %ARG-COUNT-ERROR ...)
; compiling (DEFKNOWN %UNKNOWN-VALUES ...)
; compiling (DEFKNOWN %CATCH ...)
; compiling (DEFKNOWN %UNWIND-PROTECT ...)
; compiling (DEFKNOWN (%CATCH-BREAKUP %UNWIND-PROTECT-BREAKUP) ...)
; compiling (DEFKNOWN %LEXICAL-EXIT-BREAKUP ...)
; compiling (DEFKNOWN %CONTINUE-UNWIND ...)
; compiling (DEFKNOWN %THROW ...)
; compiling (DEFKNOWN %NLX-ENTRY ...)
; compiling (DEFKNOWN %%PRIMITIVE ...)
; compiling (DEFKNOWN %POP-VALUES ...)
; compiling (DEFKNOWN %NIP-VALUES ...)
; compiling (DEFKNOWN %DUMMY-DX-ALLOC ...)
; compiling (DEFKNOWN %ALLOCATE-CLOSURES ...)
; compiling (DEFKNOWN %TYPE-CHECK-ERROR ...)
; compiling (DEFKNOWN %TYPE-CHECK-ERROR/C ...)
; compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...)
; compiling (DEFKNOWN CASE-FAILURE ...)
; compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...)
; compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...)
; compiling (DEFKNOWN (%LDB %MASK-FIELD) ...)
; compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...)
; compiling (DEFKNOWN %NEGATE ...)
; compiling (DEFKNOWN %CHECK-BOUND ...)
; compiling (DEFKNOWN DATA-VECTOR-REF ...)
; compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...)
; compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...)
; compiling (DEFKNOWN DATA-VECTOR-SET ...)
; compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFKNOWN %CALLER-FRAME ...)
; compiling (DEFKNOWN %CALLER-PC ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...)
; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...)
; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...)
; compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN %FIND-POSITION ...)
; compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...)
; compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...)
; compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...)
; compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...)
; compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...)
; compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...)
; compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...)
; compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...)
; compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...)
; compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...)
; compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...)
; compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; compiling (DEFKNOWN ARG-COUNT-ERROR ...)
; compiling (DEFKNOWN (SETF AREF) ...)
; compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...)
; compiling (DEFKNOWN (%RPLACA %RPLACD) ...)
; compiling (DEFKNOWN %PUT ...)
; compiling (DEFKNOWN %SETELT ...)
; compiling (DEFKNOWN %SVSET ...)
; compiling (DEFKNOWN (SETF BIT) ...)
; compiling (DEFKNOWN (SETF SBIT) ...)
; compiling (DEFKNOWN %CHARSET ...)
; compiling (DEFKNOWN %SCHARSET ...)
; compiling (DEFKNOWN %SET-SYMBOL-VALUE ...)
; compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...)
; compiling (DEFKNOWN %SET-SYMBOL-PLIST ...)
; compiling (DEFKNOWN %SETNTH ...)
; compiling (DEFKNOWN %SET-FILL-POINTER ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFKNOWN %FUN-NAME ...)
; compiling (DEFKNOWN (SETF %FUN-NAME) ...)
; compiling (DEFKNOWN POLICY-QUALITY ...)
; compiling (DEFKNOWN COMPILER-ERROR ...)
; compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...)
; compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...)
; compiling (DEFKNOWN STYLE-WARN ...)
; compiling (DEFKNOWN COERCE-TO-CONDITION ...)
; compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...)
; compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...)
; compiling (DEFKNOWN SET-INFO-VALUE ...)
; compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%READ-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...)
; compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; compiling (DEFKNOWN (%ATOMIC-DEC-SYMBOL-GLOBAL-VALUE %ATOMIC-INC-SYMBOL-GLOBAL-VALUE) ...)
; compiling (DEFKNOWN (%ATOMIC-DEC-CAR %ATOMIC-INC-CAR ...) ...)
; compiling (DEFKNOWN SPIN-LOOP-HINT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fndb.fasl-tmp written
; compilation finished in 0:00:00.570
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...)
; compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...)
; compiling (DEFKNOWN %OTHER-POINTER-P ...)
; compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...)
; compiling (DEFKNOWN POINTER-HASH ...)
; compiling (DEFKNOWN %SP-STRING-COMPARE ...)
; compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...)
; compiling (DEFKNOWN (%SXHASH-SIMPLE-SUBSTRING COMPUTE-SYMBOL-HASH) ...)
; compiling (DEFKNOWN SYMBOL-HASH ...)
; compiling (DEFKNOWN %SET-SYMBOL-HASH ...)
; compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...)
; compiling (DEFKNOWN INITIALIZE-VECTOR ...)
; compiling (DEFKNOWN VECTOR-FILL* ...)
; compiling (DEFKNOWN VECTOR-LENGTH ...)
; compiling (DEFKNOWN VECTOR-SAP ...)
; compiling (DEFKNOWN LOWTAG-OF ...)
; compiling (DEFKNOWN WIDETAG-OF ...)
; compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...)
; compiling (DEFKNOWN SET-HEADER-DATA ...)
; compiling (DEFKNOWN %ARRAY-DIMENSION ...)
; compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...)
; compiling (DEFKNOWN %ARRAY-RANK ...)
; compiling (DEFKNOWN %MAKE-INSTANCE ...)
; compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFKNOWN %INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %INSTANCE-LENGTH ...)
; compiling (DEFKNOWN %INSTANCE-REF ...)
; compiling (DEFKNOWN %INSTANCE-SET ...)
; compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %VECTOR-RAW-BITS ...)
; compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...)
; compiling (DEFKNOWN ALLOCATE-VECTOR ...)
; compiling (DEFKNOWN MAKE-ARRAY-HEADER ...)
; compiling (DEFKNOWN MAKE-WEAK-POINTER ...)
; compiling (DEFKNOWN %MAKE-COMPLEX ...)
; compiling (DEFKNOWN %MAKE-RATIO ...)
; compiling (DEFKNOWN MAKE-VALUE-CELL ...)
; compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...)
; compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...)
; compiling (DEFKNOWN CURRENT-SP ...)
; compiling (DEFKNOWN CURRENT-FP ...)
; compiling (DEFKNOWN STACK-REF ...)
; compiling (DEFKNOWN %SET-STACK-REF ...)
; compiling (DEFKNOWN LRA-CODE-HEADER ...)
; compiling (DEFKNOWN FUN-CODE-HEADER ...)
; compiling (DEFKNOWN %MAKE-LISP-OBJ ...)
; compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...)
; compiling (DEFKNOWN FUN-WORD-OFFSET ...)
; compiling (DEFKNOWN WORD-LOGICAL-NOT ...)
; compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...)
; compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...)
; compiling (DEFKNOWN %ALLOCATE-BIGNUM ...)
; compiling (DEFKNOWN %BIGNUM-LENGTH ...)
; compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...)
; compiling (DEFKNOWN %BIGNUM-REF ...)
; compiling (DEFKNOWN %BIGNUM-SET ...)
; compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...)
; compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...)
; compiling (DEFKNOWN %MULTIPLY-AND-ADD ...)
; compiling (DEFKNOWN %MULTIPLY ...)
; compiling (DEFKNOWN %LOGNOT ...)
; compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...)
; compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...)
; compiling (DEFKNOWN %BIGFLOOR ...)
; compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...)
; compiling (DEFKNOWN (%ASHL %ASHR ...) ...)
; compiling (DEFINE-KNOWN-COPIERS)
; compiling (DEFKNOWN %BYTE-BLT ...)
; compiling (DEFKNOWN CODE-INSTRUCTIONS ...)
; compiling (DEFKNOWN CODE-HEADER-REF ...)
; compiling (DEFKNOWN CODE-HEADER-SET ...)
; compiling (DEFKNOWN FUN-SUBTYPE ...)
; compiling (DEFKNOWN (#) ...)
; compiling (DEFKNOWN MAKE-FDEFN ...)
; compiling (DEFKNOWN FDEFN-P ...)
; compiling (DEFKNOWN FDEFN-NAME ...)
; compiling (DEFKNOWN FDEFN-FUN ...)
; compiling (DEFKNOWN (SETF FDEFN-FUN) ...)
; compiling (DEFKNOWN FDEFN-MAKUNBOUND ...)
; compiling (DEFKNOWN %SIMPLE-FUN-SELF ...)
; compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...)
; compiling (DEFKNOWN %CLOSURE-FUN ...)
; compiling (DEFKNOWN %CLOSURE-INDEX-REF ...)
; compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...)
; compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-fndb.fasl-tmp written
; compilation finished in 0:00:00.198
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (FROB)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/late-objdef.fasl-tmp written
; compilation finished in 0:00:00.032
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/interr.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...)
; compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...)
; compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/interr.fasl-tmp written
; compilation finished in 0:00:00.115
; compiling file "/«PKGBUILDDIR»/src/compiler/bit-util.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (INLINE CLEAR-BIT-VECTOR ...))
; compiling (DEFUN CLEAR-BIT-VECTOR ...)
; compiling (DEFUN SET-BIT-VECTOR ...)
; compiling (DEFUN BIT-VECTOR-REPLACE ...)
; compiling (DEFUN BIT-VECTOR-COPY ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/bit-util.fasl-tmp written
; compilation finished in 0:00:00.233
; compiling file "/«PKGBUILDDIR»/src/compiler/early-assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!ASSEM")
; compiling (DEF!CONSTANT ASSEMBLY-UNIT-BITS ...)
; compiling (DEF!CONSTANT ASSEMBLY-UNIT-MASK ...)
; compiling (DEF!TYPE ASSEMBLY-UNIT ...)
; compiling (DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT ...)
; compiling (DEF!CONSTANT MAX-ALIGNMENT ...)
; compiling (DEF!TYPE ALIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-assem.fasl-tmp written
; compilation finished in 0:00:00.123
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/core.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFSTRUCT (CORE-OBJECT # ...) ...)
; compiling (DEFUN NOTE-FUN ...)
; compiling (DEFUN DO-CORE-FIXUPS ...)
; compiling (DEFUN REFERENCE-CORE-FUN ...)
; compiling (DEFUN CORE-CALL-TOPLEVEL-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/core.lisp
; in: DEFUN FIX-CORE-SOURCE-INFO
;     (SETF (SB!C::DEBUG-INFO-SOURCE SB!INT:INFO) SB!C::SOURCE)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-INFO-SOURCE) #:NEW150 #:INFO149)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF DEBUG-INFO-SOURCE)

; in: DEFUN REFERENCE-CORE-FUN
;     (SETF (SB!KERNEL:CODE-HEADER-REF SB!C::CODE-OBJ SB!C::I) SB!C::FOUND)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET SB!C::CODE-OBJ SB!C::I SB!C::FOUND)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: DEFUN NOTE-FUN
;     (SETF (SB!KERNEL:CODE-HEADER-REF (CAR SB!C::PATCH)
;            (THE SB!INT:INDEX (CDR SB!C::PATCH)))
;             FUNCTION)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET (CAR SB!C::PATCH)
;    (THE SB!INT:INDEX (CDR SB!C::PATCH)) FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: DEFUN FIX-CORE-SOURCE-INFO
;     (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: DEBUG-SOURCE-FOR-INFO

; in: DEFUN DO-CORE-FIXUPS
;     (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-SYMBOL-TLS-INDEX

;     (SB!VM:FIXUP-CODE-OBJECT SB!C::CODE POSITION SB!C::VALUE SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

;     (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-FLAVOR

;     (SB!C:FIXUP-NAME SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NAME

;     (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-FIXUP

;     (SB!C:FIXUP-NOTE-KIND SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-KIND

;     (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-POSITION

;     (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FOREIGN-SYMBOL-ADDRESS
; 
; compilation unit finished
;   Undefined functions:
;     (SETF DEBUG-INFO-SOURCE) CODE-HEADER-SET DEBUG-SOURCE-FOR-INFO ENSURE-SYMBOL-TLS-INDEX SB!VM:FIXUP-CODE-OBJECT FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FOREIGN-SYMBOL-ADDRESS
;   caught 12 STYLE-WARNING conditions
; compiling (DEFUN FIX-CORE-SOURCE-INFO ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/core.fasl-tmp written
; compilation finished in 0:00:00.597
; compiling file "/«PKGBUILDDIR»/src/code/thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (DEF!TYPE THREAD-NAME ...)
; compiling (DEF!STRUCT (THREAD #) ...)
; compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...)

; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DECLAIM (INLINE MAKE-MUTEX)
;     (DECLAIM (INLINE SB!THREAD:MAKE-MUTEX))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!THREAD:MAKE-MUTEX) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!THREAD:MAKE-MUTEX to be INLINE, but 5 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; compiling (DECLAIM (INLINE MAKE-MUTEX))
; compiling (DEF!STRUCT MUTEX ...)
; compiling (DECLAIM (NOTINLINE MAKE-MUTEX))
; compiling (DEFUN MUTEX-VALUE ...)
; compiling (DEFUN HOLDING-MUTEX-P ...)
; compiling (DEFSETF MUTEX-VALUE ...)
; compiling (DECLAIM (INLINE SET-MUTEX-VALUE))
; compiling (DEFUN SET-MUTEX-VALUE ...)
; compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...)
; compiling (DEFTYPE SPINLOCK ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...)
; compiling (SB-XC:DEFMACRO WITH-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEFUN CALL-WITH-MUTEX ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK ...)

; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DEF CALL-WITH-SYSTEM-MUTEX
;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM WHEN IF SETF SETQ THE 
; ==>
;   (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: GRAB-MUTEX

;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM WHEN IF SETF SETQ THE 
; ==>
;   (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: GRAB-MUTEX

; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!THREAD:GRAB-MUTEX SB!THREAD::LOCK)
; 
; caught STYLE-WARNING:
;   undefined function: GRAB-MUTEX

; 
; caught STYLE-WARNING:
;   1 more use of undefined function GRAB-MUTEX


; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK)
; 
; caught STYLE-WARNING:
;   undefined function: MUTEX-OWNER

; in: DEF CALL-WITH-SYSTEM-MUTEX
;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK WHEN IF 
; --> PROGN 
; ==>
;   (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: RELEASE-MUTEX

;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK WHEN IF 
; --> PROGN 
; ==>
;   (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: RELEASE-MUTEX

; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!THREAD:RELEASE-MUTEX SB!THREAD::LOCK)
; 
; caught STYLE-WARNING:
;   undefined function: RELEASE-MUTEX

; 
; caught STYLE-WARNING:
;   1 more use of undefined function RELEASE-MUTEX


; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING
;     (SB!SYS:WITHOUT-GCING (FUNCALL FUNCTION))
; 
; caught STYLE-WARNING:
;   undefined function: WITHOUT-GCING

; in: DEF CALL-WITH-SYSTEM-MUTEX
;     (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK FLET 
; ==>
;   (SB!SYS:WITHOUT-GCING (SB!THREAD::%CALL-WITH-SYSTEM-MUTEX))
; 
; caught STYLE-WARNING:
;   undefined function: WITHOUT-GCING
; 
; compilation unit finished
;   Undefined functions:
;     GRAB-MUTEX MUTEX-OWNER RELEASE-MUTEX WITHOUT-GCING
;   caught 12 STYLE-WARNING conditions
; compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/thread.fasl-tmp written
; compilation finished in 0:00:01.607
STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN
; compiling file "/«PKGBUILDDIR»/src/code/load.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFUN LOAD-FRESH-LINE ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN MAYBE-ANNOUNCE-LOAD
;     (FORMAT T "loading ~S~%" SB!FASL::NAME)
; ==>
;   "loading ~S~%"
; 
; note: deleting unreachable code
; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...)
; compiling (DECLAIM (INLINE READ-BYTE))
; compiling (DEFMACRO FAST-READ-U-INTEGER ...)
; compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...)
; compiling (DEFMACRO FAST-READ-S-INTEGER ...)
; compiling (DEFMACRO READ-ARG ...)
; compiling (DECLAIM (INLINE READ-BYTE-ARG ...))
; compiling (DEFUN READ-BYTE-ARG ...)
; compiling (DEFUN READ-HALFWORD-ARG ...)
; compiling (DEFUN READ-WORD-ARG ...)
; compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...)
; compiling (DECLAIM (INLINE REF-FOP-TABLE))
; compiling (DEFUN REF-FOP-TABLE ...)
; compiling (DEFUN PUSH-FOP-TABLE ...)
; compiling (DEFUN MAKE-FOP-VECTOR ...)
; compiling (DEFUN GROW-FOP-VECTOR ...)
; compiling (DEFUN NUKE-FOP-VECTOR ...)
; compiling (DECLAIM (INLINE FOP-STACK-EMPTY-P))
; compiling (DEFUN FOP-STACK-EMPTY-P ...)
; compiling (DEFUN FOP-STACK-POP-N ...)
; compiling (DEFUN PUSH-FOP-STACK ...)
; compiling (DEFINE-CONDITION INVALID-FASL ...)
; compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...)
; compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...)
; compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...)
; compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN MAYBE-SKIP-SHEBANG-LINE
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; compiling (DEFUN MAYBE-SKIP-SHEBANG-LINE ...)
; compiling (DEFUN FASL-HEADER-P ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN CHECK-FASL-HEADER
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; compiling (DEFUN CHECK-FASL-HEADER ...)
; compiling (DEFCONSTANT +2-OPERAND-FOPS+ ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN LOAD-FASL-GROUP
;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   "~&~6x : [~D,~D] ~2,'0x(~A)"
; 
; note: deleting unreachable code

;     (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!FASL::FASL-INPUT
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   SB-XC:BYTE
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "{~D~@[,~D~]}" SB!FASL::ARG1 SB!FASL::ARG2)
; ==>
;   "{~D~@[,~D~]}"
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; ==>
;   " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]"
; 
; note: deleting unreachable code

;     (EQL SB!FASL::PTR 0)
; ==>
;   SB!FASL::PTR
; 
; note: deleting unreachable code

;     (AREF SB!FASL::STACK SB!FASL::PTR)
; ==>
;   SB!FASL::STACK
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; 
; note: deleting unreachable code
; compiling (DEFUN LOAD-FASL-GROUP ...)
; compiling (DEFUN LOAD-AS-FASL ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN FASL-HEADER-P
;     (TYPEP STREAM 'SB!SYS:FD-STREAM)
; 
; caught STYLE-WARNING:
;   undefined type: FD-STREAM

;     (SB!IMPL::FD-STREAM-BIVALENT-P STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::FD-STREAM-BIVALENT-P

;     (SB!IMPL::FD-STREAM-FILE STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::FD-STREAM-FILE

; in: DEFUN CHECK-FASL-HEADER
;     (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: READ-STRING-AS-BYTES
; 
; compilation unit finished
;   Undefined type:
;     FD-STREAM
;   Undefined functions:
;     SB!IMPL::FD-STREAM-BIVALENT-P SB!IMPL::FD-STREAM-FILE READ-STRING-AS-BYTES
;   caught 4 STYLE-WARNING conditions
;   printed 11 notes
; compiling (DECLAIM (NOTINLINE READ-BYTE))

; /«PKGBUILDDIR»/obj/from-host/src/code/load.fasl-tmp written
; compilation finished in 0:00:04.372
; compiling file "/«PKGBUILDDIR»/src/code/foreign.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN EXTERN-ALIEN-NAME ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...)
; compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...)

; file: /«PKGBUILDDIR»/src/code/foreign.lisp
; in: DEFUN FOREIGN-SYMBOL-SAP
;     (SB!SYS:INT-SAP (SB!SYS:SAP-REF-WORD (SB!SYS:INT-SAP SB!ALIEN:ADDR) 0))
; 
; note: The first argument never returns a value.
; 
; note: deleting unreachable code
; compiling (DEFUN FOREIGN-SYMBOL-SAP ...)
; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL))
; compiling (DEFUN SAP-FOREIGN-SYMBOL ...)

; file: /«PKGBUILDDIR»/src/code/foreign.lisp
; in: DEFUN FIND-FOREIGN-SYMBOL-ADDRESS
;     (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
; 
; compilation unit finished
;   Undefined function:
;     FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*)

; /«PKGBUILDDIR»/obj/from-host/src/code/foreign.fasl-tmp written
; compilation finished in 0:00:00.169
; compiling file "/«PKGBUILDDIR»/src/code/fop.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFMACRO WITH-FOP-STACK ...)
; compiling (DEFMACRO !DEFINE-FOP ...)
; compiling (DEFUN !%DEFINE-FOP ...)
; compiling (DEFUN READ-STRING-AS-BYTES ...)
; compiling (DEFUN READ-BASE-STRING-AS-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN READ-STRING-AS-UNSIGNED-BYTE-32
;     (SB-XC:CODE-CHAR (SB!INT:FAST-READ-U-INTEGER 4))
; 
; note: doing unsigned word to integer coercion (cost 20)
; compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...)
; compiling (!DEFINE-FOP 137 ...)
; compiling (!DEFINE-FOP 0 ...)
; compiling (!DEFINE-FOP 1 ...)
; compiling (!DEFINE-FOP 2 ...)
; compiling (!DEFINE-FOP 3 ...)
; compiling (!DEFINE-FOP 4 ...)
; compiling (!DEFINE-FOP 66 ...)
; compiling (!DEFINE-FOP 76 ...)
; compiling (!DEFINE-FOP 48 ...)
; compiling (!DEFINE-FOP 45 ...)
; compiling (!DEFINE-FOP 68 ...)
; compiling (!DEFINE-FOP 69 ...)
; compiling (!DEFINE-FOP 64 ...)
; compiling (!DEFINE-FOP 62 ...)
; compiling (!DEFINE-FOP 63 ...)
; compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...)
; compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE))
; compiling (DEFUN AUX-FOP-INTERN ...)
; compiling (!DEFINE-FOP 80 ...)
; compiling (!DEFINE-FOP 84 ...)
; compiling (!DEFINE-FOP 240 ...)
; compiling (!DEFINE-FOP 96 ...)
; compiling (!DEFINE-FOP 104 ...)
; compiling (!DEFINE-FOP 44 ...)
; compiling (!DEFINE-FOP 156 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN LOAD-S-INTEGER
;     (ASH 1 SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &REST T).
;       etc.

;     (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a (INTEGER 1), 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 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (ASH SB-XC:BYTE SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX))
;           (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE))
;           (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)))
;           (SB!FASL::BITS 0 (+ SB!FASL::BITS 8)))
;          ((= SB!INT:INDEX 0)
;           (IF (LOGBITP 7 SB-XC:BYTE)
;               (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
;               SB!FASL::RESULT))
;       (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS)))
; --> BLOCK LET* TAGBODY SETQ SETQ 
; ==>
;   (THE FIXNUM (1- SB!INT:INDEX))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; ==>
;   (THE FIXNUM (+ SB!FASL::BITS 8))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; compiling (DEFUN LOAD-S-INTEGER ...)
; compiling (!DEFINE-FOP 36 ...)
; compiling (!DEFINE-FOP 34 ...)
; compiling (!DEFINE-FOP 35 ...)
; compiling (!DEFINE-FOP 70 ...)
; compiling (!DEFINE-FOP 71 ...)
; compiling (DEFINE-COMPLEX-FOP 72 ...)
; compiling (DEFINE-COMPLEX-FOP 73 ...)
; compiling (DEFINE-FLOAT-FOP 46 ...)
; compiling (DEFINE-FLOAT-FOP 47 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN FOP-LIST-FROM-STACK
;     (DO* ((SB!FASL::I (+ SB!FASL::PTR SB!FASL::N) (1- SB!FASL::I))
;           (SB!FASL::RES NIL
;                         (CONS (SB!FASL::FOP-STACK-REF SB!FASL::I) SB!FASL::RES)))
;          ((= SB!FASL::I SB!FASL::PTR) SB!FASL::RES)
;       (DECLARE (TYPE SB!INT:INDEX SB!FASL::I)))
; --> BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB-C::%TYPE-CHECK-ERROR/C #:G1339 'SB-KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; compiling (DEFUN FOP-LIST-FROM-STACK ...)
; compiling (!DEFINE-FOP 33 ...)
; compiling (!DEFINE-FOP 16 ...)
; compiling (FROB FOP-LIST-1 ...)
; compiling (FROB FOP-LIST-2 ...)
; compiling (FROB FOP-LIST-3 ...)
; compiling (FROB FOP-LIST-4 ...)
; compiling (FROB FOP-LIST-5 ...)
; compiling (FROB FOP-LIST-6 ...)
; compiling (FROB FOP-LIST-7 ...)
; compiling (FROB FOP-LIST-8 ...)
; compiling (FROB FOP-LIST*-1 ...)
; compiling (FROB FOP-LIST*-2 ...)
; compiling (FROB FOP-LIST*-3 ...)
; compiling (FROB FOP-LIST*-4 ...)
; compiling (FROB FOP-LIST*-5 ...)
; compiling (FROB FOP-LIST*-6 ...)
; compiling (FROB FOP-LIST*-7 ...)
; compiling (FROB FOP-LIST*-8 ...)
; compiling (!DEFINE-FOP 100 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in:
;      PROGN (!DEFINE-FOP 160
;            (FOP-CHARACTER-STRING ((:OPERANDS LENGTH)))
;          (BUG "CHARACTER-STRING FOP encountered"))
;     (SB!FASL::!DEFINE-FOP 160
;         (SB!FASL::FOP-CHARACTER-STRING ((:OPERANDS LENGTH)))
;       (SB!INT:BUG "CHARACTER-STRING FOP encountered"))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!FASL::FOP-CHARACTER-STRING
;         (SB!FASL::.FASL-INPUT. LENGTH)
;       (DECLARE (IGNORABLE SB!FASL::.FASL-INPUT.))
;       (BLOCK SB!FASL::FOP-CHARACTER-STRING
;         (MACROLET ((SB!FASL::FASL-INPUT #
;                      '#)
;                    (SB!FASL::FASL-INPUT-STREAM #
;                      '#)
;                    (SB!FASL::OPERAND-STACK #
;                      '#)
;                    (SB!FASL::SKIP-UNTIL #
;                      '#))
;           (SB!INT:BUG "CHARACTER-STRING FOP encountered"))))
; 
; caught STYLE-WARNING:
;   The variable LENGTH is defined but never used.
; compiling (!DEFINE-FOP 160 ...)
; compiling (!DEFINE-FOP 92 ...)
; compiling (!DEFINE-FOP 89 ...)
; compiling (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (!DEFINE-FOP 43 ...)
; compiling (!DEFINE-FOP 53 ...)
; compiling (!DEFINE-FOP 54 ...)
; compiling (DEFUN FOP-FUNCALL* ...)
; compiling (!DEFINE-FOP 55 ...)
; compiling (!DEFINE-FOP 56 ...)
; compiling (!DEFINE-FOP 200 ...)
; compiling (!DEFINE-FOP 201 ...)
; compiling (!DEFINE-FOP 202 ...)
; compiling (!DEFINE-FOP 204 ...)
; compiling (!DEFINE-FOP 203 ...)
; compiling (!DEFINE-FOP 224 ...)
; compiling (!DEFINE-FOP 60 ...)
; compiling (!DEFINE-FOP 65 ...)
; compiling (!DEFINE-FOP 61 ...)
; compiling (!DEFINE-FOP 174 ...)
; compiling (!DEFINE-FOP 140 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 139
;     (SB!FASL::!DEFINE-FOP 139
;         (SB!FASL::FOP-FUN-ENTRY
;          (SB!FASL::CODE-OBJECT SB!FASL::NAME SB!FASL::ARGLIST TYPE SB!INT:INFO))
;       (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE."))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MACROLET SB!FASL::WITH-FOP-STACK LET* MACROLET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (SB!FASL::CODE-OBJECT) (SB!FASL::NAME) (SB!FASL::ARGLIST)
;          (TYPE) (SB!INT:INFO)
;          &REST #:G3287)
;       (DECLARE (IGNORE #:G3287))
;       (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE."))
; 
; caught STYLE-WARNING:
;   The variable CODE-OBJECT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGLIST is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INFO is defined but never used.
; compiling (!DEFINE-FOP 139 ...)
; compiling (!DEFINE-FOP 144 ...)
; compiling (!DEFINE-FOP 145 ...)
; compiling (!DEFINE-FOP 146 ...)
; compiling (!DEFINE-FOP 147 ...)
; compiling (!DEFINE-FOP 148 ...)
; compiling (!DEFINE-FOP 149 ...)
; compiling (!DEFINE-FOP 150 ...)
; compiling (!DEFINE-FOP 151 ...)
; compiling (!DEFINE-FOP 152 ...)
; compiling (!DEFINE-FOP 153 ...)
; compiling (!DEFINE-FOP 154 ...)
; compiling (!DEFINE-FOP 155 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 65
;     (SB!KERNEL:%COERCE-NAME-TO-FUN SB!FASL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-NAME-TO-FUN

; in: !DEFINE-FOP 71
;     (SB!KERNEL:%MAKE-COMPLEX REALPART IMAGPART)
; 
; caught STYLE-WARNING:
;   undefined function: %MAKE-COMPLEX

; in: !DEFINE-FOP 48
;     (SB!KERNEL:%MAKE-INSTANCE SB!FASL::SIZE)
; 
; caught STYLE-WARNING:
;   undefined function: %MAKE-INSTANCE

; in: !DEFINE-FOP 70
;     (SB!KERNEL:%MAKE-RATIO SB!FASL::NUM SB!FASL::DEN)
; 
; caught STYLE-WARNING:
;   undefined function: %MAKE-RATIO

; in: !DEFINE-FOP 48
;     (SETF (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!FASL::RES
;            (- SB!FASL::NUNTAGGED SB!FASL::N 1))
;             (SB!FASL::FOP-STACK-REF (DECF SB!FASL::PTR)))
; ==>
;   (SB!KERNEL:%RAW-INSTANCE-SET/WORD SB!FASL::RES
;    (- SB!FASL::NUNTAGGED SB!FASL::N 1)
;    (SB!FASL::FOP-STACK-REF (DECF SB!FASL::PTR)))
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-SET/WORD

;     (SETF (SB!KERNEL:%INSTANCE-LAYOUT SB!FASL::RES) SB!KERNEL:LAYOUT)
; ==>
;   (SB!KERNEL:%SET-INSTANCE-LAYOUT SB!FASL::RES SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: %SET-INSTANCE-LAYOUT

; in: !DEFINE-FOP 174
;     (SETF (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::DEBUG-SOURCE)
;             (GET-UNIVERSAL-TIME)
;           (SB!C::DEBUG-SOURCE-CREATED SB!FASL::DEBUG-SOURCE)
;             (FILE-WRITE-DATE
;              (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE)))
; --> PROGN SETF LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-COMPILED) #:NEW3209
;                   #:DEBUG-SOURCE3208)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SB!C::DEBUG-SOURCE-COMPILED)

; ==>
;   (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-CREATED) #:NEW3211
;                   #:DEBUG-SOURCE3210)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SB!C::DEBUG-SOURCE-CREATED)

; in: !DEFINE-FOP 43
;     (SB!KERNEL:ALLOCATE-VECTOR SB!FASL::WIDETAG LENGTH SB!SYS:WORDS)
; 
; caught STYLE-WARNING:
;   undefined function: ALLOCATE-VECTOR

; in: !DEFINE-FOP 140
;     (SETF (SB!KERNEL:CODE-HEADER-REF SB!FASL::CODE SB!INT:INDEX) SB!FASL::VALUE)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET SB!FASL::CODE SB!INT:INDEX SB!FASL::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: !DEFINE-FOP 174
;     (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-SOURCE-NAMESTRING

; in: !DEFINE-FOP 146
;     (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-SYMBOL-TLS-INDEX

; in: !DEFINE-FOP 60
;     (SB!KERNEL:FIND-OR-CREATE-FDEFN SB!FASL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-OR-CREATE-FDEFN

; in: !DEFINE-FOP 148
;     (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
;      (SB!FASL::READ-WORD-ARG (SB!FASL::FASL-INPUT-STREAM)) SB!FASL::VALUE
;      SB!FASL::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

; in: !DEFINE-FOP 147
;     (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
;      (SB!FASL::READ-WORD-ARG (SB!FASL::FASL-INPUT-STREAM))
;      (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!FASL::SYM) SB!FASL::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

; in: !DEFINE-FOP 146
;     (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT
;      (SB!FASL::READ-WORD-ARG (SB!FASL::FASL-INPUT-STREAM))
;      (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL) SB!FASL::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function SB!VM:FIXUP-CODE-OBJECT


; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 149
;     (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!FASL::CODE-OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: GET-LISP-OBJ-ADDRESS

; in: DEFUN AUX-FOP-INTERN
;     (SB!INT:INTERN* SB!FASL::BUFFER SB!FASL::SIZE PACKAGE :NO-COPY T)
; 
; caught STYLE-WARNING:
;   undefined function: INTERN*

; in: !DEFINE-FOP 224
;     (SB!FASL::LOAD-CODE SB!FASL::N-BOXED-WORDS SB!FASL::N-UNBOXED-BYTES
;      SB!FASL::STACK SB!FASL::PTR (SB!FASL::FASL-INPUT-STREAM))
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-CODE

; in: !DEFINE-FOP 89
;     (SB!KERNEL:MAKE-ARRAY-HEADER SB!VM:SIMPLE-ARRAY-WIDETAG SB!FASL::RANK)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-ARRAY-HEADER

; in: !DEFINE-FOP 150
;     (SB!SYS:READ-N-BYTES (SB!FASL::FASL-INPUT-STREAM) SB!FASL::SYM 0 SB!FASL::LEN)
; 
; caught STYLE-WARNING:
;   undefined function: READ-N-BYTES

; in: !DEFINE-FOP 147
;     (SB!SYS:READ-N-BYTES (SB!FASL::FASL-INPUT-STREAM) SB!FASL::SYM 0 SB!FASL::LEN)
; 
; caught STYLE-WARNING:
;   undefined function: READ-N-BYTES

; in: !DEFINE-FOP 43
;     (SB!SYS:READ-N-BYTES (SB!FASL::FASL-INPUT-STREAM) VECTOR 0 SB!FASL::BYTES)
; 
; caught STYLE-WARNING:
;   undefined function: READ-N-BYTES

; in: !DEFINE-FOP 61
;     (SB!VM:SANCTIFY-FOR-EXECUTION SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:SANCTIFY-FOR-EXECUTION

; in: !DEFINE-FOP 89
;     (SB!KERNEL:SET-ARRAY-HEADER SB!FASL::RES SB!FASL::VEC LENGTH NIL 0
;      (SB!FASL::FOP-LIST-FROM-STACK (SB!FASL::OPERAND-STACK) SB!FASL::RANK) NIL T)
; 
; caught STYLE-WARNING:
;   undefined function: SET-ARRAY-HEADER

; in: !DEFINE-FOP 69
;     (SB!PCL::SET-SLOT-VALUE SB!FASL::OBJ SB!FASL::SLOT-NAME SB!FASL::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::SET-SLOT-VALUE

; in: !DEFINE-FOP 156
;     (HANDLER-CASE (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE PACKAGE-NAME)
;                   (SB!KERNEL:SIMPLE-PACKAGE-ERROR (SB!FASL::C)
;                    (SB!FASL::MAKE-UNDEFINED-PACKAGE :ERROR
;                     (PRINC-TO-STRING SB!FASL::C))))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL:SIMPLE-PACKAGE-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SIMPLE-PACKAGE-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SIMPLE-PACKAGE-ERROR
;   Undefined functions:
;     %COERCE-NAME-TO-FUN %MAKE-COMPLEX %MAKE-INSTANCE %MAKE-RATIO %RAW-INSTANCE-SET/WORD %SET-INSTANCE-LAYOUT (SETF SB!C::DEBUG-SOURCE-COMPILED) (SETF SB!C::DEBUG-SOURCE-CREATED) ALLOCATE-VECTOR CODE-HEADER-SET SB!C::DEBUG-SOURCE-NAMESTRING ENSURE-SYMBOL-TLS-INDEX FIND-OR-CREATE-FDEFN SB!VM:FIXUP-CODE-OBJECT GET-LISP-OBJ-ADDRESS INTERN* LOAD-CODE MAKE-ARRAY-HEADER READ-N-BYTES SB!VM:SANCTIFY-FOR-EXECUTION SET-ARRAY-HEADER SB!PCL::SET-SLOT-VALUE
;   caught 34 STYLE-WARNING conditions
;   printed 8 notes
; compiling (FROB (108 T) ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/fop.fasl-tmp written
; compilation finished in 0:00:08.360
; compiling file "/«PKGBUILDDIR»/src/compiler/ctype.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LOSSAGE-FUN*)
; compiling (DEFVAR *UNWINNAGE-FUN*)
; compiling (DEFVAR *CTYPE-TEST-FUN*)
; compiling (DEFVAR *LOSSAGE-DETECTED*)
; compiling (DEFVAR *UNWINNAGE-DETECTED*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LOSSAGE ...)
; compiling (DEFUN NOTE-UNWINNAGE ...)
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; compiling (DEFUN ALWAYS-SUBTYPEP ...)
; compiling (DEFUN VALID-FUN-USE ...)
; compiling (DEFUN CHECK-ARG-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-FIXED-AND-REST ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-KEY-ARGS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEFINITION-TYPE ...)
; compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...)
; compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-FUN-USE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VALID-APPROXIMATE-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...)
; compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...)
; compiling (DEFUN TRY-TYPE-INTERSECTIONS ...)
; compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...)
; compiling (DEFUN FIND-LAMBDA-TYPES ...)
; compiling (DEFUN ASSERT-DEFINITION-TYPE ...)
; compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...)
; compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...)
; compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...)
; compiling (DEFUN ASSERT-CALL-TYPE ...)
; compiling (DEFUN CHECK-CATCH-TAG-TYPE ...)
; compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...)

; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::ASSERT-LVAR-TYPE SB!C::LVAR SB!C::RETURNS SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-LVAR-TYPE

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN) SB!C::TYPE-RETURNS
;      SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-LVAR-TYPE

; in: DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN VALID-APPROXIMATE-TYPE
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN NOTE-FUN-USE
;     (SB!C::CONSTANT-LVAR-P SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHECK-KEY-ARGS
;     (SB!C::CONSTANT-LVAR-P SB!C::K)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHECK-ARG-TYPE
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; 
; caught STYLE-WARNING:
;   1 more use of undefined function CONSTANT-LVAR-P


; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::DERIVE-NODE-TYPE SB!C:CALL SB!C::RETURNS)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::S-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN VALID-FUN-USE
;     (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: IMMEDIATELY-USED-P

; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT)
;     (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FULL-CALL

; in: DEFUN CHECK-CATCH-TAG-TYPE
;     (SB!C::LVAR-ALL-SOURCES SB!C::TAG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-ALL-SOURCES

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-DERIVED-TYPE

; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::LVAR-HAS-SINGLE-USE-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-HAS-SINGLE-USE-P

; in: DEFUN MAP-COMBINATION-ARGS-AND-TYPES
;     (SB!C::LVAR-TYPE (SB!C::COMBINATION-FUN SB!C:CALL))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN NOTE-FUN-USE
;     (SB!C::LVAR-TYPE (CAR SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN CHECK-ARG-TYPE
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function LVAR-TYPE


; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN NOTE-FUN-USE
;     (SB!C::LVAR-VALUE SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CHECK-KEY-ARGS
;     (SB!C::LVAR-VALUE SB!C::V)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CHECK-ARG-TYPE
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function LVAR-VALUE


; file: /«PKGBUILDDIR»/src/compiler/ctype.lisp
; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: MAIN-ENTRY

; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR
; 
; compilation unit finished
;   Undefined functions:
;     ASSERT-LVAR-TYPE COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-ALL-SOURCES LVAR-DERIVED-TYPE LVAR-HAS-SINGLE-USE-P LVAR-TYPE LVAR-VALUE MAIN-ENTRY REOPTIMIZE-LVAR
;   caught 25 STYLE-WARNING conditions
; compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ctype.fasl-tmp written
; compilation finished in 0:00:03.205
; compiling file "/«PKGBUILDDIR»/src/compiler/disassem.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!DISASSEM")
; compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...)
; compiling (DEFTYPE TEXT-WIDTH ...)
; compiling (DEFTYPE ALIGNMENT ...)
; compiling (DEFTYPE OFFSET ...)
; compiling (DEFTYPE ADDRESS ...)
; compiling (DEFTYPE DISASSEM-LENGTH ...)
; compiling (DEFTYPE COLUMN ...)
; compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...)
; compiling (DEFTYPE FILTERED-VALUE-INDEX ...)
; compiling (DEFTYPE FILTERED-VALUE-VECTOR ...)
; compiling (DEFVAR *DISASSEM-INSTS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *DISASSEM-INST-SPACE* ...)
; compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...)
; compiling (DECLAIM (TYPE ALIGNMENT ...))
; compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...)
; compiling (DEFSTRUCT (FUN-CACHE # ...) ...)
; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; compiling (DECLAIM (TYPE FUN-CACHE ...))
; compiling (DECLAIM (INLINE DCHUNK-OR ...))
; compiling (DEF!CONSTANT DCHUNK-BITS ...)
; compiling (DEFTYPE DCHUNK ...)
; compiling (DEFTYPE DCHUNK-INDEX ...)
; compiling (DEF!CONSTANT DCHUNK-ZERO ...)
; compiling (DEF!CONSTANT DCHUNK-ONE ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-EXTRACT
;     (THE SB!DISASSEM:DCHUNK
;          (SB-XC:LDB SB!DISASSEM::POS (THE SB!DISASSEM:DCHUNK SB!DISASSEM::FROM)))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling (DEFUN DCHUNK-EXTRACT ...)
; compiling (DEFMACRO DCHUNK-COPY ...)
; compiling (DEFUN DCHUNK-OR ...)
; compiling (DEFUN DCHUNK-AND ...)
; compiling (DEFUN DCHUNK-CLEAR ...)
; compiling (DEFUN DCHUNK-NOT ...)
; compiling (DEFMACRO DCHUNK-ANDF ...)
; compiling (DEFMACRO DCHUNK-ORF ...)
; compiling (DEFMACRO DCHUNK-CLEARF ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-MAKE-MASK
;     (THE SB!DISASSEM:DCHUNK (SB-XC:MASK-FIELD SB!DISASSEM::POS -1))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling (DEFUN DCHUNK-MAKE-MASK ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN DCHUNK-MAKE-FIELD
;     (THE SB!DISASSEM:DCHUNK (SB-XC:DPB SB!DISASSEM::VALUE SB!DISASSEM::POS 0))
; 
; note: type assertion too complex to check:
;  (VALUES (UNSIGNED-BYTE 32) &REST T).
; compiling (DEFUN DCHUNK-MAKE-FIELD ...)
; compiling (DEFMACRO MAKE-DCHUNK ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN SAP-REF-DCHUNK
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
; 
; note: The second argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             24))
; --> + + 
; ==>
;   (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8))
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
;             48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET))
;             24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)))
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET))
;            8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)))
; 
; note: The second argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET))
;             32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET))
;             40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET))
;             48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET))
;             56))
; --> + + + + + + 
; ==>
;   (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8))
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)) 56)
; 
; note: The first argument never returns a value.
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
; 
; note: deleting unreachable code

;     (THE SB!DISASSEM:DCHUNK
;          (ECASE SB!DISASSEM::DCHUNK-BITS
;            (32
;             (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
;                 (+ # # # #)
;                 (+ # # # #)))
;            (64
;             (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
;                 (+ # # # # # # # #)
;                 (+ # # # # # # # #)))))
; 
; note: deleting unreachable code

;     (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
; ==>
;   SB!DISASSEM::BYTE-ORDER
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN SAP-REF-DCHUNK ...)
; compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...)
; compiling (DEFMACRO DCHUNK-INSERTF ...)
; compiling (DEFUN DCHUNK= ...)
; compiling (DEFMACRO DCHUNK-ZEROP ...)
; compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...)
; compiling (DEFUN DCHUNK-COUNT-BITS ...)
; compiling (DEFSTRUCT (INSTRUCTION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (INST-SPACE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...)
; compiling (DEFVAR *ARG-FORM-KINDS* ...)
; compiling (DEFSTRUCT (ARG-FORM-KIND #) ...)
; compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...)
; compiling (DEFUN FIND-ARG-FORM-PRODUCER ...)
; compiling (DEFUN FIND-ARG-FORM-CHECKER ...)
; compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...)
; compiling (DEFVAR *DISASSEM-INST-FORMATS* ...)
; compiling (DEFVAR *DISASSEM-ARG-TYPES* ...)
; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; compiling (DEFSTRUCT (ARG # ...) ...)
; compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...)
; compiling (DEFSTRUCT (FUNSTATE # ...) ...)
; compiling (DEFUN MAKE-FUNSTATE ...)
; compiling (DEFUN FUNSTATE-COMPATIBLE-P ...)
; compiling (DEFUN ARG-OR-LOSE ...)
; compiling (DEFSTRUCT (VALSRC # ...) ...)
; compiling (DEFUN MAKE-VALSRC ...)
; compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...)
; compiling (DEFUN PD-ERROR ...)
; compiling (DEFUN SELF-EVALUATING-P ...)
; compiling (DEFUN MAYBE-QUOTE ...)
; compiling (DEFUN DOESNT-NEED-WRAPPING-P ...)
; compiling (DEFUN MAKE-WRAPPER ...)
; compiling (DEFUN FILTER-OVERRIDES ...)
; compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...)
; compiling (DEFUN MUNGE-FUN-REFS ...)
; compiling (DEFUN GEN-ARGS-DEF-FORM ...)
; compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...)
; compiling (DEFUN UPDATE-ARGS-FORM ...)
; compiling (DEFUN FORMAT-OR-LOSE ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...)
; compiling (DEFUN MAKE-ARG ...)
; compiling (DEFUN COPY-ARG ...)
; compiling (DEFUN MODIFY-OR-ADD-ARG ...)
; compiling (DEFUN MODIFY-ARG ...)
; compiling (DEFMACRO ARG-ACCESS-MACRO ...)
; compiling (DEFUN ARG-VALUE-FORM ...)
; compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...)
; compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...)
; compiling (DEFUN GEN-ARG-FORMS ...)
; compiling (DEFUN MAYBE-LISTIFY ...)
; compiling (DEFUN SET-ARG-FROM-TYPE ...)
; compiling (DEFUN GET-ARG-TEMP ...)
; compiling (DEFUN SET-ARG-TEMPS ...)
; compiling (DEFMACRO DEFINE-ARG-TYPE ...)
; compiling (DEFMACRO DEF-ARG-FORM-KIND ...)
; compiling (DEF-ARG-FORM-KIND (:RAW) ...)
; compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...)
; compiling (DEFUN VALSRC-EQUAL ...)
; compiling (DEF-ARG-FORM-KIND (:FILTERING) ...)
; compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...)
; compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...)
; compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...)
; compiling (DEF-ARG-FORM-KIND (:PRINTED) ...)
; compiling (DEFUN REMEMBER-PRINTER-USE ...)
; compiling (DEFUN SOURCE-FORM ...)
; compiling (DEFUN VALUE-OR-SOURCE ...)
; compiling (DEFSTRUCT (CACHED-FUN # ...) ...)
; compiling (DEFUN FIND-CACHED-FUN ...)
; compiling (DEFMACRO !WITH-CACHED-FUN ...)
; compiling (DEFUN FIND-PRINTER-FUN ...)
; compiling (DEFUN MAKE-PRINTER-DEFUN ...)
; compiling (DEFUN PREPROCESS-TEST ...)
; compiling (DEFUN PREPROCESS-CONDITIONALS ...)
; compiling (DEFUN PREPROCESS-PRINTER ...)
; compiling (DEFUN FIND-FIRST-FIELD-NAME ...)
; compiling (DEFUN PREPROCESS-CHOOSES ...)
; compiling (DEFUN SHARING-CONS ...)
; compiling (DEFUN SHARING-MAPCAR ...)
; compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...)
; compiling (DEFUN PICK-PRINTER-CHOICE ...)
; compiling (DEFUN COMPILE-PRINTER-LIST ...)
; compiling (DEFUN COMPILE-PRINTER-BODY ...)
; compiling (DEFUN COMPILE-PRINT ...)
; compiling (DEFUN STRING-OR-QSYM-P ...)
; compiling (DEFUN STRIP-QUOTE ...)
; compiling (DEFUN COMPARE-FIELDS-FORM ...)
; compiling (DEFUN COMPILE-TEST ...)
; compiling (DEFUN FIND-LABELLER-FUN ...)
; compiling (DEFUN FIND-PREFILTER-FUN ...)
; compiling (DEFUN COMPUTE-MASK-ID ...)
; compiling (DEFUN INSTALL-INST-FLAVORS ...)
; compiling (DECLAIM (INLINE BYTES-TO-BITS))
; compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...))
; compiling (DEFUN BYTES-TO-BITS ...)
; compiling (DEFUN BITS-TO-BYTES ...)
; compiling (DEFUN SIGN-EXTEND ...)
; compiling (DEFUN ALIGNED-P ...)
; compiling (DEFUN ALIGN ...)
; compiling (DEFUN TAB ...)
; compiling (DEFUN TAB0 ...)
; compiling (DEFUN PRINC16 ...)
; compiling (DEFUN READ-SIGNED-SUFFIX ...)
; compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN DSTATE-CUR-ADDR ...)
; compiling (DEFUN DSTATE-NEXT-ADDR ...)
; compiling (DEFMACRO DSTATE-GET-PROP ...)
; compiling (DEFUN DSTATE-PUT-INST-PROP ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN READ-SIGNED-SUFFIX
;     (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: READ-SUFFIX

; in: DEFUN DSTATE-NEXT-ADDR
;     (SB!DISASSEM:SEG-VIRTUAL-LOCATION
;      (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SEG-VIRTUAL-LOCATION

; in: DEFUN DSTATE-CUR-ADDR
;     (SB!DISASSEM:SEG-VIRTUAL-LOCATION
;      (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SEG-VIRTUAL-LOCATION

; in: DEF!METHOD PRINT-OBJECT
;     (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)
; ==>
;   (TRULY-THE (OR NULL SB!DISASSEM:SEGMENT)
;              (SB-KERNEL:%INSTANCE-REF
;               (THE SB!DISASSEM:DISASSEM-STATE SB!DISASSEM::DSTATE) 4))
; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT

; in: DEFSTRUCT DISASSEM-STATE
;     (DEFSTRUCT
;         (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-)
;          (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL))
;       (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER))
;       (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT))
;       (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT)
;       (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE
;        (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN))
;       (SB!DISASSEM::PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::FILTERED-VALUES
;        (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE
;        SB!DISASSEM::FILTERED-VALUE-VECTOR)
;       (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20)))
;       ...)
; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT
; 
; compilation unit finished
;   Undefined type:
;     SEGMENT
;   Undefined functions:
;     READ-SUFFIX SEG-VIRTUAL-LOCATION
;   caught 5 STYLE-WARNING conditions
;   printed 53 notes
; compiling (DEFUN DSTATE-GET-INST-PROP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/disassem.fasl-tmp written
; compilation finished in 0:00:08.283
; compiling file "/«PKGBUILDDIR»/src/compiler/assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!ASSEM")
; compiling (DEFVAR *ASSEM-SCHEDULER-P* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (SEGMENT #) ...)
; compiling (DEFPRINTER (SEGMENT) ...)
; compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX))
; compiling (DEFUN SEGMENT-CURRENT-INDEX ...)
; compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...)
; compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...)
; compiling (DEF!STRUCT (INSTRUCTION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFMACRO WITHOUT-SCHEDULING ...)
; compiling (DEFMACRO NOTE-DEPENDENCIES ...)
; compiling (DEFUN NOTE-READ-DEPENDENCY ...)
; compiling (DEFUN NOTE-WRITE-DEPENDENCY ...)
; compiling (DEFUN QUEUE-INST ...)
; compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...)
; compiling (DEFUN ADD-TO-NTH-LIST ...)
; compiling (DEFUN SCHEDULE-ONE-INST ...)
; compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...)
; compiling (DEFUN ADVANCE-ONE-INST ...)
; compiling (DEFUN INSERT-EMITTABLE-INST ...)
; compiling (DEF!STRUCT (ANNOTATION # ...) ...)
; compiling (DEF!STRUCT (LABEL # ...))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...)
; compiling (DEF!STRUCT (BACK-PATCH # ...) ...)
; compiling (DEF!STRUCT (CHOOSER # ...) ...)
; compiling (DEF!STRUCT (FILLER # ...) ...)
; compiling (DEFUN EMIT-BYTE ...)
; compiling (DEFUN EMIT-SKIP ...)
; compiling (DEFUN EMIT-ANNOTATION ...)
; compiling (DEFUN EMIT-BACK-PATCH ...)
; compiling (DEFUN EMIT-CHOOSER ...)
; compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...)
; compiling (DEFUN EMIT-FILLER ...)
; compiling (DEFUN %EMIT-LABEL ...)
; compiling (DEFUN %EMIT-ALIGNMENT ...)
; compiling (DEFUN FIND-ALIGNMENT ...)
; compiling (DEFUN %EMIT-POSTIT ...)
; compiling (DEFUN COMPRESS-OUTPUT ...)
; compiling (DEFUN FINALIZE-POSITIONS ...)
; compiling (DEFUN PROCESS-BACK-PATCHES ...)
; compiling (DEFUN COMPACT-SEGMENT-BUFFER ...)
; compiling (DEFMACRO %%CURRENT-SEGMENT%% ...)
; compiling (DEFVAR **CURRENT-SEGMENT**)
; compiling (DEFMACRO %%CURRENT-VOP%% ...)
; compiling (DEFVAR **CURRENT-VOP** ...)
; compiling (DEF DEF!MACRO ...)
; compiling (DEF SB-XC:DEFMACRO ...)
; compiling (DEFMACRO INST ...)
; compiling (DEFMACRO EMIT-LABEL ...)
; compiling (DEFMACRO EMIT-POSTIT ...)
; compiling (DEFMACRO EMIT-ALIGNMENT ...)
; compiling (DEFUN LABEL-POSITION ...)
; compiling (DEFUN APPEND-SEGMENT ...)
; compiling (DEFUN FINALIZE-SEGMENT ...)
; compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...)
; compiling (DEFUN WRITE-SEGMENT-CONTENTS ...)
; compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...)
; compiling (DEFUN GROVEL-LAMBDA-LIST ...)
; compiling (DEFUN EXTRACT-NTHS ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...)

; file: /«PKGBUILDDIR»/src/compiler/assem.lisp
; in: DEF SB-XC:DEFMACRO
;     (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND)
; --> SB-XC:DEFMACRO PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION 
; --> LET* LET* BLOCK FLET LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in:
;      MACROLET ((DEF (DEFMACRO MACROEXPAND)
;             (QUASIQUOTE
;              (# ASSEMBLE #
;               "Execute BODY (as a progn) with SEGMENT as the current segment."
;               #))))
;     (MACROLET ((SB!ASSEM::DEF (DEFMACRO MACROEXPAND)
;                  (SB!INT:QUASIQUOTE
;                   (# SB!ASSEM:ASSEMBLE #
;                    "Execute BODY (as a progn) with SEGMENT as the current segment."
;                    #))))
;       (SB!ASSEM::DEF SB!INT:DEF!MACRO MACROEXPAND)
;       (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND))
; --> PROGN FUNCTION LET* LET* BLOCK FLET LET* MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN EMIT-SKIP
;     (SB!VM:EMIT-LONG-NOP SB!ASSEM:SEGMENT SB!ASSEM::AMOUNT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:EMIT-LONG-NOP

; in: DEFUN SCHEDULE-PENDING-INSTRUCTIONS
;     (SB!C:EMIT-NOP SB!ASSEM:SEGMENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:EMIT-NOP

; in: DEF!METHOD PRINT-OBJECT
;     (SB!C:LABEL-ID SB!ASSEM:LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:LABEL-ID

; in: DEFUN NOTE-WRITE-DEPENDENCY
;     (SB!C:LOCATION-NUMBER WRITE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:LOCATION-NUMBER

; in: DEFUN NOTE-READ-DEPENDENCY
;     (SB!C:LOCATION-NUMBER READ)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C:LOCATION-NUMBER
; 
; compilation unit finished
;   Undefined functions:
;     %MACROEXPAND SB!VM:EMIT-LONG-NOP SB!C:EMIT-NOP SB!C:LABEL-ID SB!C:LOCATION-NUMBER
;   caught 7 STYLE-WARNING conditions
; compiling (DEFUN %DEFINE-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/assem.fasl-tmp written
; compilation finished in 0:00:08.558
; compiling file "/«PKGBUILDDIR»/src/code/debug-info.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-INDIRECT-P ...)
; compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...)
; compiling (DEF!STRUCT (DEBUG-FUN #))
; compiling (DEF!STRUCT (COMPILED-DEBUG-FUN #) ...)

; file: /«PKGBUILDDIR»/src/code/debug-info.lisp
; in: DEF!STRUCT (DEBUG-SOURCE)
;     (SB!INT:DEF!STRUCT (SB!C::DEBUG-SOURCE)
;                        (NAMESTRING NIL :TYPE (OR NULL STRING))
;                        (SB!C::CREATED NIL :TYPE (OR UNSIGNED-BYTE NULL))
;                        (SB!C::SOURCE-ROOT 0 :TYPE SB!INT:INDEX)
;                        (SB!C::START-POSITIONS NIL :TYPE
;                         (OR (SIMPLE-ARRAY * (*)) NULL))
;                        (SB!KERNEL:FORM NIL :TYPE LIST) #'NIL
;                        (SB!C::COMPILED (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE)
;                        (SB!C::PLIST SB!C::*SOURCE-PLIST*))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::DEBUG-SOURCE {53693361}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51DDA941}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::DEBUG-SOURCE-NAMESTRING,
;   (COMMON-LISP:SETF SB!C::DEBUG-SOURCE-CREATED) and
;   (COMMON-LISP:SETF SB!C::DEBUG-SOURCE-COMPILED) could not be inlined because the
;   structure definition for SB!C::DEBUG-SOURCE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; compiling (DEF!STRUCT (DEBUG-SOURCE) ...)

; file: /«PKGBUILDDIR»/src/code/debug-info.lisp
; in: DEF!STRUCT DEBUG-INFO
;     (SB!INT:DEF!STRUCT SB!C::DEBUG-INFO (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE T)
;                        (SB!C::SOURCE NIL))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::DEBUG-INFO {53A843E9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51DDA941}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to (COMMON-LISP:SETF SB!C::DEBUG-INFO-SOURCE) could
;   not be inlined because the structure definition for SB!C::DEBUG-INFO was not
;   yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEF!STRUCT DEBUG-INFO ...)
; compiling (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...)
; compiling (DEF!STRUCT (COMPILED-DEBUG-INFO #) ...)
; compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN !DEBUG-INFO-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/debug-info.fasl-tmp written
; compilation finished in 0:00:01.585
; compiling file "/«PKGBUILDDIR»/src/compiler/dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...)
; compiling (DEFSTRUCT (CIRCULARITY #) ...)
; compiling (DEFVAR *CIRCULARITIES-DETECTED*)
; compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...)
; compiling (DEFUN DUMP-BYTE ...)
; compiling (DEFUN DUMP-WORD ...)
; compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...)
; compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...)
; compiling (DEFUN DUMP-FOP+OPERANDS ...)
; compiling (DEFMACRO DUMP-FOP ...)
; compiling (DEFUN DUMP-PUSH ...)
; compiling (DEFUN DUMP-POP ...)
; compiling (DEFUN EQUAL-CHECK-TABLE ...)
; compiling (DEFUN STRING-CHECK-TABLE ...)
; compiling (DEFUN EQ-SAVE-OBJECT ...)
; compiling (DEFUN EQUAL-SAVE-OBJECT ...)
; compiling (DEFUN STRING-SAVE-OBJECT ...)
; compiling (DEFUN NOTE-POTENTIAL-CIRCULARITY ...)
; compiling (DEFUN OPEN-FASL-OUTPUT ...)
; compiling (DEFUN CLOSE-FASL-OUTPUT ...)
; compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...)
; compiling (DEFUN SUB-DUMP-OBJECT ...)
; compiling (DEFUN DUMP-CIRCULARITIES ...)
; compiling (DEFUN DUMP-OBJECT ...)
; compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...)
; compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...)
; compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...)
; compiling (DEFUN FASL-VALIDATE-STRUCTURE ...)
; compiling (DEFUN DUMP-RATIO ...)
; compiling (DEFUN DUMP-INTEGER ...)
; compiling (DEFUN DUMP-FLOAT ...)
; compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...)
; compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...)
; compiling (DEFUN DUMP-COMPLEX-RATIONAL ...)
; compiling (DEFUN DUMP-COMPLEX ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DUMP-PACKAGE ...)
; compiling (DEFUN DUMP-LIST ...)
; compiling (DEFUN TERMINATE-DOTTED-LIST ...)
; compiling (DEFUN TERMINATE-UNDOTTED-LIST ...)
; compiling (DEFUN DUMP-ARRAY ...)
; compiling (DEFUN DUMP-VECTOR ...)
; compiling (DEFUN DUMP-SIMPLE-VECTOR ...)
; compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...)
; compiling (DEFUN DUMP-CHARACTER ...)
; compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...)
; compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...)

; file: /«PKGBUILDDIR»/src/compiler/dump.lisp
; in: DEFUN DUMP-SYMBOL
;     (NOT SB!FASL::THIS-BASE-P)
; --> IF 
; ==>
;   SB!FASL::THIS-BASE-P
; 
; note: deleting unreachable code

;     (NOT SB!FASL::THAT-BASE-P)
; --> IF 
; ==>
;   SB!FASL::THAT-BASE-P
; 
; note: deleting unreachable code
; compiling (DEFUN DUMP-SYMBOL ...)
; compiling (DEFUN DUMP-SEGMENT ...)
; compiling (DEFUN DUMP-FIXUPS ...)
; compiling (DEFUN DUMP-CODE-OBJECT ...)
; compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...)
; compiling (DEFUN DUMP-ONE-ENTRY ...)
; compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...)
; compiling (DEFUN FASL-DUMP-COMPONENT ...)
; compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...)
; compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...)
; compiling (DEFUN FASL-DUMP-SOURCE-INFO ...)
; compiling (DEFUN DUMP-STRUCTURE ...)

; file: /«PKGBUILDDIR»/src/compiler/dump.lisp
; in: DEFUN DUMP-STRUCTURE
;     (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!ALIEN:STRUCT (- LENGTH SB!INT:INDEX 1))
; 
; caught STYLE-WARNING:
;   undefined function: %RAW-INSTANCE-REF/WORD

; in: DEFUN DUMP-CODE-OBJECT
;     (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT

; in: DEFUN FASL-DUMP-SOURCE-INFO
;     (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-SOURCE-FOR-INFO

; in: DEFUN DUMP-ARRAY
;     (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-MULTI-DIM-ARRAY

; in: DEFUN DUMP-FIXUPS
;     (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-FLAVOR

;     (SB!C:FIXUP-NAME SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NAME

;     (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-FIXUP

;     (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-KIND

;     (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-POSITION

; in: DEFUN OPEN-FASL-OUTPUT
;     (SB!EXT:NATIVE-NAMESTRING SB!EXT:*RUNTIME-PATHNAME* :AS-FILE T)
; 
; caught STYLE-WARNING:
;   undefined function: NATIVE-NAMESTRING

; in: DEFUN FASL-DUMP-SOURCE-INFO
;     (DEFUN SB!FASL:FASL-DUMP-SOURCE-INFO (SB!INT:INFO SB!FASL:FASL-OUTPUT)
;       (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO))
;       (LET ((SB!FASL::RES (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO))
;             (SB!FASL::*DUMP-ONLY-VALID-STRUCTURES* NIL))
;         (SETF (SB!C::DEBUG-SOURCE-CREATED SB!FASL::RES) 0
;               (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::RES) 0)
;         (SB!FASL:DUMP-OBJECT SB!FASL::RES SB!FASL:FASL-OUTPUT)
;         (LET ((SB!FASL::RES-HANDLE #))
;           (DOLIST (SB!FASL::INFO-HANDLE #)
;             (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT)
;             (SB!FASL::DUMP-FOP 'SB!FASL::FOP-STRUCTSET SB!FASL:FASL-OUTPUT)
;             (SB!FASL::DUMP-WORD SB!FASL::INFO-HANDLE SB!FASL:FASL-OUTPUT)
;             (SB!FASL::DUMP-WORD SB!C::+DEBUG-INFO-SOURCE-INDEX+
;              SB!FASL:FASL-OUTPUT))
;           (PROGN
;            (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT)
;            (SB!FASL::DUMP-FOP 'SB!FASL::FOP-NOTE-DEBUG-SOURCE
;                               SB!FASL:FASL-OUTPUT))))
;       (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO SB!FASL:FASL-OUTPUT) NIL)
;       (VALUES))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G1373 'SB!C::SOURCE-INFO)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::SOURCE-INFO

;     (TYPE SB!C::SOURCE-INFO SB!INT:INFO)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::SOURCE-INFO
; 
; compilation unit finished
;   Undefined type:
;     SB!C::SOURCE-INFO
;   Undefined functions:
;     %RAW-INSTANCE-REF/WORD SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-MULTI-DIM-ARRAY FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION NATIVE-NAMESTRING
;   caught 12 STYLE-WARNING conditions
;   printed 2 notes
; compiling (DEFUN DUMP-LAYOUT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/dump.fasl-tmp written
; compilation finished in 0:00:03.928
; compiling file "/«PKGBUILDDIR»/src/compiler/main.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *CONSTANTS* ...))
; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...)
; compiling (DEFVAR *CHECK-CONSISTENCY* ...)
; compiling (DEFVAR *LOOP-ANALYZE* ...)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...)
; compiling (DEFVAR *BLOCK-COMPILE*)
; compiling (DEFVAR *BLOCK-COMPILE-ARG*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ENTRY-POINTS*)
; compiling (DECLAIM (LIST *ENTRY-POINTS*))
; compiling (DEFVAR *TOPLEVEL-LAMBDAS*)
; compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*))
; compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...)
; compiling (DEFVAR *COMPILE-PROGRESS* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SOURCE-INFO* ...)
; compiling (DEFVAR *IN-COMPILATION-UNIT* ...)
; compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*)
; compiling (DEFUN MAYBE-MUMBLE ...)
; compiling (DEFTYPE OBJECT ...)
; compiling (DEFVAR *COMPILE-OBJECT* ...)
; compiling (DECLAIM (TYPE OBJECT ...))
; compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...)
; compiling (DEFVAR *EMIT-CFASL* ...)
; compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*)
; compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...)
; compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...)
; compiling (DEFVAR *CODE-COVERAGE-INFO* ...)
; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...)
; compiling (DEFVAR *SOURCE-PLIST* ...)
; compiling (DEFVAR *SOURCE-NAMESTRING* ...)
; compiling (DEFUN %WITH-COMPILATION-UNIT ...)
; compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     (ECASE SB!C::KIND
;       (:FUNCTION
;        (SB!C:COMPILER-WARN "~@<The function ~S is undefined, and its name is ~
;                               reserved by ANSI CL so that even if it were ~
;                               defined later, the code doing so would not be ~
;                               portable.~:@>"
;                            SB!C::NAME))
;       (:TYPE
;        (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE #))
;            (SB!C:COMPILER-WARN "~@<Undefined type ~S. The name starts with ~S: ~
;                                probably use of a quoted type name in a context ~
;                                where the name is not evaluated.~:@>"
;                                SB!C::NAME 'QUOTE)
;            (SB!C:COMPILER-WARN "~@<Undefined type ~S. Note that name ~S is ~
;                                reserved by ANSI CL, so code defining a type with ~
;                                that name would not be portable.~:@>"
;                                SB!C::NAME SB!C::NAME))))
; --> LET 
; ==>
;   SB!C::KIND
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<The function ~S is undefined, and its name is ~
;                               reserved by ANSI CL so that even if it were ~
;                               defined later, the code doing so would not be ~
;                               portable.~:@>"
;                         SB!C::NAME)
; ==>
;   "~@<The function ~S is undefined, and its name is ~
;                             reserved by ANSI CL so that even if it were ~
;                             defined later, the code doing so would not be ~
;                             portable.~:@>"
; 
; note: deleting unreachable code

;     (CONSP SB!C::NAME)
; ==>
;   SB!C::NAME
; 
; note: deleting unreachable code

;     'QUOTE
; 
; note: deleting unreachable code

;     (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE (CAR SB!C::NAME)))
;         (SB!C:COMPILER-WARN "~@<Undefined type ~S. The name starts with ~S: ~
;                                probably use of a quoted type name in a context ~
;                                where the name is not evaluated.~:@>"
;                             SB!C::NAME 'QUOTE)
;         (SB!C:COMPILER-WARN "~@<Undefined type ~S. Note that name ~S is ~
;                                reserved by ANSI CL, so code defining a type with ~
;                                that name would not be portable.~:@>"
;                             SB!C::NAME SB!C::NAME))
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<Undefined type ~S. The name starts with ~S: ~
;                                probably use of a quoted type name in a context ~
;                                where the name is not evaluated.~:@>"
;                         SB!C::NAME 'QUOTE)
; ==>
;   "~@<Undefined type ~S. The name starts with ~S: ~
;                              probably use of a quoted type name in a context ~
;                              where the name is not evaluated.~:@>"
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<Undefined type ~S. Note that name ~S is ~
;                                reserved by ANSI CL, so code defining a type with ~
;                                that name would not be portable.~:@>"
;                         SB!C::NAME SB!C::NAME)
; ==>
;   "~@<Undefined type ~S. Note that name ~S is ~
;                              reserved by ANSI CL, so code defining a type with ~
;                              that name would not be portable.~:@>"
; 
; note: deleting unreachable code
; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...)
; compiling (DEFMACRO WITH-COMPILATION-VALUES ...)
; compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...)
; compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...)
; compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...)
; compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...)
; compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...)
; compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...)
; compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...)
; compiling (DEFUN DFO-AS-NEEDED ...)
; compiling (DEFUN IR1-PHASES ...)
; compiling (DEFUN %COMPILE-COMPONENT ...)
; compiling (DEFUN DELETE-IF-NO-ENTRIES ...)
; compiling (DEFUN COMPILE-COMPONENT ...)
; compiling (DEFUN CLEAR-CONSTANT-INFO ...)
; compiling (DEFUN CLEAR-IR1-INFO ...)
; compiling (DEFUN DESCRIBE-COMPONENT ...)
; compiling (DEFUN DESCRIBE-IR2-COMPONENT ...)
; compiling (DEF!STRUCT (FILE-INFO # ...) ...)
; compiling (DEF!STRUCT (SOURCE-INFO # ...) ...)
; compiling (DEFUN MAKE-FILE-SOURCE-INFO ...)
; compiling (DEFUN MAKE-LISP-SOURCE-INFO ...)
; compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...)
; compiling (DEFUN GET-SOURCE-STREAM ...)
; compiling (DEFUN CLOSE-SOURCE-INFO ...)
; compiling (DEFUN %DO-FORMS-FROM-INFO ...)
; compiling (DEFMACRO DO-FORMS-FROM-INFO ...)
; compiling (DEFUN SUB-SUB-COMPILE-FILE ...)
; compiling (DEFUN FIND-SOURCE-ROOT ...)
; compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...)
; compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...)
; compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...)
; compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...)
; compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...)
; compiling (DEFUN FUNCTIONAL-COMPONENTS ...)
; compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN %COMPILE ...)
; compiling (DEFUN NOTE-TOP-LEVEL-FORM ...)
; compiling (DEFUN EVAL-COMPILE-TOPLEVEL ...)
; compiling (DEFUN PROCESS-TOPLEVEL-FORM ...)
; compiling (DEFUN PRODUCING-FASL-FILE ...)
; compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...)
; compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...)
; compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...)
; compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...)
; compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...)
; compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...)
; compiling (DEFUN COMPILE-TOPLEVEL ...)
; compiling (DEFUN FINISH-BLOCK-COMPILATION ...)
; compiling (DEFUN HANDLE-CONDITION-P ...)
; compiling (DEFUN HANDLE-CONDITION-HANDLER ...)
; compiling (DEFUN SUB-COMPILE-FILE ...)
; compiling (DEFUN VERIFY-SOURCE-FILE ...)
; compiling (DEFUN ELAPSED-TIME-TO-STRING ...)
; compiling (DEFUN PRINT-COMPILE-START-NOTE ...)
; compiling (DEFUN PRINT-COMPILE-END-NOTE ...)
; compiling (DEFUN SB-XC:COMPILE-FILE ...)
; compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...)
; compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...)
; compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...)
; compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...)
; compiling (DEFUN EMIT-MAKE-LOAD-FORM ...)
; compiling (DEFUN COMPILE-IN-LEXENV ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN IR1-PHASES
;     (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT)
; ==>
;   (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL)
; 
; caught STYLE-WARNING:
;   undefined function: %EVENT

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE)
; ==>
;   (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL)
; 
; caught STYLE-WARNING:
;   undefined function: %EVENT

; in: DEFUN PREPROCESSOR-MACROEXPAND-1
;     (SB!INT:%MACROEXPAND-1 SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND-1

; in: DEFUN %DO-FORMS-FROM-INFO
;     (SETF (SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS STREAM) NIL)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS)
;                   #:NEW1304 #:STREAM1303)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF FORM-TRACKING-STREAM-FORM-START-CHAR-POS)

; in: DEFUN GET-SOURCE-STREAM
;     (SETF (SB!INT:FORM-TRACKING-STREAM-OBSERVER STREAM)
;             (SB!C::MAKE-FORM-TRACKING-STREAM-OBSERVER SB!C::FILE-INFO))
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!INT:FORM-TRACKING-STREAM-OBSERVER) #:NEW1272
;                   #:STREAM1271)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF FORM-TRACKING-STREAM-OBSERVER)

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::CHECK-IR1-CONSISTENCY SB!C::ALL-COMPONENTS)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-IR1-CONSISTENCY

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-IR2-CONSISTENCY

;     (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-LIFE-CONSISTENCY

;     (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-PACK-CONSISTENCY

; in: DEFUN HANDLE-CONDITION-HANDLER
;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G1953 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; in: DEFUN HANDLE-CONDITION-P
;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G1933 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; in: DEFUN HANDLE-CONDITION-HANDLER
;     (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR-CONTEXT-LEXENV

; in: DEFUN HANDLE-CONDITION-P
;     (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR-CONTEXT-LEXENV

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::WITH-COMPILATION-VALUES
;       (SB-XC:WITH-COMPILATION-UNIT NIL
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
;           (UNLESS (ZEROP #)
;             (SB!C::WITH-SOURCE-PATHS
;               #))
;           (SB!C::FINISH-BLOCK-COMPILATION)
;           (LET (#)
;             (ETYPECASE SB!C::OBJECT # # #))
;           NIL)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-ERROR-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR-HANDLER

; in: DEFUN NOTE-TOP-LEVEL-FORM
;     (SB!C::COMPILER-MUMBLE "~&; ~:[x-compiling~;x-converting~] ~S"
;      SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-MUMBLE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::COMPILER-MUMBLE "")
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-MUMBLE

; in: DEFUN MAYBE-MUMBLE
;     (SB!C::COMPILER-MUMBLE "~&")
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-MUMBLE

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function COMPILER-MUMBLE


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::WITH-COMPILATION-VALUES
;       (SB-XC:WITH-COMPILATION-UNIT NIL
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
;           (UNLESS (ZEROP #)
;             (SB!C::WITH-SOURCE-PATHS
;               #))
;           (SB!C::FINISH-BLOCK-COMPILATION)
;           (LET (#)
;             (ETYPECASE SB!C::OBJECT # # #))
;           NIL)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-STYLE-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARNING-HANDLER

; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     #'SB!C::COMPILER-STYLE-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARNING-HANDLER

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::WITH-COMPILATION-VALUES
;       (SB-XC:WITH-COMPILATION-UNIT NIL
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO)
;           (UNLESS (ZEROP #)
;             (SB!C::WITH-SOURCE-PATHS
;               #))
;           (SB!C::FINISH-BLOCK-COMPILATION)
;           (LET (#)
;             (ETYPECASE SB!C::OBJECT # # #))
;           NIL)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARNING-HANDLER

; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     #'SB!C::COMPILER-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARNING-HANDLER

; in: DEFUN IR1-PHASES
;     (SB!C::CONSTRAINT-PROPAGATE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTRAINT-PROPAGATE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::CONTROL-ANALYZE SB!C:COMPONENT #'SB!C::MAKE-IR2-BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: CONTROL-ANALYZE

;     (SB!C::COPY-PROPAGATE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: COPY-PROPAGATE

; in: DEFUN DELETE-IF-NO-ENTRIES
;     (SB!C::DELETE-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: DELETE-COMPONENT

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::DELETE-UNREFERENCED-TNS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: DELETE-UNREFERENCED-TNS

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::ELIMINATE-DEAD-CODE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: ELIMINATE-DEAD-CODE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::ENTRY-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: ENTRY-ANALYZE

; in: DEFUN PREPROCESSOR-MACROEXPAND-1
;     (SB!C::EXPAND-COMPILER-MACRO SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: EXPAND-COMPILER-MACRO

; in: DEFUN DFO-AS-NEEDED
;     (SB!C::FIND-DFO SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DFO

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::FIND-DOMINATORS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DOMINATORS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::FIND-DOMINATORS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DOMINATORS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::FIND-INITIAL-DFO SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-INITIAL-DFO

; in: DEFUN %COMPILE
;     (SB!C::FIND-INITIAL-DFO (LIST SB!C::FUN))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-INITIAL-DFO

; in: DEFUN SUB-SUB-COMPILE-FILE
;     (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::CURRENT-INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-SOURCE-PATHS

; in: DEFUN IR1-PHASES
;     (SB!C::FLUSH-DEAD-CODE BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-DEAD-CODE

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM SB!C::EXPAND)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILABLE-P

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::FOPCOMPILE
;      (SB!INT:QUASIQUOTE
;       (SB!C::RECORD-CODE-COVERAGE
;        '#S(SB!IMPL::COMMA :EXPR (NAMESTRING *COMPILE-FILE-PATHNAME*) :KIND 0)
;        '#S(SB!IMPL::COMMA
;            :EXPR (LET #
;                    #
;                    LIST)
;            :KIND 0)))
;      NIL NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN COMPILE-LOAD-TIME-VALUE
;     (SB!C::FOPCOMPILE SB!KERNEL:FORM NIL T)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::FOPCOMPILE SB!KERNEL:FORM SB!C::PATH NIL SB!C::EXPAND)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN EMIT-MAKE-LOAD-FORM
;     (SB!C::FOPCOMPILE-ALLOCATE-INSTANCE SB!C::CREATION-FORM)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE-ALLOCATE-INSTANCE

;     (SB!C::FOPCOMPILE-CONSTANT-INIT-FORMS SB!C::FORMS)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE-CONSTANT-INIT-FORMS

; in: DEFUN %DO-FORMS-FROM-INFO
;     (SB!INT:FORM-TRACKING-STREAM-FORM-START-BYTE-POS STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: FORM-TRACKING-STREAM-FORM-START-BYTE-POS

;     (SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: FORM-TRACKING-STREAM-FORM-START-CHAR-POS

; in: DEFUN PRINT-COMPILE-START-NOTE
;     (SB!INT:FORMAT-UNIVERSAL-TIME NIL
;      (SB!C::FILE-INFO-WRITE-DATE SB!C::FILE-INFO) :STYLE :GOVERNMENT
;      :PRINT-WEEKDAY NIL :PRINT-TIMEZONE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FORMAT-UNIVERSAL-TIME

; in: DEFUN PROCESS-TOPLEVEL-FORM
;     (SB!C::FUNCALL-IN-MACROLET-LEXENV SB!C::MAGIC
;      (LAMBDA (&KEY SB!C::FUNS SB!C::PREPEND)
;        (DECLARE (IGNORE SB!C::FUNS))
;        (SB!INT:AVER (NULL SB!C::PREPEND))
;        (SB!C::PROCESS-TOPLEVEL-LOCALLY SB!C::BODY SB!C::PATH
;         SB!C::COMPILE-TIME-TOO))
;      :COMPILE)
; 
; caught STYLE-WARNING:
;   undefined function: FUNCALL-IN-MACROLET-LEXENV

;     (SB!C::FUNCALL-IN-SYMBOL-MACROLET-LEXENV SB!C::MAGIC
;      (LAMBDA (&KEY SB!C::VARS SB!C::PREPEND)
;        (SB!INT:AVER (NULL SB!C::PREPEND))
;        (SB!C::PROCESS-TOPLEVEL-LOCALLY SB!C::BODY SB!C::PATH
;         SB!C::COMPILE-TIME-TOO :VARS SB!C::VARS))
;      :COMPILE)
; 
; caught STYLE-WARNING:
;   undefined function: FUNCALL-IN-SYMBOL-MACROLET-LEXENV

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::GENERATE-CODE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-CODE

; in: DEFUN IR1-PHASES
;     (SB!C::GENERATE-TYPE-CHECKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-TYPE-CHECKS

; in: DEFUN PROCESS-TOPLEVEL-FORM
;     (SB!C::GET-SOURCE-PATH SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SOURCE-PATH

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::GTN-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GTN-ANALYZE

;     (SB!C::INIT-ASSEMBLER)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-ASSEMBLER

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::IR1-CONVERT-LAMBDA (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN)
;      :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME
;      (SB!C::DEBUG-NAME 'SB!C::TL-XEP SB!C::DEBUG-NAME-TAIL) :SYSTEM-LAMBDA T)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDA

;     (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME
;              SB!C::SOURCE-NAME)
; ==>
;   (SB-C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION
;                   :SOURCE-NAME SB!C::SOURCE-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDALIKE

; in: DEFUN IR1-PHASES
;     (SB!C::IR1-FINALIZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-FINALIZE

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE

; in: DEFUN COMPILE-LOAD-TIME-STUFF
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C:IR2-CONVERT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT

;     (SB!C::IR2-OPTIMIZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-OPTIMIZE

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY))
; 
; caught STYLE-WARNING:
;   undefined function: LABEL-ID

; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA
;     (SB!C::LAMBDA-COMPONENT LAMBDA)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN FUNCTIONAL-COMPONENTS
;     (SB!C::LAMBDA-COMPONENT SB!C::F)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::LAMBDA-COMPONENT LAMBDA)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LIFETIME-ANALYZE

; in: DEFUN %DO-FORMS-FROM-INFO
;     (SB!INT:LINE/COL-FROM-CHARPOS STREAM
;      (SB!INT:FORM-TRACKING-STREAM-FORM-START-CHAR-POS STREAM))
; 
; caught STYLE-WARNING:
;   undefined function: LINE/COL-FROM-CHARPOS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE

; in: DEFUN %COMPILE
;     (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN))
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE

; in: DEFUN IR1-PHASES
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::LOCALL-ANALYZE-XEP-ENTRY-POINT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-XEP-ENTRY-POINT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::LOOP-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LOOP-ANALYZE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::LTN-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LTN-ANALYZE

;     (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT*
;      SB!C::CODE-LENGTH SB!C::FIXUP-NOTES SB!C::*COMPILE-OBJECT*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CORE-COMPONENT

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-EMPTY-COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-EMPTY-COMPONENT

; in: DEFUN GET-SOURCE-STREAM
;     (SB!C::MAKE-FORM-TRACKING-STREAM-OBSERVER SB!C::FILE-INFO)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-FORM-TRACKING-STREAM-OBSERVER

; in: DEFUN %COMPILE
;     (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS
;      SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS
;      SB!C::*DISABLED-PACKAGE-LOCKS*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-LEXENV :POLICY
;      (SB!C::LEXENV-POLICY (SB!C::FUNCTIONAL-LEXENV SB!C::FUN)))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS
;      SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS
;      SB!C::*DISABLED-PACKAGE-LOCKS*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   1 more use of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-XEP-LAMBDA-EXPRESSION

; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS
;     (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TOPLEVEL-LAMBDAS

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN CLEAR-IR1-INFO
;     (SB!C::NODE-COMPONENT SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN DELETE-IF-NO-ENTRIES
;     (SB!C::NODE-COMPONENT SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; 
; caught STYLE-WARNING:
;   1 more use of undefined function NODE-COMPONENT


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN %WITH-COMPILATION-UNIT
;     (SB!C::NOTE-UNDEFINED-REFERENCE
;      (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C) :TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: NOTE-UNDEFINED-REFERENCE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!REGALLOC:PACK SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!REGALLOC:PACK

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PHYSENV-ANALYZE

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PACK-TN-STATS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PACK-TN-STATS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL

; in: DEFUN DESCRIBE-COMPONENT
;     (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-ALL-BLOCKS

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-IR2-BLOCKS

; in: DEFUN PROCESS-TOPLEVEL-LOCALLY
;     (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS)
; 
; caught STYLE-WARNING:
;   undefined function: PROCESS-DECLS

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::RECORD-COMPONENT-XREFS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: RECORD-COMPONENT-XREFS

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::REOPTIMIZE-COMPONENT SB!C:COMPONENT :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: REPLACE-TOPLEVEL-XEPS

; in: DEFUN %COMPILE
;     (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO)
; 
; caught STYLE-WARNING:
;   undefined function: REPLACE-TOPLEVEL-XEPS

; in: DEFUN IR1-PHASES
;     (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT)
; 
; caught STYLE-WARNING:
;   undefined function: RETRY-DELAYED-IR1-TRANSFORMS

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE)
; 
; caught STYLE-WARNING:
;   undefined function: RETRY-DELAYED-IR1-TRANSFORMS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SELECT-REPRESENTATIONS

; in: DEFUN EVAL-COMPILE-TOPLEVEL
;     (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-TLF-NUMBER

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::STACK-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: STACK-ANALYZE

; in: DEFUN PARSE-EVAL-WHEN-SITUATIONS
;     (SB!INT:STYLE-WARN "using deprecated EVAL-WHEN situation names~{ ~S~}"
;      SB!C::DEPRECATED-NAMES)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::SUBSTITUTE-LEAF-IF
;      (LAMBDA (SB!C::REF)
;        (LET* ((SB!C::LVAR #) (SB!C::DEST #) (SB!C::KIND #))
;          (SB!INT:NEQ :LOCAL SB!C::KIND)))
;      SB!C::XEP SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF-IF
; 
; compilation unit finished
;   Undefined type:
;     COMPILER-ERROR-CONTEXT
;   Undefined functions:
;     %EVENT %MACROEXPAND-1 (SETF FORM-TRACKING-STREAM-FORM-START-CHAR-POS) (SETF FORM-TRACKING-STREAM-OBSERVER) CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS ELIMINATE-DEAD-CODE ENTRY-ANALYZE EXPAND-COMPILER-MACRO FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FLUSH-DEAD-CODE FOPCOMPILABLE-P FOPCOMPILE FOPCOMPILE-ALLOCATE-INSTANCE FOPCOMPILE-CONSTANT-INIT-FORMS FORM-TRACKING-STREAM-FORM-START-BYTE-POS FORM-TRACKING-STREAM-FORM-START-CHAR-POS FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GET-SOURCE-PATH GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT IR2-OPTIMIZE LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LINE/COL-FROM-CHARPOS LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOCALL-ANALYZE-XEP-ENTRY-POINT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-FORM-TRACKING-STREAM-OBSERVER MAKE-LEXENV MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NAME-LAMBDALIKE NODE-COMPONENT NOTE-UNDEFINED-REFERENCE SB!REGALLOC:PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REOPTIMIZE-COMPONENT REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS SOURCE-PATH-TLF-NUMBER STACK-ANALYZE STYLE-WARN SUBSTITUTE-LEAF-IF
;   caught 107 STYLE-WARNING conditions
;   printed 7 notes
; compiling (DEFUN EVAL-TLF ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/main.fasl-tmp written
; compilation finished in 0:00:06.706
; compiling file "/«PKGBUILDDIR»/src/compiler/xref.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *XREF-KINDS* ...)
; compiling (DEFUN RECORD-COMPONENT-XREFS ...)
; compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...)
; compiling (DEFUN RECORD-NODE-XREFS ...)
; compiling (DEFUN INTERNAL-NAME-P ...)
; compiling (DEFUN RECORD-XREF ...)
; compiling (DEFUN RECORD-MACROEXPANSION ...)
; compiling (DEFUN RECORD-CALL ...)

; file: /«PKGBUILDDIR»/src/compiler/xref.lisp
; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::BLOCK-HOME-LAMBDA BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: BLOCK-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::CONSTANT-LVAR-P SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

;     (SB!C::LVAR-VALUE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::NODE-HOME-LAMBDA SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE))
; 
; caught STYLE-WARNING:
;   undefined function: PRINCIPAL-LVAR-USE

; in: DEFUN RECORD-XREF
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE
;      (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE
; 
; compilation unit finished
;   Undefined functions:
;     BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE
;   caught 6 STYLE-WARNING conditions
; compiling (DEFUN PACK-XREF-DATA ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/xref.fasl-tmp written
; compilation finished in 0:00:00.527
; compiling file "/«PKGBUILDDIR»/src/code/source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION # ...) ...)
; compiling (DEFUN MAKE-DEFINITION-SOURCE-LOCATION ...)
; compiling (DEFUN LPNIFY-NAMESTRING ...)

; file: /«PKGBUILDDIR»/src/code/source-location.lisp
; in: DEFUN MAKE-DEFINITION-SOURCE-LOCATION
;     (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-TLF-NUMBER
; 
; compilation unit finished
;   Undefined function:
;     SOURCE-PATH-TLF-NUMBER
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/source-location.fasl-tmp written
; compilation finished in 0:00:00.271
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*))
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFVAR *CURRENT-FORM-NUMBER*)
; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*))
; compiling (DEFVAR *SOURCE-PATHS*)
; compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P))
; compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...)
; compiling (DEFUN GET-SOURCE-PATH ...)
; compiling (DEFUN ENSURE-SOURCE-PATH ...)
; compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...)
; compiling (DEFUN NOTE-SOURCE-PATH ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CURRENT-COMPONENT*)
; compiling (DECLAIM (LIST *CURRENT-PATH*))
; compiling (DEFVAR *CURRENT-PATH*)
; compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...)
; compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...)
; compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...)
; compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...)
; compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF))
; compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...)
; compiling (DEFUN MAYBE-DEFINED-HERE ...)
; compiling (DEFUN FIND-GLOBAL-FUN ...)
; compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-FREE-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...)
; compiling (DEFUN MAYBE-FIND-FREE-VAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-FREE-VAR ...)
; compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...)
; compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...)
; compiling (DECLAIM (INLINE USE-CTRAN))
; compiling (DEFUN USE-CTRAN ...)
; compiling (DEFUN %USE-CTRAN ...)
; compiling (DEFUN INSERT-NODE-BEFORE ...)
; compiling (DEFUN USE-LVAR ...)
; compiling (DECLAIM (INLINE USE-CONTINUATION))
; compiling (DEFUN USE-CONTINUATION ...)
; compiling (DEFUN IR1-TOPLEVEL ...)
; compiling (DEFUN FIND-SOURCE-PATHS ...)
; compiling (DEFUN SUB-FIND-SOURCE-PATHS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT ...)
; compiling (DEFUN REFERENCE-CONSTANT ...)
; compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...)
; compiling (DEFUN REFERENCE-LEAF ...)
; compiling (DEFUN ALWAYS-BOUNDP ...)
; compiling (DEFUN IR1-CONVERT-VAR ...)
; compiling (DEFUN FIND-COMPILER-MACRO ...)
; compiling (DEFUN EXPAND-COMPILER-MACRO ...)
; compiling (DEFUN IR1-CONVERT-FUNCTOID ...)
; compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...)
; compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN MUFFLE-WARNING-OR-DIE
;     (SB!INT:BUG "no MUFFLE-WARNING restart")
; ==>
;   "no MUFFLE-WARNING restart"
; 
; note: deleting unreachable code
; compiling (DEFUN MUFFLE-WARNING-OR-DIE ...)
; compiling (DEFUN CAREFUL-EXPAND-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-PROGN-BODY ...)
; compiling (DEFUN INSTRUMENT-COVERAGE ...)
; compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...)
; compiling (DEFUN RECORD-CODE-COVERAGE ...)
; compiling (DEFUN CLEAR-CODE-COVERAGE ...)
; compiling (DEFUN RESET-CODE-COVERAGE ...)
; compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...)
; compiling (DEFUN STEP-FORM-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-COMBINATION ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...)
; compiling (DEFUN IR1-CONVERT-SRCTRAN ...)
; compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...)
; compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...)
; compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-IN-BINDINGS ...)
; compiling (DEFUN PROCESS-TYPE-DECL ...)
; compiling (DEFUN PROCESS-FTYPE-DECL ...)
; compiling (DEFUN PROCESS-SPECIAL-DECL ...)
; compiling (DEFUN MAKE-NEW-INLINEP ...)
; compiling (DEFUN PROCESS-INLINE-DECL ...)
; compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...)
; compiling (DEFUN PROCESS-IGNORE-DECL ...)
; compiling (DEFUN PROCESS-EXTENT-DECL ...)
; compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...)
; compiling (DEFUN PROCESS-1-DECL ...)
; compiling (DEFUN PROCESS-DECLS ...)
; compiling (DEFUN %PROCESSING-DECLS ...)
; compiling (DEFMACRO PROCESSING-DECLS ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION
;     (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: ASSURE-FUNCTIONAL-LIVE-P

; in: DEFUN REFERENCE-LEAF
;     (SB!C::ASSURE-LEAF-LIVE-P SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: ASSURE-LEAF-LIVE-P

; in: DEFUN PROCESS-EXTENT-DECL
;     (SB!C:COMPILER-NOTIFY "Ignoring free ~S declaration: ~S" SB!C::KIND
;      SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN PROCESS-INLINE-DECL
;     (SB!C:COMPILER-NOTIFY "ignoring ~A declaration not at ~
;                                        definition of local function:~%  ~S"
;      SB!C::SENSE SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN PROCESS-FTYPE-DECL
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

;     (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-SPECIFIER-TYPE

; in: DEFUN PROCESS-TYPE-DECL
;     (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-SPECIFIER-TYPE

; in: DEFUN PROCESS-1-DECL
;     (SB!C::COMPILER-VALUES-SPECIFIER-TYPE
;      (IF (SB!INT:SINGLETON-P SB!C::TYPES)
;          (CAR SB!C::TYPES)
;          (SB!INT:QUASIQUOTE
;           (VALUES #S(SB!IMPL::COMMA :EXPR SB!C::TYPES :KIND 2)))))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-VALUES-SPECIFIER-TYPE

; in: DEFUN IR1-CONVERT-VAR
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

; in: DEFUN REFERENCE-LEAF => DEFINED-FUN-FUNCTIONAL LEAF
;     (SB!C::DEFINED-FUN-FUNCTIONAL SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: DEFINED-FUN-FUNCTIONAL

; in: DEFUN INSERT-NODE-BEFORE
;     (SB!C::ENSURE-BLOCK-START SB!C::PREV)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-BLOCK-START

; in: DEFUN REFERENCE-CONSTANT
;     (SB!C::FIND-CONSTANT SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN FIND-FREE-VAR
;     (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN IR1-TOPLEVEL
;     (SB!C::IR1-CONVERT-LAMBDA-BODY SB!C::FORMS NIL :DEBUG-NAME
;      (SB!C::DEBUG-NAME 'SB!C::TOP-LEVEL-FORM NIL))
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDA-BODY

; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL
;     (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN CLEAR-INVALID-FUNCTIONALS
;     (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN %PROCESSING-DECLS
;     (SB!C::MAKE-CAST SB!C::VALUE-LVAR SB!C::RESULT-TYPE
;      (SB!C::LEXENV-POLICY SB!C:*LEXENV*))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CAST

; in: DEFUN REFERENCE-LEAF
;     (SB!C::MAKE-CAST SB!C::REF-LVAR (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE)
;      (SB!C::LEXENV-POLICY SB!C:*LEXENV*))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CAST

; in: DEFUN IR1-TOPLEVEL
;     (SB!C::MAKE-EMPTY-COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-EMPTY-COMPONENT

; in: DEFUN PROCESS-SPECIAL-DECL
;     (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :VARS (SB!C::NEW-VENV))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN PROCESS-FTYPE-DECL
;     (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RES))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN PROCESS-TYPE-DECL
;     (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RESTR) :VARS
;      (SB!C::NEW-VARS))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN FIND-FREE-VAR
;     (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :VARIABLE)
; 
; caught STYLE-WARNING:
;   undefined function: NOTE-UNDEFINED-REFERENCE

; in: DEFUN FIND-GLOBAL-FUN
;     (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: NOTE-UNDEFINED-REFERENCE

; in: DEFUN EXPAND-COMPILER-MACRO
;     (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* "note: ~A" (LIST SB!C::C))
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-COMPILER-MESSAGE

; in: DEFUN USE-LVAR
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN INSTRUMENT-COVERAGE
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE

; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE
;     (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::VAR T)
; 
; caught STYLE-WARNING:
;   undefined function: VALIDATE-CALL-TYPE
; 
; compilation unit finished
;   Undefined functions:
;     ASSURE-FUNCTIONAL-LIVE-P ASSURE-LEAF-LIVE-P COMPILER-NOTIFY COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL DEFINED-FUN-FUNCTIONAL ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE PRINT-COMPILER-MESSAGE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE
;   caught 29 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFUN SPECVAR-FOR-BINDING ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1tran.fasl-tmp written
; compilation finished in 0:00:05.941
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VARIFY-LAMBDA-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-LAMBDA-VARS ...)
; compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...)
; compiling (DEFUN REGISTER-ENTRY-POINT ...)
; compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...)
; compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...)
; compiling (DEFUN CONVERT-MORE-ENTRY ...)
; compiling (DEFUN IR1-CONVERT-MORE ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA ...)
; compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...)
; compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...)
; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...)
; compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...)
; compiling (DEFUN GET-DEFINED-FUN ...)
; compiling (DEFUN ASSERT-NEW-DEFINITION ...)
; compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...)
; compiling (DEFUN %SET-INLINE-EXPANSION ...)
; compiling (DEFUN %COMPILER-DEFUN ...)
; compiling (DEFUN %COMPILER-DEFMACRO ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp
; in: DEFUN ASSERT-NEW-DEFINITION
;     #'SB!C:COMPILER-NOTIFY
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*))
; 
; caught STYLE-WARNING:
;   undefined function: LINK-BLOCKS

;     (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
;     (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN IR1-CONVERT-AUX-BINDINGS
;     (SB!C::MAKE-LEXENV :VARS (COPY-LIST SB!C::POST-BINDING-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   1 more use of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp
; in: DEFUN IR1-CONVERT-INLINE-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::NAME-LAMBDALIKE SB!C::THING)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::NODE-BLOCK SB!C:BIND)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-BLOCK

; in: DEFUN IR1-CONVERT-INLINE-EXPANSION
;     (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN GET-DEFINED-FUN
;     (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::SUBSTITUTE-LEAF-IF
;      (LAMBDA (SB!C::REF)
;        (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0)))
;      SB!C::RES SB!C::DEFINED-FUN-RES)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF-IF
; 
; compilation unit finished
;   Undefined functions:
;     COMPILER-NOTIFY CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF
;   caught 15 STYLE-WARNING conditions
; compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1tran-lambda.fasl-tmp written
; compilation finished in 0:00:03.323
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1-translators.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-IR1-TRANSLATOR PROGN ...)
; compiling (DEF-IR1-TRANSLATOR IF ...)
; compiling (DEFUN BEST-SUB-SOURCE-PATH ...)
; compiling (DEF-IR1-TRANSLATOR BLOCK ...)
; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...)
; compiling (DEFUN PARSE-TAGBODY ...)
; compiling (DEF-IR1-TRANSLATOR TAGBODY ...)
; compiling (DEF-IR1-TRANSLATOR GO ...)
; compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...)
; compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...)
; compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...)
; compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...)
; compiling (DEF-IR1-TRANSLATOR MACROLET ...)
; compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...)
; compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...)
; compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...)
; compiling (DEFUN EVAL-INFO-ARGS ...)
; compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...)
; compiling (DEF-IR1-TRANSLATOR QUOTE ...)
; compiling (DEFUN NAME-CONTEXT ...)
; compiling (DEFUN NAME-LAMBDALIKE ...)
; compiling (DEFUN FUN-NAME-LEAF ...)
; compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...)
; compiling (DEFMACRO WITH-FUN-NAME-LEAF ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; compiling (DEF-IR1-TRANSLATOR FUNCTION ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...)
; compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...)
; compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...)
; compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...)
; compiling (DEFUN ENSURE-LVAR-FUN-FORM ...)
; compiling (DEFTRANSFORM FUNCALL ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR %FUNCALL
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; compiling (DEF-IR1-TRANSLATOR %FUNCALL ...)
; compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...)
; compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-LET-VARS ...)
; compiling (DEF-IR1-TRANSLATOR LET ...)
; compiling (DEF-IR1-TRANSLATOR LET* ...)
; compiling (DEFUN IR1-TRANSLATE-LOCALLY ...)
; compiling (DEF-IR1-TRANSLATOR LOCALLY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-FLET-VARS ...)
; compiling (DEFUN IR1-CONVERT-FBINDINGS ...)
; compiling (DEF-IR1-TRANSLATOR FLET ...)
; compiling (DEF-IR1-TRANSLATOR LABELS ...)
; compiling (DEFUN THE-IN-POLICY ...)
; compiling (DEF-IR1-TRANSLATOR THE ...)
; compiling (DEF-IR1-TRANSLATOR TRULY-THE ...)
; compiling (DEFUN EXPLODE-SETQ ...)
; compiling (DEF-IR1-TRANSLATOR SETQ ...)
; compiling (DEFUN SETQ-VAR ...)
; compiling (DEF-IR1-TRANSLATOR THROW ...)
; compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...)
; compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...)
; compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...)
; compiling (DEF-IR1-TRANSLATOR CATCH ...)
; compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR %FUNCALL
;     (SB!INT:%MACROEXPAND FUNCTION SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN THE-IN-POLICY
;     (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-VALUES-SPECIFIER-TYPE

; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEF-IR1-TRANSLATOR RETURN-FROM
;     (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-DELETED-P

; in: DEF-IR1-TRANSLATOR SETQ
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

; in: DEF-IR1-TRANSLATOR GO
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

; in: DEF-IR1-TRANSLATOR RETURN-FROM
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEF-IR1-TRANSLATOR BLOCK
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEF-IR1-TRANSLATOR IF
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function CTRAN-STARTS-BLOCK


; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN
;     (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN
;         ((SB!C::THING) * * :NODE SB!C::NODE)
;       "optimize away possible call to FDEFINITION at runtime"
;       (SB!C::ENSURE-LVAR-FUN-FORM SB!C::THING 'SB!C::THING T))
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFTRANSFORM FUNCALL
;     (SB!C:DEFTRANSFORM FUNCALL
;         ((FUNCTION &REST SB!C::ARGS) * *)
;       (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #)))
;         (SB!INT:QUASIQUOTE
;          (LAMBDA (FUNCTION #) (DECLARE #) (SB!INT:QUASIQUOTE #)))))
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFUN ENSURE-LVAR-FUN-FORM
;     (SB!C::GIVE-UP-IR1-TRANSFORM "not known to be a function")
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEF-IR1-TRANSLATOR IF
;     (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: LINK-BLOCKS

; in: DEFUN ENSURE-LVAR-FUN-FORM
;     (SB!C::LVAR-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TYPE

; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN THE-IN-POLICY
;     (SB!C::MAKE-CAST SB!C::VALUE-LVAR TYPE SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CAST

; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV
;     (SB!C::MAKE-LEXENV SB!C::DEFINITIONIZE-KEYWORD SB!C::PROCESSED-DEFINITIONS)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEF-IR1-TRANSLATOR TAGBODY
;     (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP :TAGS (SB!C::TAGS))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEF-IR1-TRANSLATOR BLOCK
;     (SB!C::MAKE-LEXENV :BLOCKS (LIST (CONS SB!C::NAME SB!C::ENV-ENTRY)) :CLEANUP
;      SB!C::CLEANUP)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function MAKE-LEXENV


; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEFUN FUNCALL-IN-MACROLET-LEXENV
;     (SB!C::MAKE-RESTRICTED-LEXENV SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-RESTRICTED-LEXENV

; in: DEFUN IR1-CONVERT-FBINDINGS
;     (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-DEST

; in: DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES
;     (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-DEST

; in: DEF-IR1-TRANSLATOR IF
;     (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST)
; 
; caught STYLE-WARNING:
;   undefined function: POSSIBLE-REST-ARG-CONTEXT

; in: DEF-IR1-TRANSLATOR TAGBODY
;     (SB!C::START-BLOCK SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: START-BLOCK

; in: DEF-IR1-TRANSLATOR BLOCK
;     (SB!C::START-BLOCK SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: START-BLOCK

; in: DEF-IR1-TRANSLATOR LABELS
;     (SB!C::SUBSTITUTE-LEAF SB!C::REAL-FUN (CDR SB!C::PLACEHOLDER-CONS))
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF
; 
; compilation unit finished
;   Undefined functions:
;     %MACROEXPAND COMPILER-VALUES-SPECIFIER-TYPE CONSTANT-LVAR-P CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE LVAR-VALUE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST POSSIBLE-REST-ARG-CONTEXT START-BLOCK SUBSTITUTE-LEAF
;   caught 29 STYLE-WARNING conditions
;   printed 4 notes
; compiling (DEFUN REVERT-SOURCE-PATH ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1-translators.fasl-tmp written
; compilation finished in 0:00:05.184
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1util.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NODE-ENCLOSING-CLEANUP ...)
; compiling (DEFUN MAP-NESTED-CLEANUPS ...)
; compiling (DEFUN INSERT-CLEANUP-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-USES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PRINCIPAL-LVAR ...)
; compiling (DEFUN PRINCIPAL-LVAR-USE ...)
; compiling (DEFUN PRINCIPAL-LVAR-DEST ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DELETE-LVAR-USE ...)
; compiling (DEFUN DELETE-LVAR-USE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ADD-LVAR-USE ...)
; compiling (DEFUN IMMEDIATELY-USED-P ...)
; compiling (DEFUN COMBINATION-DEFINED-TYPE ...)
; compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...)
; compiling (DEFUN SUBSTITUTE-LVAR ...)
; compiling (DEFUN SUBSTITUTE-LVAR-USES ...)
; compiling (DEFUN CTRAN-STARTS-BLOCK ...)
; compiling (DEFUN ENSURE-BLOCK-START ...)
; compiling (DEFUN START-BLOCK ...)
; compiling (DEFUN FILTER-LVAR ...)
; compiling (DEFUN DELETE-FILTER ...)
; compiling (DEFUN INSERT-CAST-BEFORE ...)
; compiling (DEFUN NODE-HOME-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-BLOCK)
;     (DECLAIM (INLINE SB!C::NODE-BLOCK))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::NODE-BLOCK) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-BLOCK to be INLINE, but 6 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE NODE-BLOCK))
; compiling (DEFUN NODE-BLOCK ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NODE-COMPONENT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NODE-PHYSENV ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-DEST)
;     (DECLAIM (INLINE SB!C::NODE-DEST))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::NODE-DEST) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-DEST to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE NODE-DEST))
; compiling (DEFUN NODE-DEST ...)
; compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P))
; compiling (DEFUN NODE-STACK-ALLOCATE-P ...)
; compiling (DEFUN FLUSHABLE-COMBINATION-P ...)
; compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...)
; compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...)
; compiling (DEFUN USE-GOOD-FOR-DX-P ...)
; compiling (DEFUN LVAR-GOOD-FOR-DX-P ...)
; compiling (DEFUN KNOWN-DX-COMBINATION-P ...)
; compiling (DEFUN DX-COMBINATION-P ...)
; compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...)
; compiling (DEFUN REF-GOOD-FOR-DX-P ...)
; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...)
; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...)
; compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...)
; compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P))
; compiling (DEFUN BLOCK-TO-BE-DELETED-P ...)
; compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P))
; compiling (DEFUN NODE-TO-BE-DELETED-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LAMBDA-BLOCK ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LAMBDA-COMPONENT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-START-NODE ...)
; compiling (DEFUN BLOCK-START-CLEANUP ...)
; compiling (DEFUN BLOCK-END-CLEANUP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-HOME-LAMBDA ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-PHYSENV ...)
; compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...)
; compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...)
; compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...)
; compiling (DEFUN SOURCE-PATH-FORMS ...)
; compiling (DEFUN TREE-SOME ...)
; compiling (DEFUN NODE-SOURCE-FORM ...)
; compiling (DEFUN LVAR-SOURCE ...)
; compiling (DEFUN COMMON-SUFFIX ...)
; compiling (DEFUN LVAR-ALL-SOURCES ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-USE)
;     (DECLAIM (INLINE SB!C::LVAR-USE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::LVAR-USE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-USE to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE LVAR-USE))
; compiling (DEFUN LVAR-USE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)
;     (DECLAIM (INLINE SB!C::LVAR-HAS-SINGLE-USE-P))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::LVAR-HAS-SINGLE-USE-P) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-HAS-SINGLE-USE-P to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P))
; compiling (DEFUN LVAR-HAS-SINGLE-USE-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CTRAN-HOME-LAMBDA-OR-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CTRAN-HOME-LAMBDA ...)
; compiling (DECLAIM (INLINE CAST-SINGLE-VALUE-P))
; compiling (DEFUN CAST-SINGLE-VALUE-P ...)
; compiling (DECLAIM (INLINE LVAR-SINGLE-VALUE-P))
; compiling (DEFUN LVAR-SINGLE-VALUE-P ...)
; compiling (DEFUN PRINCIPAL-LVAR-END ...)
; compiling (DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY ...)
; compiling (DEFUN MAKE-LEXENV ...)
; compiling (DEFUN MAKE-RESTRICTED-LEXENV ...)
; compiling (DEFUN LINK-BLOCKS ...)
; compiling (DEFUN %LINK-BLOCKS ...)
; compiling (DEFUN UNLINK-BLOCKS ...)
; compiling (DEFUN CHANGE-BLOCK-SUCCESSOR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN REMOVE-FROM-DFO ...)
; compiling (DEFUN ADD-TO-DFO ...)
; compiling (DEFUN MAP-BLOCK-NLXES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CLEAR-FLAGS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-EMPTY-COMPONENT ...)
; compiling (DEFUN NODE-ENDS-BLOCK ...)
; compiling (DEFUN DELETE-LAMBDA-VAR ...)
; compiling (DEFUN REOPTIMIZE-LAMBDA-VAR ...)
; compiling (DEFUN DELETE-FUNCTIONAL ...)
; compiling (DEFUN DELETE-LAMBDA ...)
; compiling (DEFUN DELETE-OPTIONAL-DISPATCH ...)
; compiling (DEFUN NOTE-LOCAL-FUNCTIONAL ...)
; compiling (DEFUN DEFINED-FUN-FUNCTIONAL ...)
; compiling (DEFUN DELETE-REF ...)
; compiling (DEFUN FLUSH-NODE ...)
; compiling (DEFUN FLUSH-DEST ...)
; compiling (DEFUN DELETE-DEST ...)
; compiling (DEFUN DELETE-BLOCK-LAZILY ...)
; compiling (DEFUN MARK-FOR-DELETION ...)
; compiling (DEFUN DELETE-BLOCK ...)
; compiling (DEFUN DELETE-RETURN ...)
; compiling (DEFUN NOTE-UNREFERENCED-VARS ...)
; compiling (DEFUN NOTE-UNREFERENCED-FUN-VARS ...)
; compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...)
; compiling (DEFUN PRESENT-IN-FORM ...)
; compiling (DEFUN NOTE-BLOCK-DELETION ...)
; compiling (DEFUN UNLINK-NODE ...)
; compiling (DEFUN CTRAN-DELETED-P ...)
; compiling (DEFUN NODE-DELETED ...)
; compiling (DEFUN DELETE-COMPONENT ...)
; compiling (DEFUN CLEAN-COMPONENT ...)
; compiling (DEFUN SPLICE-FUN-ARGS ...)
; compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...)
; compiling (DEFUN EXTRACT-FUN-ARGS ...)
; compiling (DEFUN FLUSH-COMBINATION ...)
; compiling (DEFUN CHANGE-REF-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF-IF ...)
; compiling (DEFUN FIND-CONSTANT ...)
; compiling (DEFUN CLOSURE-VAR-P ...)
; compiling (DEFUN FIND-NLX-INFO ...)
; compiling (DEFUN NLX-INFO-LVAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAIN-ENTRY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...)
; compiling (DEFUN XEP-P ...)
; compiling (DEFUN LVAR-FUN-NAME ...)
; compiling (DEFUN LVAR-FUN-DEBUG-NAME ...)
; compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...)
; compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...)
; compiling (DEFUN LET-COMBINATION ...)
; compiling (DEFUN LET-VAR-INITIAL-VALUE ...)
; compiling (DEFUN COMBINATION-LAMBDA ...)
; compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...)
; compiling (DEFUN INLINE-EXPANSION-OK ...)
; compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...)
; compiling (DEFUN ASSURE-LEAF-LIVE-P ...)
; compiling (DEFUN CALL-FULL-LIKE-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CAREFUL-CALL ...)
; compiling (DEFFROB SPECIFIER-TYPE ...)
; compiling (DEFFROB VALUES-SPECIFIER-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-KEYWORD-LVAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-TRANSFORM-KEYS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %EVENT ...)
; compiling (DEFUN MAKE-CAST ...)
; compiling (DEFUN CAST-TYPE-CHECK ...)
; compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...)
; compiling (DEFUN LVAR-FUN-IS ...)
; compiling (DEFUN LVAR-MATCHES ...)
; compiling (DEFUN OPTIONAL-REST-P ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFFROB VALUES-SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:VALUES-SPECIFIER-TYPE
;      SB!C::CAREFUL-VALUES-SPECIFIER-TYPE SB!C::COMPILER-VALUES-SPECIFIER-TYPE
;      SB!C::IR1-TRANSFORM-VALUES-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET 
; --> TAGBODY SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR

; in: DEFFROB SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:SPECIFIER-TYPE SB!C::CAREFUL-SPECIFIER-TYPE
;      SB!C::COMPILER-SPECIFIER-TYPE SB!C::IR1-TRANSFORM-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET 
; --> TAGBODY SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR

; in: DEFUN NOTE-BLOCK-DELETION
;     (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL
;      "deleting unreachable code" :FORMAT-ARGUMENTS NIL)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN DELETE-LAMBDA
;     (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL
;      "deleting unused function~:[.~;~:*~%  ~S~]" :FORMAT-ARGUMENTS
;      (LIST (SB!C::LEAF-DEBUG-NAME SB!C::CLAMBDA)))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; in: DEFUN NOTE-NO-STACK-ALLOCATION
;     (SB!C:COMPILER-NOTIFY "~@<could~2:I not stack allocate ~S in: ~S~:@>"
;      (SB!C::LAMBDA-VAR-ORIGINAL-NAME (SB!C::REF-LEAF SB!C::USE))
;      (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE)))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-NOTIFY

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function COMPILER-NOTIFY


; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFUN CHECK-KEY-ARGS-CONSTANT
;     (SB!C::CONSTANT-LVAR-P (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN ELIMINATE-KEYWORD-ARGS
;     (SB!C::CONSTANT-LVAR-P SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHANGE-REF-LEAF
;     (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE :FROM-SCRATCH SB!C::RECKLESSLY)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN LVAR-ALL-SOURCES
;     (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-ORIGINAL-SOURCE

; in: DEFUN NODE-SOURCE-FORM
;     (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-ORIGINAL-SOURCE

; in: DEFUN NOTE-NO-STACK-ALLOCATION
;     (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-ORIGINAL-SOURCE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function FIND-ORIGINAL-SOURCE


; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFUN SPLICE-FUN-ARGS
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN FLUSH-DEST
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN SUBSTITUTE-LVAR
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN EXTRACT-FUN-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFUN ELIMINATE-KEYWORD-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFUN SPLICE-FUN-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function GIVE-UP-IR1-TRANSFORM


; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFUN CAST-TYPE-CHECK
;     (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE-CAST

; in: DEFUN FILTER-LVAR
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN CHECK-TRANSFORM-KEYS
;     (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN FIND-KEYWORD-LVAR
;     (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN ELIMINATE-KEYWORD-ARGS
;     (SB!C::LVAR-VALUE SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN DELETE-REF
;     (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TO-ASSIGNMENT

; in: DEFUN DELETE-OPTIONAL-DISPATCH
;     (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TO-ASSIGNMENT

; in: DEFUN DELETE-REF
;     (SB!C::MAYBE-LET-CONVERT SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN DELETE-OPTIONAL-DISPATCH
;     (SB!C::MAYBE-LET-CONVERT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN MAKE-CAST
;     (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-WEAKEN-CHECK

; in: DEFUN DELETE-FILTER
;     (SB!C::MERGE-TAIL-SETS MERGE)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TAIL-SETS

; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN FLUSH-NODE
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN CHANGE-BLOCK-SUCCESSOR
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN INSERT-CAST-BEFORE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN SUBSTITUTE-LVAR-USES
;     (SB!C::REOPTIMIZE-LVAR SB!C::NEW)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN DELETE-LVAR-USE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; 
; caught STYLE-WARNING:
;   5 more uses of undefined function REOPTIMIZE-LVAR
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL::ARG-COUNT-ERROR
;   Undefined functions:
;     COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR
;   caught 42 STYLE-WARNING conditions
; compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1util.fasl-tmp written
; compilation finished in 0:00:09.116
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1report.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *CURRENT-PATH*))
; compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))

; file: /«PKGBUILDDIR»/src/compiler/ir1report.lisp
; in: DEFSTRUCT COMPILER-ERROR-CONTEXT
;     (DEFSTRUCT
;         (SB!C::COMPILER-ERROR-CONTEXT
;          (:PRINT-OBJECT (LAMBDA (SB!C::X STREAM) (PRINT-UNREADABLE-OBJECT #)))
;          (:COPIER NIL))
;       (SB!C::ENCLOSING-SOURCE NIL :TYPE LIST)
;       (SB!C::SOURCE NIL :TYPE LIST)
;       (SB!C::ORIGINAL-SOURCE (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING)
;       (SB!C::CONTEXT NIL :TYPE LIST)
;       (SB!INT:FILE-NAME (SB!INT:MISSING-ARG) :TYPE
;        (OR PATHNAME (MEMBER :LISP :STREAM)))
;       (FILE-POSITION NIL :TYPE (OR SB!INT:INDEX NULL))
;       (SB!C::ORIGINAL-SOURCE-PATH NIL :TYPE LIST)
;       (SB!KERNEL:LEXENV NIL :TYPE (OR NULL SB!KERNEL:LEXENV)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::COMPILER-ERROR-CONTEXT {537033B1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::COMPILER-ERROR-CONTEXT-LEXENV could not be
;   inlined because the structure definition for SB!C::COMPILER-ERROR-CONTEXT was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...)
; compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...)
; compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...)
; compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...)
; compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...)
; compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...)
; compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...)
; compiling (DEFUN SOURCE-FORM-CONTEXT ...)
; compiling (DEFUN FIND-ORIGINAL-SOURCE ...)
; compiling (DEFUN STRINGIFY-FORM ...)
; compiling (DEFUN FIND-ERROR-CONTEXT ...)
; compiling (DEFVAR *LAST-ERROR-CONTEXT* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LAST-FORMAT-STRING* ...)
; compiling (DEFVAR *LAST-FORMAT-ARGS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *LAST-MESSAGE-COUNT* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFUN NOTE-MESSAGE-REPEATS ...)
; compiling (DEFUN PRINT-COMPILER-MESSAGE ...)
; compiling (DEFUN %PRINT-COMPILER-MESSAGE ...)
; compiling (DEFUN PRINT-COMPILER-CONDITION ...)
; compiling (DEFINE-CONDITION COMPILER-NOTE ...)
; compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...)
; compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...)
; compiling (DEFUN COMPILER-NOTIFY ...)
; compiling (DEFUN MAYBE-COMPILER-NOTIFY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COMPILER-MUMBLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-COMPONENT-NAME ...)
; compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; compiling (DEFVAR *FAILURE-P*)
; compiling (DEFVAR *WARNINGS-P*)
; compiling (DEFUN COMPILER-ERROR-HANDLER ...)
; compiling (DEFUN COMPILER-WARNING-HANDLER ...)
; compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...)
; compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...)
; compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...)
; compiling (DEFUN WARN-IF-COMPILER-MACRO-DEPENDENCY-PROBLEM ...)
; compiling (DEFUN WARN-IF-INLINE-FAILED/PROCLAIM ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1report.lisp
; in: DEFUN MAYBE-COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (LET ((STREAM *ERROR-OUTPUT*))
;        (PPRINT-LOGICAL-BLOCK (STREAM NIL :PER-LINE-PREFIX ";")
;          (FORMAT STREAM " note: ~3I~_")
;          (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FORMAT STREAM "~A" CONDITION)))
;        (FRESH-LINE STREAM)))
; --> BLOCK LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS
;    'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (INCF SB!C::*COMPILER-NOTE-COUNT*)
;      (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* (FORMAT NIL "note: ~~A")
;       (LIST (PRINC-TO-STRING CONDITION))))
; --> BLOCK LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS
;    'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION
; 
; compilation unit finished
;   Undefined function:
;     COERCE-TO-CONDITION
;   caught 3 STYLE-WARNING conditions
; compiling (DEFUN WARN-IF-INLINE-FAILED/CALL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1report.fasl-tmp written
; compilation finished in 0:00:01.870
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN CONSTANT-LVAR-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LVAR-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE LVAR-DERIVED-TYPE)
;     (DECLAIM (INLINE SB!C::LVAR-DERIVED-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::LVAR-DERIVED-TYPE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-DERIVED-TYPE to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE))
; compiling (DEFUN LVAR-DERIVED-TYPE ...)
; compiling (DEFUN %LVAR-DERIVED-TYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LVAR-TYPE ...)
; compiling (DEFUN LVAR-CONSERVATIVE-TYPE ...)
; compiling (DEFUN NODE-CONSERVATIVE-TYPE ...)
; compiling (DEFUN CONSERVATIVE-TYPE ...)
; compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...)
; compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE))
; compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...)
; compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;     (DECLAIM (INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE to be INLINE, but 3
;   calls to it were previously compiled. A declaration of NOTINLINE at the call
;   sites will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE REOPTIMIZE-COMPONENT)
;     (DECLAIM (INLINE SB!C::REOPTIMIZE-COMPONENT))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB!C::REOPTIMIZE-COMPONENT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::REOPTIMIZE-COMPONENT to be INLINE, but 4 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT))
; compiling (DEFUN REOPTIMIZE-COMPONENT ...)
; compiling (DEFUN REOPTIMIZE-LVAR ...)
; compiling (DEFUN REOPTIMIZE-LVAR-USES ...)
; compiling (DEFUN DERIVE-NODE-TYPE ...)
; compiling (DEFUN ASSERT-LVAR-TYPE ...)
; compiling (DEFUN IR1-OPTIMIZE ...)
; compiling (DEFUN IR1-OPTIMIZE-BLOCK ...)
; compiling (DEFUN JOIN-SUCCESSOR-IF-POSSIBLE ...)
; compiling (DEFUN JOIN-BLOCKS ...)
; compiling (DEFUN FLUSH-DEAD-CODE ...)
; compiling (DEFUN FIND-RESULT-TYPE ...)
; compiling (DEFUN IR1-OPTIMIZE-RETURN ...)
; compiling (DEFUN CBLOCKS-EQUIVALENT-P ...)
; compiling (DEFUN IR1-OPTIMIZE-IF ...)
; compiling (DEFUN KILL-IF-BRANCH-1 ...)
; compiling (DEFUN TENSION-IF-IF-1 ...)
; compiling (DEFUN DUPLICATE-IF-IF-1 ...)
; compiling (DEFUN CONVERT-IF-IF ...)
; compiling (DEFUN MAYBE-DELETE-EXIT ...)
; compiling (DEFUN CHECK-IMPORTANT-RESULT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...)
; compiling (DEFUN XEP-TAIL-COMBINATION-P ...)
; compiling (DEFUN MAYBE-TERMINATE-BLOCK ...)
; compiling (DEFUN RECOGNIZE-KNOWN-CALL ...)
; compiling (DEFUN VALIDATE-CALL-TYPE ...)
; compiling (DEFUN PROPAGATE-FUN-CHANGE ...)
; compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...)
; compiling (DEFUN IR1-TRANSFORM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...)
; compiling (DEFUN ABORT-IR1-TRANSFORM ...)
; compiling (DEFUN DELAY-IR1-TRANSFORM ...)
; compiling (DEFMACRO CATCH-GIVE-UP-IR1-TRANSFORM ...)
; compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...)
; compiling (DEFUN TRANSFORM-CALL ...)
; compiling (DEFUN CONSTANT-FOLD-CALL ...)
; compiling (DEFUN PROPAGATE-TO-REFS ...)
; compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...)
; compiling (DEFTRANSFORM + ...)
; compiling (DEFUN PROPAGATE-FROM-SETS ...)
; compiling (DEFUN IR1-OPTIMIZE-SET ...)
; compiling (DEFUN CONSTANT-REFERENCE-P ...)
; compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...)
; compiling (DEFUN DELETE-LET ...)
; compiling (DEFUN PROPAGATE-LET-ARGS ...)
; compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...)
; compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...)
; compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...)
; compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...)
; compiling (DEFUN CONVERT-MV-BIND-TO-LET ...)
; compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...)
; compiling (DEFTRANSFORM VALUES ...)
; compiling (DEFUN DELETE-CAST ...)
; compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...)
; compiling (DEFUN COMPILE-TIME-TYPE-ERROR-CONTEXT ...)
; compiling (DEFUN IR1-OPTIMIZE-CAST ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION
;     (SB!C::CONVERT-CALL-IF-POSSIBLE SB!C::USE SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined function: CONVERT-CALL-IF-POSSIBLE

; in: DEFUN PROPAGATE-FUN-CHANGE
;     (SB!C::CONVERT-CALL-IF-POSSIBLE
;      (SB!C::LVAR-USES (SB!C::BASIC-COMBINATION-FUN SB!C:CALL)) SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: CONVERT-CALL-IF-POSSIBLE

; in: DEFUN IR1-OPTIMIZE-MV-CALL
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN TRANSFORM-CALL
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN RECOGNIZE-KNOWN-CALL
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN FIND-RESULT-TYPE
;     (SB!C::MAYBE-CONVERT-TAIL-LOCAL-CALL SB!C::USE)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TAIL-LOCAL-CALL

; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION
;     (SB!C::MAYBE-LET-CONVERT (SB!C::COMBINATION-LAMBDA SB!C::NODE))
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN PROPAGATE-FUN-CHANGE
;     (SB!C::MAYBE-LET-CONVERT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN IR1-OPTIMIZE-CAST
;     (SB!C::MERGE-TAIL-SETS SB!C::USE)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TAIL-SETS

; in: DEFUN CONVERT-MV-BIND-TO-LET
;     (SB!C::PROPAGATE-TO-ARGS SB!C::USE SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: PROPAGATE-TO-ARGS

;     (SB!C::REOPTIMIZE-CALL SB!C::USE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-CALL
; 
; compilation unit finished
;   Undefined functions:
;     CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL
;   caught 14 STYLE-WARNING conditions
; compiling (DEFTRANSFORM MAKE-SYMBOL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1opt.fasl-tmp written
; compilation finished in 0:00:07.319
; compiling file "/«PKGBUILDDIR»/src/compiler/loop.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-DOMINATORS ...)
; compiling (DEFUN DOMINATES-P ...)
; compiling (DEFUN LOOP-ANALYZE ...)
; compiling (DEFUN FIND-LOOP-BLOCKS ...)
; compiling (DEFUN FIND-BLOCKS-FROM-HERE ...)
; compiling (DEFUN NOTE-LOOP-HEAD ...)
; compiling (DEFUN FIND-SUPERIOR ...)
; compiling (DEFUN FIND-STRANGE-LOOP-BLOCKS ...)
; compiling (DEFUN FIND-STRANGE-LOOP-SEGMENTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/loop.fasl-tmp written
; compilation finished in 0:00:00.470
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1final.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NOTE-FAILED-OPTIMIZATION ...)
; compiling (DEFUN FINALIZE-XEP-DEFINITION ...)
; compiling (DEFUN NOTE-ASSUMED-TYPES ...)
; compiling (DEFUN IR1-MERGE-CASTS ...)
; compiling (DEFUN IR1-FINALIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir1final.fasl-tmp written
; compilation finished in 0:00:01.156
; compiling file "/«PKGBUILDDIR»/src/compiler/array-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...)
; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...)
; compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...)
; compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...)
; compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...)
; compiling (DEFUN UNSUPPLIED-OR-NIL ...)
; compiling (DEFUN SUPPLIED-AND-TRUE ...)
; compiling (DEFUN ASSERT-ARRAY-RANK ...)
; compiling (DEFUN DERIVE-AREF-TYPE ...)
; compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...)
; compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-REF)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-SET)
; compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...)
; compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...)
; compiling (DEFTRANSFORM MAKE-STRING ...)
; compiling (DEFUN REWRITE-INITIAL-CONTENTS ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY
;     (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS)))
; ==>
;   SB!C::DIMENSIONS
; 
; note: deleting unreachable code
; compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...)
; compiling (DEFINE-SOURCE-TRANSFORM COERCE ...)
; compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...)
; compiling (DEFTRANSFORM MAKE-ARRAY ...)
; compiling (DEFTRANSFORM MAKE-ARRAY ...)
; compiling (DEFTRANSFORM MAKE-ARRAY ...)
; compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...)
; compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...)
; compiling (DEFTRANSFORM ARRAY-RANK ...)
; compiling (DEFUN DERIVE-ARRAY-RANK ...)
; compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM ARRAY-DIMENSION ...)
; compiling (DEFTRANSFORM LENGTH ...)
; compiling (DEFTRANSFORM LENGTH ...)
; compiling (DEFTRANSFORM VECTOR-LENGTH ...)
; compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...)
; compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...)
; compiling (DEFTRANSFORM %CHECK-BOUND ...)
; compiling (SB-XC:DEFMACRO WITH-ARRAY-DATA ...)
; compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...)
; compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUMBLE ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...)
; compiling (DEFINE-BIT-FROB SBIT ...)
; compiling (DEFINE-BIT-FROB BIT ...)
; compiling (DEFINE-FROB SCHAR ...)
; compiling (DEFINE-FROB CHAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM SVREF ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...)
; compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...)
; compiling (DEFTRANSFORM AREF ...)
; compiling (DEFTRANSFORM (SETF AREF) ...)
; compiling (DEFTRANSFORM AREF ...)
; compiling (DEFTRANSFORM (SETF AREF) ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFTRANSFORM ROW-MAJOR-AREF ...)
; compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...)
; compiling (DEF BIT-AND)
; compiling (DEF BIT-IOR)
; compiling (DEF BIT-XOR)
; compiling (DEF BIT-EQV)
; compiling (DEF BIT-NAND)
; compiling (DEF BIT-NOR)
; compiling (DEF BIT-ANDC1)
; compiling (DEF BIT-ANDC2)
; compiling (DEF BIT-ORC1)
; compiling (DEF BIT-ORC2)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-NOT ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P
;     (SB!C::INTEGER-TYPE-P SB!C::TYPE2)
; 
; caught STYLE-WARNING:
;   undefined function: INTEGER-TYPE-P

; in: DEFUN REWRITE-INITIAL-CONTENTS
;     (SB-XC:MACROEXPAND SB!C::DATA SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MACROEXPAND

; in: DEFINE-SOURCE-TRANSFORM COERCE
;     (SB!INT:QUASIQUOTE
;      (MAKE-ARRAY #S(SB!IMPL::COMMA :EXPR LENGTH :KIND 0) :ELEMENT-TYPE
;                  '#S(SB!IMPL::COMMA
;                      :EXPR (IF SB!C::STRING-P
;                                'CHARACTER
;                                (NTH-VALUE 1 #))
;                      :KIND 0)
;                  :INITIAL-CONTENTS #S(SB!IMPL::COMMA :EXPR SB!C::X :KIND 0)))
; --> SB!IMPL::|List| SB!IMPL::|List| IF NTH-VALUE MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB!C::SIMPLIFY-VECTOR-TYPE SB!KERNEL:CTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: SIMPLIFY-VECTOR-TYPE

; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P
;     (SB!C::WEAKEN-INTEGER-TYPE SB!C::TYPE1 :RANGE-ONLY T)
; 
; caught STYLE-WARNING:
;   undefined function: WEAKEN-INTEGER-TYPE
; 
; compilation unit finished
;   Undefined functions:
;     INTEGER-TYPE-P SB-XC:MACROEXPAND SIMPLIFY-VECTOR-TYPE WEAKEN-INTEGER-TYPE
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/array-tran.fasl-tmp written
; compilation finished in 0:00:04.583
; compiling file "/«PKGBUILDDIR»/src/compiler/seqtran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MAPFOO-TRANSFORM ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPC ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...)
; compiling (DEFTRANSFORM MAP ...)
; compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...)
; compiling (DEFTRANSFORM %MAP ...)
; compiling (DEFTRANSFORM MAP-INTO ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...)
; compiling (DEFUN EQ-COMPARABLE-TYPE-P ...)
; compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...)
; compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...)
; compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...)
; compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...)
; compiling (DEF ADJOIN)
; compiling (DEF ASSOC ...)
; compiling (DEF MEMBER ...)
; compiling (DEF RASSOC ...)
; compiling (DEFTRANSFORM MEMQ ...)
; compiling (DEFTRANSFORM DELETE ...)
; compiling (DEFTRANSFORM DELETE-IF ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEF STRING< ...)
; compiling (DEF STRING> ...)
; compiling (DEF STRING<= ...)
; compiling (DEF STRING>= ...)
; compiling (DEF STRING= ...)
; compiling (DEF STRING/= ...)
; compiling (DEF STRING<* ...)
; compiling (DEF STRING<=* ...)
; compiling (DEF STRING>* ...)
; compiling (DEF STRING>=* ...)
; compiling (DEFTRANSFORM STRING=* ...)
; compiling (DEFTRANSFORM STRING/=* ...)
; compiling (DEF STRING=* ...)
; compiling (DEF STRING/=* ...)
; compiling (DEFTRANSFORM STRING/=* ...)
; compiling (DEFTRANSFORM STRING ...)
; compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...)
; compiling (DEFUN MAKE-REPLACE-TRANSFORM ...)
; compiling (DEFINE-REPLACE-TRANSFORMS)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...)
; compiling (DEFUN FROB-BASH-TRANSFORM ...)
; compiling (DEFTRANSFORM UB1-BASH-COPY ...)
; compiling (DEFTRANSFORM UB2-BASH-COPY ...)
; compiling (DEFTRANSFORM UB4-BASH-COPY ...)
; compiling (DEFTRANSFORM UB8-BASH-COPY ...)
; compiling (DEFTRANSFORM UB16-BASH-COPY ...)
; compiling (DEFTRANSFORM UB32-BASH-COPY ...)
; compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...)
; compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...)
; compiling (DEFUN EXPAND-AREF-COPY-LOOP ...)
; compiling (DEFTRANSFORM MAKE-SEQUENCE ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM SEARCH ...)
; compiling (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...)
; compiling (DEFTRANSFORM CONCATENATE ...)
; compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...)
; compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...)
; compiling (DEFUN %FIND/POSITION-IF-LIST-EXPANSION ...)
; compiling (DEF %FIND-POSITION-IF ...)
; compiling (DEF %FIND-POSITION-IF-NOT ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...)
; compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...)
; compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...)
; compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...)
; compiling (DEFTRANSFORM %FIND-POSITION-IF ...)
; compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFTRANSFORM %FIND-POSITION ...)
; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...)
; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...)
; compiling (DEFINE-FIND-POSITION FIND ...)
; compiling (DEFINE-FIND-POSITION POSITION ...)
; compiling (DEFINE-FIND-POSITION-IF FIND-IF ...)
; compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...)
; compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...)
; compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...)
; compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...)
; compiling (DEFTRANSFORM SB!IMPL::|List| ...)
; compiling (DEFTRANSFORM SB!IMPL::|List*| ...)

; file: /«PKGBUILDDIR»/src/compiler/seqtran.lisp
; in: DEFUN MAPFOO-TRANSFORM
;     (SB!INT:FUNARG-BIND/CALL-FORMS SB!C::FN (SB!C::ARGS-TO-FN))
; 
; caught STYLE-WARNING:
;   undefined function: FUNARG-BIND/CALL-FORMS

; in: DEFTRANSFORM FILL
;     (SB!C::INTEGER-TYPE-P SB!C::ELEMENT-CTYPE)
; 
; caught STYLE-WARNING:
;   undefined function: INTEGER-TYPE-P
; 
; compilation unit finished
;   Undefined functions:
;     FUNARG-BIND/CALL-FORMS INTEGER-TYPE-P
;   caught 2 STYLE-WARNING conditions
; compiling (DEFTRANSFORM SB!IMPL::|Append| ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/seqtran.fasl-tmp written
; compilation finished in 0:00:07.263
; compiling file "/«PKGBUILDDIR»/src/compiler/typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...)
; compiling (DEFUN %DEFINE-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM TYPEP ...)
; compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM %TYPEP ...)
; compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM FIND-CLASSOID ...)
; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...)
; compiling (DEFTRANSFORM %TYPEP-WRAPPER ...)
; compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...)
; compiling (!DEFINE-STANDARD-TYPE-PREDICATES)
; compiling (DEFINE-SOURCE-TRANSFORM ATOM ...)
; compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...)
; compiling (DEFTRANSFORM CONSP ...)
; compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...)
; compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...)
; compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...)
; compiling (DEFUN TEST-ARRAY-DIMENSIONS ...)
; compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...)
; compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...)
; compiling (DEFTRANSFORM %INSTANCE-TYPEP ...)
; compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...)
; compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...)
; compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...)
; compiling (DEFTRANSFORM COERCE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/typetran.fasl-tmp written
; compilation finished in 0:00:02.006
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...)
; compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...)
; compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE RATIOP ...)
; compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-BASE-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIMPLE-CHARACTER-STRING-P ...)
; compiling (DEFINE-TYPE-PREDICATE SYSTEM-AREA-POINTER-P ...)
; compiling (DEFINE-TYPE-PREDICATE UNSIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-32-P ...)
; compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...)
; compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...)
; compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...)
; compiling (DEFINE-TYPE-PREDICATE LRA-P ...)
; compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...)
; compiling (DEF)
; compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-typetran.fasl-tmp written
; compilation finished in 0:00:00.072
; compiling file "/«PKGBUILDDIR»/src/compiler/float-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %SINGLE-FLOAT ...)
; compiling (DEFKNOWN %DOUBLE-FLOAT ...)
; compiling (DEFTRANSFORM FLOAT ...)
; compiling (DEFTRANSFORM FLOAT ...)
; compiling (DEFTRANSFORM FLOAT ...)
; compiling (DEFTRANSFORM %SINGLE-FLOAT ...)
; compiling (DEFTRANSFORM %DOUBLE-FLOAT ...)
; compiling (FROB %RANDOM-SINGLE-FLOAT ...)
; compiling (FROB %RANDOM-DOUBLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2
;     (<= SB!C::N-BITS (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS))
; ==>
;   SB!C::N-BITS
; 
; note: deleting unreachable code

;     (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS)
; ==>
;   SB!KERNEL:N-RANDOM-CHUNK-BITS
; 
; note: deleting unreachable code

;     (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS")
; ==>
;   "Unexpectedly small N-RANDOM-CHUNK-BITS"
; 
; note: deleting unreachable code
; compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...)
; compiling (DEFTRANSFORM RANDOM ...)
; compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...)
; compiling (DEFKNOWN SINGLE-FLOAT-BITS ...)
; compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...)
; compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...)
; compiling (DEFTRANSFORM FLOAT-SIGN ...)
; compiling (DEFTRANSFORM FLOAT-SIGN ...)
; compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...)
; compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...)
; compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...)
; compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...)
; compiling (DEFTRANSFORM DECODE-FLOAT ...)
; compiling (DEFTRANSFORM DECODE-FLOAT ...)
; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)
; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX)
;              'SINGLE-FLOAT)
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SCALE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX)
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SCALE-FLOAT ...)
; compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...)
; compiling (DOLIST (X #) ...)
; compiling (DOLIST (X #) ...)
; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...)
; compiling (DEF SINGLE-FLOAT)
; compiling (DEF DOUBLE-FLOAT)
; compiling (DEF + ...)
; compiling (DEF - ...)
; compiling (DEF + ...)
; compiling (DEF - ...)
; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; compiling (FROB <)
; compiling (FROB >)
; compiling (FROB =)
; compiling (DOLIST (STUFF #) ...)
; compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...)
; compiling (DEFKNOWN (%TAN %SINH ...) ...)
; compiling (DEFKNOWN (%SIN %COS ...) ...)
; compiling (DEFKNOWN (%ASIN %ATAN) ...)
; compiling (DEFKNOWN (%ACOS) ...)
; compiling (DEFKNOWN (%COSH) ...)
; compiling (DEFKNOWN (%ACOSH %EXP ...) ...)
; compiling (DEFKNOWN %EXPM1 ...)
; compiling (DEFKNOWN (%HYPOT) ...)
; compiling (DEFKNOWN (%POW) ...)
; compiling (DEFKNOWN (%ATAN2) ...)
; compiling (DEFKNOWN (%SCALB) ...)
; compiling (DEFKNOWN (%SCALBN) ...)
; compiling (DEFKNOWN (%LOG1P) ...)
; compiling (DEF EXP ...)
; compiling (DEF LOG ...)
; compiling (DEF SQRT ...)
; compiling (DEF ASIN ...)
; compiling (DEF ACOS ...)
; compiling (DEF ATAN ...)
; compiling (DEF SINH ...)
; compiling (DEF COSH ...)
; compiling (DEF TANH ...)
; compiling (DEF ASINH ...)
; compiling (DEF ACOSH ...)
; compiling (DEF ATANH ...)
; compiling (DEF SIN ...)
; compiling (DEF COS ...)
; compiling (DEF TAN ...)
; compiling (DEFTRANSFORM ATAN ...)
; compiling (DEFTRANSFORM ATAN ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM LOG ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFUN NUMERIC-TYPE-REAL-P ...)
; compiling (DEFUN COERCE-NUMERIC-BOUND ...)
; compiling (DEFTRANSFORM REALPART ...)
; compiling (DEFTRANSFORM IMAGPART ...)
; compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...)
; compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...)
; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...)
; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...)
; compiling (FROB SINGLE-FLOAT)
; compiling (FROB DOUBLE-FLOAT)
; compiling (DEFINE-FROBS TRUNCATE ...)
; compiling (DEFINE-FROBS ROUND ...)
; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/SINGLE
;     (- EXP SB!VM:SINGLE-FLOAT-BIAS)
; 
; 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).

;     (= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX)
; 
; 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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT)

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (- EXP SB!VM:SINGLE-FLOAT-BIAS)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       etc.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       can't tell whether the second argument is 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:
;       can't tell whether the second argument is a (SIGNED-BYTE 32)
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (ASH 1 SB!C::FRAC-BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) 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
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (- (ASH 1 SB!C::FRAC-BITS) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!C::BITS (- (ASH 1 SB!C::FRAC-BITS) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -1), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (* SB!C::X 0.0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic
; compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
;     (- EXP SB!VM:DOUBLE-FLOAT-BIAS)
; 
; 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).

;     (= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX)
; 
; 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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT)

;     (< SB!C::FRAC-BITS 32)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; 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.

;     (- EXP SB!VM:DOUBLE-FLOAT-BIAS)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       etc.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       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.

;     (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       can't tell whether the second argument is 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:
;       can't tell whether the second argument is a (SIGNED-BYTE 32)
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (< SB!C::FRAC-BITS 32)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (- SB!C::FRAC-BITS 32)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, 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 REAL, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (ASH 1 (- SB!C::FRAC-BITS 32))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) 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
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!C::HIGH (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -1), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (ASH 1 SB!C::FRAC-BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) 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
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (- (ASH 1 SB!C::FRAC-BITS) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The second argument is a (INTEGER -1), not a (UNSIGNED-BYTE 32).
;       etc.

;     (* SB!C::X 0.0d0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic
; compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...)
; compiling (DEF SINGLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
;     (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT (- EXP SB!VM:DOUBLE-FLOAT-BIAS))
; 
; caught STYLE-WARNING:
;   undefined type: DOUBLE-FLOAT-EXPONENT

; in: DEFOPTIMIZER (IMAGPART DERIVE-TYPE)
;     (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::IMAGPART-DERIVE-TYPE-AUX
;      #'IMAGPART)
; 
; caught STYLE-WARNING:
;   undefined function: ONE-ARG-DERIVE-TYPE

; in: DEFOPTIMIZER (REALPART DERIVE-TYPE)
;     (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::REALPART-DERIVE-TYPE-AUX
;      #'REALPART)
; 
; caught STYLE-WARNING:
;   undefined function: ONE-ARG-DERIVE-TYPE

; in: DEFUN %UNARY-FTRUNCATE/SINGLE
;     (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT (- EXP SB!VM:SINGLE-FLOAT-BIAS))
; 
; caught STYLE-WARNING:
;   undefined type: SINGLE-FLOAT-EXPONENT
; 
; compilation unit finished
;   Undefined types:
;     DOUBLE-FLOAT-EXPONENT SINGLE-FLOAT-EXPONENT
;   Undefined function:
;     ONE-ARG-DERIVE-TYPE
;   caught 4 STYLE-WARNING conditions
;   printed 65 notes
; compiling (DEF DOUBLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/float-tran.fasl-tmp written
; compilation finished in 0:00:04.263
; compiling file "/«PKGBUILDDIR»/src/compiler/saptran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...)

; file: /«PKGBUILDDIR»/src/compiler/saptran.lisp
; in: DEFTRANSFORM FOREIGN-SYMBOL-SAP
;     (SB!SYS:FIND-FOREIGN-SYMBOL-IN-TABLE SB!C::NAME
;                                          SB!SYS:*STATIC-FOREIGN-SYMBOLS*)
; ==>
;   SB!C::NAME
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...)
; compiling (DEFKNOWN (SAP< SAP<= ...) ...)
; compiling (DEFKNOWN SAP+ ...)
; compiling (DEFKNOWN SAP- ...)
; compiling (DEFKNOWN SAP-INT ...)
; compiling (DEFKNOWN INT-SAP ...)
; compiling (DEFSAPREF SAP-REF-8 ...)
; compiling (DEFSAPREF SAP-REF-16 ...)
; compiling (DEFSAPREF SAP-REF-32 ...)
; compiling (DEFSAPREF SAP-REF-64 ...)
; compiling (DEFSAPREF SAP-REF-WORD ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-8 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-16 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-32 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-64 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...)
; compiling (DEFSAPREF SAP-REF-SAP ...)
; compiling (DEFSAPREF SAP-REF-LISPOBJ ...)
; compiling (DEFSAPREF SAP-REF-SINGLE ...)
; compiling (DEFSAPREF SAP-REF-DOUBLE ...)
; compiling (DEFSAPREF SAP-REF-LONG ...)
; compiling (DEF SAP< ...)
; compiling (DEF SAP<= ...)
; compiling (DEF SAP= ...)
; compiling (DEF SAP>= ...)
; compiling (DEF SAP> ...)
; compiling (DEFTRANSFORM SAP+ ...)
; compiling (DEF SAP-REF-8)
; compiling (DEF %SET-SAP-REF-8 ...)
; compiling (DEF SIGNED-SAP-REF-8)
; compiling (DEF %SET-SIGNED-SAP-REF-8 ...)
; compiling (DEF SAP-REF-16)
; compiling (DEF %SET-SAP-REF-16 ...)
; compiling (DEF SIGNED-SAP-REF-16)
; compiling (DEF %SET-SIGNED-SAP-REF-16 ...)
; compiling (DEF SAP-REF-32)
; compiling (DEF %SET-SAP-REF-32 ...)
; compiling (DEF SIGNED-SAP-REF-32)
; compiling (DEF %SET-SIGNED-SAP-REF-32 ...)
; compiling (DEF SAP-REF-64)
; compiling (DEF %SET-SAP-REF-64 ...)
; compiling (DEF SIGNED-SAP-REF-64)
; compiling (DEF %SET-SIGNED-SAP-REF-64 ...)
; compiling (DEF SAP-REF-SAP)
; compiling (DEF %SET-SAP-REF-SAP ...)
; compiling (DEF SAP-REF-LISPOBJ)
; compiling (DEF %SET-SAP-REF-LISPOBJ ...)
; compiling (DEF SAP-REF-SINGLE)
; compiling (DEF %SET-SAP-REF-SINGLE ...)
; compiling (DEF SAP-REF-DOUBLE)
; compiling (DEF %SET-SAP-REF-DOUBLE ...)
; compiling (DEF SAP-REF-WORD ...)
; compiling (DEF SIGNED-SAP-REF-WORD ...)
; compiling (DEF %SET-SAP-REF-WORD ...)
; compiling (DEF %SET-SIGNED-SAP-REF-WORD ...)
; compiling (DEFTRANSFORM SAP-REF-64 ...)
; compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...)
; compiling (DEFTRANSFORM %SET-SAP-REF-64 ...)
; 
; compilation unit finished
;   printed 1 note
; compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/saptran.fasl-tmp written
; compilation finished in 0:00:02.817
; compiling file "/«PKGBUILDDIR»/src/compiler/srctran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...)
; compiling (DEFINE-SOURCE-TRANSFORM VALUES ...)
; compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM COMPLEMENT ...)
; compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...)
; compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...)
; compiling (DEFUN SOURCE-TRANSFORM-CXR ...)
; compiling (/SHOW0 "about to set CxR source transforms")
; compiling (LOOP FOR ...)
; compiling (/SHOW0 "done setting CxR source transforms")
; compiling (DEFINE-SOURCE-TRANSFORM REST ...)
; compiling (DEFINE-SOURCE-TRANSFORM FIRST ...)
; compiling (DEFINE-SOURCE-TRANSFORM SECOND ...)
; compiling (DEFINE-SOURCE-TRANSFORM THIRD ...)
; compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM NINTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM TENTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM LIST ...)
; compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LIST* ...)
; compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM NCONC ...)
; compiling (DEFUN DERIVE-APPEND-TYPE ...)
; compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...)
; compiling (DEFTRANSFORM LAST ...)
; compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...)
; compiling (DEFINE-SOURCE-TRANSFORM GET ...)
; compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFTRANSFORM NTHCDR ...)
; compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1+ ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1- ...)
; compiling (DEFINE-SOURCE-TRANSFORM ODDP ...)
; compiling (DEFINE-SOURCE-TRANSFORM EVENP ...)
; compiling (DEFFROB TRUNCATE)
; compiling (DEFFROB ROUND)
; compiling (DEFTRANSFORM LOGTEST ...)
; compiling (DEFTRANSFORM LOGBITP ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...)
; compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...)
; compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...)
; compiling (DEF SIGNED-ZERO->= ...)
; compiling (DEF SIGNED-ZERO-> ...)
; compiling (DEF SIGNED-ZERO-= ...)
; compiling (DEF SIGNED-ZERO-< ...)
; compiling (DEF SIGNED-ZERO-<= ...)
; compiling (DEFSTRUCT (INTERVAL # ...) ...)
; compiling (DEFUN MAKE-INTERVAL ...)
; compiling (DECLAIM (INLINE SET-BOUND))
; compiling (DEFUN SET-BOUND ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN BOUND-FUNC ...)
; compiling (DEFUN SAFE-DOUBLE-COERCION-P ...)
; compiling (DEFUN SAFE-SINGLE-COERCION-P ...)
; compiling (DEFMACRO SAFELY-BINOP ...)
; compiling (DEFMACRO BOUND-BINOP ...)
; compiling (DEFUN COERCION-LOSES-PRECISION-P ...)
; compiling (DEFUN COERCE-FOR-BOUND ...)
; compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...)
; compiling (DEFUN NUMERIC-TYPE->INTERVAL ...)
; compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...)
; compiling (DEFUN COPY-INTERVAL-LIMIT ...)
; compiling (DEFUN COPY-INTERVAL ...)
; compiling (DEFUN INTERVAL-SPLIT ...)
; compiling (DEFUN INTERVAL-CLOSURE ...)
; compiling (DEFUN INTERVAL-RANGE-INFO ...)
; compiling (DEFUN INTERVAL-BOUNDED-P ...)
; compiling (DEFUN INTERVAL-CONTAINS-P ...)
; compiling (DEFUN INTERVAL-INTERSECT-P ...)
; compiling (DEFUN INTERVAL-ADJACENT-P ...)
; compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...)
; compiling (DEFUN INTERVAL-MERGE-PAIR ...)
; compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...)
; compiling (DEFUN INTERVAL-NEG ...)
(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-ADD ...)
(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-SUB ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-MUL ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN INTERVAL-DIV ...)
; compiling (DEFUN INTERVAL-FUNC ...)
; compiling (DEFUN INTERVAL-< ...)
; compiling (DEFUN INTERVAL->= ...)
; compiling (DEFUN INTERVAL-= ...)
; compiling (DEFUN INTERVAL-/= ...)
; compiling (DEFUN INTERVAL-ABS ...)
; compiling (DEFUN INTERVAL-SQR ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE ...)
; compiling (DEFUN FLATTEN-LIST ...)
; compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...)
; compiling (DEFUN CONVERT-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...)
; compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...)
; compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...)
; compiling (DEFUN CONVERT-MEMBER-TYPE ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN ONE-ARG-DERIVE-TYPE ...)
(can't portably mask float traps, proceeding anyway)
; compiling (DEFUN TWO-ARG-DERIVE-TYPE ...)
; compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...)
; compiling (DEFUN ASH-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...)
; compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...)
; compiling (DEFUN NUMERIC-RANGE-INFO ...)
; compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...)
; compiling (DEFUN INTEGER-REM-DERIVE-TYPE ...)
; compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGCOUNT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...)
; compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LDB ...)
; compiling (DEFINE-SOURCE-TRANSFORM DPB ...)
; compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...)
; compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...)
; compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...)
; compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %LDB ...)
; compiling (DEFTRANSFORM %MASK-FIELD ...)
; compiling (DEFTRANSFORM %DPB ...)
; compiling (DEFTRANSFORM %DPB ...)
; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...)
; compiling (DEFUN %ASH/RIGHT ...)
; compiling (DEFTRANSFORM ASH ...)
; compiling (DEFTRANSFORM ASH ...)
; compiling (DEFTRANSFORM %ASH/RIGHT ...)
; compiling (DEFTRANSFORM %ASH/RIGHT ...)
; compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...)
; compiling (DEFUN CUT-TO-WIDTH ...)
; compiling (DEFUN BEST-MODULAR-VERSION ...)
; compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...)
; compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...)
; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...)
; compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...)
; compiling (DEFTRANSFORM BOOLE ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM FLOOR ...)
; compiling (DEFTRANSFORM CEILING ...)
; compiling (DEFTRANSFORM REM ...)
; compiling (DEFTRANSFORM MOD ...)
; compiling (FLET (#) ...)
; compiling (DEFTRANSFORM MOD ...)
; compiling (DEFTRANSFORM TRUNCATE ...)
; compiling (DEFTRANSFORM REM ...)
; compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...)
; compiling (DEFTRANSFORM TRUNCATE ...)
; compiling (DEF ASH ...)
; compiling (DEF LOGAND ...)
; compiling (DEF LOGAND ...)
; compiling (DEF LOGIOR ...)
; compiling (DEF LOGIOR ...)
; compiling (DEF LOGXOR ...)
; compiling (DEF LOGXOR ...)
; compiling (DEFUN LEAST-ZERO-BIT ...)
; compiling (DEFTRANSFORM LOGAND ...)
; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; compiling (DEFTRANSFORM LOGIOR ...)
; compiling (DEF LOGAND)
; compiling (DEF LOGIOR)
; compiling (DEF LOGXOR)
; compiling (DEF LOGTEST ...)
; compiling (DEF + ...)
; compiling (DEF + ...)
; compiling (DEF * ...)
; compiling (DEF * ...)
; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; compiling (DEFTRANSFORM - ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM %NEGATE ...)
; compiling (DEFTRANSFORM %NEGATE ...)
; compiling (DEFUN NOT-MORE-CONTAGIOUS ...)
; compiling (DEF!TYPE EXACT-NUMBER ...)
; compiling (DEFTRANSFORM + ...)
; compiling (DEFTRANSFORM - ...)
; compiling (DEF * ...)
; compiling (DEF / ...)
; compiling (DEF EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEF ASH)
; compiling (DEF /)
; compiling (DEF TRUNCATE)
; compiling (DEF ROUND)
; compiling (DEF FLOOR)
; compiling (DEF CEILING)
; compiling (DEF TRUNCATE)
; compiling (DEF ROUND)
; compiling (DEF FLOOR)
; compiling (DEF CEILING)
; compiling (DEF FTRUNCATE ...)
; compiling (DEF FROUND ...)
; compiling (DEF FFLOOR ...)
; compiling (DEF FCEILING ...)
; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; compiling (DEFTRANSFORM CHAR-UPCASE ...)
; compiling (DEFTRANSFORM CHAR-DOWNCASE ...)
; compiling (DEFUN SAME-LEAF-REF-P ...)
; compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...)
; compiling (DEF EQ)
; compiling (DEF CHAR=)
; compiling (DEF TWO-ARG-CHAR-EQUAL)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQUAL ...)
; compiling (DEFTRANSFORM EQUALP ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DEFUN MAYBE-FLOAT-LVAR-P ...)
; compiling (FLET (#) ...)
; compiling (DEF = ...)
; compiling (DEF /= ...)
; compiling (DEF < ...)
; compiling (DEF > ...)
; compiling (DEF <= ...)
; compiling (DEF >= ...)
; compiling (DEFUN IR1-TRANSFORM-CHAR< ...)
; compiling (DEFTRANSFORM CHAR< ...)
; compiling (DEFTRANSFORM CHAR> ...)
; compiling (DEFUN MULTI-COMPARE ...)
; compiling (DEFINE-SOURCE-TRANSFORM = ...)
; compiling (DEFINE-SOURCE-TRANSFORM < ...)
; compiling (DEFINE-SOURCE-TRANSFORM > ...)
; compiling (DEFINE-SOURCE-TRANSFORM <= ...)
; compiling (DEFINE-SOURCE-TRANSFORM >= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MULTI-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM /= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAX ...)
; compiling (DEFINE-SOURCE-TRANSFORM MIN ...)
; compiling (DEF < ...)
; compiling (DEF > ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ASSOCIATE-ARGS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN REDUCE-CONSTANTS ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-TRANSITIVE
;     (DEFUN SB!C::SOURCE-TRANSFORM-TRANSITIVE
;            (SB!C::FUN SB!C::ARGS IDENTITY
;             &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)
;             (SB!C::ONE-ARG-PREFIXES '(VALUES)))
;       (CASE (LENGTH SB!C::ARGS)
;         (0 IDENTITY)
;         (1 (SB!INT:QUASIQUOTE (# #)))
;         (2 (VALUES NIL T))
;         (T
;          (LET (#)
;            (SB!C::ASSOCIATE-ARGS SB!C::FUN # # IDENTITY)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-TRANSITIVE
;         (SB!C::FUN SB!C::ARGS IDENTITY &OPTIONAL
;          (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER) (SB!C::ONE-ARG-PREFIXES '(VALUES)))
;       (BLOCK SB!C::SOURCE-TRANSFORM-TRANSITIVE
;         (CASE (LENGTH SB!C::ARGS)
;           (0 IDENTITY)
;           (1 (SB!INT:QUASIQUOTE #))
;           (2 (VALUES NIL T))
;           (T
;            (LET #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES T &OPTIONAL (MEMBER T NIL)).
; compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...)
; compiling (DEFINE-SOURCE-TRANSFORM + ...)
; compiling (DEFINE-SOURCE-TRANSFORM * ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; compiling (DEFINE-SOURCE-TRANSFORM GCD ...)
; compiling (DEFINE-SOURCE-TRANSFORM LCM ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE
;     (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;            (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;             &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (CASE (LENGTH SB!C::ARGS)
;         ((0 2) (VALUES NIL T))
;         (1 (SB!INT:QUASIQUOTE (# #)))
;         (T
;          (LET (#)
;            (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;          &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (CASE (LENGTH SB!C::ARGS)
;           ((0 2) (VALUES NIL T))
;           (1 (SB!INT:QUASIQUOTE #))
;           (T
;            (LET #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LIST &OPTIONAL (MEMBER T NIL)).
; compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...)
; compiling (DEFINE-SOURCE-TRANSFORM - ...)
; compiling (DEFINE-SOURCE-TRANSFORM / ...)
; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...)
; compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...)
; compiling (DEFUN MARK-MORE-CONTEXT-USED ...)
; compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...)
; compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...)
; compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...)
; compiling (DEFINE-SOURCE-TRANSFORM NTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM FAST-&REST-NTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM ELT ...)
; compiling (DEFUN SOURCE-TRANSFORM-CAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CADR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CADDR ...)
; compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...)
; compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...)
; compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...)
; compiling (DEFUN SOURCE-TRANSFORM-NULL ...)
; compiling (DEFINE-SOURCE-TRANSFORM NOT ...)
; compiling (DEFINE-SOURCE-TRANSFORM NULL ...)
; compiling (DEFINE-SOURCE-TRANSFORM ENDP ...)
; compiling (DEFTRANSFORM %REST-VALUES ...)
; compiling (DEFTRANSFORM %REST-REF ...)
; compiling (DEFTRANSFORM %REST-LENGTH ...)
; compiling (DEFTRANSFORM %REST-NULL ...)
; compiling (DEFTRANSFORM %REST-TRUE ...)
; compiling (DEFUN CHECK-FORMAT-ARGS ...)
; compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFUN CONCATENATE-FORMAT-P ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM PATHNAME ...)
; compiling (DEFTRANSFORM PATHNAME ...)
; compiling (DEF ERROR)
; compiling (DEF WARN)
; compiling (DEF STYLE-WARN)
; compiling (DEF COMPILER-ERROR)
; compiling (DEF COMPILER-WARN)
; compiling (DEF COMPILER-STYLE-WARN)
; compiling (DEF COMPILER-NOTIFY)
; compiling (DEF MAYBE-COMPILER-NOTIFY)
; compiling (DEF BUG)
; compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...)
; compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...)
; compiling (DEFTRANSFORM SORT ...)
; compiling (DEFTRANSFORM STABLE-SORT ...)
; compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...)
; compiling (DEFTRANSFORM SLEEP ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFOPTIMIZER (CERROR OPTIMIZER)
;     (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING

; in: DEFUN CHECK-FORMAT-ARGS
;     (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING

; in: DEFUN INTERVAL-MUL
;     (SB!EXT:FLOAT-INFINITY-P SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-INFINITY-P

; in: DEFUN BOUND-FUNC
;     (SB!EXT:FLOAT-INFINITY-P SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-INFINITY-P

; in: DEFUN TWO-ARG-DERIVE-TYPE
;     (SB!EXT:FLOAT-NAN-P SB!C::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-NAN-P

; in: DEFUN CONCATENATE-FORMAT-P
;     (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP

; in: DEFTRANSFORM FORMAT
;     (SB!INT:QUASIQUOTE
;      (LAMBDA
;          (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2))
;        (DECLARE (IGNORE STREAM SB!C::CONTROL))
;        (CONCATENATE 'STRING
;                     #S(SB!IMPL::COMMA
;                        :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED
;                                    SB!C::FOR CHAR = #
;                                    WHEN #
;                                    SB!INT:COLLECT ...)
;                        :KIND 2))))
; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET 
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY TAGBODY 
; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ THE AND IF AND THE 
; ==>
;   (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER

; in: DEFUN CONCATENATE-FORMAT-P
;     (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER

;     (SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-COLONP

;     (SB!FORMAT::FORMAT-DIRECTIVE-P SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-P

; in: DEFTRANSFORM FORMAT
;     (SB!INT:QUASIQUOTE
;      (LAMBDA
;          (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2))
;        (DECLARE (IGNORE STREAM SB!C::CONTROL))
;        (CONCATENATE 'STRING
;                     #S(SB!IMPL::COMMA
;                        :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED
;                                    SB!C::FOR CHAR = #
;                                    WHEN #
;                                    SB!INT:COLLECT ...)
;                        :KIND 2))))
; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET 
; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY TAGBODY 
; --> IF SETQ THE COND IF COND IF COND THE PROGN LET OR LET CDAR CDR CAR 
; ==>
;   (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS

; in: DEFUN CONCATENATE-FORMAT-P
;     (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS

; in: DEFOPTIMIZER (CERROR OPTIMIZER)
;     (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS)
;                   (SB!FORMAT:FORMAT-ERROR (SB!C::C)
;                    (SB!C:COMPILER-WARN "~A" SB!C::C)))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; in: DEFTRANSFORM FORMAT
;     (HANDLER-CASE
;      (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL))
;      (SB!FORMAT:FORMAT-ERROR NIL (SB!C::GIVE-UP-IR1-TRANSFORM)))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; in: DEFUN CHECK-FORMAT-ARGS
;     (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
;                   (SB!FORMAT:FORMAT-ERROR (SB!C::C)
;                    (SB!C:COMPILER-WARN "~A" SB!C::C)))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type SB!FORMAT:FORMAT-ERROR


; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER
;     (SB!C::LOGAND-DERIVE-TYPE-AUX SB!C::RES SB!C::MASK-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: LOGAND-DERIVE-TYPE-AUX

; in: DEFTRANSFORM LOGTEST
;     #'SB!C::LOGAND-DERIVE-TYPE-AUX
; 
; caught STYLE-WARNING:
;   undefined function: LOGAND-DERIVE-TYPE-AUX

; in: DEFUN CUT-TO-WIDTH
;     (SB!C::MASK-SIGNED-FIELD SB!C::WIDTH SB!C::CONSTANT-VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: MASK-SIGNED-FIELD

; in: DEFTRANSFORM =
;     (SB!INT:RATIOP SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: RATIOP

; in: DEFTRANSFORM SLEEP
;     (SB!IMPL::SPLIT-SECONDS-FOR-SLEEP SB!C::SECONDS-VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::SPLIT-SECONDS-FOR-SLEEP

; in: DEFTRANSFORM FORMAT
;     (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL))
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT::TOKENIZE-CONTROL-STRING
; 
; compilation unit finished
;   Undefined type:
;     SB!FORMAT:FORMAT-ERROR
;   Undefined functions:
;     SB!FORMAT:%COMPILER-WALK-FORMAT-STRING FLOAT-INFINITY-P FLOAT-NAN-P SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!FORMAT::FORMAT-DIRECTIVE-P SB!FORMAT::FORMAT-DIRECTIVE-PARAMS LOGAND-DERIVE-TYPE-AUX MASK-SIGNED-FIELD RATIOP SB!IMPL::SPLIT-SECONDS-FOR-SLEEP SB!FORMAT::TOKENIZE-CONTROL-STRING
;   caught 22 STYLE-WARNING conditions
;   printed 2 notes
; compiling (DEFTRANSFORM SLEEP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/srctran.fasl-tmp written
; compilation finished in 0:00:14.516
; compiling file "/«PKGBUILDDIR»/src/compiler/bitops-derive-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN INTEGER-TYPE-LENGTH ...)
; compiling (DECLAIM (INLINE ZEROES))
; compiling (DEFUN ZEROES ...)
; compiling (DECLAIM (INLINE ONES))
; compiling (DEFUN ONES ...)
; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...)
; compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...)
; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...)
; compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...)
; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...)
; compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...)
; compiling (DEFFROB LOGAND)
; compiling (DEFFROB LOGIOR)
; compiling (DEFFROB LOGXOR)
; compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/bitops-derive-type.fasl-tmp written
; compilation finished in 0:00:01.242
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM DATA-VECTOR-SET ...)
; compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...)
; compiling (DEF %ARRAY-DATA-VECTOR)
; compiling (DEF ARRAY-STORAGE-VECTOR)
; compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...)
; compiling (DEF BIT-AND ...)
; compiling (DEF BIT-IOR ...)
; compiling (DEF BIT-XOR ...)
; compiling (DEF BIT-EQV ...)
; compiling (DEF BIT-NAND ...)
; compiling (DEF BIT-NOR ...)
; compiling (DEF BIT-ANDC1 ...)
; compiling (DEF BIT-ANDC2 ...)
; compiling (DEF BIT-ORC1 ...)
; compiling (DEF BIT-ORC2 ...)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-VECTOR-= ...)
; compiling (DEFTRANSFORM COUNT ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM %BYTE-BLT ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...)
; compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...)
; compiling (DEF SB!VM::ASH-LEFT-MODFX ...)
; compiling (DEF SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-AND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-OR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...)
; compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-tran.fasl-tmp written
; compilation finished in 0:00:01.936
; compiling file "/«PKGBUILDDIR»/src/compiler/locall.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PROPAGATE-TO-ARGS ...)
; compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...)
; compiling (DEFUN MERGE-TAIL-SETS ...)
; compiling (DEFUN CONVERT-CALL ...)
; compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...)
; compiling (DEFUN MAKE-XEP ...)
; compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...)
; compiling (DEFUN REFERENCE-ENTRY-POINT ...)
; compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...)
; compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...)
; compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...)
; compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...)
; compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...)
; compiling (DEFUN CONVERT-MV-CALL ...)
; compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...)
; compiling (DEFUN WARN-INVALID-LOCAL-CALL ...)
; compiling (DEFUN CONVERT-LAMBDA-CALL ...)
; compiling (DEFUN CONVERT-HAIRY-CALL ...)
; compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...)
; compiling (DEFUN CONVERT-MORE-CALL ...)
; compiling (DEFUN INSERT-LET-BODY ...)
; compiling (DEFUN DEPART-FROM-TAIL-SET ...)
; compiling (DEFUN MERGE-LETS ...)
; compiling (DEFUN MOVE-RETURN-USES ...)
; compiling (DEFUN UNCONVERT-TAIL-CALLS ...)
; compiling (DEFUN MOVE-RETURN-STUFF ...)
; compiling (DEFUN LET-CONVERT ...)
; compiling (DEFUN REOPTIMIZE-CALL ...)
; compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...)
; compiling (DEFUN OK-INITIAL-CONVERT-P ...)
; compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...)
; compiling (DEFUN MAYBE-LET-CONVERT ...)
; compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...)
; compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...)

; file: /«PKGBUILDDIR»/src/compiler/locall.lisp
; in: DEFUN MERGE-LETS
;     (SB!C::GET-LAMBDA-PHYSENV SB!C::HOME)
; 
; caught STYLE-WARNING:
;   undefined function: GET-LAMBDA-PHYSENV

; in: DEFUN INSERT-LET-BODY
;     (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: JOIN-COMPONENTS
; 
; compilation unit finished
;   Undefined functions:
;     GET-LAMBDA-PHYSENV JOIN-COMPONENTS
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/locall.fasl-tmp written
; compilation finished in 0:00:03.738
; compiling file "/«PKGBUILDDIR»/src/compiler/dfo.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-DFO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN JOIN-COMPONENTS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-DFO-AUX ...)
; compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...)
; compiling (DEFUN FIND-INITIAL-DFO-AUX ...)
; compiling (DEFUN FIND-REFERENCE-FUNS ...)
; compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...)
; compiling (DEFUN HAS-XEP-OR-NLX ...)
; compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...)
; compiling (DEFUN FIND-INITIAL-DFO ...)
; compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/dfo.fasl-tmp written
; compilation finished in 0:00:01.681
; compiling file "/«PKGBUILDDIR»/src/compiler/dce.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN LAMBDA-EXTERNALLY-REFERENCED-P ...)
; compiling (DEFUN DCE-ANALYZE-REF ...)
; compiling (DEFUN DCE-ANALYZE-BLOCK ...)
; compiling (DEFUN DCE-ANALYZE-ONE-FUN ...)
; compiling (DEFUN ELIMINATE-DEAD-CODE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/dce.fasl-tmp written
; compilation finished in 0:00:00.191
; compiling file "/«PKGBUILDDIR»/src/compiler/checkgen.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FUN-GUESSED-COST ...)
; compiling (DEFUN TYPE-TEST-COST ...)
; compiling (DEFUN WEAKEN-INTEGER-TYPE ...)
; compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...)
; compiling (DEFUN WEAKEN-VALUES-TYPE ...)
; compiling (DEFUN MAYBE-WEAKEN-CHECK ...)
; compiling (DEFUN NO-FUN-VALUES-TYPES ...)
; compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...)
; compiling (DEFUN MAYBE-NEGATE-CHECK ...)
; compiling (DEFUN CAST-CHECK-TYPES ...)
; compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...)
; compiling (DEFUN PROBABLE-TYPE-CHECK-P ...)
; compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...)
; compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...)
; compiling (DEFUN MAKE-TYPE-CHECK-FORM ...)
; compiling (DEFUN CONVERT-TYPE-CHECK ...)
; compiling (DEFUN CAST-CHECK-USES ...)

; file: /«PKGBUILDDIR»/src/compiler/checkgen.lisp
; in: DEFUN MAYBE-NEGATE-CHECK
;     (EVERY #'SB!C::TYPE-CHECK-TEMPLATE SB!C::SIMPLE-RES)
; --> LET BLOCK FLET BLOCK LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'SB!C::TYPE-CHECK-TEMPLATE #:G303)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CHECK-TEMPLATE

; in: DEFUN TYPE-TEST-COST
;     (SB!C::TYPE-CHECK-TEMPLATE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-CHECK-TEMPLATE
; 
; compilation unit finished
;   Undefined function:
;     TYPE-CHECK-TEMPLATE
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN GENERATE-TYPE-CHECKS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/checkgen.fasl-tmp written
; compilation finished in 0:00:01.793
; compiling file "/«PKGBUILDDIR»/src/compiler/constraint.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; compiling (DEFTYPE CONSTRAINT-Y ...)
; compiling (DEFSTRUCT (CONSTRAINT # ...) ...)
; compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER))
; compiling (DEFUN %CONSTRAINT-NUMBER ...)
; compiling (DEFSTRUCT (CONSET # ...) ...)
; compiling (DEFUN CONSET-EMPTY ...)
; compiling (DEFUN COPY-CONSET ...)
; compiling (DEFUN %CONSET-GROW ...)
; compiling (DECLAIM (INLINE CONSET-GROW))
; compiling (DEFUN CONSET-GROW ...)
; compiling (DEFUN CONSET-MEMBER ...)
; compiling (DEFUN CONSET-ADJOIN ...)
; compiling (DEFUN CONSET= ...)
; compiling (DEFCONSETOP CONSET-UNION ...)
; compiling (DEFCONSETOP CONSET-INTERSECTION ...)
; compiling (DEFCONSETOP CONSET-DIFFERENCE ...)
; compiling (DEFUN FIND-CONSTRAINT ...)
; compiling (DEFUN REGISTER-CONSTRAINT ...)
; compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...)
; compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...)
; compiling (DEFMACRO DO-EQL-VARS ...)
; compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...)
; compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...)
; compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...))
; compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...)
; compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...)
; compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...))
; compiling (DEFUN CONSET-ADD-CONSTRAINT ...)
; compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...)
; compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR))
; compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...)
; compiling (DEFUN INHERIT-CONSTRAINTS ...)
; compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...)
; compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR))
; compiling (DEFUN OK-REF-LAMBDA-VAR ...)
; compiling (DEFUN OK-LVAR-LAMBDA-VAR ...)
; compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT))
; compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...)
; compiling (DEFUN ADD-TEST-CONSTRAINT ...)
; compiling (DECLAIM (INLINE QUICK-ADD-COMPLEMENT-CONSTRAINTS))
; compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...)
; compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...)
; compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...)
; compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...)
; compiling (DEFUN ADD-TEST-CONSTRAINTS ...)
; compiling (DEFUN INTEGER-TYPE-P ...)
; compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...)
; compiling (DEFUN FLOAT-TYPE-P ...)
; compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...)
; compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...)
; compiling (DEFUN CONSTRAIN-REF-TYPE ...)
; compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...)
; compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...)
; compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...)
; compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...)
; compiling (DEFUN USE-RESULT-CONSTRAINTS ...)
; compiling (DEFUN INIT-VAR-CONSTRAINTS ...)
; compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...)
; compiling (DEFUN COMPUTE-BLOCK-IN ...)
; compiling (DEFUN UPDATE-BLOCK-IN ...)
; compiling (DEFUN LEADING-COMPONENT-BLOCKS ...)
; compiling (DEFUN NCONC-NEW ...)
; compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...)
; compiling (DEFUN CONSTRAINT-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/constraint.fasl-tmp written
; compilation finished in 0:00:05.672
; compiling file "/«PKGBUILDDIR»/src/compiler/physenvanal.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PHYSENV-ANALYZE ...)
; compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...)
; compiling (DEFUN GET-LAMBDA-PHYSENV ...)
; compiling (DEFUN REINIT-LAMBDA-PHYSENV ...)
; compiling (DEFUN GET-NODE-PHYSENV ...)
; compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...)
; compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...)
; compiling (DEFUN XEP-ALLOCATOR ...)
; compiling (DEFUN CLOSE-OVER ...)
; compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...)
; compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*)
; compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...)
; compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...)
; compiling (DEFUN INSERT-NLX-ENTRY-STUB ...)
; compiling (DEFUN NOTE-NON-LOCAL-EXIT ...)
; compiling (DEFUN FIND-NON-LOCAL-EXITS ...)
; compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...)
; compiling (DEFUN EMIT-CLEANUPS ...)
; compiling (DEFUN FIND-CLEANUP-POINTS ...)
; compiling (DEFUN TAIL-ANNOTATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/physenvanal.fasl-tmp written
; compilation finished in 0:00:02.110
; compiling file "/«PKGBUILDDIR»/src/compiler/tn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; compiling (DEFMACRO DO-PACKED-TNS ...)
; compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...)
; compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...)
; compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...)
; compiling (DEFUN DELETE-UNREFERENCED-TNS ...)
; compiling (DEFUN MAKE-NORMAL-TN ...)
; compiling (DEFUN MAKE-REPRESENTATION-TN ...)
; compiling (DEFUN MAKE-WIRED-TN ...)
; compiling (DEFUN MAKE-RESTRICTED-TN ...)
; compiling (DEFUN PHYSENV-LIVE-TN ...)
; compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...)
; compiling (DEFUN COMPONENT-LIVE-TN ...)
; compiling (DEFUN SPECIFY-SAVE-TN ...)
; compiling (DEFUN MAKE-CONSTANT-TN ...)
; compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...)
; compiling (DEFUN MAKE-ALIAS-TN ...)
; compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...)
; compiling (DEFUN REFERENCE-TN ...)
; compiling (DEFUN REFERENCE-TN-LIST ...)
; compiling (DEFUN DELETE-TN-REF ...)
; compiling (DEFUN CHANGE-TN-REF-TN ...)
; compiling (DEFUN EMIT-MOVE-TEMPLATE ...)
; compiling (DEFUN EMIT-LOAD-TEMPLATE ...)
; compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...)
; compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...)
; compiling (DEFUN BLOCK-LABEL ...)
; compiling (DEFUN BLOCK-TRAMPOLINE ...)
; compiling (DEFUN DROP-THRU-P ...)
; compiling (DEFUN REGISTER-DROP-THRU ...)
; compiling (DEFUN INSERT-VOP ...)
; compiling (DEFUN EMIT-AND-INSERT-VOP ...)
; compiling (DEFUN DELETE-VOP ...)
; compiling (DEFUN MAKE-N-TNS ...)
; compiling (DEFUN LOCATION= ...)
; compiling (DEFUN TN-VALUE ...)
; compiling (DEFUN IMMEDIATE-TN-P ...)
; compiling (DEFUN FORCE-TN-TO-STACK ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/tn.fasl-tmp written
; compilation finished in 0:00:02.338
; compiling file "/«PKGBUILDDIR»/src/compiler/life.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ADD-GLOBAL-CONFLICT ...)
; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...)
; compiling (DEFUN RESET-CURRENT-CONFLICT ...)
; compiling (DEFUN CACHED-BLOCK-PHYSENV ...)
; compiling (DEFUN CONVERT-TO-GLOBAL ...)
; compiling (DEFUN FIND-LOCAL-REFERENCES ...)
; compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...)
; compiling (DEFEVENT SPLIT-IR2-BLOCK ...)
; compiling (DEFUN SPLIT-IR2-BLOCKS ...)
; compiling (DEFUN CLEAR-LIFETIME-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/life.lisp
; in: DEFUN COALESCE-MORE-LTN-NUMBERS
;     (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN
;                    (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY
;                    #'SB!C::GLOBAL-CONFLICTS-TN)
; 
; note: deleting unreachable code
; compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...)
; compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...)
; compiling (DEFUN LIFETIME-PRE-PASS ...)
; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...)
; compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...)
; compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...)
; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...)
; compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...)
; compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...)
; compiling (DEFUN PROPAGATE-LIVE-TNS ...)
; compiling (DEFPARAMETER *MAX-FAST-PROPAGATE-LIVE-TN-PASSES* ...)
; compiling (DEFUN LIFETIME-FLOW-ANALYSIS ...)
; compiling (DEFUN NOTE-CONFLICTS ...)
; compiling (DEFUN COMPUTE-SAVE-SET ...)
; compiling (DEFUN SAVED-AFTER-READ ...)
; compiling (DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE ...)
; compiling (DEFUN COMPUTE-INITIAL-CONFLICTS ...)
; compiling (DEFUN CONFLICTIZE-SAVE-P-VOP ...)
; compiling (DEFMACRO FROB-MORE-TNS ...)
; compiling (DEFMACRO SCAN-VOP-REFS ...)
; compiling (DEFMACRO ENSURE-RESULTS-LIVE ...)
; compiling (DEFUN CONFLICT-ANALYZE-1-BLOCK ...)
; compiling (DEFUN LIFETIME-POST-PASS ...)
; compiling (DEFUN MERGE-ALIAS-BLOCK-CONFLICTS ...)
; compiling (DEFUN CHANGE-GLOBAL-CONFLICTS-TN ...)
; compiling (DEFUN ENSURE-GLOBAL-TN ...)
; compiling (DEFUN MERGE-ALIAS-CONFLICTS ...)
; compiling (DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...)
; compiling (DEFUN LIFETIME-ANALYZE ...)
; compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...)
; compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...)

; file: /«PKGBUILDDIR»/src/compiler/life.lisp
; in: DEFUN SPLIT-IR2-BLOCKS
;     (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: ADD-TO-EMIT-ORDER

; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS
;     (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-IN-PHYSENV
; 
; compilation unit finished
;   Undefined functions:
;     ADD-TO-EMIT-ORDER FIND-IN-PHYSENV
;   caught 2 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFUN TNS-CONFLICT ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/life.fasl-tmp written
; compilation finished in 0:00:04.381
; compiling file "/«PKGBUILDDIR»/src/compiler/debug-dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFTYPE BYTE-BUFFER ...)
; compiling (DEFVAR *BYTE-BUFFER*)
; compiling (DECLAIM (TYPE BYTE-BUFFER ...))
; compiling (DEFTYPE LOCATION-KIND ...)
; compiling (DEFSTRUCT (LOCATION-INFO # ...) ...)
; compiling (DEFUN NOTE-DEBUG-LOCATION ...)
; compiling (DECLAIM (INLINE IR2-BLOCK-PHYSENV))
; compiling (DEFUN IR2-BLOCK-PHYSENV ...)
; compiling (DEFUN LEAF-VISIBLE-TO-DEBUGGER-P ...)
; compiling (DEFUN COMPUTE-LIVE-VARS ...)
; compiling (DEFVAR *PREVIOUS-LOCATION*)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFUN DUMP-1-LOCATION ...)
; compiling (DEFUN DUMP-LOCATION-FROM-INFO ...)
; compiling (DEFUN FIND-TLF-NUMBER ...)
; compiling (DEFUN DUMP-BLOCK-LOCATIONS ...)
; compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...)
; compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...)
; compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...)
; compiling (DEFUN TN-SC-OFFSET ...)
; compiling (DEFUN LAMBDA-ANCESTOR-P ...)
; compiling (DEFUN DUMP-1-VAR ...)
; compiling (DEFUN COMPUTE-VARS ...)
; compiling (DEFUN COMPUTE-MINIMAL-VARS ...)
; compiling (DEFUN DEBUG-LOCATION-FOR ...)
; compiling (DEFUN COMPUTE-ARGS ...)
; compiling (DEFUN COMPUTE-DEBUG-RETURNS ...)
; compiling (DEFUN DFUN-FROM-FUN ...)

; file: /«PKGBUILDDIR»/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-1-DEBUG-FUN
;     (MAX SB!C::ACTUAL-LEVEL 2)
; --> LET 
; ==>
;   SB!C::ACTUAL-LEVEL
; 
; note: deleting unreachable code
; compiling (DEFUN COMPUTE-1-DEBUG-FUN ...)
; compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...)
; compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...)

; file: /«PKGBUILDDIR»/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-DEBUG-BLOCKS
;     (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC)
;      (SB!C::LOCATION-INFO-KIND SB!C::LOC))
; 
; caught STYLE-WARNING:
;   undefined function: LABEL-ELSEWHERE-P
; 
; compilation unit finished
;   Undefined function:
;     LABEL-ELSEWHERE-P
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/debug-dump.fasl-tmp written
; compilation finished in 0:00:02.458
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/utils.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN FIXNUMIZE ...)
; compiling (DEFUN STATIC-SYMBOL-P ...)
; compiling (DEFUN STATIC-SYMBOL-OFFSET ...)
; compiling (DEFUN OFFSET-STATIC-SYMBOL ...)
; compiling (DEFUN STATIC-FDEFN-OFFSET ...)
; compiling (DEFUN STATIC-FUN-OFFSET ...)
; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...)
; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/utils.fasl-tmp written
; compilation finished in 0:00:00.179
; compiling file "/«PKGBUILDDIR»/src/compiler/fopcompile.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (FLET (# #) ...)
; compiling (DEFUN LET-FOPCOMPILABLE-P ...)
; compiling (DEFUN LAMBDA-FORM-P ...)
; compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...)
; compiling (DEFUN FOPCOMPILE ...)
; compiling (DEFUN FOPCOMPILE-FUNCTION ...)
; compiling (DEFUN FOPCOMPILE-IF ...)
; compiling (DEFUN FOPCOMPILE-CONSTANT ...)
; compiling (DEFUN CANONICAL-INSTANCE-MAKER-FORM-P ...)
; compiling (DEFUN FOPCOMPILE-ALLOCATE-INSTANCE ...)
; compiling (DEFUN TRIVIAL-LOAD-FORM-INITFORM-ARGS ...)

; file: /«PKGBUILDDIR»/src/compiler/fopcompile.lisp
; in: DEFUN FOPCOMPILE
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND

; in: DEFUN FOPCOMPILABLE-P
;     (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: %MACROEXPAND
; 
; compilation unit finished
;   Undefined function:
;     %MACROEXPAND
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN FOPCOMPILE-CONSTANT-INIT-FORMS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fopcompile.fasl-tmp written
; compilation finished in 0:00:01.674
creating directory: /«PKGBUILDDIR»/obj/from-host/src/assembly/
; compiling file "/«PKGBUILDDIR»/src/assembly/assemfile.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...)
; compiling (DEFVAR *ENTRY-POINTS* ...)
; compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...)
; compiling (DEFUN ASSEMBLE-FILE ...)
; compiling (DEFSTRUCT (REG-SPEC #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN REG-SPEC-SC ...)
; compiling (DEFUN PARSE-REG-SPEC ...)
; compiling (DEFUN EMIT-ASSEMBLE ...)
; compiling (DEFUN ARG-OR-RES-SPEC ...)
; compiling (DEFUN EMIT-ASSEMBLE-VOP ...)

; file: /«PKGBUILDDIR»/src/assembly/assemfile.lisp
; in: DEFUN EMIT-ASSEMBLE-VOP
;     (SB!C:GENERATE-CALL-SEQUENCE SB!C::NAME SB!C::RETURN-STYLE SB!C::VOP
;      SB!C::OPTIONS)
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-CALL-SEQUENCE

; in: DEFUN EMIT-ASSEMBLE
;     (SB!INT:QUASIQUOTE
;      (LET #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!C::REGS) :KIND 0)
;        #S(SB!IMPL::COMMA :EXPR (SB!C::DECLS) :KIND 2)
;        (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT*
;                            '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0))
;          #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)
;          (PUSH (CONS '# #) SB!C::*ENTRY-POINTS*)
;          #S(SB!IMPL::COMMA :EXPR SB!C::CODE :KIND 2)
;          #S(SB!IMPL::COMMA :EXPR (SB!C:GENERATE-RETURN-SEQUENCE #) :KIND 2)
;          (SB!ASSEM:EMIT-ALIGNMENT SB!VM:N-LOWTAG-BITS))
;        (WHEN SB-XC:*COMPILE-PRINT*
;          (FORMAT *ERROR-OUTPUT* "~S assembled~%"
;                  '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)))))
; --> SB!IMPL::|List*| SB!IMPL::|Append| SB!IMPL::|List*| SB!IMPL::|List*| 
; --> SB!IMPL::|Append| 
; ==>
;   (SB!C:GENERATE-RETURN-SEQUENCE
;    (OR (CADR (ASSOC :RETURN-STYLE SB!C::OPTIONS)) :RAW))
; 
; caught STYLE-WARNING:
;   undefined function: GENERATE-RETURN-SEQUENCE

; in: DEFUN ASSEMBLE-FILE
;     (SB!C::INIT-ASSEMBLER)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-ASSEMBLER
; 
; compilation unit finished
;   Undefined functions:
;     GENERATE-CALL-SEQUENCE GENERATE-RETURN-SEQUENCE INIT-ASSEMBLER
;   caught 3 STYLE-WARNING conditions
; compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/assemfile.fasl-tmp written
; compilation finished in 0:00:00.983
; compiling file "/«PKGBUILDDIR»/src/compiler/late-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NOTE-THIS-LOCATION ...)
; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/late-vmdef.fasl-tmp written
; compilation finished in 0:00:00.053
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP
;     (DEFSTRUCT
;         (SB!C:FIXUP
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP
;           (SB!C::NAME SB!C::FLAVOR &OPTIONAL SB!C::OFFSET))
;          (:COPIER NIL))
;       SB!C::NAME
;       SB!C::FLAVOR
;       SB!C::OFFSET)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C:FIXUP {54598E31}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NAME and SB!C:FIXUP-FLAVOR could not be
;   inlined because the structure definition for SB!C:FIXUP was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; compiling (DEFSTRUCT (FIXUP # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP-NOTE
;     (DEFSTRUCT
;         (SB!C::FIXUP-NOTE
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP-NOTE (SB!C::KIND SB!C:FIXUP POSITION))
;          (:COPIER NIL))
;       SB!C::KIND
;       SB!C:FIXUP
;       POSITION)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!C::FIXUP-NOTE {546922E1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NOTE-KIND, SB!C:FIXUP-NOTE-FIXUP and
;   SB!C:FIXUP-NOTE-POSITION could not be inlined because the structure definition
;   for SB!C::FIXUP-NOTE was not yet seen. To avoid this warning, DEFSTRUCT should
;   precede references to the affected functions, or they must be declared locally
;   notinline at each call site.
; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...)
; compiling (DEFVAR *FIXUP-NOTES*)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (DEFUN NOTE-FIXUP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/fixup.fasl-tmp written
; compilation finished in 0:00:00.239
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/insts.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...)
; compiling (DEFPARAMETER *CONDITIONS* ...)
; compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...)
; compiling (SETF *ASSEM-SCHEDULER-P* ...)
; compiling (DEFUN CONDITIONAL-OPCODE ...)
; compiling (DEFUN MAYBE-ADD-NOTES ...)
; compiling (DEFUN PRINT-CONDITION ...)
; compiling (DEFUN PRINT-REG ...)
; compiling (DEFUN PRINT-SHIFT-TYPE ...)
; compiling (DEFUN PRINT-IMMEDIATE-SHIFT ...)
; compiling (DEFUN PRINT-SHIFTER-IMMEDIATE ...)
; compiling (DEFUN USE-LABEL-RELATIVE-LABEL ...)
; compiling (DEFUN PRINT-LOAD/STORE-IMMEDIATE ...)
; compiling (DEFUN PRINT-LOAD/STORE-REGISTER ...)
; compiling (DEFUN PRINT-MSR-FIELD-MASK ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFT-TYPE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMMEDIATE-SHIFT ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFTER-IMMEDIATE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE RELATIVE-LABEL ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-IMMEDIATE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-REGISTER ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE MSR-FIELD-MASK ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-REGISTER 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-REGISTER 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SWI 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DEBUG-TRAP 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-IMMEDIATE 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-REGISTER 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DZSM 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DNSM 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DDSM 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH-EXCHANGE 32 ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN SNARF-ERROR-JUNK
;     (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
;            (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8))))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
;                (TYPE (UNSIGNED-BYTE 8) LENGTH)
;                (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR))
;       (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL))
;             (T
;              (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET)
;               VECTOR 0 LENGTH)
;              (SB!INT:COLLECT (# #)
;                (SB!VM::LENGTHS 1)
;                (LET* #
;                  #
;                  #
;                  #)))))
; 
; note: deleting unreachable code

;     (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)
; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!C::%READ-VAR-INTEGER 
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (- SB!INT:INDEX SB!VM::OLD-INDEX)
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

;     (LET ((SB!VM::OLD-INDEX SB!INT:INDEX))
;       (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))
;       (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (>= SB!INT:INDEX LENGTH)
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

;     (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) (SB!VM::LENGTHS))
; ==>
;   SB!VM::ERROR-NUMBER
; 
; note: deleting unreachable code

;     (LET* ((SB!INT:INDEX 0)
;            (SB!VM::ERROR-NUMBER (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)))
;       (SB!VM::LENGTHS SB!INT:INDEX)
;       (LOOP (WHEN (>= SB!INT:INDEX LENGTH) (RETURN))
;             (LET ((SB!VM::OLD-INDEX SB!INT:INDEX))
;               (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))
;               (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX))))
;       (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS)
;               (SB!VM::LENGTHS)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0
;      LENGTH)
; ==>
;   SB!VM::SAP
; 
; note: deleting unreachable code

;     (1+ LENGTH)
; --> + 
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
;            (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8))))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
;                (TYPE (UNSIGNED-BYTE 8) LENGTH)
;                (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR))
;       (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL))
;             (T
;              (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET)
;               VECTOR 0 LENGTH)
;              (SB!INT:COLLECT (# #)
;                (SB!VM::LENGTHS 1)
;                (LET* #
;                  #
;                  #
;                  #)))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN SNARF-ERROR-JUNK ...)
; compiling (DEFUN DEBUG-TRAP-CONTROL ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...)
; compiling (DEFUN REGISTER-P ...)
; compiling (DEFMACRO WITH-CONDITION-DEFAULTED ...)
; compiling (DEFINE-INSTRUCTION BYTE ...)
; compiling (DEFINE-INSTRUCTION WORD ...)
; compiling (DEFUN EMIT-HEADER-DATA ...)
; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...)
; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...)
; compiling (DEFSTRUCT SHIFTER-OPERAND ...)
; compiling (DEFUN LSL ...)
; compiling (DEFUN LSR ...)
; compiling (DEFUN ASR ...)
; compiling (DEFUN ROR ...)
; compiling (DEFUN RRX ...)
; compiling (DEFINE-CONDITION CANNOT-ENCODE-IMMEDIATE-OPERAND ...)
; compiling (DEFUN ENCODABLE-IMMEDIATE ...)
; compiling (DEFUN ENCODE-SHIFTER-IMMEDIATE ...)
; compiling (DEFUN ENCODE-SHIFTER-OPERAND ...)
; compiling (DEFMACRO COMPOSITE-IMMEDIATE-INSTRUCTION ...)
; compiling (DEFSTRUCT MEMORY-OPERAND ...)
; compiling (DEFUN %@ ...)
; compiling (DEFMACRO @ ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-DP-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-DATA-PROCESSING-INSTRUCTION ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION AND ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ANDS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EOR ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EORS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUB ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUBS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSB ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSBS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADD ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADDS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADCS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBCS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSCS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORR ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORRS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BIC ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BICS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TST ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TEQ ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMP ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMN ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOV ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOVS ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVN ...)
; compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVNS ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-SWI-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION SWI ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BKPT-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION BKPT ...)
; compiling (DEFINE-INSTRUCTION DEBUG-TRAP ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-CLZ-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION CLZ ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-INSTRUCTION ...)
; compiling (DEFUN EMIT-BRANCH-BACK-PATCH ...)
; compiling (DEFINE-INSTRUCTION B ...)
; compiling (DEFINE-INSTRUCTION BL ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-EXCHANGE-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION BX ...)
; compiling (DEFINE-INSTRUCTION BLX ...)
; compiling (DEFUN EMIT-SEMAPHORE-INSTRUCTION ...)
; compiling (DEFINE-INSTRUCTION SWP ...)
; compiling (DEFINE-INSTRUCTION SWPB ...)
; compiling (DEFINE-INSTRUCTION MRS ...)
; compiling (DEFUN ENCODE-STATUS-REGISTER-FIELDS ...)
; compiling (DEFMACRO CPSR ...)
; compiling (DEFMACRO SPSR ...)
; compiling (DEFINE-INSTRUCTION MSR ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-MULTIPLY-INSTRUCTION ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MUL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MULS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MLA ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION MLAS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMULL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMULLS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMLAL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION UMLALS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULLS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAL ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALS ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWT ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWB ...)
; compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWT ...)
; compiling (DEFUN EMIT-LOAD/STORE-INSTRUCTION ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION LDR ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION LDRB ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION STR ...)
; compiling (DEFINE-LOAD/STORE-INSTRUCTION STRB ...)
; compiling (DEFUN EMIT-MISC-LOAD/STORE-INSTRUCTION ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRH ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRD ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRD ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRH ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSB ...)
; compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSH ...)
; compiling (DEFINE-INSTRUCTION COMPUTE-CODE ...)
; compiling (DEFINE-INSTRUCTION COMPUTE-LRA ...)
; compiling (DEFINE-INSTRUCTION LOAD-FROM-LABEL ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-DP-INSTRUCTION ...)
; compiling (DEFUN LOW-BIT-FLOAT-REG ...)
; compiling (DEFUN HIGH-BITS-FLOAT-REG ...)
; compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMAC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMAC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMSC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMSC ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMUL ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMUL ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FADD ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FSUB ...)
; compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FDIV ...)
; compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCPY ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FABS ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FNEG ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSQRT ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMP ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPE ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPEZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FUITO ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSITO ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUI ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUIZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSI ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSIZ ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTDS ...)
; compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTSD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-LS-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMS ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMS ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMD ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMD ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMX ...)
; compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMX ...)
; compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-SINGLE ...)
; compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-DOUBLE ...)
; compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-SINGLE ...)
; compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-DOUBLE ...)
; compiling (DEFMACRO DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTS ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDS ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTD ...)
; compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-SRT-INSTRUCTION ...)
; compiling (DEFUN SYSTEM-REG-ENCODING ...)
; compiling (DEFMACRO DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMSR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRS ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDLR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDL ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDHR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDH ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMXR ...)
; compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRX ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-TRT-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION ...)
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMSRR ...)
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRS ...)
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMDRR ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN EMIT-HEADER-DATA
;     (SB!C:COMPONENT-HEADER-LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COMPONENT-HEADER-LENGTH

; in: DEFUN SNARF-ERROR-JUNK
;     (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0
;      LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COPY-UB8-FROM-SYSTEM-AREA

; in: DEFUN DEBUG-TRAP-CONTROL
;     (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS

; in: DEFUN MAYBE-ADD-NOTES
;     (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::OFFSET NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE

;     (SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL
;      (LOGIOR SB!VM::OFFSET SB!VM:OTHER-POINTER-LOWTAG) SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL

; in: DEFUN DEBUG-TRAP-CONTROL
;     (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:NOTE

; in: DEFUN MAYBE-ADD-NOTES
;     (SB!DISASSEM:NOTE-CODE-CONSTANT SB!VM::OFFSET SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:NOTE-CODE-CONSTANT

; in: SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE
;     (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; in: DEFUN MAYBE-ADD-NOTES
;     (SB!DISASSEM::SAP-REF-INT (SB!DISASSEM:DSTATE-SEGMENT-SAP SB!VM::DSTATE)
;      (SB!DISASSEM:DSTATE-CUR-OFFS SB!VM::DSTATE) SB!VM:N-WORD-BYTES
;      (SB!DISASSEM::DSTATE-BYTE-ORDER SB!VM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM::SAP-REF-INT
; 
; compilation unit finished
;   Undefined functions:
;     COMPONENT-HEADER-LENGTH COPY-UB8-FROM-SYSTEM-AREA SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL SB!DISASSEM:NOTE SB!DISASSEM:NOTE-CODE-CONSTANT SB!DISASSEM:READ-SUFFIX SB!DISASSEM::SAP-REF-INT
;   caught 9 STYLE-WARNING conditions
;   printed 16 notes
; compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRD ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/insts.fasl-tmp written
; compilation finished in 0:00:28.701
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFMACRO MOVE ...)
; compiling (DEF SINGLE ...)
; compiling (DEF DOUBLE ...)
; compiling (DEF LOADW ...)
; compiling (DEF STOREW ...)
; compiling (DEFMACRO LOAD-SYMBOL ...)
; compiling (DEFMACRO LOAD-SYMBOL-VALUE ...)
; compiling (DEFMACRO STORE-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-TYPE ...)
; compiling (DEFMACRO LOAD-CSP ...)
; compiling (DEFMACRO STORE-CSP ...)
; compiling (DEFMACRO LISP-JUMP ...)
; compiling (DEFMACRO LISP-RETURN ...)
; compiling (DEFMACRO EMIT-RETURN-PC ...)
; compiling (DEFUN LOAD-STACK-OFFSET ...)
; compiling (DEFMACRO LOAD-STACK-TN ...)
; compiling (DEFUN STORE-STACK-OFFSET ...)
; compiling (DEFMACRO STORE-STACK-TN ...)
; compiling (DEFMACRO MAYBE-LOAD-STACK-TN ...)
; compiling (DEFUN ALLOCATION-TRAMP ...)
; compiling (DEFMACRO ALLOCATION ...)
; compiling (DEFMACRO WITH-FIXED-ALLOCATION ...)
; compiling (DEFUN EMIT-ERROR-BREAK ...)
; compiling (DEFUN ERROR-CALL ...)
; compiling (DEFUN GENERATE-ERROR-CODE ...)
; compiling (DEFMACRO PSEUDO-ATOMIC ...)
; compiling (DEFMACRO DEFINE-FULL-REFFER ...)
; compiling (DEFMACRO DEFINE-FULL-SETTER ...)
; compiling (DEFMACRO DEFINE-PARTIAL-REFFER ...)
; compiling (DEFMACRO DEFINE-PARTIAL-SETTER ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/macros.lisp
; in: DEFUN ALLOCATION-TRAMP
;     (SB!VM::LOAD-IMMEDIATE-WORD SB!VM::ALLOC-TN SB!VM::SIZE)
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-IMMEDIATE-WORD

; in: DEFUN LOAD-STACK-OFFSET
;     (SB!VM::LOAD-IMMEDIATE-WORD SB!VM::REG SB!VM::OFFSET)
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-IMMEDIATE-WORD

; in: DEFUN STORE-STACK-OFFSET
;     (SB!VM::COMPOSITE-IMMEDIATE-INSTRUCTION SB!VM::ADD SB!VM::STACK SB!VM::STACK
;                                             SB!VM::HIGH)
; --> LET* LET SB-XC:BYTE LOGANDC1 
; ==>
;   (SB!VM::LOWEST-SET-BIT-INDEX #:|value148|)
; 
; caught STYLE-WARNING:
;   undefined function: LOWEST-SET-BIT-INDEX
; 
; compilation unit finished
;   Undefined functions:
;     LOAD-IMMEDIATE-WORD LOWEST-SET-BIT-INDEX
;   caught 3 STYLE-WARNING conditions
; compiling (DEF!MACRO WITH-PINNED-OBJECTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/macros.fasl-tmp written
; compilation finished in 0:00:02.552
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...)
; compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...)
; compiling (DEFUN CANONICALIZE-HEADERS ...)
; compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...)
; compiling (DEFMACRO TEST-TYPE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/early-type-vops.fasl-tmp written
; compilation finished in 0:00:00.288
creating directory: /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/support.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN GENERATE-CALL-SEQUENCE ...)
; compiling (DEFUN GENERATE-RETURN-SEQUENCE ...)

; file: /«PKGBUILDDIR»/src/assembly/arm/support.lisp
; in: DEFUN RETURN-MACHINE-ADDRESS
;     (SB!VM:CONTEXT-REGISTER SB!VM::SCP SB!VM::LR-OFFSET)
; 
; caught STYLE-WARNING:
;   undefined function: CONTEXT-REGISTER
; 
; compilation unit finished
;   Undefined function:
;     CONTEXT-REGISTER
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN RETURN-MACHINE-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/support.fasl-tmp written
; compilation finished in 0:00:00.056
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/move.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN LOWEST-SET-BIT-INDEX ...)
; compiling (DEFUN REPEATING-PATTERN-P ...)
; compiling (DEFUN LOAD-REPEATING-PATTERN ...)
; compiling (DEFUN LOAD-IMMEDIATE-WORD ...)
; compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5) ...)
; compiling (DEFINE-VOP (MOVE) ...)
; compiling (DEFINE-MOVE-VOP MOVE ...)
; compiling (PRIMITIVE-TYPE-VOP MOVE ...)
; compiling (DEFINE-VOP (MOVE-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (ILLEGAL-MOVE) ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...)
; compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...)
; compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...)
; compiling (DEFINE-VOP (WORD-MOVE) ...)
; compiling (DEFINE-MOVE-VOP WORD-MOVE ...)
; compiling (DEFINE-VOP (MOVE-WORD-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/move.lisp
; in: DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/move.fasl-tmp written
; compilation finished in 0:00:04.001
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/float.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 1) ...)
; compiling (DEFINE-MOVE-FUN (STORE-SINGLE 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...)
; compiling (FROB SINGLE-MOVE ...)
; compiling (FROB DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (MOVE-FROM-FLOAT) ...)
; compiling (FROB MOVE-FROM-SINGLE ...)
; compiling (FROB MOVE-FROM-DOUBLE ...)
; compiling (FROB MOVE-TO-SINGLE ...)
; compiling (FROB MOVE-TO-DOUBLE ...)
; compiling (FROB MOVE-SINGLE-FLOAT-ARG ...)
; compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 4) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 4) ...)
; compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...)
; compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-SINGLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-DOUBLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-COMPLEX-SINGLE-FLOAT-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-SINGLE-FLOAT-ARG ...)
; compiling (DEFINE-VOP (MOVE-COMPLEX-DOUBLE-FLOAT-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (FLOAT-OP) ...)
; compiling (FROB SINGLE-FLOAT-OP ...)
; compiling (FROB DOUBLE-FLOAT-OP ...)
; compiling (FROB + ...)
; compiling (FROB - ...)
; compiling (FROB * ...)
; compiling (FROB / ...)
; compiling (FROB ABS/SINGLE-FLOAT ...)
; compiling (FROB ABS/DOUBLE-FLOAT ...)
; compiling (FROB %NEGATE/SINGLE-FLOAT ...)
; compiling (FROB %NEGATE/DOUBLE-FLOAT ...)
; compiling (DEFINE-VOP (FSQRTD) ...)
; compiling (DEFINE-VOP (FSQRTS) ...)
; compiling (DEFINE-VOP (FLOAT-COMPARE) ...)
; compiling (FROB SINGLE-FLOAT-COMPARE ...)
; compiling (FROB DOUBLE-FLOAT-COMPARE ...)
; compiling (FROB < ...)
; compiling (FROB > ...)
; compiling (FROB = ...)
; compiling (DEFINE-VOP (FLOAT-COMPARE-ZERO) ...)
; compiling (FROB SINGLE-FLOAT-COMPARE-ZERO ...)
; compiling (FROB DOUBLE-FLOAT-COMPARE-ZERO ...)
; compiling (FROB < ...)
; compiling (FROB > ...)
; compiling (FROB = ...)
; compiling (FROB %SINGLE-FLOAT/SIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/SIGNED ...)
; compiling (FROB %SINGLE-FLOAT/UNSIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...)
; compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...)
; compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...)
; compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; compiling (FROB %UNARY-ROUND ...)
; compiling (FROB %UNARY-ROUND ...)
; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...)
; compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...)
; compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...)
; compiling (SB-XC:DEFTYPE FLOAT-MODES ...)
; compiling (DEFKNOWN FLOATING-POINT-MODES ...)
; compiling (DEFKNOWN (#) ...)
; compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...)
; compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (COMPLEX-SINGLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (COMPLEX-DOUBLE-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/float.lisp
; in: DEFINE-MOVE-FUN (LOAD-DOUBLE 2)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-MOVE-FUN (STORE-SINGLE 1)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-MOVE-FUN (LOAD-SINGLE 1)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; 
; caught STYLE-WARNING:
;   14 more uses of undefined function CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 4 STYLE-WARNING conditions
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/float.fasl-tmp written
; compilation finished in 0:00:12.993
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/sap.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MOVE-TO-SAP) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...)
; compiling (DEFINE-VOP (MOVE-FROM-SAP) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...)
; compiling (DEFINE-VOP (SAP-MOVE) ...)
; compiling (DEFINE-MOVE-VOP SAP-MOVE ...)
; compiling (DEFINE-VOP (MOVE-SAP-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (SAP-INT) ...)
; compiling (DEFINE-VOP (INT-SAP) ...)
; compiling (DEFINE-VOP (POINTER+) ...)
; compiling (DEFINE-VOP (POINTER+-UNSIGNED-C) ...)
; compiling (DEFINE-VOP (POINTER+-SIGNED-C) ...)
; in: LAMBDA (#:WHOLE819 #:ENVIRONMENT820)
;     (LET ((SB!VM::REF-NAME-C (SB!INT:SYMBOLICATE SB!VM::REF-NAME "-C"))
;           (SB!VM::SET-NAME-C (SB!INT:SYMBOLICATE SB!VM::SET-NAME "-C")))
;       (SB!INT:QUASIQUOTE
;        (PROGN
;         (SB!C:DEFINE-VOP (#)
;           (:TRANSLATE #)
;           (:POLICY :FAST-SAFE)
;           (:ARGS # #)
;           (:ARG-TYPES SB!SYS:SYSTEM-AREA-POINTER SB!VM::SIGNED-NUM)
;           (:RESULTS #)
;           (:RESULT-TYPES #)
;           #S(SB!IMPL::COMMA :EXPR # :KIND 2)
;           (:GENERATOR 5 # #))
;         (SB!C:DEFINE-VOP (#)
;           (:TRANSLATE #)
;           (:POLICY :FAST-SAFE)
;           (:ARGS # # #)
;           (:ARG-TYPES SB!SYS:SYSTEM-AREA-POINTER SB!VM::SIGNED-NUM #)
;           (:RESULTS #)
;           (:RESULT-TYPES #)
;           #S(SB!IMPL::COMMA :EXPR # :KIND 2)
;           (:GENERATOR 5 # # #)))))
; 
; caught STYLE-WARNING:
;   The variable REF-NAME-C is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SET-NAME-C is defined but never used.
; compiling (DEFINE-VOP (POINTER-) ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-8 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-LISPOBJ ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SINGLE ...)
; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-DOUBLE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-VOP (VECTOR-SAP) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/sap.fasl-tmp written
; compilation finished in 0:00:05.031
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/system.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LOWTAG-OF) ...)
; compiling (DEFINE-VOP (WIDETAG-OF) ...)
; compiling (DEFINE-VOP (FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...)
; compiling (DEFINE-VOP (SET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (POINTER-HASH) ...)
; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...)
; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...)
; compiling (DEFINE-VOP (COMPUTE-FUN) ...)
; compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...)
; compiling (DEFINE-VOP (SYMBOL-PLIST) ...)
; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...)
; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...)
; compiling (DEFINE-VOP (HALT) ...)
; compiling (DEFINE-VOP (SPIN-LOOP-HINT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/system.fasl-tmp written
; compilation finished in 0:00:01.568
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/char.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...)
; compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...)
; compiling (DEFINE-VOP (CHARACTER-MOVE) ...)
; compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...)
; compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (CHAR-CODE) ...)
; compiling (DEFINE-VOP (CODE-CHAR) ...)
; compiling (DEFINE-VOP (CHARACTER-COMPARE) ...)
; compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...)
; compiling (DEFINE-VOP (FAST-CHAR>/CHARACTER CHARACTER-COMPARE) ...)
; compiling (DEFINE-VOP (FAST-CHAR</CHARACTER CHARACTER-COMPARE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/char.fasl-tmp written
; compilation finished in 0:00:01.362
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/memory.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (CELL-REF) ...)
; compiling (DEFINE-VOP (CELL-SET) ...)
; compiling (DEFINE-VOP (SLOT-REF) ...)
; compiling (DEFINE-VOP (SLOT-SET) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/memory.fasl-tmp written
; compilation finished in 0:00:00.443
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...)
; compiling (DEFUN MOVES ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...)
; compiling (FROB 1 ...)
; compiling (FROB 2 ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in:
;      MACROLET ((FROB (NUM-ARGS NUM-RES)
;             (STATIC-FUN-TEMPLATE-VOP (EVAL NUM-ARGS) (EVAL NUM-RES))))
;     (SB!VM::FROB 2 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET 
; ==>
;   (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

;     (SB!VM::FROB 1 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET 
; ==>
;   (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

;     (SB!VM::FROB 2 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP
;    SB!VM::TEMP SB!VM::LIP SB!VM::LRA-LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

;     (SB!VM::FROB 1 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP
;    SB!VM::TEMP SB!VM::LIP SB!VM::LRA-LABEL)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES
; 
; compilation unit finished
;   Undefined functions:
;     CURRENT-NFP-TN DEFAULT-UNKNOWN-VALUES
;   caught 4 STYLE-WARNING conditions
; compiling (DEFMACRO DEFINE-STATIC-FUN ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/static-fn.fasl-tmp written
; compilation finished in 0:00:01.309
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/arith.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FIXNUM-UNOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (SIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (UNSIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP) ...)
; compiling (DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-NEGATE/UNSIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-LOGNOT/FIXNUM SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-FIXNUM-BINOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-SIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFMACRO DEFINE-BINOP ...)
; compiling (DEFINE-BINOP + ...)
; compiling (DEFINE-BINOP - ...)
; compiling (DEFINE-BINOP LOGAND ...)
; compiling (DEFINE-BINOP LOGANDC1 ...)
; compiling (DEFINE-BINOP LOGANDC2 ...)
; compiling (DEFINE-BINOP LOGIOR ...)
; compiling (DEFINE-BINOP LOGXOR ...)
; compiling (DEFINE-VOP (FAST-LOGIOR-UNSIGNED-SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-LOGIOR-SIGNED-UNSIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...)
; compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SIGNED-BINOP) ...)
; compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP) ...)
; compiling (DEFINE-VOP (FAST-LOGNOR/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-RIGHT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/SIGNED=>SIGNED FAST-ASH-C/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/SIGNED/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; compiling (DEF FAST-ASH-LEFT/FIXNUM=>FIXNUM ...)
; compiling (DEF FAST-ASH-LEFT/SIGNED=>SIGNED ...)
; compiling (DEF FAST-ASH-LEFT/UNSIGNED=>UNSIGNED ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...)
; compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...)
; compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...)
; compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...)
; compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...)
; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...)
; compiling (DEFINE-VOP (LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-MODULAR-BACKEND + ...)
; compiling (DEFINE-MODULAR-BACKEND - ...)
; compiling (DEFINE-MODULAR-BACKEND *)
; compiling (DEFINE-MODULAR-BACKEND LOGANDC1)
; compiling (DEFINE-MODULAR-BACKEND LOGANDC2)
; compiling (DEFINE-VOP (FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFMACRO DEFINE-CONDITIONAL-VOP ...)
; compiling (DEFINE-CONDITIONAL-VOP < ...)
; compiling (DEFINE-CONDITIONAL-VOP > ...)
; compiling (DEFINE-CONDITIONAL-VOP EQL ...)
; compiling (DEFINE-VOP (FAST-EQL/FIXNUM) ...)
; compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...)
; compiling (DEFINE-LOGTEST-VOPS)
; compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...)
; compiling (DEFKNOWN %LOGBITP ...)
; compiling (DEFUN %LOGBITP ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-SIGNUM-FIXNUM FIXNUM-UNOP) ...)
; compiling (DEFINE-VOP (FAST-SIGNUM-SIGNED SIGNED-UNOP) ...)
; compiling (DEFINE-VOP (FAST-SIGNUM-UNSIGNED UNSIGNED-UNOP) ...)
; compiling (DEFINE-VOP (MASK-SIGNED-FIELD-WORD/C) ...)
; compiling (DEFINE-VOP (MASK-SIGNED-FIELD-BIGNUM/C) ...)
; compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...)
; compiling (DEFINE-FULL-REFFER BIGNUM-REF ...)
; compiling (DEFINE-FULL-SETTER BIGNUM-SET ...)
; compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...)
; compiling (DEFINE-VOP (ADD-W/CARRY) ...)
; compiling (DEFINE-VOP (SUB-W/BORROW) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT) ...)
; compiling (DEFINE-VOP (MULHI) ...)
; compiling (DEFINE-VOP (MULHI/FX) ...)
; compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (BIGNUM-FLOOR) ...)
; compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...)
; compiling (DEFINE-VOP (DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-+ ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-- ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-* ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-< ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-> ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-= ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-EQV ...)
; compiling (DEFINE-STATIC-FUN EQL ...)
; compiling (DEFINE-STATIC-FUN %NEGATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/arith.fasl-tmp written
; compilation finished in 0:00:17.966
; compiling file "/«PKGBUILDDIR»/src/code/cross-modular.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MASK-SIGNED-FIELD ...)
; compiling (DEFUN SB!VM::LOGNOT-MOD32 ...)
; compiling (DEFUN SB!VM::+-MOD32 ...)
; compiling (DEFUN SB!VM::--MOD32 ...)
; compiling (DEFUN SB!VM::*-MOD32 ...)
; compiling (DEFUN SB!VM::LOGANDC1-MOD32 ...)
; compiling (DEFUN SB!VM::LOGANDC2-MOD32 ...)
; compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cross-modular.fasl-tmp written
; compilation finished in 0:00:00.189
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN %TEST-FIXNUM ...)
; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...)
; compiling (DEFUN %TEST-IMMEDIATE ...)
; compiling (DEFUN %TEST-LOWTAG ...)
; compiling (DEFUN %TEST-HEADERS ...)
; compiling (DEFINE-VOP (CHECK-TYPE) ...)
; compiling (DEFINE-VOP (TYPE-PREDICATE) ...)
; compiling (DEFUN COST-TO-TEST-TYPES ...)
; compiling (DEFMACRO !DEFINE-TYPE-VOPS ...)
; compiling (DEFUN SIGNED-BYTE-32-TEST ...)
; compiling (DEFINE-VOP (SIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-32 CHECK-TYPE) ...)
; compiling (DEFUN UNSIGNED-BYTE-32-TEST ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-32 CHECK-TYPE) ...)
; compiling (DEFUN POWER-OF-TWO-LIMIT-P ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM) ...)
; compiling (DEFUN ENCODABLE-IMMEDIATE+1 ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM+1) ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...)
; compiling (DEFUN ENCODABLE-IMMEDIATE/+1 ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*-IMM) ...)
; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...)
; compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...)
; compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/type-vops.fasl-tmp written
; compilation finished in 0:00:02.587
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/subprim.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LENGTH/LIST) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/subprim.fasl-tmp written
; compilation finished in 0:00:00.144
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DEBUG-CUR-SP) ...)
; compiling (DEFINE-VOP (DEBUG-CUR-FP) ...)
; compiling (DEFINE-VOP (READ-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-FUN CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...)
; compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...)
; compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/debug.fasl-tmp written
; compilation finished in 0:00:00.919
; compiling file "/«PKGBUILDDIR»/src/compiler/early-aliencomp.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %ALIEN-FUNCALL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/early-aliencomp.fasl-tmp written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/c-call.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFCONSTANT +NUMBER-STACK-ALIGNMENT-MASK+ ...)
; compiling (DEFCONSTANT +MAX-REGISTER-ARGS+ ...)
; compiling (DEFUN MY-MAKE-WIRED-TN ...)
; compiling (DEFSTRUCT ARG-STATE ...)
; compiling (DEFSTRUCT (RESULT-STATE #) ...)
; compiling (DEFUN RESULT-REG-OFFSET ...)
; compiling (DEFUN REGISTER-ARGS-OFFSET ...)
; compiling (DEFUN INT-ARG ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...)
; compiling (DEFUN MAKE-CALL-OUT-TNS ...)
; compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...)
; compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...)
; compiling (DEFINE-VOP (CALL-OUT) ...)
; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...)
; compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/c-call.lisp
; in: DEFINE-VOP (CALL-OUT)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 1 STYLE-WARNING condition
; compiling (DEFTRANSFORM %ALIEN-FUNCALL ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/c-call.fasl-tmp written
; compilation finished in 0:00:01.576
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/cell.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (SLOT) ...)
; compiling (DEFINE-VOP (SET-SLOT) ...)
; compiling (DEFINE-VOP (INIT-SLOT SET-SLOT))
; compiling (DEFINE-VOP (SET CELL-SET) ...)
; compiling (DEFINE-VOP (CHECKED-CELL-REF) ...)
; compiling (DEFINE-VOP (SYMBOL-VALUE CHECKED-CELL-REF) ...)
; compiling (DEFINE-VOP (BOUNDP-FROB) ...)
; compiling (DEFINE-VOP (BOUNDP BOUNDP-FROB) ...)
; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...)
; compiling (DEFINE-VOP (SYMBOL-HASH) ...)
; compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE SET))
; compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE FAST-SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...)
; compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (SET-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...)
; compiling (DEFINE-VOP (BIND) ...)
; compiling (DEFINE-VOP (UNBIND) ...)
; compiling (DEFINE-VOP (UNBIND-TO-HERE) ...)
; compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...)
; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...)
; compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...)
; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...)
; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...)
; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...)
; compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...)
; compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...)
; compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...)
; compiling (DEFINE-RAW-SLOT-VOPS WORD ...)
; compiling (DEFINE-RAW-SLOT-VOPS SINGLE ...)
; compiling (DEFINE-RAW-SLOT-VOPS DOUBLE ...)
; compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-SINGLE ...)
; compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-DOUBLE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/cell.fasl-tmp written
; compilation finished in 0:00:05.078
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/values.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (RESET-STACK-POINTER) ...)
; compiling (DEFINE-VOP (%%NIP-VALUES) ...)
; compiling (DEFINE-VOP (PUSH-VALUES) ...)
; compiling (DEFINE-VOP (VALUES-LIST) ...)
; compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/values.fasl-tmp written
; compilation finished in 0:00:00.797
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/alloc.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (MAKE-FDEFN) ...)
; compiling (DEFINE-VOP (MAKE-CLOSURE) ...)
; compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...)
; compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...)
; compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...)
; compiling (DEFINE-VOP (FIXED-ALLOC) ...)
; compiling (DEFINE-VOP (VAR-ALLOC) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/alloc.fasl-tmp written
; compilation finished in 0:00:02.284
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/call.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN STANDARD-ARG-LOCATION ...)
; compiling (DEFUN STANDARD-ARG-LOCATION-SC ...)
; compiling (DEFCONSTANT ARG-COUNT-SC ...)
; compiling (DEFCONSTANT CLOSURE-SC ...)
; compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...)
; compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...)
; compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...)
; compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...)
; compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...)
; compiling (DEFUN MAKE-NFP-TN ...)
; compiling (DEFUN MAKE-STACK-POINTER-TN ...)
; compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...)
; compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...)
; compiling (DEFUN SELECT-COMPONENT-FORMAT ...)
; compiling (DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ...)
; compiling (DEFINE-VOP (CURRENT-FP) ...)
; compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...)
; compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...)
; compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...)
; compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...)
; compiling (DEFINE-VOP (XEP-SETUP-SP) ...)
; compiling (DEFINE-VOP (ALLOCATE-FRAME) ...)
; compiling (DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME) ...)
; compiling (DEFUN DEFAULT-UNKNOWN-VALUES ...)
; compiling (DEFUN RECEIVE-UNKNOWN-VALUES ...)
; compiling (DEFINE-VOP (UNKNOWN-VALUES-RECEIVER) ...)
; compiling (DEFUN EMIT-BLOCK-HEADER ...)
; compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...)
; compiling (DEFINE-VOP (COPY-MORE-ARG) ...)
; compiling (DEFINE-FULL-REFFER MORE-ARG ...)
; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...)
; compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...)
; compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...)
; compiling (FROB ARG-COUNT-ERROR ...)
; compiling (FROB TYPE-CHECK-ERROR ...)
; compiling (FROB LAYOUT-INVALID-ERROR ...)
; compiling (FROB ODD-KEY-ARGS-ERROR ...)
; compiling (FROB UNKNOWN-KEY-ARG-ERROR ...)
; compiling (FROB NIL-FUN-RETURNED-ERROR ...)
; compiling (DEFINE-VOP (CALL-LOCAL) ...)
; compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...)
; compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...)
; compiling (DEFINE-VOP (KNOWN-RETURN) ...)
; compiling (DEFMACRO DEFINE-FULL-CALL ...)
; compiling (DEFINE-FULL-CALL CALL ...)
; compiling (DEFINE-FULL-CALL CALL-NAMED ...)
; compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...)
; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...)
; compiling (DEFINE-FULL-CALL TAIL-CALL ...)
; compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...)
; compiling (DEFINE-FULL-CALL CALL-VARIABLE ...)
; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...)
; compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...)
; compiling (DEFINE-VOP (RETURN-SINGLE) ...)
; compiling (DEFINE-VOP (RETURN) ...)
; compiling (DEFINE-VOP (RETURN-MULTIPLE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/call.lisp
; in: DEFINE-VOP (KNOWN-CALL-LOCAL)
;     (SB!C:CALLEE-NFP-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-NFP-TN

; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER)
;     (SB!C:CALLEE-NFP-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-NFP-TN

; in: DEFINE-VOP (CALL-LOCAL)
;     (SB!C:CALLEE-NFP-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-NFP-TN

; in: DEFINE-VOP (KNOWN-CALL-LOCAL)
;     (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-RETURN-PC-TN

; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER)
;     (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-RETURN-PC-TN

; in: DEFINE-VOP (CALL-LOCAL)
;     (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE)
; 
; caught STYLE-WARNING:
;   undefined function: CALLEE-RETURN-PC-TN

; in: DEFINE-VOP (COPY-MORE-ARG)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-VOP (XEP-SETUP-SP)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-VOP (COMPUTE-OLD-NFP)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; 
; caught STYLE-WARNING:
;   16 more uses of undefined function CURRENT-NFP-TN


; file: /«PKGBUILDDIR»/src/compiler/arm/call.lisp
; in: DEFINE-VOP (ALLOCATE-FRAME)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFINE-VOP (XEP-SETUP-SP)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME
;     (SB!C:SB-ALLOCATED-SIZE 'SB!C:NON-DESCRIPTOR-STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; 
; caught STYLE-WARNING:
;   1 more use of undefined function SB-ALLOCATED-SIZE
; 
; compilation unit finished
;   Undefined functions:
;     CALLEE-NFP-TN CALLEE-RETURN-PC-TN CURRENT-NFP-TN SB-ALLOCATED-SIZE
;   caught 14 STYLE-WARNING conditions
; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/call.fasl-tmp written
; compilation finished in 0:00:08.022
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN MAKE-NLX-SP-TN ...)
; compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...)
; compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...)
; compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...)
; compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...)
; compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (NLX-ENTRY) ...)
; compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...)
; compiling (DEFINE-VOP (UWP-ENTRY) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/nlx.lisp
; in: DEFINE-VOP (RESTORE-DYNAMIC-STATE)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN

; in: DEFINE-VOP (SAVE-DYNAMIC-STATE)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 2 STYLE-WARNING conditions
; compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/nlx.fasl-tmp written
; compilation finished in 0:00:01.506
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/late-nlx.fasl-tmp written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/show.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")

; file: /«PKGBUILDDIR»/src/compiler/arm/show.lisp
; in: DEFINE-VOP (PRINT)
;     (SB!C:CURRENT-NFP-TN SB!VM::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: CURRENT-NFP-TN
; 
; compilation unit finished
;   Undefined function:
;     CURRENT-NFP-TN
;   caught 1 STYLE-WARNING condition
; compiling (DEFINE-VOP (PRINT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/show.fasl-tmp written
; compilation finished in 0:00:00.204
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/array.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...)
; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER/C) ...)
; compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...)
; compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...)
; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...)
; compiling (DEFINE-VOP (CHECK-BOUND) ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...)
; compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...)
; compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/array.fasl-tmp written
; compilation finished in 0:00:08.823
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/type-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/type-error.fasl-tmp written
; compilation finished in 0:00:00.505
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/pred.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (BRANCH) ...)
; compiling (DEFINE-VOP (BRANCH-IF) ...)
; compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...)
; compiling (DEFINE-VOP (IF-EQ) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/arm/pred.fasl-tmp written
; compilation finished in 0:00:00.266
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEFINE-TYPE-VOPS FIXNUMP ...)
; compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...)
; compiling (!DEFINE-TYPE-VOPS LISTP ...)
; compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...)
; compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS BIGNUMP ...)
; compiling (!DEFINE-TYPE-VOPS RATIOP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEXP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...)
; compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS)
; compiling (DEF)
; compiling (!DEFINE-TYPE-VOPS CHARACTERP ...)
; compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...)
; compiling (!DEFINE-TYPE-VOPS LRA-P ...)
; compiling (!DEFINE-TYPE-VOPS FDEFN-P ...)
; compiling (!DEFINE-TYPE-VOPS CLOSUREP ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...)
; compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...)
; compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...)
; compiling (!DEFINE-TYPE-VOPS STRINGP ...)
; compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...)
; compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...)
; compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...)
; compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...)
; compiling (!DEFINE-TYPE-VOPS VECTORP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...)
; compiling (!DEFINE-TYPE-VOPS ARRAYP ...)
; compiling (!DEFINE-TYPE-VOPS NUMBERP ...)
; compiling (!DEFINE-TYPE-VOPS RATIONALP ...)
; compiling (!DEFINE-TYPE-VOPS INTEGERP ...)
; compiling (!DEFINE-TYPE-VOPS FLOATP ...)
; compiling (!DEFINE-TYPE-VOPS REALP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/late-type-vops.fasl-tmp written
; compilation finished in 0:00:12.607
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/assem-rtns.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/assem-rtns.fasl-tmp written
; compilation finished in 0:00:00.417
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/array.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-HEAP # ...) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-STACK # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/array.fasl-tmp written
; compilation finished in 0:00:00.439
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/arith.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (SIGNED-TRUNCATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/arith.fasl-tmp written
; compilation finished in 0:00:00.211
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/alloc.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB!VM")

; /«PKGBUILDDIR»/obj/from-host/src/assembly/arm/alloc.fasl-tmp written
; compilation finished in 0:00:00.008
; compiling file "/«PKGBUILDDIR»/src/compiler/pseudo-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...)
; compiling (DEFINE-VOP (MOVE-OPERAND) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/pseudo-vops.fasl-tmp written
; compilation finished in 0:00:00.112
; compiling file "/«PKGBUILDDIR»/src/compiler/aliencomp.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %SAP-ALIEN ...)
; compiling (DEFKNOWN ALIEN-SAP ...)
; compiling (DEFKNOWN SLOT ...)
; compiling (DEFKNOWN %SET-SLOT ...)
; compiling (DEFKNOWN %SLOT-ADDR ...)
; compiling (DEFKNOWN DEREF ...)
; compiling (DEFKNOWN %SET-DEREF ...)
; compiling (DEFKNOWN %DEREF-ADDR ...)
; compiling (DEFKNOWN %HEAP-ALIEN ...)
; compiling (DEFKNOWN %SET-HEAP-ALIEN ...)
; compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...)
; compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...)
; compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...)
; compiling (DEFKNOWN LOCAL-ALIEN ...)
; compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; compiling (DEFKNOWN %SET-LOCAL-ALIEN ...)
; compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...)
; compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...)
; compiling (DEFKNOWN %CAST ...)
; compiling (DEFKNOWN NATURALIZE ...)
; compiling (DEFKNOWN DEPORT ...)
; compiling (DEFKNOWN DEPORT-ALLOC ...)
; compiling (DEFKNOWN %ALIEN-VALUE ...)
; compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...)
; compiling (DEFKNOWN ALIEN-FUNCALL ...)
; compiling (DEFTRANSFORM SLOT ...)
; compiling (DEFTRANSFORM %SET-SLOT ...)
; compiling (DEFTRANSFORM %SLOT-ADDR ...)
; compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...)
; compiling (DEFTRANSFORM SLOT ...)
; compiling (DEFTRANSFORM %SET-SLOT ...)
; compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %SLOT-ADDR ...)

; file: /«PKGBUILDDIR»/src/compiler/aliencomp.lisp
; in: DEFUN FIND-DEREF-ALIEN-TYPE
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; note: deleting unreachable code
; compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...)
; compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...)
; compiling (DEFUN COMPUTE-DEREF-GUTS ...)
; compiling (DEFTRANSFORM DEREF ...)
; compiling (DEFTRANSFORM %SET-DEREF ...)
; compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %DEREF-ADDR ...)
; compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...)
; compiling (DEFTRANSFORM %HEAP-ALIEN ...)
; compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...)
; compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...)
; compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...)
; compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...)
; compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...)
; compiling (DEFTRANSFORM LOCAL-ALIEN ...)
; compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...)
; compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...)
; compiling (DEFTRANSFORM DISPOSE-LOCAL-ALIEN ...)
; compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %CAST ...)
; compiling (DEFTRANSFORM ALIEN-SAP ...)
; compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %SAP-ALIEN ...)
; compiling (FLET (#) ...)
; compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...)
; compiling (DEFTRANSFORM / ...)
; compiling (DEFTRANSFORM ASH ...)
; compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; compiling (DEFVAR *SAVED-FP-AND-PCS* ...)
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (DEFUN FIND-SAVED-FP-AND-PC ...)
; compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...)

; file: /«PKGBUILDDIR»/src/compiler/aliencomp.lisp
; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE)
;     (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: ANNOTATE-ORDINARY-LVAR

; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT)
;     (SB!C::EMIT-MOVE SB!C:CALL BLOCK (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG)
;      SB!C::TEMP-TN)
; 
; caught STYLE-WARNING:
;   undefined function: EMIT-MOVE

;     (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TN

;     (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: MOVE-LVAR-RESULT
; 
; compilation unit finished
;   Undefined functions:
;     ANNOTATE-ORDINARY-LVAR EMIT-MOVE LVAR-TN MOVE-LVAR-RESULT
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/aliencomp.fasl-tmp written
; compilation finished in 0:00:02.177
; compiling file "/«PKGBUILDDIR»/src/compiler/ltv.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %LOAD-TIME-VALUE ...)
; compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/ltv.lisp
; in: DEF-IR1-TRANSLATOR LOAD-TIME-VALUE
;     (SB!INT:QUASIQUOTE
;      (SB!KERNEL:VALUE-CELL-REF
;       #S(SB!IMPL::COMMA :EXPR (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE) :KIND 0)))
; --> SB!IMPL::|List| 
; ==>
;   (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-VALUE-CELL

; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT)
;     (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: MOVE-LVAR-RESULT
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-VALUE-CELL MOVE-LVAR-RESULT
;   caught 2 STYLE-WARNING conditions
; compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ltv.fasl-tmp written
; compilation finished in 0:00:00.270
; compiling file "/«PKGBUILDDIR»/src/compiler/gtn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN GTN-ANALYZE ...)
; compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...)
; compiling (DEFUN ASSIGN-IR2-PHYSENV ...)
; compiling (DEFUN USE-STANDARD-RETURNS ...)
; compiling (DEFUN RETURN-VALUE-EFFICIENCY-NOTE ...)
; compiling (DEFUN RETURN-INFO-FOR-SET ...)
; compiling (DEFUN ASSIGN-RETURN-LOCATIONS ...)
; compiling (DEFUN ASSIGN-IR2-NLX-INFO ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/gtn.fasl-tmp written
; compilation finished in 0:00:00.635
; compiling file "/«PKGBUILDDIR»/src/compiler/ltn.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NODE-LTN-POLICY ...)
; compiling (DEFUN LTN-POLICY-SAFE-P ...)
; compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...)
; compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...)
; compiling (DECLAIM (INLINE LVAR-PTYPE))
; compiling (DEFUN LVAR-PTYPE ...)
; compiling (DEFUN LVAR-DELAYED-LEAF ...)
; compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...)
; compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...)
; compiling (DEFUN ANNOTATE-FUN-LVAR ...)
; compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...)
; compiling (DEFUN LTN-DEFAULT-CALL ...)
; compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...)
; compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...)
; compiling (DEFUN LTN-ANALYZE-RETURN ...)
; compiling (DEFUN LTN-ANALYZE-MV-BIND ...)
; compiling (DEFUN LTN-ANALYZE-MV-CALL ...)
; compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...)
; compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...)
; compiling (DEFUN LTN-ANALYZE-SET ...)
; compiling (DEFUN LTN-ANALYZE-IF ...)
; compiling (DEFUN LTN-ANALYZE-EXIT ...)
; compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC LTN-ANNOTATE) ...)
; compiling (DEFUN OPERAND-RESTRICTION-OK ...)
; compiling (DEFUN TEMPLATE-ARGS-OK ...)
; compiling (DEFUN TEMPLATE-RESULTS-OK ...)
; compiling (DEFUN IS-OK-TEMPLATE-USE ...)
; compiling (DEFUN FIND-TEMPLATE ...)
; compiling (DEFUN FIND-TEMPLATE-FOR-LTN-POLICY ...)
; compiling (DEFVAR *EFFICIENCY-NOTE-LIMIT* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *EFFICIENCY-NOTE-COST-THRESHOLD* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFUN STRANGE-TEMPLATE-FAILURE ...)
; compiling (DEFUN NOTE-REJECTED-TEMPLATES ...)
; compiling (DEFUN LTN-ANALYZE-KNOWN-CALL ...)
; compiling (DEFUN LTN-ANALYZE-CAST ...)
; compiling (DEFUN LTN-ANNOTATE-CASTS ...)
; compiling (DEFUN LTN-ANNOTATE-CAST ...)
; compiling (DEFUN LTN-ANALYZE-BLOCK ...)
; compiling (DEFUN LTN-ANALYZE ...)
; compiling (DEFUN LTN-ANALYZE-BELATED-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ltn.fasl-tmp written
; compilation finished in 0:00:02.762
; compiling file "/«PKGBUILDDIR»/src/compiler/stack.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-PUSHED-LVARS ...)
; compiling (DEFUN NLE-BLOCK-NLX-INFO ...)
; compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...)
; compiling (DEFUN MERGE-UVL-LIVE-SETS ...)
; compiling (DEFUN FIND-LOWEST-COMMON-DOMINATOR ...)
; compiling (DEFUN BACK-PROPAGATE-ONE-DX-LVAR ...)
; compiling (DEFUN BACK-PROPAGATE-DX-LVARS ...)
; compiling (DEFUN UPDATE-UVL-LIVE-SETS ...)
; compiling (DEFUN ORDERED-LIST-INTERSECTION ...)
; compiling (DEFUN ORDERED-LIST-UNION ...)
; compiling (DEFUN ORDER-BLOCK-UVL-SETS ...)
; compiling (DEFUN ORDER-UVL-SETS ...)
; compiling (DEFUN INSERT-STACK-CLEANUPS ...)
; compiling (DEFUN FIND-PUSHING-BLOCKS ...)

; file: /«PKGBUILDDIR»/src/compiler/stack.lisp
; in: DEFUN INSERT-STACK-CLEANUPS
;     (SB!C::ADD-TO-EMIT-ORDER SB!C::2BLOCK (SB!C::BLOCK-INFO SB!C::BLOCK1))
; 
; caught STYLE-WARNING:
;   undefined function: ADD-TO-EMIT-ORDER
; 
; compilation unit finished
;   Undefined function:
;     ADD-TO-EMIT-ORDER
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN STACK-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/stack.fasl-tmp written
; compilation finished in 0:00:02.188
; compiling file "/«PKGBUILDDIR»/src/compiler/control.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ADD-TO-EMIT-ORDER ...)
; compiling (DEFUN FIND-ROTATED-LOOP-HEAD ...)
; compiling (DEFUN CONTROL-ANALYZE-BLOCK ...)
; compiling (DEFUN CONTROL-ANALYZE-1-FUN ...)
; compiling (DEFEVENT CONTROL-DELETED-BLOCK ...)
; compiling (DEFUN CONTROL-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/control.fasl-tmp written
; compilation finished in 0:00:00.412
; compiling file "/«PKGBUILDDIR»/src/compiler/entry.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ENTRY-ANALYZE ...)
; compiling (DEFUN COMPUTE-ENTRY-INFO ...)
; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/entry.fasl-tmp written
; compilation finished in 0:00:00.295
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN EMIT-MOVE ...)
; compiling (DEFUN EMIT-STEP-P ...)
; compiling (DEFUN TYPE-CHECK-TEMPLATE ...)
; compiling (DEFUN EMIT-TYPE-CHECK ...)
; compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...)
; compiling (DEFUN EMIT-MAKE-VALUE-CELL ...)
; compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/ir2tran.lisp
; in: DEFUN FIND-IN-PHYSENV
;     (DEFUN SB!C::FIND-IN-PHYSENV (SB!C::THING SB!C::PHYSENV)
;       (OR (CDR (ASSOC SB!C::THING (SB!C::IR2-PHYSENV-CLOSURE #)))
;           (ETYPECASE SB!C::THING
;             (SB!C::LAMBDA-VAR (SB!INT:AVER #) (SB!C::LEAF-INFO SB!C::THING))
;             (SB!C::NLX-INFO (SB!INT:AVER #) (SB!C::IR2-NLX-INFO-HOME #))
;             (SB!C::CLAMBDA (SB!INT:AVER #) (SB!C::ENTRY-INFO-CLOSURE-TN #)))
;           (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" SB!C::THING
;                       SB!C::PHYSENV)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!C::FIND-IN-PHYSENV
;         (SB!C::THING SB!C::PHYSENV)
;       (BLOCK SB!C::FIND-IN-PHYSENV
;         (OR (CDR (ASSOC SB!C::THING #))
;             (ETYPECASE SB!C::THING
;               (SB!C::LAMBDA-VAR # #)
;               (SB!C::NLX-INFO # #)
;               (SB!C::CLAMBDA # #))
;             (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" SB!C::THING
;                         SB!C::PHYSENV))))
; 
; note: type assertion too complex to check:
;  (VALUES TN &REST T).
; compiling (DEFUN FIND-IN-PHYSENV ...)
; compiling (DEFUN CONSTANT-TN ...)
; compiling (DEFUN LEAF-TN ...)
; compiling (DEFUN EMIT-CONSTANT ...)
; compiling (DEFUN %RETURN-IS-BOXED ...)
; compiling (DEFUN BOXED-REF-P ...)
; compiling (DEFUN IR2-CONVERT-REF ...)
; compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...)
; compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...)
; compiling (DEFUN IR2-CONVERT-CLOSURE ...)
; compiling (DEFUN CLOSURE-INITIAL-VALUE ...)
; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT-SET ...)
; compiling (DEFUN LVAR-TN ...)
; compiling (DEFUN LVAR-TNS ...)
; compiling (DEFUN LVAR-RESULT-TNS ...)
; compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...)
; compiling (DEFUN STANDARD-RESULT-TNS ...)
; compiling (DEFUN MOVE-RESULTS-COERCED ...)
; compiling (DEFUN MOVE-RESULTS-CHECKED ...)
; compiling (DEFUN MOVE-LVAR-RESULT ...)
; compiling (DEFUN IR2-CONVERT-CAST ...)
; compiling (DEFUN REFERENCE-ARGS ...)
; compiling (DEFUN IR2-CONVERT-CONDITIONAL ...)
; compiling (DEFUN IR2-CONVERT-IF ...)
; compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...)
; compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...)
; compiling (DEFUN IR2-CONVERT-TEMPLATE ...)
; compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...)
; compiling (DEFUN IR2-CONVERT-LET ...)
; compiling (DEFUN EMIT-PSETQ-MOVES ...)
; compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...)
; compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...)
; compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...)
; compiling (DEFUN FUN-LVAR-TN ...)
; compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...)
; compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...)
; compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...)
; compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...)
; compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *TRACK-FULL-CALLED-FNAMES* ...)
; compiling (DEFUN PONDER-FULL-CALL ...)
; compiling (DEFUN IR2-CONVERT-FULL-CALL ...)
; compiling (DEFUN XEP-VERIFY-ARG-COUNT ...)
; compiling (DEFUN INIT-XEP-ENVIRONMENT ...)
; compiling (DEFUN SAVE-BSP ...)
; compiling (DEFUN IR2-CONVERT-BIND ...)
; compiling (DEFUN IR2-CONVERT-RETURN ...)
; compiling (DEFOPTIMIZER (%CALLER-FRAME IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT-MV-BIND ...)
; compiling (DEFUN IR2-CONVERT-MV-CALL ...)
; compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...)
; compiling (DEF-IR1-TRANSLATOR PROGV ...)
; compiling (DEFUN IR2-CONVERT-EXIT ...)
; compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT-THROW ...)
; compiling (DEFUN EMIT-NLX-START ...)
; compiling (DEFUN IR2-CONVERT-ENTRY ...)
; compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...)
; compiling (DEF LIST)
; compiling (DEF LIST*)
; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...)
; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...)
; compiling (DEFUN IR2-CONVERT ...)
; compiling (DEFUN FINISH-IR2-BLOCK ...)
; 
; compilation unit finished
;   printed 1 note
; compiling (DEFUN IR2-CONVERT-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir2tran.fasl-tmp written
; compilation finished in 0:00:08.059
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...)
; compiling (DEFUN EMIT-INITS ...)
; compiling (DEFUN EMIT-FIXED-ALLOC ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...)
; compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...)
; compiling (LET (#) ...)
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...)
; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/vm-ir2tran.fasl-tmp written
; compilation finished in 0:00:02.564
; compiling file "/«PKGBUILDDIR»/src/compiler/copyprop.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN TN-IS-COPY-OF ...)
; compiling (DEFUN INIT-COPY-SETS ...)
; compiling (DEFUN COPY-FLOW-ANALYSIS ...)
; compiling (DEFEVENT COPY-DELETED-MOVE ...)
; compiling (DEFUN OK-COPY-REF ...)
; compiling (DEFUN PROPAGATE-COPIES ...)
; compiling (DEFUN COPY-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/copyprop.fasl-tmp written
; compilation finished in 0:00:00.544
; compiling file "/«PKGBUILDDIR»/src/compiler/represent.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN GET-OPERAND-INFO
;     (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN GET-OPERAND-INFO ...)
; compiling (DEFUN LISTIFY-RESTRICTIONS ...)
; compiling (DEFUN BAD-COSTS-ERROR ...)
; compiling (DEFUN BAD-COERCE-ERROR ...)
; compiling (DEFUN BAD-MOVE-ARG-ERROR ...)
; compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...)
; compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...)
; compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...)
; compiling (DEFUN ADD-REPRESENTATION-COSTS ...)

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN SELECT-TN-REPRESENTATION
;     (DEFUN SB!C::SELECT-TN-REPRESENTATION (SB!C:TN SB!C::SCS SB!C::COSTS)
;       (DECLARE (TYPE SB!C:TN SB!C:TN)
;                (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;                (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;       (DOLIST (SB!C::SCN SB!C::SCS) (SETF (SVREF SB!C::COSTS SB!C::SCN) 0))
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS
;        SB!C::COSTS #'SB!C::VOP-ARGS #'SB!C::VOP-INFO-ARG-COSTS
;        #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS
;        SB!C::COSTS #'SB!C::VOP-RESULTS #'SB!C::VOP-INFO-RESULT-COSTS
;        #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;       (LET ((MIN MOST-POSITIVE-FIXNUM) (SB!C::MIN-SCN NIL) (SB!C::UNIQUE NIL))
;         (DOLIST (SB!C::SCN SB!C::SCS)
;           (LET (#)
;             (COND # #)))
;         (VALUES (SVREF SB!C:*BACKEND-SC-NUMBERS* SB!C::MIN-SCN) SB!C::UNIQUE)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SB!C::SELECT-TN-REPRESENTATION
;                    (SB-INT:NAMED-LAMBDA SB!C::SELECT-TN-REPRESENTATION
;                        (SB!C:TN SB!C::SCS SB!C::COSTS)
;                      (DECLARE (TYPE SB!C:TN SB!C:TN)
;                               (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;                               (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;                      (BLOCK SB!C::SELECT-TN-REPRESENTATION
;                        (DOLIST (SB!C::SCN SB!C::SCS) (SETF #))
;                        (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN)
;                         SB!C::SCS SB!C::COSTS #'SB!C::VOP-ARGS
;                         #'SB!C::VOP-INFO-ARG-COSTS
;                         #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;                        (SB!C::ADD-REPRESENTATION-COSTS
;                         (SB!C::TN-WRITES SB!C:TN) SB!C::SCS SB!C::COSTS
;                         #'SB!C::VOP-RESULTS #'SB!C::VOP-INFO-RESULT-COSTS
;                         #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;                        (LET (# # #)
;                          (DOLIST # #)
;                          (VALUES # SB!C::UNIQUE))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB!C::ADD-REPRESENTATION-COSTS could not be inlined because its source
;   code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be
;   in effect to save function definitions for inlining.
; compiling (DEFUN SELECT-TN-REPRESENTATION ...)
; compiling (DEFUN NOTE-NUMBER-STACK-TN ...)
; compiling (DEFUN GET-OPERAND-NAME ...)
; compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...)
; compiling (DEFUN FIND-MOVE-VOP ...)
; compiling (DEFUN EMIT-COERCE-VOP ...)
; compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS))
; compiling (DEFUN COERCE-SOME-OPERANDS ...)
; compiling (DEFUN COERCE-VOP-OPERANDS ...)
; compiling (DEFUN EMIT-ARG-MOVES ...)
; compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...)
; compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK))
; compiling (DEFUN NOTE-IF-NUMBER-STACK ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; compiling (DEFUN SELECT-REPRESENTATIONS ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/represent.fasl-tmp written
; compilation finished in 0:00:02.338
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *2BLOCK-PRED*)
; compiling (DEFVAR *2BLOCK-SUCC*)
; compiling (DEFVAR *LABEL-2BLOCK*)
; compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...)
; compiling (DEFUN UPDATE-BLOCK-SUCC ...)
; compiling (DECLAIM (INLINE VOP-NAME))
; compiling (DEFUN VOP-NAME ...)
; compiling (DEFUN MOVE-VALUE-TARGET ...)
; compiling (DEFUN CMOVP ...)
; compiling (DECLAIM (INLINE CONVERT-ONE-CMOV))
; compiling (DEFUN CONVERT-ONE-CMOV ...)
; compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...)
; compiling (DEFUN CONVERT-CMOVS ...)
; compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...)
; compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...)
; compiling (DEFUN IR2-OPTIMIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/ir2opt.fasl-tmp written
; compilation finished in 0:00:00.659
; compiling file "/«PKGBUILDDIR»/src/compiler/pack.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!REGALLOC")
; compiling (DEFVAR *PACK-ASSIGN-COSTS* ...)
; compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CONFLICTS-IN-SC ...)
; compiling (DEFUN ADD-LOCATION-CONFLICTS ...)
; compiling (DEFUN FIND-LOCATION-USAGE ...)
; compiling (DEFUN IR2-BLOCK-COUNT ...)
; compiling (DEFUN INIT-SB-VECTORS ...)
; compiling (DEFUN GROW-SC ...)
; compiling (DEFUN NO-LOAD-FUN-ERROR ...)
; compiling (DEFUN FAILED-TO-PACK-ERROR ...)
; compiling (DEFUN DESCRIBE-TN-USE ...)
; compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...)
; compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...)
; compiling (DEFUN NOTE-SPILLED-TN ...)
; compiling (DEFUN PACK-SAVE-TN ...)
; compiling (DEFUN EMIT-OPERAND-LOAD ...)
; compiling (DEFUN REVERSE-FIND-VOP ...)
; compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...)
; compiling (DEFUN FIND-SINGLE-WRITER ...)
; compiling (DEFUN SAVE-SINGLE-WRITER-TN ...)
; compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...)
; compiling (DEFUN BASIC-SAVE-TN ...)
; compiling (DEFUN EMIT-SAVES ...)
; compiling (DEFUN SAVE-IF-NECESSARY ...)
; compiling (DEFUN RESTORE-TN ...)
; compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...)
; compiling (DEFUN OPTIMIZED-EMIT-SAVES ...)
; compiling (DEFVAR *TN-WRITE-COST* ...)
; compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...)
; compiling (DEFUN ASSIGN-TN-COSTS ...)
; compiling (DEFUN ASSIGN-TN-DEPTHS ...)
; compiling (DEFVAR *LIVE-BLOCK*)
; compiling (DEFVAR *LIVE-VOP*)
; compiling (DEFVAR *REPACK-BLOCKS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFUN INIT-LIVE-TNS ...)
; compiling (DEFUN COMPUTE-LIVE-TNS ...)
; compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...)
; compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...)
; compiling (DEFUN FIND-LOAD-TN-TARGET ...)
; compiling (DEFUN SELECT-LOAD-TN-LOCATION ...)
; compiling (DEFEVENT UNPACK-TN ...)
; compiling (DEFUN UNPACK-TN ...)
; compiling (DEFEVENT UNPACK-FALLBACK ...)

; file: /«PKGBUILDDIR»/src/compiler/pack.lisp
; in: DEFUN UNPACK-FOR-LOAD-TN
;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; compiling (DEFUN UNPACK-FOR-LOAD-TN ...)
; compiling (DEFUN PACK-LOAD-TN ...)
; compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS))
; compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...)
; compiling (DEFUN PACK-LOAD-TNS ...)
; compiling (DEFUN TARGET-IF-DESIRABLE ...)
; compiling (DEFUN CHECK-OK-TARGET ...)
; compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS))
; compiling (DEFUN %CALL-WITH-TARGET-TNS ...)
; compiling (DEFMACRO DO-TARGET-TNS ...)
; compiling (DEFUN FIND-OK-TARGET-OFFSET ...)
; compiling (DEFUN SELECT-LOCATION ...)
; compiling (DEFUN ORIGINAL-TN ...)
; compiling (DECLAIM (INLINE UNBOUNDED-SC-P))
; compiling (DEFUN UNBOUNDED-SC-P ...)
; compiling (DEFUN UNBOUNDED-TN-P ...)
; compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P))
; compiling (DEFUN PACK-TN ...)
; compiling (DEFUN PACK-WIRED-TN ...)
; compiling (DEFEVENT REPACK-BLOCK ...)
; compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...)
; compiling (DEFUN TN-LEXICAL-DEPTH ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...)
; compiling (DECLAIM (FTYPE FUNCTION ...))
; compiling (DEFUN PACK ...)

; file: /«PKGBUILDDIR»/src/compiler/pack.lisp
; in: DEFUN DESCRIBE-TN-USE
;     (SB!C::PRINT-TN-GUTS SB!C:TN STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-TN-GUTS
; 
; compilation unit finished
;   Undefined function:
;     PRINT-TN-GUTS
;   caught 1 STYLE-WARNING condition
;   printed 4 notes
; compiling (DEFUN PACK-GREEDY ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/pack.fasl-tmp written
; compilation finished in 0:00:07.928
; compiling file "/«PKGBUILDDIR»/src/compiler/pack-iterative.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!REGALLOC")
; compiling (DEFSTRUCT (ORDERED-SET # ...) ...)
; compiling (DEFUN OSET-ADJOIN ...)
; compiling (DEFUN OSET-DELETE ...)
; compiling (DEFUN OSET-MEMBER ...)
; compiling (DEFMACRO DO-OSET-ELEMENTS ...)
; compiling (DEF!STRUCT (VERTEX # ...) ...)
; compiling (DECLAIM (INLINE VERTEX-SC))
; compiling (DEFUN VERTEX-SC ...)
; compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...)
; compiling (DEFUN INSERT-ONE-EDGE ...)
; compiling (DEFUN BLOCK-GTNS ...)
; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...)
; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...)
; compiling (DEFUN INSERT-CONFLICT-EDGES ...)
; compiling (DEFUN RESTRICTED-TN-LOCATIONS ...)
; compiling (DEFUN PREPARE-VERTICES ...)
; compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...)
; compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...)
; compiling (DEFUN COLOR-NO-CONFLICTS-P ...)
; compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...)
; compiling (DEFUN VERTEX-DOMAIN ...)
; compiling (DEFUN VERTEX-TARGET-VERTICES ...)
; compiling (DEFUN VERTICES-BEST-COLOR ...)
; compiling (DEFUN FIND-VERTEX-COLOR ...)
; compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...)
; compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...)
; compiling (DEFVAR *PACK-ITERATIONS* ...)
; compiling (DEFUN ITERATE-COLOR ...)
; compiling (DEFUN PACK-COLORED ...)
; compiling (DEFUN PACK-ITERATIVE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/pack-iterative.fasl-tmp written
; compilation finished in 0:00:02.597
; compiling file "/«PKGBUILDDIR»/src/compiler/codegen.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN COMPONENT-HEADER-LENGTH ...)
; compiling (DEFUN SB-ALLOCATED-SIZE ...)
; compiling (DEFUN CURRENT-NFP-TN ...)
; compiling (DEFUN CALLEE-NFP-TN ...)
; compiling (DEFUN CALLEE-RETURN-PC-TN ...)
; compiling (DEFVAR *CODE-SEGMENT* ...)
; compiling (DEFVAR *ELSEWHERE* ...)
; compiling (DEFVAR *ELSEWHERE-LABEL* ...)
; compiling (DEFVAR *PREV-SEGMENT*)
; compiling (DEFVAR *PREV-VOP*)
; compiling (DEFUN TRACE-INSTRUCTION ...)
; compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...)
; compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...)
; compiling (DEFUN INIT-ASSEMBLER ...)
; compiling (DEFUN GENERATE-CODE ...)
; compiling (DEFUN EMIT-LABEL-ELSEWHERE ...)

; file: /«PKGBUILDDIR»/src/compiler/codegen.lisp
; in: DEFUN TRACE-INSTRUCTION
;     (SB!C::PRINT-VOP SB!C::VOP)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-VOP
; 
; compilation unit finished
;   Undefined function:
;     PRINT-VOP
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN LABEL-ELSEWHERE-P ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/codegen.fasl-tmp written
; compilation finished in 0:00:00.576
; compiling file "/«PKGBUILDDIR»/src/compiler/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *ARGS* ...)
; compiling (DEFVAR *IGNORED-ERRORS* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BARF ...)
; compiling (DEFVAR *BURP-ACTION* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BURP ...)
; compiling (DEFVAR *SEEN-BLOCKS*)
; compiling (DEFVAR *SEEN-FUNS*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-NODE-REACHED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-IR1-CONSISTENCY ...)
; compiling (DEFUN OBSERVE-FUNCTIONAL ...)
; compiling (DEFUN CHECK-FUN-REACHED ...)
; compiling (DEFUN CHECK-FUN-STUFF ...)
; compiling (DEFUN CHECK-FUN-CONSISTENCY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...)
; compiling (DEFUN CHECK-DEST ...)
; compiling (DEFUN CHECK-NODE-CONSISTENCY ...)
; compiling (DEFUN CHECK-TN-REFS ...)
; compiling (DEFUN CHECK-VOP-REFS ...)
; compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...)
; compiling (DEFUN CHECK-IR2-CONSISTENCY ...)
; compiling (DEFUN PRE-PACK-TN-STATS ...)
; compiling (DEFUN CHECK-MORE-TN-ENTRY ...)
; compiling (DEFUN CHECK-TN-CONFLICTS ...)
; compiling (DEFUN CHECK-BLOCK-CONFLICTS ...)
; compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...)
; compiling (DEFUN CHECK-LIFE-CONSISTENCY ...)
; compiling (DEFUN CHECK-PACK-CONSISTENCY ...)
; compiling (DEF *CONTINUATION-NUMBER* ...)
; compiling (DEF *TN-ID* ...)
; compiling (DEF *LABEL-ID* ...)
; compiling (DEFUN PRINT-LEAF ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BLOCK-OR-LOSE ...)
; compiling (DEFUN PRINT-CTRAN ...)
; compiling (DEFUN PRINT-LVAR ...)
; compiling (DEFUN PRINT-LVAR-STACK ...)
; compiling (DEFUN PRINT-NODES ...)
; compiling (DEFUN PRINT-TN-GUTS ...)
; compiling (DEFUN PRINT-OPERANDS ...)
; compiling (DEFUN PRINT-VOP ...)
; compiling (DEFUN PRINT-IR2-BLOCK ...)
; compiling (DEFUN PRINT-VOPS ...)
; compiling (DEFUN PRINT-IR2-BLOCKS ...)
; compiling (DEFUN PRINT-BLOCKS ...)
; compiling (DEFUN PRINT-ALL-BLOCKS ...)
; compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...)
; compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...)
; compiling (DEFUN ADD-ALL-LOCAL-TNS ...)
; compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...)
; compiling (DEFUN LIST-CONFLICTS ...)
; compiling (DEFUN NTH-VOP ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/debug.fasl-tmp written
; compilation finished in 0:00:05.080
; compiling file "/«PKGBUILDDIR»/src/code/format-time.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFPARAMETER *ABBREV-WEEKDAY-TABLE* ...)
; compiling (DEFPARAMETER *LONG-WEEKDAY-TABLE* ...)
; compiling (DEFPARAMETER *ABBREV-MONTH-TABLE* ...)
; compiling (DEFPARAMETER *LONG-MONTH-TABLE* ...)
; compiling (DEFPARAMETER *TIMEZONE-TABLE* ...)
; compiling (DEFPARAMETER *DAYLIGHT-TABLE* ...)
; compiling (DEFUN VALID-DESTINATION-P ...)
; compiling (DEFUN FORMAT-UNIVERSAL-TIME ...)
; compiling (DEFUN TIMEZONE-NAME ...)
; compiling (DEFUN FORMAT-DECODED-TIME ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/format-time.fasl-tmp written
; compilation finished in 0:00:00.555
; compiling file "/«PKGBUILDDIR»/src/code/error.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN STYLE-WARN ...)
; compiling (DEFUN COERCE-TO-CONDITION ...)
; compiling (DEFINE-CONDITION LAYOUT-INVALID ...)
; compiling (DEFINE-CONDITION CASE-FAILURE ...)
; compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...)
; compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...)
; compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...)
; compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...)
; compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...)
; compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...)
; compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...)
; compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...)
; compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...)
; compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...)
; compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...)
; compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...)
; compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...)
; compiling (DEFINE-CONDITION SYSTEM-CONDITION ...)
; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...)
; compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...)
; compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/error.fasl-tmp written
; compilation finished in 0:00:00.745
; compiling file "/«PKGBUILDDIR»/src/code/macroexpand.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...)
; compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...)
; compiling (DEFUN SB-XC:MACROEXPAND-1 ...)
; compiling (DEFUN SB-XC:MACROEXPAND ...)
; compiling (DEFUN %MACROEXPAND-1 ...)
; compiling (DEFUN %MACROEXPAND ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/macroexpand.fasl-tmp written
; compilation finished in 0:00:00.131
; compiling file "/«PKGBUILDDIR»/src/code/late-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN LIST-WITH-LENGTH-P ...)
; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...)
; compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...)
; compiling (DEFUN EXPAND-ATOMIC-FROB ...)
; compiling (DEF!MACRO ATOMIC-INCF ...)
; compiling (DEFMACRO ATOMIC-DECF ...)
; compiling (DEFUN SPIN-LOOP-HINT ...)
; compiling (DEFUN CALL-HOOKS ...)
; compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...)
; compiling (DEFUN %COMPILER-DEFGLOBAL ...)
; compiling (DEFUN %DEFGLOBAL ...)
; compiling (DEFUN %%WAIT-FOR ...)
; compiling (DEFUN %WAIT-FOR ...)
; compiling (DEFMACRO WAIT-FOR ...)
; compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...)
; compiling (DEFMACRO ATOMIC-UPDATE ...)
; compiling (DEFMACRO ATOMIC-PUSH ...)
; compiling (DEFMACRO ATOMIC-POP ...)
; compiling (DEFUN SPLIT-VERSION-STRING ...)
; compiling (DEFUN VERSION>= ...)

; file: /«PKGBUILDDIR»/src/code/late-extensions.lisp
; in: DEFUN %%WAIT-FOR
;     (SB!SYS:DECODE-INTERNAL-TIME (GET-INTERNAL-REAL-TIME))
; 
; caught STYLE-WARNING:
;   undefined function: DECODE-INTERNAL-TIME

; in: DEFUN %WAIT-FOR
;     (SB!SYS:DECODE-TIMEOUT SB!EXT:TIMEOUT)
; 
; caught STYLE-WARNING:
;   undefined function: DECODE-TIMEOUT

; in: DEFMACRO ATOMIC-POP
;     (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-CAS-EXPANSION

; in: DEFMACRO ATOMIC-PUSH
;     (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-CAS-EXPANSION

; in: DEFMACRO ATOMIC-UPDATE
;     (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-CAS-EXPANSION

; in: DEFUN %%WAIT-FOR
;     (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC)
; 
; caught STYLE-WARNING:
;   undefined function: SB!UNIX:NANOSLEEP

; in: DEFUN %WAIT-FOR
;     (SB!SYS:SIGNAL-DEADLINE)
; 
; caught STYLE-WARNING:
;   undefined function: SIGNAL-DEADLINE

; in: DEFUN %%WAIT-FOR
;     (SB!SYS:WITH-INTERRUPTS (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC))
; 
; caught STYLE-WARNING:
;   undefined function: WITH-INTERRUPTS
; 
; compilation unit finished
;   Undefined functions:
;     DECODE-INTERNAL-TIME DECODE-TIMEOUT GET-CAS-EXPANSION SB!UNIX:NANOSLEEP SIGNAL-DEADLINE WITH-INTERRUPTS
;   caught 8 STYLE-WARNING conditions
; compiling (DEFUN ASSERT-VERSION->= ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-extensions.fasl-tmp written
; compilation finished in 0:00:02.900
; compiling file "/«PKGBUILDDIR»/src/code/early-step.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *STEPPING* ...)
; compiling (DEFVAR *STEP-OUT* ...)
; compiling (DEFUN (SETF STEPPING) ...)
; compiling (DEFUN STEPPING-ENABLED-P ...)
; compiling (DEFUN ENABLE-STEPPING ...)
; compiling (DEFUN DISABLE-STEPPING ...)
; compiling (DEFMACRO WITH-STEPPING-ENABLED ...)
; compiling (DEFMACRO WITH-STEPPING-DISABLED ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/early-step.fasl-tmp written
; compilation finished in 0:00:00.087
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro-errors.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; compiling (DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; compiling (DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...)
; compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...)
; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/parse-defmacro-errors.fasl-tmp written
; compilation finished in 0:00:00.313
; compiling file "/«PKGBUILDDIR»/src/code/cl-specials.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "COMMON-LISP")
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SB-XC:PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/obj/from-host/src/code/cl-specials.fasl-tmp written
; compilation finished in 0:00:00.031
; compiling file "/«PKGBUILDDIR»/src/compiler/late-proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*))
; compiling (!COLD-INIT-FORMS (MAPCAR # ...))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/late-proclaim.fasl-tmp written
; compilation finished in 0:00:00.013
; compiling file "/«PKGBUILDDIR»/src/code/defboot.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...)
; compiling (DEFUN LIST-OF-SYMBOLS-P ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...)
; compiling (DEFMACRO-MUNDANELY COND ...)
; compiling (DEFMACRO-MUNDANELY WHEN ...)
; compiling (DEFMACRO-MUNDANELY UNLESS ...)
; compiling (DEFMACRO-MUNDANELY AND ...)
; compiling (DEFMACRO-MUNDANELY OR ...)
; compiling (FLET (#) ...)
; compiling (DEFMACRO-MUNDANELY PROG1 ...)
; compiling (DEFMACRO-MUNDANELY PROG2 ...)
; compiling (DEFUN INLINE-FUN-NAME-P ...)
; compiling (DEFMACRO-MUNDANELY DEFUN ...)
; compiling (DEFMACRO-MUNDANELY DEFVAR ...)
; compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...)
; compiling (DEFUN %COMPILER-DEFVAR ...)
; compiling (DEFMACRO-MUNDANELY DO ...)
; compiling (DEFMACRO-MUNDANELY DO* ...)
; compiling (DEFMACRO-MUNDANELY DOTIMES ...)
; compiling (DEFMACRO-MUNDANELY DOLIST ...)
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (SETF (INFO :VARIABLE ...) ...)
; compiling (SETF (INFO :VARIABLE ...) ...)
; compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...)
; compiling (DEFMACRO-MUNDANELY RESTART-BIND ...)
; compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...)
; compiling (DEFMACRO-MUNDANELY RESTART-CASE ...)
; compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...)
; compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...)
; compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...)
; compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...)
; compiling (DEFMACRO-MUNDANELY RETURN ...)
; compiling (DEFMACRO-MUNDANELY LAMBDA ...)
; compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...)
; compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/defboot.fasl-tmp written
; compilation finished in 0:00:01.152
; compiling file "/«PKGBUILDDIR»/src/code/destructuring-bind.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/destructuring-bind.fasl-tmp written
; compilation finished in 0:00:00.030
; compiling file "/«PKGBUILDDIR»/src/code/setf.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...)
; compiling (DEFUN MACROEXPAND-FOR-SETF ...)
; compiling (LABELS (# # ...) ...)
; compiling (DEFMACRO-MUNDANELY ROTATEF ...)
; compiling (DEFMACRO-MUNDANELY PUSH ...)
; compiling (DEFMACRO-MUNDANELY PUSHNEW ...)
; compiling (DEFMACRO-MUNDANELY POP ...)
; compiling (DEFMACRO-MUNDANELY REMF ...)
; compiling (DEFUN %REMF ...)
; compiling (DECLAIM (INLINE XSUBTRACT))
; compiling (DEFUN XSUBTRACT ...)
; compiling (FLET (#) ...)
; compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...)
; compiling (DEFUN %DEFSETF ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;     (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;       (MACROLET ((SB!IMPL::ASSIGN-IT ()
;                    (SB!INT:QUASIQUOTE #)))
;         (DEFUN SB!IMPL::%DEFSETF
;                (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;                 SB!IMPL::INVERSE SB!IMPL::DOC)
;           (DECLARE (IGNORE SB!IMPL::EXPANDER-LAMBDA-LIST))
;           (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SB!IMPL::NAME
;                                                        "defining a setf-expander for ~A"))
;           (LET (#)
;             (MULTIPLE-VALUE-BIND # # #))
;           (SB!IMPL::ASSIGN-IT))
;         (DEFUN SB!IMPL::!QUIETLY-DEFSETF
;                (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;                 SB!IMPL::INVERSE SB!IMPL::DOC)
;           (SB!IMPL::ASSIGN-IT))))
; 
; caught STYLE-WARNING:
;   The variable EXPANDER-LAMBDA-LIST is defined but never used.

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: DEFUN !QUIETLY-DEFSETF
;     (DEFUN SB!IMPL::!QUIETLY-DEFSETF
;            (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;             SB!IMPL::INVERSE SB!IMPL::DOC)
;       (SB!IMPL::ASSIGN-IT))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB!IMPL::!QUIETLY-DEFSETF
;         (SB!IMPL::NAME SB!IMPL::EXPANDER SB!IMPL::EXPANDER-LAMBDA-LIST
;          SB!IMPL::INVERSE SB!IMPL::DOC)
;       (BLOCK SB!IMPL::!QUIETLY-DEFSETF (SB!IMPL::ASSIGN-IT)))
; 
; caught STYLE-WARNING:
;   The variable EXPANDER-LAMBDA-LIST is defined but never used.
; compiling (DEFUN !QUIETLY-DEFSETF ...)
; compiling (DEF!MACRO SB-XC:DEFSETF ...)
; compiling (DEFUN COLLECT-SETF-TEMPS ...)
; compiling (DEFUN MAKE-SIMPLE-SETF-QUINTUPLE ...)
; compiling (DEFUN MAKE-SETF-QUINTUPLE ...)
; compiling (DEFUN EXPAND-RMW-MACRO ...)
; compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...)
; compiling (SB-XC:DEFSETF GET ...)
; compiling (SB-XC:DEFSETF GETHASH ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...)
; compiling (DEFUN SETF-EXPAND-THE ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/setf.fasl-tmp written
; compilation finished in 0:00:02.990
; compiling file "/«PKGBUILDDIR»/src/code/macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY ASSERT ...)
; compiling (DEFUN ASSERT-PROMPT ...)
; compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...)
; compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...)
; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; compiling (DEF (:COMPILE-TOPLEVEL) ...)
; compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...)
; compiling (DEFUN CASE-BODY ...)
; compiling (DEFUN CASE-BODY-AUX ...)
; compiling (DEFMACRO-MUNDANELY CASE ...)
; compiling (DEFMACRO-MUNDANELY CCASE ...)
; compiling (DEFMACRO-MUNDANELY ECASE ...)
; compiling (DEFMACRO-MUNDANELY TYPECASE ...)
; compiling (DEFMACRO-MUNDANELY CTYPECASE ...)
; compiling (DEFMACRO-MUNDANELY ETYPECASE ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...)
; compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...)
; compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...)
; compiling (DEFMACRO-MUNDANELY NTH-VALUE ...)
; compiling (DEFMACRO-MUNDANELY DECLAIM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...)
; compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...)
; compiling (DEFUN FUNARG-BIND/CALL-FORMS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/macros.fasl-tmp written
; compilation finished in 0:00:01.490
; compiling file "/«PKGBUILDDIR»/src/code/loop.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!LOOP")
; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...)
; compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...)
; compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...)
; compiling (DEFUN MAKE-LOOP-MINIMAX ...)
; compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...)
; compiling (DEFUN LOOP-TEQUAL ...)
; compiling (DEFUN LOOP-TASSOC ...)
; compiling (DEFUN LOOP-TMEMBER ...)
; compiling (DEFUN LOOP-LOOKUP-KEYWORD ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...)
; compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...)
; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFVAR *LOOP-UNIVERSE*)
; compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...)
; compiling (DEFUN LOOP-MAKE-PSETQ ...)
; compiling (DEFUN LOOP-MAKE-DESETQ ...)
; compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...)
; compiling (DEFVAR *LOOP-SOURCE-CODE*)
; compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*)
; compiling (DEFVAR *LOOP-SOURCE-CONTEXT*)
; compiling (DEFVAR *LOOP-NAMES*)
; compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*)
; compiling (DEFVAR *LOOP-NAMED-VARS*)
; compiling (DEFVAR *LOOP-VARS*)
; compiling (DEFVAR *LOOP-DECLARATIONS*)
; compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*)
; compiling (DEFVAR *LOOP-DESETQ*)
; compiling (DEFVAR *LOOP-WRAPPERS*)
; compiling (DEFVAR *LOOP-BIND-STACK*)
; compiling (DEFVAR *LOOP-PROLOGUE*)
; compiling (DEFVAR *LOOP-BEFORE-LOOP*)
; compiling (DEFVAR *LOOP-BODY*)
; compiling (DEFVAR *LOOP-AFTER-BODY*)
; compiling (DEFVAR *LOOP-EMITTED-BODY*)
; compiling (DEFVAR *LOOP-EPILOGUE*)
; compiling (DEFVAR *LOOP-AFTER-EPILOGUE*)
; compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*)
; compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*)
; compiling (DEFVAR *LOOP-WHEN-IT-VAR*)
; compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*)
; compiling (DEFVAR *LOOP-COLLECTION-CRUFT*)
; compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...)
; compiling (DEFUN LOOP-CONTEXT ...)
; compiling (DEFUN LOOP-ERROR ...)
; compiling (DEFUN LOOP-WARN ...)
; compiling (DEFUN LOOP-CHECK-DATA-TYPE ...)
; compiling (DEFUN TRANSFORM-DESTRUCTURING ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND ...)
; compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...)
; compiling (DEFUN LOOP-TRANSLATE ...)
; compiling (DEFUN LOOP-ITERATION-DRIVER ...)
; compiling (DEFUN LOOP-POP-SOURCE ...)
; compiling (DEFUN LOOP-GET-FORM ...)
; compiling (DEFUN LOOP-GET-COMPOUND-FORM ...)
; compiling (DEFUN LOOP-GET-PROGN ...)
; compiling (DEFUN LOOP-CONSTRUCT-RETURN ...)
; compiling (DEFUN LOOP-PSEUDO-BODY ...)
; compiling (DEFUN LOOP-EMIT-BODY ...)
; compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...)
; compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...)
; compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...)
; compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...)
; compiling (DEFUN LOOP-TYPED-INIT ...)
; compiling (DEFUN LOOP-OPTIONAL-TYPE ...)
; compiling (DEFUN LOOP-BIND-BLOCK ...)
; compiling (DEFUN CHECK-VAR-NAME ...)
; compiling (DEFUN LOOP-MAKE-VAR ...)
; compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...)
; compiling (DEFUN LOOP-DECLARE-VAR ...)
; compiling (DEFUN LOOP-MAYBE-BIND-FORM ...)
; compiling (DEFUN LOOP-DO-IF ...)
; compiling (DEFUN LOOP-DO-INITIALLY ...)
; compiling (DEFUN LOOP-DO-FINALLY ...)
; compiling (DEFUN LOOP-DO-DO ...)
; compiling (DEFUN LOOP-DO-NAMED ...)
; compiling (DEFUN LOOP-DO-RETURN ...)
; compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...)
; compiling (DEFUN LOOP-GET-COLLECTION-INFO ...)
; compiling (DEFUN LOOP-LIST-COLLECTION ...)
; compiling (DEFUN LOOP-SUM-COLLECTION ...)
; compiling (DEFUN LOOP-MAXMIN-COLLECTION ...)
; compiling (DEFUN LOOP-DO-ALWAYS ...)
; compiling (DEFUN LOOP-DO-THEREIS ...)
; compiling (DEFUN LOOP-DO-WHILE ...)
; compiling (DEFUN LOOP-DO-REPEAT ...)
; compiling (DEFUN LOOP-DO-WITH ...)
; compiling (DEFUN LOOP-HACK-ITERATION ...)
; compiling (DEFUN LOOP-DO-FOR ...)
; compiling (DEFUN LOOP-WHEN-IT-VAR ...)
; compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...)
; compiling (DEFUN LOOP-FOR-ACROSS ...)
; compiling (DEFUN LOOP-LIST-STEP ...)
; compiling (DEFUN LOOP-FOR-ON ...)
; compiling (DEFUN LOOP-FOR-IN ...)
; compiling (DEFSTRUCT (LOOP-PATH # ...) ...)
; compiling (DEFUN ADD-LOOP-PATH ...)
; compiling (DEFUN LOOP-FOR-BEING ...)
; compiling (DEFUN LOOP-NAMED-VAR ...)
; compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...)
; compiling (DEFUN LOOP-SEQUENCER ...)
; compiling (DEFUN LOOP-FOR-ARITHMETIC ...)
; compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...)
; compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...)
; compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...)
; compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...)
; compiling (DEFUN LOOP-STANDARD-EXPANSION ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...)
; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/loop.fasl-tmp written
; compilation finished in 0:00:03.967
; compiling file "/«PKGBUILDDIR»/src/code/cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!MACRO CAS ...)
; compiling (DEFUN GET-CAS-EXPANSION ...)
; compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...)
; compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...)
; compiling (DEF!MACRO DEFCAS ...)
; compiling (DEF!MACRO COMPARE-AND-SWAP ...)
; compiling (DEF %COMPARE-AND-SWAP-CAR ...)
; compiling (DEF %COMPARE-AND-SWAP-CDR ...)
; compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...)

; file: /«PKGBUILDDIR»/src/code/cas.lisp
; in: DEF %COMPARE-AND-SWAP-SYMBOL-INFO
;     (SB!IMPL::DEF SB!KERNEL:%COMPARE-AND-SWAP-SYMBOL-INFO (SYMBOL)
;      SB!KERNEL:SYMBOL-INFO)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK PROGN LET WHEN IF PROGN SETF LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB!KERNEL:SYMBOL-INFO) #:NEW165 #:SYMBOL164)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SYMBOL-INFO)
; 
; compilation unit finished
;   Undefined function:
;     (SETF SYMBOL-INFO)
;   caught 1 STYLE-WARNING condition
; compiling (DEF %COMPARE-AND-SWAP-SVREF ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/cas.fasl-tmp written
; compilation finished in 0:00:00.661
; compiling file "/«PKGBUILDDIR»/src/code/late-cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFCAS CAR ...)
; compiling (DEFCAS CDR ...)
; compiling (DEFCAS FIRST ...)
; compiling (DEFCAS REST ...)
; compiling (DEFCAS SYMBOL-PLIST ...)
; compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...)
; compiling (DEFINE-CAS-EXPANDER SVREF ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-cas.fasl-tmp written
; compilation finished in 0:00:00.773
; compiling file "/«PKGBUILDDIR»/src/code/late-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!FORMAT")
; compiling (DEFINE-CONDITION FORMAT-ERROR ...)
; compiling (DEFUN %PRINT-FORMAT-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/late-format.lisp
; in: DEF!STRUCT FORMAT-DIRECTIVE
;     (SB!INT:DEF!STRUCT SB!FORMAT::FORMAT-DIRECTIVE
;                        (STRING (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING)
;                        (SB!FORMAT::START (SB!INT:MISSING-ARG) :TYPE
;                         (AND UNSIGNED-BYTE FIXNUM))
;                        (SB!FORMAT::END (SB!INT:MISSING-ARG) :TYPE
;                         (AND UNSIGNED-BYTE FIXNUM))
;                        (CHARACTER (SB!INT:MISSING-ARG) :TYPE CHARACTER)
;                        (SB!FORMAT::COLONP NIL :TYPE (MEMBER T NIL))
;                        (SB!FORMAT::ATSIGNP NIL :TYPE (MEMBER T NIL))
;                        (SB!FORMAT::PARAMS NIL :TYPE LIST))
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!FORMAT::FORMAT-DIRECTIVE {52F5AD49}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {51DDA941}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!FORMAT::FORMAT-DIRECTIVE-P,
;   SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER, SB!FORMAT::FORMAT-DIRECTIVE-COLONP,
;   SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP and SB!FORMAT::FORMAT-DIRECTIVE-PARAMS
;   could not be inlined because the structure definition for
;   SB!FORMAT::FORMAT-DIRECTIVE was not yet seen. To avoid this warning, DEFSTRUCT
;   should precede references to the affected functions, or they must be declared
;   locally notinline at each call site.
; compiling (DEF!STRUCT FORMAT-DIRECTIVE ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN TOKENIZE-CONTROL-STRING ...)
; compiling (DEFUN PARSE-DIRECTIVE ...)
; compiling (SB-XC:DEFMACRO FORMATTER ...)
; compiling (DEFUN %FORMATTER ...)
; compiling (DEFUN ARGS-EXHAUSTED ...)
; compiling (DEFUN EXPAND-CONTROL-STRING ...)
; compiling (DEFUN EXPAND-DIRECTIVE-LIST ...)
; compiling (DEFUN EXPAND-DIRECTIVE ...)
; compiling (DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG ...)
; compiling (DEFUN EXPAND-NEXT-ARG ...)
; compiling (DEFMACRO EXPAND-BIND-DEFAULTS ...)
; compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...)
; compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...)
; compiling (DEFUN FIND-DIRECTIVE ...)
; compiling (DEF-FORMAT-DIRECTIVE #\A ...)
; compiling (DEF-FORMAT-DIRECTIVE #\S ...)
; compiling (DEF-FORMAT-DIRECTIVE #\C ...)
; compiling (DEF-FORMAT-DIRECTIVE #\W ...)
; compiling (DEFUN EXPAND-FORMAT-INTEGER ...)
; compiling (DEF-FORMAT-DIRECTIVE #\D ...)
; compiling (DEF-FORMAT-DIRECTIVE #\B ...)
; compiling (DEF-FORMAT-DIRECTIVE #\O ...)
; compiling (DEF-FORMAT-DIRECTIVE #\X ...)
; compiling (DEF-FORMAT-DIRECTIVE #\R ...)
; compiling (DEF-FORMAT-DIRECTIVE #\P ...)
; compiling (DEF-FORMAT-DIRECTIVE #\F ...)
; compiling (DEF-FORMAT-DIRECTIVE #\E ...)
; compiling (DEF-FORMAT-DIRECTIVE #\G ...)
; compiling (DEF-FORMAT-DIRECTIVE #\$ ...)
; compiling (DEF-FORMAT-DIRECTIVE #\% ...)
; compiling (DEF-FORMAT-DIRECTIVE #\& ...)
; compiling (DEF-FORMAT-DIRECTIVE #\| ...)
; compiling (DEF-FORMAT-DIRECTIVE #\~ ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline ...)
; compiling (DEF-FORMAT-DIRECTIVE #\T ...)
; compiling (DEF-FORMAT-DIRECTIVE #\_ ...)
; compiling (DEF-FORMAT-DIRECTIVE #\I ...)
; compiling (DEF-FORMAT-DIRECTIVE #\* ...)
; compiling (DEF-FORMAT-DIRECTIVE #\? ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\( ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\) ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\[ ...)
; compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...)
; compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...)
; compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\; ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\] ...)
; compiling (DEF-FORMAT-DIRECTIVE #\^ ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\{ ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\} ...)
; compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...)
; compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\< ...)
; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\> ...)
; compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...)
; compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...)
; compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...)
; compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...)
; compiling (SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...)
; compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...)
; compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...)
; compiling (DEF-FORMAT-DIRECTIVE #\/ ...)
; compiling (DEFUN EXTRACT-USER-FUN-NAME ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN %COMPILER-WALK-FORMAT-STRING ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-format.fasl-tmp written
; compilation finished in 0:00:04.332
; compiling file "/«PKGBUILDDIR»/src/code/sxhash.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)

; file: /«PKGBUILDDIR»/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
;     (SB!C::LVAR-VALUE SB!C::X)
; ==>
;   SB!C::X
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SXHASH ...)

; file: /«PKGBUILDDIR»/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
;     (SB!C::LVAR-VALUE SB!C::X)
; ==>
;   SB!C::X
; 
; note: deleting unreachable code
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM PSXHASH ...)
; 
; compilation unit finished
;   printed 2 notes
; compiling (DEFTRANSFORM PSXHASH ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/sxhash.fasl-tmp written
; compilation finished in 0:00:00.235
; compiling file "/«PKGBUILDDIR»/src/code/signal.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!UNIX")
; compiling (!DEFVAR *INTERRUPTS-ENABLED* ...)
; compiling (!DEFVAR *INTERRUPT-PENDING* ...)
; compiling (!DEFVAR *ALLOW-WITH-INTERRUPTS* ...)
; compiling (!DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...)
; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...)
; compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...)
; compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...)

; file: /«PKGBUILDDIR»/src/code/signal.lisp
; in: DEFUN %CHECK-INTERRUPTS
;     (SB!UNIX::RECEIVE-PENDING-INTERRUPT)
; 
; caught STYLE-WARNING:
;   undefined function: RECEIVE-PENDING-INTERRUPT
; 
; compilation unit finished
;   Undefined function:
;     RECEIVE-PENDING-INTERRUPT
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN %CHECK-INTERRUPTS ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/signal.fasl-tmp written
; compilation finished in 0:00:00.169
; compiling file "/«PKGBUILDDIR»/src/code/late-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...)

; /«PKGBUILDDIR»/obj/from-host/src/code/late-defbangmethod.fasl-tmp written
; compilation finished in 0:00:00.015
creating directory: /«PKGBUILDDIR»/obj/from-host/src/pcl/
; compiling file "/«PKGBUILDDIR»/src/pcl/walk.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB!WALKER")
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*)
; compiling (/SHOW "walk.lisp 108")
; compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...)
; compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...)
; compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...)
; compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...)
; compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...)
; compiling (DEFUN ENVIRONMENT-FUNCTION ...)
; compiling (DEFUN ENVIRONMENT-MACRO ...)
; compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...)
; compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...)
; compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...)
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...)
; compiling (DEFUN ENV-LOCK ...)
; compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...)
; compiling (DEFUN ENV-WALK-FUNCTION ...)
; compiling (DEFUN ENV-WALK-FORM ...)
; compiling (DEFUN ENV-DECLARATIONS ...)
; compiling (DEFUN ENV-VAR-TYPE ...)
; compiling (DEFUN ENV-LEXICAL-VARIABLES ...)
; compiling (DEFUN NOTE-DECLARATION ...)
; compiling (DEFUN NOTE-VAR-BINDING ...)
; compiling (DEFUN VAR-LEXICAL-P ...)
; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...)
; compiling (DEFUN VAR-GLOBALLY-SYMBOL-MACRO-P ...)
; compiling (DEFUN WALKED-VAR-DECLARATION-P ...)
; compiling (DEFUN %VAR-DECLARATION ...)
; compiling (DEFUN VAR-DECLARATION ...)
; compiling (DEFUN VAR-SPECIAL-P ...)
; compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...)
; compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...)
; compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...)
; compiling (DEFUN GET-WALKER-TEMPLATE ...)
; compiling (DEFINE-WALKER-TEMPLATE BLOCK ...)
; compiling (DEFINE-WALKER-TEMPLATE CATCH ...)
; compiling (DEFINE-WALKER-TEMPLATE DECLARE ...)
; compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...)
; compiling (DEFINE-WALKER-TEMPLATE FLET ...)
; compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...)
; compiling (DEFINE-WALKER-TEMPLATE GO ...)
; compiling (DEFINE-WALKER-TEMPLATE IF ...)
; compiling (DEFINE-WALKER-TEMPLATE LABELS ...)
; compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...)
; compiling (DEFINE-WALKER-TEMPLATE LET ...)
; compiling (DEFINE-WALKER-TEMPLATE LET* ...)
; compiling (DEFINE-WALKER-TEMPLATE LOAD-TIME-VALUE ...)
; compiling (DEFINE-WALKER-TEMPLATE LOCALLY ...)
; compiling (DEFINE-WALKER-TEMPLATE MACROLET ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-CALL ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-PROG1 ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-SETQ ...)
; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-BIND ...)
; compiling (DEFINE-WALKER-TEMPLATE PROGN ...)
; compiling (DEFINE-WALKER-TEMPLATE PROGV ...)
; compiling (DEFINE-WALKER-TEMPLATE QUOTE ...)
; compiling (DEFINE-WALKER-TEMPLATE RETURN-FROM ...)
; compiling (DEFINE-WALKER-TEMPLATE SETQ ...)
; compiling (DEFINE-WALKER-TEMPLATE SYMBOL-MACROLET ...)
; compiling (DEFINE-WALKER-TEMPLATE TAGBODY ...)
; compiling (DEFINE-WALKER-TEMPLATE THE ...)
; compiling (DEFINE-WALKER-TEMPLATE THROW ...)
; compiling (DEFINE-WALKER-TEMPLATE UNWIND-PROTECT ...)
; compiling (DEFINE-WALKER-TEMPLATE TRULY-THE ...)
; compiling (DEFINE-WALKER-TEMPLATE NAMED-LAMBDA ...)
; compiling (DEFVAR *WALK-FORM-EXPAND-MACROS-P* ...)
; compiling (DEFUN WALK-FORM ...)
; compiling (DEFUN WALK-FORM-INTERNAL ...)
; compiling (DEFUN WALK-TEMPLATE ...)
; compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT ...)
; compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1 ...)
; compiling (DEFUN WALK-REPEAT-EVAL ...)
; compiling (DEFUN RECONS ...)
; compiling (DEFUN RELIST ...)
; compiling (DEFUN RELIST* ...)
; compiling (DEFUN RELIST-INTERNAL ...)
; compiling (DEFUN WALK-DECLARATIONS ...)
; compiling (DEFUN WALK-UNEXPECTED-DECLARE ...)
; compiling (DEFUN WALK-ARGLIST ...)
; compiling (DEFUN WALK-LET ...)
; compiling (DEFUN LET*-BINDING-NAME ...)
; compiling (DEFUN LET*-BINDING-INIT ...)
; compiling (DEFUN LET*-BINDINGS ...)
; compiling (DEFUN WALK-LET* ...)
; compiling (DEFUN WALK-LOAD-TIME-VALUE ...)
; compiling (DEFUN WALK-LOCALLY ...)
; compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...)
; compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...)
; compiling (DEFUN WALK-BINDINGS-1 ...)
; compiling (DEFUN WALK-LAMBDA ...)
; compiling (DEFUN WALK-NAMED-LAMBDA ...)
; compiling (DEFUN WALK-SETQ ...)
; compiling (DEFUN WALK-SYMBOL-MACROLET ...)
; compiling (DEFUN WALK-TAGBODY ...)
; compiling (DEFUN WALK-TAGBODY-1 ...)
; compiling (DEFUN WALK-MACROLET ...)
; compiling (DEFUN WALK-FLET ...)
; compiling (DEFUN WALK-LABELS ...)

; file: /«PKGBUILDDIR»/src/pcl/walk.lisp
; in: DEFUN CONVERT-MACRO-TO-LAMBDA
;     (SB!INT:EVAL-IN-LEXENV
;      (SB!INT:QUASIQUOTE
;       (DEFMACRO #S(SB!IMPL::COMMA :EXPR GENSYM :KIND 0)
;                 #S(SB!IMPL::COMMA :EXPR SB!WALKER::LLIST :KIND 0)
;         #S(SB!IMPL::COMMA :EXPR SB!WALKER::BODY :KIND 2)))
;      (SB!C::MAKE-RESTRICTED-LEXENV SB!WALKER::ENV))
; 
; caught STYLE-WARNING:
;   undefined function: EVAL-IN-LEXENV
; 
; compilation unit finished
;   Undefined function:
;     EVAL-IN-LEXENV
;   caught 1 STYLE-WARNING condition
; compiling (DEFUN WALK-IF ...)

; /«PKGBUILDDIR»/obj/from-host/src/pcl/walk.fasl-tmp written
; compilation finished in 0:00:02.483
* 
T
* 
T
* LATIN SMALL LETTER SHARP S
LATIN SMALL LETTER KRA
LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
LATIN SMALL LETTER TURNED DELTA
LATIN SMALL LETTER LAMBDA WITH STROKE
LATIN LETTER REVERSED ESH LOOP
LATIN SMALL LETTER T WITH PALATAL HOOK
LATIN SMALL LETTER EZH WITH TAIL
LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE
LATIN SMALL LETTER J WITH CARON
LATIN SMALL LETTER D WITH CURL
LATIN SMALL LETTER L WITH CURL
LATIN SMALL LETTER N WITH CURL
LATIN SMALL LETTER T WITH CURL
LATIN SMALL LETTER DOTLESS J
LATIN SMALL LETTER DB DIGRAPH
LATIN SMALL LETTER QP DIGRAPH
LATIN SMALL LETTER C WITH CURL
LATIN SMALL LETTER REVERSED E
LATIN SMALL LETTER SCHWA WITH HOOK
LATIN SMALL LETTER REVERSED OPEN E WITH HOOK
LATIN SMALL LETTER CLOSED REVERSED OPEN E
LATIN SMALL LETTER DOTLESS J WITH STROKE
LATIN LETTER SMALL CAPITAL G
LATIN SMALL LETTER RAMS HORN
LATIN SMALL LETTER HENG WITH HOOK
LATIN LETTER SMALL CAPITAL I
LATIN SMALL LETTER L WITH RETROFLEX HOOK
LATIN SMALL LETTER LEZH
LATIN SMALL LETTER TURNED M WITH LONG LEG
LATIN SMALL LETTER N WITH RETROFLEX HOOK
LATIN LETTER SMALL CAPITAL N
LATIN LETTER SMALL CAPITAL OE
LATIN SMALL LETTER CLOSED OMEGA
LATIN SMALL LETTER PHI
LATIN SMALL LETTER TURNED R
LATIN SMALL LETTER TURNED R WITH LONG LEG
LATIN SMALL LETTER TURNED R WITH HOOK
LATIN SMALL LETTER R WITH LONG LEG
LATIN SMALL LETTER R WITH FISHHOOK
LATIN SMALL LETTER REVERSED R WITH FISHHOOK
LATIN LETTER SMALL CAPITAL INVERTED R
LATIN SMALL LETTER S WITH HOOK
LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK
LATIN SMALL LETTER SQUAT REVERSED ESH
LATIN SMALL LETTER ESH WITH CURL
LATIN SMALL LETTER TURNED W
LATIN SMALL LETTER TURNED Y
LATIN LETTER SMALL CAPITAL Y
LATIN SMALL LETTER Z WITH RETROFLEX HOOK
LATIN SMALL LETTER Z WITH CURL
LATIN SMALL LETTER EZH WITH CURL
LATIN LETTER PHARYNGEAL VOICED FRICATIVE
LATIN LETTER INVERTED GLOTTAL STOP
LATIN LETTER STRETCHED C
LATIN LETTER BILABIAL CLICK
LATIN LETTER SMALL CAPITAL B
LATIN SMALL LETTER CLOSED OPEN E
LATIN LETTER SMALL CAPITAL G WITH HOOK
LATIN LETTER SMALL CAPITAL H
LATIN SMALL LETTER J WITH CROSSED-TAIL
LATIN LETTER SMALL CAPITAL L
LATIN SMALL LETTER Q WITH HOOK
LATIN LETTER GLOTTAL STOP WITH STROKE
LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE
LATIN SMALL LETTER DZ DIGRAPH
LATIN SMALL LETTER DEZH DIGRAPH
LATIN SMALL LETTER DZ DIGRAPH WITH CURL
LATIN SMALL LETTER TS DIGRAPH
LATIN SMALL LETTER TESH DIGRAPH
LATIN SMALL LETTER TC DIGRAPH WITH CURL
LATIN SMALL LETTER FENG DIGRAPH
LATIN SMALL LETTER LS DIGRAPH
LATIN SMALL LETTER LZ DIGRAPH
LATIN LETTER BILABIAL PERCUSSIVE
LATIN LETTER BIDENTAL PERCUSSIVE
LATIN SMALL LETTER TURNED H WITH FISHHOOK
LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
GREEK UPSILON WITH HOOK SYMBOL
GREEK UPSILON WITH ACUTE AND HOOK SYMBOL
GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL
GREEK RHO WITH STROKE SYMBOL
ARMENIAN SMALL LIGATURE ECH YIWN
LATIN LETTER SMALL CAPITAL A
LATIN LETTER SMALL CAPITAL AE
LATIN SMALL LETTER TURNED AE
LATIN LETTER SMALL CAPITAL BARRED B
LATIN LETTER SMALL CAPITAL C
LATIN LETTER SMALL CAPITAL D
LATIN LETTER SMALL CAPITAL ETH
LATIN LETTER SMALL CAPITAL E
LATIN SMALL LETTER TURNED OPEN E
LATIN SMALL LETTER TURNED I
LATIN LETTER SMALL CAPITAL J
LATIN LETTER SMALL CAPITAL K
LATIN LETTER SMALL CAPITAL L WITH STROKE
LATIN LETTER SMALL CAPITAL M
LATIN LETTER SMALL CAPITAL REVERSED N
LATIN LETTER SMALL CAPITAL O
LATIN LETTER SMALL CAPITAL OPEN O
LATIN SMALL LETTER SIDEWAYS O
LATIN SMALL LETTER SIDEWAYS OPEN O
LATIN SMALL LETTER SIDEWAYS O WITH STROKE
LATIN SMALL LETTER TURNED OE
LATIN LETTER SMALL CAPITAL OU
LATIN SMALL LETTER TOP HALF O
LATIN SMALL LETTER BOTTOM HALF O
LATIN LETTER SMALL CAPITAL P
LATIN LETTER SMALL CAPITAL REVERSED R
LATIN LETTER SMALL CAPITAL TURNED R
LATIN LETTER SMALL CAPITAL T
LATIN LETTER SMALL CAPITAL U
LATIN SMALL LETTER SIDEWAYS U
LATIN SMALL LETTER SIDEWAYS DIAERESIZED U
LATIN SMALL LETTER SIDEWAYS TURNED M
LATIN LETTER SMALL CAPITAL V
LATIN LETTER SMALL CAPITAL W
LATIN LETTER SMALL CAPITAL Z
LATIN LETTER SMALL CAPITAL EZH
LATIN LETTER VOICED LARYNGEAL SPIRANT
LATIN LETTER AIN
GREEK LETTER SMALL CAPITAL GAMMA
GREEK LETTER SMALL CAPITAL LAMDA
GREEK LETTER SMALL CAPITAL PI
GREEK LETTER SMALL CAPITAL RHO
GREEK LETTER SMALL CAPITAL PSI
CYRILLIC LETTER SMALL CAPITAL EL
LATIN SMALL LETTER UE
LATIN SMALL LETTER B WITH MIDDLE TILDE
LATIN SMALL LETTER D WITH MIDDLE TILDE
LATIN SMALL LETTER F WITH MIDDLE TILDE
LATIN SMALL LETTER M WITH MIDDLE TILDE
LATIN SMALL LETTER N WITH MIDDLE TILDE
LATIN SMALL LETTER P WITH MIDDLE TILDE
LATIN SMALL LETTER R WITH MIDDLE TILDE
LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE
LATIN SMALL LETTER S WITH MIDDLE TILDE
LATIN SMALL LETTER T WITH MIDDLE TILDE
LATIN SMALL LETTER Z WITH MIDDLE TILDE
LATIN SMALL LETTER TURNED G
LATIN SMALL LETTER TH WITH STRIKETHROUGH
LATIN SMALL CAPITAL LETTER I WITH STROKE
LATIN SMALL LETTER IOTA WITH STROKE
LATIN SMALL CAPITAL LETTER U WITH STROKE
LATIN SMALL LETTER UPSILON WITH STROKE
LATIN SMALL LETTER B WITH PALATAL HOOK
LATIN SMALL LETTER D WITH PALATAL HOOK
LATIN SMALL LETTER F WITH PALATAL HOOK
LATIN SMALL LETTER G WITH PALATAL HOOK
LATIN SMALL LETTER K WITH PALATAL HOOK
LATIN SMALL LETTER L WITH PALATAL HOOK
LATIN SMALL LETTER M WITH PALATAL HOOK
LATIN SMALL LETTER N WITH PALATAL HOOK
LATIN SMALL LETTER P WITH PALATAL HOOK
LATIN SMALL LETTER R WITH PALATAL HOOK
LATIN SMALL LETTER S WITH PALATAL HOOK
LATIN SMALL LETTER ESH WITH PALATAL HOOK
LATIN SMALL LETTER V WITH PALATAL HOOK
LATIN SMALL LETTER X WITH PALATAL HOOK
LATIN SMALL LETTER Z WITH PALATAL HOOK
LATIN SMALL LETTER A WITH RETROFLEX HOOK
LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK
LATIN SMALL LETTER D WITH HOOK AND TAIL
LATIN SMALL LETTER E WITH RETROFLEX HOOK
LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK
LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK
LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK
LATIN SMALL LETTER I WITH RETROFLEX HOOK
LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK
LATIN SMALL LETTER ESH WITH RETROFLEX HOOK
LATIN SMALL LETTER U WITH RETROFLEX HOOK
LATIN SMALL LETTER EZH WITH RETROFLEX HOOK
LATIN SMALL LETTER H WITH LINE BELOW
LATIN SMALL LETTER T WITH DIAERESIS
LATIN SMALL LETTER W WITH RING ABOVE
LATIN SMALL LETTER Y WITH RING ABOVE
LATIN SMALL LETTER A WITH RIGHT HALF RING
LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE
LATIN SMALL LETTER LONG S WITH HIGH STROKE
LATIN SMALL LETTER DELTA
GREEK SMALL LETTER UPSILON WITH PSILI
GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ALPHA WITH PERISPOMENI
GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
GREEK SMALL LETTER ETA WITH PERISPOMENI
GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
GREEK SMALL LETTER IOTA WITH PERISPOMENI
GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
GREEK SMALL LETTER RHO WITH PSILI
GREEK SMALL LETTER UPSILON WITH PERISPOMENI
GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
GREEK SMALL LETTER OMEGA WITH PERISPOMENI
GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
DOUBLE-STRUCK CAPITAL C
EULER CONSTANT
SCRIPT SMALL G
SCRIPT CAPITAL H
BLACK-LETTER CAPITAL H
DOUBLE-STRUCK CAPITAL H
PLANCK CONSTANT
PLANCK CONSTANT OVER TWO PI
SCRIPT CAPITAL I
BLACK-LETTER CAPITAL I
SCRIPT CAPITAL L
SCRIPT SMALL L
DOUBLE-STRUCK CAPITAL N
DOUBLE-STRUCK CAPITAL P
DOUBLE-STRUCK CAPITAL Q
SCRIPT CAPITAL R
BLACK-LETTER CAPITAL R
DOUBLE-STRUCK CAPITAL R
DOUBLE-STRUCK CAPITAL Z
BLACK-LETTER CAPITAL Z
SCRIPT CAPITAL B
BLACK-LETTER CAPITAL C
SCRIPT SMALL E
SCRIPT CAPITAL E
SCRIPT CAPITAL F
SCRIPT CAPITAL M
SCRIPT SMALL O
INFORMATION SOURCE
DOUBLE-STRUCK SMALL PI
DOUBLE-STRUCK SMALL GAMMA
DOUBLE-STRUCK CAPITAL GAMMA
DOUBLE-STRUCK CAPITAL PI
DOUBLE-STRUCK ITALIC CAPITAL D
DOUBLE-STRUCK ITALIC SMALL D
DOUBLE-STRUCK ITALIC SMALL E
DOUBLE-STRUCK ITALIC SMALL I
DOUBLE-STRUCK ITALIC SMALL J
LATIN SMALL LETTER V WITH RIGHT HOOK
LATIN SMALL LETTER V WITH CURL
LATIN SMALL LETTER TAILLESS PHI
LATIN SMALL LETTER E WITH NOTCH
LATIN SMALL LETTER TURNED R WITH TAIL
LATIN SMALL LETTER O WITH LOW RING INSIDE
LATIN LETTER SMALL CAPITAL TURNED E
COPTIC SYMBOL KAI
LATIN LETTER SMALL CAPITAL F
LATIN LETTER SMALL CAPITAL S
LATIN SMALL LETTER DUM
LATIN SMALL LETTER LUM
LATIN SMALL LETTER MUM
LATIN SMALL LETTER NUM
LATIN SMALL LETTER RUM
LATIN LETTER SMALL CAPITAL RUM
LATIN SMALL LETTER TUM
LATIN SMALL LETTER UM
LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT
LATIN SMALL LETTER C WITH PALATAL HOOK
LATIN SMALL LETTER H WITH PALATAL HOOK
LATIN LETTER SMALL CAPITAL TURNED M
LATIN SMALL LETTER BARRED ALPHA
LATIN SMALL LETTER A REVERSED-SCHWA
LATIN SMALL LETTER BLACKLETTER E
LATIN SMALL LETTER BARRED E
LATIN SMALL LETTER E WITH FLOURISH
LATIN SMALL LETTER LENIS F
LATIN SMALL LETTER SCRIPT G WITH CROSSED-TAIL
LATIN SMALL LETTER L WITH INVERTED LAZY S
LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
LATIN SMALL LETTER L WITH MIDDLE RING
LATIN SMALL LETTER M WITH CROSSED-TAIL
LATIN SMALL LETTER N WITH CROSSED-TAIL
LATIN SMALL LETTER ENG WITH CROSSED-TAIL
LATIN SMALL LETTER BLACKLETTER O
LATIN SMALL LETTER BLACKLETTER O WITH STROKE
LATIN SMALL LETTER OPEN O WITH STROKE
LATIN SMALL LETTER INVERTED OE
LATIN SMALL LETTER TURNED OE WITH STROKE
LATIN SMALL LETTER TURNED OE WITH HORIZONTAL STROKE
LATIN SMALL LETTER TURNED O OPEN-O
LATIN SMALL LETTER TURNED O OPEN-O WITH STROKE
LATIN SMALL LETTER STIRRUP R
LATIN LETTER SMALL CAPITAL R WITH RIGHT LEG
LATIN SMALL LETTER R WITHOUT HANDLE
LATIN SMALL LETTER DOUBLE R
LATIN SMALL LETTER R WITH CROSSED-TAIL
LATIN SMALL LETTER DOUBLE R WITH CROSSED-TAIL
LATIN SMALL LETTER SCRIPT R
LATIN SMALL LETTER SCRIPT R WITH RING
LATIN SMALL LETTER BASELINE ESH
LATIN SMALL LETTER U WITH SHORT RIGHT LEG
LATIN SMALL LETTER U BAR WITH SHORT RIGHT LEG
LATIN SMALL LETTER UI
LATIN SMALL LETTER TURNED UI
LATIN SMALL LETTER U WITH LEFT HOOK
LATIN SMALL LETTER CHI
LATIN SMALL LETTER CHI WITH LOW RIGHT RING
LATIN SMALL LETTER CHI WITH LOW LEFT SERIF
LATIN SMALL LETTER X WITH LOW RIGHT RING
LATIN SMALL LETTER X WITH LONG LEFT LEG
LATIN SMALL LETTER X WITH LONG LEFT LEG AND LOW RIGHT RING
LATIN SMALL LETTER X WITH LONG LEFT LEG WITH SERIF
LATIN SMALL LETTER Y WITH SHORT RIGHT LEG
LATIN SMALL LETTER INVERTED ALPHA
GREEK LETTER SMALL CAPITAL OMEGA
LATIN SMALL LIGATURE FF
LATIN SMALL LIGATURE FI
LATIN SMALL LIGATURE FL
LATIN SMALL LIGATURE FFI
LATIN SMALL LIGATURE FFL
LATIN SMALL LIGATURE LONG S T
LATIN SMALL LIGATURE ST
ARMENIAN SMALL LIGATURE MEN NOW
ARMENIAN SMALL LIGATURE MEN ECH
ARMENIAN SMALL LIGATURE MEN INI
ARMENIAN SMALL LIGATURE VEW NOW
ARMENIAN SMALL LIGATURE MEN XEH
MATHEMATICAL BOLD CAPITAL A
MATHEMATICAL BOLD CAPITAL B
MATHEMATICAL BOLD CAPITAL C
MATHEMATICAL BOLD CAPITAL D
MATHEMATICAL BOLD CAPITAL E
MATHEMATICAL BOLD CAPITAL F
MATHEMATICAL BOLD CAPITAL G
MATHEMATICAL BOLD CAPITAL H
MATHEMATICAL BOLD CAPITAL I
MATHEMATICAL BOLD CAPITAL J
MATHEMATICAL BOLD CAPITAL K
MATHEMATICAL BOLD CAPITAL L
MATHEMATICAL BOLD CAPITAL M
MATHEMATICAL BOLD CAPITAL N
MATHEMATICAL BOLD CAPITAL O
MATHEMATICAL BOLD CAPITAL P
MATHEMATICAL BOLD CAPITAL Q
MATHEMATICAL BOLD CAPITAL R
MATHEMATICAL BOLD CAPITAL S
MATHEMATICAL BOLD CAPITAL T
MATHEMATICAL BOLD CAPITAL U
MATHEMATICAL BOLD CAPITAL V
MATHEMATICAL BOLD CAPITAL W
MATHEMATICAL BOLD CAPITAL X
MATHEMATICAL BOLD CAPITAL Y
MATHEMATICAL BOLD CAPITAL Z
MATHEMATICAL BOLD SMALL A
MATHEMATICAL BOLD SMALL B
MATHEMATICAL BOLD SMALL C
MATHEMATICAL BOLD SMALL D
MATHEMATICAL BOLD SMALL E
MATHEMATICAL BOLD SMALL F
MATHEMATICAL BOLD SMALL G
MATHEMATICAL BOLD SMALL H
MATHEMATICAL BOLD SMALL I
MATHEMATICAL BOLD SMALL J
MATHEMATICAL BOLD SMALL K
MATHEMATICAL BOLD SMALL L
MATHEMATICAL BOLD SMALL M
MATHEMATICAL BOLD SMALL N
MATHEMATICAL BOLD SMALL O
MATHEMATICAL BOLD SMALL P
MATHEMATICAL BOLD SMALL Q
MATHEMATICAL BOLD SMALL R
MATHEMATICAL BOLD SMALL S
MATHEMATICAL BOLD SMALL T
MATHEMATICAL BOLD SMALL U
MATHEMATICAL BOLD SMALL V
MATHEMATICAL BOLD SMALL W
MATHEMATICAL BOLD SMALL X
MATHEMATICAL BOLD SMALL Y
MATHEMATICAL BOLD SMALL Z
MATHEMATICAL ITALIC CAPITAL A
MATHEMATICAL ITALIC CAPITAL B
MATHEMATICAL ITALIC CAPITAL C
MATHEMATICAL ITALIC CAPITAL D
MATHEMATICAL ITALIC CAPITAL E
MATHEMATICAL ITALIC CAPITAL F
MATHEMATICAL ITALIC CAPITAL G
MATHEMATICAL ITALIC CAPITAL H
MATHEMATICAL ITALIC CAPITAL I
MATHEMATICAL ITALIC CAPITAL J
MATHEMATICAL ITALIC CAPITAL K
MATHEMATICAL ITALIC CAPITAL L
MATHEMATICAL ITALIC CAPITAL M
MATHEMATICAL ITALIC CAPITAL N
MATHEMATICAL ITALIC CAPITAL O
MATHEMATICAL ITALIC CAPITAL P
MATHEMATICAL ITALIC CAPITAL Q
MATHEMATICAL ITALIC CAPITAL R
MATHEMATICAL ITALIC CAPITAL S
MATHEMATICAL ITALIC CAPITAL T
MATHEMATICAL ITALIC CAPITAL U
MATHEMATICAL ITALIC CAPITAL V
MATHEMATICAL ITALIC CAPITAL W
MATHEMATICAL ITALIC CAPITAL X
MATHEMATICAL ITALIC CAPITAL Y
MATHEMATICAL ITALIC CAPITAL Z
MATHEMATICAL ITALIC SMALL A
MATHEMATICAL ITALIC SMALL B
MATHEMATICAL ITALIC SMALL C
MATHEMATICAL ITALIC SMALL D
MATHEMATICAL ITALIC SMALL E
MATHEMATICAL ITALIC SMALL F
MATHEMATICAL ITALIC SMALL G
MATHEMATICAL ITALIC SMALL I
MATHEMATICAL ITALIC SMALL J
MATHEMATICAL ITALIC SMALL K
MATHEMATICAL ITALIC SMALL L
MATHEMATICAL ITALIC SMALL M
MATHEMATICAL ITALIC SMALL N
MATHEMATICAL ITALIC SMALL O
MATHEMATICAL ITALIC SMALL P
MATHEMATICAL ITALIC SMALL Q
MATHEMATICAL ITALIC SMALL R
MATHEMATICAL ITALIC SMALL S
MATHEMATICAL ITALIC SMALL T
MATHEMATICAL ITALIC SMALL U
MATHEMATICAL ITALIC SMALL V
MATHEMATICAL ITALIC SMALL W
MATHEMATICAL ITALIC SMALL X
MATHEMATICAL ITALIC SMALL Y
MATHEMATICAL ITALIC SMALL Z
MATHEMATICAL BOLD ITALIC CAPITAL A
MATHEMATICAL BOLD ITALIC CAPITAL B
MATHEMATICAL BOLD ITALIC CAPITAL C
MATHEMATICAL BOLD ITALIC CAPITAL D
MATHEMATICAL BOLD ITALIC CAPITAL E
MATHEMATICAL BOLD ITALIC CAPITAL F
MATHEMATICAL BOLD ITALIC CAPITAL G
MATHEMATICAL BOLD ITALIC CAPITAL H
MATHEMATICAL BOLD ITALIC CAPITAL I
MATHEMATICAL BOLD ITALIC CAPITAL J
MATHEMATICAL BOLD ITALIC CAPITAL K
MATHEMATICAL BOLD ITALIC CAPITAL L
MATHEMATICAL BOLD ITALIC CAPITAL M
MATHEMATICAL BOLD ITALIC CAPITAL N
MATHEMATICAL BOLD ITALIC CAPITAL O
MATHEMATICAL BOLD ITALIC CAPITAL P
MATHEMATICAL BOLD ITALIC CAPITAL Q
MATHEMATICAL BOLD ITALIC CAPITAL R
MATHEMATICAL BOLD ITALIC CAPITAL S
MATHEMATICAL BOLD ITALIC CAPITAL T
MATHEMATICAL BOLD ITALIC CAPITAL U
MATHEMATICAL BOLD ITALIC CAPITAL V
MATHEMATICAL BOLD ITALIC CAPITAL W
MATHEMATICAL BOLD ITALIC CAPITAL X
MATHEMATICAL BOLD ITALIC CAPITAL Y
MATHEMATICAL BOLD ITALIC CAPITAL Z
MATHEMATICAL BOLD ITALIC SMALL A
MATHEMATICAL BOLD ITALIC SMALL B
MATHEMATICAL BOLD ITALIC SMALL C
MATHEMATICAL BOLD ITALIC SMALL D
MATHEMATICAL BOLD ITALIC SMALL E
MATHEMATICAL BOLD ITALIC SMALL F
MATHEMATICAL BOLD ITALIC SMALL G
MATHEMATICAL BOLD ITALIC SMALL H
MATHEMATICAL BOLD ITALIC SMALL I
MATHEMATICAL BOLD ITALIC SMALL J
MATHEMATICAL BOLD ITALIC SMALL K
MATHEMATICAL BOLD ITALIC SMALL L
MATHEMATICAL BOLD ITALIC SMALL M
MATHEMATICAL BOLD ITALIC SMALL N
MATHEMATICAL BOLD ITALIC SMALL O
MATHEMATICAL BOLD ITALIC SMALL P
MATHEMATICAL BOLD ITALIC SMALL Q
MATHEMATICAL BOLD ITALIC SMALL R
MATHEMATICAL BOLD ITALIC SMALL S
MATHEMATICAL BOLD ITALIC SMALL T
MATHEMATICAL BOLD ITALIC SMALL U
MATHEMATICAL BOLD ITALIC SMALL V
MATHEMATICAL BOLD ITALIC SMALL W
MATHEMATICAL BOLD ITALIC SMALL X
MATHEMATICAL BOLD ITALIC SMALL Y
MATHEMATICAL BOLD ITALIC SMALL Z
MATHEMATICAL SCRIPT CAPITAL A
MATHEMATICAL SCRIPT CAPITAL C
MATHEMATICAL SCRIPT CAPITAL D
MATHEMATICAL SCRIPT CAPITAL G
MATHEMATICAL SCRIPT CAPITAL J
MATHEMATICAL SCRIPT CAPITAL K
MATHEMATICAL SCRIPT CAPITAL N
MATHEMATICAL SCRIPT CAPITAL O
MATHEMATICAL SCRIPT CAPITAL P
MATHEMATICAL SCRIPT CAPITAL Q
MATHEMATICAL SCRIPT CAPITAL S
MATHEMATICAL SCRIPT CAPITAL T
MATHEMATICAL SCRIPT CAPITAL U
MATHEMATICAL SCRIPT CAPITAL V
MATHEMATICAL SCRIPT CAPITAL W
MATHEMATICAL SCRIPT CAPITAL X
MATHEMATICAL SCRIPT CAPITAL Y
MATHEMATICAL SCRIPT CAPITAL Z
MATHEMATICAL SCRIPT SMALL A
MATHEMATICAL SCRIPT SMALL B
MATHEMATICAL SCRIPT SMALL C
MATHEMATICAL SCRIPT SMALL D
MATHEMATICAL SCRIPT SMALL F
MATHEMATICAL SCRIPT SMALL H
MATHEMATICAL SCRIPT SMALL I
MATHEMATICAL SCRIPT SMALL J
MATHEMATICAL SCRIPT SMALL K
MATHEMATICAL SCRIPT SMALL L
MATHEMATICAL SCRIPT SMALL M
MATHEMATICAL SCRIPT SMALL N
MATHEMATICAL SCRIPT SMALL P
MATHEMATICAL SCRIPT SMALL Q
MATHEMATICAL SCRIPT SMALL R
MATHEMATICAL SCRIPT SMALL S
MATHEMATICAL SCRIPT SMALL T
MATHEMATICAL SCRIPT SMALL U
MATHEMATICAL SCRIPT SMALL V
MATHEMATICAL SCRIPT SMALL W
MATHEMATICAL SCRIPT SMALL X
MATHEMATICAL SCRIPT SMALL Y
MATHEMATICAL SCRIPT SMALL Z
MATHEMATICAL BOLD SCRIPT CAPITAL A
MATHEMATICAL BOLD SCRIPT CAPITAL B
MATHEMATICAL BOLD SCRIPT CAPITAL C
MATHEMATICAL BOLD SCRIPT CAPITAL D
MATHEMATICAL BOLD SCRIPT CAPITAL E
MATHEMATICAL BOLD SCRIPT CAPITAL F
MATHEMATICAL BOLD SCRIPT CAPITAL G
MATHEMATICAL BOLD SCRIPT CAPITAL H
MATHEMATICAL BOLD SCRIPT CAPITAL I
MATHEMATICAL BOLD SCRIPT CAPITAL J
MATHEMATICAL BOLD SCRIPT CAPITAL K
MATHEMATICAL BOLD SCRIPT CAPITAL L
MATHEMATICAL BOLD SCRIPT CAPITAL M
MATHEMATICAL BOLD SCRIPT CAPITAL N
MATHEMATICAL BOLD SCRIPT CAPITAL O
MATHEMATICAL BOLD SCRIPT CAPITAL P
MATHEMATICAL BOLD SCRIPT CAPITAL Q
MATHEMATICAL BOLD SCRIPT CAPITAL R
MATHEMATICAL BOLD SCRIPT CAPITAL S
MATHEMATICAL BOLD SCRIPT CAPITAL T
MATHEMATICAL BOLD SCRIPT CAPITAL U
MATHEMATICAL BOLD SCRIPT CAPITAL V
MATHEMATICAL BOLD SCRIPT CAPITAL W
MATHEMATICAL BOLD SCRIPT CAPITAL X
MATHEMATICAL BOLD SCRIPT CAPITAL Y
MATHEMATICAL BOLD SCRIPT CAPITAL Z
MATHEMATICAL BOLD SCRIPT SMALL A
MATHEMATICAL BOLD SCRIPT SMALL B
MATHEMATICAL BOLD SCRIPT SMALL C
MATHEMATICAL BOLD SCRIPT SMALL D
MATHEMATICAL BOLD SCRIPT SMALL E
MATHEMATICAL BOLD SCRIPT SMALL F
MATHEMATICAL BOLD SCRIPT SMALL G
MATHEMATICAL BOLD SCRIPT SMALL H
MATHEMATICAL BOLD SCRIPT SMALL I
MATHEMATICAL BOLD SCRIPT SMALL J
MATHEMATICAL BOLD SCRIPT SMALL K
MATHEMATICAL BOLD SCRIPT SMALL L
MATHEMATICAL BOLD SCRIPT SMALL M
MATHEMATICAL BOLD SCRIPT SMALL N
MATHEMATICAL BOLD SCRIPT SMALL O
MATHEMATICAL BOLD SCRIPT SMALL P
MATHEMATICAL BOLD SCRIPT SMALL Q
MATHEMATICAL BOLD SCRIPT SMALL R
MATHEMATICAL BOLD SCRIPT SMALL S
MATHEMATICAL BOLD SCRIPT SMALL T
MATHEMATICAL BOLD SCRIPT SMALL U
MATHEMATICAL BOLD SCRIPT SMALL V
MATHEMATICAL BOLD SCRIPT SMALL W
MATHEMATICAL BOLD SCRIPT SMALL X
MATHEMATICAL BOLD SCRIPT SMALL Y
MATHEMATICAL BOLD SCRIPT SMALL Z
MATHEMATICAL FRAKTUR CAPITAL A
MATHEMATICAL FRAKTUR CAPITAL B
MATHEMATICAL FRAKTUR CAPITAL D
MATHEMATICAL FRAKTUR CAPITAL E
MATHEMATICAL FRAKTUR CAPITAL F
MATHEMATICAL FRAKTUR CAPITAL G
MATHEMATICAL FRAKTUR CAPITAL J
MATHEMATICAL FRAKTUR CAPITAL K
MATHEMATICAL FRAKTUR CAPITAL L
MATHEMATICAL FRAKTUR CAPITAL M
MATHEMATICAL FRAKTUR CAPITAL N
MATHEMATICAL FRAKTUR CAPITAL O
MATHEMATICAL FRAKTUR CAPITAL P
MATHEMATICAL FRAKTUR CAPITAL Q
MATHEMATICAL FRAKTUR CAPITAL S
MATHEMATICAL FRAKTUR CAPITAL T
MATHEMATICAL FRAKTUR CAPITAL U
MATHEMATICAL FRAKTUR CAPITAL V
MATHEMATICAL FRAKTUR CAPITAL W
MATHEMATICAL FRAKTUR CAPITAL X
MATHEMATICAL FRAKTUR CAPITAL Y
MATHEMATICAL FRAKTUR SMALL A
MATHEMATICAL FRAKTUR SMALL B
MATHEMATICAL FRAKTUR SMALL C
MATHEMATICAL FRAKTUR SMALL D
MATHEMATICAL FRAKTUR SMALL E
MATHEMATICAL FRAKTUR SMALL F
MATHEMATICAL FRAKTUR SMALL G
MATHEMATICAL FRAKTUR SMALL H
MATHEMATICAL FRAKTUR SMALL I
MATHEMATICAL FRAKTUR SMALL J
MATHEMATICAL FRAKTUR SMALL K
MATHEMATICAL FRAKTUR SMALL L
MATHEMATICAL FRAKTUR SMALL M
MATHEMATICAL FRAKTUR SMALL N
MATHEMATICAL FRAKTUR SMALL O
MATHEMATICAL FRAKTUR SMALL P
MATHEMATICAL FRAKTUR SMALL Q
MATHEMATICAL FRAKTUR SMALL R
MATHEMATICAL FRAKTUR SMALL S
MATHEMATICAL FRAKTUR SMALL T
MATHEMATICAL FRAKTUR SMALL U
MATHEMATICAL FRAKTUR SMALL V
MATHEMATICAL FRAKTUR SMALL W
MATHEMATICAL FRAKTUR SMALL X
MATHEMATICAL FRAKTUR SMALL Y
MATHEMATICAL FRAKTUR SMALL Z
MATHEMATICAL DOUBLE-STRUCK CAPITAL A
MATHEMATICAL DOUBLE-STRUCK CAPITAL B
MATHEMATICAL DOUBLE-STRUCK CAPITAL D
MATHEMATICAL DOUBLE-STRUCK CAPITAL E
MATHEMATICAL DOUBLE-STRUCK CAPITAL F
MATHEMATICAL DOUBLE-STRUCK CAPITAL G
MATHEMATICAL DOUBLE-STRUCK CAPITAL I
MATHEMATICAL DOUBLE-STRUCK CAPITAL J
MATHEMATICAL DOUBLE-STRUCK CAPITAL K
MATHEMATICAL DOUBLE-STRUCK CAPITAL L
MATHEMATICAL DOUBLE-STRUCK CAPITAL M
MATHEMATICAL DOUBLE-STRUCK CAPITAL O
MATHEMATICAL DOUBLE-STRUCK CAPITAL S
MATHEMATICAL DOUBLE-STRUCK CAPITAL T
MATHEMATICAL DOUBLE-STRUCK CAPITAL U
MATHEMATICAL DOUBLE-STRUCK CAPITAL V
MATHEMATICAL DOUBLE-STRUCK CAPITAL W
MATHEMATICAL DOUBLE-STRUCK CAPITAL X
MATHEMATICAL DOUBLE-STRUCK CAPITAL Y
MATHEMATICAL DOUBLE-STRUCK SMALL A
MATHEMATICAL DOUBLE-STRUCK SMALL B
MATHEMATICAL DOUBLE-STRUCK SMALL C
MATHEMATICAL DOUBLE-STRUCK SMALL D
MATHEMATICAL DOUBLE-STRUCK SMALL E
MATHEMATICAL DOUBLE-STRUCK SMALL F
MATHEMATICAL DOUBLE-STRUCK SMALL G
MATHEMATICAL DOUBLE-STRUCK SMALL H
MATHEMATICAL DOUBLE-STRUCK SMALL I
MATHEMATICAL DOUBLE-STRUCK SMALL J
MATHEMATICAL DOUBLE-STRUCK SMALL K
MATHEMATICAL DOUBLE-STRUCK SMALL L
MATHEMATICAL DOUBLE-STRUCK SMALL M
MATHEMATICAL DOUBLE-STRUCK SMALL N
MATHEMATICAL DOUBLE-STRUCK SMALL O
MATHEMATICAL DOUBLE-STRUCK SMALL P
MATHEMATICAL DOUBLE-STRUCK SMALL Q
MATHEMATICAL DOUBLE-STRUCK SMALL R
MATHEMATICAL DOUBLE-STRUCK SMALL S
MATHEMATICAL DOUBLE-STRUCK SMALL T
MATHEMATICAL DOUBLE-STRUCK SMALL U
MATHEMATICAL DOUBLE-STRUCK SMALL V
MATHEMATICAL DOUBLE-STRUCK SMALL W
MATHEMATICAL DOUBLE-STRUCK SMALL X
MATHEMATICAL DOUBLE-STRUCK SMALL Y
MATHEMATICAL DOUBLE-STRUCK SMALL Z
MATHEMATICAL BOLD FRAKTUR CAPITAL A
MATHEMATICAL BOLD FRAKTUR CAPITAL B
MATHEMATICAL BOLD FRAKTUR CAPITAL C
MATHEMATICAL BOLD FRAKTUR CAPITAL D
MATHEMATICAL BOLD FRAKTUR CAPITAL E
MATHEMATICAL BOLD FRAKTUR CAPITAL F
MATHEMATICAL BOLD FRAKTUR CAPITAL G
MATHEMATICAL BOLD FRAKTUR CAPITAL H
MATHEMATICAL BOLD FRAKTUR CAPITAL I
MATHEMATICAL BOLD FRAKTUR CAPITAL J
MATHEMATICAL BOLD FRAKTUR CAPITAL K
MATHEMATICAL BOLD FRAKTUR CAPITAL L
MATHEMATICAL BOLD FRAKTUR CAPITAL M
MATHEMATICAL BOLD FRAKTUR CAPITAL N
MATHEMATICAL BOLD FRAKTUR CAPITAL O
MATHEMATICAL BOLD FRAKTUR CAPITAL P
MATHEMATICAL BOLD FRAKTUR CAPITAL Q
MATHEMATICAL BOLD FRAKTUR CAPITAL R
MATHEMATICAL BOLD FRAKTUR CAPITAL S
MATHEMATICAL BOLD FRAKTUR CAPITAL T
MATHEMATICAL BOLD FRAKTUR CAPITAL U
MATHEMATICAL BOLD FRAKTUR CAPITAL V
MATHEMATICAL BOLD FRAKTUR CAPITAL W
MATHEMATICAL BOLD FRAKTUR CAPITAL X
MATHEMATICAL BOLD FRAKTUR CAPITAL Y
MATHEMATICAL BOLD FRAKTUR CAPITAL Z
MATHEMATICAL BOLD FRAKTUR SMALL A
MATHEMATICAL BOLD FRAKTUR SMALL B
MATHEMATICAL BOLD FRAKTUR SMALL C
MATHEMATICAL BOLD FRAKTUR SMALL D
MATHEMATICAL BOLD FRAKTUR SMALL E
MATHEMATICAL BOLD FRAKTUR SMALL F
MATHEMATICAL BOLD FRAKTUR SMALL G
MATHEMATICAL BOLD FRAKTUR SMALL H
MATHEMATICAL BOLD FRAKTUR SMALL I
MATHEMATICAL BOLD FRAKTUR SMALL J
MATHEMATICAL BOLD FRAKTUR SMALL K
MATHEMATICAL BOLD FRAKTUR SMALL L
MATHEMATICAL BOLD FRAKTUR SMALL M
MATHEMATICAL BOLD FRAKTUR SMALL N
MATHEMATICAL BOLD FRAKTUR SMALL O
MATHEMATICAL BOLD FRAKTUR SMALL P
MATHEMATICAL BOLD FRAKTUR SMALL Q
MATHEMATICAL BOLD FRAKTUR SMALL R
MATHEMATICAL BOLD FRAKTUR SMALL S
MATHEMATICAL BOLD FRAKTUR SMALL T
MATHEMATICAL BOLD FRAKTUR SMALL U
MATHEMATICAL BOLD FRAKTUR SMALL V
MATHEMATICAL BOLD FRAKTUR SMALL W
MATHEMATICAL BOLD FRAKTUR SMALL X
MATHEMATICAL BOLD FRAKTUR SMALL Y
MATHEMATICAL BOLD FRAKTUR SMALL Z
MATHEMATICAL SANS-SERIF CAPITAL A
MATHEMATICAL SANS-SERIF CAPITAL B
MATHEMATICAL SANS-SERIF CAPITAL C
MATHEMATICAL SANS-SERIF CAPITAL D
MATHEMATICAL SANS-SERIF CAPITAL E
MATHEMATICAL SANS-SERIF CAPITAL F
MATHEMATICAL SANS-SERIF CAPITAL G
MATHEMATICAL SANS-SERIF CAPITAL H
MATHEMATICAL SANS-SERIF CAPITAL I
MATHEMATICAL SANS-SERIF CAPITAL J
MATHEMATICAL SANS-SERIF CAPITAL K
MATHEMATICAL SANS-SERIF CAPITAL L
MATHEMATICAL SANS-SERIF CAPITAL M
MATHEMATICAL SANS-SERIF CAPITAL N
MATHEMATICAL SANS-SERIF CAPITAL O
MATHEMATICAL SANS-SERIF CAPITAL P
MATHEMATICAL SANS-SERIF CAPITAL Q
MATHEMATICAL SANS-SERIF CAPITAL R
MATHEMATICAL SANS-SERIF CAPITAL S
MATHEMATICAL SANS-SERIF CAPITAL T
MATHEMATICAL SANS-SERIF CAPITAL U
MATHEMATICAL SANS-SERIF CAPITAL V
MATHEMATICAL SANS-SERIF CAPITAL W
MATHEMATICAL SANS-SERIF CAPITAL X
MATHEMATICAL SANS-SERIF CAPITAL Y
MATHEMATICAL SANS-SERIF CAPITAL Z
MATHEMATICAL SANS-SERIF SMALL A
MATHEMATICAL SANS-SERIF SMALL B
MATHEMATICAL SANS-SERIF SMALL C
MATHEMATICAL SANS-SERIF SMALL D
MATHEMATICAL SANS-SERIF SMALL E
MATHEMATICAL SANS-SERIF SMALL F
MATHEMATICAL SANS-SERIF SMALL G
MATHEMATICAL SANS-SERIF SMALL H
MATHEMATICAL SANS-SERIF SMALL I
MATHEMATICAL SANS-SERIF SMALL J
MATHEMATICAL SANS-SERIF SMALL K
MATHEMATICAL SANS-SERIF SMALL L
MATHEMATICAL SANS-SERIF SMALL M
MATHEMATICAL SANS-SERIF SMALL N
MATHEMATICAL SANS-SERIF SMALL O
MATHEMATICAL SANS-SERIF SMALL P
MATHEMATICAL SANS-SERIF SMALL Q
MATHEMATICAL SANS-SERIF SMALL R
MATHEMATICAL SANS-SERIF SMALL S
MATHEMATICAL SANS-SERIF SMALL T
MATHEMATICAL SANS-SERIF SMALL U
MATHEMATICAL SANS-SERIF SMALL V
MATHEMATICAL SANS-SERIF SMALL W
MATHEMATICAL SANS-SERIF SMALL X
MATHEMATICAL SANS-SERIF SMALL Y
MATHEMATICAL SANS-SERIF SMALL Z
MATHEMATICAL SANS-SERIF BOLD CAPITAL A
MATHEMATICAL SANS-SERIF BOLD CAPITAL B
MATHEMATICAL SANS-SERIF BOLD CAPITAL C
MATHEMATICAL SANS-SERIF BOLD CAPITAL D
MATHEMATICAL SANS-SERIF BOLD CAPITAL E
MATHEMATICAL SANS-SERIF BOLD CAPITAL F
MATHEMATICAL SANS-SERIF BOLD CAPITAL G
MATHEMATICAL SANS-SERIF BOLD CAPITAL H
MATHEMATICAL SANS-SERIF BOLD CAPITAL I
MATHEMATICAL SANS-SERIF BOLD CAPITAL J
MATHEMATICAL SANS-SERIF BOLD CAPITAL K
MATHEMATICAL SANS-SERIF BOLD CAPITAL L
MATHEMATICAL SANS-SERIF BOLD CAPITAL M
MATHEMATICAL SANS-SERIF BOLD CAPITAL N
MATHEMATICAL SANS-SERIF BOLD CAPITAL O
MATHEMATICAL SANS-SERIF BOLD CAPITAL P
MATHEMATICAL SANS-SERIF BOLD CAPITAL Q
MATHEMATICAL SANS-SERIF BOLD CAPITAL R
MATHEMATICAL SANS-SERIF BOLD CAPITAL S
MATHEMATICAL SANS-SERIF BOLD CAPITAL T
MATHEMATICAL SANS-SERIF BOLD CAPITAL U
MATHEMATICAL SANS-SERIF BOLD CAPITAL V
MATHEMATICAL SANS-SERIF BOLD CAPITAL W
MATHEMATICAL SANS-SERIF BOLD CAPITAL X
MATHEMATICAL SANS-SERIF BOLD CAPITAL Y
MATHEMATICAL SANS-SERIF BOLD CAPITAL Z
MATHEMATICAL SANS-SERIF BOLD SMALL A
MATHEMATICAL SANS-SERIF BOLD SMALL B
MATHEMATICAL SANS-SERIF BOLD SMALL C
MATHEMATICAL SANS-SERIF BOLD SMALL D
MATHEMATICAL SANS-SERIF BOLD SMALL E
MATHEMATICAL SANS-SERIF BOLD SMALL F
MATHEMATICAL SANS-SERIF BOLD SMALL G
MATHEMATICAL SANS-SERIF BOLD SMALL H
MATHEMATICAL SANS-SERIF BOLD SMALL I
MATHEMATICAL SANS-SERIF BOLD SMALL J
MATHEMATICAL SANS-SERIF BOLD SMALL K
MATHEMATICAL SANS-SERIF BOLD SMALL L
MATHEMATICAL SANS-SERIF BOLD SMALL M
MATHEMATICAL SANS-SERIF BOLD SMALL N
MATHEMATICAL SANS-SERIF BOLD SMALL O
MATHEMATICAL SANS-SERIF BOLD SMALL P
MATHEMATICAL SANS-SERIF BOLD SMALL Q
MATHEMATICAL SANS-SERIF BOLD SMALL R
MATHEMATICAL SANS-SERIF BOLD SMALL S
MATHEMATICAL SANS-SERIF BOLD SMALL T
MATHEMATICAL SANS-SERIF BOLD SMALL U
MATHEMATICAL SANS-SERIF BOLD SMALL V
MATHEMATICAL SANS-SERIF BOLD SMALL W
MATHEMATICAL SANS-SERIF BOLD SMALL X
MATHEMATICAL SANS-SERIF BOLD SMALL Y
MATHEMATICAL SANS-SERIF BOLD SMALL Z
MATHEMATICAL SANS-SERIF ITALIC CAPITAL A
MATHEMATICAL SANS-SERIF ITALIC CAPITAL B
MATHEMATICAL SANS-SERIF ITALIC CAPITAL C
MATHEMATICAL SANS-SERIF ITALIC CAPITAL D
MATHEMATICAL SANS-SERIF ITALIC CAPITAL E
MATHEMATICAL SANS-SERIF ITALIC CAPITAL F
MATHEMATICAL SANS-SERIF ITALIC CAPITAL G
MATHEMATICAL SANS-SERIF ITALIC CAPITAL H
MATHEMATICAL SANS-SERIF ITALIC CAPITAL I
MATHEMATICAL SANS-SERIF ITALIC CAPITAL J
MATHEMATICAL SANS-SERIF ITALIC CAPITAL K
MATHEMATICAL SANS-SERIF ITALIC CAPITAL L
MATHEMATICAL SANS-SERIF ITALIC CAPITAL M
MATHEMATICAL SANS-SERIF ITALIC CAPITAL N
MATHEMATICAL SANS-SERIF ITALIC CAPITAL O
MATHEMATICAL SANS-SERIF ITALIC CAPITAL P
MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q
MATHEMATICAL SANS-SERIF ITALIC CAPITAL R
MATHEMATICAL SANS-SERIF ITALIC CAPITAL S
MATHEMATICAL SANS-SERIF ITALIC CAPITAL T
MATHEMATICAL SANS-SERIF ITALIC CAPITAL U
MATHEMATICAL SANS-SERIF ITALIC CAPITAL V
MATHEMATICAL SANS-SERIF ITALIC CAPITAL W
MATHEMATICAL SANS-SERIF ITALIC CAPITAL X
MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y
MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z
MATHEMATICAL SANS-SERIF ITALIC SMALL A
MATHEMATICAL SANS-SERIF ITALIC SMALL B
MATHEMATICAL SANS-SERIF ITALIC SMALL C
MATHEMATICAL SANS-SERIF ITALIC SMALL D
MATHEMATICAL SANS-SERIF ITALIC SMALL E
MATHEMATICAL SANS-SERIF ITALIC SMALL F
MATHEMATICAL SANS-SERIF ITALIC SMALL G
MATHEMATICAL SANS-SERIF ITALIC SMALL H
MATHEMATICAL SANS-SERIF ITALIC SMALL I
MATHEMATICAL SANS-SERIF ITALIC SMALL J
MATHEMATICAL SANS-SERIF ITALIC SMALL K
MATHEMATICAL SANS-SERIF ITALIC SMALL L
MATHEMATICAL SANS-SERIF ITALIC SMALL M
MATHEMATICAL SANS-SERIF ITALIC SMALL N
MATHEMATICAL SANS-SERIF ITALIC SMALL O
MATHEMATICAL SANS-SERIF ITALIC SMALL P
MATHEMATICAL SANS-SERIF ITALIC SMALL Q
MATHEMATICAL SANS-SERIF ITALIC SMALL R
MATHEMATICAL SANS-SERIF ITALIC SMALL S
MATHEMATICAL SANS-SERIF ITALIC SMALL T
MATHEMATICAL SANS-SERIF ITALIC SMALL U
MATHEMATICAL SANS-SERIF ITALIC SMALL V
MATHEMATICAL SANS-SERIF ITALIC SMALL W
MATHEMATICAL SANS-SERIF ITALIC SMALL X
MATHEMATICAL SANS-SERIF ITALIC SMALL Y
MATHEMATICAL SANS-SERIF ITALIC SMALL Z
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z
MATHEMATICAL MONOSPACE CAPITAL A
MATHEMATICAL MONOSPACE CAPITAL B
MATHEMATICAL MONOSPACE CAPITAL C
MATHEMATICAL MONOSPACE CAPITAL D
MATHEMATICAL MONOSPACE CAPITAL E
MATHEMATICAL MONOSPACE CAPITAL F
MATHEMATICAL MONOSPACE CAPITAL G
MATHEMATICAL MONOSPACE CAPITAL H
MATHEMATICAL MONOSPACE CAPITAL I
MATHEMATICAL MONOSPACE CAPITAL J
MATHEMATICAL MONOSPACE CAPITAL K
MATHEMATICAL MONOSPACE CAPITAL L
MATHEMATICAL MONOSPACE CAPITAL M
MATHEMATICAL MONOSPACE CAPITAL N
MATHEMATICAL MONOSPACE CAPITAL O
MATHEMATICAL MONOSPACE CAPITAL P
MATHEMATICAL MONOSPACE CAPITAL Q
MATHEMATICAL MONOSPACE CAPITAL R
MATHEMATICAL MONOSPACE CAPITAL S
MATHEMATICAL MONOSPACE CAPITAL T
MATHEMATICAL MONOSPACE CAPITAL U
MATHEMATICAL MONOSPACE CAPITAL V
MATHEMATICAL MONOSPACE CAPITAL W
MATHEMATICAL MONOSPACE CAPITAL X
MATHEMATICAL MONOSPACE CAPITAL Y
MATHEMATICAL MONOSPACE CAPITAL Z
MATHEMATICAL MONOSPACE SMALL A
MATHEMATICAL MONOSPACE SMALL B
MATHEMATICAL MONOSPACE SMALL C
MATHEMATICAL MONOSPACE SMALL D
MATHEMATICAL MONOSPACE SMALL E
MATHEMATICAL MONOSPACE SMALL F
MATHEMATICAL MONOSPACE SMALL G
MATHEMATICAL MONOSPACE SMALL H
MATHEMATICAL MONOSPACE SMALL I
MATHEMATICAL MONOSPACE SMALL J
MATHEMATICAL MONOSPACE SMALL K
MATHEMATICAL MONOSPACE SMALL L
MATHEMATICAL MONOSPACE SMALL M
MATHEMATICAL MONOSPACE SMALL N
MATHEMATICAL MONOSPACE SMALL O
MATHEMATICAL MONOSPACE SMALL P
MATHEMATICAL MONOSPACE SMALL Q
MATHEMATICAL MONOSPACE SMALL R
MATHEMATICAL MONOSPACE SMALL S
MATHEMATICAL MONOSPACE SMALL T
MATHEMATICAL MONOSPACE SMALL U
MATHEMATICAL MONOSPACE SMALL V
MATHEMATICAL MONOSPACE SMALL W
MATHEMATICAL MONOSPACE SMALL X
MATHEMATICAL MONOSPACE SMALL Y
MATHEMATICAL MONOSPACE SMALL Z
MATHEMATICAL ITALIC SMALL DOTLESS I
MATHEMATICAL ITALIC SMALL DOTLESS J
MATHEMATICAL BOLD CAPITAL ALPHA
MATHEMATICAL BOLD CAPITAL BETA
MATHEMATICAL BOLD CAPITAL GAMMA
MATHEMATICAL BOLD CAPITAL DELTA
MATHEMATICAL BOLD CAPITAL EPSILON
MATHEMATICAL BOLD CAPITAL ZETA
MATHEMATICAL BOLD CAPITAL ETA
MATHEMATICAL BOLD CAPITAL THETA
MATHEMATICAL BOLD CAPITAL IOTA
MATHEMATICAL BOLD CAPITAL KAPPA
MATHEMATICAL BOLD CAPITAL LAMDA
MATHEMATICAL BOLD CAPITAL MU
MATHEMATICAL BOLD CAPITAL NU
MATHEMATICAL BOLD CAPITAL XI
MATHEMATICAL BOLD CAPITAL OMICRON
MATHEMATICAL BOLD CAPITAL PI
MATHEMATICAL BOLD CAPITAL RHO
MATHEMATICAL BOLD CAPITAL THETA SYMBOL
MATHEMATICAL BOLD CAPITAL SIGMA
MATHEMATICAL BOLD CAPITAL TAU
MATHEMATICAL BOLD CAPITAL UPSILON
MATHEMATICAL BOLD CAPITAL PHI
MATHEMATICAL BOLD CAPITAL CHI
MATHEMATICAL BOLD CAPITAL PSI
MATHEMATICAL BOLD CAPITAL OMEGA
MATHEMATICAL BOLD SMALL ALPHA
MATHEMATICAL BOLD SMALL BETA
MATHEMATICAL BOLD SMALL GAMMA
MATHEMATICAL BOLD SMALL DELTA
MATHEMATICAL BOLD SMALL EPSILON
MATHEMATICAL BOLD SMALL ZETA
MATHEMATICAL BOLD SMALL ETA
MATHEMATICAL BOLD SMALL THETA
MATHEMATICAL BOLD SMALL IOTA
MATHEMATICAL BOLD SMALL KAPPA
MATHEMATICAL BOLD SMALL LAMDA
MATHEMATICAL BOLD SMALL MU
MATHEMATICAL BOLD SMALL NU
MATHEMATICAL BOLD SMALL XI
MATHEMATICAL BOLD SMALL OMICRON
MATHEMATICAL BOLD SMALL PI
MATHEMATICAL BOLD SMALL RHO
MATHEMATICAL BOLD SMALL FINAL SIGMA
MATHEMATICAL BOLD SMALL SIGMA
MATHEMATICAL BOLD SMALL TAU
MATHEMATICAL BOLD SMALL UPSILON
MATHEMATICAL BOLD SMALL PHI
MATHEMATICAL BOLD SMALL CHI
MATHEMATICAL BOLD SMALL PSI
MATHEMATICAL BOLD SMALL OMEGA
MATHEMATICAL BOLD EPSILON SYMBOL
MATHEMATICAL BOLD THETA SYMBOL
MATHEMATICAL BOLD KAPPA SYMBOL
MATHEMATICAL BOLD PHI SYMBOL
MATHEMATICAL BOLD RHO SYMBOL
MATHEMATICAL BOLD PI SYMBOL
MATHEMATICAL ITALIC CAPITAL ALPHA
MATHEMATICAL ITALIC CAPITAL BETA
MATHEMATICAL ITALIC CAPITAL GAMMA
MATHEMATICAL ITALIC CAPITAL DELTA
MATHEMATICAL ITALIC CAPITAL EPSILON
MATHEMATICAL ITALIC CAPITAL ZETA
MATHEMATICAL ITALIC CAPITAL ETA
MATHEMATICAL ITALIC CAPITAL THETA
MATHEMATICAL ITALIC CAPITAL IOTA
MATHEMATICAL ITALIC CAPITAL KAPPA
MATHEMATICAL ITALIC CAPITAL LAMDA
MATHEMATICAL ITALIC CAPITAL MU
MATHEMATICAL ITALIC CAPITAL NU
MATHEMATICAL ITALIC CAPITAL XI
MATHEMATICAL ITALIC CAPITAL OMICRON
MATHEMATICAL ITALIC CAPITAL PI
MATHEMATICAL ITALIC CAPITAL RHO
MATHEMATICAL ITALIC CAPITAL THETA SYMBOL
MATHEMATICAL ITALIC CAPITAL SIGMA
MATHEMATICAL ITALIC CAPITAL TAU
MATHEMATICAL ITALIC CAPITAL UPSILON
MATHEMATICAL ITALIC CAPITAL PHI
MATHEMATICAL ITALIC CAPITAL CHI
MATHEMATICAL ITALIC CAPITAL PSI
MATHEMATICAL ITALIC CAPITAL OMEGA
MATHEMATICAL ITALIC SMALL ALPHA
MATHEMATICAL ITALIC SMALL BETA
MATHEMATICAL ITALIC SMALL GAMMA
MATHEMATICAL ITALIC SMALL DELTA
MATHEMATICAL ITALIC SMALL EPSILON
MATHEMATICAL ITALIC SMALL ZETA
MATHEMATICAL ITALIC SMALL ETA
MATHEMATICAL ITALIC SMALL THETA
MATHEMATICAL ITALIC SMALL IOTA
MATHEMATICAL ITALIC SMALL KAPPA
MATHEMATICAL ITALIC SMALL LAMDA
MATHEMATICAL ITALIC SMALL MU
MATHEMATICAL ITALIC SMALL NU
MATHEMATICAL ITALIC SMALL XI
MATHEMATICAL ITALIC SMALL OMICRON
MATHEMATICAL ITALIC SMALL PI
MATHEMATICAL ITALIC SMALL RHO
MATHEMATICAL ITALIC SMALL FINAL SIGMA
MATHEMATICAL ITALIC SMALL SIGMA
MATHEMATICAL ITALIC SMALL TAU
MATHEMATICAL ITALIC SMALL UPSILON
MATHEMATICAL ITALIC SMALL PHI
MATHEMATICAL ITALIC SMALL CHI
MATHEMATICAL ITALIC SMALL PSI
MATHEMATICAL ITALIC SMALL OMEGA
MATHEMATICAL ITALIC EPSILON SYMBOL
MATHEMATICAL ITALIC THETA SYMBOL
MATHEMATICAL ITALIC KAPPA SYMBOL
MATHEMATICAL ITALIC PHI SYMBOL
MATHEMATICAL ITALIC RHO SYMBOL
MATHEMATICAL ITALIC PI SYMBOL
MATHEMATICAL BOLD ITALIC CAPITAL ALPHA
MATHEMATICAL BOLD ITALIC CAPITAL BETA
MATHEMATICAL BOLD ITALIC CAPITAL GAMMA
MATHEMATICAL BOLD ITALIC CAPITAL DELTA
MATHEMATICAL BOLD ITALIC CAPITAL EPSILON
MATHEMATICAL BOLD ITALIC CAPITAL ZETA
MATHEMATICAL BOLD ITALIC CAPITAL ETA
MATHEMATICAL BOLD ITALIC CAPITAL THETA
MATHEMATICAL BOLD ITALIC CAPITAL IOTA
MATHEMATICAL BOLD ITALIC CAPITAL KAPPA
MATHEMATICAL BOLD ITALIC CAPITAL LAMDA
MATHEMATICAL BOLD ITALIC CAPITAL MU
MATHEMATICAL BOLD ITALIC CAPITAL NU
MATHEMATICAL BOLD ITALIC CAPITAL XI
MATHEMATICAL BOLD ITALIC CAPITAL OMICRON
MATHEMATICAL BOLD ITALIC CAPITAL PI
MATHEMATICAL BOLD ITALIC CAPITAL RHO
MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL
MATHEMATICAL BOLD ITALIC CAPITAL SIGMA
MATHEMATICAL BOLD ITALIC CAPITAL TAU
MATHEMATICAL BOLD ITALIC CAPITAL UPSILON
MATHEMATICAL BOLD ITALIC CAPITAL PHI
MATHEMATICAL BOLD ITALIC CAPITAL CHI
MATHEMATICAL BOLD ITALIC CAPITAL PSI
MATHEMATICAL BOLD ITALIC CAPITAL OMEGA
MATHEMATICAL BOLD ITALIC SMALL ALPHA
MATHEMATICAL BOLD ITALIC SMALL BETA
MATHEMATICAL BOLD ITALIC SMALL GAMMA
MATHEMATICAL BOLD ITALIC SMALL DELTA
MATHEMATICAL BOLD ITALIC SMALL EPSILON
MATHEMATICAL BOLD ITALIC SMALL ZETA
MATHEMATICAL BOLD ITALIC SMALL ETA
MATHEMATICAL BOLD ITALIC SMALL THETA
MATHEMATICAL BOLD ITALIC SMALL IOTA
MATHEMATICAL BOLD ITALIC SMALL KAPPA
MATHEMATICAL BOLD ITALIC SMALL LAMDA
MATHEMATICAL BOLD ITALIC SMALL MU
MATHEMATICAL BOLD ITALIC SMALL NU
MATHEMATICAL BOLD ITALIC SMALL XI
MATHEMATICAL BOLD ITALIC SMALL OMICRON
MATHEMATICAL BOLD ITALIC SMALL PI
MATHEMATICAL BOLD ITALIC SMALL RHO
MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA
MATHEMATICAL BOLD ITALIC SMALL SIGMA
MATHEMATICAL BOLD ITALIC SMALL TAU
MATHEMATICAL BOLD ITALIC SMALL UPSILON
MATHEMATICAL BOLD ITALIC SMALL PHI
MATHEMATICAL BOLD ITALIC SMALL CHI
MATHEMATICAL BOLD ITALIC SMALL PSI
MATHEMATICAL BOLD ITALIC SMALL OMEGA
MATHEMATICAL BOLD ITALIC EPSILON SYMBOL
MATHEMATICAL BOLD ITALIC THETA SYMBOL
MATHEMATICAL BOLD ITALIC KAPPA SYMBOL
MATHEMATICAL BOLD ITALIC PHI SYMBOL
MATHEMATICAL BOLD ITALIC RHO SYMBOL
MATHEMATICAL BOLD ITALIC PI SYMBOL
MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA
MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA
MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA
MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON
MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA
MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA
MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA
MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA
MATHEMATICAL SANS-SERIF BOLD CAPITAL MU
MATHEMATICAL SANS-SERIF BOLD CAPITAL NU
MATHEMATICAL SANS-SERIF BOLD CAPITAL XI
MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON
MATHEMATICAL SANS-SERIF BOLD CAPITAL PI
MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO
MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA
MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU
MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON
MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI
MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI
MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI
MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA
MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA
MATHEMATICAL SANS-SERIF BOLD SMALL BETA
MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA
MATHEMATICAL SANS-SERIF BOLD SMALL DELTA
MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON
MATHEMATICAL SANS-SERIF BOLD SMALL ZETA
MATHEMATICAL SANS-SERIF BOLD SMALL ETA
MATHEMATICAL SANS-SERIF BOLD SMALL THETA
MATHEMATICAL SANS-SERIF BOLD SMALL IOTA
MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA
MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA
MATHEMATICAL SANS-SERIF BOLD SMALL MU
MATHEMATICAL SANS-SERIF BOLD SMALL NU
MATHEMATICAL SANS-SERIF BOLD SMALL XI
MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON
MATHEMATICAL SANS-SERIF BOLD SMALL PI
MATHEMATICAL SANS-SERIF BOLD SMALL RHO
MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA
MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA
MATHEMATICAL SANS-SERIF BOLD SMALL TAU
MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON
MATHEMATICAL SANS-SERIF BOLD SMALL PHI
MATHEMATICAL SANS-SERIF BOLD SMALL CHI
MATHEMATICAL SANS-SERIF BOLD SMALL PSI
MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA
MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL
MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL
MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL
MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL
MATHEMATICAL SANS-SERIF BOLD PI SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI
MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI
MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA
MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL
MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL
MATHEMATICAL BOLD CAPITAL DIGAMMA
MATHEMATICAL BOLD SMALL DIGAMMA
NIL
* 
* 
143 
8843 
* 
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/genesis.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFCONSTANT CORE-MAGIC ...)
; compiling (DEFUN ROUND-UP ...)
; compiling (DEFCONSTANT +SMALLVEC-LENGTH+ ...)
; compiling (DEFTYPE SMALLVEC ...)
; compiling (DEFUN MAKE-SMALLVEC ...)
; compiling (DEFSTRUCT BIGVEC ...)
; compiling (DEFUN BVREF ...)
; compiling (DEFUN (SETF BVREF) ...)
; compiling (DEFUN BVLENGTH ...)
; compiling (DEFUN WRITE-BIGVEC-AS-SEQUENCE ...)
; compiling (DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE ...)
; compiling (DEFUN EXPAND-BIGVEC ...)
; compiling (MAKE-BVREF-N 8)
; compiling (MAKE-BVREF-N 16)
; compiling (MAKE-BVREF-N 32)
; compiling (MAKE-BVREF-N 64)
; compiling (DEFUN BVREF-WORD ...)
; compiling (DEFUN (SETF BVREF-WORD) ...)
; compiling (DEFVAR *DYNAMIC*)
; compiling (DEFCONSTANT DYNAMIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *STATIC*)
; compiling (DEFCONSTANT STATIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *READ-ONLY*)
; compiling (DEFCONSTANT READ-ONLY-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT MAX-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT DEFLATED-CORE-SPACE-ID-FLAG ...)
; compiling (DEFCONSTANT TARGET-SPACE-ALIGNMENT ...)
; compiling (DEFSTRUCT (GSPACE # ...) ...)
; compiling (DEFUN GSPACE-BYTE-ADDRESS ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-GSPACE ...)
; compiling (DEFUN IS-FIXNUM-LOWTAG ...)
; compiling (DEFUN IS-OTHER-IMMEDIATE-LOWTAG ...)
; compiling (DEFSTRUCT (DESCRIPTOR # ...) ...)
; compiling (DECLAIM (INLINE DESCRIPTOR=))
; compiling (DEFUN DESCRIPTOR= ...)
; compiling (DEFUN MAKE-RANDOM-DESCRIPTOR ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALLOCATE-COLD-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-LOWTAG ...)
; compiling (DEFUN DESCRIPTOR-FIXNUM ...)
; compiling (DEFUN DESCRIPTOR-WORD-SIZED-INTEGER ...)
; compiling (DEFUN DESCRIPTOR-BYTES ...)
; compiling (DEFUN DESCRIPTOR-BYTE-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DESCRIPTOR-INTUIT-GSPACE ...)
; compiling (DEFUN %FIXNUM-DESCRIPTOR-IF-POSSIBLE ...)
; compiling (DEFUN MAKE-FIXNUM-DESCRIPTOR ...)
; compiling (DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR ...)
; compiling (DEFUN MAKE-CHARACTER-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-BEYOND ...)
; compiling (DEFVAR *FOREIGN-SYMBOL-PLACEHOLDER-VALUE*)
; compiling (DEFVAR *UNBOUND-MARKER*)
; compiling (DEFVAR *NIL-DESCRIPTOR*)
; compiling (DEFVAR *CURRENT-REVERSED-COLD-TOPLEVELS*)
; compiling (DEFVAR *CURRENT-DEBUG-SOURCES*)
; compiling (DEFPARAMETER *COLD-FOREIGN-UNDEFINED-SYMBOLS* ...)
; compiling (DEFMACRO COLD-PUSH ...)
; compiling (DEFUN TARGET-PUSH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-BITS-WORDINDEXED ...)
; compiling (DEFUN READ-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-MEMORY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-MEMORY ...)
; compiling (DEFUN WRITE-HEADER-WORD ...)
; compiling (DEFUN ALLOCATE-OBJECT ...)
; compiling (DEFUN ALLOCATE-HEADER+OBJECT ...)
; compiling (DEFUN ALLOCATE-VECTOR-OBJECT ...)
; compiling (DEFVAR *HOST-LAYOUT-OF-LAYOUT* ...)
; compiling (DEFUN COLD-LAYOUT-LENGTH ...)
; compiling (DEFUN ALLOCATE-STRUCT ...)
; compiling (DEFUN BASE-STRING-TO-CORE ...)
; compiling (DEFUN BASE-STRING-FROM-CORE ...)
; compiling (DEFUN BIGNUM-TO-CORE ...)
; compiling (DEFUN BIGNUM-FROM-CORE ...)
; compiling (DEFUN NUMBER-PAIR-TO-CORE ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN WRITE-DOUBLE-FLOAT-BITS
;     (LET ((SB!FASL::BITS
;            (SB!FASL::MAKE-RANDOM-DESCRIPTOR (ECASE SB!C:*BACKEND-BYTE-ORDER* #))))
;       (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::BITS))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32))
; ==>
;   SB!FASL::LO
; 
; note: deleting unreachable code

;     (SB!FASL::MAKE-RANDOM-DESCRIPTOR
;      (ECASE SB!C:*BACKEND-BYTE-ORDER*
;        (:LITTLE-ENDIAN (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32)))))
; 
; note: deleting unreachable code
; compiling (DEFUN WRITE-DOUBLE-FLOAT-BITS ...)
; compiling (DEFUN FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE ...)
; compiling (DEFUN NUMBER-TO-CORE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-INT-TO-CORE ...)
; compiling (DEFUN COLD-CONS ...)
; compiling (DEFUN COLD-LIST ...)
; compiling (DEFUN COLD-LIST-LENGTH ...)
; compiling (DEFUN VECTOR-IN-CORE ...)
; compiling (DEFUN COLD-SVSET ...)
; compiling (DECLAIM (INLINE COLD-VECTOR-LEN ...))
; compiling (DEFUN COLD-VECTOR-LEN ...)
; compiling (DEFUN COLD-SVREF ...)
; compiling (DEFUN COLD-VECTOR-ELEMENTS-EQ ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN VECTOR-FROM-CORE
;     (SB!FASL::COLD-SVREF SB!FASL::DESCRIPTOR SB!FASL::I)
; --> BLOCK SB!FASL::READ-WORDINDEXED + IF SB!FASL::DESCRIPTOR-FIXNUM 
; ==>
;   SB!FASL::I
; 
; note: deleting unreachable code
; compiling (DEFUN VECTOR-FROM-CORE ...)
; compiling (DEFVAR *GENESIS-TLS-COUNTER* ...)
; compiling (DEFUN ALLOCATE-SYMBOL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COLD-SET ...)
; compiling (DEFUN COLD-SYMBOL-VALUE ...)
; compiling (DEFUN COLD-FDEFN-FUN ...)
; compiling (DEFVAR *COLD-LAYOUTS* ...)
; compiling (DEFVAR *COLD-LAYOUT-NAMES* ...)
; compiling (DEFVAR *LAYOUT-LAYOUT*)
; compiling (DEFVAR *PACKAGE-LAYOUT*)
; compiling (DEFVAR *KNOWN-STRUCTURE-CLASSOIDS*)
; compiling (DEFCONSTANT TARGET-LAYOUT-LENGTH ...)
; compiling (DEFUN LISTIFY-COLD-INHERITS ...)
; compiling (DEFUN WRITE-SLOTS ...)
; compiling (DEFUN READ-SLOT ...)
; compiling (DEFVAR *SIMPLE-VECTOR-0-DESCRIPTOR*)
; compiling (DEFVAR *VACUOUS-SLOT-TABLE*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-COLD-LAYOUT ...)
; compiling (DEFUN PATCH-INSTANCE-LAYOUT ...)
; compiling (DEFUN INITIALIZE-LAYOUTS ...)
; compiling (DEFVAR *COLD-PACKAGE-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *COLD-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN INITIALIZE-PACKAGES ...)
; compiling (DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P ...)
; compiling (DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL ...)
; compiling (DEFVAR *UNINTERNED-SYMBOL-TABLE* ...)
; compiling (DEFUN GET-UNINTERNED-SYMBOL ...)
; compiling (DEFUN HOST-CONSTANT-TO-CORE ...)
; compiling (DEFUN TARGET-SYMBOL-FUNCTION ...)
; compiling (DEFUN EMULATE-TARGET-MAKE-ARRAY ...)
; compiling (DEFUN EMULATE-TARGET-EVAL ...)
; compiling (DEFUN COLD-INTERN ...)
; compiling (DEFUN RECORD-ACCESSIBILITY ...)
; compiling (DEFUN MAKE-NIL-DESCRIPTOR ...)
; compiling (DEFUN INITIALIZE-NON-NIL-SYMBOLS ...)
; compiling (DEFUN SORT-COLD-LAYOUTS ...)
; compiling (DEFUN COLD-LIST-ALL-LAYOUTS ...)
; compiling (DEFUN FINISH-SYMBOLS ...)
; compiling (DEFVAR *COLD-FDEFN-OBJECTS*)
; compiling (DEFVAR *COLD-FDEFN-GSPACE* ...)
; compiling (DEFUN WARM-SYMBOL ...)
; compiling (DEFUN COLD-CAR ...)
; compiling (DEFUN COLD-CDR ...)
; compiling (DEFUN COLD-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WARM-FUN-NAME ...)
; compiling (DEFUN COLD-FDEFINITION-OBJECT ...)
; compiling (DEFUN STATIC-FSET ...)
; compiling (DEFPARAMETER *COLD-FSET-WARM-NAMES* ...)
; compiling (DEFUN COLD-FSET ...)
; compiling (DEFUN INITIALIZE-STATIC-FNS ...)
; compiling (DEFUN ATTACH-FDEFINITIONS-TO-SYMBOLS ...)
; compiling (DEFVAR *COLD-FOREIGN-SYMBOL-TABLE*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE ...)
; compiling (DEFUN COLD-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFVAR *COLD-ASSEMBLER-ROUTINES*)
; compiling (DEFVAR *COLD-ASSEMBLER-FIXUPS*)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-ROUTINE ...)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-FIXUP ...)
; compiling (DEFUN LOOKUP-ASSEMBLER-REFERENCE ...)
; compiling (DEFVAR *DEFERRED-KNOWN-FUN-REFS*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CALC-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DO-COLD-FIXUP ...)
; compiling (DEFUN RESOLVE-ASSEMBLER-FIXUPS ...)
; compiling (DEFUN FOREIGN-SYMBOLS-TO-CORE ...)
; compiling (DEFUN POP-FOP-STACK ...)
; compiling (DEFMACRO DEFINE-COLD-FOP ...)
; compiling (DEFMACRO NOT-COLD-FOP ...)
; compiling (DEFUN COLD-LOAD ...)
; compiling (DEFINE-COLD-FOP (FOP-MISC-TRAP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER #) ...)
; compiling (DEFINE-COLD-FOP (FOP-EMPTY-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-TRUTH) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCT #) ...)
; compiling (DEFINE-COLD-FOP (FOP-LAYOUT) ...)
; compiling (DEFUN COLD-LOAD-SYMBOL ...)
; compiling (FLET (#) ...)
; compiling (DEFINE-COLD-FOP (FOP-LISP-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-COPY-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-NAMED-PACKAGE-SAVE #) ...)
; compiling (DEFMACRO COLD-STACK-LIST ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-BASE-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-VECTOR #) ...)
; compiling (DEFINE-COLD-FOP (FOP-SPEC-VECTOR) ...)
; compiling (NOT-COLD-FOP FOP-ARRAY)
; compiling (DEFMACRO DEFINE-COLD-NUMBER-FOP ...)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-WORD-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-BYTE-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-INTEGER ...)
; compiling (DEFINE-COLD-FOP (FOP-RATIO) ...)
; compiling (DEFINE-COLD-FOP (FOP-COMPLEX) ...)
; compiling (NOT-COLD-FOP FOP-EVAL)
; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT)
; compiling (DEFVAR *LOAD-TIME-VALUE-COUNTER*)
; compiling (FLET (#) ...)
; compiling (DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACA) ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACD) ...)
; compiling (DEFINE-COLD-FOP (FOP-SVSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCTSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-NTHCDR) ...)
; compiling (DEFUN COLD-NTHCDR ...)
; compiling (DEFINE-COLD-FOP (FOP-NOTE-DEBUG-SOURCE) ...)
; compiling (DEFINE-COLD-FOP (FOP-FDEFN) ...)
; compiling (DEFINE-COLD-FOP (FOP-KNOWN-FUN) ...)
; compiling (DEFINE-COLD-FOP (FOP-SANCTIFY-FOR-EXECUTION) ...)
; compiling (DEFUN COLD-LOAD-CODE ...)
; compiling (DOTIMES (I 16) ...)
; compiling (DEFUN RESOLVE-DEFERRED-KNOWN-FUNS ...)
; compiling (DEFINE-COLD-FOP (FOP-ALTER-CODE #) ...)
; compiling (DEFVAR *SIMPLE-FUN-METADATA* ...)
; compiling (DEFUN MAKE-EQUAL-COMPARABLE-THING ...)
; compiling (DEFINE-COLD-FOP (FOP-FUN-ENTRY) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP) ...)
; compiling (DEFUN CHECK-SPACES ...)
; compiling (DEFUN TAILWISE-EQUAL ...)
; compiling (DEFUN WRITE-BOILERPLATE ...)
; compiling (DEFUN C-NAME ...)
; compiling (DEFUN C-SYMBOL-NAME ...)
; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...)
; compiling (DEFUN WRITE-CONFIG-H ...)
; compiling (DEFUN WRITE-CONSTANTS-H ...)
; compiling (DEFUN WRITE-TAGNAMES-H ...)
; compiling (DEFUN WRITE-PRIMITIVE-OBJECT ...)
; compiling (DEFUN WRITE-STRUCTURE-OBJECT ...)
; compiling (DEFUN WRITE-STATIC-SYMBOLS ...)
; compiling (DEFUN WRITE-MAP ...)
; compiling (DEFVAR *CORE-FILE*)
; compiling (DEFVAR *DATA-PAGE*)
; compiling (DEFCONSTANT BUILD-ID-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT INITIAL-FUN-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT PAGE-TABLE-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT END-CORE-ENTRY-TYPE-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORD ...)
; compiling (DEFUN ADVANCE-TO-PAGE ...)
; compiling (DEFUN OUTPUT-GSPACE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-INITIAL-CORE-FILE ...)
; compiling (DEFUN SB!VM:GENESIS ...)
; 
; compilation unit finished
;   printed 5 notes
; compiling (DEFUN WARMELIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/genesis.fasl-tmp written
; compilation finished in 0:00:17.098
T
* 
beginning GENESIS, creating headers in "src/runtime/genesis"
NIL
557.73user 21.19system 9:43.59elapsed 99%CPU (0avgtext+0avgdata 217120maxresident)k
0inputs+43216outputs (0major+451474minor)pagefaults 0swaps
* //entering make-target-1.sh
//building runtime system and symbol table file
make[1]: Entering directory '/«PKGBUILDDIR»/src/runtime'
rm -f *.[do] sbcl sbcl.nm sbcl.h core *.tmp 
make[1]: Leaving directory '/«PKGBUILDDIR»/src/runtime'
make[1]: Entering directory '/«PKGBUILDDIR»/src/runtime'
echo '#include "genesis/config.h"' >sbcl.h
echo '#include "genesis/constants.h"' >>sbcl.h
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o alloc.o alloc.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o backtrace.o backtrace.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o breakpoint.o breakpoint.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o coreparse.o coreparse.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o dynbind.o dynbind.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o funcall.o funcall.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o gc-common.o gc-common.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o globals.o globals.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o interr.o interr.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o interrupt.o interrupt.c
interrupt.c: In function 'build_fake_control_stack_frames':
interrupt.c:672:38: warning: assignment makes pointer from integer without a cast
     access_control_frame_pointer(th) =
                                      ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o largefile.o largefile.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o monitor.o monitor.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o os-common.o os-common.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o parse.o parse.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o print.o print.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o purify.o purify.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o pthread-futex.o pthread-futex.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o regnames.o regnames.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o run-program.o run-program.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o runtime.o runtime.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o safepoint.o safepoint.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o save.o save.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o search.o search.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o thread.o thread.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o time.o time.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o util.o util.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o validate.o validate.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o vars.o vars.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o wrap.o wrap.c
wrap.c:559:36: warning: 'struct itimerval' declared inside parameter list
 int sb_getitimer(int which, struct itimerval *value)
                                    ^
wrap.c:559:36: warning: its scope is only this definition or declaration, which is probably not what you want
wrap.c:564:61: warning: 'struct itimerval' declared inside parameter list
 int sb_setitimer(int which, struct itimerval *value, struct itimerval *ovalue)
                                                             ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o arm-arch.o arm-arch.c
arm-arch.c: In function 'arch_write_linkage_table_jmp':
arm-arch.c:198:15: warning: assignment makes integer from pointer without a cast
   *inst_ptr++ = target_addr;
               ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o linux-os.o linux-os.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o arm-linux-os.o arm-linux-os.c
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o gencgc.o gencgc.c
gencgc.c: In function 'verify_space':
gencgc.c:3158:43: warning: taking address of expression of type 'void'
                     && (thing != (lispobj)&funcallable_instance_tramp)
                                           ^
gencgc.c: In function 'garbage_collect_generation':
gencgc.c:3736:30: warning: passing argument 1 of 'preserve_pointer' makes pointer from integer without a cast
             preserve_pointer(list_entry->car);
                              ^
gencgc.c:2466:1: note: expected 'void *' but argument is of type 'lispobj'
 preserve_pointer(void *addr)
 ^
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o arm-assem.o arm-assem.S
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I. -DSBCL_PREFIX=\"'/usr/'\"  -c -o ldso-stubs.o ldso-stubs.S
cc -g -o sbcl alloc.o backtrace.o breakpoint.o coreparse.o dynbind.o funcall.o gc-common.o globals.o interr.o interrupt.o largefile.o monitor.o os-common.o parse.o print.o purify.o pthread-futex.o regnames.o run-program.o runtime.o safepoint.o save.o search.o thread.o time.o util.o validate.o vars.o wrap.o arm-arch.o linux-os.o arm-linux-os.o gencgc.o arm-assem.o ldso-stubs.o -ldl -lz -lm
./linux-nm sbcl | grep -v " [FUw] " > ,sbcl.nm
mv -f ,sbcl.nm sbcl.nm
etags alloc.c backtrace.c breakpoint.c coreparse.c dynbind.c funcall.c gc-common.c globals.c interr.c interrupt.c largefile.c monitor.c os-common.c parse.c print.c purify.c pthread-futex.c regnames.c run-program.c runtime.c safepoint.c save.c search.c thread.c time.c util.c validate.c vars.c wrap.c arm-arch.c linux-os.c arm-linux-os.c gencgc.c arm-assem.S ldso-stubs.S || true
/bin/sh: 1: etags: not found
make[1]: Leaving directory '/«PKGBUILDDIR»/src/runtime'
make[1]: Entering directory '/«PKGBUILDDIR»/tools-for-build'
cc -g -marm -march=armv5 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -I../src/runtime   grovel-headers.c  -ldl -lz -o grovel-headers
make[1]: Leaving directory '/«PKGBUILDDIR»/tools-for-build'
make[1]: Entering directory '/«PKGBUILDDIR»/src/runtime'
make[1]: Nothing to be done for 'after-grovel-headers'.
make[1]: Leaving directory '/«PKGBUILDDIR»/src/runtime'
18.64user 4.31system 0:23.61elapsed 97%CPU (0avgtext+0avgdata 22876maxresident)k
0inputs+13144outputs (0major+134119minor)pagefaults 0swaps
//entering make-host-2.sh
//running cross-compiler to create target object files
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* 
5
* target features *SHEBANG-FEATURES*=(:OS-PROVIDES-POLL
                                      :OS-PROVIDES-GETPROTOBY-R
                                      :OS-PROVIDES-SUSECONDS-T
                                      :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN
                                      :LITTLE-ENDIAN
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :PRECISE-ARG-COUNT-ERROR
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :STACK-ALLOCATABLE-VECTORS
                                      :STACK-ALLOCATABLE-FIXED-OBJECTS
                                      :STACK-ALLOCATABLE-LISTS
                                      :SYMBOL-INFO-VOPS :MULTIPLY-HIGH-VOPS
                                      :ASH-RIGHT-VOPS :ARM-VFPV2 :ARM-VFP
                                      :ALIEN-CALLBACKS :LINKAGE-TABLE :GENCGC
                                      :LARGEFILE :LINUX :ELF :UNIX :ARM
                                      :IEEE-FLOATING-POINT
                                      :PACKAGE-LOCAL-NICKNAMES
                                      :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE
                                      :SB-PACKAGE-LOCKS :SB-LDB :SB-TEST
                                      :SB-DOC :SBCL :COMMON-LISP :ANSI-CL
                                      :SB-CORE-COMPRESSION
                                      :SB-XREF-FOR-INTERNALS :SB-AFTER-XC-CORE)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-xc/"
* 
T
* 
T
; in: LAMBDA (SB-KERNEL::NEWVAL SB-KERNEL:INSTANCE)
;     (THE SB!C::CLAMBDA #:NEW603)
; 
; caught STYLE-WARNING:
;   undefined type: CLAMBDA
; 
; compilation unit finished
;   Undefined type:
;     CLAMBDA
;   caught 1 STYLE-WARNING condition

;     (THE SB!C:TN #:NEW610)
; 
; caught STYLE-WARNING:
;   undefined type: TN
; 
; compilation unit finished
;   Undefined type:
;     TN
;   caught 1 STYLE-WARNING condition

; in: SB-XC:DEFMACRO DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN
* 
* 
PROCLAIM-TARGET-OPTIMIZATION
* 
PROCLAIM-TARGET-OPTIMIZATION
NIL
NIL
* 
IN-TARGET-CROSS-COMPILATION-MODE
* 
IN-TARGET-CROSS-COMPILATION-MODE
NIL
NIL
* 
#<FUNCTION SB-XC:COMPILE-FILE>
* 
#<FUNCTION SB!C:ASSEMBLE-FILE>
* 
#<FUNCTION IN-TARGET-CROSS-COMPILATION-MODE>
* 
#<FUNCTION (MACRO-FUNCTION SB!INT:QUASIQUOTE) {5365202D}>
* 
:MINIMAL
* 
creating directory: /«PKGBUILDDIR»/obj/from-xc/
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/code/
; compiling file "/«PKGBUILDDIR»/src/code/early-source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...)
; x-compiling (DEFUN SOURCE-LOCATION ...)
; x-compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...)
; x-compiling (DEFMACRO WITH-SOURCE-LOCATION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-source-location.lisp-obj-tmp written
; compilation finished in 0:00:00.114
; compiling file "/«PKGBUILDDIR»/src/code/show.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!INT")
; x-compiling (DEFMACRO /SHOW ...)
; x-compiling (DEFMACRO /NOSHOW ...)
; x-compiling (DEFMACRO /XHOW ...)
; x-compiling (DEFMACRO /NOXHOW ...)
; x-compiling (DEFMACRO /SHOW0 ...)
; x-compiling (DEFMACRO /NOSHOW0 ...)
; x-compiling (DEFMACRO /PRIMITIVE-PRINT ...)
; x-compiling (DEFMACRO /HEXSTR ...)
; x-compiling (DEFMACRO /NOHEXSTR ...)
; x-compiling (/SHOW0 "done with show.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/show.lisp-obj-tmp written
; compilation finished in 0:00:00.368
; compiling file "/«PKGBUILDDIR»/src/code/early-constants.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-constants.lisp-obj-tmp written
; compilation finished in 0:00:00.045
; compiling file "/«PKGBUILDDIR»/src/code/backq.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (/SHOW0 "entering backq.lisp")
; x-compiling (DEFSTRUCT (COMMA # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE COMMA))
; x-compiling (DEFCONSTANT !+COMMA-DOT+ ...)
; x-compiling (DEFCONSTANT !+COMMA-AT+ ...)
; x-compiling (DEFUN UNQUOTE-NSPLICE ...)
; x-compiling (DEFUN UNQUOTE-SPLICE ...)
; x-compiling (DEFUN UNQUOTE* ...)
; x-compiling (DEFUN UNQUOTE*-SPLICE ...)
; x-compiling (DECLAIM (INLINE COMMA-CONSTRUCTOR ...))
; x-compiling (DEFUN COMMA-CONSTRUCTOR ...)
; x-compiling (DEFUN COMMA-SPLICING-P ...)
; x-compiling (DECLAIM (INLINE SINGLETON-P))
; x-compiling (DEFUN SINGLETON-P ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *BACKQUOTE-DEPTH* ...)
; x-compiling (DEFVAR *BQ-ERROR* ...)
; x-compiling (/SHOW0 "backq.lisp 50")
; x-compiling (DEFUN BACKQUOTE-CHARMACRO ...)
; x-compiling (/SHOW0 "backq.lisp 64")
; x-compiling (DEFUN COMMA-CHARMACRO ...)
; x-compiling (/SHOW0 "backq.lisp 83")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (INLINE QQ-SUBFORM-SPLICING-P))
; x-compiling (DEFUN QQ-SUBFORM-SPLICING-P ...)
; x-compiling (DEFUN EXPAND-QUASIQUOTE ...)
; x-compiling (DEFINE-COMPILER-MACRO QUASIQUOTE ...)
; x-compiling (DEFMACRO QUASIQUOTE ...)
; x-compiling (DEFUN QQ-TEMPLATE-TO-SEXPR ...)
; x-compiling (/SHOW0 "backq.lisp 139")
; x-compiling (DEFUN QQ-FOLD-SUFFIX ...)
; x-compiling (DEFUN QQ-MAP-TEMPLATE-TO-LIST ...)
; x-compiling (DEFUN QQ-TEMPLATE-1 ...)
; x-compiling (SETF (SYMBOL-FUNCTION #) ...)
; x-compiling (DEFUN !BACKQ-COLD-INIT ...)
; x-compiling (/SHOW0 "done with backq.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/backq.lisp-obj-tmp written
; compilation finished in 0:00:01.590
; compiling file "/«PKGBUILDDIR»/src/code/globals.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (SPECIAL SB!PRETTY::*STANDARD-PPRINT-DISPATCH-TABLE* ...))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (FTYPE # ...))

; /«PKGBUILDDIR»/obj/from-xc/src/code/globals.lisp-obj-tmp written
; compilation finished in 0:00:00.042
; compiling file "/«PKGBUILDDIR»/src/code/defsetfs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (SB!INT:/SHOW0 "entering defsetfs.lisp")
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFSETF SLOT ...)
; x-compiling (DEFSETF DEREF ...)
; x-compiling (DEFSETF %HEAP-ALIEN ...)
; x-compiling (IN-PACKAGE "SB!BIGNUM")
; x-compiling (DEFSETF %BIGNUM-REF ...)
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFSETF WORD-SAP-REF ...)
; x-compiling (IN-PACKAGE "SB!DI")
; x-compiling (DEFSETF STACK-REF ...)
; x-compiling (DEFSETF DEBUG-VAR-VALUE ...)
; x-compiling (DEFSETF DEBUG-VAR-VALUE ...)
; x-compiling (DEFSETF BREAKPOINT-INFO ...)
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFSETF %INSTANCE-REF ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; x-compiling (DEFSETF %INSTANCE-LAYOUT ...)
; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...)
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSETF CAR ...)
; x-compiling (DEFSETF FIRST ...)
; x-compiling (DEFSETF CDR ...)
; x-compiling (DEFSETF REST ...)

; file: /«PKGBUILDDIR»/src/code/defsetfs.lisp
; in: DEFUN %CXR-SETF-EXPANDER
;     (DEFUN SB!IMPL::%CXR-SETF-EXPANDER (SB!IMPL::SUB-ACCESSOR SB!IMPL::SETTER)
;       (FLET ((SB!IMPL::EXPAND (SB!IMPL::PLACE-READER SB!IMPL::ORIGINAL-FORM)
;                (LET #
;                  #)))
;         (IF (EQ SB!IMPL::SUB-ACCESSOR 'NTHCDR)
;             (LAMBDA (SB!IMPL::ACCESS-FORM SB!IMPL::ENV)
;               (DECLARE #)
;               (DESTRUCTURING-BIND # # #)
;               (SB!IMPL::EXPAND '# SB!IMPL::ACCESS-FORM))
;             (LAMBDA (SB!IMPL::ACCESS-FORM SB!IMPL::ENV)
;               (DECLARE #)
;               (DESTRUCTURING-BIND # # #)
;               (SB!IMPL::EXPAND SB!IMPL::SUB-ACCESSOR SB!IMPL::ACCESS-FORM)))))
; 
; caught STYLE-WARNING:
;   redefining SB!IMPL::%CXR-SETF-EXPANDER in DEFUN
; x-compiling (DEFUN %CXR-SETF-EXPANDER ...)
; x-compiling (DEF CAAR)
; x-compiling (DEF CADR ...)
; x-compiling (DEF CDAR)
; x-compiling (DEF CDDR)
; x-compiling (DEF CAAAR)
; x-compiling (DEF CADAR)
; x-compiling (DEF CDAAR)
; x-compiling (DEF CDDAR)
; x-compiling (DEF CAADR)
; x-compiling (DEF CADDR ...)
; x-compiling (DEF CDADR)
; x-compiling (DEF CDDDR)
; x-compiling (DEF CAAAAR)
; x-compiling (DEF CADAAR)
; x-compiling (DEF CDAAAR)
; x-compiling (DEF CDDAAR)
; x-compiling (DEF CAADAR)
; x-compiling (DEF CADDAR)
; x-compiling (DEF CDADAR)
; x-compiling (DEF CDDDAR)
; x-compiling (DEF CAAADR)
; x-compiling (DEF CADADR)
; x-compiling (DEF CDAADR)
; x-compiling (DEF CDDADR)
; x-compiling (DEF CAADDR)
; x-compiling (DEF CADDDR ...)
; x-compiling (DEF CDADDR)
; x-compiling (DEF CDDDDR)
; x-compiling (DEF FIFTH ...)
; x-compiling (DEF SIXTH ...)
; x-compiling (DEF SEVENTH ...)
; x-compiling (DEF EIGHTH ...)
; x-compiling (DEF NINTH ...)
; x-compiling (DEF TENTH ...)
; x-compiling (!QUIETLY-DEFSETF (QUOTE NTH) ...)
; x-compiling (DEFSETF ELT ...)
; x-compiling (DEFSETF ROW-MAJOR-AREF ...)
; x-compiling (DEFSETF SVREF ...)
; x-compiling (DEFSETF CHAR ...)
; x-compiling (DEFSETF SCHAR ...)
; x-compiling (DEFSETF %ARRAY-DIMENSION ...)
; x-compiling (DEFSETF %VECTOR-RAW-BITS ...)
; x-compiling (DEFSETF SYMBOL-VALUE ...)
; x-compiling (DEFSETF SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFSETF SYMBOL-PLIST ...)
; x-compiling (DEFSETF FILL-POINTER ...)
; x-compiling (DEFSETF SAP-REF-8 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-8 ...)
; x-compiling (DEFSETF SAP-REF-16 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-16 ...)
; x-compiling (DEFSETF SAP-REF-32 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-32 ...)
; x-compiling (DEFSETF SAP-REF-64 ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-64 ...)
; x-compiling (DEFSETF SAP-REF-WORD ...)
; x-compiling (DEFSETF SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFSETF SAP-REF-SAP ...)
; x-compiling (DEFSETF SAP-REF-LISPOBJ ...)
; x-compiling (DEFSETF SAP-REF-SINGLE ...)
; x-compiling (DEFSETF SAP-REF-DOUBLE ...)
; x-compiling (DEFSETF SUBSEQ ...)
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSETF FDEFINITION ...)
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFSETF CODE-HEADER-REF ...)
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFSETF CONTEXT-REGISTER ...)
; x-compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "leaving defsetfs.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/defsetfs.lisp-obj-tmp written
; compilation finished in 0:00:00.731
; compiling file "/«PKGBUILDDIR»/src/code/cold-init-helper-macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFVAR *!COLD-INIT-FORMS*)
; x-compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...)
; x-compiling (DEFMACRO !COLD-INIT-FORMS ...)
; x-compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...)
; x-compiling (DEF !DEFGLOBAL ...)
; x-compiling (DEF !DEFPARAMETER ...)
; x-compiling (DEF !DEFVAR ...)
; x-compiling (DEFUN !DELAYED-COLD-SET-SYMBOL-VALUE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cold-init-helper-macros.lisp-obj-tmp written
; compilation finished in 0:00:00.332
; compiling file "/«PKGBUILDDIR»/src/code/uncross.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!INT")
; x-compiling (DECLAIM (INLINE UNCROSS))
; x-compiling (DEFUN UNCROSS ...)
; x-compiling (DEFMACRO !UNCROSS-FORMAT-CONTROL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/uncross.lisp-obj-tmp written
; compilation finished in 0:00:00.109
; compiling file "/«PKGBUILDDIR»/src/code/primordial-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!DEFGLOBAL *TYPE-SYSTEM-INITIALIZED* ...)
; x-compiling (DEFGLOBAL *WILD-TYPE* ...)
; x-compiling (DEFGLOBAL *EMPTY-TYPE* ...)
; x-compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...)
; x-compiling (DEFGLOBAL *INSTANCE-TYPE* ...)
; x-compiling (DEFGLOBAL *FUNCALLABLE-INSTANCE-TYPE* ...)
; x-compiling (DEFGLOBAL *EXTENDED-SEQUENCE-TYPE* ...)
; x-compiling (DEFGLOBAL *UNIVERSAL-FUN-TYPE* ...)
; x-compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...)
; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; /«PKGBUILDDIR»/obj/from-xc/src/code/primordial-type.lisp-obj-tmp written
; compilation finished in 0:00:00.153
; compiling file "/«PKGBUILDDIR»/src/code/early-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO SB-XC:DEFMETHOD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00.042
; compiling file "/«PKGBUILDDIR»/src/code/defbangtype.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFMACRO DEF!TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangtype.lisp-obj-tmp written
; compilation finished in 0:00:00.055
; compiling file "/«PKGBUILDDIR»/src/code/defbangmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO DEF!MACRO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangmacro.lisp-obj-tmp written
; compilation finished in 0:00:00.053
; compiling file "/«PKGBUILDDIR»/src/code/defbangconstant.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFMACRO DEF!CONSTANT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangconstant.lisp-obj-tmp written
; compilation finished in 0:00:00.082
; compiling file "/«PKGBUILDDIR»/src/code/primordial-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...)
; x-compiling (DEFUN FROB-DO-BODY ...)
; x-compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-GENSYM-LIST ...)
; x-compiling (DECLAIM (TYPE PACKAGE ...))
; x-compiling (DEFGLOBAL *CL-PACKAGE* ...)
; x-compiling (DEFGLOBAL *KEYWORD-PACKAGE* ...)
; x-compiling (DEFUN SYMBOLICATE ...)
; x-compiling (DEFUN GENSYMIFY ...)
; x-compiling (DEFUN KEYWORDICATE ...)

; file: /«PKGBUILDDIR»/src/code/primordial-extensions.lisp
; in: DEFUN SANE-PACKAGE
;     (TYPE-OF SB!IMPL::MAYBE-PACKAGE)
; ==>
;   SB!IMPL::MAYBE-PACKAGE
; 
; note: deleting unreachable code
; x-compiling (DEFUN SANE-PACKAGE ...)
; x-compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...)
; x-compiling (DEF!MACRO STRING-DISPATCH ...)
; x-compiling (DEFMACRO DEFENUM ...)
; x-compiling (DEFMACRO DEFCONSTANT-EQX ...)
; x-compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...)
; x-compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...)
; x-compiling (DEFUN PROPER-LIST-P ...)
; x-compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEF!MACRO DO-ANONYMOUS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/primordial-extensions.lisp-obj-tmp written
; compilation finished in 0:00:03.216
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/compiler/
; compiling file "/«PKGBUILDDIR»/src/compiler/early-globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFCONSTANT INFO-NUMBER-BITS ...)
; x-compiling (DEFTYPE INFO-NUMBER ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFGLOBAL *INFO-TYPES* ...)
; x-compiling (DEF INFO ...)
; x-compiling (DEF (SETF INFO) ...)
; x-compiling (DEF CLEAR-INFO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-globaldb.lisp-obj-tmp written
; compilation finished in 0:00:00.554
; compiling file "/«PKGBUILDDIR»/src/code/function-names.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *VALID-FUN-NAMES-ALIST* ...)
; x-compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...)
; x-compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...)
; x-compiling (DEFUN VALID-FUNCTION-NAME-P ...)
; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...)
; x-compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...)
; x-compiling (DEFUN MACRO-FUNCTION-NAME ...)
; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...)
; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/function-names.lisp-obj-tmp written
; compilation finished in 0:00:00.249
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...)
; x-compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...)
; x-compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...)
; x-compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...)
; x-compiling (DEF!CONSTANT TLS-SIZE ...)
; x-compiling (DEF!CONSTANT MAX-INTERRUPTS ...)
; x-compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...)
; x-compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/parms.lisp-obj-tmp written
; compilation finished in 0:00:00.288
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!CONSTANT N-WORD-BITS ...)
; x-compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...)
; x-compiling (DEF!CONSTANT N-BYTE-BITS ...)
; x-compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...)
; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...)
; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...)
; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...)
; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...)
; x-compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...)
; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...)
; x-compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-INPUT-DENORMAL-TRAP-BIT ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...)
; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...)
; x-compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...)
; x-compiling (DEF!CONSTANT FLOAT-FAST-BIT ...)
; x-compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-START ...)
; x-compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-END ...)
; x-compiling (DEF!CONSTANT READ-ONLY-SPACE-START ...)
; x-compiling (DEF!CONSTANT READ-ONLY-SPACE-END ...)
; x-compiling (DEF!CONSTANT STATIC-SPACE-START ...)
; x-compiling (DEF!CONSTANT STATIC-SPACE-END ...)
; x-compiling (DEF!CONSTANT DYNAMIC-SPACE-START ...)
; x-compiling (DEF!CONSTANT DYNAMIC-SPACE-END ...)
; x-compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...)
; x-compiling (DEFENUM (:START 8) ...)
; x-compiling (DEFPARAMETER *STATIC-SYMBOLS* ...)
; x-compiling (DEFPARAMETER *STATIC-FUNS* ...)
; x-compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...)
; x-compiling (DEFVAR *ALLOCATION-POINTER*)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/parms.lisp-obj-tmp written
; compilation finished in 0:00:00.427
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!CONSTANT N-LOWTAG-BITS ...)
; x-compiling (DEF!CONSTANT LOWTAG-MASK ...)
; x-compiling (DEF!CONSTANT LOWTAG-LIMIT ...)
; x-compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...)
; x-compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...)
; x-compiling (DEF!CONSTANT N-FIXNUM-BITS ...)
; x-compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...)
; x-compiling (DEF!CONSTANT WORD-SHIFT ...)
; x-compiling (DEF!CONSTANT N-WORD-BYTES ...)
; x-compiling (DEF!CONSTANT N-WIDETAG-BITS ...)
; x-compiling (DEF!CONSTANT WIDETAG-MASK ...)
; x-compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...)
; x-compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...)
; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)
; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/early-vm.lisp
; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END
;     (MIN SB!VM::STOP SB!VM::OTHER-START)
; --> LET 
; ==>
;   SB!VM::STOP
; 
; note: deleting unreachable code

; --> LET LET MIN LET 
; ==>
;   SB!VM::OTHER-START
; 
; note: deleting unreachable code
; x-compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEF!CONSTANT INSTANCE-DATA-START ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/early-vm.lisp-obj-tmp written
; compilation finished in 0:00:00.216
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFENUM NIL ...)
; x-compiling (DEF!CONSTANT NIL-VALUE ...)
; x-compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...)
; x-compiling (DEFENUM (:START # ...) ...)
; x-compiling (DEFENUM NIL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/early-objdef.lisp-obj-tmp written
; compilation finished in 0:00:00.770
; compiling file "/«PKGBUILDDIR»/src/code/early-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!CONSTANT SB-XC:ARRAY-RANK-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:ARRAY-DIMENSION-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:ARRAY-TOTAL-SIZE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-array.lisp-obj-tmp written
; compilation finished in 0:00:00.050
; compiling file "/«PKGBUILDDIR»/src/code/kernel.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN GET-HEADER-DATA ...)
; x-compiling (DEFUN SET-HEADER-DATA ...)
; x-compiling (DEFUN GET-CLOSURE-LENGTH ...)
; x-compiling (DEFUN LOWTAG-OF ...)
; x-compiling (DEFUN WIDETAG-OF ...)
; x-compiling (DECLAIM (INLINE %OTHER-POINTER-WIDETAG))
; x-compiling (DEFUN %OTHER-POINTER-WIDETAG ...)
; x-compiling (DEFUN VECTOR-SAP ...)
; x-compiling (DEFUN BINDING-STACK-POINTER-SAP ...)
; x-compiling (DEFUN DYNAMIC-SPACE-FREE-POINTER ...)
; x-compiling (DEFUN CONTROL-STACK-POINTER-SAP ...)
; x-compiling (DEFUN FUN-SUBTYPE ...)
; x-compiling (DEFUN (SETF FUN-SUBTYPE) ...)
; x-compiling (DEFUN SIMPLE-FUN-P ...)
; x-compiling (DEFTYPE SIMPLE-FUN ...)
; x-compiling (DEFUN %SIMPLE-FUN-DOC ...)
; x-compiling (DEFUN (SETF %SIMPLE-FUN-DOC) ...)
; x-compiling (DEFUN %SIMPLE-FUN-XREFS ...)
; x-compiling (DEFUN %SIMPLE-FUN-ARGLIST ...)
; x-compiling (DEFUN (SETF %SIMPLE-FUN-ARGLIST) ...)
; x-compiling (DEFUN %SIMPLE-FUN-NAME ...)
; x-compiling (DEFUN (SETF %SIMPLE-FUN-NAME) ...)
; x-compiling (DEFUN %SIMPLE-FUN-TYPE ...)
; x-compiling (DEFUN %SIMPLE-FUN-NEXT ...)
; x-compiling (DEFUN %SIMPLE-FUN-SELF ...)
; x-compiling (DEFUN CLOSUREP ...)
; x-compiling (DEFTYPE CLOSURE ...)
; x-compiling (DEFMACRO DO-CLOSURE-VALUES ...)
; x-compiling (DEFUN %CLOSURE-VALUES ...)
; x-compiling (DEFUN %CLOSURE-FUN ...)
; x-compiling (DEFUN %CLOSURE-INDEX-REF ...)
; x-compiling (DEFUN SB!C::VECTOR-LENGTH ...)
; x-compiling (DEFUN ALLOCATE-VECTOR ...)
; x-compiling (DEFUN MAKE-ARRAY-HEADER ...)
; x-compiling (DEFUN CODE-INSTRUCTIONS ...)
; x-compiling (DEFUN CODE-HEADER-REF ...)
; x-compiling (DEFUN CODE-HEADER-SET ...)
; x-compiling (DEFUN %VECTOR-RAW-BITS ...)
; x-compiling (DEFUN %SET-VECTOR-RAW-BITS ...)
; x-compiling (DEFUN MAKE-SINGLE-FLOAT ...)
; x-compiling (DEFUN MAKE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN SINGLE-FLOAT-BITS ...)
; x-compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...)
; x-compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/kernel.lisp-obj-tmp written
; compilation finished in 0:00:00.817
; compiling file "/«PKGBUILDDIR»/src/code/barrier.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (DECLAIM (INLINE SB!VM:%COMPILER-BARRIER ...))
; x-compiling (DEFUN SB!VM:%COMPILER-BARRIER ...)
; x-compiling (DEFUN SB!VM:%MEMORY-BARRIER ...)
; x-compiling (DEFUN SB!VM:%READ-BARRIER ...)
; x-compiling (DEFUN SB!VM:%WRITE-BARRIER ...)
; x-compiling (DEFUN SB!VM:%DATA-DEPENDENCY-BARRIER ...)
; x-compiling (DEFCONSTANT-EQX +BARRIER-KIND-FUNCTIONS+ ...)
; x-compiling (DEFMACRO BARRIER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/barrier.lisp-obj-tmp written
; compilation finished in 0:00:00.125
; compiling file "/«PKGBUILDDIR»/src/code/early-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *CORE-PATHNAME* ...)
; x-compiling (DEFVAR *RUNTIME-PATHNAME* ...)
; x-compiling (DEFGLOBAL *EOF-OBJECT* ...)
; x-compiling (DEFCONSTANT MAX-HASH ...)
; x-compiling (DEF!TYPE HASH ...)
; x-compiling (DEF!TYPE INDEX ...)
; x-compiling (DEF!TYPE INDEX/2 ...)
; x-compiling (DEF!TYPE INDEX-OR-MINUS-1 ...)
; x-compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...)
; x-compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...)
; x-compiling (DEF!TYPE LOAD/STORE-INDEX ...)
; x-compiling (DEF!TYPE SFUNCTION ...)
; x-compiling (DEF!TYPE TYPE-SPECIFIER ...)
; x-compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...)
; x-compiling (DEF!CONSTANT BELL-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT TAB-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT RETURN-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...)
; x-compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...)
; x-compiling (DEFUN MAYBE-CYCLIC-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...)
; x-compiling (DEFUN POSITIVE-PRIMEP ...)
; x-compiling (DEFUN COMPOUND-OBJECT-P ...)
; x-compiling (DEFUN COLLECT-NORMAL-EXPANDER ...)
; x-compiling (DEFUN COLLECT-LIST-EXPANDER ...)
; x-compiling (DEFMACRO COLLECT ...)
; x-compiling (DEFUN MEMQ ...)
; x-compiling (DEFUN ASSQ ...)
; x-compiling (DEFUN DELQ ...)
; x-compiling (DEFUN POSQ ...)
; x-compiling (DECLAIM (INLINE NEQ))
; x-compiling (DEFUN NEQ ...)
; x-compiling (DECLAIM (INLINE NTH-BUT-WITH-SANE-ARG-ORDER))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NTH-BUT-WITH-SANE-ARG-ORDER ...)
; x-compiling (DEFUN ADJUST-LIST ...)
; x-compiling (DEFMACRO NAMED-LET ...)
; x-compiling (DEFUN FILTER-DOLIST-DECLARATIONS ...)
; x-compiling (DEFMACRO DOVECTOR ...)
; x-compiling (DEFMACRO DOHASH ...)
; x-compiling (DEFMACRO DOPLIST ...)
; x-compiling (DEFVAR *PROFILE-HASH-CACHE* ...)
; x-compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...)
; x-compiling (DEFUN DROP-ALL-HASH-CACHES ...)
; x-compiling (DEFUN ALLOC-HASH-CACHE ...)
; x-compiling (DEF 2)
; x-compiling (DEF 3)
; x-compiling (DEF 4)
; x-compiling (DEF 5)
; x-compiling (DEF 6)
; x-compiling (DEFMACRO !DEFINE-HASH-CACHE ...)
; x-compiling (DEFMACRO DEFUN-CACHED ...)
; x-compiling (DEFUN EQUAL-BUT-NO-CAR-RECURSION ...)
; x-compiling (DEFUN %FIND-PACKAGE-OR-LOSE ...)
; x-compiling (DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; x-compiling (DECLAIM (INLINE LEGAL-FUN-NAME-P))
; x-compiling (DEFUN LEGAL-FUN-NAME-P ...)
; x-compiling (DEFTYPE FUNCTION-NAME ...)
; x-compiling (DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FUN-NAME-BLOCK-NAME ...)
; x-compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...)
; x-compiling (DEFMACRO ONCE-ONLY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MISSING-ARG ...)
; x-compiling (DEFMACRO AVER ...)
; x-compiling (DEFUN %FAILED-AVER ...)
; x-compiling (DEFUN BUG ...)
; x-compiling (DEFMACRO ENFORCE-TYPE ...)
; x-compiling (DEFUN %FAILED-ENFORCE-TYPE ...)
; x-compiling (DECLAIM (INLINE SWAPPED-ARGS-FUN))
; x-compiling (DEFUN SWAPPED-ARGS-FUN ...)
; x-compiling (DEFUN TYPE-BOUND-NUMBER ...)
; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-T ...)
; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-NIL ...)
; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-0 ...)
; x-compiling (DEFUN FEATUREP ...)
; x-compiling (DEFMACRO NOT/TYPE ...)
; x-compiling (DEFMACRO AND/TYPE ...)
; x-compiling (DEFUN ANY/TYPE ...)
; x-compiling (DEFUN EVERY/TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DEFPRINTER-PRIN1 ...)
; x-compiling (DEFUN DEFPRINTER-PRINC ...)
; x-compiling (DEFUN DEFPRINTER-PRINX ...)
; x-compiling (DEFUN DEFPRINTER-PRINT-SPACE ...)
; x-compiling (DEFMACRO DEFPRINTER ...)
; x-compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...)
; x-compiling (DEFUN PHYSICALIZE-PATHNAME ...)
; x-compiling (DEFUN NORMALIZE-DEPRECATION-REPLACEMENTS ...)
; x-compiling (DEFUN DEPRECATION-ERROR ...)
; x-compiling (DEFUN DEPRECATION-WARNING ...)
; x-compiling (DEFUN DEPRECATED-FUNCTION ...)
; x-compiling (DEFUN DEPRECATION-COMPILER-MACRO ...)
; x-compiling (DEFUN DEPRECATED-THING-P ...)
; x-compiling (DEFUN LOADER-DEPRECATION-WARN ...)
; x-compiling (DEFTYPE DEPRECATION-STATE ...)
; x-compiling (DEFUN PRINT-DEPRECATION-MESSAGE ...)
; x-compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...)
; x-compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...)
; x-compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...)
; x-compiling (DEFMACRO AWHEN ...)
; x-compiling (DEFMACRO ACOND ...)
; x-compiling (DEFUN EXTRACT-VAR-DECLS ...)
; x-compiling (DEFMACRO BINDING* ...)
; x-compiling (DEFMACRO DELAY ...)
; x-compiling (DEFUN FORCE ...)
; x-compiling (DEFUN PROMISE-READY-P ...)
; x-compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...)
; x-compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...)
; x-compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...)
; x-compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...)
; x-compiling (DEFUN LIST-MEMBERS ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFPARAMETER *EVALUATOR-MODE* ...)
; x-compiling (DEFMACRO DX-FLET ...)
; x-compiling (DEFMACRO DX-LET ...)
; x-compiling NIL
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN FP-ZERO-P ...)
; x-compiling (DEFUN NEG-FP-ZERO ...)
; x-compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...)
; x-compiling (DEFUN STREAM-ERROR-POSITION-INFO ...)
; x-compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST))
; x-compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...)

; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN STREAM-ERROR-POSITION-INFO
;     (IGNORE-ERRORS (INTERACTIVE-STREAM-P STREAM))
; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

;     (IGNORE-ERRORS (STREAM-ELEMENT-TYPE STREAM))
; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; in: DEFUN FILE-POSITION-OR-NIL-FOR-ERROR
;     (IGNORE-ERRORS
;      (IF SB!KERNEL::POSP
;          (FILE-POSITION STREAM SB!KERNEL::POS)
;          (FILE-POSITION STREAM)))
; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; 
; caught STYLE-WARNING:
;   5 more uses of undefined type ERROR


; file: /«PKGBUILDDIR»/src/code/early-extensions.lisp
; in: DEFUN STREAM-ERROR-POSITION-INFO
;     (INTERACTIVE-STREAM-P STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: INTERACTIVE-STREAM-P
; 
; compilation unit finished
;   Undefined type:
;     ERROR
;   Undefined function:
;     INTERACTIVE-STREAM-P
;   caught 5 STYLE-WARNING conditions
; x-compiling (DEFMACRO WITH-SIMPLE-OUTPUT-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-extensions.lisp-obj-tmp written
; compilation finished in 0:00:08.170
; compiling file "/«PKGBUILDDIR»/src/code/parse-body.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!INT")
; x-compiling (/SHOW0 "entering parse-body.lisp")
; x-compiling (DEFUN PARSE-BODY ...)
; x-compiling (/SHOW0 "leaving parse-body.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/parse-body.lisp-obj-tmp written
; compilation finished in 0:00:00.095
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFVAR *ARG-TESTS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *SYSTEM-LETS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *USER-LETS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *ENV-VAR*)
; x-compiling (DEFVAR *DEFAULT-DEFAULT*)
; x-compiling (DEFVAR *IGNORABLE-VARS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFUN PARSE-DEFMACRO ...)
; x-compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...)
; x-compiling (DEFUN ARG-COUNT-ERROR ...)
; x-compiling (DEFUN PUSH-SUBLIST-BINDING ...)
; x-compiling (DEFUN PUSH-LET-BINDING ...)
; x-compiling (DEFUN PUSH-OPTIONAL-BINDING ...)
; x-compiling (DEFUN DEFMACRO-ERROR ...)
; x-compiling (DEFUN CHECK-DEFMACRO-ARG ...)
; x-compiling (DEFUN VERIFY-KEYWORDS ...)
; x-compiling (DEFUN LOOKUP-KEYWORD ...)
; x-compiling (DEFUN KEYWORD-SUPPLIED-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/parse-defmacro.lisp-obj-tmp written
; compilation finished in 0:00:03.297
; compiling file "/«PKGBUILDDIR»/src/compiler/deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN CONSTANT-TYPE-EXPANDER ...)
; x-compiling (DEFUN %DEFTYPE ...)
; x-compiling (DEFVAR !*XC-PROCESSED-DEFTYPES* ...)
; x-compiling (DEF!MACRO SB-XC:DEFTYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/deftype.lisp-obj-tmp written
; compilation finished in 0:00:00.177
; compiling file "/«PKGBUILDDIR»/src/code/restart.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DECLAIM (INLINE MAKE-RESTART))
; x-compiling (DEFSTRUCT (RESTART # ...) ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-RESTART))
; x-compiling (DECLAIM (FREEZE-TYPE RESTART))

; /«PKGBUILDDIR»/obj/from-xc/src/code/restart.lisp-obj-tmp written
; compilation finished in 0:00:00.290
; compiling file "/«PKGBUILDDIR»/src/compiler/defconstant.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!MACRO SB-XC:DEFCONSTANT ...)

; file: /«PKGBUILDDIR»/src/compiler/defconstant.lisp
; in: DEFUN SB!C::%DEFCONSTANT
;     (WITH-SIMPLE-RESTART (ABORT "Keep the old value.")
;       (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME
;               SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!EXT:DEFCONSTANT-UNEQL
;                                  (LIST :NAME SB!IMPL::NAME :OLD-VALUE
;                                        SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)
;                                  'SIMPLE-ERROR 'CERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN SB!C::%DEFCONSTANT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/defconstant.lisp-obj-tmp written
; compilation finished in 0:00:00.294
; compiling file "/«PKGBUILDDIR»/src/code/early-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...)
; x-compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...)
; x-compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*)
; x-compiling (DEFVAR *VALUES-TYPE-OKAY* ...)
; x-compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:00.059
; compiling file "/«PKGBUILDDIR»/src/code/specializable-array.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFMACRO !MAKE-SPECIALIZED-ARRAY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/specializable-array.lisp-obj-tmp written
; compilation finished in 0:00:00.072
; compiling file "/«PKGBUILDDIR»/src/code/early-cl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (PROCLAIM (QUOTE #))
; x-compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-cl.lisp-obj-tmp written
; compilation finished in 0:00:00.035
; compiling file "/«PKGBUILDDIR»/src/code/early-fasl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...)
; x-compiling (DEFINE-FASL-FORMAT-FEATURES)
; x-compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...)
; x-compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...)
; x-compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; x-compiling (DEFVAR *FASL-FILE-TYPE* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *ASSEMBLER-ROUTINES* ...)
; x-compiling (DECLAIM (SIMPLE-VECTOR **FOP-NAMES** ...))
; x-compiling (DEFGLOBAL **FOP-NAMES** ...)
; x-compiling (DEFGLOBAL **FOP-FUNS** ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFGLOBAL **FOP-SIGNATURES** ...)
; x-compiling (DEFVAR *LOAD-DEPTH* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFSTRUCT (FASL-INPUT # ...) ...)

; file: /«PKGBUILDDIR»/src/code/early-fasl.lisp
; in: DEFSTRUCT FASL-INPUT
;     (DEFSTRUCT
;         (SB!FASL::FASL-INPUT (:CONC-NAME SB!FASL::%FASL-INPUT-)
;          (:CONSTRUCTOR SB!FASL::MAKE-FASL-INPUT (STREAM)) (:PREDICATE NIL)
;          (:COPIER NIL))
;       (STREAM NIL :TYPE SB!KERNEL:ANSI-STREAM :READ-ONLY T)
;       (SB!FASL::TABLE (SB!FASL::MAKE-FOP-VECTOR 1000) :TYPE SIMPLE-VECTOR)
;       (SB!FASL::STACK (SB!FASL::MAKE-FOP-VECTOR 100) :TYPE SIMPLE-VECTOR)
;       (SB!FASL::DEPRECATED-STUFF NIL :TYPE LIST)
;       (SB!FASL::SKIP-UNTIL NIL))
; 
; caught STYLE-WARNING:
;   undefined type: ANSI-STREAM
; 
; compilation unit finished
;   Undefined type:
;     ANSI-STREAM
;   caught 1 STYLE-WARNING condition
; x-compiling (DECLAIM (FREEZE-TYPE FASL-INPUT))

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-fasl.lisp-obj-tmp written
; compilation finished in 0:00:00.495
; compiling file "/«PKGBUILDDIR»/src/code/debug-var-io.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN %READ-VAR-INTEGER ...)
; x-compiling (DEFMACRO READ-VAR-INTEGER ...)
; x-compiling (DEFUN WRITE-VAR-INTEGER ...)
; x-compiling (DEFMACRO READ-VAR-STRING ...)
; x-compiling (DEFUN WRITE-VAR-STRING ...)
; x-compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug-var-io.lisp-obj-tmp written
; compilation finished in 0:00:00.769
; compiling file "/«PKGBUILDDIR»/src/code/early-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (DEFVAR *CURRENT-THREAD* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-thread.lisp-obj-tmp written
; compilation finished in 0:00:00.030
; compiling file "/«PKGBUILDDIR»/src/code/target-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *DELAYED-DEF!METHOD-ARGS* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00.026
; compiling file "/«PKGBUILDDIR»/src/code/early-print.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INDEX *CURRENT-LEVEL-IN-PRINT*))
; x-compiling (!DEFVAR *CURRENT-LEVEL-IN-PRINT* ...)
; x-compiling (DEFMACRO DESCEND-INTO ...)
; x-compiling (DEFMACRO PUNT-PRINT-IF-TOO-LONG ...)
; x-compiling (DEFVAR *CIRCULARITY-HASH-TABLE* ...)
; x-compiling (DEFVAR *CIRCULARITY-COUNTER* ...)
; x-compiling (DEFUN CHECK-FOR-CIRCULARITY ...)
; x-compiling (DEFUN HANDLE-CIRCULARITY ...)
; x-compiling (DEFMACRO WITH-CIRCULARITY-DETECTION ...)
; x-compiling (DEFUN COMPILER-EXPAND-WRITE-MUMBLE ...)

; file: /«PKGBUILDDIR»/src/code/early-print.lisp
; in: DEFINE-COMPILER-MACRO WRITE
;     (DEFINE-COMPILER-MACRO WRITE
;         (&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST SB!IMPL::KEYS)
;       (SB!IMPL::COMPILER-EXPAND-WRITE-MUMBLE 'WRITE SB!KERNEL:FORM
;                                              SB!IMPL::OBJECT SB!IMPL::KEYS))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'WRITE
;                                 #'(LAMBDA (#:WHOLE183 #:ENVIRONMENT184)
;                                     (DECLARE (IGNORE #:ENVIRONMENT184))
;                                     (LET* ((#:CMACRO-&WHOLE2282 #:WHOLE183)
;                                            (#:WHOLE183 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE2282))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK WRITE #))))
;                                 '(&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST
;                                   SB!IMPL::KEYS)
;                                 NIL '(COMPILER-MACRO-FUNCTION WRITE))
; 
; caught STYLE-WARNING:
;   2 calls to COMMON-LISP:WRITE were compiled before a compiler-macro was defined
;   for it. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; x-compiling (DEFINE-COMPILER-MACRO WRITE ...)

; file: /«PKGBUILDDIR»/src/code/early-print.lisp
; in: DEFINE-COMPILER-MACRO WRITE-TO-STRING
;     (DEFINE-COMPILER-MACRO WRITE-TO-STRING
;         (&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST SB!IMPL::KEYS)
;       (SB!IMPL::COMPILER-EXPAND-WRITE-MUMBLE 'WRITE-TO-STRING SB!KERNEL:FORM
;                                              SB!IMPL::OBJECT SB!IMPL::KEYS))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'WRITE-TO-STRING
;                                 #'(LAMBDA (#:WHOLE188 #:ENVIRONMENT189)
;                                     (DECLARE (IGNORE #:ENVIRONMENT189))
;                                     (LET* ((#:CMACRO-&WHOLE2284 #:WHOLE188)
;                                            (#:WHOLE188 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE2284))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK WRITE-TO-STRING #))))
;                                 '(&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST
;                                   SB!IMPL::KEYS)
;                                 NIL '(COMPILER-MACRO-FUNCTION WRITE-TO-STRING))
; 
; caught STYLE-WARNING:
;   1 call to COMMON-LISP:WRITE-TO-STRING was compiled before a compiler-macro was
;   defined for it. A declaration of NOTINLINE at the call site will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFINE-COMPILER-MACRO WRITE-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-print.lisp-obj-tmp written
; compilation finished in 0:00:00.660
; compiling file "/«PKGBUILDDIR»/src/code/early-pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!PRETTY")
; x-compiling (DEFMACRO PPRINT-LOGICAL-BLOCK ...)
; x-compiling (DEFMACRO PPRINT-EXIT-IF-LIST-EXHAUSTED ...)
; x-compiling (DEFMACRO PPRINT-POP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00.397
; compiling file "/«PKGBUILDDIR»/src/code/early-impl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (SPECIAL *POSIX-ARGV* ...))
; x-compiling (!DEFVAR SB!VM:*ALLOC-SIGNAL* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-impl.lisp-obj-tmp written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/src/code/target-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *SAVE-HOOKS* ...)
; x-compiling (DEFVAR *INIT-HOOKS* ...)
; x-compiling (DEFVAR *EXIT-HOOKS* ...)
; x-compiling (DEFUN BINARY-SEARCH ...)

; file: /«PKGBUILDDIR»/src/code/target-extensions.lisp
; in: DEFUN DOUBLE-VECTOR-BINARY-SEARCH
;     (< SB!IMPL::VALUE ELT)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       etc.

;     (> SB!IMPL::VALUE ELT)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       etc.

;     (LET* ((SB!IMPL::I (+ SB!IMPL::START (TRUNCATE # 2)))
;            (ELT (SVREF VECTOR (SB!EXT:TRULY-THE SB!INT:INDEX #))))
;       (DECLARE (TYPE INTEGER ELT)
;                (TYPE SB!INT:INDEX SB!IMPL::I))
;       (COND ((< SB!IMPL::VALUE ELT) (SB!IMPL::RECURSE SB!IMPL::START SB!IMPL::I))
;             ((> SB!IMPL::VALUE ELT)
;              (SB!IMPL::RECURSE (1+ SB!IMPL::I) SB!IMPL::END))
;             (T (SVREF VECTOR (SB!EXT:TRULY-THE SB!INT:INDEX #)))))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G28 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN DOUBLE-VECTOR-BINARY-SEARCH ...)
; x-compiling (DEFUN LISTEN-SKIP-WHITESPACE ...)
; x-compiling (DEFUN SIMPLE-PERROR ...)
; x-compiling (DEFMACRO WITH-PUSH-CHAR ...)
; 
; compilation unit finished
;   printed 3 notes
; x-compiling (DEFUN POWER-OF-TWO-CEILING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00.566
; compiling file "/«PKGBUILDDIR»/src/code/early-package.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *IGNORED-PACKAGE-LOCKS* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...)
; x-compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)

; file: /«PKGBUILDDIR»/src/code/early-package.lisp
; in: DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
;     (HANDLER-BIND ((SB!EXT:PACKAGE-LOCK-VIOLATION
;                     (LAMBDA (CONDITION) (ECASE SB!IMPL::CONTEXT # #))))
;       (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SYMBOL
;                                                    SB!IMPL::CONTROL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!EXT:PACKAGE-LOCK-VIOLATION)
; 
; caught STYLE-WARNING:
;   undefined type: PACKAGE-LOCK-VIOLATION
; 
; compilation unit finished
;   Undefined type:
;     PACKAGE-LOCK-VIOLATION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-package.lisp-obj-tmp written
; compilation finished in 0:00:00.239
; compiling file "/«PKGBUILDDIR»/src/code/early-defstructs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "entering early-defstructs.lisp")
; x-compiling (DEFSTRUCT (ALIEN-VALUE) ...)
; x-compiling (/SHOW0 "done with early-defstructs.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-defstructs.lisp-obj-tmp written
; compilation finished in 0:00:00.349
; compiling file "/«PKGBUILDDIR»/src/code/early-raw-slots.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEF!TYPE WORD ...)
; x-compiling (DEF!TYPE SB!VM:SIGNED-WORD ...)
; x-compiling (DEFTYPE LAYOUT-RAW-SLOT-METADATA-TYPE ...)
; x-compiling (DEFMACRO LAYOUT-RAW-SLOT-METADATA ...)
; x-compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA))
; x-compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...)
; x-compiling (SETQ *RAW-SLOT-DATA-LIST* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...)
; x-compiling (DEFUN RAW-SLOT-WORDS ...)
; x-compiling (DEFMACRO DO-INSTANCE-TAGGED-SLOT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-raw-slots.lisp-obj-tmp written
; compilation finished in 0:00:00.974
; compiling file "/«PKGBUILDDIR»/src/code/defbangstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; x-compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...)
; x-compiling (DEFUN DEF!STRUCT-SUPERTYPE ...)
; x-compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...)
; x-compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...)
; x-compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...)
; x-compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...)
; x-compiling (DEFUN JUST-DUMP-IT-NORMALLY ...)
; x-compiling (DEFUN IGNORE-IT ...)
; x-compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...)
; x-compiling (DEFMACRO DEF!STRUCT ...)
; x-compiling (DEF!STRUCT (STRUCTURE!OBJECT # ...))
; x-compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...)
; x-compiling (SETF (SYMBOL-FUNCTION #) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defbangstruct.lisp-obj-tmp written
; compilation finished in 0:00:00.591
; compiling file "/«PKGBUILDDIR»/src/code/unportable-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unportable-float.lisp-obj-tmp written
; compilation finished in 0:00:00.045
; compiling file "/«PKGBUILDDIR»/src/code/funutils.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN IDENTITY ...)
; x-compiling (DEFUN COMPLEMENT ...)
; x-compiling (DEFUN CONSTANTLY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/funutils.lisp-obj-tmp written
; compilation finished in 0:00:00.101
; compiling file "/«PKGBUILDDIR»/src/code/type-class.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEF)
; x-compiling (DEFUN TYPE-CLASS-OR-LOSE ...)
; x-compiling (DEFINE-COMPILER-MACRO TYPE-CLASS-OR-LOSE ...)
; x-compiling (DEFUN MUST-SUPPLY-THIS ...)
; x-compiling (DEF!STRUCT (TYPE-CLASS #) ...)
; x-compiling (DECLAIM (FREEZE-TYPE TYPE-CLASS))
; x-compiling (DEFCONSTANT-EQX !TYPE-CLASS-FUN-SLOTS ...)
; x-compiling (DEFUN !TYPE-CLASS-FUN-SLOT ...)
; x-compiling (DEFMACRO !DEFINE-TYPE-METHOD ...)
; x-compiling (DEFMACRO !DEFINE-TYPE-CLASS ...)
; x-compiling (DEFMACRO !INVOKE-TYPE-METHOD ...)
; x-compiling (DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ...)
; x-compiling (DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPE-CLASS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/type-class.lisp-obj-tmp written
; compilation finished in 0:00:02.062
; compiling file "/«PKGBUILDDIR»/src/code/ansi-stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-LENGTH+ ...)
; x-compiling (DEFTYPE ANSI-STREAM-IN-BUFFER ...)
; x-compiling (DEFTYPE ANSI-STREAM-CIN-BUFFER ...)
; x-compiling (DEFSTRUCT (ANSI-STREAM # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/ansi-stream.lisp-obj-tmp written
; compilation finished in 0:00:00.822
; compiling file "/«PKGBUILDDIR»/src/code/sysmacs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *IN-WITHOUT-GCING* ...)
; x-compiling (!DEFVAR *GC-INHIBIT* ...)
; x-compiling (!DEFVAR *GC-PENDING* ...)
; x-compiling (DEFVAR SB!VM::*PINNED-OBJECTS*)
; x-compiling (DEFMACRO WITHOUT-GCING ...)
; x-compiling (DEFMACRO EOF-OR-LOSE ...)
; x-compiling (DEFMACRO IN-SYNONYM-OF ...)
; x-compiling (DEFMACRO OUT-SYNONYM-OF ...)
; x-compiling (DEFMACRO WITH-IN-STREAM ...)
; x-compiling (DEFMACRO WITH-OUT-STREAM/NO-SYNONYM ...)
; x-compiling (DEFMACRO WITH-OUT-STREAM ...)
; x-compiling (DEFMACRO PREPARE-FOR-FAST-READ-CHAR ...)
; x-compiling (DEFMACRO DONE-WITH-FAST-READ-CHAR ...)
; x-compiling (DEFMACRO FAST-READ-CHAR ...)
; x-compiling (DEFMACRO WITH-FAST-READ-BYTE ...)
; x-compiling (DEFMACRO DO-REST-ARG ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sysmacs.lisp-obj-tmp written
; compilation finished in 0:00:01.066
; compiling file "/«PKGBUILDDIR»/src/code/target-error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN MUFFLE-WARNING-P ...)

; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS**
;     (SB!EXT:DEFGLOBAL SB!KERNEL::**INITIAL-HANDLER-CLUSTERS**
;                       (SB!INT:QUASIQUOTE (((# . #)))))
; --> PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL)
;     (LET ((#:BOUNDP (BOUNDP 'SB!KERNEL::**INITIAL-HANDLER-CLUSTERS**)))
;       (SB!IMPL::%COMPILER-DEFGLOBAL 'SB!KERNEL::**INITIAL-HANDLER-CLUSTERS**
;                                     :ALWAYS-BOUND
;                                     (UNLESS #:BOUNDP (SB!INT:QUASIQUOTE #))
;                                     (NOT #:BOUNDP))))
; 
; caught STYLE-WARNING:
;   undefined function: MUFFLE-WARNING-P
; x-compiling (DEFGLOBAL **INITIAL-HANDLER-CLUSTERS** ...)
; x-compiling (DEFVAR *HANDLER-CLUSTERS* ...)

; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFVAR *RESTART-CLUSTERS*
;     'NIL
; 
; note: deleting unreachable code
; x-compiling (DEFVAR *RESTART-CLUSTERS* ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN RESTART-REPORT ...)
; x-compiling (DEFVAR *RESTART-TEST-STACK* ...)
; x-compiling (DEFUN MAP-RESTARTS ...)
; x-compiling (DEFUN COMPUTE-RESTARTS ...)
; x-compiling (DEFUN %FIND-RESTART ...)
; x-compiling (DEFUN FIND-RESTART ...)
; x-compiling (DEFUN FIND-RESTART-OR-CONTROL-ERROR ...)
; x-compiling (DEFUN INVOKE-RESTART ...)
; x-compiling (DEFUN INTERACTIVE-RESTART-ARGUMENTS ...)
; x-compiling (DEFUN INVOKE-RESTART-INTERACTIVELY ...)
; x-compiling (DEFUN ASSERT-ERROR ...)
; x-compiling (DEFUN READ-EVALUATED-FORM ...)
; x-compiling (DEFUN CHECK-TYPE-ERROR ...)
; x-compiling (DEFUN CASE-FAILURE ...)

; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFUN FIND-RESTART
;     (DEFUN FIND-RESTART (SB!KERNEL::IDENTIFIER &OPTIONAL CONDITION)
;       "Return the first restart identified by IDENTIFIER. If IDENTIFIER is a symbol,
;   then the innermost applicable restart with that name is returned. If IDENTIFIER
;   is a restart, it is returned if it is currently active. Otherwise NIL is
;   returned. If CONDITION is specified and not NIL, then only restarts associated
;   with that condition (or with no condition) will be returned."
;       (SB!KERNEL::%FIND-RESTART SB!KERNEL::IDENTIFIER CONDITION))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND 
; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; --> LET SB!C::%TYPEP-WRAPPER LET OR LET 
; ==>
;   (TYPEP #:N-OBJ37 'CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN COMPUTE-RESTARTS
;     (DEFUN COMPUTE-RESTARTS (&OPTIONAL CONDITION)
;       "Return a list of all the currently active restarts ordered from most recently
;   established to less recently established. If CONDITION is specified, then only
;   restarts associated with CONDITION (or with no condition) will be returned."
;       (SB!INT:COLLECT ((SB!KERNEL::RESULT))
;         (SB!KERNEL::MAP-RESTARTS (LAMBDA (RESTART) (SB!KERNEL::RESULT RESTART))
;          CONDITION)
;         (SB!KERNEL::RESULT)))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND 
; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G24 '(OR CONDITION NULL))
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS**
;     (SB!INT:QUASIQUOTE
;      (((#S(SB!IMPL::COMMA :EXPR # :KIND 0)
;         . #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List*| LAMBDA FUNCTION WHEN IF 
; --> PROGN 
; ==>
;   (MUFFLE-WARNING WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; 
; caught STYLE-WARNING:
;   21 more uses of undefined type CONDITION


; file: /«PKGBUILDDIR»/src/code/target-error.lisp
; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS**
;     (SB!INT:QUASIQUOTE
;      (((#S(SB!IMPL::COMMA :EXPR # :KIND 0)
;         . #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List*| LAMBDA FUNCTION 
; ==>
;   (TYPEP CONDITION 'WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: WARNING
; 
; compilation unit finished
;   Undefined types:
;     CONDITION WARNING
;   caught 6 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFUN CASE-BODY-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-error.lisp-obj-tmp written
; compilation finished in 0:00:01.065
; compiling file "/«PKGBUILDDIR»/src/compiler/early-backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *BACKEND-PAGE-BYTES* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-backend.lisp-obj-tmp written
; compilation finished in 0:00:00.034
creating directory: /«PKGBUILDDIR»/obj/from-xc/output/
; compiling file "/«PKGBUILDDIR»/output/stuff-groveled-from-headers.lisp" (written 11 JUN 2015 08:01:50 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFCONSTANT RTLD-LAZY ...)
; x-compiling (DEFCONSTANT RTLD-NOW ...)
; x-compiling (DEFCONSTANT RTLD-GLOBAL ...)
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (DEFCONSTANT FD-SETSIZE ...)
; x-compiling (DEFCONSTANT POLLIN ...)
; x-compiling (DEFCONSTANT POLLOUT ...)
; x-compiling (DEFCONSTANT POLLPRI ...)
; x-compiling (DEFCONSTANT POLLHUP ...)
; x-compiling (DEFCONSTANT POLLNVAL ...)
; x-compiling (DEFCONSTANT POLLERR ...)
; x-compiling (DEFINE-ALIEN-TYPE NFDS-T ...)
; x-compiling (DEFCONSTANT CODESET ...)
; x-compiling (DEFINE-ALIEN-TYPE CLOCK-T ...)
; x-compiling (DEFINE-ALIEN-TYPE DEV-T ...)
; x-compiling (DEFINE-ALIEN-TYPE GID-T ...)
; x-compiling (DEFINE-ALIEN-TYPE INO-T ...)
; x-compiling (DEFINE-ALIEN-TYPE MODE-T ...)
; x-compiling (DEFINE-ALIEN-TYPE NLINK-T ...)
; x-compiling (DEFINE-ALIEN-TYPE OFF-T ...)
; x-compiling (DEFINE-ALIEN-TYPE SIZE-T ...)
; x-compiling (DEFINE-ALIEN-TYPE TIME-T ...)
; x-compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...)
; x-compiling (DEFINE-ALIEN-TYPE UID-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-INO-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-DEV-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-OFF-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-BLKSIZE-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-BLKCNT-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-NLINK-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-UID-T ...)
; x-compiling (DEFINE-ALIEN-TYPE WST-GID-T ...)
; x-compiling (DEFCONSTANT R_OK ...)
; x-compiling (DEFCONSTANT W_OK ...)
; x-compiling (DEFCONSTANT X_OK ...)
; x-compiling (DEFCONSTANT F_OK ...)
; x-compiling (DEFCONSTANT O_RDONLY ...)
; x-compiling (DEFCONSTANT O_WRONLY ...)
; x-compiling (DEFCONSTANT O_RDWR ...)
; x-compiling (DEFCONSTANT O_ACCMODE ...)
; x-compiling (DEFCONSTANT O_CREAT ...)
; x-compiling (DEFCONSTANT O_EXCL ...)
; x-compiling (DEFCONSTANT O_NOCTTY ...)
; x-compiling (DEFCONSTANT O_TRUNC ...)
; x-compiling (DEFCONSTANT O_APPEND ...)
; x-compiling (DEFCONSTANT O_LARGEFILE ...)
; x-compiling (DEFCONSTANT S-IFMT ...)
; x-compiling (DEFCONSTANT S-IFIFO ...)
; x-compiling (DEFCONSTANT S-IFCHR ...)
; x-compiling (DEFCONSTANT S-IFDIR ...)
; x-compiling (DEFCONSTANT S-IFBLK ...)
; x-compiling (DEFCONSTANT S-IFREG ...)
; x-compiling (DEFCONSTANT S-IFLNK ...)
; x-compiling (DEFCONSTANT S-IFSOCK ...)
; x-compiling (DEFCONSTANT EBADF ...)
; x-compiling (DEFCONSTANT ENOENT ...)
; x-compiling (DEFCONSTANT EINTR ...)
; x-compiling (DEFCONSTANT EAGAIN ...)
; x-compiling (DEFCONSTANT EIO ...)
; x-compiling (DEFCONSTANT EEXIST ...)
; x-compiling (DEFCONSTANT ELOOP ...)
; x-compiling (DEFCONSTANT ESPIPE ...)
; x-compiling (DEFCONSTANT EWOULDBLOCK ...)
; x-compiling (DEFCONSTANT WNOHANG ...)
; x-compiling (DEFCONSTANT WUNTRACED ...)
; x-compiling (DEFCONSTANT TIOCGPGRP ...)
; x-compiling (DEFCONSTANT TIOCSPGRP ...)
; x-compiling (DEFCONSTANT TIOCGWINSZ ...)
; x-compiling (DEFCONSTANT TIOCSWINSZ ...)
; x-compiling (DEFCONSTANT SIG-DFL ...)
; x-compiling (DEFCONSTANT SIG-IGN ...)
; x-compiling (DEFCONSTANT SIGALRM ...)
; x-compiling (DEFCONSTANT SIGBUS ...)
; x-compiling (DEFCONSTANT SIGCHLD ...)
; x-compiling (DEFCONSTANT SIGCONT ...)
; x-compiling (DEFCONSTANT SIGFPE ...)
; x-compiling (DEFCONSTANT SIGHUP ...)
; x-compiling (DEFCONSTANT SIGILL ...)
; x-compiling (DEFCONSTANT SIGINT ...)
; x-compiling (DEFCONSTANT SIGIO ...)
; x-compiling (DEFCONSTANT SIGIOT ...)
; x-compiling (DEFCONSTANT SIGKILL ...)
; x-compiling (DEFCONSTANT SIGPIPE ...)
; x-compiling (DEFCONSTANT SIGPROF ...)
; x-compiling (DEFCONSTANT SIGQUIT ...)
; x-compiling (DEFCONSTANT SIGSEGV ...)
; x-compiling (DEFCONSTANT SIGSTKFLT ...)
; x-compiling (DEFCONSTANT SIGSTOP ...)
; x-compiling (DEFCONSTANT SIGSYS ...)
; x-compiling (DEFCONSTANT SIGTERM ...)
; x-compiling (DEFCONSTANT SIGTRAP ...)
; x-compiling (DEFCONSTANT SIGTSTP ...)
; x-compiling (DEFCONSTANT SIGTTIN ...)
; x-compiling (DEFCONSTANT SIGTTOU ...)
; x-compiling (DEFCONSTANT SIGURG ...)
; x-compiling (DEFCONSTANT SIGUSR1 ...)
; x-compiling (DEFCONSTANT SIGUSR2 ...)
; x-compiling (DEFCONSTANT SIGVTALRM ...)
; x-compiling (DEFCONSTANT SIGWINCH ...)
; x-compiling (DEFCONSTANT SIGXCPU ...)
; x-compiling (DEFCONSTANT SIGXFSZ ...)
; x-compiling (DEFCONSTANT FPE-INTOVF ...)
; x-compiling (DEFCONSTANT FPE-INTDIV ...)
; x-compiling (DEFCONSTANT FPE-FLTDIV ...)
; x-compiling (DEFCONSTANT FPE-FLTOVF ...)
; x-compiling (DEFCONSTANT FPE-FLTUND ...)
; x-compiling (DEFCONSTANT FPE-FLTRES ...)
; x-compiling (DEFCONSTANT FPE-FLTINV ...)
; x-compiling (DEFCONSTANT FPE-FLTSUB ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-TYPE PAGE-INDEX-T ...)
; x-compiling (DEFINE-ALIEN-TYPE GENERATION-INDEX-T ...)
; x-compiling (DEFINE-ALIEN-TYPE OS-VM-SIZE-T ...)

; /«PKGBUILDDIR»/obj/from-xc/output/stuff-groveled-from-headers.lisp-obj-tmp written
; compilation finished in 0:00:01.147
; compiling file "/«PKGBUILDDIR»/src/code/toplevel.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR SB!VM:*CURRENT-CATCH-BLOCK*)
; x-compiling (DEFVAR SB!VM::*CURRENT-UNWIND-PROTECT-BLOCK*)
; x-compiling (DEFVAR *FREE-INTERRUPT-CONTEXT-INDEX*)
; x-compiling (DECLAIM (SPECIAL *ALLOW-WITH-INTERRUPTS* ...))
; x-compiling (DEFVAR *MAXIMUM-ERROR-DEPTH*)
; x-compiling (!DEFVAR *CURRENT-ERROR-DEPTH* ...)
; x-compiling (DEFUN SYSINIT-PATHNAME ...)
; x-compiling (DEFUN USERINIT-PATHNAME ...)
; x-compiling (DEFVAR *SYSINIT-PATHNAME-FUNCTION* ...)
; x-compiling (DEFVAR *USERINIT-PATHNAME-FUNCTION* ...)
; x-compiling (DEFMACRO HANDLING-END-OF-THE-WORLD ...)
; x-compiling (DEFVAR *EXIT-LOCK*)
; x-compiling (DEFVAR *EXIT-IN-PROCESS* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *EXIT-TIMEOUT* ...)
; x-compiling (DEFUN OS-EXIT-HANDLER ...)
; x-compiling (DEFVAR *EXIT-ERROR-HANDLER* ...)
; x-compiling (DEFUN CALL-EXIT-HOOKS ...)
; x-compiling (DEFUN %EXIT ...)
; x-compiling (DEFMACRO INFINITE-ERROR-PROTECT ...)
; x-compiling (DEFUN INFINITE-ERROR-PROTECTOR ...)
; x-compiling (DEFUN !ENABLE-INFINITE-ERROR-PROTECTOR ...)

; file: /«PKGBUILDDIR»/src/code/toplevel.lisp
; in: DEFUN SPLIT-SECONDS-FOR-SLEEP
;     (TRUNCATE SB!IMPL::FRAC (LOAD-TIME-VALUE 1.e-9 T))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (TRUNCATE SB!IMPL::SECONDS)
; --> TRUNCATE LET 
; ==>
;   (SB!KERNEL:%UNARY-TRUNCATE SB!C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

; --> TRUNCATE LET VALUES 
; ==>
;   (- SB!C::X SB!C::RES)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                              &REST T).
;       etc.

;     (* REM (* 10 (TRUNCATE 100000000 (DENOMINATOR SB!IMPL::SECONDS))))
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (INTEGER -1000000000 1000000000), 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 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -1000000000 1000000000), not a (UNSIGNED-BYTE
;                                                                         32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of static-fun Two-arg-*

;     (SB!EXT:TRULY-THE (INTEGER 0 1000000000)
;                       (SB!KERNEL:%UNARY-TRUNCATE
;                        (* (- SB!IMPL::SECONDS (FLOAT SB!IMPL::WHOLE-SECONDS))
;                           (LOAD-TIME-VALUE 1.e9 T))))
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; x-compiling (DEFUN SPLIT-SECONDS-FOR-SLEEP ...)
; x-compiling (DEFUN SLEEP ...)
; x-compiling (DEFVAR / ...)
; x-compiling (DEFVAR // ...)
; x-compiling (DEFVAR /// ...)
; x-compiling (DEFVAR * ...)
; x-compiling (DEFVAR ** ...)
; x-compiling (DEFVAR *** ...)
; x-compiling (DEFVAR + ...)
; x-compiling (DEFVAR ++ ...)
; x-compiling (DEFVAR +++ ...)
; x-compiling (DEFVAR - ...)
; x-compiling (DEFUN INTERACTIVE-EVAL ...)
; x-compiling (DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ...)
; x-compiling (DEFUN PROCESS-INIT-FILE ...)
; x-compiling (DEFUN PROCESS-EVAL/LOAD-OPTIONS ...)
; x-compiling (DEFUN PROCESS-SCRIPT ...)
; x-compiling (DEFUN STARTUP-ERROR ...)
; x-compiling (DEFUN TOPLEVEL-INIT ...)
; x-compiling (DEFVAR *REPL-READ-FORM-FUN* ...)
; x-compiling (DEFVAR *REPL-PROMPT-FUN* ...)
; x-compiling (DEFVAR *REPL-FUN-GENERATOR* ...)
; x-compiling (DEFUN TOPLEVEL-REPL ...)
; x-compiling (DEFUN REPL-PROMPT-FUN ...)
; x-compiling (DEFUN REPL-READ-FORM-FUN ...)
; x-compiling (DEFUN REPL-FUN ...)

; file: /«PKGBUILDDIR»/src/code/toplevel.lisp
; in: DEFUN PROCESS-SCRIPT
;     (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING)
;                    (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #))))
;       (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*))
;             (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*))
;             (*STANDARD-INPUT* SB!SYS:*STDIN*)
;             (*STANDARD-OUTPUT* SB!SYS:*STDOUT*)
;             (*ERROR-OUTPUT* SB!SYS:*STDERR*))
;         (LOAD STREAM :VERBOSE NIL :PRINT NIL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR STYLE-WARNING SB!EXT:COMPILER-NOTE))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; in: DEFUN %EXIT
;     (HANDLER-BIND ((SERIOUS-CONDITION SB!SYS:*EXIT-ERROR-HANDLER*))
;       (LET ((SB!IMPL::OK NIL) (SB!IMPL::CODE SB!SYS:*EXIT-IN-PROCESS*))
;         (IF (CONSP SB!IMPL::CODE)
;             (SB!SYS:OS-EXIT (CAR SB!IMPL::CODE) :ABORT NIL)
;             (UNWIND-PROTECT (PROGN # # #)
;               (SB!SYS:OS-EXIT SB!IMPL::CODE :ABORT #)))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SERIOUS-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SERIOUS-CONDITION

; in: DEFUN CALL-EXIT-HOOKS
;     (HANDLER-BIND ((SERIOUS-CONDITION SB!SYS:*EXIT-ERROR-HANDLER*))
;       (SB!INT:CALL-HOOKS "exit" SB!EXT:*EXIT-HOOKS* :ON-ERROR :WARN))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SERIOUS-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SERIOUS-CONDITION

; in: DEFUN TOPLEVEL-REPL
;     (HANDLER-BIND ((SB!EXT:STEP-CONDITION 'SB!IMPL::INVOKE-STEPPER))
;       (LOOP (SB!INT:/SHOW0 "about to set up restarts in TOPLEVEL-REPL")
;             (WITH-SIMPLE-RESTART
;                 (ABORT "~@<Exit debugger, returning to top level.~@:>")
;               (CATCH 'SB!INT:TOPLEVEL-CATCHER
;                 (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE)
;                 (FUNCALL SB!IMPL::REPL-FUN SB!IMPL::NOPRINT)
;                 (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL")))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!EXT:STEP-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: STEP-CONDITION

; in: DEFUN PROCESS-SCRIPT
;     (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING)
;                    (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #))))
;       (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*))
;             (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*))
;             (*STANDARD-INPUT* SB!SYS:*STDIN*)
;             (*STANDARD-OUTPUT* SB!SYS:*STDOUT*)
;             (*ERROR-OUTPUT* SB!SYS:*STDERR*))
;         (LOAD STREAM :VERBOSE NIL :PRINT NIL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'STREAM-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-ERROR

; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS
;     (HANDLER-BIND ((STREAM-ERROR (LAMBDA (SB!IMPL::C) (WHEN # #))))
;       (FORCE-OUTPUT STREAM))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'STREAM-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-ERROR

; in: DEFUN PROCESS-SCRIPT
;     (STREAM-ERROR-STREAM SB!IMPL::E)
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-ERROR-STREAM

; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS
;     (STREAM-ERROR-STREAM SB!IMPL::C)
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-ERROR-STREAM

; in: DEFUN PROCESS-SCRIPT
;     (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING)
;                    (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #))))
;       (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*))
;             (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*))
;             (*STANDARD-INPUT* SB!SYS:*STDIN*)
;             (*STANDARD-OUTPUT* SB!SYS:*STDOUT*)
;             (*ERROR-OUTPUT* SB!SYS:*STDERR*))
;         (LOAD STREAM :VERBOSE NIL :PRINT NIL)))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR STYLE-WARNING SB!EXT:COMPILER-NOTE))
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING
; 
; compilation unit finished
;   Undefined types:
;     COMPILER-NOTE SERIOUS-CONDITION STEP-CONDITION STREAM-ERROR STYLE-WARNING
;   Undefined function:
;     STREAM-ERROR-STREAM
;   caught 9 STYLE-WARNING conditions
;   printed 9 notes
; x-compiling (DEFUN %HALT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/toplevel.lisp-obj-tmp written
; compilation finished in 0:00:02.004
; compiling file "/«PKGBUILDDIR»/src/code/cold-error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!DEFVAR *BREAK-ON-SIGNALS* ...)
; x-compiling (DEFUN MAYBE-BREAK-ON-SIGNAL ...)
; x-compiling (DEFUN SIGNAL ...)
; x-compiling (DEFUN ERROR ...)
; x-compiling (DEFUN CERROR ...)
; x-compiling (DEFUN %BREAK ...)
; x-compiling (DEFUN BREAK ...)

; file: /«PKGBUILDDIR»/src/code/cold-error.lisp
; in: DEFUN ERROR
;     (INVOKE-DEBUGGER CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN WARN
;     (ETYPECASE CONDITION (STYLE-WARNING 'STYLE-WARNING) (WARNING 'WARNING))
; --> LET COND IF 
; ==>
;   (TYPEP #:G3398 'STYLE-WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING

; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G3398 'WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: WARNING

;     (SB!INT:ENFORCE-TYPE CONDITION WARNING)
; --> LET UNLESS IF 
; ==>
;   (TYPEP #:VALUE99 'WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: WARNING
; 
; compilation unit finished
;   Undefined types:
;     CONDITION STYLE-WARNING WARNING
;   caught 4 STYLE-WARNING conditions
; x-compiling (DEFUN WARN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cold-error.lisp-obj-tmp written
; compilation finished in 0:00:00.991
; compiling file "/«PKGBUILDDIR»/src/compiler/info-vector.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFCONSTANT +EMPTY-KEY+ ...)
; x-compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...)
; x-compiling (DEFTYPE INFO-CELL-INDEX ...)
; x-compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...)
; x-compiling (DEFSTRUCT (INFO-STORAGE # ...) ...)
; x-compiling (DEFUN MAKE-INFO-STORAGE ...)
; x-compiling (DEFSTRUCT (INFO-HASHTABLE #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFMACRO INFO-CAS ...)
; x-compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT))
; x-compiling (DEFUN INFO-ENV-ADJUST-COUNT ...)
; x-compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...)
; x-compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...)
; x-compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...)
; x-compiling (DEFUN INFO-VALUE-MOVED-P ...)
; x-compiling (DEFMACRO !DO-PROBE-SEQUENCE ...)
; x-compiling (DEFUN %WAIT-FOR-REHASH ...)
; x-compiling (DEFUN INFO-GETHASH ...)
; x-compiling (DEFUN INFO-PUTHASH ...)
; x-compiling (DEFUN INFO-ENV-REHASH ...)
; x-compiling (DEFMACRO INFO-MAPHASH ...)
; x-compiling (DEFUN (SETF INFO-GETHASH) ...)
; x-compiling (DEFUN SHOW-INFO-ENV ...)
; x-compiling (DEFCONSTANT INFO-NUM-MASK ...)
; x-compiling (DEFCONSTANT +INFOS-PER-WORD+ ...)
; x-compiling (DEFTYPE INFO-DESCRIPTOR ...)
; x-compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...)
; x-compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...)
; x-compiling (DEFCONSTANT +FDEFN-INFO-NUM+ ...)
; x-compiling (DECLAIM (INLINE PACKED-INFO-FIELD))
; x-compiling (DEFUN PACKED-INFO-FIELD ...)
; x-compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...)
; x-compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...)
; x-compiling (DEFUN PACKIFY-INFOS ...)
; x-compiling (DEFMACRO !WITH-PACKED-INFO-ITERATOR ...)
; x-compiling (DEFMACRO !DO-PACKED-INFO-VECTOR-AUX-KEY ...)
; x-compiling (DEFUN INFO-VECTOR-NAME-LIST ...)
; x-compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...)
; x-compiling (DEFUN UNPACKIFY-INFOS ...)
; x-compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...)
; x-compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...)
; x-compiling (DEFUN %PACKED-INFO-INSERT ...)
; x-compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P))
; x-compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...)
; x-compiling (DEFUN QUICK-PACKED-INFO-INSERT ...)
; x-compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT))
; x-compiling (DEFUN PACKED-INFO-INSERT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PACKED-INFO-VALUE-INDEX ...)
; x-compiling (DEFUN PACKED-INFO-REMOVE ...)
; x-compiling (DEFCONSTANT-EQX !+PCL-READER-NAME+ ...)
; x-compiling (DEFCONSTANT-EQX !+PCL-WRITER-NAME+ ...)
; x-compiling (DEFCONSTANT-EQX !+PCL-BOUNDP-NAME+ ...)
; x-compiling (DEFUN PCL-GLOBAL-ACCESSOR-NAME-P ...)
; x-compiling (DEFUN CONSTRUCT-GLOBALDB-NAME ...)
; x-compiling (DEFUN %CALL-WITH-EACH-INFO ...)
; x-compiling (DEFUN !TEST-PACKIFY-INFOS ...)
; x-compiling (DEFMACRO WITH-GLOBALDB-NAME ...)
; x-compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN))
; x-compiling (DEFUN INFO-VECTOR-FDEFN ...)
; x-compiling (DEFUN SYMBOL-INFO-VECTOR ...)
; x-compiling (DECLAIM (TYPE INFO-HASHTABLE ...))
; x-compiling (DEFVAR *INFO-ENVIRONMENT*)
; x-compiling (DEFUN SET-INFO-VALUE ...)
; x-compiling (DEFUN %ATOMIC-SET-INFO-VALUE ...)
; x-compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/info-vector.lisp-obj-tmp written
; compilation finished in 0:00:08.196
; compiling file "/«PKGBUILDDIR»/src/code/fdefinition.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (/SHOW0 "fdefinition.lisp 22")
; x-compiling (DEFUN MAKE-FDEFN ...)
; x-compiling (DEFUN FDEFN-NAME ...)
; x-compiling (DEFUN FDEFN-FUN ...)
; x-compiling (DEFUN (SETF FDEFN-FUN) ...)
; x-compiling (DEFUN FDEFN-MAKUNBOUND ...)
; x-compiling (DECLAIM (INLINE SYMBOL-FDEFN))
; x-compiling (DEFUN SYMBOL-FDEFN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FDEFN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-OR-CREATE-FDEFN ...)
; x-compiling (DEFUN MAYBE-CLOBBER-FTYPE ...)
; x-compiling (DEFMACRO %COERCE-NAME-TO-FUN ...)
; x-compiling (DEFUN %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DEFSTRUCT (ENCAPSULATION-INFO # ...) ...)
; x-compiling (DEFUN ENCAPSULATE ...)
; x-compiling (DEFUN FIND-IF-IN-CLOSURE ...)
; x-compiling (DEFUN ENCAPSULATION-INFO ...)
; x-compiling (DEFUN UNENCAPSULATE ...)
; x-compiling (DEFUN ENCAPSULATED-P ...)
; x-compiling (DEFUN FDEFINITION ...)
; x-compiling (DEFVAR *SETF-FDEFINITION-HOOK* ...)
; x-compiling (DEFUN MACRO/SPECIAL-GUARD-FUN-P ...)
; x-compiling (DEFUN ERR-IF-UNACCEPTABLE-FUNCTION ...)
; x-compiling (DEFUN %SET-FDEFINITION ...)
; x-compiling (DEFUN FBOUNDP ...)

; file: /«PKGBUILDDIR»/src/code/fdefinition.lisp
; in: DEFUN ENCAPSULATED-P
;     (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION

; in: DEFUN UNENCAPSULATE
;     (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION

; in: DEFUN ENCAPSULATE
;     (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION
; 
; compilation unit finished
;   Undefined type:
;     GENERIC-FUNCTION
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN FMAKUNBOUND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/fdefinition.lisp-obj-tmp written
; compilation finished in 0:00:01.083
; compiling file "/«PKGBUILDDIR»/src/code/target-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFUN CTYPEP ...)
; x-compiling (DECLAIM (INLINE LAYOUT-OF))
; x-compiling (DEFUN LAYOUT-OF ...)
; x-compiling (DECLAIM (INLINE CLASSOID-OF))
; x-compiling (DEFUN CLASSOID-OF ...)
; x-compiling (DEFUN CLEAR-TYPE-CACHES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION ...) ...)

; file: /«PKGBUILDDIR»/src/code/target-type.lisp
; in: DEFUN CTYPEP
;     (ETYPECASE TYPE
;       ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;            SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;            SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)
;        (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T))
;       (SB!KERNEL:CLASSOID
;        (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #)
;                (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ)
;                (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ))
;            (IF (EQ # #)
;                (VALUES # T)
;                (VALUES NIL NIL))
;            (VALUES NIL T)))
;       (SB!KERNEL:COMPOUND-TYPE
;        (FUNCALL
;         (ETYPECASE TYPE
;           (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;           (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
;         #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE)))
;       (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T))
;       (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL))
;       (SB!KERNEL:ALIEN-TYPE-TYPE
;        (VALUES
;         (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ
;          (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE))
;         T))
;       (SB!KERNEL:NEGATION-TYPE
;        (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN)
;            (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE))
;          (IF SB!KERNEL::WIN
;              (VALUES # T)
;              (VALUES NIL NIL))))
;       (SB!KERNEL:HAIRY-TYPE
;        (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #))
;          (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #)))))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4158 'SB!KERNEL:ALIEN-TYPE-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ALIEN-TYPE-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G4158
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: ARRAY-TYPE
; 
; caught STYLE-WARNING:
;   undefined type: CHARACTER-SET-TYPE

; --> LET COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4158 'SB!KERNEL:COMPOUND-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: COMPOUND-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G4158
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: CONS-TYPE

; --> LET COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4158 'SB!KERNEL:FUN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-TYPE

; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4158 'SB!KERNEL:HAIRY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: HAIRY-TYPE

;     (ETYPECASE TYPE
;       (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;       (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
; --> LET COND IF 
; ==>
;   (TYPEP #:G4176 'SB!KERNEL:INTERSECTION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: INTERSECTION-TYPE

;     (ETYPECASE TYPE
;       ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;            SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;            SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)
;        (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T))
;       (SB!KERNEL:CLASSOID
;        (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #)
;                (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ)
;                (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ))
;            (IF (EQ # #)
;                (VALUES # T)
;                (VALUES NIL NIL))
;            (VALUES NIL T)))
;       (SB!KERNEL:COMPOUND-TYPE
;        (FUNCALL
;         (ETYPECASE TYPE
;           (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;           (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
;         #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE)))
;       (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T))
;       (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL))
;       (SB!KERNEL:ALIEN-TYPE-TYPE
;        (VALUES
;         (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ
;          (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE))
;         T))
;       (SB!KERNEL:NEGATION-TYPE
;        (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN)
;            (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE))
;          (IF SB!KERNEL::WIN
;              (VALUES # T)
;              (VALUES NIL NIL))))
;       (SB!KERNEL:HAIRY-TYPE
;        (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #))
;          (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #)))))
; --> LET COND IF 
; ==>
;   (TYPEP #:G4158
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: MEMBER-TYPE
; 
; caught STYLE-WARNING:
;   undefined type: NAMED-TYPE

; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4158 'SB!KERNEL:NEGATION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: NEGATION-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G4158
;          '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;               SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;               SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE))
; 
; caught STYLE-WARNING:
;   undefined type: NUMERIC-TYPE

;     (ETYPECASE TYPE
;       (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;       (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G4176 'SB!KERNEL:UNION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNION-TYPE

;     (ETYPECASE TYPE
;       ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE
;            SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE
;            SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)
;        (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T))
;       (SB!KERNEL:CLASSOID
;        (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #)
;                (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ)
;                (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ))
;            (IF (EQ # #)
;                (VALUES # T)
;                (VALUES NIL NIL))
;            (VALUES NIL T)))
;       (SB!KERNEL:COMPOUND-TYPE
;        (FUNCALL
;         (ETYPECASE TYPE
;           (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE)
;           (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE))
;         #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE)))
;       (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T))
;       (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL))
;       (SB!KERNEL:ALIEN-TYPE-TYPE
;        (VALUES
;         (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ
;          (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE))
;         T))
;       (SB!KERNEL:NEGATION-TYPE
;        (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN)
;            (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE))
;          (IF SB!KERNEL::WIN
;              (VALUES # T)
;              (VALUES NIL NIL))))
;       (SB!KERNEL:HAIRY-TYPE
;        (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #))
;          (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #)))))
; --> LET COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G4158 'SB!KERNEL:UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNKNOWN-TYPE
; 
; compilation unit finished
;   Undefined types:
;     ALIEN-TYPE-TYPE ARRAY-TYPE CHARACTER-SET-TYPE COMPOUND-TYPE CONS-TYPE FUN-TYPE HAIRY-TYPE INTERSECTION-TYPE MEMBER-TYPE NAMED-TYPE NEGATION-TYPE NUMERIC-TYPE UNION-TYPE UNKNOWN-TYPE
;   caught 14 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TARGET-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-type.lisp-obj-tmp written
; compilation finished in 0:00:00.952
; compiling file "/«PKGBUILDDIR»/src/code/pred.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE STREAMP))
; x-compiling (DEFUN STREAMP ...)
; x-compiling (DEF)
; x-compiling (DECLAIM (MAYBE-INLINE EXTENDED-SEQUENCE-P))
; x-compiling (DEFUN EXTENDED-SEQUENCE-P ...)
; x-compiling (DEFUN SEQUENCEP ...)
; x-compiling (DEFUN NOT ...)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAY-HEADER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAYP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ATOM)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-CHAR-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-STRING-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTER-STRING-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIGNUMP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIT-VECTOR-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTERP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CODE-COMPONENT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CONSP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEXP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-DOUBLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-RATIONAL-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-SINGLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER DOUBLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER EXTENDED-CHAR-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FDEFN-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FIXNUMP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FLOATP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FUNCTIONP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER INTEGERP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LISTP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LONG-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LRA-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NULL)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NUMBERP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIONALP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIOP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER REALP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SHORT-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SINGLE-FLOAT-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %INSTANCEP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYMBOLP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %OTHER-POINTER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYSTEM-AREA-POINTER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER WEAK-POINTER-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER UNSIGNED-BYTE-32-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIGNED-BYTE-32-P)
; x-compiling (SAETP-DEFS)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-RANK-1-ARRAY-*-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-STRING-P)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER STRINGP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTORP)
; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTOR-NIL-P)
; x-compiling (DEFUN FIXNUM-MOD-P ...)
; x-compiling (DEFUN TYPE-OF ...)
; x-compiling (DEFUN EQ ...)
; x-compiling (DECLAIM (INLINE %EQL))
; x-compiling (DEFUN %EQL ...)
; x-compiling (DEFUN EQL ...)
; x-compiling (DEFUN BIT-VECTOR-= ...)
; x-compiling (DEFUN EQUAL ...)
; x-compiling (DEFUN HASH-TABLE-EQUALP ...)
; x-compiling (DEFUN EQUALP ...)
; x-compiling (/SHOW0 "about to do test cases in pred.lisp")
; x-compiling (LET (#) ...)
; x-compiling (/SHOW0 "done with test cases in pred.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/pred.lisp-obj-tmp written
; compilation finished in 0:00:03.043
; compiling file "/«PKGBUILDDIR»/src/code/target-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (/SHOW0 "target-alieneval.lisp 15")
; x-compiling (DEFUN GUESS-ALIEN-NAME-FROM-LISP-NAME ...)
; x-compiling (DEFUN GUESS-LISP-NAME-FROM-ALIEN-NAME ...)
; x-compiling (DEFUN PICK-LISP-AND-ALIEN-NAMES ...)
; x-compiling (DEFMACRO DEFINE-ALIEN-VARIABLE ...)
; x-compiling (DEFUN %DEFINE-ALIEN-VARIABLE ...)
; x-compiling (DEFUN ALIEN-VALUE ...)
; x-compiling (DEFMACRO EXTERN-ALIEN ...)
; x-compiling (DEFMACRO WITH-ALIEN ...)
; x-compiling (DECLAIM (FREEZE-TYPE ALIEN-VALUE))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (INLINE NULL-ALIEN))
; x-compiling (DEFUN NULL-ALIEN ...)
; x-compiling (DEFMACRO SAP-ALIEN ...)
; x-compiling (DEFUN %SAP-ALIEN ...)
; x-compiling (DEFUN ALIEN-SAP ...)
; x-compiling (DEFMACRO MAKE-ALIEN ...)
; x-compiling (DEFUN MALLOC-ERROR ...)
; x-compiling (DECLAIM (INLINE %MAKE-ALIEN))
; x-compiling (DEFUN %MAKE-ALIEN ...)
; x-compiling (DECLAIM (INLINE FREE-ALIEN))
; x-compiling (DEFUN FREE-ALIEN ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN %MAKE-ALIEN-STRING ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFUN MAKE-ALIEN-STRING
;     (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP
;      (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(* CHAR) NIL))
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN MAKE-ALIEN-STRING ...)
; x-compiling (DEFINE-COMPILER-MACRO MAKE-ALIEN-STRING ...)
; x-compiling (DEFUN SLOT-OR-LOSE ...)
; x-compiling (DEFUN SLOT ...)
; x-compiling (DEFUN %SET-SLOT ...)
; x-compiling (DEFUN %SLOT-ADDR ...)
; x-compiling (DEFUN DEREF-GUTS ...)
; x-compiling (DEFUN DEREF ...)
; x-compiling (DEFUN %SET-DEREF ...)
; x-compiling (DEFUN %DEREF-ADDR ...)
; x-compiling (DEFUN %HEAP-ALIEN ...)
; x-compiling (DEFUN %SET-HEAP-ALIEN ...)
; x-compiling (DEFUN %HEAP-ALIEN-ADDR ...)
; x-compiling (DEFUN MAKE-LOCAL-ALIEN ...)
; x-compiling (DEFUN NOTE-LOCAL-ALIEN-TYPE ...)
; x-compiling (DEFUN LOCAL-ALIEN ...)
; x-compiling (DEFUN %SET-LOCAL-ALIEN ...)
; x-compiling (DEFINE-SETF-EXPANDER LOCAL-ALIEN ...)
; x-compiling (DEFUN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; x-compiling (DEFUN %LOCAL-ALIEN-ADDR ...)
; x-compiling (DEFUN DISPOSE-LOCAL-ALIEN ...)
; x-compiling (DEFMACRO CAST ...)
; x-compiling (DEFUN %CAST ...)
; x-compiling (DEFMACRO ALIEN-SIZE ...)
; x-compiling (DEFUN COERCE-TO-INTERPRETED-FUNCTION ...)
; x-compiling (DEFUN NATURALIZE ...)
; x-compiling (DEFUN DEPORT ...)
; x-compiling (DEFUN DEPORT-ALLOC ...)
; x-compiling (DEFUN %ALIEN-VALUE ...)
; x-compiling (DEFUN (SETF %ALIEN-VALUE) ...)
; x-compiling (DEFUN ALIEN-FUNCALL ...)
; x-compiling (DEFMACRO DEFINE-ALIEN-ROUTINE ...)
; x-compiling (DEFUN ALIEN-TYPEP ...)
; x-compiling (DEFUN ALIEN-VALUE-TYPEP ...)
; x-compiling (DEFVAR *ALIEN-CALLBACK-INFO* ...)
; x-compiling (DEFSTRUCT CALLBACK-INFO ...)
; x-compiling (DEFUN CALLBACK-INFO-KEY ...)
; x-compiling (DEFUN ALIEN-CALLBACK-INFO ...)
; x-compiling (DEFVAR *ALIEN-CALLBACKS* ...)
; x-compiling (DEFVAR *ALIEN-CALLBACK-WRAPPERS* ...)
; x-compiling (DEFVAR *ALIEN-CALLBACK-TRAMPOLINES* ...)
; x-compiling (DEFUN %ALIEN-CALLBACK-SAP ...)
; x-compiling (DEFUN ALIEN-CALLBACK-LISP-TRAMPOLINE ...)
; x-compiling (DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ...)
; x-compiling (DEFUN INVALID-ALIEN-CALLBACK ...)
; x-compiling (DEFUN PARSE-CALLBACK-SPECIFICATION ...)
; x-compiling (DEFUN PARSE-ALIEN-FTYPE ...)
; x-compiling (DEFUN ALIEN-VOID-TYPE-P ...)
; x-compiling (DEFUN ALIEN-TYPE-WORD-ALIGNED-BITS ...)
; x-compiling (DEFUN ALIEN-CALLBACK-ARGUMENT-BYTES ...)
; x-compiling (DEFUN ENTER-ALIEN-CALLBACK ...)
; x-compiling (DEFVAR *ENTER-ALIEN-CALLBACK* ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFMACRO ALIEN-CALLBACK
;     (DEFMACRO SB!ALIEN-INTERNALS:ALIEN-CALLBACK
;               (SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV)
;       "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to
;   an alien function as a pointer to the FUNCTION. If a callback for the given
;   SPECIFIER and FUNCTION already exists, it is returned instead of consing a new
;   one."
;       (MULTIPLE-VALUE-BIND
;           (SB!ALIEN::RESULT-TYPE SB!ALIEN::ARGUMENT-TYPES SB!ALIEN::CALL-TYPE)
;           (SB!ALIEN::PARSE-ALIEN-FTYPE SB!ALIEN::SPECIFIER SB!ALIEN::ENV)
;         (SB!INT:QUASIQUOTE
;          (SB!ALIEN-INTERNALS:%SAP-ALIEN
;           (SB!ALIEN::%ALIEN-CALLBACK-SAP '# '# '# # # #)
;           '#S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!ALIEN-INTERNALS:ALIEN-CALLBACK
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (BLOCK SB!ALIEN-INTERNALS:ALIEN-CALLBACK #))))
;                    '(SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV)
;                    "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to
; an alien function as a pointer to the FUNCTION. If a callback for the given
; SPECIFIER and FUNCTION already exists, it is returned instead of consing a new
; one."
;                    '(MACRO-FUNCTION SB!ALIEN-INTERNALS:ALIEN-CALLBACK)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-ALIEN-FTYPE
; x-compiling (DEFMACRO ALIEN-CALLBACK ...)
; x-compiling (DEFUN ALIEN-CALLBACK-P ...)
; x-compiling (DEFUN ALIEN-CALLBACK-FUNCTION ...)
; x-compiling (DEFUN (SETF ALIEN-CALLBACK-FUNCTION) ...)
; x-compiling (DEFUN INVALIDATE-ALIEN-CALLBACK ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFMACRO ALIEN-LAMBDA
;     (DEFMACRO SB!ALIEN::ALIEN-LAMBDA
;               (SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST
;                &BODY SB!ALIEN::FORMS)
;       (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST)
;           (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE
;            SB!ALIEN::TYPED-LAMBDA-LIST)
;         (SB!INT:QUASIQUOTE
;          (SB!ALIEN-INTERNALS:ALIEN-CALLBACK
;           #S(SB!IMPL::COMMA :EXPR SB!ALIEN::SPECIFIER :KIND 0) (LAMBDA # #)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!ALIEN::ALIEN-LAMBDA
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (BLOCK SB!ALIEN::ALIEN-LAMBDA #))))
;                    '(SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST &BODY
;                      SB!ALIEN::FORMS)
;                    NIL '(MACRO-FUNCTION SB!ALIEN::ALIEN-LAMBDA)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-CALLBACK-SPECIFICATION
; x-compiling (DEFMACRO ALIEN-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/code/target-alieneval.lisp
; in: DEFMACRO DEFINE-ALIEN-CALLBACK
;     (DEFMACRO SB!ALIEN::DEFINE-ALIEN-CALLBACK
;               (SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST
;                &BODY SB!ALIEN::FORMS)
;       "Defines #'NAME as a function with the given body and lambda-list, and NAME as
;   the alien callback for that function with the given alien type."
;       (DECLARE (SYMBOL SB!ALIEN::NAME))
;       (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST)
;           (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE
;            SB!ALIEN::TYPED-LAMBDA-LIST)
;         (SB!INT:QUASIQUOTE (PROGN (DEFUN # # #) (DEFPARAMETER # #)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!ALIEN::DEFINE-ALIEN-CALLBACK
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # # #)
;                            (DECLARE #)
;                            (BLOCK SB!ALIEN::DEFINE-ALIEN-CALLBACK #))))
;                    '(SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE
;                      SB!ALIEN::TYPED-LAMBDA-LIST &BODY SB!ALIEN::FORMS)
;                    "Defines #'NAME as a function with the given body and lambda-list, and NAME as
; the alien callback for that function with the given alien type."
;                    '(MACRO-FUNCTION SB!ALIEN::DEFINE-ALIEN-CALLBACK)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-CALLBACK-SPECIFICATION
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFMACRO DEFINE-ALIEN-CALLBACK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:05.034
; compiling file "/«PKGBUILDDIR»/src/code/target-c-call.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFINE-ALIEN-TYPE CHAR ...)
; x-compiling (DEFINE-ALIEN-TYPE SHORT ...)
; x-compiling (DEFINE-ALIEN-TYPE INT ...)
; x-compiling (DEFINE-ALIEN-TYPE LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE LONG-LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-CHAR ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-SHORT ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-INT ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG-LONG ...)
; x-compiling (DEFINE-ALIEN-TYPE FLOAT ...)
; x-compiling (DEFINE-ALIEN-TYPE DOUBLE ...)
; x-compiling (DEFINE-ALIEN-TYPE UTF8-STRING ...)
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VOID ...)
; x-compiling (DEFUN DEFAULT-C-STRING-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN %NATURALIZE-C-STRING ...)

; file: /«PKGBUILDDIR»/src/code/target-c-call.lisp
; in: DEFUN STRING-TO-C-STRING
;     (FUNCALL (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) STRING)
; --> SB!C::%FUNCALL THE 
; ==>
;   (SB!KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; x-compiling (DEFUN STRING-TO-C-STRING ...)

; file: /«PKGBUILDDIR»/src/code/target-c-call.lisp
; in: DEFUN C-STRING-TO-STRING
;     (FUNCALL (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT)
;              SB!ALIEN::SAP SB!ALIEN::ELEMENT-TYPE)
; --> SB!C::%FUNCALL THE 
; ==>
;   (SB!KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN C-STRING-TO-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-c-call.lisp-obj-tmp written
; compilation finished in 0:00:00.603
; compiling file "/«PKGBUILDDIR»/src/code/target-allocate.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_allocate" ALLOCATE-SYSTEM-MEMORY) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_deallocate" DEALLOCATE-SYSTEM-MEMORY) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-allocate.lisp-obj-tmp written
; compilation finished in 0:00:00.101
; compiling file "/«PKGBUILDDIR»/src/code/misc-aliens.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE MEMMOVE))
; x-compiling (DEFINE-ALIEN-ROUTINE ("memmove" MEMMOVE) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_get_errno" GET-ERRNO) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN STRERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/misc-aliens.lisp-obj-tmp written
; compilation finished in 0:00:00.218
; compiling file "/«PKGBUILDDIR»/src/code/typedefs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...)
; x-compiling (DEFCONSTANT +CTYPE-HASH-MASK+ ...)
; x-compiling (DEF!STRUCT (CTYPE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFCONSTANT +TYPE-ADMITS-TYPE=-OPTIMIZATION+ ...)
; x-compiling (DEFUN MARK-CTYPE-INTERNED ...)
; x-compiling (DECLAIM (INLINE TYPE-MIGHT-CONTAIN-OTHER-TYPES-P))
; x-compiling (DEFUN TYPE-MIGHT-CONTAIN-OTHER-TYPES-P ...)
; x-compiling (DECLAIM (INLINE TYPE-ENUMERABLE))
; x-compiling (DEFUN TYPE-ENUMERABLE ...)
; x-compiling (DEFUN MAKE-TYPE-LOAD-FORM ...)
; x-compiling (DEFUN HIERARCHICAL-INTERSECTION2 ...)
; x-compiling (DEFUN HIERARCHICAL-UNION2 ...)
; x-compiling (DECLAIM (INLINE TYPE-CACHE-HASH))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN TYPE-CACHE-HASH ...)
; x-compiling (DECLAIM (INLINE TYPE-LIST-CACHE-HASH))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN TYPE-LIST-CACHE-HASH ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPEDEFS-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/typedefs.lisp-obj-tmp written
; compilation finished in 0:00:00.578
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-array.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...)
; x-compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; x-compiling (SETQ *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN VALID-BIT-BASH-SAETP-P ...)
; x-compiling (!DEFGLOBAL SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...)
; x-compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...)
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FIND-SAETP ...)
; x-compiling (DEFUN FIND-SAETP-BY-CTYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-array.lisp-obj-tmp written
; compilation finished in 0:00:00.856
; compiling file "/«PKGBUILDDIR»/src/code/weak.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN MAKE-WEAK-POINTER ...)
; x-compiling (DECLAIM (INLINE WEAK-POINTER-VALUE))
; x-compiling (DEFUN WEAK-POINTER-VALUE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/weak.lisp-obj-tmp written
; compilation finished in 0:00:00.048
; compiling file "/«PKGBUILDDIR»/src/code/array.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE ADJUSTABLE-ARRAY-P ...))
; x-compiling (DEF %ARRAY-FILL-POINTER)
; x-compiling (DEF %ARRAY-FILL-POINTER-P)
; x-compiling (DEF %ARRAY-AVAILABLE-ELEMENTS)
; x-compiling (DEF %ARRAY-DATA-VECTOR)
; x-compiling (DEF %ARRAY-DISPLACEMENT)
; x-compiling (DEF %ARRAY-DISPLACED-P)
; x-compiling (DEF %ARRAY-DIPLACED-FROM)
; x-compiling (DEFUN %ARRAY-RANK ...)
; x-compiling (DEFUN %ARRAY-DIMENSION ...)
; x-compiling (DEFUN %SET-ARRAY-DIMENSION ...)
; x-compiling (DEFUN %CHECK-BOUND ...)
; x-compiling (DEFUN %WITH-ARRAY-DATA/FP ...)
; x-compiling (DEFUN %WITH-ARRAY-DATA ...)
; x-compiling (DEFUN %DATA-VECTOR-AND-INDEX ...)
; x-compiling (DEFUN %INTEGER-VECTOR-WIDETAG-AND-N-BITS ...)
; x-compiling (DEFUN %VECTOR-WIDETAG-AND-N-BITS ...)
; x-compiling (DEFUN %COMPLEX-VECTOR-WIDETAG ...)
; x-compiling (DEFGLOBAL %%SIMPLE-ARRAY-N-BITS%% ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN ALLOCATE-VECTOR-WITH-WIDETAG ...)
; x-compiling (DEFUN ARRAY-UNDERLYING-WIDETAG ...)
; x-compiling (DEFUN VALIDATE-ARRAY-INITARGS ...)
; x-compiling (DEFUN %MAKE-ARRAY ...)
; x-compiling (DEFUN MAKE-ARRAY ...)
; x-compiling (DEFUN MAKE-STATIC-VECTOR ...)
; x-compiling (DEFUN DATA-VECTOR-FROM-INITS ...)
; x-compiling (DEFUN VECTOR ...)
; x-compiling (DEF !FIND-DATA-VECTOR-SETTER ...)
; x-compiling (DEF !FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ...)
; x-compiling (DEF %FIND-DATA-VECTOR-REFFER ...)
; x-compiling (DEF !FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS ...)
; x-compiling (DEFMACRO DO-VECTOR-DATA ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-REF
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF SB!IMPL::%FIND-DATA-VECTOR-REFFER NIL
;      (PROGN))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY670)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF VECTOR SB!INT:INDEX)
; 
; 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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-SET
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET SB!IMPL::!FIND-DATA-VECTOR-SETTER
;      (SB!IMPL::NEW-VALUE) (PROGN))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY691)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-SET VECTOR SB!INT:INDEX SB!IMPL::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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;      SB!IMPL::!FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS NIL
;      (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0)))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY712)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX))
; 
; 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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;      SB!IMPL::!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS (SB!IMPL::NEW-VALUE)
;      (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0)))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:N-ARRAY734)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX)
;    (THE * 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.
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; x-compiling (DEFUN HAIRY-REF-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS%%
;      SB!IMPL::DEFINE-SETTER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB!KERNEL:DATA-VECTOR-SET (THE (SIMPLE-ARRAY NIL (*)) VECTOR)
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SAFETY 1)))
;     (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1)))
;     (THE NIL SB!IMPL::NEW-VALUE)))
; 
; note: The third argument never returns a value.

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS/CHECK-BOUNDS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%%
;      SB!IMPL::DEFINE-SETTER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR))
;      #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB!KERNEL:DATA-VECTOR-SET (THE (SIMPLE-ARRAY NIL (*)) VECTOR)
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SAFETY 1)))
;     (THE SB!INT:INDEX
;          (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR) SB!INT:INDEX)))
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1)))
;     (THE NIL SB!IMPL::NEW-VALUE)))
; 
; note: The third argument never returns a value.

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS%%
;      SB!IMPL::DEFINE-REFFER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing complex single float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing complex double float to pointer coercion (cost 13) to "<return value>"

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS/CHECK-BOUNDS%%
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS/CHECK-BOUNDS%%
;      SB!IMPL::DEFINE-REFFER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR))
;      #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE 
; --> SB!KERNEL:DATA-VECTOR-SET THE SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing complex single float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;         (VECTOR SB!INT:INDEX)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                (IGNORABLE SB!INT:INDEX))
;       (SB!KERNEL:DATA-VECTOR-REF
;        (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR)
;        (LOCALLY
;         (DECLARE (OPTIMIZE #))
;         (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing complex double float to pointer coercion (cost 13) to "<return value>"
; x-compiling (DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT ...)
; x-compiling (DEFUN DATA-VECTOR-REF ...)
; x-compiling (DEFUN DATA-VECTOR-REF-WITH-OFFSET ...)
; x-compiling (DEFUN INVALID-ARRAY-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN INVALID-ARRAY-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN INVALID-ARRAY-INDEX-ERROR ...)
; x-compiling (DEFUN %ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFUN ARRAY-IN-BOUNDS-P ...)
; x-compiling (DEFUN ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFUN AREF ...)
; x-compiling (DEFUN (SETF AREF) ...)
; x-compiling (DEFUN ROW-MAJOR-AREF ...)
; x-compiling (DEFUN %SET-ROW-MAJOR-AREF ...)
; x-compiling (DEFUN SVREF ...)
; x-compiling (DEFUN %SVSET ...)
; x-compiling (DEFUN BIT ...)
; x-compiling (DEFUN (SETF BIT) ...)
; x-compiling (DEFUN SBIT ...)
; x-compiling (DEFUN (SETF SBIT) ...)
; x-compiling (DEFUN ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN ARRAY-RANK ...)
; x-compiling (DEFUN ARRAY-DIMENSION ...)
; x-compiling (DEFUN ARRAY-DIMENSIONS ...)
; x-compiling (DEFUN ARRAY-TOTAL-SIZE ...)
; x-compiling (DEFUN ARRAY-DISPLACEMENT ...)
; x-compiling (DEFUN ADJUSTABLE-ARRAY-P ...)
; x-compiling (DECLAIM (INLINE ARRAY-HAS-FILL-POINTER-P))
; x-compiling (DEFUN ARRAY-HAS-FILL-POINTER-P ...)
; x-compiling (DEFUN FILL-POINTER-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DECLAIM (INLINE FILL-POINTER)
;     (DECLAIM (INLINE FILL-POINTER))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE FILL-POINTER) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:FILL-POINTER to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE FILL-POINTER))
; x-compiling (DEFUN FILL-POINTER ...)
; x-compiling (DEFUN %SET-FILL-POINTER ...)
; x-compiling (DEFUN VECTOR-PUSH ...)
; x-compiling (DEFUN VECTOR-PUSH-EXTEND ...)
; x-compiling (DEFUN VECTOR-POP ...)
; x-compiling (DEFUN ADJUST-ARRAY ...)
; x-compiling (DEFUN GET-NEW-FILL-POINTER ...)
; x-compiling (DEFUN %SHRINK-VECTOR ...)
; x-compiling (DEFUN SHRINK-VECTOR ...)
; x-compiling (DEFUN %SAVE-DISPLACED-ARRAY-BACKPOINTER ...)
; x-compiling (DEFUN %WALK-DISPLACED-ARRAY-BACKPOINTERS ...)
; x-compiling (DEFUN SET-ARRAY-HEADER ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ARRAY-STORAGE-VECTOR ...)
; x-compiling (DEFUN ZAP-ARRAY-DATA ...)
; x-compiling (DEFUN ZAP-ARRAY-DATA-AUX ...)
; x-compiling (DEFUN ROW-MAJOR-INDEX-FROM-DIMS ...)
; x-compiling (DEFUN BIT-ARRAY-SAME-DIMENSIONS-P ...)
; x-compiling (DEFUN PICK-RESULT-ARRAY ...)
; x-compiling (DEFMACRO DEF-BIT-ARRAY-OP ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-AND ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-IOR ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-XOR ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-EQV ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-NAND ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEF-BIT-ARRAY-OP BIT-NOR
;     (SB!IMPL::DEF-BIT-ARRAY-OP BIT-NOR LOGNOR)
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY 
; --> RETURN-FROM PROGN SETF SB!KERNEL:%SET-VECTOR-RAW-BITS 
; --> SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 -1) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &REST
;                                                                           T).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY 
; --> RETURN-FROM PROGN SETF SB!KERNEL:%SET-VECTOR-RAW-BITS 
; --> SB!KERNEL:WORD-LOGICAL-NOR 
; ==>
;   (LOGAND (LOGNOR SB!C::X SB!C::Y) 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967296 -1), not a (SIGNED-BYTE 32).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY 
; --> SETF SB!KERNEL:%SET-VECTOR-RAW-BITS SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 -1) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &REST
;                                                                           T).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY 
; --> SETF SB!KERNEL:%SET-VECTOR-RAW-BITS SB!KERNEL:WORD-LOGICAL-NOR 
; ==>
;   (LOGAND (LOGNOR SB!C::X SB!C::Y) 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967296 -1), not a (SIGNED-BYTE 32).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY 
; --> SETF SB!KERNEL:%SET-VECTOR-RAW-BITS SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET IF LOCALLY BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY 
; --> RETURN-FROM PROGN SETF SB!KERNEL:%SET-VECTOR-RAW-BITS 
; --> SB!KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB!C::X SB!C::Y)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEF-BIT-ARRAY-OP BIT-NOR ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC1 ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC2 ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC1 ...)
; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC2 ...)
; x-compiling (DEFUN BIT-NOT ...)

; file: /«PKGBUILDDIR»/src/code/array.lisp
; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS
;     (TYPECASE SB!KERNEL:CTYPE
;       (SB!KERNEL:UNION-TYPE
;        (LET ((SB!IMPL::TYPES #))
;          (COND (# #) (# #) (# #) (# #) (T #))))
;       (SB!KERNEL:CHARACTER-SET-TYPE
;        (IF (LOOP SB!IMPL::FOR (SB!IMPL::START
;                                . SB!IMPL::END) SB!IMPL::IN (SB!KERNEL:CHARACTER-SET-TYPE-PAIRS
;                                                             SB!KERNEL:CTYPE)
;                  SB!IMPL::ALWAYS (AND # #))
;            (SB!IMPL::RESULT SB!VM:SIMPLE-BASE-STRING-WIDETAG)
;            (SB!IMPL::RESULT SB!VM:SIMPLE-CHARACTER-STRING-WIDETAG)))
;       (T
;        (LET ((SB!IMPL::EXPANSION #))
;          (IF (EQUAL SB!IMPL::EXPANSION TYPE)
;              (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG)
;              (SB!IMPL::%VECTOR-WIDETAG-AND-N-BITS SB!IMPL::EXPANSION)))))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G5571 'SB!KERNEL:CHARACTER-SET-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: CHARACTER-SET-TYPE

;     (HANDLER-CASE (SB!KERNEL:SPECIFIER-TYPE TYPE)
;                   (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL
;                    (RETURN (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG))))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: PARSE-UNKNOWN-TYPE

;     (TYPECASE SB!KERNEL:CTYPE
;       (SB!KERNEL:UNION-TYPE
;        (LET ((SB!IMPL::TYPES #))
;          (COND (# #) (# #) (# #) (# #) (T #))))
;       (SB!KERNEL:CHARACTER-SET-TYPE
;        (IF (LOOP SB!IMPL::FOR (SB!IMPL::START
;                                . SB!IMPL::END) SB!IMPL::IN (SB!KERNEL:CHARACTER-SET-TYPE-PAIRS
;                                                             SB!KERNEL:CTYPE)
;                  SB!IMPL::ALWAYS (AND # #))
;            (SB!IMPL::RESULT SB!VM:SIMPLE-BASE-STRING-WIDETAG)
;            (SB!IMPL::RESULT SB!VM:SIMPLE-CHARACTER-STRING-WIDETAG)))
;       (T
;        (LET ((SB!IMPL::EXPANSION #))
;          (IF (EQUAL SB!IMPL::EXPANSION TYPE)
;              (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG)
;              (SB!IMPL::%VECTOR-WIDETAG-AND-N-BITS SB!IMPL::EXPANSION)))))
; --> LET COND IF 
; ==>
;   (TYPEP #:G5571 'SB!KERNEL:UNION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNION-TYPE
; 
; compilation unit finished
;   Undefined types:
;     CHARACTER-SET-TYPE PARSE-UNKNOWN-TYPE UNION-TYPE
;   caught 4 STYLE-WARNING conditions
;   printed 36 notes
; x-compiling (DEFMACRO DEFINE-ARRAY-DISPATCH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/array.lisp-obj-tmp written
; compilation finished in 0:00:18.163
; compiling file "/«PKGBUILDDIR»/src/code/early-float.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN SINGLE-FROM-BITS ...)
; x-compiling (DEFUN DOUBLE-FROM-BITS ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-SINGLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-SHORT-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-POSITIVE-LONG-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-DOUBLE-FLOAT ...)
; x-compiling (DEFCONSTANT MOST-NEGATIVE-LONG-FLOAT ...)
; x-compiling (LET NIL ...)
; x-compiling (DEFCONSTANT SINGLE-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT SHORT-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT SINGLE-FLOAT-NEGATIVE-EPSILON ...)
; x-compiling (DEFCONSTANT SHORT-FLOAT-NEGATIVE-EPSILON ...)
; x-compiling (DEFCONSTANT DOUBLE-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT LONG-FLOAT-EPSILON ...)
; x-compiling (DEFCONSTANT DOUBLE-FLOAT-NEGATIVE-EPSILON ...)
; x-compiling (DEFCONSTANT LONG-FLOAT-NEGATIVE-EPSILON ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-float.lisp-obj-tmp written
; compilation finished in 0:00:00.696
; compiling file "/«PKGBUILDDIR»/src/code/target-sxhash.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN POINTER-HASH ...)
; x-compiling (DEFCONSTANT +MAX-HASH-DEPTHOID+ ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (INLINE MIX))
; x-compiling (DEFUN MIX ...)
; x-compiling (DECLAIM (INLINE ADDRESS-BASED-COUNTER-VAL))
; x-compiling (DEFUN ADDRESS-BASED-COUNTER-VAL ...)
; x-compiling (DEFUN QUASI-RANDOM-ADDRESS-BASED-HASH ...)
; x-compiling (DECLAIM (INLINE %SXHASH-SUBSTRING))

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN %SXHASH-SUBSTRING
;     (AREF STRING SB!IMPL::I)
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER)
;                               BASE-STRING), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER)
;                               BASE-STRING), not a SIMPLE-ARRAY.
; x-compiling (DEFUN %SXHASH-SUBSTRING ...)
; x-compiling (DEFUN %SXHASH-SIMPLE-STRING ...)
; x-compiling (DEFUN %SXHASH-SIMPLE-SUBSTRING ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN SXHASH
;     (TYPECASE SB!IMPL::X
;       (PATHNAME
;        (LET ((SB!INT:HASH #))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (LET (#)
;            (SB!INT:MIXF SB!INT:HASH #))))
;       (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;       ((OR STRUCTURE-OBJECT CONDITION)
;        (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #))))
;       (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))
; --> LET COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR LET IF 
; --> OR THE 
; ==>
;   (TYPEP #:N-OBJ48 'CONDITION)
; 
; note: can't open-code test of unknown type CONDITION

;     (TYPECASE SB!IMPL::X
;       (LIST
;        (IF (NULL SB!IMPL::X)
;            (SXHASH SB!IMPL::X)
;            (IF (PLUSP SB!IMPL::DEPTHOID)
;                (SB!INT:MIX # #)
;                261835505)))
;       (SB!KERNEL:INSTANCE
;        (TYPECASE SB!IMPL::X
;          (PATHNAME
;           (LET #
;             #
;             #
;             #
;             #
;             #))
;          (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;          ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #))
;          (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))))
;       (SYMBOL (SXHASH SB!IMPL::X))
;       (ARRAY
;        (TYPECASE SB!IMPL::X
;          (SIMPLE-STRING (SXHASH SB!IMPL::X))
;          (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X))
;          (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X))
;          (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (T (LOGXOR 191020317 #))))
;       (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X))))
;       (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X))
;       (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))
;       (T 42))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G7420 'GENERIC-FUNCTION)
; 
; note: can't open-code test of unknown type GENERIC-FUNCTION

;     (REALPART SB!IMPL::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (IMAGPART SB!IMPL::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X)
; --> BLOCK MACROLET LET UNLESS IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> SB!IMPL::SET-RESULT SETF SETQ THE SB-XC:LDB SB!KERNEL:%LDB + CHAR-CODE 
; --> AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

;     (REALPART SB!IMPL::X)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (IMAGPART SB!IMPL::X)
; 
; note: forced to do full call
;       unable to do complex single float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).
; x-compiling (DEFUN SXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN PSXHASH
;     (CHAR-UPCASE SB!IMPL::KEY)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

;     (SXHASH SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first 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.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SIMPLE-BIT-VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SIMPLE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SYMBOL.
; x-compiling (DEFUN PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN ARRAY-PSXHASH
;     (SB!IMPL::MAKE-DISPATCH
;      (SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) SIMPLE-VECTOR
;       (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (SIMPLE-ARRAY FIXNUM (*)) T))
; --> TYPECASE LET COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF PROGN 
; --> DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:PSXHASH 
; --> CHAR-CODE 
; ==>
;   (CHAR-UPCASE SB!C::X)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

; --> TYPECASE LET COND IF COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF 
; --> PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* 
; ==>
;   (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN 
; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> SB!INT:MIXF LET* SB!INT:PSXHASH AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN 
; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> SB!INT:MIXF LET* 
; ==>
;   (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ARRAY-TOTAL-SIZE SB!IMPL::KEY)
; 
; note: unable to optimize because: can't tell the rank at compile time

;     (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I)
; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF SB!KERNEL:%CHECK-BOUND 
; ==>
;   (ARRAY-TOTAL-SIZE ARRAY)
; 
; note: unable to optimize because: can't tell the rank at compile time

; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-TOTAL-SIZE ARRAY) SB!INT:INDEX))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a ARRAY, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a ARRAY, not a SIMPLE-ARRAY.

;     (SB!INT:PSXHASH (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ARRAY-DIMENSION SB!IMPL::KEY SB!IMPL::I)
; 
; note: unable to optimize because: The axis is not constant.
; x-compiling (DEFUN ARRAY-PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN STRUCTURE-OBJECT-PSXHASH
;     (SB!INT:PSXHASH (SB!KERNEL:%INSTANCE-REF SB!IMPL::KEY SB!IMPL::I)
;      SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ZEROP (DECF SB!IMPL::MAX-ITERATIONS))
; ==>
;   (= (DECF SB!IMPL::MAX-ITERATIONS) 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.
; x-compiling (DEFUN STRUCTURE-OBJECT-PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN LIST-PSXHASH
;     (SB!INT:PSXHASH (CAR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (SB!INT:PSXHASH (CDR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.
; x-compiling (DEFUN LIST-PSXHASH ...)
; x-compiling (DEFUN HASH-TABLE-PSXHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-sxhash.lisp
; in: DEFUN NUMBER-PSXHASH
;     (SB!IMPL::FROB DOUBLE-FLOAT)
; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (SB!IMPL::FROB SINGLE-FLOAT)
; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (SB!IMPL::FROB DOUBLE-FLOAT)
; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (SXHASH SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (= (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT) SB!IMPL::KEY)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; because:
;   The RATIONAL value isn't known at compile time.
; 
; note: unable to open code because: The operands might not be the same type.

;     (SXHASH SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a RATIONAL, not a FIXNUM.

;     (IMAGPART SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (ZEROP (IMAGPART SB!IMPL::KEY))
; ==>
;   (= (IMAGPART SB!IMPL::KEY) 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (REALPART SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a COMPLEX, not a (COMPLEX RATIONAL).

;     (SB!IMPL::FROB SINGLE-FLOAT)
; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (SXHASH SB!IMPL::Q)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a INTEGER, not a FIXNUM.

;     (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT)
; --> THE 
; ==>
;   (SB!KERNEL:%DOUBLE-FLOAT SB!C::X)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 32).
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 32).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (REALPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (REALPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; in: DEFUN SXHASH
;     (DEFUN SXHASH (SB!IMPL::X)
;       (DECLARE (OPTIMIZE SPEED))
;       (LABELS ((SB!IMPL::SXHASH-NUMBER (SB!IMPL::X)
;                  (ETYPECASE SB!IMPL::X # # # # # #))
;                (SB!IMPL::SXHASH-RECURSE (SB!IMPL::X SB!IMPL::DEPTHOID)
;                  (DECLARE #)
;                  (TYPECASE SB!IMPL::X # # # # # # # #)))
;         (SB!IMPL::SXHASH-RECURSE SB!IMPL::X SB!IMPL::+MAX-HASH-DEPTHOID+)))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SXHASH
;    (SB!INT:NAMED-LAMBDA SXHASH
;        (SB!IMPL::X)
;      (DECLARE (OPTIMIZE SPEED))
;      (BLOCK SXHASH
;        (LABELS (# #)
;          (SB!IMPL::SXHASH-RECURSE SB!IMPL::X SB!IMPL::+MAX-HASH-DEPTHOID+))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

;     (TYPECASE SB!IMPL::X
;       (PATHNAME
;        (LET ((SB!INT:HASH #))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (LET (#)
;            (SB!INT:MIXF SB!INT:HASH #))))
;       (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;       ((OR STRUCTURE-OBJECT CONDITION)
;        (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #))))
;       (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))
; --> LET COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G7423 '(OR STRUCTURE-OBJECT CONDITION))
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

;     (TYPECASE SB!IMPL::X
;       (LIST
;        (IF (NULL SB!IMPL::X)
;            (SXHASH SB!IMPL::X)
;            (IF (PLUSP SB!IMPL::DEPTHOID)
;                (SB!INT:MIX # #)
;                261835505)))
;       (SB!KERNEL:INSTANCE
;        (TYPECASE SB!IMPL::X
;          (PATHNAME
;           (LET #
;             #
;             #
;             #
;             #
;             #))
;          (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X))
;          ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #))
;          (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))))
;       (SYMBOL (SXHASH SB!IMPL::X))
;       (ARRAY
;        (TYPECASE SB!IMPL::X
;          (SIMPLE-STRING (SXHASH SB!IMPL::X))
;          (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X))
;          (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X))
;          (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID))
;          (T (LOGXOR 191020317 #))))
;       (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X))))
;       (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X))
;       (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))
;       (T 42))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G7420 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION
; 
; compilation unit finished
;   Undefined types:
;     CONDITION GENERIC-FUNCTION
;   caught 3 STYLE-WARNING conditions
;   printed 60 notes
; x-compiling (DEFUN NUMBER-PSXHASH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-sxhash.lisp-obj-tmp written
; compilation finished in 0:00:02.760
; compiling file "/«PKGBUILDDIR»/src/code/list.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL ...))
; x-compiling (DEFUN CAR ...)
; x-compiling (DEFUN CDR ...)
; x-compiling (DEFUN CADR ...)
; x-compiling (DEFUN CDAR ...)
; x-compiling (DEFUN CAAR ...)
; x-compiling (DEFUN CDDR ...)
; x-compiling (DEFUN CADDR ...)
; x-compiling (DEFUN CAADR ...)
; x-compiling (DEFUN CAAAR ...)
; x-compiling (DEFUN CDAAR ...)
; x-compiling (DEFUN CDDAR ...)
; x-compiling (DEFUN CDDDR ...)
; x-compiling (DEFUN CADAR ...)
; x-compiling (DEFUN CDADR ...)
; x-compiling (DEFUN CAAAAR ...)
; x-compiling (DEFUN CAAADR ...)
; x-compiling (DEFUN CAADDR ...)
; x-compiling (DEFUN CADDDR ...)
; x-compiling (DEFUN CDDDDR ...)
; x-compiling (DEFUN CDAAAR ...)
; x-compiling (DEFUN CDDAAR ...)
; x-compiling (DEFUN CDDDAR ...)
; x-compiling (DEFUN CAADAR ...)
; x-compiling (DEFUN CADAAR ...)
; x-compiling (DEFUN CADADR ...)
; x-compiling (DEFUN CADDAR ...)
; x-compiling (DEFUN CDAADR ...)
; x-compiling (DEFUN CDADAR ...)
; x-compiling (DEFUN CDADDR ...)
; x-compiling (DEFUN CDDADR ...)
; x-compiling (DEFUN CONS ...)
; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL-TEST ...))
; x-compiling (DEFUN TREE-EQUAL-TEST-NOT ...)
; x-compiling (DEFUN TREE-EQUAL-TEST ...)
; x-compiling (DEFUN TREE-EQUAL ...)
; x-compiling (DEFUN ENDP ...)
; x-compiling (DEFUN LIST-LENGTH ...)
; x-compiling (DEFUN NTH ...)
; x-compiling (DEFUN FIRST ...)
; x-compiling (DEFUN SECOND ...)
; x-compiling (DEFUN THIRD ...)
; x-compiling (DEFUN FOURTH ...)
; x-compiling (DEFUN FIFTH ...)
; x-compiling (DEFUN SIXTH ...)
; x-compiling (DEFUN SEVENTH ...)
; x-compiling (DEFUN EIGHTH ...)
; x-compiling (DEFUN NINTH ...)
; x-compiling (DEFUN TENTH ...)
; x-compiling (DEFUN REST ...)
; x-compiling (DEFUN NTHCDR ...)
; x-compiling (DEFUN %LAST0 ...)
; x-compiling (DEFUN %LAST1 ...)
; x-compiling (DEFUN %LASTN/FIXNUM ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEFUN %LASTN/BIGNUM
;     (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE)
; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF SETQ THE MULTIPLE-VALUE-BIND 
; --> LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY 
; --> AND THE >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (DEFUN SB!KERNEL:%LASTN/BIGNUM (LIST SB!IMPL::N)
;       (DECLARE (OPTIMIZE SPEED (SB!C:VERIFY-ARG-COUNT 0))
;                (TYPE (AND UNSIGNED-BYTE BIGNUM) SB!IMPL::N))
;       (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; x-compiling (DEFUN %LASTN/BIGNUM ...)
; x-compiling (DEFUN LAST ...)
; x-compiling (DEFINE-COMPILER-MACRO LAST ...)
; x-compiling (DEFUN LIST ...)
; x-compiling (DEFUN LIST* ...)
; x-compiling (DEFUN MAKE-LIST ...)
; x-compiling (DEFUN APPEND ...)
; x-compiling (DEFUN APPEND2 ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEFINE-COMPILER-MACRO APPEND
;     (DEFINE-COMPILER-MACRO APPEND
;         (&WHOLE SB!KERNEL:FORM &REST SB!IMPL::LISTS)
;       (CASE (LENGTH SB!IMPL::LISTS)
;         (0 NIL)
;         (1 (CAR SB!IMPL::LISTS))
;         (2 (SB!INT:QUASIQUOTE (SB!IMPL::APPEND2 #)))
;         (T SB!KERNEL:FORM)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'APPEND
;                                 #'(LAMBDA (#:WHOLE230 #:ENVIRONMENT231)
;                                     (DECLARE (IGNORE #:ENVIRONMENT231))
;                                     (LET* ((#:CMACRO-&WHOLE7747 #:WHOLE230)
;                                            (#:WHOLE230 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE7747))
;                                       (LET* (# #)
;                                         (BLOCK APPEND #))))
;                                 '(&WHOLE SB!KERNEL:FORM &REST SB!IMPL::LISTS)
;                                 NIL '(COMPILER-MACRO-FUNCTION APPEND))
; 
; caught STYLE-WARNING:
;   55 calls to COMMON-LISP:APPEND were compiled before a compiler-macro was
;   defined for it. A declaration of NOTINLINE at the call sites will eliminate
;   this warning, as will defining the compiler-macro before its first potential
;   use.
; x-compiling (DEFINE-COMPILER-MACRO APPEND ...)
; x-compiling (SB-XC:DEFMACRO !COPY-LIST-MACRO ...)
; x-compiling (DEFUN COPY-LIST ...)
; x-compiling (DEFUN COPY-ALIST ...)
; x-compiling (DEFUN COPY-TREE ...)
; x-compiling (DEFUN REVAPPEND ...)
; x-compiling (DEFUN NCONC ...)
; x-compiling (DEFUN NRECONC ...)
; x-compiling (DEFUN BUTLAST ...)
; x-compiling (DEFUN NBUTLAST ...)
; x-compiling (DEFUN LDIFF ...)
; x-compiling (DEFUN RPLACA ...)
; x-compiling (DEFUN RPLACD ...)
; x-compiling (DEFUN %RPLACA ...)
; x-compiling (DEFUN %RPLACD ...)
; x-compiling (DEFUN %SETNTH ...)
; x-compiling (DEFMACRO APPLY-KEY ...)
; x-compiling (DEFMACRO WITH-SET-KEYS ...)
; x-compiling (DEFMACRO SATISFIES-THE-TEST ...)
; x-compiling (DEFUN SUBST ...)
; x-compiling (DEFUN SUBST-IF ...)
; x-compiling (DEFUN SUBST-IF-NOT ...)
; x-compiling (DEFUN NSUBST ...)
; x-compiling (DEFUN NSUBST-IF ...)
; x-compiling (DEFUN NSUBST-IF-NOT ...)
; x-compiling (DEFUN SUBLIS ...)
; x-compiling (DEFMACRO NSUBLIS-MACRO ...)
; x-compiling (DEFUN NSUBLIS ...)
; x-compiling (DEFUN MEMBER ...)
; x-compiling (DEFUN MEMBER-IF ...)
; x-compiling (DEFUN MEMBER-IF-NOT ...)
; x-compiling (DEFUN TAILP ...)
; x-compiling (DEFUN ADJOIN ...)
; x-compiling (DEFCONSTANT +LIST-BASED-UNION-LIMIT+ ...)
; x-compiling (DEFUN UNION ...)
; x-compiling (DEFMACRO STEVE-SPLICE ...)
; x-compiling (DEFUN NUNION ...)
; x-compiling (DEFUN INTERSECTION ...)
; x-compiling (DEFUN NINTERSECTION ...)
; x-compiling (DEFUN SET-DIFFERENCE ...)
; x-compiling (DEFUN NSET-DIFFERENCE ...)
; x-compiling (DEFUN SET-EXCLUSIVE-OR ...)
; x-compiling (DEFUN NSET-EXCLUSIVE-OR ...)
; x-compiling (DEFUN SUBSETP ...)
; x-compiling (DEFUN ACONS ...)
; x-compiling (DEFUN PAIRLIS ...)
; x-compiling (DEFUN ASSOC ...)
; x-compiling (DEFUN ASSOC-IF ...)
; x-compiling (DEFUN ASSOC-IF-NOT ...)
; x-compiling (DEFUN RASSOC ...)
; x-compiling (DEFUN RASSOC-IF ...)
; x-compiling (DEFUN RASSOC-IF-NOT ...)
; x-compiling (DEFUN MAP1 ...)
; x-compiling (DEFUN MAPC ...)
; x-compiling (DEFUN MAPCAR ...)
; x-compiling (DEFUN MAPCAN ...)
; x-compiling (DEFUN MAPL ...)
; x-compiling (DEFUN MAPLIST ...)
; x-compiling (DEFUN MAPCON ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEF ()
;     (EQL SB!IMPL::X SB!IMPL::TARGET)
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; x-compiling (DEF NIL ...)
; x-compiling (DEF NIL ...)

; file: /«PKGBUILDDIR»/src/code/list.lisp
; in: DEF (KEY)
;     (EQL SB!IMPL::X (FUNCALL SB!IMPL::KEY SB!IMPL::TARGET))
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; x-compiling (DEF (KEY) ...)
; x-compiling (DEF (KEY) ...)
; x-compiling (DEF (KEY TEST) ...)
; x-compiling (DEF (KEY TEST-NOT) ...)
; x-compiling (DEF (TEST) ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 26 notes
; x-compiling (DEF (TEST-NOT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/list.lisp-obj-tmp written
; compilation finished in 0:00:08.154
; compiling file "/«PKGBUILDDIR»/src/code/seq.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %CHECK-GENERIC-SEQUENCE-BOUNDS ...)
; x-compiling (DEFPARAMETER *SEQUENCE-KEYWORD-INFO* ...)
; x-compiling (SB-XC:DEFMACRO DEFINE-SEQUENCE-TRAVERSER ...)
; x-compiling (SB-XC:DEFMACRO SEQ-DISPATCH ...)
; x-compiling (SB-XC:DEFMACRO SEQ-DISPATCH-CHECKING ...)
; x-compiling (SB-XC:DEFMACRO %MAKE-SEQUENCE-LIKE ...)
; x-compiling (SB-XC:DEFMACRO BAD-SEQUENCE-TYPE-ERROR ...)
; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR ...)
; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-TOO-HAIRY ...)
; x-compiling (DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ...)
; x-compiling (DEFUN VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH ...)
; x-compiling (DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SIGNAL-INDEX-TOO-LARGE-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CIRCULAR-LIST-ERROR ...)
; x-compiling (DEFUN EMPTYP ...)
; x-compiling (DEFUN ELT ...)
; x-compiling (DEFUN %SETELT ...)
; x-compiling (DEFUN LENGTH ...)
; x-compiling (DEFUN MAKE-SEQUENCE ...)
; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-SUBSEQ-DISPATCH ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN VECTOR-SUBSEQ*
;     (SB!KERNEL:WITH-ARRAY-DATA
;      ((SB!IMPL::DATA SEQUENCE) (SB!IMPL::START SB!IMPL::START)
;       (SB!IMPL::END SB!IMPL::END) :CHECK-FILL-POINTER T :FORCE-INLINE T)
;      (SB!IMPL::VECTOR-SUBSEQ-DISPATCH SB!IMPL::DATA SB!IMPL::START SB!IMPL::END))
; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM 
; --> PROGN VALUES THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1035 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1037 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY PSETQ LET* 
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1040 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN VECTOR-SUBSEQ* ...)
; x-compiling (DEFUN LIST-SUBSEQ* ...)
; x-compiling (DEFUN SUBSEQ ...)
; x-compiling (DEFUN COPY-SEQ ...)
; x-compiling (DEFUN LIST-COPY-SEQ* ...)
; x-compiling (DEFUN LIST-FILL* ...)
; x-compiling (DEFUN VECTOR-FILL* ...)
; x-compiling (DEFUN STRING-FILL* ...)
; x-compiling (DEFUN FILL ...)
; x-compiling (DEFUN LIST-REPLACE-FROM-LIST* ...)
; x-compiling (DEFUN LIST-REPLACE-FROM-VECTOR* ...)
; x-compiling (DEFUN VECTOR-REPLACE-FROM-LIST* ...)
; x-compiling (DEFUN VECTOR-REPLACE-FROM-VECTOR* ...)
; x-compiling (DEFUN SIMPLE-CHARACTER-STRING-REPLACE-FROM-SIMPLE-CHARACTER-STRING* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REPLACE ...)
; x-compiling (DEFUN REVERSE ...)
; x-compiling (DEFUN LIST-REVERSE* ...)
; x-compiling (DEFUN VECTOR-REVERSE* ...)
; x-compiling (DEFUN LIST-NREVERSE* ...)
; x-compiling (DEFUN VECTOR-NREVERSE* ...)
; x-compiling (DEFUN NREVERSE ...)
; x-compiling (DEFMACRO SB!SEQUENCE:DOSEQUENCE ...)
; x-compiling (DEFUN CONCATENATE ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEF %CONCATENATE-TO-STRING
;     (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-STRING CHARACTER)
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY 
; --> SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF COND IF COND IF PROGN 
; --> #:STRING-DISPATCH-FUN1676 BLOCK 
; ==>
;   (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* MAPCAR LET LET SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY 
; --> SB!KERNEL:%RPLACD SETQ THE LIST CONS FUNCALL SB!C::%FUNCALL 
; ==>
;   (LENGTH (CAR #:G9453))
; 
; 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.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY INCF SETQ 
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1744 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEF %CONCATENATE-TO-STRING ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEF %CONCATENATE-TO-BASE-STRING
;     (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-BASE-STRING BASE-CHAR)
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY 
; --> SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF COND IF COND IF PROGN 
; --> #:STRING-DISPATCH-FUN1750 BLOCK 
; ==>
;   (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* MAPCAR LET LET SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY 
; --> SB!KERNEL:%RPLACD SETQ THE LIST CONS FUNCALL SB!C::%FUNCALL 
; ==>
;   (LENGTH (CAR #:G9495))
; 
; 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.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY INCF SETQ 
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1821 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEF %CONCATENATE-TO-BASE-STRING ...)
; x-compiling (DEFUN %MAP-TO-LIST-ARITY-1 ...)
; x-compiling (DEFUN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...)
; x-compiling (DEFUN %MAP-FOR-EFFECT-ARITY-1 ...)
; x-compiling (DECLAIM (MAYBE-INLINE %MAP-FOR-EFFECT))
; x-compiling (DEFUN %MAP-FOR-EFFECT ...)
; x-compiling (DEFUN %MAP-TO-LIST ...)
; x-compiling (DEFUN %MAP-TO-VECTOR ...)
; x-compiling (DEFUN %MAP ...)
; x-compiling (DEFUN MAP ...)
; x-compiling (DEFMACRO MAP-INTO-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO
;     (INCF SB!INT:INDEX)
; --> SETQ THE + 
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code
; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN MAP-INTO
;     (DEFUN MAP-INTO (SB!IMPL::RESULT-SEQUENCE FUNCTION &REST SB!IMPL::SEQUENCES)
;       (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)))
;         (ETYPECASE SB!IMPL::RESULT-SEQUENCE
;           (VECTOR (SB!KERNEL:WITH-ARRAY-DATA # #))
;           (LIST
;            (LET #
;              #
;              #))
;           (SEQUENCE (MULTIPLE-VALUE-BIND # # #))))
;       SB!IMPL::RESULT-SEQUENCE)
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (BLOCK MAP-INTO
;     (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)))
;       (ETYPECASE SB!IMPL::RESULT-SEQUENCE
;         (VECTOR (SB!KERNEL:WITH-ARRAY-DATA # #))
;         (LIST
;          (LET #
;            #
;            #))
;         (SEQUENCE (MULTIPLE-VALUE-BIND # # #))))
;     SB!IMPL::RESULT-SEQUENCE)
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM MAP-INTO RESULT-SEQUENCE). Use GO/RETURN-FROM with SAFETY 0, or
; declare the exit function DYNAMIC-EXTENT to avoid.
; x-compiling (DEFUN MAP-INTO ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFQUANTIFIER SOME
;     (SB!IMPL::DEFQUANTIFIER SOME WHEN SB!IMPL::PRED-VALUE :UNFOUND-RESULT NIL
;      :DOC "Apply PREDICATE to the 0-indexed elements of the sequences, then
;      possibly to those with index 1, and so on. Return the first
;      non-NIL value encountered, or NIL if the end of any sequence is reached.")
; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'SOME
;                                 #'(LAMBDA (#:WHOLE2705 #:ENVIRONMENT2706)
;                                     (DECLARE (IGNORE #:ENVIRONMENT2706))
;                                     (LET* ((#:CMACRO-&WHOLE9907 #:WHOLE2705)
;                                            (#:WHOLE2705 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE9907))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK SOME #))))
;                                 '(SB!IMPL::PRED SB!IMPL::FIRST-SEQ &REST
;                                   SB!IMPL::MORE-SEQS)
;                                 NIL '(COMPILER-MACRO-FUNCTION SOME))
; 
; caught STYLE-WARNING:
;   4 calls to COMMON-LISP:SOME were compiled before a compiler-macro was defined
;   for it. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; x-compiling (DEFQUANTIFIER SOME ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFQUANTIFIER EVERY
;     (SB!IMPL::DEFQUANTIFIER EVERY UNLESS NIL :DOC
;      "Apply PREDICATE to the 0-indexed elements of the sequences, then
;      possibly to those with index 1, and so on. Return NIL as soon
;      as any invocation of PREDICATE returns NIL, or T if every invocation
;      is non-NIL.")
; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'EVERY
;                                 #'(LAMBDA (#:WHOLE2784 #:ENVIRONMENT2785)
;                                     (DECLARE (IGNORE #:ENVIRONMENT2785))
;                                     (LET* ((#:CMACRO-&WHOLE9928 #:WHOLE2784)
;                                            (#:WHOLE2784 #))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE9928))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK EVERY #))))
;                                 '(SB!IMPL::PRED SB!IMPL::FIRST-SEQ &REST
;                                   SB!IMPL::MORE-SEQS)
;                                 NIL '(COMPILER-MACRO-FUNCTION EVERY))
; 
; caught STYLE-WARNING:
;   8 calls to COMMON-LISP:EVERY were compiled before a compiler-macro was defined
;   for it. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will defining the compiler-macro before its first potential use.
; x-compiling (DEFQUANTIFIER EVERY ...)
; x-compiling (DEFQUANTIFIER NOTANY ...)
; x-compiling (DEFQUANTIFIER NOTEVERY ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REDUCE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF-NOT ...)
; x-compiling (DEFUN LIST-REMOVE-DUPLICATES* ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN VECTOR-REMOVE-DUPLICATES*
;     (SB!IMPL::%MAKE-SEQUENCE-LIKE VECTOR LENGTH)
; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE 
; ==>
;   VECTOR
; 
; note: deleting unreachable code

; --> SB!IMPL::SEQ-DISPATCH IF LET MAKE-LIST 
; ==>
;   LENGTH
; 
; note: deleting unreachable code

; --> SB!IMPL::SEQ-DISPATCH IF IF SB!SEQUENCE:MAKE-SEQUENCE-LIKE 
; ==>
;   VECTOR
; 
; note: deleting unreachable code
; x-compiling (DEFUN VECTOR-REMOVE-DUPLICATES* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-DUPLICATES ...)
; x-compiling (DEFUN LIST-DELETE-DUPLICATES* ...)
; x-compiling (DEFUN VECTOR-DELETE-DUPLICATES* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES ...)
; x-compiling (DEFUN LIST-SUBSTITUTE* ...)
; x-compiling (DEFUN VECTOR-SUBSTITUTE* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE ...)
; x-compiling (DEFUN NLIST-SUBSTITUTE* ...)
; x-compiling (DEFUN NVECTOR-SUBSTITUTE* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF ...)
; x-compiling (DEFUN NLIST-SUBSTITUTE-IF* ...)
; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF* ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF-NOT ...)
; x-compiling (DEFUN NLIST-SUBSTITUTE-IF-NOT* ...)
; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF-NOT* ...)
; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-TEST ...)
; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-KEY ...)
; x-compiling (DEFUN %FIND-POSITION ...)
; x-compiling (DEFUN %FIND-POSITION-IF ...)
; x-compiling (DEFUN %FIND-POSITION-IF-NOT ...)
; x-compiling (DEFUN FIND ...)
; x-compiling (DEFUN POSITION ...)
; x-compiling (DEFUN FIND-IF ...)
; x-compiling (DEFUN POSITION-IF ...)
; x-compiling (DEFUN FIND-IF-NOT ...)
; x-compiling (DEFUN POSITION-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF-NOT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER MISMATCH ...)
; x-compiling (DEFINE-SEQUENCE-TRAVERSER SEARCH ...)

; file: /«PKGBUILDDIR»/src/code/seq.lisp
; in: DEFUN MAKE-SEQUENCE
;     (TYPEP TYPE 'SB!KERNEL:ARRAY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ARRAY-TYPE

; in: DEFUN %MAP
;     (FIND-CLASS SB!IMPL::RESULT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS

; in: DEFUN CONCATENATE
;     (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS

; in: DEFUN MAKE-SEQUENCE
;     (FIND-CLASS SB!IMPL::ADJUSTED-TYPE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS
; 
; compilation unit finished
;   Undefined type:
;     ARRAY-TYPE
;   Undefined function:
;     FIND-CLASS
;   caught 6 STYLE-WARNING conditions
;   printed 18 notes
; x-compiling (DEFUN FILL-DATA-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/seq.lisp-obj-tmp written
; compilation finished in 0:00:33.356
; compiling file "/«PKGBUILDDIR»/src/code/coerce.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF LIST-TO-VECTOR* ...)
; x-compiling (DEF VECTOR-TO-VECTOR* ...)
; x-compiling (DEF SEQUENCE-TO-VECTOR* ...)
; x-compiling (DEFUN VECTOR-TO-LIST* ...)
; x-compiling (DEFUN SEQUENCE-TO-LIST ...)
; x-compiling (DECLAIM (INLINE COERCE-TO-LIST))
; x-compiling (DECLAIM (INLINE COERCE-TO-VECTOR))
; x-compiling (DEFUN COERCE-SYMBOL-TO-FUN ...)
; x-compiling (DEFUN COERCE-TO-FUN ...)
; x-compiling (DEFUN COERCE-TO-LIST ...)
; x-compiling (DEFUN COERCE-TO-VECTOR ...)

; file: /«PKGBUILDDIR»/src/code/coerce.lisp
; in: DEFUN COERCE
;     (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS
; 
; compilation unit finished
;   Undefined function:
;     FIND-CLASS
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN COERCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/coerce.lisp-obj-tmp written
; compilation finished in 0:00:01.003
; compiling file "/«PKGBUILDDIR»/src/code/string.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN STRING ...)
; x-compiling (DEFUN %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; x-compiling (DEFUN CHAR ...)
; x-compiling (DEFUN %CHARSET ...)
; x-compiling (DEFUN SCHAR ...)
; x-compiling (DEFUN %SCHARSET ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in: DEFUN STRING=*
;     (SB!SYS:WITH-PINNED-OBJECTS (SB!IMPL::STRING1 SB!IMPL::STRING2)
;       (ZEROP
;        (SB!ALIEN:ALIEN-FUNCALL
;         (SB!ALIEN:EXTERN-ALIEN "memcmp"
;          (FUNCTION SB!ALIEN:INT # # SB!ALIEN:LONG))
;         (SB!IMPL::SAP SB!IMPL::STRING1 SB!IMPL::START1)
;         (SB!IMPL::SAP SB!IMPL::STRING2 SB!IMPL::START2)
;         (SB!IMPL::SCALE SB!IMPL::LEN))))
; --> LET LIST* 
; ==>
;   SB!IMPL::STRING1
; 
; note: deleting unreachable code

;     (SB!ALIEN:EXTERN-ALIEN "memcmp"
;      (FUNCTION SB!ALIEN:INT (* CHAR) (* CHAR) SB!ALIEN:LONG))
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!SYS:FOREIGN-SYMBOL-SAP 
; ==>
;   "memcmp"
; 
; note: deleting unreachable code

;     (RETURN-FROM SB!KERNEL:STRING=*
;       (MACROLET ((SB!IMPL::SAP (STRING SB!IMPL::START)
;                    (SB!INT:QUASIQUOTE #))
;                  (SB!IMPL::SCALE (SB!INT:INDEX)
;                    (SB!INT:QUASIQUOTE #)))
;         (DECLARE (OPTIMIZE (SB!C:ALIEN-FUNCALL-SAVES-FP-AND-PC 0)))
;         (SB!SYS:WITH-PINNED-OBJECTS (SB!IMPL::STRING1 SB!IMPL::STRING2)
;           (ZEROP (SB!ALIEN:ALIEN-FUNCALL # # # #)))))
; 
; note: deleting unreachable code

;     (SB!IMPL::WITH-TWO-STRINGS SB!IMPL::STRING1 SB!IMPL::STRING2 SB!IMPL::START1
;      SB!IMPL::END1 NIL SB!IMPL::START2 SB!IMPL::END2
;      (LET ((SB!IMPL::LEN (- SB!IMPL::END1 SB!IMPL::START1)))
;        (UNLESS (= SB!IMPL::LEN (- SB!IMPL::END2 SB!IMPL::START2))
;          (RETURN-FROM SB!KERNEL:STRING=* NIL))
;        (LET* ((SB!IMPL::WIDETAG1 #) (SB!IMPL::WIDETAG2 #) (SB!IMPL::CHAR-SHIFT))
;          (WHEN SB!IMPL::CHAR-SHIFT (RETURN-FROM SB!KERNEL:STRING=* #))
;          (MACROLET (#)
;            (COND # #))))
;      (NOT
;       (SB!KERNEL:%SP-STRING-COMPARE SB!IMPL::STRING1 SB!IMPL::START1
;        SB!IMPL::END1 SB!IMPL::STRING2 SB!IMPL::START2 SB!IMPL::END2)))
; --> LET SB!IMPL::%STRING IF 
; ==>
;   (STRING SB!IMPL::STRING1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SYMBOL CHARACTER), not a SYMBOL.

; ==>
;   (STRING SB!IMPL::STRING2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SYMBOL CHARACTER), not a SYMBOL.
; x-compiling (DEFUN STRING=* ...)
; x-compiling (DEFUN STRING/=* ...)
; x-compiling (DEFUN STRING<* ...)
; x-compiling (DEFUN STRING>* ...)
; x-compiling (DEFUN STRING<=* ...)
; x-compiling (DEFUN STRING>=* ...)
; x-compiling (DEFUN STRING< ...)
; x-compiling (DEFUN STRING> ...)
; x-compiling (DEFUN STRING<= ...)
; x-compiling (DEFUN STRING>= ...)
; x-compiling (DEFUN STRING= ...)
; x-compiling (DEFUN STRING/= ...)
; x-compiling (DEFUN STRING-EQUAL ...)
; x-compiling (DEFUN STRING-NOT-EQUAL ...)
; x-compiling (DEFUN STRING-LESSP* ...)
; x-compiling (DEFUN STRING-GREATERP* ...)
; x-compiling (DEFUN STRING-NOT-LESSP* ...)
; x-compiling (DEFUN STRING-NOT-GREATERP* ...)
; x-compiling (DEFUN STRING-LESSP ...)
; x-compiling (DEFUN STRING-GREATERP ...)
; x-compiling (DEFUN STRING-NOT-LESSP ...)
; x-compiling (DEFUN STRING-NOT-GREATERP ...)
; x-compiling (DEFUN MAKE-STRING ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in:
;      FLET ((%UPCASE (STRING START END)
;         (DECLARE (STRING STRING)
;                  (INDEX START)
;                  (TYPE SEQUENCE-END END))
;         (LET (#)
;           (WITH-ONE-STRING # #)
;           SAVED-HEADER)))
;     (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END)
;      (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX)))
;          ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END)))
;        (DECLARE (FIXNUM SB!INT:INDEX))
;        (SETF (SCHAR STRING SB!INT:INDEX) (CHAR-UPCASE #))))
; --> LET SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code
; x-compiling (FLET (#) ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in:
;      FLET ((%DOWNCASE (STRING START END)
;         (DECLARE (STRING STRING)
;                  (INDEX START)
;                  (TYPE SEQUENCE-END END))
;         (LET (#)
;           (WITH-ONE-STRING # #)
;           SAVED-HEADER)))
;     (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END)
;      (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX)))
;          ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END)))
;        (DECLARE (FIXNUM SB!INT:INDEX))
;        (SETF (SCHAR STRING SB!INT:INDEX) (CHAR-DOWNCASE #))))
; --> LET SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code
; x-compiling (FLET (#) ...)

; file: /«PKGBUILDDIR»/src/code/string.lisp
; in:
;      FLET ((%CAPITALIZE (STRING START END)
;         (DECLARE (STRING STRING)
;                  (INDEX START)
;                  (TYPE SEQUENCE-END END))
;         (LET (#)
;           (WITH-ONE-STRING # #)
;           SAVED-HEADER)))
;     (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END)
;      (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX))
;           (SB!IMPL::NEW-WORD? T)
;           (CHAR NIL))
;          ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END)))
;        (DECLARE (FIXNUM SB!INT:INDEX))
;        (SETQ CHAR (SCHAR STRING SB!INT:INDEX))
;        (COND ((NOT #) (SETQ #)) (SB!IMPL::NEW-WORD? (SETF #) (SETQ #))
;              (T (SETF #)))))
; --> LET SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code
; x-compiling (FLET (#) ...)
; x-compiling (DEFUN GENERIC-STRING-TRIM ...)
; x-compiling (DEFUN STRING-LEFT-TRIM ...)
; x-compiling (DEFUN STRING-RIGHT-TRIM ...)
; 
; compilation unit finished
;   printed 8 notes
; x-compiling (DEFUN STRING-TRIM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/string.lisp-obj-tmp written
; compilation finished in 0:00:07.865
; compiling file "/«PKGBUILDDIR»/src/code/mipsstrops.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %SP-STRING-COMPARE ...)
; x-compiling (DEFUN %SP-REVERSE-STRING-COMPARE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/mipsstrops.lisp-obj-tmp written
; compilation finished in 0:00:00.585
; compiling file "/«PKGBUILDDIR»/src/code/early-time.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFCONSTANT SB-XC:INTERNAL-TIME-UNITS-PER-SECOND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-time.lisp-obj-tmp written
; compilation finished in 0:00:00.027
; compiling file "/«PKGBUILDDIR»/src/code/unix.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (/SHOW0 "unix.lisp 21")

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN C-STRINGS->STRING-LIST
;     (ERROR "argh! can't happen")
; ==>
;   "argh! can't happen"
; 
; note: deleting unreachable code
; x-compiling (DEFUN C-STRINGS->STRING-LIST ...)
; x-compiling (DEFTYPE UNIX-PATHNAME ...)
; x-compiling (DEFTYPE UNIX-FD ...)
; x-compiling (DEFTYPE UNIX-FILE-MODE ...)
; x-compiling (DEFTYPE UNIX-PID ...)
; x-compiling (DEFTYPE UNIX-UID ...)
; x-compiling (DEFTYPE UNIX-GID ...)
; x-compiling (/SHOW0 "unix.lisp 74")
; x-compiling (DEFMACRO SYSCALL ...)
; x-compiling (DEFMACRO SYSCALL* ...)
; x-compiling (DEFMACRO INT-SYSCALL ...)
; x-compiling (DEFMACRO WITH-RESTARTED-SYSCALL ...)
; x-compiling (DEFMACRO VOID-SYSCALL ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ...)
; x-compiling (DEFUN UNIX-RENAME ...)
; x-compiling (/SHOW0 "unix.lisp 220")
; x-compiling (DEFINE-ALIEN-TYPE FD-MASK ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (/SHOW0 "unix.lisp 304")
; x-compiling (DEFUN UNIX-OPEN ...)
; x-compiling (/SHOW0 "unix.lisp 391")
; x-compiling (DEFUN UNIX-CLOSE ...)
; x-compiling (DEFUN SB-MKSTEMP ...)
; x-compiling (DEFCONSTANT RUSAGE_SELF ...)
; x-compiling (DEFCONSTANT RUSAGE_CHILDREN ...)
; x-compiling (DEFCONSTANT RUSAGE_BOTH ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFUN UNIX-ACCESS ...)
; x-compiling (DEFCONSTANT L_SET ...)
; x-compiling (DEFCONSTANT L_INCR ...)
; x-compiling (DEFCONSTANT L_XTND ...)
; x-compiling (DEFINE-ALIEN-TYPE UNIX-OFFSET ...)
; x-compiling (DEFUN UNIX-ISATTY ...)
; x-compiling (DEFUN UNIX-LSEEK ...)
; x-compiling (DECLAIM (MAYBE-INLINE UNIX-READ))
; x-compiling (DEFUN UNIX-READ ...)
; x-compiling (DEFUN UNIX-WRITE ...)
; x-compiling (DEFUN UNIX-PIPE ...)
; x-compiling (DEFUN UNIX-MKDIR ...)
; x-compiling (DEFUN NEWCHARSTAR-STRING ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN POSIX-GETCWD
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "getcwd"
;       (FUNCTION (* CHAR) (* CHAR) SB!ALIEN:SIZE-T))
;      NIL 0)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN POSIX-GETCWD ...)
; x-compiling (DEFUN POSIX-GETCWD/ ...)
; x-compiling (DEFUN UNIX-DUP ...)
; x-compiling (DEFTYPE EXIT-CODE ...)
; x-compiling (DEFUN OS-EXIT ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("getpid" UNIX-GETPID) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("getuid" UNIX-GETUID) ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UID-USERNAME
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "uid_username" (FUNCTION (* CHAR) SB!ALIEN:INT))
;      SB!UNIX::UID)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UID-USERNAME ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UID-HOMEDIR
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "uid_homedir" (FUNCTION (* CHAR) SB!ALIEN:INT))
;      SB!UNIX::UID)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UID-HOMEDIR ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN USER-HOMEDIR
;     (SB!ALIEN:ALIEN-FUNCALL
;      (SB!ALIEN:EXTERN-ALIEN "user_homedir" (FUNCTION (* CHAR) SB!ALIEN:C-STRING))
;      SB!UNIX::UID)
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN USER-HOMEDIR ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-READLINK
;     (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR))
;      SB!ALIEN:C-STRING)
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-READLINK ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-REALPATH
;     (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR))
;      SB!ALIEN:C-STRING)
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-REALPATH ...)
; x-compiling (DEFUN UNIX-UNLINK ...)
; x-compiling (DEFUN UNIX-GETHOSTNAME ...)
; x-compiling (DEFUN UNIX-SETSID ...)
; x-compiling (DEFUN UNIX-IOCTL ...)
; x-compiling (DECLAIM (INLINE UNIX-FAST-GETRUSAGE))
; x-compiling (DEFUN UNIX-FAST-GETRUSAGE ...)
; x-compiling (DEFUN UNIX-GETRUSAGE ...)
; x-compiling (DEFVAR *ON-DANGEROUS-WAIT* ...)
; x-compiling (DEFUN NOTE-DANGEROUS-WAIT ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFUN UNIX-POLL ...)
; x-compiling (DEFUN UNIX-SIMPLE-POLL ...)
; x-compiling (DEFMACRO WITH-FD-SETSIZE ...)
; x-compiling (DECLAIM (INLINE UNIX-FAST-SELECT))
; x-compiling (DEFUN UNIX-FAST-SELECT ...)
; x-compiling (DECLAIM (INLINE NUM-TO-FD-SET ...))
; x-compiling (DEFUN NUM-TO-FD-SET ...)
; x-compiling (DEFUN FD-SET-TO-NUM ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-SELECT
;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;        (SB!UNIX::FDS-BITS (ARRAY # 32) :OFFSET 0))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS)
;      (SB!ALIEN:WITH-ALIEN
;       ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL))
;        (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)))
;       (COND (SB!UNIX::TO-SECS (SETF #))
;             ((NOT SB!SYS:*INTERRUPTS-ENABLED*)
;              (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)")))
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;       (MACROLET ((SB!UNIX::FROB #
;                    #))
;         (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #)
;          (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS
;          (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF)
;          (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF)
;          (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF)
;          (IF SB!UNIX::TO-SECS
;              #
;              #)))))
; --> LET IF < 
; --> (LAMBDA (#:G15290 #:G15289 #:G15288) (DECLARE (TYPE REAL #:G15290 #:G15289 #:G15288)) (IF (< #:G15290 #:G15289) (IF (< #:G15289 #:G15288) T NIL) NIL)) 
; --> SB!C::%FUNCALL IF < > IF 
; ==>
;   (> SB!C::Y SB!C::X)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> LET IF < 
; --> (LAMBDA (#:G15290 #:G15289 #:G15288) (DECLARE (TYPE REAL #:G15290 #:G15289 #:G15288)) (IF (< #:G15290 #:G15289) (IF (< #:G15289 #:G15288) T NIL) NIL)) 
; --> SB!C::%FUNCALL IF IF 
; ==>
;   (< #:G15289 #:G15288)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB!C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB!C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB!C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-15293
;      (ASH
;       (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;        SB!INT:INDEX)
;       (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-15295
;      (ASH
;       (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;        SB!INT:INDEX)
;       (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-15287
;      (ASH
;       (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;        SB!INT:INDEX)
;       (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS)
;      (SB!ALIEN:WITH-ALIEN
;       ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL))
;        (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;        (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)))
;       (COND (SB!UNIX::TO-SECS (SETF #))
;             ((NOT SB!SYS:*INTERRUPTS-ENABLED*)
;              (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)")))
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;       (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;       (MACROLET ((SB!UNIX::FROB #
;                    #))
;         (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #)
;          (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS
;          (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF)
;          (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF)
;          (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF)
;          (IF SB!UNIX::TO-SECS
;              #
;              #)))))
; --> LET IF ERROR 1- 
; ==>
;   (- SB!UNIX::NFDS 1)
; 
; note: forced to do static-fun Two-arg-- (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 fixnum arithmetic (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).
;       etc.

;     (SB!ALIEN:WITH-ALIEN
;      ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL))
;       (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;       (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))
;       (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)))
;      (COND
;       (SB!UNIX::TO-SECS
;        (SETF # SB!UNIX::TO-SECS
;              # SB!UNIX::TO-USECS))
;       ((NOT SB!SYS:*INTERRUPTS-ENABLED*)
;        (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)")))
;      (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;      (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;      (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;      (MACROLET ((SB!UNIX::FROB (SB!UNIX::LISPVAR SB!UNIX::ALIENVAR)
;                   (SB!INT:QUASIQUOTE #)))
;        (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT (* #) (* #) (* #) (* #))
;         (VALUES SB!UNIX::RESULT
;                 (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
;                 (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
;                 (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF))
;         SB!UNIX::NFDS (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF)
;         (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF)
;         (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF)
;         (IF SB!UNIX::TO-SECS
;             (SB!ALIEN:ALIEN-SAP #)
;             (SB!SYS:INT-SAP 0)))))
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET 
; ==>
;   (LET ((#:VAR769
;          (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>)))
;     (MULTIPLE-VALUE-PROG1
;         (PROGN
;          (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #> #:VAR769)
;          (SYMBOL-MACROLET (#)
;            (LET #
;              #)))
;       (SB!ALIEN-INTERNALS:DISPOSE-LOCAL-ALIEN
;        '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO
;           (forced to stack) (SB!ALIEN:STRUCT SB!UNIX:FD-SET #)>
;        #:VAR769)))
; 
; note: doing SAP to pointer coercion (cost 20) to #:VAR769

; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; ==>
;   (LET ((#:VAR768
;          (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>)))
;     (MULTIPLE-VALUE-PROG1
;         (PROGN
;          (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #> #:VAR768)
;          (SYMBOL-MACROLET (#)
;            (LET #
;              #)))
;       (SB!ALIEN-INTERNALS:DISPOSE-LOCAL-ALIEN
;        '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO
;           (forced to stack) (SB!ALIEN:STRUCT SB!UNIX:FD-SET #)>
;        #:VAR768)))
; 
; note: doing SAP to pointer coercion (cost 20) to #:VAR768

; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; ==>
;   (LET ((#:VAR767
;          (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>)))
;     (MULTIPLE-VALUE-PROG1
;         (PROGN
;          (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
;           '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #> #:VAR767)
;          (SYMBOL-MACROLET (#)
;            (COND # #)
;            (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS)
;            (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS)
;            (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS)
;            (MACROLET #
;              #)))
;       (SB!ALIEN-INTERNALS:DISPOSE-LOCAL-ALIEN
;        '#<SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO
;           (forced to stack) (SB!ALIEN:STRUCT SB!UNIX:FD-SET #)>
;        #:VAR767)))
; 
; note: doing SAP to pointer coercion (cost 20) to #:VAR767

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SETQ THE + 
; ==>
;   (ASH
;    (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS)
;     SB!INT:INDEX)
;    (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (VALUES SB!UNIX::RESULT (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
;             (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
;             (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF))
; 
; note: doing signed word to integer coercion (cost 20) from ALIEN

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)
; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   SB!ALIEN:ALIEN
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF)
; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   SB!ALIEN:ALIEN
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF)
; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   SB!ALIEN:ALIEN
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEFUN UNIX-SELECT ...)
; x-compiling (DECLAIM (INLINE FD-SET ...))
; x-compiling (DEFUN FD-SET ...)
; x-compiling (DEFUN FD-CLR ...)
; x-compiling (DEFUN FD-ISSET ...)
; x-compiling (DEFUN FD-ZERO ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DECLAIM (INLINE %EXTRACT-STAT-RESULTS))
; x-compiling (DEFUN %EXTRACT-STAT-RESULTS ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-STAT
;     (SB!ALIEN:ADDR SB!UNIX::BUF)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (*
;        (SB!ALIEN:STRUCT SB!UNIX::WRAPPED_STAT (SB!UNIX:ST-DEV # :OFFSET 0)
;         (SB!UNIX::ST-INO # :OFFSET 64) (SB!UNIX:ST-MODE # :OFFSET 128)
;         (SB!UNIX:ST-NLINK # :OFFSET 160) (SB!UNIX:ST-UID # :OFFSET 192)
;         (SB!UNIX:ST-GID # :OFFSET 224) (SB!UNIX:ST-RDEV # :OFFSET 256)
;         (SB!UNIX:ST-SIZE # :OFFSET 320) (SB!UNIX:ST-BLKSIZE # :OFFSET 384)
;         (SB!UNIX:ST-BLOCKS # :OFFSET 448) ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-STAT ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-LSTAT
;     (SB!ALIEN:ADDR SB!UNIX::BUF)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (*
;        (SB!ALIEN:STRUCT SB!UNIX::WRAPPED_STAT (SB!UNIX:ST-DEV # :OFFSET 0)
;         (SB!UNIX::ST-INO # :OFFSET 64) (SB!UNIX:ST-MODE # :OFFSET 128)
;         (SB!UNIX:ST-NLINK # :OFFSET 160) (SB!UNIX:ST-UID # :OFFSET 192)
;         (SB!UNIX:ST-GID # :OFFSET 224) (SB!UNIX:ST-RDEV # :OFFSET 256)
;         (SB!UNIX:ST-SIZE # :OFFSET 320) (SB!UNIX:ST-BLKSIZE # :OFFSET 384)
;         (SB!UNIX:ST-BLOCKS # :OFFSET 448) ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-LSTAT ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFUN UNIX-FSTAT
;     (SB!ALIEN:ADDR SB!UNIX::BUF)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (*
;        (SB!ALIEN:STRUCT SB!UNIX::WRAPPED_STAT (SB!UNIX:ST-DEV # :OFFSET 0)
;         (SB!UNIX::ST-INO # :OFFSET 64) (SB!UNIX:ST-MODE # :OFFSET 128)
;         (SB!UNIX:ST-NLINK # :OFFSET 160) (SB!UNIX:ST-UID # :OFFSET 192)
;         (SB!UNIX:ST-GID # :OFFSET 224) (SB!UNIX:ST-RDEV # :OFFSET 256)
;         (SB!UNIX:ST-SIZE # :OFFSET 320) (SB!UNIX:ST-BLKSIZE # :OFFSET 384)
;         (SB!UNIX:ST-BLOCKS # :OFFSET 448) ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN UNIX-FSTAT ...)
; x-compiling (DEFUN FD-TYPE ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFINE-ALIEN-ROUTINE GET-TIMEZONE ...)
; x-compiling (DEFUN NANOSLEEP ...)
; x-compiling (DEFUN UNIX-GET-SECONDS-WEST ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFINE-ALIEN-TYPE NIL ...)
; x-compiling (DEFCONSTANT ITIMER-REAL ...)
; x-compiling (DEFCONSTANT ITIMER-VIRTUAL ...)
; x-compiling (DEFCONSTANT ITIMER-PROF ...)
; x-compiling (DEFUN UNIX-GETITIMER ...)
; x-compiling (DEFUN UNIX-SETITIMER ...)
; x-compiling (DEFCONSTANT MICRO-SECONDS-PER-INTERNAL-TIME-UNIT ...)
; x-compiling (DECLAIM (INLINE GET-TIME-OF-DAY))
; x-compiling (DEFUN GET-TIME-OF-DAY ...)
; x-compiling (DECLAIM (INLINE SYSTEM-INTERNAL-RUN-TIME ...))
; x-compiling (DEFUN SYSTEM-REAL-TIME-VALUES ...)
; x-compiling (LET (# # ...) ...)
; x-compiling (DEFUN SYSTEM-INTERNAL-RUN-TIME ...)
; x-compiling (DEFUN UNIX-GETTIMEOFDAY ...)
; x-compiling (DECLAIM (INLINE UNIX-OPENDIR))
; x-compiling (DEFUN UNIX-OPENDIR ...)
; x-compiling (DECLAIM (INLINE UNIX-READDIR))
; x-compiling (DEFUN UNIX-READDIR ...)
; x-compiling (DECLAIM (INLINE UNIX-CLOSEDIR))
; x-compiling (DEFUN UNIX-CLOSEDIR ...)
; x-compiling (DECLAIM (INLINE UNIX-DIRENT-NAME))
; x-compiling (DEFUN UNIX-DIRENT-NAME ...)

; file: /«PKGBUILDDIR»/src/code/unix.lisp
; in: DEFINE-DEPRECATED-FUNCTION :EARLY
;     (SB!INT:DEFINE-DEPRECATED-FUNCTION :EARLY
;         "1.0.56.55"
;         SB!UNIX:UNIX-EXIT
;         SB!SYS:OS-EXIT
;         (SB!UNIX::CODE)
;       (SB!SYS:OS-EXIT SB!UNIX::CODE))
; --> PROG1 LET LET SETF LET* FUNCALL 
; ==>
;   (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW477 'SB!UNIX:UNIX-EXIT)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF COMPILER-MACRO-FUNCTION)
; 
; compilation unit finished
;   Undefined function:
;     (SETF COMPILER-MACRO-FUNCTION)
;   caught 1 STYLE-WARNING condition
;   printed 41 notes
; x-compiling (DEFCONSTANT WSTOPPED ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unix.lisp-obj-tmp written
; compilation finished in 0:00:11.835
; compiling file "/«PKGBUILDDIR»/src/code/common-os.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!SYS")
; x-compiling (DEFVAR *SOFTWARE-VERSION* ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("posix_argv" *NATIVE-POSIX-ARGV*) ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("core_string" *NATIVE-CORE-STRING*) ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("saved_runtime_path" *NATIVE-SAVED-RUNTIME-PATH*) ...)
; x-compiling (DEFMACRO INIT-VAR-IGNORING-ERRORS ...)
; x-compiling (DEFUN OS-DEINIT ...)

; file: /«PKGBUILDDIR»/src/code/common-os.lisp
; in: DEFUN OS-COLD-INIT-OR-REINIT
;     (SB!ALIEN:DEREF SB!SYS::*NATIVE-POSIX-ARGV* SB!SYS::I)
; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!SYS::INIT-VAR-IGNORING-ERRORS *DEFAULT-PATHNAME-DEFAULTS*
;      (SB!EXT:PARSE-NATIVE-NAMESTRING (SB!UNIX:POSIX-GETCWD/)) :DEFAULT
;      *DEFAULT-PATHNAME-DEFAULTS* :EXPLANATION "with the current directory")
; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

;     (SB!SYS::INIT-VAR-IGNORING-ERRORS SB!EXT:*POSIX-ARGV*
;      (LOOP SB!SYS::FOR SB!SYS::I SB!SYS::FROM 0
;            SB!SYS::FOR SB!SYS::ARG = (SB!ALIEN:DEREF SB!SYS::*NATIVE-POSIX-ARGV*
;                                       SB!SYS::I)
;            SB!SYS::UNTIL (SB!ALIEN:NULL-ALIEN SB!SYS::ARG)
;            SB!INT:COLLECT ...))
; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

;     (SB!SYS::INIT-VAR-IGNORING-ERRORS SB!INT:*CORE-STRING*
;      (SB!ALIEN:CAST SB!SYS::*NATIVE-CORE-STRING* SB!ALIEN:C-STRING) :DEFAULT "")
; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; 
; caught STYLE-WARNING:
;   5 more uses of undefined type ERROR
; 
; compilation unit finished
;   Undefined type:
;     ERROR
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFUN OS-COLD-INIT-OR-REINIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/common-os.lisp-obj-tmp written
; compilation finished in 0:00:00.638
; compiling file "/«PKGBUILDDIR»/src/code/linux-os.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!SYS")
; x-compiling (DEFUN SOFTWARE-TYPE ...)
; x-compiling (DEFUN SOFTWARE-VERSION ...)
; x-compiling (DEFUN GET-SYSTEM-INFO ...)
; x-compiling (DEFUN GET-PAGE-SIZE ...)
; x-compiling (DEFUN GET-MACHINE-VERSION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/linux-os.lisp-obj-tmp written
; compilation finished in 0:00:00.257
; compiling file "/«PKGBUILDDIR»/src/code/sc-offset.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFCONSTANT-EQX SC-OFFSET-SCN-BYTE ...)
; x-compiling (DEFCONSTANT-EQX SC-OFFSET-OFFSET-BYTE ...)
; x-compiling (DEF!TYPE SC-OFFSET ...)
; x-compiling (DEFMACRO MAKE-SC-OFFSET ...)
; x-compiling (DEFMACRO SC-OFFSET-SCN ...)
; x-compiling (DEFMACRO SC-OFFSET-OFFSET ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sc-offset.lisp-obj-tmp written
; compilation finished in 0:00:00.165
; compiling file "/«PKGBUILDDIR»/src/code/arm-vm.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ALIEN-TYPE OS-CONTEXT-T ...)
; x-compiling (DEFUN MACHINE-TYPE ...)
; x-compiling (DEFUN FIXUP-CODE-OBJECT ...)

; file: /«PKGBUILDDIR»/src/code/arm-vm.lisp
; in:
;      DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR)
;     (SB!ALIEN:DEFINE-ALIEN-ROUTINE
;      ("os_context_register_addr" SB!VM::CONTEXT-REGISTER-ADDR)
;      (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))
;      (SB!INT:INDEX SB!ALIEN:INT))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:UNSIGNED 32))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ...)
; x-compiling (DEFUN CONTEXT-REGISTER ...)
; x-compiling (DEFUN %SET-CONTEXT-REGISTER ...)
; x-compiling (DEFUN CONTEXT-PC ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN INTERNAL-ERROR-ARGS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/arm-vm.lisp-obj-tmp written
; compilation finished in 0:00:00.344
; compiling file "/«PKGBUILDDIR»/src/code/target-signal.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (DEFMACRO WITH-INTERRUPT-BINDINGS ...)
; x-compiling (DEFMACRO NLX-PROTECT ...)
; x-compiling (DEFUN INVOKE-INTERRUPTION ...)
; x-compiling (DEFMACRO IN-INTERRUPTION ...)
; x-compiling (DECLAIM (INLINE UNIX-KILL))
; x-compiling (DEFINE-ALIEN-ROUTINE ("kill" UNIX-KILL) ...)
; x-compiling (DECLAIM (INLINE UNIX-KILLPG))
; x-compiling (DEFINE-ALIEN-ROUTINE ("killpg" UNIX-KILLPG) ...)
; x-compiling (DECLAIM (INLINE %UNBLOCK-DEFERRABLE-SIGNALS ...))
; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_deferrable_signals" %UNBLOCK-DEFERRABLE-SIGNALS) ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_gc_signals" %UNBLOCK-GC-SIGNALS) ...)
; x-compiling (DEFUN UNBLOCK-DEFERRABLE-SIGNALS ...)
; x-compiling (DEFUN UNBLOCK-GC-SIGNALS ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("install_handler" INSTALL-HANDLER) ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFUN ENABLE-INTERRUPT
;     (THE (OR FUNCTION FIXNUM) (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT))
; 
; note: type assertion too complex to check:
;  (VALUES (OR FUNCTION FIXNUM) &REST T).
; x-compiling (DEFUN ENABLE-INTERRUPT ...)
; x-compiling (DEFUN DEFAULT-INTERRUPT ...)
; x-compiling (DEFUN IGNORE-INTERRUPT ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFINE-SIGNAL-HANDLER SIGILL-HANDLER
;     (SB!UNIX::DEFINE-SIGNAL-HANDLER SB!UNIX::SIGILL-HANDLER "illegal instruction")
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SYMBOL-MACROLET SB!SYS:SAP-INT SB!VM:CONTEXT-PC SB!UNIX::CONTEXT 
; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFINE-SIGNAL-HANDLER SIGILL-HANDLER ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER
;     (SB!UNIX::DEFINE-SIGNAL-HANDLER SB!UNIX::SIGBUS-HANDLER "bus error")
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET 
; --> SYMBOL-MACROLET SB!SYS:SAP-INT SB!VM:CONTEXT-PC SB!UNIX::CONTEXT 
; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER ...)

; file: /«PKGBUILDDIR»/src/code/target-signal.lisp
; in: DEFUN SIGINT-HANDLER
;     (MAKE-CONDITION 'SB!SYS:INTERACTIVE-INTERRUPT :CONTEXT SB!UNIX::CONTEXT
;                     :ADDRESS (SB!SYS:SAP-INT (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT)))
; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT)
; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN SIGINT-HANDLER ...)
; x-compiling (DEFUN SIGALRM-HANDLER ...)
; x-compiling (DEFUN SIGTERM-HANDLER ...)
; x-compiling (DEFUN SIGPIPE-HANDLER ...)
; x-compiling (DEFUN SIGCHLD-HANDLER ...)
; x-compiling (DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ("siginfo_code" SIGINFO-CODE) ...)
; 
; compilation unit finished
;   printed 5 notes
; x-compiling (DEFUN RECEIVE-PENDING-INTERRUPT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-signal.lisp-obj-tmp written
; compilation finished in 0:00:01.514
; compiling file "/«PKGBUILDDIR»/src/code/symbol.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (MAYBE-INLINE GET ...))
; x-compiling (DEFUN HANDLE-DEPRECATED-GLOBAL-VARIABLE ...)
; x-compiling (DEFUN SYMBOL-VALUE ...)
; x-compiling (DEFINE-COMPILER-MACRO SYMBOL-VALUE ...)
; x-compiling (DEFUN BOUNDP ...)
; x-compiling (DEFUN SET ...)
; x-compiling (DEFUN %SET-SYMBOL-VALUE ...)
; x-compiling (DEFUN SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFINE-COMPILER-MACRO SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFUN SET-SYMBOL-GLOBAL-VALUE ...)

; file: /«PKGBUILDDIR»/src/code/symbol.lisp
; in: DECLAIM (INLINE %MAKUNBOUND)
;     (DECLAIM (INLINE SB!IMPL::%MAKUNBOUND))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::%MAKUNBOUND) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::%MAKUNBOUND to be INLINE, but 1 call to it was previously
;   compiled. A declaration of NOTINLINE at the call site will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE %MAKUNBOUND))
; x-compiling (DEFUN %MAKUNBOUND ...)
; x-compiling (DEFUN MAKUNBOUND ...)
; x-compiling (DEFUN COMPUTE-SYMBOL-HASH ...)
; x-compiling (DEFUN ENSURE-SYMBOL-HASH ...)
; x-compiling (DEFUN SYMBOL-HASH ...)
; x-compiling (DEFUN SYMBOL-FUNCTION ...)
; x-compiling (DEFUN (SETF SYMBOL-FUNCTION) ...)
; x-compiling (DEFUN SYMBOL-INFO ...)
; x-compiling (DEFUN (SETF SYMBOL-INFO) ...)
; x-compiling (DEFUN UPDATE-SYMBOL-INFO ...)
; x-compiling (DEFUN SYMBOL-PLIST ...)
; x-compiling (DECLAIM (FTYPE # ...) ...)
; x-compiling (DEFUN %ENSURE-PLIST-HOLDER ...)
; x-compiling (DECLAIM (INLINE %COMPARE-AND-SWAP-SYMBOL-PLIST ...))
; x-compiling (DEFUN %COMPARE-AND-SWAP-SYMBOL-PLIST ...)
; x-compiling (DEFUN %%COMPARE-AND-SWAP-SYMBOL-PLIST ...)
; x-compiling (DEFUN %SET-SYMBOL-PLIST ...)
; x-compiling (DEFUN %%SET-SYMBOL-PLIST ...)
; x-compiling (DEFUN SYMBOL-NAME ...)
; x-compiling (DEFUN SYMBOL-PACKAGE ...)
; x-compiling (DEFUN %SET-SYMBOL-PACKAGE ...)
; x-compiling (DEFUN MAKE-SYMBOL ...)
; x-compiling (DEFUN GET ...)
; x-compiling (DEFUN GET3 ...)
; x-compiling (DEFUN %PUT ...)
; x-compiling (DEFUN REMPROP ...)
; x-compiling (DEFUN GETF ...)
; x-compiling (DEFUN %PUTF ...)
; x-compiling (DEFUN GET-PROPERTIES ...)
; x-compiling (DEFUN COPY-SYMBOL ...)
; x-compiling (DEFUN KEYWORDP ...)
; x-compiling (DEFUN %MAKE-SYMBOL-NAME ...)
; x-compiling (DEFVAR *GENSYM-COUNTER* ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFUN GENSYM ...)
; x-compiling (DEFVAR *GENTEMP-COUNTER* ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFUN GENTEMP ...)

; file: /«PKGBUILDDIR»/src/code/symbol.lisp
; in: DEFUN %MAKE-SYMBOL-NAME
;     (DEFUN SB!IMPL::%MAKE-SYMBOL-NAME (SB!IMPL::PREFIX SB!IMPL::COUNTER)
;       (DECLARE (STRING SB!IMPL::PREFIX))
;       (IF (TYPEP SB!IMPL::COUNTER '(AND FIXNUM UNSIGNED-BYTE))
;           (LET ((SB!IMPL::S ""))
;             (DECLARE (SIMPLE-STRING SB!IMPL::S))
;             (LABELS (#)
;               (SB!IMPL::RECURSE 1 SB!IMPL::COUNTER)))
;           (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (SB!IMPL::S)
;             (WRITE-STRING SB!IMPL::PREFIX SB!IMPL::S)
;             (SB!IMPL::%OUTPUT-INTEGER-IN-BASE SB!IMPL::COUNTER 10 SB!IMPL::S))))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!IMPL::%MAKE-SYMBOL-NAME
;    (SB!INT:NAMED-LAMBDA SB!IMPL::%MAKE-SYMBOL-NAME
;        (SB!IMPL::PREFIX SB!IMPL::COUNTER)
;      (DECLARE (STRING SB!IMPL::PREFIX))
;      (BLOCK SB!IMPL::%MAKE-SYMBOL-NAME
;        (IF (TYPEP SB!IMPL::COUNTER '#)
;            (LET #
;              #
;              #)
;            (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING #
;              #
;              #))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::STRING-OUTPUT-STREAM
; 
; compilation unit finished
;   Undefined type:
;     SB!C::STRING-OUTPUT-STREAM
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/symbol.lisp-obj-tmp written
; compilation finished in 0:00:01.502
; compiling file "/«PKGBUILDDIR»/src/code/bignum.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!BIGNUM")
; x-compiling (DEFCONSTANT DIGIT-SIZE ...)
; x-compiling (DEFCONSTANT MAXIMUM-BIGNUM-LENGTH ...)
; x-compiling (DEFCONSTANT ALL-ONES-DIGIT ...)
; x-compiling (DEFUN %ALLOCATE-BIGNUM ...)
; x-compiling (DEFUN %BIGNUM-LENGTH ...)
; x-compiling (DEFUN %BIGNUM-REF ...)
; x-compiling (DEFUN %BIGNUM-SET ...)
; x-compiling (DEFUN %DIGIT-0-OR-PLUSP ...)
; x-compiling (DECLAIM (INLINE %BIGNUM-0-OR-PLUSP))
; x-compiling (DEFUN %BIGNUM-0-OR-PLUSP ...)
; x-compiling (DEFUN %ADD-WITH-CARRY ...)
; x-compiling (DEFUN %SUBTRACT-WITH-BORROW ...)
; x-compiling (DEFUN %MULTIPLY ...)
; x-compiling (DEFUN %MULTIPLY-AND-ADD ...)
; x-compiling (DEFUN %LOGNOT ...)
; x-compiling (DECLAIM (INLINE %LOGAND ...))
; x-compiling (DEFUN %LOGAND ...)
; x-compiling (DEFUN %LOGIOR ...)
; x-compiling (DEFUN %LOGXOR ...)
; x-compiling (DEFUN %FIXNUM-TO-DIGIT ...)
; x-compiling (DEFUN %BIGFLOOR ...)
; x-compiling (DEFUN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...)
; x-compiling (DEFUN %ASHR ...)
; x-compiling (DEFUN %ASHL ...)
; x-compiling (DEFUN %DIGIT-LOGICAL-SHIFT-RIGHT ...)
; x-compiling (DEFUN %BIGNUM-SET-LENGTH ...)
; x-compiling (DECLAIM (INLINE %SIGN-DIGIT))
; x-compiling (DEFUN %SIGN-DIGIT ...)
; x-compiling (DECLAIM (INLINE %DIGIT-COMPARE ...))
; x-compiling (DEFUN %DIGIT-COMPARE ...)
; x-compiling (DEFUN %DIGIT-GREATER ...)
; x-compiling (DECLAIM (OPTIMIZE # ...))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN ADD-BIGNUMS
;     (SB!BIGNUM::FINISH-ADD SB!BIGNUM::A SB!BIGNUM::RES SB!BIGNUM::CARRY
;      (SB!BIGNUM::%SIGN-DIGIT SB!BIGNUM::B SB!BIGNUM::LEN-B) SB!BIGNUM::LEN-B
;      SB!BIGNUM::LEN-A)
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEFUN ADD-BIGNUMS ...)
; x-compiling (DEFUN FINISH-ADD ...)
; x-compiling (DEFUN SUBTRACT-BIGNUM ...)
; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS-WITH-LEN ...)
; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS ...)
; x-compiling (DEFUN MULTIPLY-BIGNUMS ...)
; x-compiling (DEFUN MULTIPLY-BIGNUM-AND-FIXNUM ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN MULTIPLY-FIXNUMS
;     (ZEROP SB!BIGNUM::HIGH)
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (DEFUN SB!BIGNUM:MULTIPLY-FIXNUMS (SB!BIGNUM::A SB!BIGNUM::B)
;       (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B))
;       (LET* ((SB!BIGNUM::A-MINUSP (MINUSP SB!BIGNUM::A))
;              (SB!BIGNUM::B-MINUSP (MINUSP SB!BIGNUM::B)))
;         (MULTIPLE-VALUE-BIND (SB!BIGNUM::HIGH SB!BIGNUM::LOW)
;             (SB!BIGNUM:%MULTIPLY
;              (IF SB!BIGNUM::A-MINUSP
;                  #
;                  SB!BIGNUM::A)
;              (IF SB!BIGNUM::B-MINUSP
;                  #
;                  SB!BIGNUM::B))
;           (DECLARE
;            (TYPE SB!BIGNUM:BIGNUM-ELEMENT-TYPE SB!BIGNUM::HIGH SB!BIGNUM::LOW))
;           (IF (AND # #)
;               (LET #
;                 #)
;               (LET #
;                 #
;                 #
;                 #
;                 #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!BIGNUM:MULTIPLY-FIXNUMS
;         (SB!BIGNUM::A SB!BIGNUM::B)
;       (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B))
;       (BLOCK SB!BIGNUM:MULTIPLY-FIXNUMS
;         (LET* ((SB!BIGNUM::A-MINUSP #) (SB!BIGNUM::B-MINUSP #))
;           (MULTIPLE-VALUE-BIND (SB!BIGNUM::HIGH SB!BIGNUM::LOW)
;               (SB!BIGNUM:%MULTIPLY # #)
;             (DECLARE #)
;             (IF #
;                 #
;                 #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; x-compiling (DEFUN MULTIPLY-FIXNUMS ...)
; x-compiling (SB-XC:DEFMACRO GCD-ASSERT ...)
; x-compiling (SB-XC:DEFMACRO MODULARLY ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-FACTORS-OF-TWO
;     (ZEROP SB!BIGNUM::OR-DIGITS)
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-FACTORS-OF-TWO ...)
; x-compiling (DECLAIM (INLINE MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER
;     (MINUSP SB!BIGNUM::SMALLNUM)
; ==>
;   (< SB!BIGNUM::SMALLNUM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (- SB!BIGNUM::SMALLNUM)
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM))
; 
; note: unable to
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a REAL, not a RATIONAL.

;     (MINUSP SB!BIGNUM::SMALLNUM)
; ==>
;   (< SB!BIGNUM::SMALLNUM 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (- SB!BIGNUM::SMALLNUM)
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.
; x-compiling (DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ...)
; x-compiling (DECLAIM (INLINE BMOD))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BMOD
;     (DEFUN SB!BIGNUM::BMOD (SB!BIGNUM::U SB!BIGNUM::V)
;       (LET ((SB!BIGNUM::UD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::U 0))
;             (SB!BIGNUM::VD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V 0))
;             (SB!BIGNUM::UMASK 0)
;             (SB!BIGNUM::IMASK 1)
;             (SB!BIGNUM::M 0))
;         (DECLARE
;          (TYPE (UNSIGNED-BYTE 32) SB!BIGNUM::UD SB!BIGNUM::VD SB!BIGNUM::UMASK
;           SB!BIGNUM::IMASK SB!BIGNUM::M))
;         (DOTIMES (SB!BIGNUM::I SB!BIGNUM::DIGIT-SIZE)
;           (SETF SB!BIGNUM::UMASK #)
;           (WHEN (LOGTEST SB!BIGNUM::UD SB!BIGNUM::UMASK) (SETF #) (SETF #))
;           (SETF SB!BIGNUM::IMASK #)
;           (SETF SB!BIGNUM::VD #))
;         SB!BIGNUM::M))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!BIGNUM::BMOD
;         (SB!BIGNUM::U SB!BIGNUM::V)
;       (BLOCK SB!BIGNUM::BMOD
;         (LET ((SB!BIGNUM::UD #)
;               (SB!BIGNUM::VD #)
;               (SB!BIGNUM::UMASK 0)
;               (SB!BIGNUM::IMASK 1)
;               (SB!BIGNUM::M 0))
;           (DECLARE
;            (TYPE # SB!BIGNUM::UD SB!BIGNUM::VD SB!BIGNUM::UMASK
;             SB!BIGNUM::IMASK SB!BIGNUM::M))
;           (DOTIMES (SB!BIGNUM::I SB!BIGNUM::DIGIT-SIZE)
;             (SETF #)
;             (WHEN # # #)
;             (SETF #)
;             (SETF #))
;           SB!BIGNUM::M)))
; 
; note: doing unsigned word to integer coercion (cost 20) from M to "<return value>"
; x-compiling (DEFUN BMOD ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN DMOD
;     (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;        SB!BIGNUM::DIGIT-SIZE)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;           SB!BIGNUM::DIGIT-SIZE))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ 1
;        (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;        SB!BIGNUM::DIGIT-SIZE)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)
;           SB!BIGNUM::DIGIT-SIZE))
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (+ 1
;        (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

;     (ASH 1 SB!BIGNUM::D)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1 9223372036854775808) &OPTIONAL), not a (VALUES
;                                                                                  FIXNUM
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1 9223372036854775808) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.

;     (1- (ASH 1 SB!BIGNUM::D))
; ==>
;   (- (ASH 1 SB!BIGNUM::D) 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       etc.

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::U 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN DMOD ...)
; x-compiling (DEFCONSTANT LOWER-ONES-DIGIT ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN REDUCED-RATIO-MOD
;     (INTEGER-LENGTH SB!BIGNUM::N1)
; ==>
;   SB!BIGNUM::N1
; 
; note: doing unsigned word to integer coercion (cost 20) from N1

;     (INTEGER-LENGTH SB!BIGNUM::N2)
; ==>
;   SB!BIGNUM::N2
; 
; note: doing unsigned word to integer coercion (cost 20) from N2
; x-compiling (DEFUN REDUCED-RATIO-MOD ...)
; x-compiling (DEFUN COPY-BIGNUM ...)
; x-compiling (DECLAIM (INLINE MAKE-SMALL-BIGNUM))
; x-compiling (DEFUN MAKE-SMALL-BIGNUM ...)
; x-compiling (DEFPARAMETER *ACCELERATED-GCD-CUTOFF* ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-GCD
;     (ZEROP SB!BIGNUM::V1)
; ==>
;   (= SB!BIGNUM::V1 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.

;     (> SB!BIGNUM::U1 SB!BIGNUM::V1)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (MOD SB!BIGNUM::V1 SB!BIGNUM::U1)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB!C::DIVISOR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
;   The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
;   The second argument is a REAL, not a (OR DOUBLE-FLOAT SINGLE-FLOAT INTEGER).
; 
; note: unable to
;   convert division by 2^k to shift
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.
;   The second argument is a REAL, not a INTEGER.

; --> LET IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB!C::DIVISOR 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (+ 8 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ 8
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (> SB!BIGNUM::U1 SB!BIGNUM::V1)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (MOD SB!BIGNUM::V1 SB!BIGNUM::U1)
; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB!C::DIVISOR 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

; ==>
;   (< NUMBER 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       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.

; --> LET IF 
; ==>
;   (+ REM SB!C::DIVISOR)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       etc.

;     (< SB!BIGNUM::U-LEN SB!BIGNUM::*ACCELERATED-GCD-CUTOFF*)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The second argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

;     (+ 8 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

;     (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (+ 8
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (ASH
;      (SB!BIGNUM::BIGNUM-MOD-GCD SB!BIGNUM::U1
;       (IF (SB!INT:FIXNUMP SB!BIGNUM::N)
;           (SB!BIGNUM:MAKE-SMALL-BIGNUM SB!BIGNUM::N)
;           SB!BIGNUM::N))
;      SB!BIGNUM::FACTORS-OF-TWO)
; 
; 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 (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V 0))
; --> = IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V1 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-GCD ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-MOD-GCD
;     (MOD SB!BIGNUM::A SB!BIGNUM::B)
; --> LET IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (< SB!BIGNUM::A SB!BIGNUM::B)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) comparison (cost 6) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (UNSIGNED-BYTE 32).

;     (MOD SB!BIGNUM::A SB!BIGNUM::B)
; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB!C::DIVISOR 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (unsigned-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       unable to do inline (signed-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (< NUMBER 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline (unsigned-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       unable to do inline (signed-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       etc.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline (unsigned-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       unable to do inline (signed-byte 32) comparison (cost 5) because:
;       The first argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       etc.

; --> LET IF 
; ==>
;   (+ REM SB!C::DIVISOR)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (SIGNED-BYTE 32).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                              &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second argument is a BIGNUM, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                              &REST T).

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::B 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-MOD-GCD ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-BINARY-GCD
;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::R 0))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-BINARY-GCD ...)
; x-compiling (DEFUN BIGNUM-GCD-ORDER-AND-SUBTRACT ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN MAKE-GCD-BIGNUM-ODD
;     (ZEROP SB!BIGNUM::DIGIT)
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from DIGIT, for:
;       the first argument of IF-EQ
; x-compiling (DEFUN MAKE-GCD-BIGNUM-ODD ...)
; x-compiling (DEFUN NEGATE-BIGNUM ...)
; x-compiling (DEFUN NEGATE-BIGNUM-BUFFER-IN-PLACE ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN NEGATE-BIGNUM-IN-PLACE
;     (DEFUN SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE (BIGNUM)
;       (DECLARE (INLINE SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE))
;       (SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE BIGNUM
;        (SB!BIGNUM:%BIGNUM-LENGTH BIGNUM)))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE
;    (SB!INT:NAMED-LAMBDA SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE
;        (BIGNUM)
;      (DECLARE (INLINE SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE))
;      (BLOCK SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE
;        (SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE BIGNUM
;         (SB!BIGNUM:%BIGNUM-LENGTH BIGNUM))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE could not be inlined because
;   its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE
;   proclamation must be in effect to save function definitions for inlining.
; x-compiling (DEFUN NEGATE-BIGNUM-IN-PLACE ...)
; x-compiling (DEFUN BIGNUM-ABS-BUFFER ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-ASHIFT-RIGHT
;     (ERROR "bignum overflow: can't shift right by ~S" COUNT)
; ==>
;   "bignum overflow: can't shift right by ~S"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT-DIGITS ...)
; x-compiling (DEFUN BIGNUM-BUFFER-ASHIFT-RIGHT ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-DIGITS ...)
; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-UNALIGNED ...)
; x-compiling (DEFUN BIGNUM-PLUS-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BIGNUM-COMPARE ...)
; x-compiling (DEFUN SINGLE-FLOAT-FROM-BITS ...)
; x-compiling (DEFUN DOUBLE-FLOAT-FROM-BITS ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-TO-FLOAT
;     (> EXP MAX)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (+ EXP SB!BIGNUM::BIAS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (> EXP MAX)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

;     (ZEROP (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::X SB!BIGNUM::I))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-TO-FLOAT ...)
; x-compiling (DEFUN BIGNUM-BUFFER-INTEGER-LENGTH ...)
; x-compiling (DEFUN BIGNUM-INTEGER-LENGTH ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-LOGBITP
;     (LOGBITP SB!KERNEL:BIT-INDEX
;              (SB!BIGNUM:%BIGNUM-REF BIGNUM SB!BIGNUM::WORD-INDEX))
; --> IF NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-LOGBITP ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-LOGCOUNT
;     (- (* LENGTH SB!BIGNUM::DIGIT-SIZE) SB!BIGNUM::RESULT)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>", for:
;       the first result of inline (signed-byte 32) arithmetic
; x-compiling (DEFUN BIGNUM-LOGCOUNT ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-NOT ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-AND ...)
; x-compiling (DEFUN LOGAND-SHORTER-POSITIVE ...)
; x-compiling (DEFUN LOGAND-SHORTER-NEGATIVE ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-IOR ...)
; x-compiling (DEFUN LOGIOR-SHORTER-POSITIVE ...)
; x-compiling (DEFUN LOGIOR-SHORTER-NEGATIVE ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-XOR ...)
; x-compiling (DEFUN BIGNUM-LOGICAL-XOR-AUX ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN BIGNUM-TRUNCATE
;     (LOGTEST SB!BIGNUM::Y (1- SB!BIGNUM::Y))
; --> NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (= SB!BIGNUM::Y 0)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (= SB!BIGNUM::Y 1)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (INTEGER-LENGTH SB!BIGNUM::Y)
; 
; note: doing unsigned word to integer coercion (cost 20) from Y

;     (VALUES
;      (SB!BIGNUM::SHIFT-RIGHT-UNALIGNED SB!BIGNUM::X 0 SB!BIGNUM::N-BITS
;       SB!BIGNUM::LEN-X
;       ((= SB!BIGNUM::J SB!BIGNUM::RES-LEN-1) (SETF # #) SB!BIGNUM::RES)
;       SB!BIGNUM::RES)
;      (LOGAND (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::X 0) (1- SB!BIGNUM::Y)))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (INTEGER-LENGTH LAST)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!BIGNUM::%DIGIT-COMPARE SB!BIGNUM::HIGH-DIGIT 0)
; --> BLOCK = IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN BIGNUM-TRUNCATE ...)
; x-compiling (DECLAIM (MAYBE-INLINE %NORMALIZE-BIGNUM-BUFFER))

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN %NORMALIZE-BIGNUM-BUFFER
;     (ZEROP
;      (LOGXOR SB!BIGNUM::SIGN-DIGIT
;              (SB!BIGNUM:%ASHR SB!BIGNUM::NEXT-DIGIT (1- SB!BIGNUM::DIGIT-SIZE))))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN %NORMALIZE-BIGNUM-BUFFER ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN %NORMALIZE-BIGNUM
;     (SB!BIGNUM::%NORMALIZE-BIGNUM-BUFFER SB!BIGNUM::RESULT SB!BIGNUM::LEN)
; --> BLOCK UNLESS IF PROGN DO BLOCK LET TAGBODY UNLESS IF NOT IF ZEROP = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!BIGNUM:%FIXNUM-DIGIT-WITH-CORRECT-SIGN SB!BIGNUM::DIGIT)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of SIGNIFY-DIGIT
; x-compiling (DEFUN %NORMALIZE-BIGNUM ...)

; file: /«PKGBUILDDIR»/src/code/bignum.lisp
; in: DEFUN %MOSTLY-NORMALIZE-BIGNUM
;     (SB!BIGNUM::%NORMALIZE-BIGNUM-BUFFER SB!BIGNUM::RESULT SB!BIGNUM::LEN)
; --> BLOCK UNLESS IF PROGN DO BLOCK LET TAGBODY UNLESS IF NOT IF ZEROP = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN %MOSTLY-NORMALIZE-BIGNUM ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 91 notes
; x-compiling (DEFUN SXHASH-BIGNUM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/bignum.lisp-obj-tmp written
; compilation finished in 0:00:05.604
; compiling file "/«PKGBUILDDIR»/src/code/numbers.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN PARSE-NUMBER-DISPATCH ...)
; x-compiling (DEFPARAMETER *TYPE-TEST-ORDERING* ...)
; x-compiling (DEFUN TYPE-TEST-ORDER ...)
; x-compiling (DEFUN GENERATE-NUMBER-DISPATCH ...)
; x-compiling (DEFMACRO NUMBER-DISPATCH ...)
; x-compiling (DECLAIM (INLINE CANONICAL-COMPLEX))
; x-compiling (DEFUN CANONICAL-COMPLEX ...)
; x-compiling (DECLAIM (INLINE BUILD-RATIO))
; x-compiling (DEFUN BUILD-RATIO ...)
; x-compiling (DECLAIM (INLINE MAYBE-TRUNCATE))
; x-compiling (DEFUN MAYBE-TRUNCATE ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN COMPLEX
;     (SB!KERNEL::CANONICAL-COMPLEX REALPART IMAGPART)
; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX 
; ==>
;   IMAGPART
; 
; note: deleting unreachable code

; --> BLOCK IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX 
; ==>
;   IMAGPART
; 
; note: deleting unreachable code

; ==>
;   REALPART
; 
; note: deleting unreachable code

; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX 
; ==>
;   REALPART
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPLEX ...)
; x-compiling (DEFUN REALPART ...)
; x-compiling (DEFUN IMAGPART ...)
; x-compiling (DEFUN CONJUGATE ...)
; x-compiling (DEFUN SIGNUM ...)
; x-compiling (DEFUN NUMERATOR ...)
; x-compiling (DEFUN DENOMINATOR ...)
; x-compiling (DEFINE-ARITH + ...)
; x-compiling (DEFINE-ARITH * ...)
; x-compiling (DEFUN - ...)
; x-compiling (DEFUN / ...)
; x-compiling (DEFUN 1+ ...)
; x-compiling (DEFUN 1- ...)
; x-compiling (TWO-ARG-+/- TWO-ARG-+ ...)
; x-compiling (TWO-ARG-+/- TWO-ARG-- ...)
; x-compiling (DEFUN TWO-ARG-* ...)
; x-compiling (DEFUN INTEGER-/-INTEGER ...)
; x-compiling (DEFUN TWO-ARG-/ ...)
; x-compiling (DEFUN %NEGATE ...)
; x-compiling (DEFUN TRUNCATE ...)
; x-compiling (DEFUN %MULTIPLY-HIGH ...)
; x-compiling (DEFUN FLOOR ...)
; x-compiling (DEFUN CEILING ...)
; x-compiling (DEFUN REM ...)
; x-compiling (DEFUN MOD ...)
; x-compiling (DEFUN ROUND ...)
; x-compiling (DEFMACRO !DEFINE-FLOAT-ROUNDING-FUNCTION ...)
; x-compiling (DECLAIM (INLINE FCEILING ...))
; x-compiling (DEFUN FTRUNCATE ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN FFLOOR
;     (FTRUNCATE NUMBER SB!KERNEL::DIVISOR)
; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; --> LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!KERNEL::DIVISOR
; 
; note: deleting unreachable code
; x-compiling (DEFUN FFLOOR ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN FCEILING
;     (FTRUNCATE NUMBER SB!KERNEL::DIVISOR)
; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; --> LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!KERNEL::DIVISOR
; 
; note: deleting unreachable code
; x-compiling (DEFUN FCEILING ...)
; x-compiling (DEFUN FROUND ...)
; x-compiling (DEFUN = ...)
; x-compiling (DEFUN /= ...)
; x-compiling (DEF < ...)
; x-compiling (DEF > ...)
; x-compiling (DEF <= ...)
; x-compiling (DEF >= ...)
; x-compiling (DEFUN MAX ...)
; x-compiling (DEFUN MIN ...)
; x-compiling (DEF-TWO-ARG-</> TWO-ARG-< ...)
; x-compiling (DEF-TWO-ARG-</> TWO-ARG-> ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN TWO-ARG-=
;     (SB!KERNEL::NUMBER-DISPATCH ((SB!KERNEL::X NUMBER) (SB!KERNEL::Y NUMBER))
;      (SB!KERNEL::BASIC-COMPARE = :INFINITE-X-FINITE-Y NIL :INFINITE-Y-FINITE-X
;                                NIL)
;      ((FIXNUM (OR BIGNUM RATIO)) NIL) ((BIGNUM (OR FIXNUM RATIO)) NIL)
;      ((BIGNUM BIGNUM)
;       (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y)))
;      ((RATIO INTEGER) NIL)
;      ((RATIO RATIO)
;       (AND (EQL (NUMERATOR SB!KERNEL::X) (NUMERATOR SB!KERNEL::Y))
;            (EQL (DENOMINATOR SB!KERNEL::X) (DENOMINATOR SB!KERNEL::Y))))
;      ((COMPLEX COMPLEX)
;       (AND (= (REALPART SB!KERNEL::X) (REALPART SB!KERNEL::Y))
;            (= (IMAGPART SB!KERNEL::X) (IMAGPART SB!KERNEL::Y))))
;      (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO SINGLE-FLOAT DOUBLE-FLOAT)
;        COMPLEX)
;       (AND (= SB!KERNEL::X (REALPART SB!KERNEL::Y))
;            (ZEROP (IMAGPART SB!KERNEL::Y))))
;      ((COMPLEX (OR FLOAT RATIONAL))
;       (AND (= (REALPART SB!KERNEL::X) SB!KERNEL::Y)
;            (ZEROP (IMAGPART SB!KERNEL::X)))))
; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF 
; --> COND IF COND IF COND IF COND IF COND IF PROGN IF = IF = 
; ==>
;   SB!KERNEL::X
; 
; note: deleting unreachable code
; x-compiling (DEFUN TWO-ARG-= ...)
; x-compiling (DEF LOGIOR ...)
; x-compiling (DEF LOGXOR ...)
; x-compiling (DEF LOGAND ...)
; x-compiling (DEF LOGEQV ...)
; x-compiling (DEFUN LOGNOT ...)
; x-compiling (DEF TWO-ARG-AND ...)
; x-compiling (DEF TWO-ARG-IOR ...)
; x-compiling (DEF TWO-ARG-XOR ...)
; x-compiling (DEF TWO-ARG-EQV ...)
; x-compiling (DEF LOGNAND ...)
; x-compiling (DEF LOGNOR ...)
; x-compiling (DEF LOGANDC1 ...)
; x-compiling (DEF LOGANDC2 ...)
; x-compiling (DEF LOGORC1 ...)
; x-compiling (DEF LOGORC2 ...)
; x-compiling (DEFUN LOGCOUNT ...)
; x-compiling (DEFUN LOGTEST ...)

; file: /«PKGBUILDDIR»/src/code/numbers.lisp
; in: DEFUN LOGBITP
;     (SB!KERNEL::NUMBER-DISPATCH ((SB!INT:INDEX INTEGER) (INTEGER INTEGER))
;      ((FIXNUM FIXNUM)
;       (IF (< SB!INT:INDEX SB!VM:N-POSITIVE-FIXNUM-BITS)
;           (NOT (ZEROP #))
;           (MINUSP INTEGER)))
;      ((FIXNUM BIGNUM) (SB!BIGNUM:BIGNUM-LOGBITP SB!INT:INDEX INTEGER))
;      ((BIGNUM (SB!KERNEL::FOREACH FIXNUM BIGNUM)) (MINUSP INTEGER)))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   INTEGER
; 
; note: deleting unreachable code

; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

; --> BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

; ==>
;   INTEGER
; 
; note: deleting unreachable code
; x-compiling (DEFUN LOGBITP ...)
; x-compiling (DEFUN ASH ...)
; x-compiling (DEFUN INTEGER-LENGTH ...)
; x-compiling (DEFUN BYTE ...)
; x-compiling (DEFUN BYTE-SIZE ...)
; x-compiling (DEFUN BYTE-POSITION ...)
; x-compiling (DEFUN LDB ...)
; x-compiling (DEFUN LDB-TEST ...)
; x-compiling (DEFUN MASK-FIELD ...)
; x-compiling (DEFUN DPB ...)
; x-compiling (DEFUN DEPOSIT-FIELD ...)
; x-compiling (DEFUN %LDB ...)
; x-compiling (DEFUN %MASK-FIELD ...)
; x-compiling (DEFUN %DPB ...)
; x-compiling (DEFUN %DEPOSIT-FIELD ...)
; x-compiling (DEFUN SB!C::MASK-SIGNED-FIELD ...)
; x-compiling (DEFCONSTANT BOOLE-CLR ...)
; x-compiling (DEFCONSTANT BOOLE-SET ...)
; x-compiling (DEFCONSTANT BOOLE-1 ...)
; x-compiling (DEFCONSTANT BOOLE-2 ...)
; x-compiling (DEFCONSTANT BOOLE-C1 ...)
; x-compiling (DEFCONSTANT BOOLE-C2 ...)
; x-compiling (DEFCONSTANT BOOLE-AND ...)
; x-compiling (DEFCONSTANT BOOLE-IOR ...)
; x-compiling (DEFCONSTANT BOOLE-XOR ...)
; x-compiling (DEFCONSTANT BOOLE-EQV ...)
; x-compiling (DEFCONSTANT BOOLE-NAND ...)
; x-compiling (DEFCONSTANT BOOLE-NOR ...)
; x-compiling (DEFCONSTANT BOOLE-ANDC1 ...)
; x-compiling (DEFCONSTANT BOOLE-ANDC2 ...)
; x-compiling (DEFCONSTANT BOOLE-ORC1 ...)
; x-compiling (DEFCONSTANT BOOLE-ORC2 ...)
; x-compiling (DEFUN BOOLE ...)
; x-compiling (DEFUN GCD ...)
; x-compiling (DEFUN LCM ...)
; x-compiling (DEFUN TWO-ARG-LCM ...)
; x-compiling (DEFUN TWO-ARG-GCD ...)
; x-compiling (DEFUN ISQRT ...)
; x-compiling (DEF ZEROP ...)
; x-compiling (DEF PLUSP ...)
; x-compiling (DEF MINUSP ...)
; x-compiling (DEF ODDP ...)
; x-compiling (DEF EVENP ...)
; x-compiling (DEFUN SB!VM::*-MOD32 ...)
; x-compiling (DEFUN SB!VM::+-MOD32 ...)
; x-compiling (DEFUN SB!VM::--MOD32 ...)
; x-compiling (DEFUN SB!VM::LOGANDC1-MOD32 ...)
; x-compiling (DEFUN SB!VM::LOGANDC2-MOD32 ...)
; x-compiling (DEFUN SB!VM::LOGNOT-MOD32 ...)
; x-compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...)
; 
; compilation unit finished
;   printed 13 notes
; x-compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/numbers.lisp-obj-tmp written
; compilation finished in 0:00:12.293
; compiling file "/«PKGBUILDDIR»/src/code/float-trap.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFPARAMETER *FLOAT-TRAP-ALIST* ...)
; x-compiling (DEFPARAMETER *ROUNDING-MODE-ALIST* ...)
; x-compiling (DEFUN FLOAT-TRAP-MASK ...)
; x-compiling (DEFUN FLOATING-POINT-MODES ...)
; x-compiling (DEFUN (SETF FLOATING-POINT-MODES) ...)
; x-compiling (DEFUN SET-FLOATING-POINT-MODES ...)
; x-compiling (DEFUN GET-FLOATING-POINT-MODES ...)
; x-compiling (DEFVAR *SAVED-FLOATING-POINT-MODES* ...)
; x-compiling (DEFUN FLOAT-COLD-INIT-OR-REINIT ...)
; x-compiling (DEFUN FLOAT-DEINIT ...)
; x-compiling (DEFMACRO CURRENT-FLOAT-TRAP ...)
; x-compiling (DEFPARAMETER *SIGFPE-CODE-ERROR-ALIST* ...)
; x-compiling (DEFUN SIGFPE-HANDLER ...)
; x-compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/float-trap.lisp-obj-tmp written
; compilation finished in 0:00:00.687
; compiling file "/«PKGBUILDDIR»/src/code/float.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-DENORMALIZED-P ...))
; x-compiling (DEFUN FLOAT-DENORMALIZED-P ...)
; x-compiling (DEFMACRO !DEFINE-FLOAT-DISPATCHING-FUNCTION ...)
; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-INFINITY-P ...)
; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-NAN-P ...)
; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-TRAPPING-NAN-P ...)
; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-PRECISION))
; x-compiling (DEFUN FLOAT-PRECISION ...)
; x-compiling (DEFUN FLOAT-SIGN ...)
; x-compiling (DEFUN FLOAT-FORMAT-DIGITS ...)
; x-compiling (DECLAIM (INLINE FLOAT-DIGITS ...))
; x-compiling (DEFUN FLOAT-DIGITS ...)
; x-compiling (DEFUN FLOAT-RADIX ...)
; x-compiling (DECLAIM (MAYBE-INLINE INTEGER-DECODE-SINGLE-FLOAT ...))
; x-compiling (DEFUN INTEGER-DECODE-SINGLE-DENORM ...)
; x-compiling (DEFUN INTEGER-DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-DENORM ...)
; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN INTEGER-DECODE-FLOAT ...)
; x-compiling (DECLAIM (MAYBE-INLINE DECODE-SINGLE-FLOAT ...))
; x-compiling (DEFUN DECODE-SINGLE-DENORM ...)
; x-compiling (DEFUN DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFUN DECODE-DOUBLE-DENORM ...)
; x-compiling (DEFUN DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN DECODE-FLOAT ...)
; x-compiling (DECLAIM (MAYBE-INLINE SCALE-SINGLE-FLOAT ...))
; x-compiling (DEFUN SCALE-FLOAT-MAYBE-UNDERFLOW ...)
; x-compiling (DEFUN SCALE-FLOAT-MAYBE-OVERFLOW ...)
; x-compiling (DEFUN SCALE-SINGLE-FLOAT ...)
; x-compiling (DEFUN SCALE-DOUBLE-FLOAT ...)
; x-compiling (DEFUN SCALE-FLOAT ...)
; x-compiling (DEFUN FLOAT ...)
; x-compiling (FROB %SINGLE-FLOAT ...)
; x-compiling (FROB %DOUBLE-FLOAT ...)
; x-compiling (DEFUN FLOAT-RATIO ...)

; file: /«PKGBUILDDIR»/src/code/float.lisp
; in: DEFUN %UNARY-TRUNCATE
;     (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER)
;      ((RATIO) (VALUES (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER))))
;      (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT))
;       (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER
;              (FLOAT MOST-POSITIVE-FIXNUM NUMBER))
;           (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-TRUNCATE NUMBER))
;           (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP)
;               (INTEGER-DECODE-FLOAT NUMBER)
;             (LET #
;               #)))))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; x-compiling (DEFUN %UNARY-TRUNCATE ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/code/float.lisp
; in: DEFUN %UNARY-ROUND
;     (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER)
;      ((RATIO) (VALUES (ROUND (NUMERATOR NUMBER) (DENOMINATOR NUMBER))))
;      (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT))
;       (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER
;              (FLOAT MOST-POSITIVE-FIXNUM NUMBER))
;           (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-ROUND NUMBER))
;           (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP)
;               (INTEGER-DECODE-FLOAT NUMBER)
;             (LET* #
;               #)))))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; x-compiling (DEFUN %UNARY-ROUND ...)

; file: /«PKGBUILDDIR»/src/code/float.lisp
; in: DEFUN %UNARY-FTRUNCATE
;     (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) (FLOAT NUMBER))
;      ((RATIO) (FLOAT (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER))))
;      (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT))
;       (SB!KERNEL:%UNARY-FTRUNCATE NUMBER)))
; --> BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; x-compiling (DEFUN %UNARY-FTRUNCATE ...)
; x-compiling (DEFUN RATIONAL ...)
; 
; compilation unit finished
;   printed 3 notes
; x-compiling (DEFUN RATIONALIZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/float.lisp-obj-tmp written
; compilation finished in 0:00:03.106
; compiling file "/«PKGBUILDDIR»/src/code/irrat.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFCONSTANT PI ...)
; x-compiling (DEF %SQRT ...)
; x-compiling (DEF-MATH-RTN "sin" ...)
; x-compiling (DEF-MATH-RTN "cos" ...)
; x-compiling (DEF-MATH-RTN "tan" ...)
; x-compiling (DEF-MATH-RTN "atan" ...)
; x-compiling (DEF-MATH-RTN "atan2" ...)
; x-compiling (DEF-MATH-RTN "acos" ...)
; x-compiling (DEF-MATH-RTN "asin" ...)
; x-compiling (DEF-MATH-RTN "cosh" ...)
; x-compiling (DEF-MATH-RTN "sinh" ...)
; x-compiling (DEF-MATH-RTN "tanh" ...)
; x-compiling (DEF-MATH-RTN "asinh" ...)
; x-compiling (DEF-MATH-RTN "acosh" ...)
; x-compiling (DEF-MATH-RTN "atanh" ...)
; x-compiling (DEF-MATH-RTN "hypot" ...)
; x-compiling (DEF-MATH-RTN "exp" ...)
; x-compiling (DEF-MATH-RTN "log" ...)
; x-compiling (DEF-MATH-RTN "log10" ...)
; x-compiling (DEF-MATH-RTN "pow" ...)
; x-compiling (DEF-MATH-RTN "log1p" ...)
; x-compiling (DEFUN EXP ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFPARAMETER *INTEXP-MAXIMUM-EXPONENT* ...)
; x-compiling (DEFUN INTEXP ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN EXPT
;     (= SB!KERNEL::LO 0)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from LO, for:
;       the first argument of IF-EQ
; x-compiling (DEFUN EXPT ...)
; x-compiling (DEFUN LOG2 ...)
; x-compiling (DEFUN LOG ...)
; x-compiling (DEFUN SQRT ...)
; x-compiling (DEFUN ABS ...)
; x-compiling (DEFUN PHASE ...)
; x-compiling (DEFUN SIN ...)
; x-compiling (DEFUN COS ...)
; x-compiling (DEFUN TAN ...)
; x-compiling (DEFUN CIS ...)
; x-compiling (DEFUN ASIN ...)
; x-compiling (DEFUN ACOS ...)
; x-compiling (DEFUN ATAN ...)
; x-compiling (DEFUN SINH ...)
; x-compiling (DEFUN COSH ...)
; x-compiling (DEFUN TANH ...)
; x-compiling (DEFUN ASINH ...)
; x-compiling (DEFUN ACOSH ...)
; x-compiling (DEFUN ATANH ...)
; x-compiling (DECLAIM (INLINE SQUARE))
; x-compiling (DEFUN SQUARE ...)
; x-compiling (DECLAIM (INLINE SCALB))
; x-compiling (DEFUN SCALB ...)
; x-compiling (DECLAIM (INLINE LOGB-FINITE))
; x-compiling (DEFUN LOGB-FINITE ...)
; x-compiling (DEFUN LOGB ...)
; x-compiling (DECLAIM (INLINE COERCE-TO-COMPLEX-TYPE))
; x-compiling (DEFUN COERCE-TO-COMPLEX-TYPE ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN CSSQS
;     (SB!KERNEL::LOGB-FINITE (MAX (ABS SB!KERNEL::X) (ABS SB!KERNEL::Y)))
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT 
; ==>
;   (SB!KERNEL:DECODE-DOUBLE-FLOAT SB!C::X)
; 
; note: doing float to pointer coercion (cost 13) to X

;     (VALUES
;      (+ (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::X SB!KERNEL::K))
;         (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::Y SB!KERNEL::K)))
;      (- SB!KERNEL::K))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

;     (VALUES SB!KERNEL::RHO 0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

;     (SB!EXT:FLOAT-NAN-P SB!KERNEL::RHO)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE OR LET IF OR THE NOT IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::RHO)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE AND IF AND THE ZEROP = IF = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN CSSQS ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-SQRT
;     (SB!EXT:FLOAT-NAN-P SB!KERNEL::X)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF PROGN LET SB!KERNEL:SINGLE-FLOAT-BITS 
; ==>
;   SB!KERNEL::X
; 
; note: deleting unreachable code

; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   SB!KERNEL::X
; 
; note: deleting unreachable code

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE SB!KERNEL::ETA SB!KERNEL::NU SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                    RATIONAL).
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                        SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                        DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (SB!KERNEL::SCALB (SQRT SB!KERNEL::RHO) SB!KERNEL::K)
; --> BLOCK SCALE-FLOAT 
; ==>
;   (SB!KERNEL:SCALE-DOUBLE-FLOAT SB!C::F SB!C::EX)
; 
; note: doing float to pointer coercion (cost 13) to X

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE SB!KERNEL::ETA SB!KERNEL::NU SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13) from ETA
; 
; note: doing float to pointer coercion (cost 13) from NU

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!EXT:FLOAT-INFINITY-P (ABS SB!KERNEL::NU))
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE AND IF AND THE ZEROP = IF = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!EXT:FLOAT-NAN-P SB!KERNEL::X)
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE OR LET IF OR THE NOT IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB!KERNEL::SCALB (ABS SB!KERNEL::X) (- SB!KERNEL::K))
; --> BLOCK SCALE-FLOAT 
; ==>
;   (SB!KERNEL:SCALE-DOUBLE-FLOAT SB!C::F SB!C::EX)
; 
; note: doing float to pointer coercion (cost 13) to X
; x-compiling (DEFUN COMPLEX-SQRT ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-LOG-SCALED
;     (LOG SB!KERNEL::RHO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (/ (LOG SB!KERNEL::RHO) 2.0d0)
; 
; note: unable to
;   convert to multiplication by reciprocal
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).

;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; 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).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA)
;               (OR (<= SB!KERNEL::BETA SB!KERNEL::T1)
;                   (< SB!KERNEL::RHO SB!KERNEL::T2)))
;          (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0)
;          (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;             (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)))
;      (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (/ (LOG SB!KERNEL::RHO) 2.0d0)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA)
;               (OR (<= SB!KERNEL::BETA SB!KERNEL::T1)
;                   (< SB!KERNEL::RHO SB!KERNEL::T2)))
;          (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0)
;          (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;             (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)))
;      (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; note: doing float to pointer coercion (cost 13), for:
;       the second argument of static-fun Two-arg-+

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA)
;               (OR (<= SB!KERNEL::BETA SB!KERNEL::T1)
;                   (< SB!KERNEL::RHO SB!KERNEL::T2)))
;          (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0)
;          (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;             (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)))
;      (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13)

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (/
;      (SB!KERNEL:%LOG1P
;       (+ (* (- SB!KERNEL::BETA 1.0d0) (+ SB!KERNEL::BETA 1.0d0))
;          (* SB!KERNEL::THETA SB!KERNEL::THETA)))
;      2.0d0)
; ==>
;   (* SB!C::X 0.5d0)
; 
; note: doing float to pointer coercion (cost 13)
; x-compiling (DEFUN COMPLEX-LOG-SCALED ...)
; x-compiling (DEFUN COMPLEX-LOG ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-ATANH
;     (SQRT SB!KERNEL::T1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (SQRT (SQRT SB!KERNEL::T1))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (SQRT SB!KERNEL::T2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).

;     (LOG (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::ETA)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)
;                                DOUBLE-FLOAT), not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)
;                                DOUBLE-FLOAT), not a (COMPLEX DOUBLE-FLOAT).

;     (- (* SB!KERNEL::BETA SB!KERNEL::NU))
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER (* SB!KERNEL::BETA SB!KERNEL::NU)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA)
;      (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2))
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::ETA)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::NU)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (- (* SB!KERNEL::BETA SB!KERNEL::NU))
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER (* SB!KERNEL::BETA SB!KERNEL::NU)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA)
;      (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (SETF SB!KERNEL::ETA
;             (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #))
;               (IF SB!KERNEL::X-BIGGER
;                   (/ # SB!KERNEL::D)
;                   (/ # SB!KERNEL::D))))
; ==>
;   (SETQ SB!KERNEL::ETA
;           (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #))
;             (IF SB!KERNEL::X-BIGGER
;                 (/ # SB!KERNEL::D)
;                 (/ # SB!KERNEL::D))))
; 
; note: doing float to pointer coercion (cost 13) to ETA

;     (* SB!KERNEL::BETA SB!KERNEL::NU)
; 
; note: doing float to pointer coercion (cost 13) from NU, for:
;       the second argument of static-fun Two-arg-*

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA)
;      (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SETF SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #))))
; ==>
;   (SETQ SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #))))
; 
; note: doing float to pointer coercion (cost 13) to ETA

;     (SQRT SB!KERNEL::T1)
; 
; note: doing float to pointer coercion (cost 13)

;     (SQRT SB!KERNEL::T2)
; 
; note: doing float to pointer coercion (cost 13) from T2
; x-compiling (DEFUN COMPLEX-ATANH ...)

; file: /«PKGBUILDDIR»/src/code/irrat.lisp
; in: DEFUN COMPLEX-TANH
;     (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (/ SB!KERNEL::RHO SB!KERNEL::S)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S)
;      (/ SB!KERNEL::TV) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S)
; --> * 
; ==>
;   (* SB!KERNEL::BETA SB!KERNEL::RHO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).

; ==>
;   (* (* SB!KERNEL::BETA SB!KERNEL::RHO) SB!KERNEL::S)
; 
; 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).

;     (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
; 
; 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).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
;      (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X)
;      (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                               (COMPLEX DOUBLE-FLOAT)
;                               (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL).
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (/ SB!KERNEL::RHO SB!KERNEL::S)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S)
;      (/ SB!KERNEL::TV) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S)
; --> * 
; ==>
;   (* SB!KERNEL::BETA SB!KERNEL::RHO)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

; ==>
;   (* (* SB!KERNEL::BETA SB!KERNEL::RHO) SB!KERNEL::S)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline float arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
;      (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z)
; --> BLOCK IF TYPEP LET 
; ==>
;   (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex single float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex double float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX
;                                                                                      DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: forced to do full call
;       unable to do inline complex single-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX SINGLE-FLOAT)
;                                                         &REST T).

; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: forced to do full call
;       unable to do inline complex double-float creation (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
;                                                         (COMPLEX DOUBLE-FLOAT)
;                                                         &REST T).

;     (SINH SB!KERNEL::X)
; --> SB!KERNEL:%SINH BLOCK SB!ALIEN:ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:NATURALIZE LET 
; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN 
; ==>
;   (SB!C:%ALIEN-FUNCALL
;    (SB!ALIEN-INTERNALS:DEPORT FUNCTION
;     '#<SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)>)
;    '#<SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)>
;    (SB!ALIEN-INTERNALS:DEPORT #:G19084
;     '#<SB!ALIEN-INTERNALS:ALIEN-DOUBLE-FLOAT-TYPE DOUBLE-FLOAT>))
; 
; note: doing float to pointer coercion (cost 13)

;     (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S)))
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!EXT:FLOAT-INFINITY-P (ABS SB!KERNEL::TV))
; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET 
; --> COND IF COND IF PROGN LET AND IF AND THE AND IF AND THE ZEROP = IF = EQL 
; --> IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S)
; --> * 
; ==>
;   (* SB!KERNEL::BETA SB!KERNEL::RHO)
; 
; note: doing float to pointer coercion (cost 13), for:
;       the first argument of static-fun Two-arg-*

;     (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
; 
; note: doing float to pointer coercion (cost 13), for:
;       the second argument of static-fun Two-arg-/

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE
;      (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
;      (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13)

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S)
;      (/ SB!KERNEL::TV) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX SB!KERNEL::X SB!KERNEL::Y)
; 
; note: doing float to pointer coercion (cost 13)

; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

;     (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X)
;      (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z)
; --> BLOCK IF 
; ==>
;   (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)
; x-compiling (DEFUN COMPLEX-TANH ...)
; x-compiling (DEFUN COMPLEX-ACOS ...)
; x-compiling (DEFUN COMPLEX-ACOSH ...)
; x-compiling (DEFUN COMPLEX-ASIN ...)
; x-compiling (DEFUN COMPLEX-ASINH ...)
; x-compiling (DEFUN COMPLEX-ATAN ...)
; 
; compilation unit finished
;   printed 107 notes
; x-compiling (DEFUN COMPLEX-TAN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/irrat.lisp-obj-tmp written
; compilation finished in 0:00:17.505
; compiling file "/«PKGBUILDDIR»/src/code/char.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...)
; x-compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/char.lisp-obj-tmp written
; compilation finished in 0:00:00.049
; compiling file "/«PKGBUILDDIR»/src/code/huffman.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSTRUCT (HUFFMAN-NODE #) ...)
; x-compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...)
; x-compiling (DEFUN HUFFMAN-WEIGHTS ...)
; x-compiling (DEFUN MAKE-HUFFMAN-TREE ...)
; x-compiling (DEFUN HUFFMAN-DECODE ...)
; x-compiling (DEFUN HUFFMAN-MATCH ...)
; x-compiling (DEFUN HUFFMAN-ENCODE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/huffman.lisp-obj-tmp written
; compilation finished in 0:00:02.999
; compiling file "/«PKGBUILDDIR»/src/code/target-char.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/target-char.lisp
; in:
;      DECLAIM (INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P ...)
;     (DECLAIM
;      (INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P
;       LOWER-CASE-P BOTH-CASE-P ALPHANUMERICP CHAR-INT))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM
;    '(INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P
;      LOWER-CASE-P BOTH-CASE-P ALPHANUMERICP CHAR-INT)
;    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:ALPHANUMERICP to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE STANDARD-CHAR-P ...))
; x-compiling (DECLAIM (MAYBE-INLINE DIGIT-CHAR-P))
; x-compiling (DEFTYPE CHAR-CODE ...)
; x-compiling (DEFGLOBAL **UNICODE-CHARACTER-NAME-HUFFMAN-TREE** ...)
; x-compiling (DECLAIM (INLINE PACK-3-CODEPOINTS))
; x-compiling (DEFUN PACK-3-CODEPOINTS ...)
; x-compiling (FROB)
; x-compiling (DEFPARAMETER *BASE-CHAR-NAME-ALIST* ...)
; x-compiling (DECLAIM (INLINE CLEAR-FLAG))
; x-compiling (DEFUN CLEAR-FLAG ...)
; x-compiling (DEFCONSTANT +MISC-WIDTH+ ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MISC-INDEX ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN UCD-GENERAL-CATEGORY ...)
; x-compiling (DEFUN UCD-DECIMAL-DIGIT ...)
; x-compiling (DEFUN CHAR-CODE ...)
; x-compiling (DEFUN CHAR-INT ...)
; x-compiling (DEFUN CODE-CHAR ...)
; x-compiling (DEFUN CHARACTER ...)
; x-compiling (DEFUN CHAR-NAME ...)
; x-compiling (DEFUN NAME-CHAR ...)
; x-compiling (DEFUN STANDARD-CHAR-P ...)
; x-compiling (DEFUN %STANDARD-CHAR-P ...)
; x-compiling (DEFUN GRAPHIC-CHAR-P ...)
; x-compiling (DEFUN ALPHA-CHAR-P ...)

; file: /«PKGBUILDDIR»/src/code/target-char.lisp
; in: DECLAIM (INLINE BOTH-CASE-INDEX-P)
;     (DECLAIM (INLINE SB!IMPL::BOTH-CASE-INDEX-P))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::BOTH-CASE-INDEX-P) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::BOTH-CASE-INDEX-P to be INLINE, but 2 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE BOTH-CASE-INDEX-P))
; x-compiling (DEFUN BOTH-CASE-INDEX-P ...)
; x-compiling (DEFUN BOTH-CASE-P ...)
; x-compiling (DEFUN UPPER-CASE-P ...)
; x-compiling (DEFUN LOWER-CASE-P ...)
; x-compiling (DEFUN DIGIT-CHAR-P ...)
; x-compiling (DEFUN ALPHANUMERICP ...)
; x-compiling (DECLAIM (INLINE CHAR-CASE-INFO))
; x-compiling (DEFUN CHAR-CASE-INFO ...)
; x-compiling (DECLAIM (INLINE EQUAL-CHAR-CODE))
; x-compiling (DEFUN EQUAL-CHAR-CODE ...)
; x-compiling (DEFUN TWO-ARG-CHAR-EQUAL ...)
; x-compiling (DEFUN CHAR-EQUAL-CONSTANT ...)
; x-compiling (DEFUN TWO-ARG-CHAR-NOT-EQUAL ...)
; x-compiling (DEF CHAR/= ...)
; x-compiling (DEF CHAR-NOT-EQUAL ...)
; x-compiling (DEFUN TWO-ARG-CHAR-LESSP ...)
; x-compiling (DEFUN TWO-ARG-CHAR-GREATERP ...)
; x-compiling (DEFUN TWO-ARG-CHAR-NOT-GREATERP ...)
; x-compiling (DEFUN TWO-ARG-CHAR-NOT-LESSP ...)
; x-compiling (DEF CHAR= ...)
; x-compiling (DEF CHAR< ...)
; x-compiling (DEF CHAR> ...)
; x-compiling (DEF CHAR<= ...)
; x-compiling (DEF CHAR>= ...)
; x-compiling (DEF CHAR-EQUAL ...)
; x-compiling (DEF CHAR-LESSP ...)
; x-compiling (DEF CHAR-GREATERP ...)
; x-compiling (DEF CHAR-NOT-GREATERP ...)
; x-compiling (DEF CHAR-NOT-LESSP ...)
; x-compiling (DEFUN CHAR-UPCASE ...)
; x-compiling (DEFUN CHAR-DOWNCASE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN DIGIT-CHAR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-char.lisp-obj-tmp written
; compilation finished in 0:00:35.591
; compiling file "/«PKGBUILDDIR»/src/code/target-unicode.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNICODE")
; x-compiling (DEFPARAMETER **SPECIAL-NUMERICS** ...)
; x-compiling (DEFPARAMETER **BLOCK-RANGES** ...)
; x-compiling (UNICODE-PROPERTY-INIT)
; x-compiling (DEFUN REVERSE-UCD-INDICES ...)
; x-compiling (DEFUN ORDERED-RANGES-MEMBER ...)
; x-compiling (DEFUN ORDERED-RANGES-POSITION ...)
; x-compiling (DEFUN PROPLIST-P ...)
; x-compiling (DEFPARAMETER *GENERAL-CATEGORIES* ...)
; x-compiling (DEFPARAMETER *BIDI-CLASSES* ...)
; x-compiling (DEFPARAMETER *EAST-ASIAN-WIDTHS* ...)
; x-compiling (DEFPARAMETER *SCRIPTS* ...)
; x-compiling (DEFPARAMETER *BLOCKS* ...)
; x-compiling (DEFPARAMETER *LINE-BREAK-CLASSES* ...)
; x-compiling (DEFUN GENERAL-CATEGORY ...)
; x-compiling (DEFUN BIDI-CLASS ...)
; x-compiling (DEFUN COMBINING-CLASS ...)
; x-compiling (DEFUN DECIMAL-VALUE ...)
; x-compiling (DEFUN DIGIT-VALUE ...)
; x-compiling (DEFUN NUMERIC-VALUE ...)
; x-compiling (DEFUN MIRRORED-P ...)
; x-compiling (DEFUN BIDI-MIRRORING-GLYPH ...)
; x-compiling (DEFUN EAST-ASIAN-WIDTH ...)
; x-compiling (DEFUN SCRIPT ...)
; x-compiling (DEFUN CHAR-BLOCK ...)
; x-compiling (DEFUN UNICODE-1-NAME ...)
; x-compiling (DEFUN AGE ...)
; x-compiling (DEFUN HANGUL-SYLLABLE-TYPE ...)
; x-compiling (DEFUN LINE-BREAK-CLASS ...)
; x-compiling (DEFUN UPPERCASE-P ...)
; x-compiling (DEFUN LOWERCASE-P ...)
; x-compiling (DEFUN CASED-P ...)
; x-compiling (DEFUN CASE-IGNORABLE-P ...)
; x-compiling (DEFUN ALPHABETIC-P ...)
; x-compiling (DEFUN IDEOGRAPHIC-P ...)
; x-compiling (DEFUN MATH-P ...)
; x-compiling (DEFUN WHITESPACE-P ...)
; x-compiling (DEFUN HEX-DIGIT-P ...)
; x-compiling (DEFUN SOFT-DOTTED-P ...)
; x-compiling (DEFUN DEFAULT-IGNORABLE-P ...)
; x-compiling (DEFUN CHAR-DECOMPOSITION-INFO ...)
; x-compiling (DEFUN CHAR-DECOMPOSITION ...)
; x-compiling (DEFUN DECOMPOSE-CHAR ...)
; x-compiling (DEFUN DECOMPOSE-STRING ...)
; x-compiling (DEFUN COMPOSITION-HANGUL-SYLLABLE-TYPE ...)
; x-compiling (DEFUN PRIMARY-COMPOSITION ...)
; x-compiling (DEFUN LREF ...)
; x-compiling (DEFUN (SETF LREF) ...)
; x-compiling (DEFUN LLENGTH ...)
; x-compiling (DEFUN LSTRING ...)
; x-compiling (DEFUN LDELETE ...)
; x-compiling (DEFUN CANONICALLY-COMPOSE ...)
; x-compiling (DEFUN NORMALIZE-STRING ...)
; x-compiling (DEFUN NORMALIZED-P ...)
; x-compiling (DEFPARAMETER **SPECIAL-TITLECASES** ...)
; x-compiling (DEFPARAMETER **SPECIAL-CASEFOLDS** ...)
; x-compiling (DEFUN HAS-CASE-P ...)
; x-compiling (DEFUN CHAR-UPPERCASE ...)
; x-compiling (DEFUN CHAR-LOWERCASE ...)
; x-compiling (DEFUN CHAR-TITLECASE ...)
; x-compiling (DEFUN CHAR-FOLDCASE ...)
; x-compiling (DEFUN STRING-SOMETHINGCASE ...)
; x-compiling (DECLAIM (TYPE FUNCTION ...))
; x-compiling (DEFUN GET-USER-LOCALE ...)
; x-compiling (DEFUN UPPERCASE ...)
; x-compiling (DEFUN LOWERCASE ...)
; x-compiling (DEFUN TITLECASE ...)
; x-compiling (DEFUN CASEFOLD ...)
; x-compiling (DEFVAR *OTHER-BREAK-SPECIAL-GRAPHEMES* ...)
; x-compiling (DEFUN GRAPHEME-BREAK-CLASS ...)
; x-compiling (DEFUN GRAPHEMES ...)
; x-compiling (DEFUN WORD-BREAK-CLASS ...)
; x-compiling (DEFMACRO FLATPUSH ...)
; x-compiling (DEFUN WORDS ...)
; x-compiling (DEFUN SENTENCE-BREAK-CLASS ...)
; x-compiling (DEFUN SENTENCE-PREBREAK ...)
; x-compiling (DEFUN SENTENCES ...)
; x-compiling (DEFUN LINE-PREBREAK ...)
; x-compiling (DEFUN LINE-BREAK-ANNOTATE ...)
; x-compiling (DEFUN BREAK-LIST-AT ...)
; x-compiling (DEFUN LINES ...)
; x-compiling (DEFPARAMETER **MAXIMUM-VARIABLE-PRIMARY-ELEMENT** ...)
; x-compiling (DEFUN UNPACK-COLLATION-KEY ...)
; x-compiling (DEFUN VARIABLE-P ...)
; x-compiling (DEFUN COLLATION-KEY ...)
; x-compiling (DEFUN SORT-KEY ...)
; x-compiling (DEFUN VECTOR< ...)
; x-compiling (DEFUN UNICODE= ...)
; x-compiling (DEFUN UNICODE-EQUAL ...)
; x-compiling (DEFUN UNICODE< ...)
; x-compiling (DEFUN UNICODE<= ...)
; x-compiling (DEFUN UNICODE> ...)
; x-compiling (DEFUN UNICODE>= ...)
; x-compiling (DEFUN CANONICALLY-DECONFUSE ...)
; x-compiling (DEFUN CONFUSABLE-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-unicode.lisp-obj-tmp written
; compilation finished in 0:00:17.441
; compiling file "/«PKGBUILDDIR»/src/code/target-misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %FUN-FUN ...)
; x-compiling (DEFUN %FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN (SETF %FUN-LAMBDA-LIST) ...)
; x-compiling (DEFUN %FUN-TYPE ...)
; x-compiling (!DEFGLOBAL *CLOSURE-NAME-MARKER* ...)
; x-compiling (DEFUN CLOSURE-NAME ...)
; x-compiling (DEFUN NAMEIFY-CLOSURE ...)
; x-compiling (DEFUN SET-CLOSURE-NAME ...)
; x-compiling (DEFUN %FUN-NAME ...)
; x-compiling (DEFUN (SETF %FUN-NAME) ...)
; x-compiling (DEFUN %FUN-DOC ...)
; x-compiling (DEFUN (SETF %FUN-DOC) ...)
; x-compiling (DEFUN CODE-N-UNBOXED-DATA-WORDS ...)
; x-compiling (DEFVAR *FEATURES* ...)

; file: /«PKGBUILDDIR»/src/code/target-misc.lisp
; in: DEFUN MACHINE-INSTANCE
;     (DEFUN MACHINE-INSTANCE ()
;       "Return a string giving the name of the local machine."
;       (SB!UNIX:UNIX-GETHOSTNAME))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA MACHINE-INSTANCE
;         NIL
;       (BLOCK MACHINE-INSTANCE (SB!UNIX:UNIX-GETHOSTNAME)))
; 
; note: type assertion too complex to check:
;  (VALUES
;   (OR (SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;       NULL)
;   &OPTIONAL).
; x-compiling (DEFUN MACHINE-INSTANCE ...)
; x-compiling (DEFVAR *MACHINE-VERSION*)
; x-compiling (DEFUN MACHINE-VERSION ...)
; x-compiling (DEFVAR *SHORT-SITE-NAME* ...)
; x-compiling (DEFVAR *LONG-SITE-NAME* ...)
; x-compiling (DEFUN SHORT-SITE-NAME ...)
; x-compiling (DEFUN LONG-SITE-NAME ...)
; x-compiling (DEFVAR *ED-FUNCTIONS* ...)
; x-compiling (DEFUN ED ...)
; x-compiling (DEFVAR *PREVIOUS-DRIBBLE-STREAMS* ...)
; x-compiling (DEFVAR *DRIBBLE-STREAM* ...)
; x-compiling (DEFUN DRIBBLE ...)
; x-compiling (DEFUN %BYTE-BLT ...)
; x-compiling (DEFVAR *LOAD-PRINT* ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFVAR *LOAD-VERBOSE* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-misc.lisp-obj-tmp written
; compilation finished in 0:00:01.976
; compiling file "/«PKGBUILDDIR»/src/code/misc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...)
; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/misc.lisp-obj-tmp written
; compilation finished in 0:00:00.046
; compiling file "/«PKGBUILDDIR»/src/code/room.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!STRUCT (ROOM-INFO #) ...)
; x-compiling (DEFUN ROOM-INFO-TYPE-NAME ...)
; x-compiling (DEFPARAMETER *ROOM-INFO* ...)
; x-compiling (DEFTYPE SPACES ...)
; x-compiling (DECLAIM (TYPE FIXNUM ...))
; x-compiling (DEFUN SPACE-BOUNDS ...)
; x-compiling (DEFUN SPACE-BYTES ...)
; x-compiling (DECLAIM (INLINE ROUND-TO-DUALWORD))
; x-compiling (DEFUN ROUND-TO-DUALWORD ...)
; x-compiling (DEFUN RECONSTITUTE-VECTOR ...)

; file: /«PKGBUILDDIR»/src/code/room.lisp
; in: DEFUN RECONSTITUTE-OBJECT
;     (ERROR "Unrecognized room-info-kind ~S in reconstitute-object"
;            (SB!VM::ROOM-INFO-KIND SB!INT:INFO))
; ==>
;   "Unrecognized room-info-kind ~S in reconstitute-object"
; 
; note: deleting unreachable code
; x-compiling (DEFUN RECONSTITUTE-OBJECT ...)
; x-compiling (DEFUN MAP-OBJECTS-IN-RANGE ...)
; x-compiling (DEFINE-ALIEN-TYPE (STRUCT PAGE) ...)
; x-compiling (DECLAIM (INLINE FIND-PAGE-INDEX))
; x-compiling (DEFINE-ALIEN-ROUTINE "find_page_index" ...)
; x-compiling (DEFINE-ALIEN-VARIABLE "last_free_page" ...)
; x-compiling (DEFINE-ALIEN-VARIABLE "heap_base" ...)
; x-compiling (DEFINE-ALIEN-VARIABLE "page_table" ...)
; x-compiling (DECLAIM (MAYBE-INLINE MAP-ALLOCATED-OBJECTS))
; x-compiling (DEFUN MAP-ALLOCATED-OBJECTS ...)

; file: /«PKGBUILDDIR»/src/code/room.lisp
; in: DEFUN TYPE-BREAKDOWN
;     (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE)
; --> LET* 
; ==>
;   (+ SB!VM::SIZE (AREF #:SIZES411 #:TYPE412))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (INCF (AREF SB!VM::COUNTS TYPE))
; --> LET* 
; ==>
;   (+ 1 (AREF #:COUNTS414 #:TYPE415))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.

;     (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE)
; --> LET* 
; ==>
;   (+ SB!VM::SIZE (AREF #:SIZES411 #:TYPE412))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the second argument of static-fun Two-arg-+

;     (INCF (AREF SB!VM::COUNTS TYPE))
; --> LET* 
; ==>
;   (+ 1 (AREF #:COUNTS414 #:TYPE415))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

; --> LET* FUNCALL SB!C::%FUNCALL (SETF AREF) 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (ARRAY) (SB!INT:INDEX) &REST #:G449)
;       (DECLARE (IGNORE #:G449))
;       (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) 1) ARRAY)
;                (TYPE (UNSIGNED-BYTE 32) SB!C::NEW-VALUE))
;       (SB!KERNEL:DATA-VECTOR-SET ARRAY SB!INT:INDEX SB!C::NEW-VALUE))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; x-compiling (DEFUN TYPE-BREAKDOWN ...)
; x-compiling (DEFUN PRINT-SUMMARY ...)
; x-compiling (DEFUN REPORT-SPACE-TOTAL ...)
; x-compiling (DEFUN MEMORY-USAGE ...)

; file: /«PKGBUILDDIR»/src/code/room.lisp
; in: DEFUN INSTANCE-USAGE
;     (INCF SB!VM::TOTAL-OBJECTS)
; --> SETQ THE 
; ==>
;   (+ 1 SB!VM::TOTAL-OBJECTS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       etc.

;     (INCF SB!VM::TOTAL-BYTES SB!VM::SIZE)
; --> SETQ THE 
; ==>
;   (+ SB!VM::SIZE SB!VM::TOTAL-BYTES)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER 
; --> LET OR LET IF OR LET IF OR THE TYPEP LET SB!C::%TYPEP-WRAPPER LET AND IF 
; --> AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (INTEGER -536870912), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -536870912), not a FIXNUM.
;       etc.

;     (INCF (THE FIXNUM (CAR SB!VM::FOUND)))
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (THE FIXNUM (VALUES #:NEW546))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

;     (INCF (THE FIXNUM (CDR SB!VM::FOUND)) SB!VM::SIZE)
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (THE FIXNUM (VALUES #:NEW548))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; x-compiling (DEFUN INSTANCE-USAGE ...)
; x-compiling (DEFUN PRINT-ALLOCATED-OBJECTS ...)
; x-compiling (DEFVAR *IGNORE-AFTER* ...)
; x-compiling (DEFUN VALID-OBJ ...)
; x-compiling (DEFUN MAYBE-CONS ...)
; x-compiling (DEFUN LIST-ALLOCATED-OBJECTS ...)
; x-compiling (DEFUN MAP-STACK-REFERENCES ...)
; x-compiling (DEFUN MAP-REFERENCING-OBJECTS ...)
; 
; compilation unit finished
;   printed 11 notes
; x-compiling (DEFUN LIST-REFERENCING-OBJECTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/room.lisp-obj-tmp written
; compilation finished in 0:00:06.633
; compiling file "/«PKGBUILDDIR»/src/code/stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *TERMINAL-IO* ...)
; x-compiling (DEFVAR *STANDARD-INPUT* ...)
; x-compiling (DEFVAR *STANDARD-OUTPUT* ...)
; x-compiling (DEFVAR *ERROR-OUTPUT* ...)
; x-compiling (DEFVAR *QUERY-IO* ...)
; x-compiling (DEFVAR *TRACE-OUTPUT* ...)
; x-compiling (DEFVAR *DEBUG-IO* ...)
; x-compiling (DEFUN ILL-IN ...)
; x-compiling (DEFUN ILL-OUT ...)
; x-compiling (DEFUN ILL-BIN ...)
; x-compiling (DEFUN ILL-BOUT ...)
; x-compiling (DEFUN CLOSED-FLAME ...)
; x-compiling (DEFUN NO-OP-PLACEHOLDER ...)
; x-compiling (DEFUN ANSI-STREAM-INPUT-STREAM-P ...)
; x-compiling (DEFUN INPUT-STREAM-P ...)
; x-compiling (DEFUN ANSI-STREAM-OUTPUT-STREAM-P ...)
; x-compiling (DEFUN OUTPUT-STREAM-P ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-OPEN-STREAM-P))
; x-compiling (DEFUN ANSI-STREAM-OPEN-STREAM-P ...)
; x-compiling (DEFUN OPEN-STREAM-P ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-ELEMENT-TYPE))
; x-compiling (DEFUN ANSI-STREAM-ELEMENT-TYPE ...)
; x-compiling (DEFUN STREAM-ELEMENT-TYPE ...)
; x-compiling (DEFUN STREAM-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN INTERACTIVE-STREAM-P ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLOSE))
; x-compiling (DEFUN ANSI-STREAM-CLOSE ...)
; x-compiling (DEFUN CLOSE ...)
; x-compiling (DEFUN SET-CLOSED-FLAME ...)
; x-compiling (DEFUN EXTERNAL-FORMAT-CHAR-SIZE ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-FILE-POSITION))
; x-compiling (DEFUN ANSI-STREAM-FILE-POSITION ...)
; x-compiling (DEFUN FILE-POSITION ...)
; x-compiling (DEFUN STREAM-ASSOCIATED-WITH-FILE-P ...)
; x-compiling (DEFUN STREAM-MUST-BE-ASSOCIATED-WITH-FILE ...)
; x-compiling (DEFUN FILE-LENGTH ...)
; x-compiling (DEFUN FILE-STRING-LENGTH ...)
; x-compiling (DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-LINE))
; x-compiling (DEFUN ANSI-STREAM-READ-LINE ...)
; x-compiling (DEFUN READ-LINE ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DECLAIM (INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN)
;     (DECLAIM (INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:READ-CHAR to be INLINE, but 1 call to it was previously
;   compiled. A declaration of NOTINLINE at the call site will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:UNREAD-CHAR to be INLINE, but 2 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE READ-CHAR ...))
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR))
; x-compiling (DEFUN ANSI-STREAM-READ-CHAR ...)
; x-compiling (DEFUN READ-CHAR ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-UNREAD-CHAR))
; x-compiling (DEFUN ANSI-STREAM-UNREAD-CHAR ...)
; x-compiling (DEFUN UNREAD-CHAR ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-LISTEN))
; x-compiling (DEFUN ANSI-STREAM-LISTEN ...)
; x-compiling (DEFUN LISTEN ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR-NO-HANG))
; x-compiling (DEFUN ANSI-STREAM-READ-CHAR-NO-HANG ...)
; x-compiling (DEFUN READ-CHAR-NO-HANG ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLEAR-INPUT))
; x-compiling (DEFUN ANSI-STREAM-CLEAR-INPUT ...)
; x-compiling (DEFUN CLEAR-INPUT ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-BYTE))
; x-compiling (DEFUN ANSI-STREAM-READ-BYTE ...)
; x-compiling (DEFUN READ-BYTE ...)
; x-compiling (DECLAIM (INLINE READ-N-BYTES))
; x-compiling (DEFUN READ-N-BYTES ...)
; x-compiling (DEFUN ANSI-STREAM-READ-N-BYTES ...)
; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-EXTRA+ ...)
; x-compiling (DEFUN FAST-READ-CHAR-REFILL ...)
; x-compiling (DEFUN FAST-READ-BYTE-REFILL ...)
; x-compiling (DEFUN WRITE-CHAR ...)
; x-compiling (DEFUN TERPRI ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-FRESH-LINE))
; x-compiling (DEFUN ANSI-STREAM-FRESH-LINE ...)
; x-compiling (DEFUN FRESH-LINE ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-WRITE-STRING))
; x-compiling (DEFUN ANSI-STREAM-WRITE-STRING ...)
; x-compiling (DEFUN %WRITE-STRING ...)
; x-compiling (DEFUN WRITE-STRING ...)
; x-compiling (DEFUN WRITE-LINE ...)
; x-compiling (DEFUN CHARPOS ...)
; x-compiling (DEFUN LINE-LENGTH ...)
; x-compiling (DEFUN FINISH-OUTPUT ...)
; x-compiling (DEFUN FORCE-OUTPUT ...)
; x-compiling (DEFUN CLEAR-OUTPUT ...)
; x-compiling (DEFUN WRITE-BYTE ...)
; x-compiling (DECLAIM (NOTINLINE READ-CHAR ...))
; x-compiling (DEFUN STREAM-MISC-DISPATCH ...)
; x-compiling (DEFSTRUCT (BROADCAST-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE BROADCAST-STREAM))
; x-compiling (DEFUN MAKE-BROADCAST-STREAM ...)
; x-compiling (OUT-FUN BROADCAST-OUT ...)
; x-compiling (OUT-FUN BROADCAST-BOUT ...)
; x-compiling (OUT-FUN BROADCAST-SOUT ...)
; x-compiling (DEFUN BROADCAST-MISC ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFSTRUCT SYNONYM-STREAM
;     (DEFSTRUCT
;         (SYNONYM-STREAM
;          (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::IN #'SB!IMPL::SYNONYM-IN)
;           (SB!IMPL::BIN #'SB!IMPL::SYNONYM-BIN)
;           (SB!IMPL::N-BIN #'SB!IMPL::SYNONYM-N-BIN)
;           (SB!IMPL::OUT #'SB!IMPL::SYNONYM-OUT)
;           (SB!IMPL::BOUT #'SB!IMPL::SYNONYM-BOUT)
;           (SB!IMPL::SOUT #'SB!IMPL::SYNONYM-SOUT)
;           (SB!IMPL::MISC #'SB!IMPL::SYNONYM-MISC))
;          (:CONSTRUCTOR MAKE-SYNONYM-STREAM (SYMBOL)) (:COPIER NIL))
;       (SYMBOL NIL :TYPE SYMBOL :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SYNONYM-STREAM {55DD7BD1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F23C81}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {51F53BE1}>
;       #<SB!KERNEL:LAYOUT for STREAM {5400B209}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {5440A501}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!IMPL::SYNONYM-STREAM-P and
;   COMMON-LISP:SYNONYM-STREAM-SYMBOL could not be inlined because the structure
;   definition for COMMON-LISP:SYNONYM-STREAM was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (SYNONYM-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE SYNONYM-STREAM))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (OUT-FUN SYNONYM-OUT ...)
; x-compiling (OUT-FUN SYNONYM-BOUT ...)
; x-compiling (OUT-FUN SYNONYM-SOUT ...)
; x-compiling (IN-FUN SYNONYM-IN ...)
; x-compiling (IN-FUN SYNONYM-BIN ...)
; x-compiling (IN-FUN SYNONYM-N-BIN ...)
; x-compiling (DEFUN SYNONYM-MISC ...)
; x-compiling (DEFSTRUCT (TWO-WAY-STREAM # ...) ...)
; x-compiling (DEFPRINTER (TWO-WAY-STREAM) ...)
; x-compiling (DEFUN MAKE-TWO-WAY-STREAM ...)
; x-compiling (OUT-FUN TWO-WAY-OUT ...)
; x-compiling (OUT-FUN TWO-WAY-BOUT ...)
; x-compiling (OUT-FUN TWO-WAY-SOUT ...)
; x-compiling (IN-FUN TWO-WAY-IN ...)
; x-compiling (IN-FUN TWO-WAY-BIN ...)
; x-compiling (IN-FUN TWO-WAY-N-BIN ...)
; x-compiling (DEFUN TWO-WAY-MISC ...)
; x-compiling (DEFSTRUCT (CONCATENATED-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE CONCATENATED-STREAM))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN MAKE-CONCATENATED-STREAM ...)
; x-compiling (IN-FUN CONCATENATED-IN ...)
; x-compiling (IN-FUN CONCATENATED-BIN ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN CONCATENATED-N-BIN
;     (SB!SYS:READ-N-BYTES STREAM SB!IMPL::BUFFER SB!IMPL::CURRENT-START
;      SB!IMPL::REMAINING-BYTES NIL)
; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN CONCATENATED-N-BIN ...)
; x-compiling (DEFUN CONCATENATED-MISC ...)
; x-compiling (DEFSTRUCT (ECHO-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE ECHO-STREAM))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN MAKE-ECHO-STREAM ...)
; x-compiling (IN-FUN ECHO-IN ...)
; x-compiling (IN-FUN ECHO-BIN ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN ECHO-N-BIN
;     (SB!SYS:READ-N-BYTES (ECHO-STREAM-INPUT-STREAM STREAM) SB!IMPL::BUFFER
;      SB!IMPL::START SB!IMPL::NUMBYTES NIL)
; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN ECHO-N-BIN ...)
; x-compiling (DEFSTRUCT (STRING-INPUT-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE STRING-INPUT-STREAM))
; x-compiling (DEFUN STRING-INCH ...)
; x-compiling (DEFUN STRING-BINCH ...)
; x-compiling (DEFUN STRING-STREAM-READ-N-BYTES ...)
; x-compiling (DEFUN STRING-IN-MISC ...)
; x-compiling (DEFUN MAKE-STRING-INPUT-STREAM ...)
; x-compiling (DEFPARAMETER *STRING-OUTPUT-STREAM-BUFFER-INITIAL-SIZE* ...)
; x-compiling (DEFSTRUCT (STRING-OUTPUT-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE STRING-OUTPUT-STREAM))
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEW-BUFFER ...)
; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEXT-BUFFER ...)
; x-compiling (DEFUN STRING-OUTPUT-STREAM-PREV-BUFFER ...)
; x-compiling (DEFUN STRING-OUCH ...)
; x-compiling (DEFUN STRING-SOUT ...)
; x-compiling (DEFUN SET-STRING-OUTPUT-STREAM-FILE-POSITION ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN STRING-OUT-MISC
;     (+ SB!IMPL::BASE
;        (IF SB!IMPL::POS
;            (- SB!IMPL::POINTER SB!IMPL::POS 1)
;            SB!IMPL::POINTER))
; 
; 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).

;     (+ SB!IMPL::BASE SB!IMPL::POINTER)
; 
; 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).

;     (LENGTH SB!IMPL::BUFFER)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (SIMPLE-ARRAY CHARACTER
;                                (*))), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))), not a VECTOR.

;     (+ SB!IMPL::BASE SB!IMPL::POINTER)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       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.

;     (+ SB!IMPL::BASE
;        (IF SB!IMPL::POS
;            (- SB!IMPL::POINTER SB!IMPL::POS 1)
;            SB!IMPL::POINTER))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       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.
; x-compiling (DEFUN STRING-OUT-MISC ...)
; x-compiling (DEFUN GET-OUTPUT-STREAM-STRING ...)
; x-compiling (DECLAIM (INLINE VECTOR-WITH-FILL-POINTER-P))
; x-compiling (DEFUN VECTOR-WITH-FILL-POINTER-P ...)
; x-compiling (DEFTYPE STRING-WITH-FILL-POINTER ...)
; x-compiling (DEFSTRUCT (FILL-POINTER-OUTPUT-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE FILL-POINTER-OUTPUT-STREAM))

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN FILL-POINTER-OUCH
;     (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'CHARACTER)
; ==>
;   SB!IMPL::NEW-LENGTH
; 
; note: deleting unreachable code

;     (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'BASE-CHAR)
; ==>
;   SB!IMPL::NEW-LENGTH
; 
; note: deleting unreachable code
; x-compiling (DEFUN FILL-POINTER-OUCH ...)
; x-compiling (DEFUN FILL-POINTER-SOUT ...)
; x-compiling (DEFUN FILL-POINTER-MISC ...)
; x-compiling (DEFSTRUCT (CASE-FROB-STREAM # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE CASE-FROB-STREAM))
; x-compiling (DEFUN MAKE-CASE-FROB-STREAM ...)
; x-compiling (DEFUN CASE-FROB-MISC ...)
; x-compiling (DEFUN CASE-FROB-UPCASE-OUT ...)
; x-compiling (DEFUN CASE-FROB-UPCASE-SOUT ...)
; x-compiling (DEFUN CASE-FROB-DOWNCASE-OUT ...)
; x-compiling (DEFUN CASE-FROB-DOWNCASE-SOUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-OUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-SOUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-OUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-SOUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-OUT ...)
; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-SOUT ...)
; x-compiling (DEFUN READ-SEQUENCE ...)
; x-compiling (DECLAIM (INLINE COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P))
; x-compiling (DEFUN COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P ...)

; file: /«PKGBUILDDIR»/src/code/stream.lisp
; in: DEFUN ANSI-STREAM-READ-SEQUENCE
;     (SB!SYS:READ-N-BYTES STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START
;      SB!IMPL::NUMBYTES NIL)
; --> BLOCK IF LET* + 
; ==>
;   SB!IMPL::NUMBYTES
; 
; note: deleting unreachable code

; --> BLOCK IF LET* SB!GRAY:STREAM-READ-SEQUENCE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (DEFUN SB!IMPL::ANSI-STREAM-READ-SEQUENCE
;            (SB!IMPL::SEQ STREAM SB!IMPL::START SB!IMPL::%END)
;       (DECLARE (TYPE SEQUENCE SB!IMPL::SEQ)
;                (TYPE SB!KERNEL:ANSI-STREAM STREAM)
;                (TYPE SB!INT:INDEX SB!IMPL::START)
;                (TYPE SB!KERNEL:SEQUENCE-END SB!IMPL::%END)
;                (VALUES SB!INT:INDEX))
;       (LET ((SB!IMPL::END (OR SB!IMPL::%END #)))
;         (DECLARE (TYPE SB!INT:INDEX SB!IMPL::END))
;         (ETYPECASE SB!IMPL::SEQ
;           (LIST
;            (LET #
;              #))
;           (VECTOR (SB!KERNEL:WITH-ARRAY-DATA # #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES (MOD 536870909) &REST T)
;        (PROGN
;         (BLOCK SB!IMPL::ANSI-STREAM-READ-SEQUENCE
;           (LET (#)
;             (DECLARE #)
;             (ETYPECASE SB!IMPL::SEQ # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES (MOD 536870909) &REST T).
; x-compiling (DEFUN ANSI-STREAM-READ-SEQUENCE ...)
; x-compiling (DEFUN ANSI-STREAM-READ-STRING-FROM-FRC-BUFFER ...)
; x-compiling (DEFUN WRITE-SEQUENCE ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 16 notes
; x-compiling (DEFUN ANSI-STREAM-WRITE-SEQUENCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/stream.lisp-obj-tmp written
; compilation finished in 0:00:19.871
; compiling file "/«PKGBUILDDIR»/src/code/print.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *PRINT-READABLY* ...)
; x-compiling (!DEFVAR *PRINT-ESCAPE* ...)
; x-compiling (!DEFVAR *PRINT-PRETTY* ...)
; x-compiling (!DEFVAR *PRINT-BASE* ...)
; x-compiling (!DEFVAR *PRINT-RADIX* ...)
; x-compiling (!DEFVAR *PRINT-LEVEL* ...)
; x-compiling (!DEFVAR *PRINT-LENGTH* ...)
; x-compiling (!DEFVAR *PRINT-CIRCLE* ...)
; x-compiling (!DEFVAR *PRINT-CASE* ...)
; x-compiling (!DEFVAR *PRINT-ARRAY* ...)
; x-compiling (!DEFVAR *PRINT-GENSYM* ...)
; x-compiling (DEFVAR *PRINT-LINES* ...)
; x-compiling (DEFVAR *PRINT-RIGHT-MARGIN* ...)
; x-compiling (DEFVAR *PRINT-MISER-WIDTH* ...)
; x-compiling (DEFVAR *PRINT-PPRINT-DISPATCH*)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (!DEFVAR *SUPPRESS-PRINT-ERRORS* ...)
; x-compiling (DEFMACRO WITH-STANDARD-IO-SYNTAX ...)
; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...)
; x-compiling (DEFUN %WITH-STANDARD-IO-SYNTAX ...)
; x-compiling (DEFUN WRITE ...)
; x-compiling (DEFUN PRIN1 ...)
; x-compiling (DEFUN PRINC ...)
; x-compiling (DEFUN PRINT ...)
; x-compiling (DEFUN PPRINT ...)
; x-compiling (DEFUN WRITE-TO-STRING ...)
; x-compiling (DEFUN PRIN1-TO-STRING ...)
; x-compiling (DEFUN PRINC-TO-STRING ...)
; x-compiling (DEFUN STRINGIFY-OBJECT ...)
; x-compiling (DEFUN PRINT-NOT-READABLE-ERROR ...)
; x-compiling (DEFUN %PRINT-UNREADABLE-OBJECT ...)
; x-compiling (DEFUN UNIQUELY-IDENTIFIED-BY-PRINT-P ...)
; x-compiling (DEFVAR *IN-PRINT-ERROR* ...)
; x-compiling (DEFUN OUTPUT-OBJECT ...)
; x-compiling (DEFVAR *PRINT-OBJECT-IS-DISABLED-P*)
; x-compiling (DEFUN OUTPUT-UGLY-OBJECT ...)
; x-compiling (DEFVAR *PREVIOUS-CASE* ...)
; x-compiling (DEFVAR *PREVIOUS-READTABLE-CASE* ...)
; x-compiling (DEFVAR *INTERNAL-SYMBOL-OUTPUT-FUN* ...)
; x-compiling (DECLAIM (FUNCTION *INTERNAL-SYMBOL-OUTPUT-FUN*))
; x-compiling (DEFUN OUTPUT-QUOTED-SYMBOL-NAME ...)
; x-compiling (DEFUN OUTPUT-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-SYMBOL-NAME ...)
; x-compiling (DEFVAR *CHARACTER-ATTRIBUTES* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFCONSTANT OTHER-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT NUMBER-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT UPPERCASE-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT LOWERCASE-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT SIGN-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT EXTENSION-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT DOT-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT SLASH-ATTRIBUTE ...)
; x-compiling (DEFCONSTANT FUNNY-ATTRIBUTE ...)
; x-compiling (DEFPARAMETER *ATTRIBUTE-NAMES* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *DIGIT-BASES* ...)
; x-compiling (DEFUN !PRINTER-COLD-INIT ...)
; x-compiling (DEFUN SYMBOL-QUOTEP ...)
; x-compiling (DEFUN OUTPUT-PRESERVE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-LOWERCASE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-UPPERCASE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-CAPITALIZE-SYMBOL ...)
; x-compiling (DEFUN OUTPUT-INVERT-SYMBOL ...)
; x-compiling (DEFUN SETUP-PRINTER-STATE ...)
; x-compiling (DEFUN OUTPUT-LIST ...)
; x-compiling (DEFUN OUTPUT-UNREADABLE-VECTOR-READABLY ...)
; x-compiling (DEFUN OUTPUT-VECTOR ...)
; x-compiling (DEFUN QUOTE-STRING ...)
; x-compiling (DEFUN ARRAY-READABLY-PRINTABLE-P ...)
; x-compiling (DEFUN OUTPUT-ARRAY ...)
; x-compiling (DEFUN OUTPUT-TERSE-ARRAY ...)
; x-compiling (DEFUN LISTIFY-ARRAY ...)
; x-compiling (DEFUN OUTPUT-UNREADABLE-ARRAY-READABLY ...)
; x-compiling (DEFUN OUTPUT-ARRAY-GUTS ...)
; x-compiling (DEFUN SUB-OUTPUT-ARRAY-GUTS ...)
; x-compiling (DEFUN PRINT-OBJECT ...)
; x-compiling (DEFUN %OUTPUT-RADIX ...)
; x-compiling (DEFUN %OUTPUT-REASONABLE-INTEGER-IN-BASE ...)
; x-compiling (DEFVAR *POWER-CACHE* ...)
; x-compiling (DEFCONSTANT +POWER-CACHE-INTEGER-LENGTH-LIMIT+ ...)
; x-compiling (DEFUN SCRUB-POWER-CACHE ...)
; x-compiling (DEFUN POWERS-FOR-BASE ...)
; x-compiling (DEFUN %OUTPUT-HUGE-INTEGER-IN-BASE ...)
; x-compiling (DEFUN %OUTPUT-INTEGER-IN-BASE ...)
; x-compiling (DEFUN OUTPUT-INTEGER ...)
; x-compiling (DEFUN OUTPUT-RATIO ...)
; x-compiling (DEFUN OUTPUT-COMPLEX ...)
; x-compiling (DEFUN FLONUM-TO-STRING ...)
; x-compiling (DEFCONSTANT SINGLE-FLOAT-MIN-E ...)
; x-compiling (DEFCONSTANT DOUBLE-FLOAT-MIN-E ...)
; x-compiling (DEFUN FLONUM-TO-DIGITS ...)
; x-compiling (DEFUN SCALE-EXPONENT ...)
; x-compiling (DEFUN PRINT-FLOAT-EXPONENT ...)
; x-compiling (DEFUN OUTPUT-FLOAT-INFINITY ...)
; x-compiling (DEFUN OUTPUT-FLOAT-NAN ...)
; x-compiling (DEFUN OUTPUT-FLOAT ...)
; x-compiling (DEFUN OUTPUT-FLOAT-AUX ...)
; x-compiling (DEFUN OUTPUT-CHARACTER ...)
; x-compiling (DEFUN OUTPUT-SAP ...)
; x-compiling (DEFUN OUTPUT-WEAK-POINTER ...)
; x-compiling (DEFUN OUTPUT-CODE-COMPONENT ...)
; x-compiling (DEFUN OUTPUT-LRA ...)
; x-compiling (DEFUN OUTPUT-FDEFN ...)
; x-compiling (DEFUN PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...)
; x-compiling (DEFUN OUTPUT-FUN ...)

; file: /«PKGBUILDDIR»/src/code/print.lisp
; in: DEFUN OUTPUT-OBJECT
;     (HANDLER-BIND ((CONDITION (LAMBDA (CONDITION) NIL (WHEN # # #))))
;       (SB!IMPL::PRINT-IT STREAM))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

;     (WITH-SIMPLE-RESTART (CONTINUE "Suppress the error.") (SIGNAL CONDITION))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION CONDITION (LIST) 'SIMPLE-CONDITION 'SIGNAL)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN PRINT-NOT-READABLE-ERROR
;     (RESTART-CASE (ERROR 'PRINT-NOT-READABLE :OBJECT SB!IMPL::OBJECT)
;       (SB!EXT:PRINT-UNREADABLY NIL :REPORT "Print unreadably."
;        (LET ((*PRINT-READABLY* NIL))
;          (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::OBJECT STREAM)
;          SB!IMPL::OBJECT))
;       (USE-VALUE (SB!IMPL::O) :REPORT "Supply an object to be printed instead."
;                  :INTERACTIVE
;                  (LAMBDA ()
;                    (SB!INT:READ-EVALUATED-FORM
;                     "~@<Enter an object (evaluated): ~@:>"))
;                  (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::O STREAM) SB!IMPL::O))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'PRINT-NOT-READABLE
;                                  (LIST :OBJECT SB!IMPL::OBJECT) 'SIMPLE-ERROR
;                                  'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN OUTPUT-RANDOM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/print.lisp-obj-tmp written
; compilation finished in 0:00:14.108
; compiling file "/«PKGBUILDDIR»/src/code/early-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FORMAT")
; x-compiling (DEFPARAMETER *FORMAT-WHITESPACE-CHARS* ...)
; x-compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...)
; x-compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...)
; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...)
; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...)
; x-compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...)
; x-compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...)
; x-compiling (DEFVAR *ONLY-SIMPLE-ARGS*)
; x-compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...)
; x-compiling (DEFVAR *SIMPLE-ARGS*)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-format.lisp-obj-tmp written
; compilation finished in 0:00:00.330
; compiling file "/«PKGBUILDDIR»/src/code/target-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FORMAT")
; x-compiling (DEFUN FORMAT ...)

; file: /«PKGBUILDDIR»/src/code/target-format.lisp
; in: DEFINE-COMPILER-MACRO FORMAT
;     (DEFINE-COMPILER-MACRO FORMAT
;         (&WHOLE SB!KERNEL:FORM SB!FORMAT::DESTINATION SB!FORMAT::CONTROL &REST
;          SB!FORMAT::ARGS)
;       (DECLARE (IGNORE SB!FORMAT::CONTROL SB!FORMAT::ARGS))
;       (WHEN (STRINGP SB!FORMAT::DESTINATION)
;         (WARN "Literal string as destination in FORMAT:~%  ~S" SB!KERNEL:FORM))
;       SB!KERNEL:FORM)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'FORMAT
;                                 #'(LAMBDA (#:WHOLE11 #:ENVIRONMENT12)
;                                     (DECLARE (IGNORE #:ENVIRONMENT12))
;                                     (LET* ((#:CMACRO-&WHOLE25785 #:WHOLE11)
;                                            (#:WHOLE11 #))
;                                       (DECLARE
;                                        (IGNORABLE #:CMACRO-&WHOLE25785))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # #)
;                                         (DECLARE #)
;                                         (BLOCK FORMAT # SB!KERNEL:FORM))))
;                                 '(&WHOLE SB!KERNEL:FORM SB!FORMAT::DESTINATION
;                                   SB!FORMAT::CONTROL &REST SB!FORMAT::ARGS)
;                                 NIL '(COMPILER-MACRO-FUNCTION FORMAT))
; 
; caught STYLE-WARNING:
;   56 calls to COMMON-LISP:FORMAT were compiled before a compiler-macro was
;   defined for it. A declaration of NOTINLINE at the call sites will eliminate
;   this warning, as will defining the compiler-macro before its first potential
;   use.
; x-compiling (DEFINE-COMPILER-MACRO FORMAT ...)
; x-compiling (DEFUN %FORMAT ...)
; x-compiling (DEFUN INTERPRET-DIRECTIVE-LIST ...)
; x-compiling (DEFUN FORMAT-WRITE-FIELD ...)
; x-compiling (DEFUN FORMAT-PRINC ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\A ...)
; x-compiling (DEFUN FORMAT-PRIN1 ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\S ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\C ...)
; x-compiling (DEFUN CHAR-PRINTING-P ...)
; x-compiling (DEFUN FORMAT-PRINT-NAMED-CHARACTER ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\W ...)
; x-compiling (DEFUN FORMAT-PRINT-INTEGER ...)
; x-compiling (DEFUN FORMAT-ADD-COMMAS ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\D ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\B ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\O ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\X ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\R ...)
; x-compiling (DEFPARAMETER *CARDINAL-ONES* ...)
; x-compiling (DEFPARAMETER *CARDINAL-TENS* ...)
; x-compiling (DEFPARAMETER *CARDINAL-TEENS* ...)
; x-compiling (DEFPARAMETER *CARDINAL-PERIODS* ...)
; x-compiling (DEFPARAMETER *ORDINAL-ONES* ...)
; x-compiling (DEFPARAMETER *ORDINAL-TENS* ...)
; x-compiling (DEFUN FORMAT-PRINT-SMALL-CARDINAL ...)
; x-compiling (DEFUN FORMAT-PRINT-CARDINAL ...)
; x-compiling (DEFUN FORMAT-PRINT-CARDINAL-AUX ...)
; x-compiling (DEFUN FORMAT-PRINT-ORDINAL ...)
; x-compiling (DEFUN FORMAT-PRINT-OLD-ROMAN ...)
; x-compiling (DEFUN FORMAT-PRINT-ROMAN ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\P ...)
; x-compiling (DEFUN DECIMAL-STRING ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\F ...)
; x-compiling (DEFUN FORMAT-FIXED ...)
; x-compiling (DEFUN FORMAT-FIXED-AUX ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\E ...)
; x-compiling (DEFUN FORMAT-EXPONENTIAL ...)
; x-compiling (DEFUN FORMAT-EXPONENT-MARKER ...)
; x-compiling (DEFUN FORMAT-EXP-AUX ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\G ...)
; x-compiling (DEFUN FORMAT-GENERAL ...)
; x-compiling (DEFUN FORMAT-GENERAL-AUX ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\$ ...)
; x-compiling (DEFUN FORMAT-DOLLARS ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\% ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\& ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\| ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\~ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\Newline ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\T ...)
; x-compiling (DEFUN OUTPUT-SPACES ...)
; x-compiling (DEFUN FORMAT-RELATIVE-TAB ...)
; x-compiling (DEFUN FORMAT-ABSOLUTE-TAB ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\_ ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\I ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\* ...)
; x-compiling (DEF-FORMAT-INTERPRETER #\? ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\( ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\) ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\[ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\; ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\] ...)
; x-compiling (DEFVAR *OUTSIDE-ARGS*)
; x-compiling (DEF-FORMAT-INTERPRETER #\^ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\{ ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\} ...)
; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\< ...)
; x-compiling (DEFUN INTERPRET-FORMAT-JUSTIFICATION ...)
; x-compiling (DEFUN FORMAT-JUSTIFICATION ...)
; x-compiling (DEFUN INTERPRET-FORMAT-LOGICAL-BLOCK ...)

; file: /«PKGBUILDDIR»/src/code/target-format.lisp
; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{
;     (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR
;                     (LAMBDA (CONDITION)
;                       (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT
;                              "~A~%while processing indirect format string:" :ARGS
;                              # :PRINT-BANNER NIL :CONTROL-STRING STRING :OFFSET
;                              #))))
;       (SB!FORMAT::%FORMAT STREAM SB!FORMAT::INSIDES SB!FORMAT::ORIG-ARGS
;        SB!FORMAT::ARGS))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: FORMAT-ERROR

; in: DEF-FORMAT-INTERPRETER #\?
;     (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR
;                     (LAMBDA (CONDITION)
;                       (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT
;                              "~A~%while processing indirect format string:" :ARGS
;                              # :PRINT-BANNER NIL :CONTROL-STRING STRING :OFFSET
;                              #))))
;       (IF SB!FORMAT::ATSIGNP
;           (SETF SB!FORMAT::ARGS
;                   (SB!FORMAT::%FORMAT STREAM # SB!FORMAT::ORIG-ARGS
;                    SB!FORMAT::ARGS))
;           (SB!FORMAT::%FORMAT STREAM (SB!FORMAT::NEXT-ARG)
;            (SB!FORMAT::NEXT-ARG))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: FORMAT-ERROR
; 
; compilation unit finished
;   Undefined type:
;     FORMAT-ERROR
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEF-FORMAT-INTERPRETER #\/ ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-format.lisp-obj-tmp written
; compilation finished in 0:00:08.172
; compiling file "/«PKGBUILDDIR»/src/code/defpackage.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/defpackage.lisp
; in: DEFMACRO DEFPACKAGE
;     (DEFMACRO DEFPACKAGE (PACKAGE &REST SB!IMPL::OPTIONS)
;       "Defines a new package called PACKAGE. Each of OPTIONS should be one of the
;      following: 
;       (USE {package-name}*)
;       (EXPORT {symbol-name}*)
;       (IMPORT-FROM <package-name> {symbol-name}*)
;       (SHADOW {symbol-name}*)
;       (SHADOWING-IMPORT-FROM <package-name> {symbol-name}*)
;       (LOCAL-NICKNAMES {local-nickname actual-package-name}*)
;       (LOCK boolean)
;       (IMPLEMENT {package-name}*)
;       (DOCUMENTATION doc-string)
;       (INTERN {symbol-name}*)
;       (SIZE <integer>)
;       (NICKNAMES {package-name}*)
;      All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple
;      times."
;       (LET ((SB!IMPL::NICKNAMES NIL)
;             (SB!IMPL::LOCAL-NICKNAMES NIL)
;             (SB!IMPL::SIZE NIL)
;             (SB!IMPL::SHADOWS NIL)
;             (SB!IMPL::SHADOWING-IMPORTS NIL)
;             (SB!IMPL::USE NIL)
;             (SB!IMPL::USE-P NIL)
;             (SB!IMPL::IMPORTS NIL)
;             (SB!IMPL::INTERNS NIL)
;             (SB!IMPL::EXPORTS NIL)
;             (SB!IMPL::IMPLEMENT (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATORS #))
;             (SB!IMPL::IMPLEMENT-P NIL)
;             ...)
;         (DOLIST (SB!IMPL::OPTION SB!IMPL::OPTIONS)
;           (UNLESS (CONSP SB!IMPL::OPTION)
;             (ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL
;                    "bogus DEFPACKAGE option: ~S" :FORMAT-ARGUMENTS #))
;           (CASE (CAR SB!IMPL::OPTION)
;             (:NICKNAMES #)
;             (:LOCAL-NICKNAMES #)
;             (:SIZE #)
;             (:SHADOW #)
;             (:SHADOWING-IMPORT-FROM #)
;             (:USE #)
;             (:IMPORT-FROM #)
;             (:INTERN #)
;             (:EXPORT #)
;             (:IMPLEMENT # #)
;             ...))
;         (SB!IMPL::CHECK-DISJOINT (SB!INT:QUASIQUOTE (:INTERN #))
;          (SB!INT:QUASIQUOTE (:EXPORT #)))
;         (SB!IMPL::CHECK-DISJOINT (SB!INT:QUASIQUOTE (:INTERN #))
;          (SB!INT:QUASIQUOTE (:IMPORT-FROM #)) (SB!INT:QUASIQUOTE (:SHADOW #))
;          (SB!INT:QUASIQUOTE (:SHADOWING-IMPORT-FROM #)))
;         (SB!INT:QUASIQUOTE
;          (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;            (SB!IMPL::%DEFPACKAGE # '# '# '# '# '# '# '# '# '# '# ...)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'DEFPACKAGE
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# #)
;                            (BLOCK DEFPACKAGE #))))
;                    '(PACKAGE &REST SB!IMPL::OPTIONS)
;                    "Defines a new package called PACKAGE. Each of OPTIONS should be one of the
;    following: 
;     (USE {package-name}*)
;     (EXPORT {symbol-name}*)
;     (IMPORT-FROM <package-name> {symbol-name}*)
;     (SHADOW {symbol-name}*)
;     (SHADOWING-IMPORT-FROM <package-name> {symbol-name}*)
;     (LOCAL-NICKNAMES {local-nickname actual-package-name}*)
;     (LOCK boolean)
;     (IMPLEMENT {package-name}*)
;     (DOCUMENTATION doc-string)
;     (INTERN {symbol-name}*)
;     (SIZE <integer>)
;     (NICKNAMES {package-name}*)
;    All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple
;    times."
;                    '(MACRO-FUNCTION DEFPACKAGE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-DISJOINT
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-PACKAGE-DESIGNATOR
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-PACKAGE-DESIGNATORS
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-STRING-DESIGNATOR
; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-STRING-DESIGNATORS
; x-compiling (DEFMACRO DEFPACKAGE ...)
; x-compiling (DEFUN CHECK-DISJOINT ...)
; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATOR ...)
; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATORS ...)
; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATOR ...)
; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATORS ...)
; x-compiling (DEFUN IMPORT-LIST-SYMBOLS ...)
; x-compiling (DEFUN USE-LIST-PACKAGES ...)
; x-compiling (DEFUN UPDATE-PACKAGE ...)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *ON-PACKAGE-VARIANCE* ...)
; x-compiling (DEFUN NOTE-PACKAGE-VARIANCE ...)
; x-compiling (DEFUN UPDATE-PACKAGE-WITH-VARIANCE ...)
; x-compiling (DEFUN %DEFPACKAGE ...)

; file: /«PKGBUILDDIR»/src/code/defpackage.lisp
; in: DEFUN FIND-OR-MAKE-SYMBOL
;     (WITH-SIMPLE-RESTART (CONTINUE "INTERN it.")
;       (ERROR 'SB!KERNEL:SIMPLE-PACKAGE-ERROR :PACKAGE PACKAGE :FORMAT-CONTROL
;              "no symbol named ~S in ~S" :FORMAT-ARGUMENTS
;              (LIST SB!IMPL::NAME (PACKAGE-NAME PACKAGE))))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!KERNEL:SIMPLE-PACKAGE-ERROR
;                                  (LIST :PACKAGE PACKAGE :FORMAT-CONTROL
;                                        "no symbol named ~S in ~S"
;                                        :FORMAT-ARGUMENTS
;                                        (LIST SB!IMPL::NAME
;                                              (PACKAGE-NAME PACKAGE)))
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 6 STYLE-WARNING conditions
; x-compiling (DEFUN FIND-OR-MAKE-SYMBOL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defpackage.lisp-obj-tmp written
; compilation finished in 0:00:02.154
; compiling file "/«PKGBUILDDIR»/src/code/error-error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *ERROR-ERROR-DEPTH* ...)
; x-compiling (DEFUN ERROR-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/error-error.lisp-obj-tmp written
; compilation finished in 0:00:00.142
; compiling file "/«PKGBUILDDIR»/src/code/deadline.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFVAR *DEADLINE* ...)
; x-compiling (!DEFVAR *DEADLINE-SECONDS* ...)
; x-compiling (DECLAIM (INLINE SECONDS-TO-INTERNAL-TIME))
; x-compiling (DEFUN SECONDS-TO-INTERNAL-TIME ...)
; x-compiling (DEFMACRO WITH-DEADLINE ...)
; x-compiling (DECLAIM (INLINE DECODE-INTERNAL-TIME))
; x-compiling (DEFUN DECODE-INTERNAL-TIME ...)
; x-compiling (DEFUN SIGNAL-TIMEOUT ...)
; x-compiling (DEFUN SIGNAL-DEADLINE ...)
; x-compiling (DEFUN DEFER-DEADLINE ...)
; x-compiling (DEFUN CANCEL-DEADLINE ...)
; x-compiling (DECLAIM (INLINE RELATIVE-DECODED-TIMES))
; x-compiling (DEFUN RELATIVE-DECODED-TIMES ...)

; file: /«PKGBUILDDIR»/src/code/deadline.lisp
; in: DEFUN SIGNAL-DEADLINE
;     (RESTART-CASE (ERROR 'SB!SYS:DEADLINE-TIMEOUT :SECONDS
;                          SB!IMPL::*DEADLINE-SECONDS*)
;       (SB!SYS:DEFER-DEADLINE
;        (&OPTIONAL (SB!IMPL::SECONDS SB!IMPL::*DEADLINE-SECONDS*)) :REPORT
;        "Defer the deadline for SECONDS more." :INTERACTIVE
;        (LAMBDA ()
;          (SB!INT:READ-EVALUATED-FORM "By how many seconds shall the deadline ~
;                            be deferred?: "))
;        (LET* ((SB!IMPL::NEW-DEADLINE-SECONDS #) (SB!IMPL::NEW-DEADLINE #))
;          (SETF SB!IMPL::*DEADLINE* SB!IMPL::NEW-DEADLINE
;                SB!IMPL::*DEADLINE-SECONDS* SB!IMPL::NEW-DEADLINE-SECONDS)))
;       (SB!SYS:CANCEL-DEADLINE NIL :REPORT "Cancel the deadline and continue."
;        (SETF SB!IMPL::*DEADLINE* NIL
;              SB!IMPL::*DEADLINE-SECONDS* NIL)))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!SYS:DEADLINE-TIMEOUT
;                                  (LIST :SECONDS SB!IMPL::*DEADLINE-SECONDS*)
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; compilation unit finished
;   Undefined type:
;     CONDITION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN DECODE-TIMEOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/deadline.lisp-obj-tmp written
; compilation finished in 0:00:00.646
; compiling file "/«PKGBUILDDIR»/src/code/serve-event.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFSTRUCT (HANDLER # ...) ...)
; x-compiling (DEFSTRUCT (POLLFDS #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFVAR *DESCRIPTOR-HANDLERS* ...)
; x-compiling (SB-XC:DEFMACRO WITH-DESCRIPTOR-HANDLERS ...)
; x-compiling (DEFUN DEALLOCATE-POLLFDS ...)
; x-compiling (DEFUN LIST-ALL-DESCRIPTOR-HANDLERS ...)
; x-compiling (DEFUN MAP-DESCRIPTOR-HANDLERS ...)
; x-compiling (DEFUN ADD-FD-HANDLER ...)
; x-compiling (DEFUN REMOVE-FD-HANDLER ...)
; x-compiling (DEFUN INVALIDATE-DESCRIPTOR ...)
; x-compiling (DEFMACRO WITH-FD-HANDLER ...)
; x-compiling (DEFUN HANDLER-DESCRIPTORS-ERROR ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *PERIODIC-POLLING-FUNCTION* ...)
; x-compiling (DECLAIM (REAL *PERIODIC-POLLING-PERIOD*))
; x-compiling (DEFVAR *PERIODIC-POLLING-PERIOD* ...)
; x-compiling (DEFUN WAIT-UNTIL-FD-USABLE ...)
; x-compiling (DEFUN SERVE-ALL-EVENTS ...)
; x-compiling (DEFUN SERVE-EVENT ...)
; x-compiling (DEFUN SUB-SERVE-EVENT ...)
; x-compiling (DEFUN COMPUTE-POLLFDS ...)

; file: /«PKGBUILDDIR»/src/code/serve-event.lisp
; in: DEFUN SUB-SUB-SERVE-EVENT
;     (SB!UNIX:UNIX-POLL SB!IMPL::A 0 SB!IMPL::TO-MILLISEC)
; --> SB!IMPL::A SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;       (SB!ALIEN:STRUCT SB!UNIX:POLLFD
;        (SB!UNIX:FD (SB!ALIEN:SIGNED 32) :OFFSET 0)
;        (SB!UNIX:EVENTS (SB!ALIEN:SIGNED 16) :OFFSET 32)
;        (SB!UNIX:REVENTS (SB!ALIEN:SIGNED 16) :OFFSET 48))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; in: DEFUN COMPUTE-POLLFDS
;     (SB!ALIEN:MAKE-ALIEN (SB!ALIEN:STRUCT SB!UNIX:POLLFD) SB!IMPL::N-HANDLERS)
; ==>
;   (LOCALLY
;    (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;    (SB!ALIEN-INTERNALS:%SAP-ALIEN
;     (SB!ALIEN::%MAKE-ALIEN (* 8 (THE SB!INT:INDEX SB!IMPL::N-HANDLERS)))
;     '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;        (* (SB!ALIEN:STRUCT SB!UNIX:POLLFD # # #))>))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; compilation unit finished
;   Undefined type:
;     COMPILER-NOTE
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN SUB-SUB-SERVE-EVENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/serve-event.lisp-obj-tmp written
; compilation finished in 0:00:04.246
; compiling file "/«PKGBUILDDIR»/src/code/fd-stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE BUFFER-SAP ...))
; x-compiling (DEFSTRUCT (BUFFER #) ...)
; x-compiling (DEFVAR *AVAILABLE-BUFFERS* ...)
; x-compiling (DEFVAR *AVAILABLE-BUFFERS-LOCK* ...)
; x-compiling (DEFMACRO WITH-AVAILABLE-BUFFERS-LOCK ...)
; x-compiling (DEFCONSTANT +BYTES-PER-BUFFER+ ...)
; x-compiling (DEFUN ALLOC-BUFFER ...)
; x-compiling (DEFUN GET-BUFFER ...)
; x-compiling (DECLAIM (INLINE RESET-BUFFER))
; x-compiling (DEFUN RESET-BUFFER ...)
; x-compiling (DEFUN RELEASE-BUFFER ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFSTRUCT FD-STREAM
;     (DEFSTRUCT
;         (SB!SYS:FD-STREAM (:CONSTRUCTOR SB!IMPL::%MAKE-FD-STREAM)
;          (:CONC-NAME SB!IMPL::FD-STREAM-) (:PREDICATE SB!SYS:FD-STREAM-P)
;          (:INCLUDE SB!KERNEL:ANSI-STREAM
;           (SB!IMPL::MISC #'SB!IMPL::FD-STREAM-MISC-ROUTINE))
;          (:COPIER NIL))
;       (SB!IMPL::NAME NIL)
;       (SB!IMPL::FILE NIL)
;       (SB!IMPL::ORIGINAL NIL :TYPE (OR SIMPLE-STRING NULL))
;       (SB!IMPL::DELETE-ORIGINAL NIL)
;       (SB!IMPL::ELEMENT-SIZE 1 :TYPE SB!INT:INDEX)
;       (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR)
;       (SB!IMPL::FD -1 :TYPE FIXNUM)
;       (SB!IMPL::FD-TYPE :UNKNOWN :TYPE KEYWORD)
;       (SB!IMPL::BUFFERING :FULL :TYPE (MEMBER :FULL :LINE :NONE))
;       (SB!IMPL::DUAL-CHANNEL-P NIL)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!SYS:FD-STREAM {53435971}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F23C81}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {51F53BE1}>
;       #<SB!KERNEL:LAYOUT for STREAM {5400B209}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {5440A501}>
;       #<SB!KERNEL:LAYOUT for FILE-STREAM {5400CAB1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!SYS:FD-STREAM-P and
;   SB!IMPL::FD-STREAM-CHAR-SIZE could not be inlined because the structure
;   definition for SB!SYS:FD-STREAM was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (FD-STREAM # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN RELEASE-FD-STREAM-BUFFERS ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFSTRUCT FORM-TRACKING-STREAM
;     (DEFSTRUCT
;         (SB!INT:FORM-TRACKING-STREAM
;          (:CONSTRUCTOR SB!IMPL::%MAKE-FORM-TRACKING-STREAM)
;          (:INCLUDE SB!SYS:FD-STREAM
;           (SB!IMPL::MISC #'SB!IMPL::TRACKING-STREAM-MISC)
;           (SB!IMPL::INPUT-CHAR-POS 0))
;          (:COPIER NIL))
;       (SB!IMPL::OBSERVER
;        (LAMBDA (SB!IMPL::X SB!IMPL::Y SB!IMPL::Z)
;          (DECLARE (IGNORE SB!IMPL::X SB!IMPL::Y SB!IMPL::Z)))
;        :TYPE FUNCTION)
;       (SB!IMPL::NEWLINES (MAKE-ARRAY 10 :FILL-POINTER 0 :ADJUSTABLE T))
;       (SB!IMPL::LAST-NEWLINE -1 :TYPE SB!KERNEL:INDEX-OR-MINUS-1)
;       (SB!IMPL::FORM-START-BYTE-POS)
;       (SB!IMPL::FORM-START-CHAR-POS))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!INT:FORM-TRACKING-STREAM {52CD18C1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F23C81}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {51F53BE1}>
;       #<SB!KERNEL:LAYOUT for STREAM {5400B209}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {5440A501}>
;       #<SB!KERNEL:LAYOUT for FILE-STREAM {5400CAB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:FD-STREAM {53A60E19}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!INT:FORM-TRACKING-STREAM-P could not be inlined
;   because the structure definition for SB!INT:FORM-TRACKING-STREAM was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (FORM-TRACKING-STREAM # ...) ...)
; x-compiling (DEFUN LINE/COL-FROM-CHARPOS ...)
; x-compiling (DEFUN BUFFER-OUTPUT ...)
; x-compiling (DEFUN FLUSH-OUTPUT-BUFFER ...)
; x-compiling (DEFUN %QUEUE-AND-REPLACE-OUTPUT-BUFFER ...)
; x-compiling (DEFUN WRITE-OUTPUT-FROM-QUEUE ...)
; x-compiling (DEFUN WRITE-OR-BUFFER-OUTPUT ...)
; x-compiling (DECLAIM (INLINE OUTPUT-RAW-BYTES))
; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...)
; x-compiling (DEFVAR *OUTPUT-ROUTINES* ...)
; x-compiling (DEFUN SIMPLE-STREAM-PERROR ...)
; x-compiling (DEFUN SIMPLE-FILE-PERROR ...)
; x-compiling (DEFUN C-STRING-ENCODING-ERROR ...)
; x-compiling (DEFUN C-STRING-DECODING-ERROR ...)
; x-compiling (DEFUN STREAM-DECODING-ERROR-AND-HANDLE ...)
; x-compiling (DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ...)
; x-compiling (DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ...)
; x-compiling (DEFUN SYNCHRONIZE-STREAM-OUTPUT ...)
; x-compiling (DEFUN FD-STREAM-OUTPUT-FINISHED-P ...)
; x-compiling (DEFMACRO OUTPUT-WRAPPER/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO OUTPUT-WRAPPER ...)
; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-CHAR-~A-BUFFERED" 1 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-BYTE-~A-BUFFERED" 1 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-BYTE-~A-BUFFERED" 1 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-SHORT-~A-BUFFERED" 2 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-SHORT-~A-BUFFERED" 2 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-LONG-~A-BUFFERED" 4 ...) ...)
; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-LONG-~A-BUFFERED" 4 ...) ...)
; x-compiling (DEFUN FD-SOUT ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFSTRUCT EXTERNAL-FORMAT
;     (DEFSTRUCT
;         (SB!IMPL::EXTERNAL-FORMAT (:CONSTRUCTOR SB!IMPL::%MAKE-EXTERNAL-FORMAT)
;          (:CONC-NAME SB!IMPL::EF-) (:PREDICATE SB!IMPL::EXTERNAL-FORMAT-P)
;          (:COPIER SB!IMPL::%COPY-EXTERNAL-FORMAT))
;       (SB!IMPL::NAMES (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T)
;       (SB!IMPL::DEFAULT-REPLACEMENT-CHARACTER (SB!INT:MISSING-ARG) :TYPE
;        CHARACTER)
;       (SB!IMPL::READ-N-CHARS-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::READ-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-N-BYTES-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-CHAR-NONE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-CHAR-LINE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::WRITE-CHAR-FULL-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       (SB!IMPL::RESYNC-FUN NIL :TYPE (OR FUNCTION NULL))
;       (SB!IMPL::BYTES-FOR-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!IMPL::EXTERNAL-FORMAT {52CFDBD1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53F23C81}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {51F53BE1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!IMPL::EF-READ-C-STRING-FUN and
;   SB!IMPL::EF-WRITE-C-STRING-FUN could not be inlined because the structure
;   definition for SB!IMPL::EXTERNAL-FORMAT was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...)
; x-compiling (DEFUN EF-CHAR-SIZE ...)
; x-compiling (DEFUN WRAP-EXTERNAL-FORMAT-FUNCTIONS ...)
; x-compiling (DEFVAR *EXTERNAL-FORMATS* ...)
; x-compiling (DEFUN GET-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN GET-EXTERNAL-FORMAT-OR-LOSE ...)
; x-compiling (DEFUN EXTERNAL-FORMAT-KEYWORD ...)
; x-compiling (DEFUN FD-STREAM-EXTERNAL-FORMAT-KEYWORD ...)
; x-compiling (DEFUN CANONIZE-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN PICK-OUTPUT-ROUTINE ...)
; x-compiling (DEFVAR *INPUT-ROUTINES* ...)
; x-compiling (DEFUN SYSREAD-MAY-BLOCK-P ...)
; x-compiling (DEFUN REFILL-INPUT-BUFFER ...)
; x-compiling (DEFMACRO INPUT-AT-LEAST ...)
; x-compiling (DEFMACRO INPUT-WRAPPER/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO INPUT-WRAPPER ...)
; x-compiling (DEFMACRO DEF-INPUT-ROUTINE/VARIABLE-WIDTH ...)
; x-compiling (DEFMACRO DEF-INPUT-ROUTINE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-CHARACTER ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-8BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-8BIT-NUMBER ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-16BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-16BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-32BIT-BYTE ...)
; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-32BIT-BYTE ...)
; x-compiling (DEFUN PICK-INPUT-ROUTINE ...)
; x-compiling (DEFUN FD-STREAM-READ-N-BYTES ...)
; x-compiling (DEFUN FD-STREAM-RESYNC ...)
; x-compiling (DEFUN GET-FD-STREAM-CHARACTER-SIZER ...)
; x-compiling (DEFUN FD-STREAM-CHARACTER-SIZE ...)
; x-compiling (DEFUN FD-STREAM-STRING-SIZE ...)
; x-compiling (DEFUN FIND-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN VARIABLE-WIDTH-EXTERNAL-FORMAT-P ...)
; x-compiling (DEFUN BYTES-FOR-CHAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT ...)
; x-compiling (DEFMACRO DEFINE-UNIBYTE-EXTERNAL-FORMAT ...)
; x-compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH ...)
; x-compiling (DEFUN SET-FD-STREAM-ROUTINES ...)
; x-compiling (DEFUN RELEASE-FD-STREAM-RESOURCES ...)
; x-compiling (DEFUN FLUSH-INPUT-BUFFER ...)
; x-compiling (DEFUN FD-STREAM-CLEAR-INPUT ...)
; x-compiling (DEFUN FD-STREAM-MISC-ROUTINE ...)
; x-compiling (DEFUN FINISH-FD-STREAM-OUTPUT ...)
; x-compiling (DEFUN FD-STREAM-GET-FILE-POSITION ...)
; x-compiling (DEFUN FD-STREAM-SET-FILE-POSITION ...)
; x-compiling (DEFUN MAKE-FD-STREAM ...)
; x-compiling (DEFUN PICK-BACKUP-NAME ...)
; x-compiling (DEFUN RENAME-THE-OLD-ONE ...)
; x-compiling (DEFUN OPEN ...)
; x-compiling (DEFVAR *TTY*)
; x-compiling (DEFVAR *STDIN*)
; x-compiling (DEFVAR *STDOUT*)
; x-compiling (DEFVAR *STDERR*)
; x-compiling (DEFUN STREAM-COLD-INIT-OR-RESET ...)
; x-compiling (DEFUN STREAM-DEINIT ...)
; x-compiling (DEFUN STDSTREAM-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN STREAM-REINIT ...)
; x-compiling (DEFUN BEEP ...)
; x-compiling (DEFUN FILE-NAME ...)
; x-compiling (DEFUN STREAM-OUTPUT-STREAM ...)
; x-compiling (DEFUN UPDATE-INPUT-CHAR-POS ...)
; x-compiling (DEFUN TRACKING-STREAM-MISC ...)
; x-compiling (!DEFGLOBAL *!COLD-STDERR-BUF* ...)

; file: /«PKGBUILDDIR»/src/code/fd-stream.lisp
; in: DEFINE-DEPRECATED-FUNCTION :LATE
;     (SB!INT:DEFINE-DEPRECATED-FUNCTION :LATE
;         "1.0.8.16"
;         SB!SYS:OUTPUT-RAW-BYTES
;         WRITE-SEQUENCE
;         (STREAM SB!IMPL::THING &OPTIONAL SB!IMPL::START SB!IMPL::END)
;       (SB!IMPL::WRITE-OR-BUFFER-OUTPUT STREAM SB!IMPL::THING
;        (OR SB!IMPL::START 0) (OR SB!IMPL::END (LENGTH SB!IMPL::THING))))
; --> PROG1 LET LET SETF LET* FUNCALL 
; ==>
;   (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW1305
;    'SB!SYS:OUTPUT-RAW-BYTES)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF COMPILER-MACRO-FUNCTION)

; in: DEFUN GET-EXTERNAL-FORMAT
;     (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN STREAM-ENCODING-ERROR-AND-HANDLE
;     (RESTART-CASE (ERROR 'SB!INT:STREAM-ENCODING-ERROR :EXTERNAL-FORMAT
;                          (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :CODE
;                          SB!IMPL::CODE)
;       (SB!IMPL::OUTPUT-NOTHING NIL :REPORT
;        (LAMBDA (STREAM) (FORMAT STREAM "~@<Skip output of this character.~@:>"))
;        (THROW 'SB!IMPL::OUTPUT-NOTHING NIL))
;       (SB!IMPL::OUTPUT-REPLACEMENT (STRING) :REPORT
;        (LAMBDA (STREAM) (FORMAT STREAM "~@<Output replacement string.~@:>"))
;        :INTERACTIVE
;        (LAMBDA ()
;          (FORMAT *QUERY-IO* "~@<Enter a string: ~@:>")
;          (FINISH-OUTPUT *QUERY-IO*)
;          (LIST (READ *QUERY-IO*)))
;        (LET ((STRING #))
;          (SB!IMPL::FD-SOUT STREAM (STRING STRING) 0 (LENGTH STRING)))
;        (THROW 'SB!IMPL::OUTPUT-NOTHING NIL)))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-ENCODING-ERROR
;                                  (LIST :EXTERNAL-FORMAT
;                                        (STREAM-EXTERNAL-FORMAT STREAM) :STREAM
;                                        STREAM :CODE SB!IMPL::CODE)
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN STREAM-DECODING-ERROR-AND-HANDLE
;     (RESTART-CASE (ERROR 'SB!INT:STREAM-DECODING-ERROR :EXTERNAL-FORMAT
;                          (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :OCTETS
;                          (LET ((SB!IMPL::BUFFER #))
;                            (SB!SYS:SAP-REF-OCTETS
;                             (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER)
;                             (SB!IMPL::BUFFER-HEAD SB!IMPL::BUFFER)
;                             SB!IMPL::OCTET-COUNT)))
;       (SB!INT:ATTEMPT-RESYNC NIL :REPORT
;        (LAMBDA (STREAM)
;          (FORMAT STREAM "~@<Attempt to resync the stream at a ~
;                           character boundary and continue.~@:>"))
;        (SB!IMPL::FD-STREAM-RESYNC STREAM) NIL)
;       (SB!INT:FORCE-END-OF-FILE NIL :REPORT
;        (LAMBDA (STREAM) (FORMAT STREAM "~@<Force an end of file.~@:>"))
;        (SETF (SB!IMPL::FD-STREAM-EOF-FORCED-P STREAM) T))
;       (SB!IMPL::INPUT-REPLACEMENT (STRING) :REPORT
;        (LAMBDA (STREAM)
;          (FORMAT STREAM "~@<Use string as replacement input, ~
;                                  attempt to resync at a character ~
;                                  boundary and continue.~@:>"))
;        :INTERACTIVE
;        (LAMBDA ()
;          (FORMAT *QUERY-IO* "~@<Enter a string: ~@:>")
;          (FINISH-OUTPUT *QUERY-IO*)
;          (LIST (READ *QUERY-IO*)))
;        (LET ((STRING #) (SB!IMPL::INSTEAD #))
;          (DOTIMES (SB!IMPL::I #) (VECTOR-PUSH-EXTEND # SB!IMPL::INSTEAD))
;          (SB!IMPL::FD-STREAM-RESYNC STREAM)
;          (WHEN (> # 0) (SETF #)))
;        NIL))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-DECODING-ERROR
;                                  (LIST :EXTERNAL-FORMAT
;                                        (STREAM-EXTERNAL-FORMAT STREAM) :STREAM
;                                        STREAM :OCTETS
;                                        (LET ((SB!IMPL::BUFFER #))
;                                          (SB!SYS:SAP-REF-OCTETS
;                                           (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER)
;                                           (SB!IMPL::BUFFER-HEAD
;                                            SB!IMPL::BUFFER)
;                                           SB!IMPL::OCTET-COUNT)))
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; in: DEFUN GET-EXTERNAL-FORMAT
;     (HANDLER-BIND ((SB!INT:STREAM-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::INPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!INT:STREAM-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::OUTPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!IMPL::OCTETS-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)))
;                    (SB!IMPL::OCTET-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C))))
;       (APPLY SB!IMPL::FUN REST))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!IMPL::OCTET-DECODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: OCTET-DECODING-ERROR

; ==>
;   (TYPEP CONDITION 'SB!IMPL::OCTETS-ENCODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: OCTETS-ENCODING-ERROR

; in: DEFUN RELEASE-FD-STREAM-RESOURCES
;     (HANDLER-CASE
;      (SB!SYS:WITHOUT-INTERRUPTS
;       (WHEN (SB!IMPL::FD-STREAM-HANDLER SB!SYS:FD-STREAM)
;         (SB!SYS:REMOVE-FD-HANDLER (SB!IMPL::FD-STREAM-HANDLER SB!SYS:FD-STREAM))
;         (SETF # NIL))
;       (SB!UNIX:UNIX-CLOSE (SB!SYS:FD-STREAM-FD SB!SYS:FD-STREAM))
;       (SB!IMPL::SET-CLOSED-FLAME SB!SYS:FD-STREAM)
;       (SB!EXT:CANCEL-FINALIZATION SB!SYS:FD-STREAM))
;      (SERIOUS-CONDITION (SB!IMPL::E) (ERROR SB!IMPL::E)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SERIOUS-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SERIOUS-CONDITION

; in: DEFUN GET-EXTERNAL-FORMAT
;     (HANDLER-BIND ((SB!INT:STREAM-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::INPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!INT:STREAM-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (DECLARE #)
;                       (INVOKE-RESTART 'SB!IMPL::OUTPUT-REPLACEMENT
;                                       SB!IMPL::REPLACEMENT)))
;                    (SB!IMPL::OCTETS-ENCODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)))
;                    (SB!IMPL::OCTET-DECODING-ERROR
;                     (LAMBDA (SB!IMPL::C)
;                       (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C))))
;       (APPLY SB!IMPL::FUN REST))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!INT:STREAM-DECODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-DECODING-ERROR

; ==>
;   (TYPEP CONDITION 'SB!INT:STREAM-ENCODING-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: STREAM-ENCODING-ERROR
; 
; compilation unit finished
;   Undefined types:
;     CONDITION OCTET-DECODING-ERROR OCTETS-ENCODING-ERROR SERIOUS-CONDITION STREAM-DECODING-ERROR STREAM-ENCODING-ERROR
;   Undefined function:
;     (SETF COMPILER-MACRO-FUNCTION)
;   caught 12 STYLE-WARNING conditions
; x-compiling (DEFUN !MAKE-COLD-STDERR-STREAM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/fd-stream.lisp-obj-tmp written
; compilation finished in 0:00:22.322
; compiling file "/«PKGBUILDDIR»/src/code/module.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *MODULES* ...)
; x-compiling (DEFVAR *MODULE-PROVIDER-FUNCTIONS* ...)
; x-compiling (DEFUN PROVIDE ...)
; x-compiling (DEFVAR *REQUIRING* ...)
; x-compiling (DEFUN REQUIRE-ERROR ...)
; x-compiling (DEFUN REQUIRE ...)

; file: /«PKGBUILDDIR»/src/code/module.lisp
; in: DEFUN MODULE-PROVIDE-CONTRIB
;     (HANDLER-BIND (((OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE)
;                     #'MUFFLE-WARNING))
;       (LOAD SB!IMPL::FILE))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE))
; 
; caught STYLE-WARNING:
;   undefined type: PACKAGE-AT-VARIANCE
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING
; 
; compilation unit finished
;   Undefined types:
;     PACKAGE-AT-VARIANCE STYLE-WARNING
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN MODULE-PROVIDE-CONTRIB ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/module.lisp-obj-tmp written
; compilation finished in 0:00:00.298
; compiling file "/«PKGBUILDDIR»/src/code/query.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN QUERY-READ-CHAR ...)
; x-compiling (DEFUN QUERY-READ-LINE ...)
; x-compiling (DEFUN MAYBE-PRINT-QUERY ...)
; x-compiling (DEFUN CLARIFY-LEGAL-QUERY-INPUT ...)
; x-compiling (DEFUN Y-OR-N-P ...)
; x-compiling (DEFUN YES-OR-NO-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/query.lisp-obj-tmp written
; compilation finished in 0:00:00.160
; compiling file "/«PKGBUILDDIR»/src/code/sort.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN SORT-VECTOR ...)
; x-compiling (DECLAIM (MAYBE-INLINE SORT ...))
; x-compiling (DEFUN SORT ...)
; x-compiling (DEFUN STABLE-SORT ...)
; x-compiling (DECLAIM (MAYBE-INLINE MERGE-LISTS* ...))
; x-compiling (DEFUN MERGE-LISTS* ...)
; x-compiling (DECLAIM (INLINE MERGE-LISTS))
; x-compiling (DEFUN MERGE-LISTS ...)
; x-compiling (DECLAIM (INLINE STABLE-SORT-LIST-2 ...))
; x-compiling (DEFUN STABLE-SORT-LIST-2 ...)
; x-compiling (DEFUN STABLE-SORT-LIST-3 ...)
; x-compiling (DEFCONSTANT +STABLE-SORT-FAST-MERGE-LIMIT+ ...)
; x-compiling (DEFUN STABLE-SORT-LIST ...)
; x-compiling (DEFUN STABLE-SORT-SIMPLE-VECTOR ...)
; x-compiling (DEFUN STABLE-SORT-VECTOR ...)

; file: /«PKGBUILDDIR»/src/code/sort.lisp
; in: DEFUN MERGE
;     (FIND-CLASS SB!IMPL::RESULT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS
; 
; compilation unit finished
;   Undefined function:
;     FIND-CLASS
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN MERGE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sort.lisp-obj-tmp written
; compilation finished in 0:00:05.078
; compiling file "/«PKGBUILDDIR»/src/code/time.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN TIME-REINIT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN GET-INTERNAL-RUN-TIME ...)
; x-compiling (DEFCONSTANT SECONDS-IN-WEEK ...)
; x-compiling (DEFCONSTANT WEEKS-OFFSET ...)
; x-compiling (DEFCONSTANT SECONDS-OFFSET ...)
; x-compiling (DEFCONSTANT MINUTES-PER-DAY ...)
; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-YEAR ...)
; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-CENTURY ...)
; x-compiling (DEFCONSTANT NOVEMBER-17-1858 ...)
; x-compiling (DEFCONSTANT WEEKDAY-NOVEMBER-17-1858 ...)
; x-compiling (DEFCONSTANT UNIX-TO-UNIVERSAL-TIME ...)
; x-compiling (DEFUN GET-UNIVERSAL-TIME ...)
; x-compiling (DEFUN GET-DECODED-TIME ...)
; x-compiling (DEFCONSTANT +MAR-1-2000+ ...)
; x-compiling (DEFCONSTANT +MAR-1-2035+ ...)
; x-compiling (DEFCONSTANT +MAR-1-1903+ ...)
; x-compiling (DEFUN YEARS-SINCE-MAR-2000 ...)
; x-compiling (DEFUN TRUNCATE-TO-UNIX-RANGE ...)
; x-compiling (DEFUN DECODE-UNIVERSAL-TIME ...)
; x-compiling (DEFUN PICK-OBVIOUS-YEAR ...)
; x-compiling (DEFUN LEAP-YEARS-BEFORE ...)
; x-compiling (DEFVAR *DAYS-BEFORE-MONTH* ...)
; x-compiling (DEFUN ENCODE-UNIVERSAL-TIME ...)
; x-compiling (DEFVAR *GC-RUN-TIME* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN PRINT-TIME ...)
; x-compiling (DEFMACRO TIME ...)
; x-compiling (DEFUN TIME-GET-SYS-INFO ...)
; x-compiling (DEFUN ELAPSED-CYCLES ...)
; x-compiling (DECLAIM (INLINE READ-CYCLE-COUNTER))
; x-compiling (DEFUN READ-CYCLE-COUNTER ...)
; x-compiling (DEFUN FORMAT-MICROSECONDS ...)
; x-compiling (DEFUN FORMAT-MILLISECONDS ...)
; x-compiling (DEFUN %FORMAT-DECIMAL ...)

; file: /«PKGBUILDDIR»/src/code/time.lisp
; in: DEFUN CALL-WITH-TIMING
;     (SB!IMPL::NOTE :PROCESSOR-CYCLES SB!IMPL::CYCLES #'ZEROP)
; ==>
;   SB!IMPL::CYCLES
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN CALL-WITH-TIMING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/time.lisp-obj-tmp written
; compilation finished in 0:00:02.296
; compiling file "/«PKGBUILDDIR»/src/code/timer.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE HEAP-PARENT ...))
; x-compiling (DEFUN HEAP-PARENT ...)
; x-compiling (DEFUN HEAP-LEFT ...)
; x-compiling (DEFUN HEAP-RIGHT ...)
; x-compiling (DEFUN HEAPIFY ...)
; x-compiling (DEFUN HEAP-INSERT ...)
; x-compiling (DEFUN HEAP-MAXIMUM ...)
; x-compiling (DEFUN HEAP-EXTRACT ...)
; x-compiling (DEFUN HEAP-EXTRACT-MAXIMUM ...)
; x-compiling (DEFSTRUCT (PRIORITY-QUEUE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN PRIORITY-QUEUE-MAXIMUM ...)
; x-compiling (DEFUN PRIORITY-QUEUE-EXTRACT-MAXIMUM ...)
; x-compiling (DEFUN PRIORITY-QUEUE-INSERT ...)
; x-compiling (DEFUN PRIORITY-QUEUE-EMPTY-P ...)
; x-compiling (DEFUN PRIORITY-QUEUE-REMOVE ...)
; x-compiling (DEFSTRUCT (TIMER # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN TIMER-NAME ...)
; x-compiling (DEFUN TIMER-SCHEDULED-P ...)
; x-compiling (DEFVAR *SCHEDULER-LOCK* ...)
; x-compiling (DEFMACRO WITH-SCHEDULER-LOCK ...)
; x-compiling (DEFUN UNDER-SCHEDULER-LOCK-P ...)
; x-compiling (DEFPARAMETER *SCHEDULE* ...)
; x-compiling (DEFUN PEEK-SCHEDULE ...)
; x-compiling (DEFUN TIME-LEFT ...)
; x-compiling (DEFUN DELTA->REAL ...)
; x-compiling (DEFUN MAKE-CANCELLABLE-INTERRUPTOR ...)
; x-compiling (DEFUN %SCHEDULE-TIMER ...)
; x-compiling (DEFUN SCHEDULE-TIMER ...)
; x-compiling (DEFUN UNSCHEDULE-TIMER ...)
; x-compiling (DEFUN LIST-ALL-TIMERS ...)
; x-compiling (DEFUN RESCHEDULE-TIMER ...)
; x-compiling (DEFUN REAL-TIME->SEC-AND-NSEC ...)
; x-compiling (DEFUN %SET-SYSTEM-TIMER ...)
; x-compiling (DEFUN %CLEAR-SYSTEM-TIMER ...)
; x-compiling (DEFUN SET-SYSTEM-TIMER ...)
; x-compiling (DEFUN RUN-TIMER ...)
; x-compiling (DEFUN RUN-EXPIRED-TIMERS ...)
; x-compiling (DEFUN TIMEOUT-CERROR ...)

; file: /«PKGBUILDDIR»/src/code/timer.lisp
; in: DEFUN RUN-TIMER
;     (HANDLER-CASE (SB!THREAD:INTERRUPT-THREAD SB!IMPL::THREAD FUNCTION)
;                   (SB!THREAD:INTERRUPT-THREAD-ERROR (SB!IMPL::C)
;                    (DECLARE (IGNORE SB!IMPL::C))
;                    (WARN "Timer ~S failed to interrupt thread ~S." SB!EXT:TIMER
;                          SB!IMPL::THREAD)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!THREAD:INTERRUPT-THREAD-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!THREAD:INTERRUPT-THREAD-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SB!THREAD:INTERRUPT-THREAD-ERROR
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFMACRO WITH-TIMEOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/timer.lisp-obj-tmp written
; compilation finished in 0:00:02.497
; compiling file "/«PKGBUILDDIR»/src/code/final.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFGLOBAL **FINALIZER-STORE** ...)
; x-compiling (DEFGLOBAL **FINALIZER-STORE-LOCK** ...)
; x-compiling (DEFMACRO WITH-FINALIZER-STORE-LOCK ...)
; x-compiling (DEFUN FINALIZE ...)
; x-compiling (DEFUN DEINIT-FINALIZERS ...)
; x-compiling (DEFUN CANCEL-FINALIZATION ...)

; file: /«PKGBUILDDIR»/src/code/final.lisp
; in: DEFUN RUN-PENDING-FINALIZERS
;     (HANDLER-CASE (FUNCALL SB!IMPL::FUN)
;                   (ERROR (SB!IMPL::C)
;                          (WARN "Error calling finalizer ~S:~%  ~S" SB!IMPL::FUN
;                                SB!IMPL::C)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR
; 
; compilation unit finished
;   Undefined type:
;     ERROR
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN RUN-PENDING-FINALIZERS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/final.lisp-obj-tmp written
; compilation finished in 0:00:00.273
; compiling file "/«PKGBUILDDIR»/src/code/setf-funs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-SETTERS ("COMMON-LISP") ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/setf-funs.lisp-obj-tmp written
; compilation finished in 0:00:01.078
; compiling file "/«PKGBUILDDIR»/src/code/stubs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF %CALLER-FRAME ...)
; x-compiling (DEF %CALLER-PC ...)
; x-compiling (DEF %CODE-CODE-SIZE)
; x-compiling (DEF %CODE-DEBUG-INFO)
; x-compiling (DEF %CODE-ENTRY-POINTS)
; x-compiling (DEF %FUNCALLABLE-INSTANCE-LAYOUT)
; x-compiling (DEF %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/stubs.lisp-obj-tmp written
; compilation finished in 0:00:00.107
; compiling file "/«PKGBUILDDIR»/src/code/exhaust.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-ROUTINE RESET-CONTROL-STACK-GUARD-PAGE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/exhaust.lisp-obj-tmp written
; compilation finished in 0:00:00.056
; compiling file "/«PKGBUILDDIR»/src/compiler/early-c.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...)
; x-compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*)
; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT*)
; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*)
; x-compiling (DEF!TYPE LAYOUT-DEPTHOID ...)
; x-compiling (DEFTYPE INLINEP ...)
; x-compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...)
; x-compiling (DEFVAR *LEXENV*)
; x-compiling (DECLAIM (TYPE LEXENV ...))
; x-compiling (DEFVAR *FREE-VARS*)
; x-compiling (DEFVAR *FREE-FUNS*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *CONSTANTS*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *ALLOW-INSTRUMENTING*)
; x-compiling (DEFVAR *CODE-SEGMENT*)
; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT*)
; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT*)
; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; x-compiling (DEFVAR *CURRENT-PATH*)
; x-compiling (DEFVAR *CURRENT-COMPONENT*)
; x-compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*)
; x-compiling (DEFVAR *EVAL-TLF-INDEX*)
; x-compiling (DEFVAR *HANDLED-CONDITIONS*)
; x-compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*)
; x-compiling (DEFVAR *POLICY*)
; x-compiling (DEFVAR *MACRO-POLICY* ...)
; x-compiling (DEFVAR *DYNAMIC-COUNTS-TN*)
; x-compiling (DEFVAR *ELSEWHERE*)
; x-compiling (DEFVAR *EVENT-INFO*)
; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD*)
; x-compiling (DEFVAR *FAILURE-P*)
; x-compiling (DEFVAR *FIXUP-NOTES*)
; x-compiling (DEFVAR *LEXENV*)
; x-compiling (DEFVAR *SOURCE-INFO*)
; x-compiling (DEFVAR *SOURCE-PLIST*)
; x-compiling (DEFVAR *SOURCE-NAMESTRING*)
; x-compiling (DEFVAR *UNDEFINED-WARNINGS*)
; x-compiling (DEFVAR *WARNINGS-P*)
; x-compiling (DEFVAR *LAMBDA-CONVERSIONS*)
; x-compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...)
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFGLOBAL **WORLD-LOCK** ...)
; x-compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...))
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT)
; x-compiling (DEFMACRO WITH-WORLD-LOCK ...)
; x-compiling (DECLAIM (TYPE FIXNUM ...))
; x-compiling (DEFVAR *COMPILER-SSET-COUNTER* ...)
; x-compiling (DECLAIM (FIXNUM *TYPE-CACHE-NONCE*))
; x-compiling (!DEFGLOBAL *TYPE-CACHE-NONCE* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-NAME-DEFINED ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; x-compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...))
; x-compiling (DEFVAR *DEBUG-NAME-LEVEL* ...)
; x-compiling (DEFVAR *DEBUG-NAME-LENGTH* ...)
; x-compiling (DEFVAR *DEBUG-NAME-PUNT*)
; x-compiling (DEFVAR *DEBUG-NAME-SHARP*)
; x-compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*)
; x-compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...)
; x-compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...)
; x-compiling (SETF *DEBUG-NAME-SHARP* ...)
; x-compiling (DEFUN DEBUG-NAME ...)
; x-compiling (DECLAIM (INLINE LL-KWDS-KEYP ...))
; x-compiling (DEFUN LL-KWDS-KEYP ...)
; x-compiling (DEFUN LL-KWDS-ALLOWP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-c.lisp-obj-tmp written
; compilation finished in 0:00:01.287
; compiling file "/«PKGBUILDDIR»/src/compiler/policy.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!TYPE POLICY-QUALITY ...)
; x-compiling (DEFVAR *POLICY-RESTRICTIONS* ...)
; x-compiling (DEFUN RESTRICT-COMPILER-POLICY ...)
; x-compiling (DEFSTRUCT (POLICY-DEPENDENT-QUALITY #) ...)
; x-compiling (DECLAIM (SIMPLE-VECTOR **POLICY-PRIMARY-QUALITIES** ...))
; x-compiling (!DEFGLOBAL **POLICY-PRIMARY-QUALITIES** ...)
; x-compiling (DEFGLOBAL **POLICY-DEPENDENT-QUALITIES** ...)
; x-compiling (DEFCONSTANT N-POLICY-PRIMARY-QUALITIES ...)
; x-compiling (DEFCONSTANT MAX-POLICY-QUALITIES ...)
; x-compiling (DEFSTRUCT (POLICY #) ...)
; x-compiling (DEFUN POLICY-TO-DECL-SPEC ...)
; x-compiling (DEFMETHOD PRINT-OBJECT ...)
; x-compiling (DEFUN POLICY= ...)
; x-compiling (DEFUN POLICY-QUALITY-NAME-P ...)
; x-compiling (DEFUN ALTER-POLICY ...)
; x-compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...)
; x-compiling (DECLAIM (TYPE POLICY ...) ...)
; x-compiling (DEFGLOBAL **BASELINE-POLICY** ...)
; x-compiling (DEFGLOBAL **ZERO-TYPECHECK-POLICY** ...)
; x-compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...)
; x-compiling (DEFUN POLICY-QUALITY ...)
; x-compiling (DEFINE-COMPILER-MACRO POLICY-QUALITY ...)
; x-compiling (DEFUN %POLICY-QUALITY ...)
; x-compiling (DEFMACRO POLICY ...)
; x-compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...)
; x-compiling (DEFUN SET-MACRO-POLICY ...)
; x-compiling (DEFUN MACRO-POLICY-DECLS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/policy.lisp-obj-tmp written
; compilation finished in 0:00:02.220
; compiling file "/«PKGBUILDDIR»/src/compiler/policies.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...)
; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-CLOSURE-DEBUG-POINTER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/policies.lisp-obj-tmp written
; compilation finished in 0:00:07.014
; compiling file "/«PKGBUILDDIR»/src/compiler/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; x-compiling (DEFMACRO DEF-IR1-TRANSLATOR ...)
; x-compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...)
; x-compiling (DEFTYPE ATTRIBUTES ...)
; x-compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...)
; x-compiling (DEFMACRO ATTRIBUTES-UNION ...)
; x-compiling (DEFMACRO ATTRIBUTES-INTERSECTION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DECLAIM (INLINE ATTRIBUTES=))
; x-compiling (DEFUN ATTRIBUTES= ...)
; x-compiling (DEFUN PARSE-DEFTRANSFORM ...)
; x-compiling (DEFMACRO DEFTRANSFORM ...)
; x-compiling (DEFMACRO DEFKNOWN ...)
; x-compiling (DEFMACRO DEFOPTIMIZER ...)
; x-compiling (DEFMACRO DO-BLOCKS ...)
; x-compiling (DEFMACRO DO-BLOCKS-BACKWARDS ...)
; x-compiling (DEFMACRO DO-USES ...)
; x-compiling (DEFMACRO DO-NODES ...)
; x-compiling (DEFMACRO DO-NODES-BACKWARDS ...)
; x-compiling (DEFMACRO DO-NODES-CAREFULLY ...)
; x-compiling (DEFMACRO DO-NESTED-CLEANUPS ...)
; x-compiling (DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; x-compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...)
; x-compiling (DEFMACRO WITH-SOURCE-PATHS ...)
; x-compiling (DEFMACRO WITH-IR1-NAMESPACE ...)
; x-compiling (DEFMACRO LEXENV-FIND ...)
; x-compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...)
; x-compiling (DEFSTRUCT (EVENT-INFO #) ...)
; x-compiling (DEFVAR *EVENT-INFO* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-INFO-OR-LOSE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-COUNT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-ACTION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %SET-EVENT-ACTION ...)
; x-compiling (DEFSETF EVENT-ACTION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-LEVEL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %SET-EVENT-LEVEL ...)
; x-compiling (DEFSETF EVENT-LEVEL ...)
; x-compiling (DEFMACRO DEFEVENT ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...)
; x-compiling (DEFMACRO EVENT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EVENT-STATISTICS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CLEAR-EVENT-STATISTICS ...)
; x-compiling (DECLAIM (INLINE FIND-IN ...))
; x-compiling (DEFUN FIND-IN ...)
; x-compiling (DEFUN POSITION-IN ...)
; x-compiling (DEF!MACRO DELETEF-IN ...)
; x-compiling (DEF!MACRO PUSH-IN ...)
; x-compiling (DEFMACRO POSITION-OR-LOSE ...)
; x-compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...)
; x-compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...)

; file: /«PKGBUILDDIR»/src/compiler/macros.lisp
; in: DEF!MACRO PUSH-IN
;     (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SETF-EXPANSION

; in: DEF!MACRO DELETEF-IN
;     (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     GET-SETF-EXPANSION
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/macros.lisp-obj-tmp written
; compilation finished in 0:00:04.485
; compiling file "/«PKGBUILDDIR»/src/compiler/globaldb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFUN GLOBALDB-SXHASHOID ...)
; x-compiling (DEFUN PRIMIFY ...)
; x-compiling (DEF!STRUCT (META-INFO # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE META-INFO))
; x-compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...)
; x-compiling (DEFMACRO !GET-META-INFOS ...)
; x-compiling (DEFUN META-INFO ...)
; x-compiling (DEFUN !REGISTER-META-INFO ...)
; x-compiling (DEFUN !%DEFINE-INFO-TYPE ...)
; x-compiling (!COLD-INIT-FORMS (DOVECTOR # ...))
; x-compiling (DEFUN INFO ...)
; x-compiling (DEFUN (SETF INFO) ...)
; x-compiling (DEFUN CLEAR-INFO ...)
; x-compiling (DEFUN CLEAR-INFO-VALUES ...)
; x-compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-INFO-VALUE ...)
; x-compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...)
; x-compiling (DEF!MACRO ATOMIC-SET-INFO-VALUE ...)
; x-compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :EMITTED-FULL-CALLS) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...)
; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...)
; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...)
; x-compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...)
; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...)
; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...)
; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...)
; x-compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...)
; x-compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...)
; x-compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...)
; x-compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VOP) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :DECLARATION) ...)
; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :ALIEN-TYPE) ...)
; x-compiling (DEFUN CALL-WITH-EACH-INFO ...)
; x-compiling (DEFUN SHOW-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/globaldb.lisp
; in: DEFINE-INFO-TYPE (:FUNCTION :INFO)
;     (SB!C::DEFINE-INFO-TYPE (:FUNCTION :INFO) :TYPE-SPEC (OR SB!C::FUN-INFO NULL))
; --> EVAL-WHEN SB!C::!%DEFINE-INFO-TYPE SB!C::!%DEFINE-INFO-TYPE LAMBDA 
; --> FUNCTION 
; ==>
;   (THE (OR SB!C::FUN-INFO NULL) SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: DEFINE-INFO-TYPE (:FUNCTION :TYPE)
;     (HANDLER-BIND ((STYLE-WARNING #'MUFFLE-WARNING))
;       (SB!KERNEL:SPECIFIER-TYPE (SB!IMPL::%FUN-TYPE (FDEFINITION SB!C::NAME))))
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'STYLE-WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: STYLE-WARNING
; 
; compilation unit finished
;   Undefined types:
;     FUN-INFO STYLE-WARNING
;   caught 2 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/globaldb.lisp-obj-tmp written
; compilation finished in 0:00:02.921
; compiling file "/«PKGBUILDDIR»/src/compiler/info-functions.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN CHECK-FUN-NAME ...)
; x-compiling (DEFUN PROCLAIM-AS-FUN-NAME ...)
; x-compiling (DEFUN WARN-IF-SETF-MACRO ...)
; x-compiling (DEFUN UNDEFINE-FUN-NAME ...)
; x-compiling (DEFUN BECOME-DEFINED-FUN-NAME ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...)
; x-compiling (DEFUN SB-XC:MACRO-FUNCTION ...)
; x-compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...)
; x-compiling (DEFUN INSTALL-GUARD-FUNCTION ...)
; x-compiling (DEFUN FUN-LOCALLY-DEFINED-P ...)
; x-compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...)
; x-compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...)
; x-compiling (DEFUN FDOCUMENTATION ...)
; x-compiling (DEFUN (SETF FDOCUMENTATION) ...)
; x-compiling (DEFUN RANDOM-DOCUMENTATION ...)
; x-compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...)

; file: /«PKGBUILDDIR»/src/compiler/info-functions.lisp
; in: DEFUN FDOCUMENTATION
;     (CLASS-NAME SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

;     (TYPECASE SB!C::X
;       (FUNCTION (SB!KERNEL:%FUN-DOC SB!C::X))
;       (PACKAGE (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X))
;       (STRUCTURE-CLASS
;        (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X))))
;       ((OR SYMBOL CONS) (SB!KERNEL:RANDOM-DOCUMENTATION SB!C::X SB!C::DOC-TYPE)))
; --> LET COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G32792 'STRUCTURE-CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: STRUCTURE-CLASS

;     (TYPECASE SB!C::X
;       (STRUCTURE-CLASS
;        (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X))))
;       (T
;        (AND (TYPEP SB!C::X 'SYMBOL)
;             (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION SB!C::X)))))
; --> LET COND IF 
; ==>
;   (TYPEP #:G32786 'STRUCTURE-CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: STRUCTURE-CLASS
; 
; compilation unit finished
;   Undefined type:
;     STRUCTURE-CLASS
;   Undefined function:
;     CLASS-NAME
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN EMITTED-FULL-CALL-COUNT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/info-functions.lisp-obj-tmp written
; compilation finished in 0:00:00.811
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-macs.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFMACRO PAD-DATA-BLOCK ...)
; x-compiling (DEFUN REMOVE-KEYWORDS ...)
; x-compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...)
; x-compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...)
; x-compiling (DEFVAR *PRIMITIVE-OBJECTS* ...)
; x-compiling (DEFUN !%DEFINE-PRIMITIVE-OBJECT ...)
; x-compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...)
; x-compiling (DEFMACRO !DEFINE-PRIMITIVE-OBJECT ...)
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFMACRO DEF-REFFER ...)
; x-compiling (DEFMACRO DEF-SETTER ...)
; x-compiling (DEFMACRO DEF-ALLOC ...)
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...)
; x-compiling (DEFSTRUCT MODULAR-CLASS ...)
; x-compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...)
; x-compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...)
; x-compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...)
; x-compiling (DEFUN FIND-MODULAR-CLASS ...)
; x-compiling (DEFSTRUCT MODULAR-FUN-INFO ...)
; x-compiling (DEFUN FIND-MODULAR-VERSION ...)
; x-compiling (DEFUN MODULAR-VERSION-INFO ...)
; x-compiling (DEFUN %DEFINE-MODULAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-MODULAR-FUN ...)
; x-compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...)
; x-compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-macs.lisp-obj-tmp written
; compilation finished in 0:00:03.741
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SINGLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (BINDING) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...)
; x-compiling (!DEFINE-PRIMITIVE-OBJECT (THREAD) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/objdef.lisp-obj-tmp written
; compilation finished in 0:00:01.677
; compiling file "/«PKGBUILDDIR»/src/compiler/sset.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...)
; x-compiling (DEFSTRUCT (SSET #) ...)
; x-compiling (DEFPRINTER (SSET) ...)
; x-compiling (DEFMACRO DO-SSET-ELEMENTS ...)
; x-compiling (DECLAIM (INLINE SSET-HASH1))
; x-compiling (DEFUN SSET-HASH1 ...)
; x-compiling (DECLAIM (INLINE SSET-HASH2))
; x-compiling (DEFUN SSET-HASH2 ...)
; x-compiling (DEFUN SSET-GROW ...)
; x-compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-ADJOIN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-DELETE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-MEMBER ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET= ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-EMPTY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN COPY-SSET ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-UNION ...)
; x-compiling (DEFUN SSET-INTERSECTION ...)
; x-compiling (DEFUN SSET-DIFFERENCE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/sset.lisp-obj-tmp written
; compilation finished in 0:00:02.465
; compiling file "/«PKGBUILDDIR»/src/compiler/node.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!STRUCT (CTRAN # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (LVAR # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (NODE # ...) ...)
; x-compiling (DEF!STRUCT (VALUED-NODE # ...) ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...)
; x-compiling (DEFATTR BLOCK-REOPTIMIZE)
; x-compiling (DEFATTR BLOCK-FLUSH-P)
; x-compiling (DEFATTR BLOCK-TYPE-CHECK)
; x-compiling (DEFATTR BLOCK-DELETE-P)
; x-compiling (DEFATTR BLOCK-TYPE-ASSERTED)
; x-compiling (DEFATTR BLOCK-TEST-MODIFIED)
; x-compiling (DEF!STRUCT (CBLOCK # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...)
; x-compiling (DEF!STRUCT (COMPONENT # ...) ...)
; x-compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...)
; x-compiling (DEFUN AVER-LIVE-COMPONENT ...)
; x-compiling (DEFUN LAMBDA-TOPLEVELISH-P ...)
; x-compiling (DEFUN COMPONENT-TOPLEVELISH-P ...)
; x-compiling (DEF!STRUCT (CLEANUP #) ...)
; x-compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (PHYSENV #) ...)
; x-compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (TAIL-SET) ...)
; x-compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (NLX-INFO # ...) ...)
; x-compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (LEAF # ...) ...)
; x-compiling (DEFUN LEAF-DYNAMIC-EXTENT ...)
; x-compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...)
; x-compiling (DEFUN LEAF-SOURCE-NAME ...)
; x-compiling (DEFUN LEAF-DEBUG-NAME ...)
; x-compiling (DEFUN LEAF-%DEBUG-NAME ...)
; x-compiling (DEF!STRUCT (CONSTANT # ...) ...)
; x-compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (BASIC-VAR # ...) ...)
; x-compiling (DEF!STRUCT (GLOBAL-VAR #) ...)
; x-compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (DEFINED-FUN #) ...)
; x-compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (FUNCTIONAL #) ...)
; x-compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...)
; x-compiling (DEFUN FUNCTIONAL-LETLIKE-P ...)
; x-compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...)
; x-compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...)
; x-compiling (DEF!STRUCT (CLAMBDA # ...) ...)
; x-compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...)
; x-compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT ARG-INFO ...)
; x-compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...)
; x-compiling (DEF!STRUCT (LAMBDA-VAR #) ...)
; x-compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...)
; x-compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...)
; x-compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...)
; x-compiling (DEFMACRO LAMBDA-VAR-DELETED ...)
; x-compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...)
; x-compiling (DEF!STRUCT (REF # ...) ...)
; x-compiling (DEFPRINTER (REF :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (CIF # ...) ...)
; x-compiling (DEFPRINTER (CIF :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (CSET # ...) ...)
; x-compiling (DEFPRINTER (CSET :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...)
; x-compiling (DEF!STRUCT (COMBINATION # ...))
; x-compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (MV-COMBINATION # ...))
; x-compiling (DEFPRINTER (MV-COMBINATION) ...)
; x-compiling (DEF!STRUCT (BIND # ...) ...)
; x-compiling (DEFPRINTER (BIND) ...)
; x-compiling (DEF!STRUCT (CRETURN # ...) ...)
; x-compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (CAST # ...) ...)
; x-compiling (DEFPRINTER (CAST :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (ENTRY # ...) ...)
; x-compiling (DEFPRINTER (ENTRY :IDENTITY ...))
; x-compiling (DEF!STRUCT (EXIT # ...) ...)
; x-compiling (DEFPRINTER (EXIT :IDENTITY ...) ...)
; x-compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (DEFUN SB!C::%COERCE-TO-POLICY (SB!C::THING)
;       (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;             (SB!C::THING (SB!C::LEXENV-POLICY (ETYPECASE SB!C::THING # # #)))
;             (T SB!C::**BASELINE-POLICY**)))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::%COERCE-TO-POLICY
;         (SB!C::THING)
;       (BLOCK SB!C::%COERCE-TO-POLICY
;         (COND ((SB!C::POLICY-P SB!C::THING) SB!C::THING)
;               (SB!C::THING (SB!C::LEXENV-POLICY #))
;               (T SB!C::**BASELINE-POLICY**))))
; 
; note: type assertion too complex to check:
;  (VALUES POLICY &REST T).
; x-compiling (DEFUN %COERCE-TO-POLICY ...)

; file: /«PKGBUILDDIR»/src/compiler/node.lisp
; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in:
;      DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START))
;              (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...)
;     (SB!INT:DEF!STRUCT
;      (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;       (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;       (:PREDICATE SB!C::BLOCK-P))
;      (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST)
;      (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;      (LAST NIL :TYPE (OR SB!C::NODE NULL))
;      (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;      (SB!C::FLAGS
;       (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                               SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;       :TYPE SB!C:ATTRIBUTES)
;      (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START))
;        (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-)
;        (:PREDICATE SB!C::BLOCK-P))
;     (SB!C::PRED NIL :TYPE LIST)
;     (SB!C::SUCC NIL :TYPE LIST)
;     (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL))
;     (LAST NIL :TYPE (OR SB!C::NODE NULL))
;     (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK))
;     (SB!C::FLAGS
;      (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK
;                              SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
;      :TYPE SB!C:ATTRIBUTES)
;     (SB!C::KILL NIL)
;     (SB!C::GEN NIL)
;     (SB!C::IN NIL)
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; in:
;      DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL)
;                     (SB!KERNEL:%INSTANCE-REF
;                      (THE SB!C::MV-COMBINATION SB!KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION)
;              (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION)
;       (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN 
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL)
;                     (SB!KERNEL:%INSTANCE-REF
;                      (THE SB!C::COMBINATION SB!KERNEL:INSTANCE) 13))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in:
;      DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL)
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;       (:COPIER NIL))
;      (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;      (SB!C::ARGS NIL :TYPE LIST)
;      (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;      (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;      (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL)
;        (:COPIER NIL))
;     (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR)
;     (SB!C::ARGS NIL :TYPE LIST)
;     (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN))
;     (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL))
;     (SB!C::TYPE-VALIDATED-FOR-LEAF NIL)
;     (SB!INT:INFO NIL)
;     (SB!C::STEP-INFO))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT
;                                    SB!C::DELETED SB!C::EXPLICIT-VALUE-CELL)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION

; in: !DEF-BOOLEAN-ATTRIBUTE BLOCK
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE BLOCK SB!C::REOPTIMIZE SB!C::FLUSH-P
;                                    SB!C::TYPE-CHECK SB!C::DELETE-P
;                                    SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION

; in: DEFUN AVER-LIVE-COMPONENT
;     (EQL (SB!C:COMPONENT-INFO SB!C:COMPONENT) :DEAD)
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C:COMPONENT (:COPIER NIL)
;       (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;        (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;         (SB!C::OUTER-LOOP #))))
;      (SB!C::KIND NIL :TYPE
;       (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;      (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;      (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;      (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;      (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "<unknown>" :TYPE T)
;      (SB!INT:INFO :NO-IR2-YET :TYPE
;                   (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;      ...)
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL)
;        (:CONSTRUCTOR SB!C::MAKE-COMPONENT
;         (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL)
;          (SB!C::OUTER-LOOP #))))
;     (SB!C::KIND NIL :TYPE
;      (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED))
;     (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK)
;     (SB!C::LAMBDAS NIL :TYPE LIST)
;     (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST)
;     (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T))
;     (SB!C::REANALYZE NIL :TYPE BOOLEAN)
;     (SB!C::NAME "<unknown>" :TYPE T)
;     (SB!INT:INFO :NO-IR2-YET :TYPE
;                  (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)))
;     ...)
; 
; caught STYLE-WARNING:
;   undefined type: IR2-COMPONENT
; 
; compilation unit finished
;   Undefined types:
;     CLOOP FUN-INFO IR2-COMPONENT
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 9 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DECLAIM (FREEZE-TYPE NODE ...))

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/node.lisp-obj-tmp written
; compilation finished in 0:00:32.888
; compiling file "/«PKGBUILDDIR»/src/compiler/vop.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...)
; x-compiling (DEFTYPE LOCAL-TN-NUMBER ...)
; x-compiling (DEFTYPE LOCAL-TN-COUNT ...)
; x-compiling (DEFTYPE LOCAL-TN-VECTOR ...)
; x-compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...)
; x-compiling (DEFTYPE SC-NUMBER ...)
; x-compiling (DEFTYPE SC-VECTOR ...)
; x-compiling (DEFTYPE SC-BIT-VECTOR ...)
; x-compiling (DEFTYPE LTN-POLICY ...)
; x-compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...)
; x-compiling (DEFPRINTER (PRIMITIVE-TYPE) ...)
; x-compiling (DEFSTRUCT (IR2-BLOCK # ...) ...)
; x-compiling (DEFPRINTER (IR2-BLOCK) ...)
; x-compiling (DEFSTRUCT (IR2-LVAR # ...) ...)
; x-compiling (DEFPRINTER (IR2-LVAR) ...)
; x-compiling (DEFSTRUCT (IR2-COMPONENT #) ...)
; x-compiling (DEFSTRUCT (ENTRY-INFO #) ...)
; x-compiling (DEFSTRUCT (IR2-PHYSENV #) ...)
; x-compiling (DEFPRINTER (IR2-PHYSENV) ...)
; x-compiling (DEFSTRUCT (RETURN-INFO #) ...)
; x-compiling (DEFPRINTER (RETURN-INFO) ...)
; x-compiling (DEFSTRUCT (IR2-NLX-INFO #) ...)
; x-compiling (DEFPRINTER (IR2-NLX-INFO) ...)
; x-compiling (DEFSTRUCT (CLOOP # ...) ...)
; x-compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...)
; x-compiling (DEF!STRUCT (VOP # ...) ...)
; x-compiling (DEFPRINTER (VOP) ...)
; x-compiling (DEF!STRUCT (TN-REF # ...) ...)
; x-compiling (DEFPRINTER (TN-REF) ...)
; x-compiling (DEF!STRUCT (TEMPLATE # ...) ...)
; x-compiling (DEFPRINTER (TEMPLATE) ...)
; x-compiling (DEF!STRUCT (VOP-INFO # ...) ...)
; x-compiling (DEF!STRUCT (SB #) ...)
; x-compiling (DEFPRINTER (SB) ...)
; x-compiling (DEF!STRUCT (FINITE-SB #) ...)
; x-compiling (DEF!STRUCT (SC #) ...)
; x-compiling (DEFPRINTER (SC) ...)
; x-compiling (DEF!STRUCT (TN # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...)
; x-compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/vop.lisp-obj-tmp written
; compilation finished in 0:00:14.744
; compiling file "/«PKGBUILDDIR»/src/compiler/backend.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFVAR *BACKEND-BYTE-ORDER*)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *BACKEND-SC-NUMBERS* ...)
; x-compiling (DECLAIM (TYPE SC-VECTOR ...))
; x-compiling (DEFVAR *BACKEND-SB-LIST* ...)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-SC-NAMES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*)
; x-compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...))
; x-compiling (DEFVAR *BACKEND-PARSED-VOPS* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...)
; x-compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...)
; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; file: /«PKGBUILDDIR»/src/compiler/backend.lisp
; in: DEFVAR *BACKEND-SUBFEATURES*
;     'NIL
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFVAR *BACKEND-SUBFEATURES* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/backend.lisp-obj-tmp written
; compilation finished in 0:00:00.279
; compiling file "/«PKGBUILDDIR»/src/compiler/vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN TEMPLATE-OR-LOSE ...)
; x-compiling (DEFUN SC-OR-LOSE ...)
; x-compiling (DEFUN SB-OR-LOSE ...)
; x-compiling (DEFUN SC-NUMBER-OR-LOSE ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...)
; x-compiling (DEFUN COMPUTE-MOVE-COSTS ...)
; x-compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...)
; x-compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...)
; x-compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *VOP-TN-REFS* ...)
; x-compiling (DEF!CONSTANT SC-BITS ...)
; x-compiling (DEFUN EMIT-VOP ...)
; x-compiling (DEFUN ADJOIN-TEMPLATE ...)
; x-compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P))
; x-compiling (DEFUN TEMPLATE-CONDITIONAL-P ...)

; file: /«PKGBUILDDIR»/src/compiler/vmdef.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE VOP
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::VOP SB!C:ANY)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/vmdef.lisp-obj-tmp written
; compilation finished in 0:00:01.811
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/backend-parms.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...)
; x-compiling (SETF *BACKEND-BYTE-ORDER* ...)
; x-compiling (SETF *BACKEND-PAGE-BYTES* ...)
; x-compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...)
; x-compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...)
; x-compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/backend-parms.lisp-obj-tmp written
; compilation finished in 0:00:00.052
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangconstants.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")

; /«PKGBUILDDIR»/obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj-tmp written
; compilation finished in 0:00:00.021
; compiling file "/«PKGBUILDDIR»/src/code/defmacro.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...)
; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; x-compiling (DEF NIL ...)
; x-compiling (DEFMACRO SB-XC:DEFMACRO ...)
; x-compiling (DEF!MACRO DEFMACRO-MUNDANELY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defmacro.lisp-obj-tmp written
; compilation finished in 0:00:00.220
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangmacros.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; /«PKGBUILDDIR»/obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj-tmp written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/src/compiler/late-macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/late-macros.lisp-obj-tmp written
; compilation finished in 0:00:00.021
; compiling file "/«PKGBUILDDIR»/src/compiler/meta-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFMACRO DEFINE-STORAGE-BASE ...)
; x-compiling (DEFMACRO DEFINE-STORAGE-CLASS ...)
; x-compiling (DEFMACRO DO-SC-PAIRS ...)
; x-compiling (DEFMACRO DEFINE-MOVE-FUN ...)
; x-compiling (DEFPARAMETER *SC-VOP-SLOTS* ...)
; x-compiling (DEFMACRO DEFINE-MOVE-VOP ...)
; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...)
; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...)
; x-compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...)
; x-compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...)
; x-compiling (DEF!STRUCT (VOP-PARSE # ...) ...)
; x-compiling (DEFPRINTER (VOP-PARSE) ...)
; x-compiling (DEF!STRUCT (OPERAND-PARSE # ...) ...)
; x-compiling (DEFPRINTER (OPERAND-PARSE) ...)
; x-compiling (DEFUN FIND-OPERAND ...)
; x-compiling (DEFUN VOP-PARSE-OR-LOSE ...)
; x-compiling (DEFUN ACCESS-OPERANDS ...)
; x-compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...)
; x-compiling (DEFUN VOP-SPEC-ARG ...)
; x-compiling (DEFUN PARSE-TIME-SPEC ...)
; x-compiling (DEFUN TIME-SPEC-ORDER ...)
; x-compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...)
; x-compiling (DEFUN COMPUTE-REF-ORDERING ...)
; x-compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...)
; x-compiling (DEFUN FIND-MOVE-FUNS ...)
; x-compiling (DEFUN CALL-MOVE-FUN ...)
; x-compiling (DEFUN DECIDE-TO-LOAD ...)
; x-compiling (DEFUN MAKE-GENERATOR-FUNCTION ...)
; x-compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*)
; x-compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...)
; x-compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...)
; x-compiling (DEFUN PARSE-VOP-OPERANDS ...)
; x-compiling (DEFUN PARSE-TEMPORARY ...)
; x-compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...)
; x-compiling (DEFUN PARSE-DEFINE-VOP ...)
; x-compiling (DEFUN COMPUTE-LOADING-COSTS ...)
; x-compiling (DEFPARAMETER *NO-COSTS* ...)
; x-compiling (DEFPARAMETER *NO-LOADS* ...)
; x-compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...)
; x-compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...)
; x-compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...)
; x-compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...)
; x-compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...)
; x-compiling (DEFUN CHECK-OPERAND-TYPES ...)
; x-compiling (DEFUN GROVEL-VOP-OPERANDS ...)
; x-compiling (DEFUN SET-UP-FUN-TRANSLATION ...)
; x-compiling (DEFUN MAKE-OPERAND-TYPE ...)
; x-compiling (DEFUN SPECIFY-OPERAND-TYPES ...)
; x-compiling (DEFUN MAKE-VOP-INFO-TYPES ...)
; x-compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...)
; x-compiling (DEFMACRO INHERIT-VOP-INFO ...)
; x-compiling (DEFUN SET-UP-VOP-INFO ...)
; x-compiling (DEF!MACRO DEFINE-VOP ...)
; x-compiling (DEFUN STORE-VOP-INFO ...)
; x-compiling (DEFUN MAKE-OPERAND-LIST ...)
; x-compiling (DEFMACRO EMIT-TEMPLATE ...)
; x-compiling (DEFMACRO VOP ...)
; x-compiling (DEFMACRO VOP* ...)
; x-compiling (DEF!MACRO SC-CASE ...)
; x-compiling (DEFMACRO SC-IS ...)
; x-compiling (DEFMACRO DO-IR2-BLOCKS ...)
; x-compiling (DEFMACRO DO-LIVE-TNS ...)
; x-compiling (DEFMACRO DO-PHYSENV-IR2-BLOCKS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/meta-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:13.039
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/vm.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFVAR *REGISTER-NAMES* ...)
; x-compiling (DEFREG R0 ...)
; x-compiling (DEFREG R1 ...)
; x-compiling (DEFREG R2 ...)
; x-compiling (DEFREG LEXENV ...)
; x-compiling (DEFREG NL2 ...)
; x-compiling (DEFREG CODE ...)
; x-compiling (DEFREG NL3 ...)
; x-compiling (DEFREG OCFP ...)
; x-compiling (DEFREG R8 ...)
; x-compiling (DEFREG NFP ...)
; x-compiling (DEFREG NULL ...)
; x-compiling (DEFREG CFP ...)
; x-compiling (DEFREG NARGS ...)
; x-compiling (DEFREG NSP ...)
; x-compiling (DEFREG LR ...)
; x-compiling (DEFREG PC ...)
; x-compiling (DEFREGSET SYSTEM-REGS ...)
; x-compiling (DEFREGSET DESCRIPTOR-REGS ...)
; x-compiling (DEFREGSET NON-DESCRIPTOR-REGS ...)
; x-compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...)
; x-compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...)
; x-compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...)
; x-compiling (DEFINE-STORAGE-BASE REGISTERS ...)
; x-compiling (DEFINE-STORAGE-BASE CONTROL-STACK ...)
; x-compiling (DEFINE-STORAGE-BASE NON-DESCRIPTOR-STACK ...)
; x-compiling (DEFINE-STORAGE-BASE CONSTANT ...)
; x-compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...)
; x-compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...)
; x-compiling (DEFMACRO DEFINE-STORAGE-CLASSES ...)
; x-compiling (DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...)
; x-compiling (DEFREGTN NULL ...)
; x-compiling (DEFREGTN CODE ...)
; x-compiling (DEFREGTN NARGS ...)
; x-compiling (DEFREGTN OCFP ...)
; x-compiling (DEFREGTN NSP ...)
; x-compiling (DEFREGTN CFP ...)
; x-compiling (DEFREGTN LR ...)
; x-compiling (DEFREGTN PC ...)
; x-compiling (DEFUN IMMEDIATE-CONSTANT-SC ...)
; x-compiling (DEFUN BOXED-IMMEDIATE-SC-P ...)
; x-compiling (DEF!CONSTANT REGISTER-ARG-SCN ...)
; x-compiling (DEF!CONSTANT IMMEDIATE-ARG-SCN ...)
; x-compiling (DEF!CONSTANT CONTROL-STACK-ARG-SCN ...)
; x-compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...)
; x-compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...)
; x-compiling (DEF!CONSTANT NFP-SAVE-OFFSET ...)
; x-compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...)
; x-compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...)
; x-compiling (DEFUN LOCATION-PRINT-NAME ...)
; x-compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...)
; x-compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/vm.lisp-obj-tmp written
; compilation finished in 0:00:04.537
; compiling file "/«PKGBUILDDIR»/src/code/xset.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DECLAIM (INLINE ALLOC-XSET ...))
; x-compiling (DEFSTRUCT (XSET # ...) ...)
; x-compiling (DEFUN XSET-COUNT ...)
; x-compiling (DEFUN MAP-XSET ...)
; x-compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...)
; x-compiling (DEFUN ADD-TO-XSET ...)
; x-compiling (DEFUN XSET-FROM-LIST ...)
; x-compiling (DEFUN XSET-UNION ...)
; x-compiling (DEFUN XSET-MEMBER-P ...)
; x-compiling (DEFUN XSET-MEMBERS ...)
; x-compiling (DEFUN XSET-INTERSECTION ...)
; x-compiling (DEFUN XSET-SUBSET-P ...)
; x-compiling (DECLAIM (INLINE XSET-EMPTY-P))
; x-compiling (DEFUN XSET-EMPTY-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/xset.lisp-obj-tmp written
; compilation finished in 0:00:00.662
; compiling file "/«PKGBUILDDIR»/src/code/early-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT HAIRY-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:HAIRY-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-HAIRY-TYPE (SB!KERNEL::SPECIFIER))
;          (:COPIER NIL))
;       (SB!KERNEL::SPECIFIER NIL :TYPE T :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:HAIRY-TYPE {550834E9}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:HAIRY-TYPE-SPECIFIER could not be inlined
;   because the structure definition for SB!KERNEL:HAIRY-TYPE was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS HAIRY ...)
; x-compiling (DEFSTRUCT (UNKNOWN-TYPE # ...))
; x-compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...)
; x-compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT NEGATION-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:NEGATION-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION)))
;          (:COPIER NIL))
;       (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:NEGATION-TYPE {52090AE9}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:NEGATION-TYPE-TYPE could not be inlined
;   because the structure definition for SB!KERNEL:NEGATION-TYPE was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS NEGATION ...)
; x-compiling (DEFSTRUCT (ARGS-TYPE # ...) ...)
; x-compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...)
; x-compiling (DEFUN PARSE-ARGS-TYPES ...)
; x-compiling (DEFSTRUCT (VALUES-TYPE # ...))
; x-compiling (DECLAIM (INLINE VALUES-TYPE-P))
; x-compiling (DEFUN VALUES-TYPE-P ...)
; x-compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...)
; x-compiling (DEFUN MAKE-VALUES-TYPE ...)
; x-compiling (!DEFINE-TYPE-CLASS VALUES ...)
; x-compiling (DEFSTRUCT (FUN-TYPE # ...) ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFGLOBAL *INTERNED-FUN-TYPES* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-FUN-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-FUN-TYPE ...)
; x-compiling (DEFSTRUCT (CONSTANT-TYPE # ...) ...)
; x-compiling (DEFSTRUCT (NAMED-TYPE # ...) ...)
; x-compiling (DEFPARAMETER *FLOAT-FORMATS* ...)
; x-compiling (DEFTYPE FLOAT-FORMAT ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT NUMERIC-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:NUMERIC-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'NUMBER)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-NUMERIC-TYPE) (:COPIER NIL))
;       (SB!KERNEL::ENUMERABLE NIL :READ-ONLY T)
;       (CLASS NIL :TYPE (MEMBER INTEGER RATIONAL FLOAT NIL) :READ-ONLY T)
;       (FORMAT NIL :TYPE (OR SB!KERNEL::FLOAT-FORMAT NULL) :READ-ONLY T)
;       (COMPLEXP :REAL :TYPE (MEMBER :REAL :COMPLEX NIL) :READ-ONLY T)
;       (SB!KERNEL::LOW NIL :TYPE (OR NUMBER CONS NULL) :READ-ONLY T)
;       (SB!KERNEL::HIGH NIL :TYPE (OR NUMBER CONS NULL) :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:NUMERIC-TYPE {5500E011}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:NUMERIC-TYPE-FORMAT could not be inlined
;   because the structure definition for SB!KERNEL:NUMERIC-TYPE was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (NUMERIC-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *UNSIGNED-BYTE-TYPE* ...)
; x-compiling (DEFGLOBAL *INTEGER-TYPE* ...)
; x-compiling (DEFGLOBAL *UNSIGNED-BYTE-N-TYPES* ...)
; x-compiling (DEFGLOBAL *SIGNED-BYTE-N-TYPES* ...)
; x-compiling (DEFGLOBAL *REAL-FFLOAT-TYPE* ...)
; x-compiling (DEFGLOBAL *REAL-DFLOAT-TYPE* ...)
; x-compiling (DEFGLOBAL *COMPLEX-FFLOAT-TYPE* ...)
; x-compiling (DEFGLOBAL *COMPLEX-DFLOAT-TYPE* ...)
; x-compiling (DECLAIM (TYPE # ...) ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-NUMERIC-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-NUMERIC-TYPE ...)
; x-compiling (DEFUN MODIFIED-NUMERIC-TYPE ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT CHARACTER-SET-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:CHARACTER-SET-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CHARACTER-SET)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-CHARACTER-SET-TYPE (SB!KERNEL::PAIRS))
;          (:COPIER NIL))
;       (SB!KERNEL::PAIRS (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CHARACTER-SET-TYPE {53F39E29}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:CHARACTER-SET-TYPE-PAIRS could not be
;   inlined because the structure definition for SB!KERNEL:CHARACTER-SET-TYPE was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *CHARACTER-TYPE* ...)
; x-compiling (DEFGLOBAL *BASE-CHAR-TYPE* ...)
; x-compiling (DEFGLOBAL *EXTENDED-CHAR-TYPE* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-CHARACTER-SET-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT ARRAY-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:ARRAY-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'ARRAY)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-ARRAY-TYPE
;           (SB!KERNEL::DIMENSIONS COMPLEXP SB!KERNEL::ELEMENT-TYPE
;            SB!KERNEL::SPECIALIZED-ELEMENT-TYPE))
;          (:COPIER NIL))
;       (SB!KERNEL::DIMENSIONS '* :TYPE (OR LIST (MEMBER *)) :READ-ONLY T)
;       (COMPLEXP :MAYBE :TYPE (MEMBER T NIL :MAYBE) :READ-ONLY T)
;       (SB!KERNEL::ELEMENT-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE
;        :READ-ONLY T)
;       (SB!KERNEL::SPECIALIZED-ELEMENT-TYPE SB!KERNEL:*WILD-TYPE* :TYPE
;        SB!KERNEL:CTYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:ARRAY-TYPE {543355E9}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:ARRAY-TYPE-P,
;   SB!KERNEL:ARRAY-TYPE-DIMENSIONS and
;   SB!KERNEL:ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE could not be inlined because the
;   structure definition for SB!KERNEL:ARRAY-TYPE was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *RANK-1-ARRAY-CTYPES* ...)
; x-compiling (DEFCONSTANT +CANON-ARRAY-CTYPE-HASH-DIVISOR+ ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-ARRAY-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-ARRAY-TYPE ...)
; x-compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *NULL-TYPE* ...)
; x-compiling (DEFGLOBAL *EQL-T-TYPE* ...)
; x-compiling (DEFGLOBAL *BOOLEAN-TYPE* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-MEMBER-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-MEMBER-TYPE ...)
; x-compiling (DEFUN MEMBER-TYPE-SIZE ...)
; x-compiling (DEFUN MEMBER-TYPE-MEMBER-P ...)
; x-compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...)
; x-compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...)
; x-compiling (DEFUN MEMBER-TYPE-MEMBERS ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT COMPOUND-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:COMPOUND-TYPE (:INCLUDE SB!KERNEL:CTYPE) (:CONSTRUCTOR NIL)
;          (:COPIER NIL))
;       (SB!KERNEL::ENUMERABLE NIL :READ-ONLY T)
;       (SB!KERNEL::TYPES NIL :TYPE LIST :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:COMPOUND-TYPE {54FDC701}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:COMPOUND-TYPE-TYPES could not be inlined
;   because the structure definition for SB!KERNEL:COMPOUND-TYPE was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT UNION-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:UNION-TYPE
;          (:INCLUDE SB!KERNEL:COMPOUND-TYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'UNION)))
;          (:CONSTRUCTOR SB!KERNEL::MAKE-UNION-TYPE
;           (SB!KERNEL::ENUMERABLE SB!KERNEL::TYPES))
;          (:COPIER NIL)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:UNION-TYPE {51C528C9}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:COMPOUND-TYPE {5514F0D1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!KERNEL:UNION-TYPE-P and
;   SB!KERNEL:UNION-TYPE-TYPES could not be inlined because the structure
;   definition for SB!KERNEL:UNION-TYPE was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (UNION-TYPE # ...))
; x-compiling (DEFSTRUCT (INTERSECTION-TYPE # ...))
; x-compiling (DEFUN TYPE-*-TO-T ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFSTRUCT CONS-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:CONS-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'CONS)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-CONS-TYPE
;           (SB!KERNEL::CAR-TYPE SB!KERNEL::CDR-TYPE))
;          (:COPIER NIL))
;       (SB!KERNEL::CAR-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY
;        T)
;       (SB!KERNEL::CDR-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY
;        T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:CONS-TYPE {5203A0F1}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:CONS-TYPE-P could not be inlined because
;   the structure definition for SB!KERNEL:CONS-TYPE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (CONS-TYPE # ...) ...)
; x-compiling (DEFGLOBAL *CONS-T-T-TYPE* ...)
; x-compiling (DEFUN !INTERN-IMPORTANT-CONS-TYPE-INSTANCES ...)
; x-compiling (DEFUN MAKE-CONS-TYPE ...)
; x-compiling (DEFUN CONS-TYPE-LENGTH-INFO ...)
; x-compiling (DEFMACRO !VALUES-SPECIFIER-TYPE-BODY ...)
; x-compiling (DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN SPECIFIER-TYPE ...)
; x-compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...)
; x-compiling (DEFUN TYPEXPAND-1 ...)
; x-compiling (DEFUN TYPEXPAND ...)
; x-compiling (DEFUN TYPEXPAND-ALL ...)
; x-compiling (DEFUN DEFINED-TYPE-NAME-P ...)
; x-compiling (DEFUN VALID-TYPE-SPECIFIER-P ...)
; x-compiling (DEFUN %NOTE-TYPE-DEFINED ...)

; file: /«PKGBUILDDIR»/src/code/early-type.lisp
; in: DEFUN VALID-TYPE-SPECIFIER-P
;     (HANDLER-CASE
;      (PROG1 T (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER))
;      (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL NIL) (ERROR NIL NIL))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: ERROR

; ==>
;   (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: PARSE-UNKNOWN-TYPE
; 
; compilation unit finished
;   Undefined types:
;     ERROR PARSE-UNKNOWN-TYPE
;   caught 10 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-type.lisp-obj-tmp written
; compilation finished in 0:00:08.699
; compiling file "/«PKGBUILDDIR»/src/code/class.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEF!STRUCT (CLASSOID # ...) ...)
; x-compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...)
; x-compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...)
; x-compiling (DEF!TYPE LAYOUT-CLOS-HASH ...)
; x-compiling (DEFVAR *!INITIAL-LAYOUTS*)
; x-compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*)
; x-compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...) ...)
; x-compiling (DEF!STRUCT (LAYOUT #) ...)
; x-compiling (DECLAIM (FREEZE-TYPE LAYOUT))
; x-compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P))
; x-compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN LAYOUT-PROPER-NAME ...)
; x-compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*)
; x-compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-LAYOUT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN REDEFINE-LAYOUT-WARNING ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-LAYOUT ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT
;     (DEFUN SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT
;            (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS SB!KERNEL::DEPTHOID
;             SB!KERNEL::METADATA)
;       (SB!KERNEL:WITH-WORLD-LOCK NIL
;         (LET ((SB!KERNEL:LAYOUT #))
;           (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT (OR # #) LENGTH
;                                             SB!KERNEL::INHERITS
;                                             SB!KERNEL::DEPTHOID
;                                             SB!KERNEL::METADATA))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT
;         (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS SB!KERNEL::DEPTHOID
;          SB!KERNEL::METADATA)
;       (BLOCK SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT
;         (SB!KERNEL:WITH-WORLD-LOCK NIL
;           (LET (#)
;             (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT # LENGTH
;                                               SB!KERNEL::INHERITS
;                                               SB!KERNEL::DEPTHOID
;                                               SB!KERNEL::METADATA)))))
; 
; note: type assertion too complex to check:
;  (VALUES LAYOUT &REST T).
; x-compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...)
; x-compiling (DEFUN REGISTER-LAYOUT ...)
; x-compiling (DEFUN ORDER-LAYOUT-INHERITS ...)
; x-compiling (DEFUN TOPOLOGICAL-SORT ...)
; x-compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...)
; x-compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...))
; x-compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...)
; x-compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...))
; x-compiling (DEFUN MAKE-STRUCTURE-CLASSOID ...)
; x-compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE CLASSOID-CELL))
; x-compiling (DEFUN FIND-CLASSOID-CELL ...)
; x-compiling (DEFUN FIND-CLASSOID ...)
; x-compiling (DEFUN (SETF FIND-CLASSOID) ...)
; x-compiling (DEFUN %CLEAR-CLASSOID ...)
; x-compiling (DEFUN INSURED-FIND-CLASSOID ...)
; x-compiling (DEFUN CLASSOID-PROPER-NAME ...)

; file: /«PKGBUILDDIR»/src/code/class.lisp
; in: DEFUN CLASSOID-ENUMERABLE-P
;     (DEFUN SB!KERNEL::CLASSOID-ENUMERABLE-P (SB!KERNEL::X)
;       (EQ (SB!KERNEL:CLASSOID-NAME SB!KERNEL::X) 'CHARACTER))
; 
; caught STYLE-WARNING:
;   redefining SB!KERNEL::CLASSOID-ENUMERABLE-P in DEFUN
; x-compiling (DEFUN CLASSOID-ENUMERABLE-P ...)
; x-compiling (!DEFINE-TYPE-CLASS CLASSOID ...)
; x-compiling (DEFUN %ENSURE-CLASSOID-VALID ...)
; x-compiling (DEFUN %ENSURE-BOTH-CLASSOIDS-VALID ...)
; x-compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...)
; x-compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...)
; x-compiling (DEF!STRUCT (STANDARD-CLASSOID # ...))
; x-compiling (DEF!STRUCT (STATIC-CLASSOID # ...))
; x-compiling (!DEFVAR *!BUILT-IN-CLASSES* ...)
; x-compiling (!COLD-INIT-FORMS (DOLIST # ...) ...)
; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes") ...)
; x-compiling (!COLD-INIT-FORMS (DOLIST # ...))
; x-compiling (DEFUN %MODIFY-CLASSOID ...)
; x-compiling (DEFUN %INVALIDATE-LAYOUT ...)
; x-compiling (DEFUN !CLASS-FINALIZE ...)
; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to set *BUILT-IN-CLASS-CODES*") ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/code/class.lisp-obj-tmp written
; compilation finished in 0:00:08.553
; compiling file "/«PKGBUILDDIR»/src/code/condition.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "condition.lisp 20")
; x-compiling (/SHOW0 "condition.lisp 24")
; x-compiling (DEF!STRUCT (CONDITION-CLASSOID # ...) ...)
; x-compiling (/SHOW0 "condition.lisp 49")
; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION ...)
; x-compiling (DEFSTRUCT (CONDITION-SLOT #) ...)
; x-compiling (/SHOW0 "condition.lisp 103")
; x-compiling (LET (#) ...)
; x-compiling (/SHOW0 "condition.lisp 103")
; x-compiling (SETF (CONDITION-CLASSOID-REPORT #) ...)
; x-compiling (DEFUN FIND-CONDITION-LAYOUT ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFVAR *EMPTY-CONDITION-SLOT* ...)
; x-compiling (DEFUN FIND-SLOT-DEFAULT ...)
; x-compiling (DEFUN FIND-CONDITION-CLASS-SLOT ...)
; x-compiling (DEFUN CONDITION-WRITER-FUNCTION ...)

; file: /«PKGBUILDDIR»/src/code/condition.lisp
; in: DEFUN CONDITION-READER-FUNCTION
;     (ERROR "missing slot ~S of ~S" SB!KERNEL::NAME CONDITION)
; ==>
;   "missing slot ~S of ~S"
; 
; note: deleting unreachable code
; x-compiling (DEFUN CONDITION-READER-FUNCTION ...)
; x-compiling (DEFUN ALLOCATE-CONDITION ...)
; x-compiling (DEFUN MAKE-CONDITION ...)
; x-compiling (DEFUN %COMPILER-DEFINE-CONDITION ...)
; x-compiling (DEFUN COMPUTE-EFFECTIVE-SLOTS ...)
; x-compiling (DECLAIM (NOTINLINE INSTALL-CONDITION-SLOT-READER ...))
; x-compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...)
; x-compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...)
; x-compiling (!DEFVAR *DEFINE-CONDITION-HOOKS* ...)
; x-compiling (DEFUN %SET-CONDITION-REPORT ...)
; x-compiling (DEFUN %DEFINE-CONDITION ...)
; x-compiling (DEFMACRO DEFINE-CONDITION ...)
; x-compiling (DEFINE-CONDITION SERIOUS-CONDITION ...)
; x-compiling (DEFINE-CONDITION ERROR ...)
; x-compiling (DEFINE-CONDITION WARNING ...)
; x-compiling (DEFINE-CONDITION STYLE-WARNING ...)
; x-compiling (DEFUN SIMPLE-CONDITION-PRINTER ...)
; x-compiling (DEFINE-CONDITION SIMPLE-CONDITION ...)
; x-compiling (DEFINE-CONDITION SIMPLE-WARNING ...)
; x-compiling (DEFINE-CONDITION SIMPLE-ERROR ...)
; x-compiling (DEFINE-CONDITION STORAGE-CONDITION ...)
; x-compiling (DEFINE-CONDITION TYPE-ERROR ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; x-compiling (DEFINE-CONDITION SIMPLE-TYPE-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BAD-TYPE ...)
; x-compiling (DEFINE-CONDITION PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION PARSE-ERROR ...)
; x-compiling (DEFINE-CONDITION CONTROL-ERROR ...)
; x-compiling (DEFINE-CONDITION STREAM-ERROR ...)
; x-compiling (DEFINE-CONDITION END-OF-FILE ...)
; x-compiling (DEFINE-CONDITION CLOSED-STREAM-ERROR ...)
; x-compiling (DEFINE-CONDITION FILE-ERROR ...)
; x-compiling (DEFINE-CONDITION PACKAGE-ERROR ...)
; x-compiling (DEFINE-CONDITION CELL-ERROR ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-CONDITION UNBOUND-VARIABLE ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-FUNCTION ...)
; x-compiling (DEFINE-CONDITION SPECIAL-FORM-FUNCTION ...)
; x-compiling (DEFINE-CONDITION ARITHMETIC-ERROR ...)
; x-compiling (DEFINE-CONDITION DIVISION-BY-ZERO ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-OVERFLOW ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-UNDERFLOW ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-INEXACT ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-INVALID-OPERATION ...)
; x-compiling (DEFINE-CONDITION PRINT-NOT-READABLE ...)
; x-compiling (DEFINE-CONDITION READER-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-READER-ERROR ...)
; x-compiling (DEFUN %REPORT-READER-ERROR ...)
; x-compiling (DEFINE-CONDITION BUG ...)
; x-compiling (DEFINE-CONDITION SIMPLE-STORAGE-CONDITION ...)
; x-compiling (DEFINE-CONDITION UNSUPPORTED-OPERATOR ...)
; x-compiling (DEFUN PRINT-REFERENCE ...)
; x-compiling (DEFINE-CONDITION REFERENCE-CONDITION ...)
; x-compiling (DEFVAR *PRINT-CONDITION-REFERENCES* ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-WARNING ...)
; x-compiling (DEFINE-CONDITION ARGUMENTS-OUT-OF-DOMAIN-ERROR ...)
; x-compiling (DEFUN REPORT-DUPLICATE-DEFINITION ...)
; x-compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...)
; x-compiling (DEFINE-CONDITION SAME-FILE-REDEFINITION-WARNING ...)
; x-compiling (DEFINE-CONDITION CONSTANT-MODIFIED ...)
; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE ...)
; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE-ERROR ...)
; x-compiling (DEFINE-CONDITION DEFCONSTANT-UNEQL ...)
; x-compiling (DEFINE-CONDITION ARRAY-INITIAL-ELEMENT-MISMATCH ...)
; x-compiling (DEFINE-CONDITION TYPE-WARNING ...)
; x-compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...)
; x-compiling (DEFINE-CONDITION LOCAL-ARGUMENT-MISMATCH ...)
; x-compiling (DEFINE-CONDITION FORMAT-ARGS-MISMATCH ...)
; x-compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...)
; x-compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...)
; x-compiling (DEFINE-CONDITION IMPLICIT-GENERIC-FUNCTION-WARNING ...)
; x-compiling (DEFINE-CONDITION EXTENSION-FAILURE ...)
; x-compiling (DEFINE-CONDITION STRUCTURE-INITARG-NOT-KEYWORD ...)
; x-compiling (DEFINE-CONDITION PACKAGE-LOCK-VIOLATION ...)
; x-compiling (DEFINE-CONDITION PACKAGE-LOCKED-ERROR ...)
; x-compiling (DEFINE-CONDITION SYMBOL-PACKAGE-LOCKED-ERROR ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-VARIABLE-ERROR ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR ...)
; x-compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...)
; x-compiling (DEFINE-CONDITION FLOATING-POINT-EXCEPTION ...)
; x-compiling (DEFINE-CONDITION INVALID-ARRAY-INDEX-ERROR ...)
; x-compiling (DEFINE-CONDITION INVALID-ARRAY-ERROR ...)
; x-compiling (DEFINE-CONDITION INDEX-TOO-LARGE-ERROR ...)
; x-compiling (DEFINE-CONDITION BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DEFINE-CONDITION NIL-ARRAY-ACCESSED-ERROR ...)
; x-compiling (DEFINE-CONDITION NAMESTRING-PARSE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-PACKAGE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-READER-PACKAGE-ERROR ...)
; x-compiling (DEFINE-CONDITION READER-EOF-ERROR ...)
; x-compiling (DEFINE-CONDITION READER-IMPOSSIBLE-NUMBER-ERROR ...)
; x-compiling (DEFINE-CONDITION STANDARD-READTABLE-MODIFIED-ERROR ...)
; x-compiling (DEFINE-CONDITION STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR ...)
; x-compiling (DEFINE-CONDITION TIMEOUT ...)
; x-compiling (DEFINE-CONDITION IO-TIMEOUT ...)
; x-compiling (DEFINE-CONDITION DEADLINE-TIMEOUT ...)
; x-compiling (DEFINE-CONDITION DECLARATION-TYPE-CONFLICT-ERROR ...)
; x-compiling (DEFINE-CONDITION STEP-CONDITION ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFINE-CONDITION STEP-FORM-CONDITION ...)
; x-compiling (DEFINE-CONDITION STEP-RESULT-CONDITION ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFINE-CONDITION STEP-VALUES-CONDITION ...)
; x-compiling (DEFINE-CONDITION STEP-FINISHED-CONDITION ...)
; x-compiling (DEFVAR *MUFFLED-WARNINGS* ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WARNING ...)
; x-compiling (DEFINE-CONDITION FUNCTION-REDEFINITION-WARNING ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFUN ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMACRO ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFGENERIC ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMETHOD ...)
; x-compiling (DEFUN FUNCTION-FILE-NAMESTRING ...)
; x-compiling (DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P ...)

; file: /«PKGBUILDDIR»/src/code/condition.lisp
; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P
;     (MACRO-FUNCTION SB!KERNEL::NAME)
; ==>
;   SB!KERNEL::NAME
; 
; note: deleting unreachable code
; x-compiling (DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ...)
; x-compiling (DEFUN UNINTERESTING-MACRO-REDEFINITION-P ...)
; x-compiling (DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ...)
; x-compiling (DEFUN UNINTERESTING-METHOD-REDEFINITION-P ...)
; x-compiling (DEFTYPE UNINTERESTING-REDEFINITION ...)
; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFTRANSFORM ...)
; x-compiling (DEFINE-CONDITION DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME ...)
; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME ...)
; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME ...)
; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-STYLE-WARNING ...)
; x-compiling (DEFINE-CONDITION LEXICAL-ENVIRONMENT-TOO-COMPLEX ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-COMMENT ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-MACRO-CHAR-COMMENT ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-DISPATCH-MACRO-CHAR-COMMENT ...)
; x-compiling (DEFUN DECODING-ERROR-IN-COMMENT-MACRO ...)
; x-compiling (DEFINE-CONDITION DEPRECATED-EVAL-WHEN-SITUATIONS ...)
; x-compiling (DEFINE-CONDITION PROCLAMATION-MISMATCH ...)
; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH ...)
; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH-WARNING ...)
; x-compiling (DEFUN TYPE-PROCLAMATION-MISMATCH-WARN ...)
; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH ...)
; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-WARNING ...)
; x-compiling (DEFUN FTYPE-PROCLAMATION-MISMATCH-WARN ...)
; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-ERROR ...)
; x-compiling (DEFINE-CONDITION DEPRECATION-CONDITION ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-DEPRECATION-WARNING EARLY-DEPRECATION-WARNING ...)
; x-compiling (DEFINE-DEPRECATION-WARNING LATE-DEPRECATION-WARNING ...)
; x-compiling (DEFINE-DEPRECATION-WARNING FINAL-DEPRECATION-WARNING ...)
; x-compiling (DEFINE-CONDITION DEPRECATION-ERROR ...)
; x-compiling (DEFINE-CONDITION ABORT-FAILURE ...)
; x-compiling (DEFUN ABORT ...)
; x-compiling (DEFUN MUFFLE-WARNING ...)
; x-compiling (DEFUN TRY-RESTART ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART CONTINUE ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART STORE-VALUE ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART USE-VALUE ...)
; x-compiling (DEFINE-NIL-RETURNING-RESTART PRINT-UNREADABLY ...)
; x-compiling (DEF STEP-CONTINUE ...)
; x-compiling (DEF STEP-NEXT ...)
; x-compiling (DEF STEP-INTO ...)
; x-compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...)
; x-compiling (DEFINE-CONDITION SB!C:INLINING-DEPENDENCY-FAILURE ...)

; file: /«PKGBUILDDIR»/src/code/condition.lisp
; in: DEFUN ALLOCATE-CONDITION
;     (TYPECASE SB!KERNEL:CLASSOID
;       (SB!KERNEL::CONDITION-CLASSOID SB!KERNEL:CLASSOID)
;       (CLASS
;        (RETURN-FROM SB!KERNEL:ALLOCATE-CONDITION
;          (APPLY #'SB!KERNEL:ALLOCATE-CONDITION (CLASS-NAME SB!KERNEL:CLASSOID)
;                 SB!KERNEL::INITARGS)))
;       (SB!KERNEL:CLASSOID
;        (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!KERNEL:CLASSOID :EXPECTED-TYPE
;               'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL
;               "~S is not a condition class." :FORMAT-ARGUMENTS (LIST TYPE)))
;       (T
;        (ERROR 'SIMPLE-TYPE-ERROR :DATUM TYPE :EXPECTED-TYPE
;               'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL
;               "~S does not designate a condition class." :FORMAT-ARGUMENTS
;               (LIST TYPE))))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G47037 'CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: CLASS

; in: DEFUN %REPORT-READER-ERROR
;     (CLASS-NAME (CLASS-OF CONDITION))
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

; in: DEFUN ALLOCATE-CONDITION
;     (CLASS-NAME SB!KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

; in: DEFUN %REPORT-READER-ERROR
;     (CLASS-OF CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-OF

; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P
;     (TYPEP SB!KERNEL::OLD 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: GENERIC-FUNCTION

; in: DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR
;     (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-BOUNDP

; in: DEFINE-CONDITION UNDEFINED-ALIEN-ERROR
;     (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-BOUNDP

; in: DEFUN REPORT-DUPLICATE-DEFINITION
;     (SLOT-VALUE CONDITION 'SB!KERNEL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-VALUE
; 
; compilation unit finished
;   Undefined types:
;     CLASS GENERIC-FUNCTION
;   Undefined functions:
;     CLASS-NAME CLASS-OF SLOT-BOUNDP SLOT-VALUE
;   caught 8 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (/SHOW0 "condition.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/condition.lisp-obj-tmp written
; compilation finished in 0:00:09.765
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/primtype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (/SHOW0 "primtype.lisp 17")
; x-compiling (!DEF-PRIMITIVE-TYPE T ...)
; x-compiling (/SHOW0 "primtype.lisp 20")
; x-compiling (SETF *BACKEND-T-PRIMITIVE-TYPE* ...)
; x-compiling (/SHOW0 "primtype.lisp 24")
; x-compiling (!DEF-PRIMITIVE-TYPE POSITIVE-FIXNUM ...)
; x-compiling (/SHOW0 "primtype.lisp 27")
; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-31 ...)
; x-compiling (/SHOW0 "primtype.lisp 31")
; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-32 ...)
; x-compiling (/SHOW0 "primtype.lisp 35")
; x-compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...)
; x-compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-32 ...)
; x-compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...)
; x-compiling (/SHOW0 "primtype.lisp 53")
; x-compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED)
;     '(SB!VM::UNSIGNED-BYTE-64 SB!VM::UNSIGNED-BYTE-63 SB!VM::POSITIVE-FIXNUM)
; 
; note: deleting unreachable code
; x-compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...)
; x-compiling (/SHOW0 "primtype.lisp 68")
; x-compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...)
; x-compiling (/SHOW0 "primtype.lisp 73")
; x-compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...)
; x-compiling (!DEF-PRIMITIVE-TYPE LIST ...)
; x-compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...)
; x-compiling (/SHOW0 "primtype.lisp 77")
; x-compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...)
; x-compiling (/SHOW0 "primtype.lisp 81")
; x-compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...)
; x-compiling (!DEF-PRIMITIVE-TYPE RATIO ...)
; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...)
; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT")
; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...)
; x-compiling (/SHOW0 "primtype.lisp 96")
; x-compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES)
; x-compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...)
; x-compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...)
; x-compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...)
; x-compiling (/SHOW0 "primtype.lisp 147")
; x-compiling (DEFUN PRIMITIVE-TYPE-OF ...)
; x-compiling (/SHOW0 "primtype.lisp 188")
; x-compiling (DEFUN PRIMITIVE-TYPE ...)
; x-compiling (/SHOW0 "primtype.lisp 191")

; file: /«PKGBUILDDIR»/src/compiler/generic/primtype.lisp
; in:
;      DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9
;                                   ...)
;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::SIGNED-BYTE-64
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-63
; 
; note: deleting unreachable code

;     'SB!VM::UNSIGNED-BYTE-64
; 
; note: deleting unreachable code
; x-compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...)
; 
; compilation unit finished
;   printed 7 notes
; x-compiling (/SHOW0 "primtype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/primtype.lisp-obj-tmp written
; compilation finished in 0:00:02.478
; compiling file "/«PKGBUILDDIR»/src/compiler/parse-lambda-list.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (/SHOW0 "parse-lambda-list.lisp 12")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PARSE-LAMBDA-LIST ...)
; x-compiling (/SHOW0 "parse-lambda-list.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/parse-lambda-list.lisp-obj-tmp written
; compilation finished in 0:00:00.535
; compiling file "/«PKGBUILDDIR»/src/code/host-alieneval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (/SHOW0 "host-alieneval.lisp 15")
; x-compiling (DEFUN ALIGN-OFFSET ...)
; x-compiling (DEFUN GUESS-ALIGNMENT ...)
; x-compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...)
; x-compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...)
; x-compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...)
; x-compiling (DEFUN METHOD-SLOT ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...)
; x-compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...)
; x-compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...)
; x-compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...)
; x-compiling (DEFUN PARSE-ALIEN-TYPE ...)
; x-compiling (DEFUN AUXILIARY-ALIEN-TYPE ...)
; x-compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...)
; x-compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...)
; x-compiling (DEFUN UNPARSE-ALIEN-TYPE ...)
; x-compiling (DEFUN %UNPARSE-ALIEN-TYPE ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; x-compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...)
; x-compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...)
; x-compiling (DEFUN %DEFINE-ALIEN-TYPE ...)
; x-compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...)
; x-compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!SYS:SYSTEM-AREA-POINTER
;         NIL
;       (SB!ALIEN::MAKE-ALIEN-SYSTEM-AREA-POINTER-TYPE :BITS SB!VM:N-WORD-BITS))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR
;          (#:WHOLE628 #:ENV629)
;     (DECLARE (IGNORABLE #:ENV629))
;     (DECLARE (IGNORE #:ENV629))
;     (BLOCK SB!SYS:SYSTEM-AREA-POINTER
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* ()
;           (BLOCK SB!SYS:SYSTEM-AREA-POINTER #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...))
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...)
; x-compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...)
; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP ...)
; x-compiling (DEFUN ALIEN-TYPE-= ...)
; x-compiling (DEFUN ALIEN-SUBTYPE-P ...)
; x-compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...)
; x-compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...)
; x-compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...)
; x-compiling (DEFUN COMPUTE-LISP-REP-TYPE ...)
; x-compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:SIGNED
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR (#:WHOLE1134 #:ENV1135)
;     (DECLARE (IGNORABLE #:ENV1135))
;     (DECLARE (IGNORE #:ENV1135))
;     (BLOCK SB!ALIEN:SIGNED
;       (LET* ((#:SUPPLIEDP-48710 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK SB!ALIEN:SIGNED #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR (#:WHOLE1139 #:ENV1140)
;     (DECLARE (IGNORABLE #:ENV1140))
;     (DECLARE (IGNORE #:ENV1140))
;     (BLOCK INTEGER
;       (LET* ((#:SUPPLIEDP-48713 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK INTEGER #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:UNSIGNED
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR (#:WHOLE1144 #:ENV1145)
;     (DECLARE (IGNORABLE #:ENV1145))
;     (DECLARE (IGNORE #:ENV1145))
;     (BLOCK SB!ALIEN:UNSIGNED
;       (LET* ((#:SUPPLIEDP-48716 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK SB!ALIEN:UNSIGNED #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN
;         (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS))
;       (SB!ALIEN::MAKE-ALIEN-BOOLEAN-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR (#:WHOLE1291 #:ENV1292)
;     (DECLARE (IGNORABLE #:ENV1292))
;     (DECLARE (IGNORE #:ENV1292))
;     (BLOCK BOOLEAN
;       (LET* ((#:SUPPLIEDP-48851 #))
;         (LET (#)
;           (UNLESS # #))
;         (LET* (#)
;           (BLOCK BOOLEAN #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:ENUM
;         (&WHOLE TYPE SB!ALIEN::NAME &REST SB!ALIEN::MAPPINGS &ENVIRONMENT
;          SB!ALIEN::ENV)
;       (COND
;        (SB!ALIEN::MAPPINGS
;         (LET (#)
;           (WHEN SB!ALIEN::NAME #)
;           SB!ALIEN::RESULT))
;        (SB!ALIEN::NAME
;         (MULTIPLE-VALUE-BIND (SB!ALIEN::RESULT SB!ALIEN::FOUND)
;             (SB!ALIEN::AUXILIARY-ALIEN-TYPE :ENUM SB!ALIEN::NAME SB!ALIEN::ENV)
;           (UNLESS SB!ALIEN::FOUND #)
;           SB!ALIEN::RESULT))
;        (T (ERROR "empty enum type: ~S" TYPE))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR (#:WHOLE1460 #:ENV1461)
;     (DECLARE (IGNORABLE #:ENV1461))
;     (BLOCK SB!ALIEN:ENUM
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # # #)
;           (BLOCK SB!ALIEN:ENUM #)))))
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-FROM)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-KIND)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-OFFSET)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-SIGNED)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF ALIEN-TYPE-TO)
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-FROM
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-KIND
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-OFFSET
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-SIGNED
; 
; caught STYLE-WARNING:
;   undefined function: ALIEN-TYPE-TO
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...)
; x-compiling (DEFUN PARSE-ENUM ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT
;         NIL
;       (SB!ALIEN::MAKE-ALIEN-SINGLE-FLOAT-TYPE :TYPE 'SINGLE-FLOAT))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE1768 #:ENV1769)
;     (DECLARE (IGNORABLE #:ENV1769))
;     (DECLARE (IGNORE #:ENV1769))
;     (BLOCK SINGLE-FLOAT
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* ()
;           (BLOCK SINGLE-FLOAT #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...))

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT
;         NIL
;       (SB!ALIEN::MAKE-ALIEN-DOUBLE-FLOAT-TYPE :TYPE 'DOUBLE-FLOAT))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE1851 #:ENV1852)
;     (DECLARE (IGNORABLE #:ENV1852))
;     (DECLARE (IGNORE #:ENV1852))
;     (BLOCK DOUBLE-FLOAT
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* ()
;           (BLOCK DOUBLE-FLOAT #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR *
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR *
;         (SB!ALIEN::TO &ENVIRONMENT SB!ALIEN::ENV)
;       (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO
;                                                   (IF (EQ SB!ALIEN::TO T)
;                                                       NIL
;                                                       (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
;                                                        SB!ALIEN::TO
;                                                        SB!ALIEN::ENV))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR (#:WHOLE1936 #:ENV1937)
;     (DECLARE (IGNORABLE #:ENV1937))
;     (BLOCK *
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# #)
;           (BLOCK * #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...))
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY
;         (SB!ALIEN::ELE-TYPE &REST SB!ALIEN::DIMS &ENVIRONMENT SB!ALIEN::ENV)
;       (WHEN SB!ALIEN::DIMS
;         (UNLESS (TYPEP (FIRST SB!ALIEN::DIMS) '(OR SB!INT:INDEX NULL))
;           (ERROR "The first dimension is not a non-negative fixnum or NIL: ~S"
;                  (FIRST SB!ALIEN::DIMS)))
;         (LET ((SB!ALIEN::LOSER #))
;           (WHEN SB!ALIEN::LOSER
;             (ERROR "A dimension is not a non-negative fixnum: ~S"
;                    SB!ALIEN::LOSER))))
;       (LET ((SB!ALIEN::PARSED-ELE-TYPE
;              (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN::ELE-TYPE
;                                                   SB!ALIEN::ENV)))
;         (SB!ALIEN::MAKE-ALIEN-ARRAY-TYPE :ELEMENT-TYPE SB!ALIEN::PARSED-ELE-TYPE
;                                          :DIMENSIONS SB!ALIEN::DIMS :ALIGNMENT
;                                          (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT
;                                           SB!ALIEN::PARSED-ELE-TYPE)
;                                          :BITS
;                                          (IF (AND # #)
;                                              (* # #)))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR (#:WHOLE2156 #:ENV2157)
;     (DECLARE (IGNORABLE #:ENV2157))
;     (BLOCK ARRAY
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK ARRAY # #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...)
; x-compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:STRUCT
;         (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV)
;       (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :STRUCT SB!ALIEN::NAME SB!ALIEN::FIELDS
;                                          SB!ALIEN::ENV))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR (#:WHOLE2374 #:ENV2375)
;     (DECLARE (IGNORABLE #:ENV2375))
;     (BLOCK SB!ALIEN:STRUCT
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK SB!ALIEN:STRUCT #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNION
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR UNION
;         (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV)
;       (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :UNION SB!ALIEN::NAME SB!ALIEN::FIELDS
;                                          SB!ALIEN::ENV))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR (#:WHOLE2379 #:ENV2380)
;     (DECLARE (IGNORABLE #:ENV2380))
;     (BLOCK UNION
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK UNION #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...)
; x-compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...)
; x-compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...)
; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...)
; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...)
; x-compiling (DEFUN RECORD-FIELDS-MATCH-P ...)
; x-compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...)
; x-compiling (DEF!TYPE CALLING-CONVENTION ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION
;         (SB!ALIEN::RESULT-TYPE &REST SB!ALIEN::ARG-TYPES &ENVIRONMENT
;          SB!ALIEN::ENV)
;       (MULTIPLE-VALUE-BIND
;           (SB!ALIEN::BARE-RESULT-TYPE SB!ALIEN::CALLING-CONVENTION)
;           (TYPECASE SB!ALIEN::RESULT-TYPE
;             ((CONS SB!ALIEN::CALLING-CONVENTION *) (VALUES # #))
;             (T SB!ALIEN::RESULT-TYPE))
;         (SB!ALIEN-INTERNALS:MAKE-ALIEN-FUN-TYPE :CONVENTION
;                                                 SB!ALIEN::CALLING-CONVENTION
;                                                 :RESULT-TYPE
;                                                 (LET (#)
;                                                   (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
;                                                    SB!ALIEN::BARE-RESULT-TYPE
;                                                    SB!ALIEN::ENV))
;                                                 :ARG-TYPES
;                                                 (MAPCAR (LAMBDA # #)
;                                                         SB!ALIEN::ARG-TYPES))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR (#:WHOLE2643 #:ENV2644)
;     (DECLARE (IGNORABLE #:ENV2644))
;     (BLOCK FUNCTION
;       (LET* ()
;         (LET (#)
;           (UNLESS # #))
;         (LET* (# # #)
;           (BLOCK FUNCTION #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...)
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...)

; file: /«PKGBUILDDIR»/src/code/host-alieneval.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR VALUES
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR VALUES
;         (&REST VALUES &ENVIRONMENT SB!ALIEN::ENV)
;       (UNLESS SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY*
;         (ERROR "cannot use values types here"))
;       (LET ((SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY* NIL))
;         (SB!ALIEN::MAKE-ALIEN-VALUES-TYPE :VALUES (MAPCAR (LAMBDA # #) VALUES))))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR (#:WHOLE2761 #:ENV2762)
;     (DECLARE (IGNORABLE #:ENV2762))
;     (BLOCK VALUES
;       (LET* ()
;         (LET* (# #)
;           (BLOCK VALUES # #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...)
; x-compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFMACRO-MUNDANELY ADDR ...)
; 
; compilation unit finished
;   caught 24 STYLE-WARNING conditions
; x-compiling (/SHOW0 "host-alieneval.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/host-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:15.701
; compiling file "/«PKGBUILDDIR»/src/code/host-c-call.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (/SHOW0 "host-c-call.lisp 12")
; x-compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...)

; file: /«PKGBUILDDIR»/src/code/host-c-call.lisp
; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:C-STRING
;         (&KEY (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT)
;          (SB!ALIEN::ELEMENT-TYPE 'CHARACTER) (SB!ALIEN::NOT-NULL NIL))
;       (SB!ALIEN::MAKE-ALIEN-C-STRING-TYPE :TO
;                                           (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
;                                            'CHAR (SB!KERNEL:MAKE-NULL-LEXENV))
;                                           :ELEMENT-TYPE SB!ALIEN::ELEMENT-TYPE
;                                           :EXTERNAL-FORMAT
;                                           SB!ALIEN::EXTERNAL-FORMAT :NOT-NULL
;                                           SB!ALIEN::NOT-NULL))
; --> EVAL-WHEN 
; ==>
;   (DEFUN SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR (#:WHOLE141 #:ENV142)
;     (DECLARE (IGNORABLE #:ENV142))
;     (DECLARE (IGNORE #:ENV142))
;     (BLOCK SB!ALIEN:C-STRING
;       (LET* ((#:KEYWORDS-50372 #)
;              (#:SUPPLIEDP-50373 #)
;              (#:SUPPLIEDP-50374 #)
;              (#:SUPPLIEDP-50375 #))
;         (DECLARE (IGNORABLE #:KEYWORDS-50372))
;         (MULTIPLE-VALUE-BIND (#:PROBLEM143 #:INFO144)
;             (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-50372 '# 'NIL NIL)
;           (WHEN #:PROBLEM143 #))
;         (LET* (# # #)
;           (BLOCK SB!ALIEN:C-STRING #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR in DEFUN
; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...)
; x-compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...)
; x-compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NULL-ERROR ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "host-c-call.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/host-c-call.lisp-obj-tmp written
; compilation finished in 0:00:01.977
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-deftype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (/SHOW0 "compiler-deftype.lisp 14")
; x-compiling (DEFUN %COMPILER-DEFTYPE ...)
; x-compiling (/SHOW0 "compiler-deftype.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/compiler-deftype.lisp-obj-tmp written
; compilation finished in 0:00:00.195
; compiling file "/«PKGBUILDDIR»/src/code/late-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "late-type.lisp 19")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...)
; x-compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...)
; x-compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...)
; x-compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...)
; x-compiling (DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...)
; x-compiling (DEFMACRO !DEFINE-SUPERCLASSES ...)

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: DEFSTRUCT KEY-INFO
;     (DEFSTRUCT (SB!KERNEL:KEY-INFO (:PURE T) (:COPIER NIL))
;       (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T)
;       (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:KEY-INFO {54281BD1}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:KEY-INFO-NAME could not be inlined
;   because the structure definition for SB!KERNEL:KEY-INFO was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (KEY-INFO # ...) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...)
; x-compiling (DEFUN TYPE=-LIST ...)
; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-CLASS FUNCTION ...)
; x-compiling (!DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY* ...)
; x-compiling (!DEFVAR *UNPARSE-ALLOW-NEGATION* ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES FUNCTION ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-CLASS CONSTANT ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR CONSTANT-ARG ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN UNPARSE-ARGS-TYPES ...)
; x-compiling (!DEF-TYPE-TRANSLATOR FUNCTION ...)
; x-compiling (!DEF-TYPE-TRANSLATOR VALUES ...)
; x-compiling (DEFUN VALUES-TYPE-MIN-VALUE-COUNT ...)
; x-compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...)
; x-compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...)
; x-compiling (DEFUN TYPE-SINGLE-VALUE-P ...)
; x-compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE))
; x-compiling (DEFUN SINGLE-VALUE-TYPE ...)
; x-compiling (DEFUN FUN-TYPE-NARGS ...)
; x-compiling (DEFUN VALUES-TYPES ...)
; x-compiling (DEFUN VALUES-TYPE-TYPES ...)
; x-compiling (DEFUN VALUES-TYPE-OUT ...)
; x-compiling (DEFUN VALUES-TYPE-IN ...)
; x-compiling (DEFUN FIXED-VALUES-OP ...)
; x-compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...)
; x-compiling (DEFUN COERCE-TO-VALUES ...)
; x-compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...)
; x-compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...)
; x-compiling (DEFUN ARGS-TYPE-OP ...)
; x-compiling (DEFUN VALUES-TYPE-OP ...)
; x-compiling (DEFUN COMPARE-KEY-ARGS ...)
; x-compiling (DEFUN TYPE=-ARGS ...)
; x-compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...)
; x-compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN SB-XC:SUBTYPEP ...)
; x-compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN TYPE/= ...)
; x-compiling (DEFUN %TYPE-UNION2 ...)
; x-compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN %TYPE-INTERSECTION2 ...)
; x-compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...)
; x-compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...)
; x-compiling (DEFUN TYPE-SPECIFIER ...)
; x-compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...)
; x-compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN !PRECOMPUTE-TYPES ...)
; x-compiling (DEF SIMPLIFY-INTERSECTIONS ...)
; x-compiling (DEF SIMPLIFY-UNIONS ...)
; x-compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...)
; x-compiling (DEFUN TYPE-INTERSECTION ...)
; x-compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...)
; x-compiling (DEFUN TYPE-UNION ...)
; x-compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS NAMED ...)
; x-compiling (DEFGLOBAL *SATISFIES-KEYWORDP-TYPE* ...)
; x-compiling (DEFGLOBAL *FUN-NAME-TYPE* ...)
; x-compiling (DEFUN !LATE-TYPE-COLD-INIT2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-=) ...)
; x-compiling (DEFUN CONS-TYPE-MIGHT-BE-EMPTY-TYPE ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NAMED :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 ...) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR SATISFIES ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR NOT ...)
; x-compiling (!DEFINE-TYPE-CLASS NUMBER ...)
; x-compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL))
; x-compiling (DEFUN NUMERIC-TYPE-EQUAL ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...)
; x-compiling (DEFMACRO NUMERIC-BOUND-TEST ...)
; x-compiling (DEFMACRO NUMERIC-BOUND-TEST* ...)
; x-compiling (DEFMACRO NUMERIC-BOUND-MAX ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES NUMBER ...)
; x-compiling (DEFUN NUMERIC-TYPES-ADJACENT ...)
; x-compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...)
; x-compiling (!COLD-INIT-FORMS (SETF # ...) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...)
; x-compiling (DECLAIM (INLINE CANONICALIZED-BOUND))
; x-compiling (DEFUN CANONICALIZED-BOUND ...)
; x-compiling (!DEF-TYPE-TRANSLATOR INTEGER ...)
; x-compiling (DEFMACRO !DEF-BOUNDED-TYPE ...)
; x-compiling (!DEF-BOUNDED-TYPE RATIONAL ...)
; x-compiling (DEFUN COERCE-BOUND ...)
; x-compiling (DEFUN INNER-COERCE-REAL-BOUND ...)
; x-compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...)
; x-compiling (DEFUN COERCED-REAL-BOUND ...)
; x-compiling (DEFUN COERCED-FLOAT-BOUND ...)
; x-compiling (!DEF-TYPE-TRANSLATOR REAL ...)
; x-compiling (!DEF-TYPE-TRANSLATOR FLOAT ...)
; x-compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...)
; x-compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT)
; x-compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT)
; x-compiling (DEFUN NUMERIC-TYPES-INTERSECT ...)
; x-compiling (DEFUN ROUND-NUMERIC-BOUND ...)
; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN FLOAT-FORMAT-MAX ...)
; x-compiling (DEFUN NUMERIC-CONTAGION ...)
; x-compiling (!DEFINE-TYPE-CLASS ARRAY ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES ARRAY ...)
; x-compiling (DEFUN ARRAY-TYPES-INTERSECT ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...)
; x-compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...)
; x-compiling (!DEFINE-TYPE-CLASS MEMBER ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR MEMBER ...)
; x-compiling (!DEFINE-TYPE-CLASS INTERSECTION ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...)
; x-compiling (DEFUN TYPE=-SET ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...)
; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...)
; x-compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR AND ...)
; x-compiling (!DEFINE-TYPE-CLASS UNION ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...)
; x-compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...)
; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...)
; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR OR ...)
; x-compiling (!DEFINE-TYPE-CLASS CONS ...)
; x-compiling (!DEF-TYPE-TRANSLATOR CONS ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...)
; x-compiling (!DEFINE-SUPERCLASSES CONS ...)
; x-compiling (!DEFINE-TYPE-CLASS CHARACTER-SET ...)
; x-compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...)
; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...)
; x-compiling (DEFUN INTERSECT-TYPE-PAIRS ...)
; x-compiling (DEFUN TYPE-DIFFERENCE ...)
; x-compiling (!DEF-TYPE-TRANSLATOR ARRAY ...)
; x-compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...)
; x-compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...)
; x-compiling (DEFUN CTYPE-OF-NUMBER ...)
; x-compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION))
; x-compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...)
; x-compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION))

; file: /«PKGBUILDDIR»/src/code/late-type.lisp
; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION
;     (SB!KERNEL:GENERIC-ABSTRACT-TYPE-FUNCTION TYPE SB!KERNEL::OVERAPPROXIMATE
;                                               #'UNION #'INTERSECTION
;                                               #'SET-DIFFERENCE '* NIL
;                                               SB!KERNEL::OVER SB!KERNEL::UNDER)
; --> BLOCK LABELS BLOCK UNLESS IF PROGN RETURN-FROM SB!KERNEL::DEFAULT 
; ==>
;   SB!KERNEL::OVERAPPROXIMATE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 3 notes
; x-compiling (/SHOW0 "late-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-type.lisp-obj-tmp written
; compilation finished in 0:00:22.013
; compiling file "/«PKGBUILDDIR»/src/code/pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!PRETTY")
; x-compiling (DEFTYPE COLUMN ...)
; x-compiling (DEFTYPE POSN ...)
; x-compiling (DEFCONSTANT INITIAL-BUFFER-SIZE ...)
; x-compiling (DEFCONSTANT DEFAULT-LINE-LENGTH ...)
; x-compiling (DECLAIM (MAYBE-INLINE MAKE-PRETTY-STREAM))

; file: /«PKGBUILDDIR»/src/code/pprint.lisp
; in: DEFSTRUCT PRETTY-STREAM
;     (DEFSTRUCT
;         (SB!PRETTY:PRETTY-STREAM
;          (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT)
;           (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT)
;           (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC))
;          (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET))
;          (:COPIER NIL))
;       (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T)
;       (SB!KERNEL:LINE-LENGTH
;        (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET)
;            SB!PRETTY::DEFAULT-LINE-LENGTH)
;        :TYPE SB!PRETTY::COLUMN :READ-ONLY T)
;       (SB!PRETTY::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION))
;       (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE
;        (SIMPLE-ARRAY CHARACTER (*)))
;       (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX)
;       (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN)
;       (SB!PRETTY::BUFFER-START-COLUMN
;        (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN)
;       (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX)
;       (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL)
;        :READ-ONLY T)
;       (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!PRETTY:PRETTY-STREAM {540A7559}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for STREAM {5242FCC1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:ANSI-STREAM {528201E1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!PRETTY:PRETTY-STREAM-P could not be inlined
;   because the structure definition for SB!PRETTY:PRETTY-STREAM was not yet seen.
;   To avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (PRETTY-STREAM # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (INLINE INDEX-POSN ...))
; x-compiling (DEFUN INDEX-POSN ...)
; x-compiling (DEFUN POSN-INDEX ...)

; file: /«PKGBUILDDIR»/src/code/pprint.lisp
; in: DEFUN POSN-COLUMN
;     (DEFUN SB!PRETTY::POSN-COLUMN (SB!PRETTY::POSN STREAM)
;       (DECLARE (TYPE SB!PRETTY::POSN SB!PRETTY::POSN)
;                (TYPE SB!PRETTY:PRETTY-STREAM STREAM)
;                (VALUES SB!PRETTY::POSN))
;       (SB!PRETTY::INDEX-COLUMN (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM)
;        STREAM))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES FIXNUM &REST T)
;        (PROGN
;         (BLOCK SB!PRETTY::POSN-COLUMN
;           (SB!PRETTY::INDEX-COLUMN
;            (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM) STREAM))))
; 
; note: type assertion too complex to check:
;  (VALUES FIXNUM &REST T).
; x-compiling (DEFUN POSN-COLUMN ...)
; x-compiling (DEFUN PRINT-PRETTY-ON-STREAM-P ...)
; x-compiling (DEFUN PRETTY-OUT ...)

; file: /«PKGBUILDDIR»/src/code/pprint.lisp
; in: DEFUN PRETTY-SOUT
;     (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR
;           SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START
;           SB!PRETTY::WITH ...)
; --> BLOCK LET 
; ==>
;   FILL-POINTER
; 
; note: deleting unreachable code

; --> BLOCK LET LET 
; ==>
;   SB!PRETTY::START
; 
; note: deleting unreachable code

;     (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR
;           SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START
;           SB!PRETTY::WITH ...)
; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY WHEN IF >= 
; ==>
;   SB!PRETTY::I
; 
; note: deleting unreachable code

; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ 
; --> SETQ THE 1+ + 
; ==>
;   SB!PRETTY::I
; 
; note: deleting unreachable code

; ==>
;   SB!PRETTY::J
; 
; note: deleting unreachable code

;     (SETF (AREF SB!PRETTY::TARGET SB!PRETTY::I) (AREF STRING SB!PRETTY::J))
; --> LET* 
; ==>
;   SB!PRETTY::TARGET
; 
; note: deleting unreachable code

; ==>
;   SB!PRETTY::I
; 
; note: deleting unreachable code

;     (AREF STRING SB!PRETTY::J)
; ==>
;   STRING
; 
; note: deleting unreachable code

;     (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN PRETTY-SOUT ...)
; x-compiling (DEFUN PRETTY-MISC ...)
; x-compiling (DEFSTRUCT (LOGICAL-BLOCK #) ...)
; x-compiling (DEFUN REALLY-START-LOGICAL-BLOCK ...)
; x-compiling (DEFUN SET-INDENTATION ...)
; x-compiling (DEFUN REALLY-END-LOGICAL-BLOCK ...)
; x-compiling (DEFSTRUCT (QUEUED-OP # ...) ...)
; x-compiling (DEFMACRO ENQUEUE ...)
; x-compiling (DEFSTRUCT (SECTION-START # ...) ...)
; x-compiling (DEFSTRUCT (NEWLINE # ...) ...)
; x-compiling (DEFUN ENQUEUE-NEWLINE ...)
; x-compiling (DEFSTRUCT (INDENTATION # ...) ...)
; x-compiling (DEFUN ENQUEUE-INDENT ...)
; x-compiling (DEFSTRUCT (BLOCK-START # ...) ...)
; x-compiling (DEFUN START-LOGICAL-BLOCK ...)
; x-compiling (DEFSTRUCT (BLOCK-END # ...) ...)
; x-compiling (DEFUN END-LOGICAL-BLOCK ...)
; x-compiling (DEFSTRUCT (TAB # ...) ...)
; x-compiling (DEFUN ENQUEUE-TAB ...)
; x-compiling (DEFUN COMPUTE-TAB-SIZE ...)
; x-compiling (DEFUN INDEX-COLUMN ...)
; x-compiling (DEFUN EXPAND-TABS ...)
; x-compiling (DEFUN ENSURE-SPACE-IN-BUFFER ...)
; x-compiling (DEFUN MAYBE-OUTPUT ...)
; x-compiling (DEFUN MISERING-P ...)
; x-compiling (DEFUN FITS-ON-LINE-P ...)
; x-compiling (DEFUN OUTPUT-LINE ...)
; x-compiling (DEFUN OUTPUT-PARTIAL-LINE ...)
; x-compiling (DEFUN FORCE-PRETTY-OUTPUT ...)
; x-compiling (DEFUN PPRINT-NEWLINE ...)
; x-compiling (DEFUN PPRINT-INDENT ...)
; x-compiling (DEFUN PPRINT-TAB ...)
; x-compiling (DEFUN PPRINT-FILL ...)
; x-compiling (DEFUN PPRINT-LINEAR ...)
; x-compiling (DEFUN PPRINT-TABULAR ...)
; x-compiling (DEFVAR *STANDARD-PPRINT-DISPATCH-TABLE*)
; x-compiling (DEFVAR *INITIAL-PPRINT-DISPATCH-TABLE*)
; x-compiling (DEFSTRUCT (PPRINT-DISPATCH-ENTRY # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN ENTRY< ...)
; x-compiling (DEFUN COMPUTE-TEST-FN ...)
; x-compiling (DEFUN COPY-PPRINT-DISPATCH ...)
; x-compiling (DEFUN PPRINT-DISPATCH ...)
; x-compiling (DEFUN ASSERT-NOT-STANDARD-PPRINT-DISPATCH-TABLE ...)
; x-compiling (DEFUN TESTABLE-TYPE-P ...)
; x-compiling (DEFUN DEFER-TYPE-CHECKER ...)
; x-compiling (DEFUN SET-PPRINT-DISPATCH ...)
; x-compiling (DEFUN PPRINT-ARRAY ...)
; x-compiling (DEFUN PPRINT-VECTOR ...)
; x-compiling (DEFUN PPRINT-MULTI-DIM-ARRAY ...)
; x-compiling (DEFUN PPRINT-LAMBDA-LIST ...)
; x-compiling (DEFUN PPRINT-LAMBDA ...)
; x-compiling (DEFUN PPRINT-BLOCK ...)
; x-compiling (DEFUN PPRINT-FLET ...)
; x-compiling (DEFUN PPRINT-LET ...)
; x-compiling (DEFUN PPRINT-PROGN ...)
; x-compiling (DEFUN PPRINT-PROGV ...)
; x-compiling (DEFUN PPRINT-PROG2 ...)
; x-compiling (DEFUN PPRINT-UNQUOTING-COMMA ...)
; x-compiling (DEFVAR *PPRINT-QUOTE-WITH-SYNTACTIC-SUGAR* ...)
; x-compiling (DEFUN PPRINT-QUOTE ...)
; x-compiling (DEFUN PPRINT-DECLARE ...)
; x-compiling (DEFUN PPRINT-SETQ ...)
; x-compiling (DEFUN PPRINT-TAGBODY ...)
; x-compiling (DEFUN PPRINT-CASE ...)
; x-compiling (DEFUN PPRINT-DEFUN ...)
; x-compiling (DEFUN PPRINT-DEFMETHOD ...)
; x-compiling (DEFUN PPRINT-DEFPACKAGE ...)
; x-compiling (DEFUN PPRINT-DESTRUCTURING-BIND ...)
; x-compiling (DEFUN PPRINT-DO ...)
; x-compiling (DEFUN PPRINT-DOLIST ...)
; x-compiling (DEFUN PPRINT-TYPECASE ...)
; x-compiling (DEFUN PPRINT-PROG ...)
; x-compiling (DEFVAR *LOOP-SEPERATING-CLAUSES* ...)
; x-compiling (DEFUN PPRINT-EXTENDED-LOOP ...)
; x-compiling (DEFUN PPRINT-LOOP ...)
; x-compiling (DEFUN PPRINT-IF ...)
; x-compiling (DEFUN PPRINT-FUN-CALL ...)
; x-compiling (DEFUN PPRINT-SPREAD-FUN-CALL ...)
; x-compiling (DEFUN PPRINT-DATA-LIST ...)
; x-compiling (DEFUN MACRO-INDENTATION ...)
; x-compiling (DEFUN PPRINT-MACRO-CALL ...)
; x-compiling (DEFUN OUTPUT-PRETTY-OBJECT ...)
; x-compiling (DEFUN CALL-LOGICAL-BLOCK-PRINTER ...)
; x-compiling (DEFUN PPRINT-LENGTH-CHECK ...)
; x-compiling (DEFUN PPRINT-LENGTH-CHECK* ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 11 notes
; x-compiling (DEFUN !PPRINT-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/pprint.lisp-obj-tmp written
; compilation finished in 0:00:16.002
; compiling file "/«PKGBUILDDIR»/src/code/deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "deftypes-for-target.lisp 14")
; x-compiling (SB-XC:DEFTYPE BOOLEAN ...)
; x-compiling (SB-XC:DEFTYPE MOD ...)
; x-compiling (SB-XC:DEFTYPE SIGNED-BYTE ...)
; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...)
; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...)
; x-compiling (SB-XC:DEFTYPE BIT ...)
; x-compiling (SB-XC:DEFTYPE ATOM ...)
; x-compiling (SB-XC:DEFTYPE BASE-CHAR ...)
; x-compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...)
; x-compiling (SB-XC:DEFTYPE STANDARD-CHAR ...)
; x-compiling (SB-XC:DEFTYPE KEYWORD ...)
; x-compiling (SB-XC:DEFTYPE EQL ...)
; x-compiling (SB-XC:DEFTYPE VECTOR ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...)
; x-compiling (SB-XC:DEFTYPE BASE-STRING ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...)
; x-compiling (SB-XC:DEFTYPE STRING ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-STRING ...)
; x-compiling (SB-XC:DEFTYPE BIT-VECTOR ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...)
; x-compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...)
; x-compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...)
; x-compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE ARRAY-RANK ...)
; x-compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...)
; x-compiling (SB-XC:DEFTYPE FORM ...)
; x-compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE FILENAME ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE IRRATIONAL ...)
; x-compiling (SB-XC:DEFTYPE CHAR-CODE ...)
; x-compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...)
; x-compiling (SB-XC:DEFTYPE SEQUENCE-END ...)
; x-compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...)
; x-compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...)
; x-compiling (SB-XC:DEFTYPE CALLABLE ...)
; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...)
; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...)
; x-compiling (/SHOW0 "deftypes-for-target.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:02.318
; compiling file "/«PKGBUILDDIR»/src/compiler/knownfun.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (/SHOW0 "knownfun.lisp 17")
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...)
; x-compiling (DEFSTRUCT (FUN-INFO #) ...)
; x-compiling (DEFPRINTER (FUN-INFO) ...)
; x-compiling (DEFSTRUCT (TRANSFORM #) ...)
; x-compiling (DEFPRINTER (TRANSFORM) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %DEFTRANSFORM ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %DEFKNOWN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FUN-INFO-OR-LOSE ...)
; x-compiling (DEFUN RESULT-TYPE-FIRST-ARG ...)
; x-compiling (DEFUN RESULT-TYPE-LAST-ARG ...)
; x-compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...)
; x-compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...)
; x-compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; x-compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...)
; x-compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...)
; x-compiling (DEFUN NTH-CONSTANT-ARGS ...)
; x-compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...)
; x-compiling (DEFUN READ-ELT-TYPE-DERIVER ...)
; x-compiling (DEFUN COUNT/POSITION-MAX-VALUE ...)
; x-compiling (DEFUN POSITION-DERIVE-TYPE ...)
; x-compiling (DEFUN COUNT-DERIVE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/knownfun.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE IR1
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNWIND SB!C:ANY
;                                    SB!C::DX-SAFE SB!C:FOLDABLE SB!ASSEM:FLUSHABLE
;                                    SB!C:UNSAFELY-FLUSHABLE SB!C::IMPORTANT-RESULT
;                                    SB!C:MOVABLE SB!C::PREDICATE ...)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "knownfun.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/knownfun.lisp-obj-tmp written
; compilation finished in 0:00:02.587
; compiling file "/«PKGBUILDDIR»/src/compiler/constantp.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (DEFGLOBAL **SPECIAL-FORM-CONSTANTP-TESTS** ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (!COLD-INIT-FORMS (SETF **SPECIAL-FORM-CONSTANTP-TESTS** ...))
; x-compiling (!DEFVAR *SPECIAL-CONSTANT-VARIABLES* ...)
; x-compiling (DEFUN %CONSTANTP ...)
; x-compiling (DEFUN %CONSTANT-FORM-VALUE ...)
; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...)
; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...)
; x-compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...)
; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...)
; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/constantp.lisp
; in: DECLAIM (INLINE SB-XC:CONSTANTP)
;     (DECLAIM (INLINE SB-XC:CONSTANTP))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB-XC:CONSTANTP) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-XC:CONSTANTP to be INLINE, but 11 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE SB-XC:CONSTANTP))
; x-compiling (DEFUN SB-XC:CONSTANTP ...)

; file: /«PKGBUILDDIR»/src/compiler/constantp.lisp
; in: DECLAIM (INLINE CONSTANT-FORM-VALUE)
;     (DECLAIM (INLINE SB!INT:CONSTANT-FORM-VALUE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!INT:CONSTANT-FORM-VALUE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!INT:CONSTANT-FORM-VALUE to be INLINE, but 6 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE))
; x-compiling (DEFUN CONSTANT-FORM-VALUE ...)
; x-compiling (DECLAIM (INLINE CONSTANT-TYPEP))
; x-compiling (DEFUN CONSTANT-TYPEP ...)
; x-compiling (DEFMACRO !DEFCONSTANTP ...)
; x-compiling (!DEFCONSTANTP QUOTE ...)
; x-compiling (!DEFCONSTANTP IF ...)
; x-compiling (!DEFCONSTANTP PROGN ...)
; x-compiling (!DEFCONSTANTP UNWIND-PROTECT ...)
; x-compiling (!DEFCONSTANTP THE ...)
; x-compiling (!DEFCONSTANTP BLOCK ...)
; x-compiling (!DEFCONSTANTP MULTIPLE-VALUE-PROG1 ...)
; x-compiling (!DEFCONSTANTP PROGV ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/constantp.lisp-obj-tmp written
; compilation finished in 0:00:02.063
; compiling file "/«PKGBUILDDIR»/src/compiler/fun-info-funs.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN %DEF-REFFER ...)
; x-compiling (DEFUN %DEF-SETTER ...)
; x-compiling (DEFUN %DEF-ALLOC ...)
; x-compiling (DEFUN %DEF-CASSER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fun-info-funs.lisp-obj-tmp written
; compilation finished in 0:00:00.130
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (SB-XC:DEFTYPE LONG-FLOAT ...)
; x-compiling (SB-XC:DEFTYPE SHORT-FLOAT ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-DIGITS ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-RADIX ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-INT-EXPONENT ...)
; x-compiling (SB-XC:DEFTYPE BOOLE-CODE ...)
; x-compiling (SB-XC:DEFTYPE BYTE-SPECIFIER ...)
; x-compiling (SB-XC:DEFTYPE CHAR-INT ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-HOST ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-DEVICE ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-DIRECTORY ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-NAME ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-TYPE ...)
; x-compiling (SB-XC:DEFTYPE PATHNAME-VERSION ...)
; x-compiling (SB-XC:DEFTYPE INTERNAL-TIME ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-TYPE ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-INDEX ...)
; x-compiling (SB-XC:DEFTYPE BIGNUM-LENGTH ...)
; x-compiling (SB-XC:DEFTYPE BIT-INDEX ...)
; x-compiling (SB-XC:DEFTYPE UNBOXED-ARRAY ...)
; x-compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...)
; x-compiling (SB-XC:DEFTYPE COMPLEX-VECTOR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FLOAT-FORMAT-NAME ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...)
; x-compiling (DEFUN CONTAINING-INTEGER-TYPE ...)
; x-compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...)
; x-compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...)
; x-compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-type.lisp-obj-tmp written
; compilation finished in 0:00:02.043
; compiling file "/«PKGBUILDDIR»/src/compiler/proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *UNDEFINED-WARNINGS*)
; x-compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-OLD-VARS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-OPTIMIZE-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...)
; x-compiling (!DEFVAR *QUEUED-PROCLAIMS* ...)
; x-compiling (DEFUN PROCESS-VARIABLE-DECLARATION ...)
; x-compiling (DEFUN PROCLAIM-TYPE ...)
; x-compiling (DEFUN PROCLAIM-FTYPE ...)
; x-compiling (DEFUN SEAL-CLASS ...)
; x-compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...)
; x-compiling (DEFUN PROCESS-INLINE-DECLARATION ...)
; x-compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...)
; x-compiling (DEFUN CANONIZED-DECL-SPEC ...)
; x-compiling (DEFUN %PROCLAIM ...)
; x-compiling (DEFUN SB-XC:PROCLAIM ...)

; file: /«PKGBUILDDIR»/src/compiler/proclaim.lisp
; in: DEFUN CANONIZED-DECL-SPEC
;     (TYPEP SB!C::ID 'CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: CLASS
; 
; compilation unit finished
;   Undefined type:
;     CLASS
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/proclaim.lisp-obj-tmp written
; compilation finished in 0:00:01.466
; compiling file "/«PKGBUILDDIR»/src/code/class-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "beginning class-init.lisp")
; x-compiling (DOLIST (X *!BUILT-IN-CLASSES*) ...)
; x-compiling (/SHOW0 "done with class-init.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/class-init.lisp-obj-tmp written
; compilation finished in 0:00:00.140
; compiling file "/«PKGBUILDDIR»/src/code/defstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "code/defstruct.lisp 15")
; x-compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...)
; x-compiling (DEFUN COMPILER-LAYOUT-READY-P ...)
; x-compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; x-compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; x-compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...)
; x-compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DD-CLASS-P ...)
; x-compiling (DEFUN DD-LAYOUT-OR-LOSE ...)
; x-compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DD-LISP-TYPE ...)
; x-compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...)
; x-compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...)
; x-compiling (SB-XC:DEFMACRO DEFSTRUCT ...)
; x-compiling (DEFUN ACCESSOR-INHERITED-DATA ...)
; x-compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...)
; x-compiling (DEFUN TYPED-COPIER-DEFINITIONS ...)
; x-compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...)
; x-compiling (DEFCONSTANT-EQX +DD-OPTION-NAMES+ ...)
; x-compiling (DEFUN PARSE-1-DD-OPTION ...)
; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...)
; x-compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...)
; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...)
; x-compiling (DEFUN PARSE-1-DSD ...)
; x-compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...)
; x-compiling (DEFUN ALLOCATE-1-SLOT ...)
; x-compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...)
; x-compiling (DEFUN FROB-DD-INCLUSION-STUFF ...)
; x-compiling (DEFUN INHERITS-FOR-STRUCTURE ...)
; x-compiling (DEFUN %DEFSTRUCT ...)
; x-compiling (DEFUN %ACCESSOR-PLACE-FORM ...)
; x-compiling (DEFUN SLOT-ACCESS-TRANSFORM ...)
; x-compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...)
; x-compiling (DEFUN UNDECLARE-STRUCTURE ...)
; x-compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...)
; x-compiling (DEFUN %COMPILER-DEFSTRUCT ...)
; x-compiling (DEFUN COMPARE-SLOTS ...)
; x-compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...)
; x-compiling (DEFUN %REDEFINE-DEFSTRUCT ...)
; x-compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH))
; x-compiling (DEFUN DD-LAYOUT-LENGTH ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DD-INSTANCE-LENGTH ...)
; x-compiling (DEFUN DD-BITMAP ...)
; x-compiling (DEFUN ENSURE-STRUCTURE-CLASS ...)
; x-compiling (DEFUN FIND-NAME-INDICES ...)
; x-compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...)
; x-compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...)
; x-compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...)
; x-compiling (DEFUN ACCESSOR-DEFINITIONS ...)
; x-compiling (DEFUN COPIER-DEFINITION ...)
; x-compiling (DEFUN PREDICATE-DEFINITION ...)
; x-compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...)
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...)
; x-compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...)
; x-compiling (DOLIST (ARGS #) ...)
; x-compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...)
; x-compiling (DEFUN STRUCTURE-INSTANCE-ACCESSOR-P ...)
; x-compiling (/SHOW0 "code/defstruct.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/defstruct.lisp-obj-tmp written
; compilation finished in 0:00:11.016
; compiling file "/«PKGBUILDDIR»/src/code/target-defstruct.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "target-defstruct.lisp 12")
; x-compiling (DEFUN %MAKE-INSTANCE ...)
; x-compiling (DEFUN %INSTANCE-LENGTH ...)
; x-compiling (DEFUN %INSTANCE-REF ...)
; x-compiling (DEFUN %INSTANCE-SET ...)
; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/WORD ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/WORD ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/DOUBLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/DOUBLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; x-compiling (DEFUN %INSTANCE-LAYOUT ...)
; x-compiling (DEFUN %SET-INSTANCE-LAYOUT ...)
; x-compiling (DEFUN %MAKE-FUNCALLABLE-INSTANCE ...)
; x-compiling (DEFUN FUNCALLABLE-INSTANCE-P ...)
; x-compiling (DEFTYPE FUNCALLABLE-INSTANCE ...)
; x-compiling (DEFUN %FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFUN %SET-FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFUN FUNCALLABLE-INSTANCE-FUN ...)
; x-compiling (DEFUN (SETF FUNCALLABLE-INSTANCE-FUN) ...)
; x-compiling (!DEFVAR *DEFSTRUCT-HOOKS* ...)
; x-compiling (DEFUN %TARGET-DEFSTRUCT ...)
; x-compiling (DEFUN COPY-STRUCTURE ...)
; x-compiling (DEFUN RAW-INSTANCE-SLOTS-EQUALP ...)
; x-compiling (DEFUN %DEFAULT-STRUCTURE-PRETTY-PRINT ...)
; x-compiling (DEFUN %DEFAULT-STRUCTURE-UGLY-PRINT ...)
; x-compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN STRUCTURE-OBJ-SLOT-SAVING-FORMS ...)
; x-compiling (DEFUN CANONICAL-SLOT-SAVING-FORMS-P ...)

; file: /«PKGBUILDDIR»/src/code/target-defstruct.lisp
; in: DEFUN CANONICAL-SLOT-SAVING-FORMS-P
;     (CLASS-NAME (CLASS-OF SB!ALIEN:STRUCT))
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

;     (CLASS-OF SB!ALIEN:STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-OF
; 
; compilation unit finished
;   Undefined functions:
;     CLASS-NAME CLASS-OF
;   caught 2 STYLE-WARNING conditions
; x-compiling (/SHOW0 "target-defstruct.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-defstruct.lisp-obj-tmp written
; compilation finished in 0:00:01.190
; compiling file "/«PKGBUILDDIR»/src/code/alien-type.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "code/alien-type.lisp 16")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)

; file: /«PKGBUILDDIR»/src/code/alien-type.lisp
; in: DEFSTRUCT ALIEN-TYPE-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:ALIEN-TYPE-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!ALIEN:ALIEN)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-ALIEN-TYPE-TYPE
;           (SB!ALIEN-INTERNALS:ALIEN-TYPE))
;          (:COPIER NIL))
;       (SB!ALIEN-INTERNALS:ALIEN-TYPE NIL :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE
;        :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!KERNEL:ALIEN-TYPE-TYPE {550A4049}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>
;       #<SB!KERNEL:LAYOUT for SB!SYS:STRUCTURE!OBJECT {52232DF1}>
;       #<SB!KERNEL:LAYOUT for SB!KERNEL:CTYPE {527391A1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE could not be
;   inlined because the structure definition for SB!KERNEL:ALIEN-TYPE-TYPE was not
;   yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (ALIEN-TYPE-TYPE # ...) ...)
; x-compiling (!DEFINE-TYPE-CLASS ALIEN ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :NEGATE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :UNPARSE) ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP) ...)
; x-compiling (!DEFINE-SUPERCLASSES ALIEN ...)
; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=) ...)
; x-compiling (!DEF-TYPE-TRANSLATOR ALIEN ...)
; x-compiling (DEFUN MAKE-ALIEN-TYPE-TYPE ...)
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (/SHOW0 "code/alien-type.lisp end of file")

; /«PKGBUILDDIR»/obj/from-xc/src/code/alien-type.lisp-obj-tmp written
; compilation finished in 0:00:00.545
; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangstructs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")

; /«PKGBUILDDIR»/obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj-tmp written
; compilation finished in 0:00:00.021
; compiling file "/«PKGBUILDDIR»/src/code/early-full-eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!EVAL")
; x-compiling (SB!INT:!DEFPARAMETER *EVAL-LEVEL* ...)
; x-compiling (SB!INT:!DEFPARAMETER *EVAL-VERBOSE* ...)

; file: /«PKGBUILDDIR»/src/code/early-full-eval.lisp
; in: !DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION
;     (SB!KERNEL:!DEFSTRUCT-WITH-ALTERNATE-METACLASS SB!EVAL:INTERPRETED-FUNCTION
;                                                    :SLOT-NAMES
;                                                    (SB!EVAL::NAME
;                                                     SB!EVAL::DEBUG-NAME
;                                                     SB!EVAL::LAMBDA-LIST
;                                                     SB!EVAL::DEBUG-LAMBDA-LIST
;                                                     SB!EVAL::ENV
;                                                     SB!EVAL::DECLARATIONS
;                                                     DOCUMENTATION SB!EVAL::BODY
;                                                     SB!EVAL::SOURCE-LOCATION)
;                                                    :BOA-CONSTRUCTOR
;                                                    SB!EVAL::%MAKE-INTERPRETED-FUNCTION
;                                                    :SUPERCLASS-NAME FUNCTION
;                                                    :METACLASS-NAME
;                                                    SB!KERNEL:STATIC-CLASSOID
;                                                    :METACLASS-CONSTRUCTOR
;                                                    SB!KERNEL:MAKE-STATIC-CLASSOID
;                                                    ...)
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM
;    '(INLINE SB!EVAL:INTERPRETED-FUNCTION-NAME
;      SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME
;      SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST
;      SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST
;      SB!EVAL::INTERPRETED-FUNCTION-ENV
;      SB!EVAL:INTERPRETED-FUNCTION-DECLARATIONS
;      SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION
;      SB!EVAL:INTERPRETED-FUNCTION-BODY
;      SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION)
;    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME to be INLINE, but 1 call to
;   it was previously compiled. A declaration of NOTINLINE at the call site will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST to be INLINE, but 1
;   call to it was previously compiled. A declaration of NOTINLINE at the call site
;   will eliminate this warning, as will proclaiming and defining the function
;   before its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION to be INLINE, but 1 call
;   to it was previously compiled. A declaration of NOTINLINE at the call site will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION to be INLINE, but 1
;   call to it was previously compiled. A declaration of NOTINLINE at the call site
;   will eliminate this warning, as will proclaiming and defining the function
;   before its first potential use.

; ==>
;   (SB!C::%PROCLAIM
;    '(INLINE (SETF SB!EVAL:INTERPRETED-FUNCTION-NAME)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST)
;      (SETF SB!EVAL::INTERPRETED-FUNCTION-ENV)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DECLARATIONS)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-BODY)
;      (SETF SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION))
;    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) to be
;   INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at
;   the call site will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST)
;   to be INLINE, but 1 call to it was previously compiled. A declaration of
;   NOTINLINE at the call site will eliminate this warning, as will proclaiming and
;   defining the function before its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) to be
;   INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at
;   the call site will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...)
; x-compiling (DECLAIM (FREEZE-TYPE INTERPRETED-FUNCTION))
; x-compiling (DEFUN MAKE-INTERPRETED-FUNCTION ...)
; x-compiling (DEFUN INTERPRETED-FUNCTION-P ...)
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions
; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-full-eval.lisp-obj-tmp written
; compilation finished in 0:00:00.778
; compiling file "/«PKGBUILDDIR»/src/code/typep.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN TYPEP ...)
; x-compiling (DEFUN %TYPEP ...)
; x-compiling (DEFUN %%TYPEP ...)
; x-compiling (DEFUN CLASSOID-CELL-TYPEP ...)
; x-compiling (DEFUN CLASSOID-TYPEP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/typep.lisp-obj-tmp written
; compilation finished in 0:00:00.993
; compiling file "/«PKGBUILDDIR»/src/compiler/compiler-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *COMPILER-ERROR-BAILOUT*)
; x-compiling (DEFINE-CONDITION COMPILER-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.")
; ==>
;   "Control returned from *COMPILER-ERROR-BAILOUT*."
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPILER-ERROR ...)
; x-compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...)
; x-compiling (DEFUN COMPILER-WARN ...)
; x-compiling (DEFUN COMPILER-STYLE-WARN ...)
; x-compiling (DEFUN SOURCE-TO-STRING ...)
; x-compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...)
; x-compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...)
; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/compiler-error.lisp-obj-tmp written
; compilation finished in 0:00:00.372
; compiling file "/«PKGBUILDDIR»/src/code/late-deftypes-for-target.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:00.046
; compiling file "/«PKGBUILDDIR»/src/code/type-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (/SHOW0 "precomputing built-in symbol type specifiers")
; x-compiling (!PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*)
; x-compiling (/SHOW0 "done with type-init.lisp")

; /«PKGBUILDDIR»/obj/from-xc/src/code/type-init.lisp-obj-tmp written
; compilation finished in 0:00:00.030
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (!COLD-INIT-FORMS (MAP # ...))
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fixup-type.lisp-obj-tmp written
; compilation finished in 0:00:00.110
; compiling file "/«PKGBUILDDIR»/src/code/package.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!TYPE HASH-VECTOR ...)
; x-compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...)
; x-compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFUN PACKAGE-ITER-INIT ...)
; x-compiling (DECLAIM (INLINE PKG-SYMBOL-VALID-P))
; x-compiling (DEFUN PKG-SYMBOL-VALID-P ...)
; x-compiling (DEFCONSTANT +PACKAGE-ITER-CHECK-SHADOWS+ ...)

; file: /«PKGBUILDDIR»/src/code/package.lisp
; in: DEFUN PACKAGE-ITER-STEP
;     (THE FIXNUM (+ SB!IMPL::STATE (ASH 1 6)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; x-compiling (DEFUN PACKAGE-ITER-STEP ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/package.lisp-obj-tmp written
; compilation finished in 0:00:02.553
; compiling file "/«PKGBUILDDIR»/src/code/random.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...)
; x-compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/random.lisp-obj-tmp written
; compilation finished in 0:00:00.198
; compiling file "/«PKGBUILDDIR»/src/code/hash-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...)
; x-compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...)
; x-compiling (DEFUN %HASH-TABLE-ALIST ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/hash-table.lisp-obj-tmp written
; compilation finished in 0:00:01.396
; compiling file "/«PKGBUILDDIR»/src/code/readtable.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...)
; x-compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...)
; x-compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE READTABLE))

; /«PKGBUILDDIR»/obj/from-xc/src/code/readtable.lisp-obj-tmp written
; compilation finished in 0:00:00.525
; compiling file "/«PKGBUILDDIR»/src/code/pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!STRUCT (HOST #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN ...)
; x-compiling (DEF!STRUCT (PATTERN #) ...)
; x-compiling (DEF!TYPE PATHNAME-COMPONENT-TOKENS ...)
; x-compiling (SB-XC:DEFSTRUCT (PATHNAME # ...) ...)
; x-compiling (SB-XC:DEFSTRUCT (LOGICAL-PATHNAME # ...))
; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...)
; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/pathname.lisp-obj-tmp written
; compilation finished in 0:00:03.516
; compiling file "/«PKGBUILDDIR»/src/code/host-pprint.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!PRETTY")
; x-compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/host-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00.216
; compiling file "/«PKGBUILDDIR»/src/compiler/lexenv.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV))
; x-compiling (DEF!STRUCT (LEXENV # ...) ...)
; x-compiling (DEFUN LEXENV-POLICY ...)
; x-compiling (DEFUN NULL-LEXENV-P ...)
; x-compiling (DEFUN COERCE-TO-LEXENV ...)
; x-compiling (DEFUN PRINT-LEXENV ...)
; x-compiling (DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/lexenv.lisp-obj-tmp written
; compilation finished in 0:00:01.060
; compiling file "/«PKGBUILDDIR»/src/compiler/fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN COERCE ...)
; x-compiling (DEFKNOWN LIST-TO-VECTOR* ...)
; x-compiling (DEFKNOWN VECTOR-TO-VECTOR* ...)
; x-compiling (DEFKNOWN TYPE-OF ...)
; x-compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...)
; x-compiling (DEFKNOWN TYPEP ...)
; x-compiling (DEFKNOWN SUBTYPEP ...)
; x-compiling (DEFKNOWN (NULL SYMBOLP ...) ...)
; x-compiling (DEFKNOWN (EQ EQL ...) ...)
; x-compiling (DEFKNOWN (EQUAL EQUALP) ...)
; x-compiling (DEFKNOWN FIXNUM-MOD-P ...)
; x-compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...)
; x-compiling (DEFKNOWN CLASSOID-NAME ...)
; x-compiling (DEFKNOWN FIND-CLASSOID ...)
; x-compiling (DEFKNOWN CLASSOID-OF ...)
; x-compiling (DEFKNOWN LAYOUT-OF ...)
; x-compiling (DEFKNOWN COPY-STRUCTURE ...)
; x-compiling (DEFKNOWN (SYMBOL-VALUE) ...)
; x-compiling (DEFKNOWN ABOUT-TO-MODIFY-SYMBOL-VALUE ...)
; x-compiling (DEFKNOWN (SYMBOL-FUNCTION) ...)
; x-compiling (DEFKNOWN BOUNDP ...)
; x-compiling (DEFKNOWN FBOUNDP ...)
; x-compiling (DEFKNOWN SPECIAL-OPERATOR-P ...)
; x-compiling (DEFKNOWN SET ...)
; x-compiling (DEFKNOWN FDEFINITION ...)
; x-compiling (DEFKNOWN %SET-FDEFINITION ...)
; x-compiling (DEFKNOWN MAKUNBOUND ...)
; x-compiling (DEFKNOWN FMAKUNBOUND ...)
; x-compiling (DEFKNOWN APPLY ...)
; x-compiling (DEFKNOWN FUNCALL ...)
; x-compiling (DEFKNOWN (MAPCAR MAPLIST) ...)
; x-compiling (DEFKNOWN (MAPCAN MAPCON) ...)
; x-compiling (DEFKNOWN (MAPC MAPL) ...)
; x-compiling (DEFKNOWN VALUES ...)
; x-compiling (DEFKNOWN VALUES-LIST ...)
; x-compiling (DEFKNOWN MACRO-FUNCTION ...)
; x-compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...)
; x-compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...)
; x-compiling (DEFKNOWN PROCLAIM ...)
; x-compiling (DEFKNOWN GET ...)
; x-compiling (DEFKNOWN SB!IMPL::GET3 ...)
; x-compiling (DEFKNOWN REMPROP ...)
; x-compiling (DEFKNOWN SYMBOL-PLIST ...)
; x-compiling (DEFKNOWN GETF ...)
; x-compiling (DEFKNOWN GET-PROPERTIES ...)
; x-compiling (DEFKNOWN SYMBOL-NAME ...)
; x-compiling (DEFKNOWN MAKE-SYMBOL ...)
; x-compiling (DEFKNOWN %MAKE-SYMBOL ...)
; x-compiling (DEFKNOWN COPY-SYMBOL ...)
; x-compiling (DEFKNOWN GENSYM ...)
; x-compiling (DEFKNOWN SYMBOL-PACKAGE ...)
; x-compiling (DEFKNOWN KEYWORDP ...)
; x-compiling (DEFKNOWN GENTEMP ...)
; x-compiling (DEFKNOWN MAKE-PACKAGE ...)
; x-compiling (DEFKNOWN FIND-PACKAGE ...)
; x-compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...)
; x-compiling (DEFKNOWN PACKAGE-NAME ...)
; x-compiling (DEFKNOWN PACKAGE-NICKNAMES ...)
; x-compiling (DEFKNOWN RENAME-PACKAGE ...)
; x-compiling (DEFKNOWN PACKAGE-USE-LIST ...)
; x-compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...)
; x-compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...)
; x-compiling (DEFKNOWN LIST-ALL-PACKAGES ...)
; x-compiling (DEFKNOWN INTERN ...)
; x-compiling (DEFKNOWN FIND-SYMBOL ...)
; x-compiling (DEFKNOWN (EXPORT IMPORT) ...)
; x-compiling (DEFKNOWN UNINTERN ...)
; x-compiling (DEFKNOWN UNEXPORT ...)
; x-compiling (DEFKNOWN SHADOWING-IMPORT ...)
; x-compiling (DEFKNOWN SHADOW ...)
; x-compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...)
; x-compiling (DEFKNOWN FIND-ALL-SYMBOLS ...)
; x-compiling (DEFKNOWN PACKAGE-ITER-STEP ...)
; x-compiling (DEFKNOWN ZEROP ...)
; x-compiling (DEFKNOWN (PLUSP MINUSP) ...)
; x-compiling (DEFKNOWN (ODDP EVENP) ...)
; x-compiling (DEFKNOWN (=) ...)
; x-compiling (DEFKNOWN (/=) ...)
; x-compiling (DEFKNOWN (< > ...) ...)
; x-compiling (DEFKNOWN (MAX MIN) ...)
; x-compiling (DEFKNOWN (+ *) ...)
; x-compiling (DEFKNOWN - ...)
; x-compiling (DEFKNOWN / ...)
; x-compiling (DEFKNOWN (1+ 1-) ...)
; x-compiling (DEFKNOWN CONJUGATE ...)
; x-compiling (DEFKNOWN GCD ...)
; x-compiling (DEFKNOWN LCM ...)
; x-compiling (DEFKNOWN EXP ...)
; x-compiling (DEFKNOWN EXPT ...)
; x-compiling (DEFKNOWN LOG ...)
; x-compiling (DEFKNOWN SQRT ...)
; x-compiling (DEFKNOWN ISQRT ...)
; x-compiling (DEFKNOWN (ABS PHASE ...) ...)
; x-compiling (DEFKNOWN CIS ...)
; x-compiling (DEFKNOWN (SIN COS) ...)
; x-compiling (DEFKNOWN ATAN ...)
; x-compiling (DEFKNOWN (TAN SINH ...) ...)
; x-compiling (DEFKNOWN (ASIN ACOS ...) ...)
; x-compiling (DEFKNOWN FLOAT ...)
; x-compiling (DEFKNOWN (RATIONAL) ...)
; x-compiling (DEFKNOWN (RATIONALIZE) ...)
; x-compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...)
; x-compiling (DEFKNOWN (FLOOR CEILING ...) ...)
; x-compiling (DEFKNOWN TRUNCATE ...)
; x-compiling (DEFKNOWN %MULTIPLY-HIGH ...)
; x-compiling (DEFKNOWN (MOD REM) ...)
; x-compiling (DEFKNOWN (FFLOOR FCEILING ...) ...)
; x-compiling (DEFKNOWN DECODE-FLOAT ...)
; x-compiling (DEFKNOWN SCALE-FLOAT ...)
; x-compiling (DEFKNOWN FLOAT-RADIX ...)
; x-compiling (DEFKNOWN FLOAT-SIGN ...)
; x-compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...)
; x-compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...)
; x-compiling (DEFKNOWN COMPLEX ...)
; x-compiling (DEFKNOWN (REALPART IMAGPART) ...)
; x-compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...)
; x-compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...)
; x-compiling (DEFKNOWN BOOLE ...)
; x-compiling (DEFKNOWN LOGNOT ...)
; x-compiling (DEFKNOWN LOGTEST ...)
; x-compiling (DEFKNOWN LOGBITP ...)
; x-compiling (DEFKNOWN ASH ...)
; x-compiling (DEFKNOWN %ASH/RIGHT ...)
; x-compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...)
; x-compiling (DEFKNOWN BYTE ...)
; x-compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...)
; x-compiling (DEFKNOWN LDB ...)
; x-compiling (DEFKNOWN LDB-TEST ...)
; x-compiling (DEFKNOWN MASK-FIELD ...)
; x-compiling (DEFKNOWN DPB ...)
; x-compiling (DEFKNOWN DEPOSIT-FIELD ...)
; x-compiling (DEFKNOWN RANDOM ...)
; x-compiling (DEFKNOWN MAKE-RANDOM-STATE ...)
; x-compiling (DEFKNOWN SEED-RANDOM-STATE ...)
; x-compiling (DEFKNOWN RANDOM-STATE-P ...)
; x-compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...)
; x-compiling (DEFKNOWN DIGIT-CHAR-P ...)
; x-compiling (DEFKNOWN (CHAR=) ...)
; x-compiling (DEFKNOWN (CHAR/= CHAR< ...) ...)
; x-compiling (DEFKNOWN (CHAR-EQUAL CHAR-LESSP ...) ...)
; x-compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...)
; x-compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...)
; x-compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...)
; x-compiling (DEFKNOWN CHARACTER ...)
; x-compiling (DEFKNOWN CHAR-CODE ...)
; x-compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...)
; x-compiling (DEFKNOWN DIGIT-CHAR ...)
; x-compiling (DEFKNOWN CHAR-INT ...)
; x-compiling (DEFKNOWN CHAR-NAME ...)
; x-compiling (DEFKNOWN NAME-CHAR ...)
; x-compiling (DEFKNOWN CODE-CHAR ...)
; x-compiling (DEFKNOWN ELT ...)
; x-compiling (DEFKNOWN SUBSEQ ...)
; x-compiling (DEFKNOWN COPY-SEQ ...)
; x-compiling (DEFKNOWN LENGTH ...)
; x-compiling (DEFKNOWN REVERSE ...)
; x-compiling (DEFKNOWN NREVERSE ...)
; x-compiling (DEFKNOWN MAKE-SEQUENCE ...)
; x-compiling (DEFKNOWN CONCATENATE ...)
; x-compiling (DEFKNOWN %CONCATENATE-TO-STRING ...)
; x-compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...)
; x-compiling (DEFKNOWN (MAP %MAP) ...)
; x-compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...)
; x-compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...)
; x-compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...)
; x-compiling (DEFKNOWN MAP-INTO ...)
; x-compiling (DEFKNOWN (SB!IMPL::VECTOR-MAP-INTO/SIMPLE-ARRAY-NIL SB!IMPL::VECTOR-MAP-INTO/SIMPLE-BASE-STRING ...) ...)
; x-compiling (DEFKNOWN SOME ...)
; x-compiling (DEFKNOWN (EVERY NOTANY ...) ...)
; x-compiling (DEFKNOWN REDUCE ...)
; x-compiling (DEFKNOWN FILL ...)
; x-compiling (DEFKNOWN REPLACE ...)
; x-compiling (DEFKNOWN REMOVE ...)
; x-compiling (DEFKNOWN SUBSTITUTE ...)
; x-compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...)
; x-compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...)
; x-compiling (DEFKNOWN DELETE ...)
; x-compiling (DEFKNOWN NSUBSTITUTE ...)
; x-compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...)
; x-compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...)
; x-compiling (DEFKNOWN REMOVE-DUPLICATES ...)
; x-compiling (DEFKNOWN DELETE-DUPLICATES ...)
; x-compiling (DEFKNOWN FIND ...)
; x-compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...)
; x-compiling (DEFKNOWN POSITION ...)
; x-compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...)
; x-compiling (DEFKNOWN COUNT ...)
; x-compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...)
; x-compiling (DEFKNOWN (MISMATCH SEARCH) ...)
; x-compiling (DEFKNOWN (STABLE-SORT SORT) ...)
; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...)
; x-compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...)
; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...)
; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...)
; x-compiling (DEFKNOWN MERGE ...)
; x-compiling (DEFKNOWN READ-SEQUENCE ...)
; x-compiling (DEFKNOWN WRITE-SEQUENCE ...)
; x-compiling (DEFKNOWN (CAR CDR ...) ...)
; x-compiling (DEFKNOWN (CAAR CADR ...) ...)
; x-compiling (DEFKNOWN CONS ...)
; x-compiling (DEFKNOWN TREE-EQUAL ...)
; x-compiling (DEFKNOWN ENDP ...)
; x-compiling (DEFKNOWN LIST-LENGTH ...)
; x-compiling (DEFKNOWN (NTH FAST-&REST-NTH) ...)
; x-compiling (DEFKNOWN NTHCDR ...)
; x-compiling (DEFKNOWN LAST ...)
; x-compiling (DEFKNOWN %LAST0 ...)
; x-compiling (DEFKNOWN %LAST1 ...)
; x-compiling (DEFKNOWN %LASTN/FIXNUM ...)
; x-compiling (DEFKNOWN %LASTN/BIGNUM ...)
; x-compiling (DEFKNOWN LIST ...)
; x-compiling (DEFKNOWN LIST* ...)
; x-compiling (DEFKNOWN MAKE-LIST ...)
; x-compiling (DEFKNOWN SB!IMPL::|List| ...)
; x-compiling (DEFKNOWN SB!IMPL::|List*| ...)
; x-compiling (DEFKNOWN SB!IMPL::|Append| ...)
; x-compiling (DEFKNOWN SB!IMPL::|Vector| ...)
; x-compiling (DEFKNOWN APPEND ...)
; x-compiling (DEFKNOWN SB!IMPL::APPEND2 ...)
; x-compiling (DEFKNOWN COPY-LIST ...)
; x-compiling (DEFKNOWN COPY-ALIST ...)
; x-compiling (DEFKNOWN COPY-TREE ...)
; x-compiling (DEFKNOWN REVAPPEND ...)
; x-compiling (DEFKNOWN NCONC ...)
; x-compiling (DEFKNOWN NRECONC ...)
; x-compiling (DEFKNOWN BUTLAST ...)
; x-compiling (DEFKNOWN NBUTLAST ...)
; x-compiling (DEFKNOWN LDIFF ...)
; x-compiling (DEFKNOWN (RPLACA RPLACD) ...)
; x-compiling (DEFKNOWN SUBST ...)
; x-compiling (DEFKNOWN NSUBST ...)
; x-compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...)
; x-compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...)
; x-compiling (DEFKNOWN SUBLIS ...)
; x-compiling (DEFKNOWN NSUBLIS ...)
; x-compiling (DEFKNOWN MEMBER ...)
; x-compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...)
; x-compiling (DEFKNOWN TAILP ...)
; x-compiling (DEFKNOWN ADJOIN ...)
; x-compiling (DEFKNOWN (UNION INTERSECTION ...) ...)
; x-compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...)
; x-compiling (DEFKNOWN SUBSETP ...)
; x-compiling (DEFKNOWN ACONS ...)
; x-compiling (DEFKNOWN PAIRLIS ...)
; x-compiling (DEFKNOWN (RASSOC ASSOC) ...)
; x-compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...)
; x-compiling (DEFKNOWN (MEMQ ASSQ) ...)
; x-compiling (DEFKNOWN DELQ ...)
; x-compiling (DEFKNOWN MAKE-HASH-TABLE ...)
; x-compiling (DEFKNOWN HASH-TABLE-P ...)
; x-compiling (DEFKNOWN GETHASH ...)
; x-compiling (DEFKNOWN SB!IMPL::GETHASH3 ...)
; x-compiling (DEFKNOWN %PUTHASH ...)
; x-compiling (DEFKNOWN REMHASH ...)
; x-compiling (DEFKNOWN MAPHASH ...)
; x-compiling (DEFKNOWN CLRHASH ...)
; x-compiling (DEFKNOWN HASH-TABLE-COUNT ...)
; x-compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...)
; x-compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...)
; x-compiling (DEFKNOWN HASH-TABLE-SIZE ...)
; x-compiling (DEFKNOWN HASH-TABLE-TEST ...)
; x-compiling (DEFKNOWN SXHASH ...)
; x-compiling (DEFKNOWN PSXHASH ...)
; x-compiling (DEFKNOWN HASH-TABLE-EQUALP ...)
; x-compiling (DEFKNOWN MAKE-ARRAY ...)
; x-compiling (DEFKNOWN %MAKE-ARRAY ...)
; x-compiling (DEFKNOWN SB!IMPL::FILL-DATA-VECTOR ...)
; x-compiling (DEFKNOWN VECTOR ...)
; x-compiling (DEFKNOWN AREF ...)
; x-compiling (DEFKNOWN ROW-MAJOR-AREF ...)
; x-compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFKNOWN ARRAY-RANK ...)
; x-compiling (DEFKNOWN ARRAY-DIMENSION ...)
; x-compiling (DEFKNOWN ARRAY-DIMENSIONS ...)
; x-compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...)
; x-compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...)
; x-compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...)
; x-compiling (DEFKNOWN SVREF ...)
; x-compiling (DEFKNOWN BIT ...)
; x-compiling (DEFKNOWN SBIT ...)
; x-compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...)
; x-compiling (DEFKNOWN BIT-NOT ...)
; x-compiling (DEFKNOWN BIT-VECTOR-= ...)
; x-compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...)
; x-compiling (DEFKNOWN FILL-POINTER ...)
; x-compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...)
; x-compiling (DEFKNOWN VECTOR-PUSH ...)
; x-compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...)
; x-compiling (DEFKNOWN VECTOR-POP ...)
; x-compiling (DEFKNOWN ADJUST-ARRAY ...)
; x-compiling (DEFKNOWN CHAR ...)
; x-compiling (DEFKNOWN SCHAR ...)
; x-compiling (DEFKNOWN (STRING= STRING-EQUAL) ...)
; x-compiling (DEFKNOWN (STRING< STRING> ...) ...)
; x-compiling (DEFKNOWN MAKE-STRING ...)
; x-compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...)
; x-compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...)
; x-compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...)
; x-compiling (DEFKNOWN STRING ...)
; x-compiling (DEFKNOWN (STRING<* STRING>* ...) ...)
; x-compiling (DEFKNOWN STRING=* ...)
; x-compiling (DEFKNOWN EVAL ...)
; x-compiling (DEFKNOWN CONSTANTP ...)
; x-compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...)
; x-compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...)
; x-compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...)
; x-compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...)
; x-compiling (DEFKNOWN MAKE-ECHO-STREAM ...)
; x-compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...)
; x-compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...)
; x-compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...)
; x-compiling (DEFKNOWN STREAMP ...)
; x-compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...)
; x-compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...)
; x-compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...)
; x-compiling (DEFKNOWN OPEN-STREAM-P ...)
; x-compiling (DEFKNOWN CLOSE ...)
; x-compiling (DEFKNOWN FILE-STRING-LENGTH ...)
; x-compiling (DEFKNOWN COPY-READTABLE ...)
; x-compiling (DEFKNOWN READTABLEP ...)
; x-compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...)
; x-compiling (DEFKNOWN SET-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN GET-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...)
; x-compiling (DEFKNOWN PPRINT-DISPATCH ...)
; x-compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...)
; x-compiling (DEFKNOWN PPRINT-TABULAR ...)
; x-compiling (DEFKNOWN PPRINT-INDENT ...)
; x-compiling (DEFKNOWN PPRINT-NEWLINE ...)
; x-compiling (DEFKNOWN PPRINT-TAB ...)
; x-compiling (DEFKNOWN SET-PPRINT-DISPATCH ...)
; x-compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...)
; x-compiling (DEFKNOWN READ-CHAR ...)
; x-compiling (DEFKNOWN READ-CHAR-NO-HANG ...)
; x-compiling (DEFKNOWN READ-DELIMITED-LIST ...)
; x-compiling (DEFKNOWN READ-LINE ...)
; x-compiling (DEFKNOWN UNREAD-CHAR ...)
; x-compiling (DEFKNOWN PEEK-CHAR ...)
; x-compiling (DEFKNOWN LISTEN ...)
; x-compiling (DEFKNOWN CLEAR-INPUT ...)
; x-compiling (DEFKNOWN READ-FROM-STRING ...)
; x-compiling (DEFKNOWN PARSE-INTEGER ...)
; x-compiling (DEFKNOWN READ-BYTE ...)
; x-compiling (DEFKNOWN (PRIN1 PRINT ...) ...)
; x-compiling (DEFKNOWN OUTPUT-OBJECT ...)
; x-compiling (DEFKNOWN (PPRINT) ...)
; x-compiling (DEFFROB WRITE ...)
; x-compiling (DEFFROB WRITE-TO-STRING ...)
; x-compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...)
; x-compiling (DEFKNOWN SB!IMPL::STRINGIFY-OBJECT ...)
; x-compiling (DEFKNOWN WRITE-CHAR ...)
; x-compiling (DEFKNOWN (WRITE-STRING WRITE-LINE) ...)
; x-compiling (DEFKNOWN (TERPRI FINISH-OUTPUT ...) ...)
; x-compiling (DEFKNOWN FRESH-LINE ...)
; x-compiling (DEFKNOWN WRITE-BYTE ...)
; x-compiling (DEFKNOWN FORMAT ...)
; x-compiling (DEFKNOWN SB!FORMAT::ARGS-EXHAUSTED ...)
; x-compiling (DEFKNOWN (Y-OR-N-P YES-OR-NO-P) ...)
; x-compiling (DEFKNOWN WILD-PATHNAME-P ...)
; x-compiling (DEFKNOWN PATHNAME-MATCH-P ...)
; x-compiling (DEFKNOWN TRANSLATE-PATHNAME ...)
; x-compiling (DEFKNOWN LOGICAL-PATHNAME ...)
; x-compiling (DEFKNOWN TRANSLATE-LOGICAL-PATHNAME ...)
; x-compiling (DEFKNOWN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFKNOWN LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFKNOWN PATHNAME ...)
; x-compiling (DEFKNOWN TRUENAME ...)
; x-compiling (DEFKNOWN PARSE-NAMESTRING ...)
; x-compiling (DEFKNOWN MERGE-PATHNAMES ...)
; x-compiling (DEFKNOWN MAKE-PATHNAME ...)
; x-compiling (DEFKNOWN PATHNAMEP ...)
; x-compiling (DEFKNOWN PATHNAME-HOST ...)
; x-compiling (DEFKNOWN PATHNAME-DEVICE ...)
; x-compiling (DEFKNOWN PATHNAME-DIRECTORY ...)
; x-compiling (DEFKNOWN PATHNAME-NAME ...)
; x-compiling (DEFKNOWN PATHNAME-TYPE ...)
; x-compiling (DEFKNOWN PATHNAME-VERSION ...)
; x-compiling (DEFKNOWN PATHNAME= ...)
; x-compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...)
; x-compiling (DEFKNOWN ENOUGH-NAMESTRING ...)
; x-compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...)
; x-compiling (DEFKNOWN OPEN ...)
; x-compiling (DEFKNOWN RENAME-FILE ...)
; x-compiling (DEFKNOWN DELETE-FILE ...)
; x-compiling (DEFKNOWN PROBE-FILE ...)
; x-compiling (DEFKNOWN FILE-WRITE-DATE ...)
; x-compiling (DEFKNOWN FILE-AUTHOR ...)
; x-compiling (DEFKNOWN FILE-POSITION ...)
; x-compiling (DEFKNOWN FILE-LENGTH ...)
; x-compiling (DEFKNOWN LOAD ...)
; x-compiling (DEFKNOWN DIRECTORY ...)
; x-compiling (DEFKNOWN ERROR ...)
; x-compiling (DEFKNOWN CERROR ...)
; x-compiling (DEFKNOWN INVALID-METHOD-ERROR ...)
; x-compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...)
; x-compiling (DEFKNOWN SIGNAL ...)
; x-compiling (DEFKNOWN WARN ...)
; x-compiling (DEFKNOWN INVOKE-DEBUGGER ...)
; x-compiling (DEFKNOWN BREAK ...)
; x-compiling (DEFKNOWN MAKE-CONDITION ...)
; x-compiling (DEFKNOWN COMPUTE-RESTARTS ...)
; x-compiling (DEFKNOWN FIND-RESTART ...)
; x-compiling (DEFKNOWN INVOKE-RESTART ...)
; x-compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...)
; x-compiling (DEFKNOWN RESTART-NAME ...)
; x-compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...)
; x-compiling (DEFKNOWN CONTINUE ...)
; x-compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...)
; x-compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...)
; x-compiling (DEFKNOWN BUG ...)
; x-compiling (DEFKNOWN SIMPLE-READER-ERROR ...)
; x-compiling (DEFKNOWN READER-EOF-ERROR ...)
; x-compiling (DEFKNOWN COMPILE ...)
; x-compiling (DEFKNOWN COMPILE-FILE ...)
; x-compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...)
; x-compiling (DEFKNOWN DISASSEMBLE ...)
; x-compiling (DEFKNOWN DESCRIBE ...)
; x-compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...)
; x-compiling (DEFKNOWN INSPECT ...)
; x-compiling (DEFKNOWN ROOM ...)
; x-compiling (DEFKNOWN ED ...)
; x-compiling (DEFKNOWN DRIBBLE ...)
; x-compiling (DEFKNOWN APROPOS ...)
; x-compiling (DEFKNOWN APROPOS-LIST ...)
; x-compiling (DEFKNOWN GET-DECODED-TIME ...)
; x-compiling (DEFKNOWN GET-UNIVERSAL-TIME ...)
; x-compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...)
; x-compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...)
; x-compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...)
; x-compiling (DEFKNOWN SLEEP ...)
; x-compiling (DEFKNOWN CALL-WITH-TIMING ...)
; x-compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...)
; x-compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...)
; x-compiling (DEFKNOWN IDENTITY ...)
; x-compiling (DEFKNOWN CONSTANTLY ...)
; x-compiling (DEFKNOWN COMPLEMENT ...)
; x-compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEFKNOWN GET-BYTES-CONSED ...)
; x-compiling (DEFKNOWN MASK-SIGNED-FIELD ...)
; x-compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...)
; x-compiling (DEFKNOWN %REST-VALUES ...)
; x-compiling (DEFKNOWN %REST-REF ...)
; x-compiling (DEFKNOWN %REST-LENGTH ...)
; x-compiling (DEFKNOWN %REST-NULL ...)
; x-compiling (DEFKNOWN %REST-TRUE ...)
; x-compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN %TYPEP ...)
; x-compiling (DEFKNOWN %INSTANCE-TYPEP ...)
; x-compiling (DEFKNOWN %TYPEP-WRAPPER ...)
; x-compiling (DEFKNOWN %CLEANUP-POINT ...)
; x-compiling (DEFKNOWN %SPECIAL-BIND ...)
; x-compiling (DEFKNOWN %SPECIAL-UNBIND ...)
; x-compiling (DEFKNOWN %LISTIFY-REST-ARGS ...)
; x-compiling (DEFKNOWN %MORE-ARG-CONTEXT ...)
; x-compiling (DEFKNOWN %MORE-ARG ...)
; x-compiling (DEFKNOWN %MORE-ARG-VALUES ...)
; x-compiling (DEFKNOWN %ARG-COUNT-ERROR ...)
; x-compiling (DEFKNOWN %UNKNOWN-VALUES ...)
; x-compiling (DEFKNOWN %CATCH ...)
; x-compiling (DEFKNOWN %UNWIND-PROTECT ...)
; x-compiling (DEFKNOWN (%CATCH-BREAKUP %UNWIND-PROTECT-BREAKUP) ...)
; x-compiling (DEFKNOWN %LEXICAL-EXIT-BREAKUP ...)
; x-compiling (DEFKNOWN %CONTINUE-UNWIND ...)
; x-compiling (DEFKNOWN %THROW ...)
; x-compiling (DEFKNOWN %NLX-ENTRY ...)
; x-compiling (DEFKNOWN %%PRIMITIVE ...)
; x-compiling (DEFKNOWN %POP-VALUES ...)
; x-compiling (DEFKNOWN %NIP-VALUES ...)
; x-compiling (DEFKNOWN %DUMMY-DX-ALLOC ...)
; x-compiling (DEFKNOWN %ALLOCATE-CLOSURES ...)
; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR ...)
; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR/C ...)
; x-compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...)
; x-compiling (DEFKNOWN CASE-FAILURE ...)
; x-compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...)
; x-compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...)
; x-compiling (DEFKNOWN (%LDB %MASK-FIELD) ...)
; x-compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...)
; x-compiling (DEFKNOWN %NEGATE ...)
; x-compiling (DEFKNOWN %CHECK-BOUND ...)
; x-compiling (DEFKNOWN DATA-VECTOR-REF ...)
; x-compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...)
; x-compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...)
; x-compiling (DEFKNOWN DATA-VECTOR-SET ...)
; x-compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; x-compiling (DEFKNOWN %CALLER-FRAME ...)
; x-compiling (DEFKNOWN %CALLER-PC ...)
; x-compiling (DEFKNOWN %WITH-ARRAY-DATA ...)
; x-compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...)
; x-compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; x-compiling (DEFKNOWN %FIND-POSITION ...)
; x-compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...)
; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...)
; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...)
; x-compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...)
; x-compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...)
; x-compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...)
; x-compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...)
; x-compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...)
; x-compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...)
; x-compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...)
; x-compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...)
; x-compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...)
; x-compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...)
; x-compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; x-compiling (DEFKNOWN ARG-COUNT-ERROR ...)
; x-compiling (DEFKNOWN (SETF AREF) ...)
; x-compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...)
; x-compiling (DEFKNOWN (%RPLACA %RPLACD) ...)
; x-compiling (DEFKNOWN %PUT ...)
; x-compiling (DEFKNOWN %SETELT ...)
; x-compiling (DEFKNOWN %SVSET ...)
; x-compiling (DEFKNOWN (SETF BIT) ...)
; x-compiling (DEFKNOWN (SETF SBIT) ...)
; x-compiling (DEFKNOWN %CHARSET ...)
; x-compiling (DEFKNOWN %SCHARSET ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-VALUE ...)
; x-compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-PLIST ...)
; x-compiling (DEFKNOWN %SETNTH ...)
; x-compiling (DEFKNOWN %SET-FILL-POINTER ...)
; x-compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...)
; x-compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFKNOWN %FUN-NAME ...)
; x-compiling (DEFKNOWN (SETF %FUN-NAME) ...)
; x-compiling (DEFKNOWN POLICY-QUALITY ...)
; x-compiling (DEFKNOWN COMPILER-ERROR ...)
; x-compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...)
; x-compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...)
; x-compiling (DEFKNOWN STYLE-WARN ...)
; x-compiling (DEFKNOWN COERCE-TO-CONDITION ...)
; x-compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...)
; x-compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...)
; x-compiling (DEFKNOWN SET-INFO-VALUE ...)
; x-compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%READ-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...)
; x-compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...)
; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...)
; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...)
; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; x-compiling (DEFKNOWN (%ATOMIC-DEC-SYMBOL-GLOBAL-VALUE %ATOMIC-INC-SYMBOL-GLOBAL-VALUE) ...)
; x-compiling (DEFKNOWN (%ATOMIC-DEC-CAR %ATOMIC-INC-CAR ...) ...)
; x-compiling (DEFKNOWN SPIN-LOOP-HINT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fndb.lisp-obj-tmp written
; compilation finished in 0:00:03.631
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-fndb.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...)
; x-compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...)
; x-compiling (DEFKNOWN %OTHER-POINTER-P ...)
; x-compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...)
; x-compiling (DEFKNOWN POINTER-HASH ...)
; x-compiling (DEFKNOWN %SP-STRING-COMPARE ...)
; x-compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...)
; x-compiling (DEFKNOWN (%SXHASH-SIMPLE-SUBSTRING COMPUTE-SYMBOL-HASH) ...)
; x-compiling (DEFKNOWN SYMBOL-HASH ...)
; x-compiling (DEFKNOWN %SET-SYMBOL-HASH ...)
; x-compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...)
; x-compiling (DEFKNOWN INITIALIZE-VECTOR ...)
; x-compiling (DEFKNOWN VECTOR-FILL* ...)
; x-compiling (DEFKNOWN VECTOR-LENGTH ...)
; x-compiling (DEFKNOWN VECTOR-SAP ...)
; x-compiling (DEFKNOWN LOWTAG-OF ...)
; x-compiling (DEFKNOWN WIDETAG-OF ...)
; x-compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...)
; x-compiling (DEFKNOWN SET-HEADER-DATA ...)
; x-compiling (DEFKNOWN %ARRAY-DIMENSION ...)
; x-compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...)
; x-compiling (DEFKNOWN %ARRAY-RANK ...)
; x-compiling (DEFKNOWN %MAKE-INSTANCE ...)
; x-compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...)
; x-compiling (DEFKNOWN %INSTANCE-LAYOUT ...)
; x-compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...)
; x-compiling (DEFKNOWN %INSTANCE-LENGTH ...)
; x-compiling (DEFKNOWN %INSTANCE-REF ...)
; x-compiling (DEFKNOWN %INSTANCE-SET ...)
; x-compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; x-compiling (DEFKNOWN %VECTOR-RAW-BITS ...)
; x-compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...)
; x-compiling (DEFKNOWN ALLOCATE-VECTOR ...)
; x-compiling (DEFKNOWN MAKE-ARRAY-HEADER ...)
; x-compiling (DEFKNOWN MAKE-WEAK-POINTER ...)
; x-compiling (DEFKNOWN %MAKE-COMPLEX ...)
; x-compiling (DEFKNOWN %MAKE-RATIO ...)
; x-compiling (DEFKNOWN MAKE-VALUE-CELL ...)
; x-compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...)
; x-compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...)
; x-compiling (DEFKNOWN CURRENT-SP ...)
; x-compiling (DEFKNOWN CURRENT-FP ...)
; x-compiling (DEFKNOWN STACK-REF ...)
; x-compiling (DEFKNOWN %SET-STACK-REF ...)
; x-compiling (DEFKNOWN LRA-CODE-HEADER ...)
; x-compiling (DEFKNOWN FUN-CODE-HEADER ...)
; x-compiling (DEFKNOWN %MAKE-LISP-OBJ ...)
; x-compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...)
; x-compiling (DEFKNOWN FUN-WORD-OFFSET ...)
; x-compiling (DEFKNOWN WORD-LOGICAL-NOT ...)
; x-compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...)
; x-compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...)
; x-compiling (DEFKNOWN %ALLOCATE-BIGNUM ...)
; x-compiling (DEFKNOWN %BIGNUM-LENGTH ...)
; x-compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...)
; x-compiling (DEFKNOWN %BIGNUM-REF ...)
; x-compiling (DEFKNOWN %BIGNUM-SET ...)
; x-compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...)
; x-compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...)
; x-compiling (DEFKNOWN %MULTIPLY-AND-ADD ...)
; x-compiling (DEFKNOWN %MULTIPLY ...)
; x-compiling (DEFKNOWN %LOGNOT ...)
; x-compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...)
; x-compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...)
; x-compiling (DEFKNOWN %BIGFLOOR ...)
; x-compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...)
; x-compiling (DEFKNOWN (%ASHL %ASHR ...) ...)
; x-compiling (DEFINE-KNOWN-COPIERS)
; x-compiling (DEFKNOWN %BYTE-BLT ...)
; x-compiling (DEFKNOWN CODE-INSTRUCTIONS ...)
; x-compiling (DEFKNOWN CODE-HEADER-REF ...)
; x-compiling (DEFKNOWN CODE-HEADER-SET ...)
; x-compiling (DEFKNOWN FUN-SUBTYPE ...)
; x-compiling (DEFKNOWN (#) ...)
; x-compiling (DEFKNOWN MAKE-FDEFN ...)
; x-compiling (DEFKNOWN FDEFN-P ...)
; x-compiling (DEFKNOWN FDEFN-NAME ...)
; x-compiling (DEFKNOWN FDEFN-FUN ...)
; x-compiling (DEFKNOWN (SETF FDEFN-FUN) ...)
; x-compiling (DEFKNOWN FDEFN-MAKUNBOUND ...)
; x-compiling (DEFKNOWN %SIMPLE-FUN-SELF ...)
; x-compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...)
; x-compiling (DEFKNOWN %CLOSURE-FUN ...)
; x-compiling (DEFKNOWN %CLOSURE-INDEX-REF ...)
; x-compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...)
; x-compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj-tmp written
; compilation finished in 0:00:00.738
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-objdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (FROB)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/late-objdef.lisp-obj-tmp written
; compilation finished in 0:00:00.466
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/interr.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN ERROR-NUMBER-OR-LOSE ...)
; x-compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...)
; x-compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/interr.lisp-obj-tmp written
; compilation finished in 0:00:00.378
; compiling file "/«PKGBUILDDIR»/src/compiler/bit-util.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (INLINE CLEAR-BIT-VECTOR ...))
; x-compiling (DEFUN CLEAR-BIT-VECTOR ...)
; x-compiling (DEFUN SET-BIT-VECTOR ...)
; x-compiling (DEFUN BIT-VECTOR-REPLACE ...)
; x-compiling (DEFUN BIT-VECTOR-COPY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/bit-util.lisp-obj-tmp written
; compilation finished in 0:00:00.395
; compiling file "/«PKGBUILDDIR»/src/compiler/early-assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!ASSEM")
; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-BITS ...)
; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-MASK ...)
; x-compiling (DEF!TYPE ASSEMBLY-UNIT ...)
; x-compiling (DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT ...)
; x-compiling (DEF!CONSTANT MAX-ALIGNMENT ...)
; x-compiling (DEF!TYPE ALIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-assem.lisp-obj-tmp written
; compilation finished in 0:00:00.154
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/core.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFSTRUCT (CORE-OBJECT # ...) ...)
; x-compiling (DEFUN NOTE-FUN ...)
; x-compiling (DEFUN DO-CORE-FIXUPS ...)
; x-compiling (DEFUN REFERENCE-CORE-FUN ...)
; x-compiling (DEFUN CORE-CALL-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN FIX-CORE-SOURCE-INFO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/core.lisp-obj-tmp written
; compilation finished in 0:00:00.485
; compiling file "/«PKGBUILDDIR»/src/code/thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (DEF!TYPE THREAD-NAME ...)
; x-compiling (DEF!STRUCT (THREAD #) ...)
; x-compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...)

; file: /«PKGBUILDDIR»/src/code/thread.lisp
; in: DECLAIM (INLINE MAKE-MUTEX)
;     (DECLAIM (INLINE SB!THREAD:MAKE-MUTEX))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!THREAD:MAKE-MUTEX) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!THREAD:MAKE-MUTEX to be INLINE, but 11 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE MAKE-MUTEX))
; x-compiling (DEF!STRUCT MUTEX ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-MUTEX))
; x-compiling (DEFUN MUTEX-VALUE ...)
; x-compiling (DEFUN HOLDING-MUTEX-P ...)
; x-compiling (DEFSETF MUTEX-VALUE ...)
; x-compiling (DECLAIM (INLINE SET-MUTEX-VALUE))
; x-compiling (DEFUN SET-MUTEX-VALUE ...)
; x-compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...)
; x-compiling (DEFTYPE SPINLOCK ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...)
; x-compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...)
; x-compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...)
; x-compiling (SB-XC:DEFMACRO WITH-MUTEX ...)
; x-compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...)
; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...)
; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...)
; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX)
; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; x-compiling (DEFUN CALL-WITH-MUTEX ...)
; x-compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...)
; x-compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/thread.lisp-obj-tmp written
; compilation finished in 0:00:02.750
; compiling file "/«PKGBUILDDIR»/src/code/load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFUN LOAD-FRESH-LINE ...)
; x-compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...)
; x-compiling (DECLAIM (INLINE READ-BYTE))
; x-compiling (DEFMACRO FAST-READ-U-INTEGER ...)
; x-compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...)
; x-compiling (DEFMACRO FAST-READ-S-INTEGER ...)
; x-compiling (DEFMACRO READ-ARG ...)
; x-compiling (DECLAIM (INLINE READ-BYTE-ARG ...))
; x-compiling (DEFUN READ-BYTE-ARG ...)
; x-compiling (DEFUN READ-HALFWORD-ARG ...)
; x-compiling (DEFUN READ-WORD-ARG ...)
; x-compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...)
; x-compiling (DECLAIM (INLINE REF-FOP-TABLE))
; x-compiling (DEFUN REF-FOP-TABLE ...)
; x-compiling (DEFUN PUSH-FOP-TABLE ...)
; x-compiling (DEFUN MAKE-FOP-VECTOR ...)
; x-compiling (DEFUN GROW-FOP-VECTOR ...)
; x-compiling (DEFUN NUKE-FOP-VECTOR ...)
; x-compiling (DECLAIM (INLINE FOP-STACK-EMPTY-P))
; x-compiling (DEFUN FOP-STACK-EMPTY-P ...)
; x-compiling (DEFUN FOP-STACK-POP-N ...)
; x-compiling (DEFUN PUSH-FOP-STACK ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...)
; x-compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN MAYBE-SKIP-SHEBANG-LINE
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN MAYBE-SKIP-SHEBANG-LINE ...)
; x-compiling (DEFUN FASL-HEADER-P ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN CHECK-FASL-HEADER
;     (READ-BYTE STREAM NIL)
; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN CHECK-FASL-HEADER ...)
; x-compiling (DEFCONSTANT +2-OPERAND-FOPS+ ...)

; file: /«PKGBUILDDIR»/src/code/load.lisp
; in: DEFUN LOAD-FASL-GROUP
;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   "~&~6x : [~D,~D] ~2,'0x(~A)"
; 
; note: deleting unreachable code

;     (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!FASL::FASL-INPUT
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "~&~6x : [~D,~D] ~2,'0x(~A)"
;             (1- (FILE-POSITION STREAM))
;             (SVREF (SB!FASL::%FASL-INPUT-STACK SB!FASL::FASL-INPUT) 0)
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0) SB-XC:BYTE
;             (AREF SB!FASL::**FOP-NAMES** SB-XC:BYTE))
; ==>
;   SB-XC:BYTE
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* "{~D~@[,~D~]}" SB!FASL::ARG1 SB!FASL::ARG2)
; ==>
;   "{~D~@[,~D~]}"
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; ==>
;   " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]"
; 
; note: deleting unreachable code

;     (EQL SB!FASL::PTR 0)
; ==>
;   SB!FASL::PTR
; 
; note: deleting unreachable code

;     (AREF SB!FASL::STACK SB!FASL::PTR)
; ==>
;   SB!FASL::STACK
; 
; note: deleting unreachable code

;     (FORMAT *TRACE-OUTPUT* " -- ~[<empty>,~D~:;[~:*~D,~D] ~S~]" SB!FASL::PTR
;             (SVREF (SB!FASL::%FASL-INPUT-TABLE SB!FASL::FASL-INPUT) 0)
;             (UNLESS (EQL SB!FASL::PTR 0) (AREF SB!FASL::STACK SB!FASL::PTR)))
; 
; note: deleting unreachable code

;     (READ-BYTE STREAM)
; --> BLOCK IF LET SB!GRAY:STREAM-READ-BYTE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFUN LOAD-FASL-GROUP ...)
; x-compiling (DEFUN LOAD-AS-FASL ...)
; 
; compilation unit finished
;   printed 12 notes
; x-compiling (DECLAIM (NOTINLINE READ-BYTE))

; /«PKGBUILDDIR»/obj/from-xc/src/code/load.lisp-obj-tmp written
; compilation finished in 0:00:03.469
; compiling file "/«PKGBUILDDIR»/src/code/linkage-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ...)
; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ...)
; x-compiling (DEFVAR *LINKAGE-INFO* ...)
; x-compiling (DEFUN WRITE-LINKAGE-TABLE-ENTRY ...)
; x-compiling (DEFUN LINK-FOREIGN-SYMBOL ...)
; x-compiling (DEFUN ENSURE-FOREIGN-SYMBOL-LINKAGE ...)
; x-compiling (DEFUN UPDATE-LINKAGE-TABLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/linkage-table.lisp-obj-tmp written
; compilation finished in 0:00:00.320
; compiling file "/«PKGBUILDDIR»/src/code/foreign-load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFVAR *SHARED-OBJECTS-LOCK* ...)
; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-FOREIGN ...)
; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-1-FOREIGN ...)
; x-compiling (DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ADDRESS ...)
; x-compiling (DEFVAR *RUNTIME-DLHANDLE*)
; x-compiling (DEFVAR *SHARED-OBJECTS*)
; x-compiling (DEFSTRUCT SHARED-OBJECT ...)
; x-compiling (DEFUN LOAD-SHARED-OBJECT ...)
; x-compiling (DEFUN UNLOAD-SHARED-OBJECT ...)
; x-compiling (DEFUN TRY-REOPEN-SHARED-OBJECT ...)
; x-compiling (DEFUN REOPEN-SHARED-OBJECTS ...)
; x-compiling (DEFUN CLOSE-SHARED-OBJECTS ...)
; x-compiling (LET (# #) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/foreign-load.lisp-obj-tmp written
; compilation finished in 0:00:01.200
; compiling file "/«PKGBUILDDIR»/src/code/unix-foreign-load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!ALIEN")
; x-compiling (DEFINE-ALIEN-ROUTINE DLOPEN ...)
; x-compiling (DEFINE-ALIEN-ROUTINE DLCLOSE ...)
; x-compiling (DEFINE-ALIEN-ROUTINE DLERROR ...)
; x-compiling (DEFINE-ALIEN-ROUTINE DLSYM ...)
; x-compiling (DEFUN DLOPEN-OR-LOSE ...)
; x-compiling (DEFUN DLCLOSE-OR-LOSE ...)
; x-compiling (DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unix-foreign-load.lisp-obj-tmp written
; compilation finished in 0:00:00.565
; compiling file "/«PKGBUILDDIR»/src/code/foreign.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN EXTERN-ALIEN-NAME ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...)
; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFUN FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFUN FOREIGN-REINIT ...)
; x-compiling (DEFUN FOREIGN-DEINIT ...)
; x-compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL))
; x-compiling (DEFUN SAP-FOREIGN-SYMBOL ...)
; x-compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*)
; x-compiling (DEFUN !FOREIGN-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/foreign.lisp-obj-tmp written
; compilation finished in 0:00:00.934
; compiling file "/«PKGBUILDDIR»/src/code/fop.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFMACRO WITH-FOP-STACK ...)
; x-compiling (DEFMACRO !DEFINE-FOP ...)
; x-compiling (DEFUN !%DEFINE-FOP ...)
; x-compiling (DEFUN READ-STRING-AS-BYTES ...)
; x-compiling (DEFUN READ-BASE-STRING-AS-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN READ-STRING-AS-UNSIGNED-BYTE-32
;     (SB-XC:CODE-CHAR (SB!INT:FAST-READ-U-INTEGER 4))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G277
;    'SB!KERNEL::OBJECT-NOT-UNICODE-CODE-POINT-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...)
; x-compiling (!DEFINE-FOP 137 ...)
; x-compiling (!DEFINE-FOP 0 ...)
; x-compiling (!DEFINE-FOP 1 ...)
; x-compiling (!DEFINE-FOP 2 ...)
; x-compiling (!DEFINE-FOP 3 ...)
; x-compiling (!DEFINE-FOP 4 ...)
; x-compiling (!DEFINE-FOP 66 ...)
; x-compiling (!DEFINE-FOP 76 ...)
; x-compiling (!DEFINE-FOP 48 ...)
; x-compiling (!DEFINE-FOP 45 ...)
; x-compiling (!DEFINE-FOP 68 ...)
; x-compiling (!DEFINE-FOP 69 ...)
; x-compiling (!DEFINE-FOP 64 ...)
; x-compiling (!DEFINE-FOP 62 ...)
; x-compiling (!DEFINE-FOP 63 ...)
; x-compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...)
; x-compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE))
; x-compiling (DEFUN AUX-FOP-INTERN ...)
; x-compiling (!DEFINE-FOP 80 ...)
; x-compiling (!DEFINE-FOP 84 ...)
; x-compiling (!DEFINE-FOP 240 ...)
; x-compiling (!DEFINE-FOP 96 ...)
; x-compiling (!DEFINE-FOP 104 ...)
; x-compiling (!DEFINE-FOP 44 ...)
; x-compiling (!DEFINE-FOP 156 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN LOAD-S-INTEGER
;     (ASH 1 SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &REST T).
;       etc.

;     (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (INTEGER 1), 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (ASH SB-XC:BYTE SB!FASL::BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX))
;           (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE))
;           (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)))
;           (SB!FASL::BITS 0 (+ SB!FASL::BITS 8)))
;          ((= SB!INT:INDEX 0)
;           (IF (LOGBITP 7 SB-XC:BYTE)
;               (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS))
;               SB!FASL::RESULT))
;       (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS)))
; --> BLOCK LET* TAGBODY SETQ SETQ 
; ==>
;   (THE FIXNUM (1- SB!INT:INDEX))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; ==>
;   (THE FIXNUM (+ SB!FASL::BITS 8))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; x-compiling (DEFUN LOAD-S-INTEGER ...)
; x-compiling (!DEFINE-FOP 36 ...)
; x-compiling (!DEFINE-FOP 34 ...)
; x-compiling (!DEFINE-FOP 35 ...)
; x-compiling (!DEFINE-FOP 70 ...)
; x-compiling (!DEFINE-FOP 71 ...)
; x-compiling (DEFINE-COMPLEX-FOP 72 ...)
; x-compiling (DEFINE-COMPLEX-FOP 73 ...)
; x-compiling (DEFINE-FLOAT-FOP 46 ...)
; x-compiling (DEFINE-FLOAT-FOP 47 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: DEFUN FOP-LIST-FROM-STACK
;     (DO* ((SB!FASL::I (+ SB!FASL::PTR SB!FASL::N) (1- SB!FASL::I))
;           (SB!FASL::RES NIL
;                         (CONS (SB!FASL::FOP-STACK-REF SB!FASL::I) SB!FASL::RES)))
;          ((= SB!FASL::I SB!FASL::PTR) SB!FASL::RES)
;       (DECLARE (TYPE SB!INT:INDEX SB!FASL::I)))
; --> BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G1297 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN FOP-LIST-FROM-STACK ...)
; x-compiling (!DEFINE-FOP 33 ...)
; x-compiling (!DEFINE-FOP 16 ...)
; x-compiling (FROB FOP-LIST-1 ...)
; x-compiling (FROB FOP-LIST-2 ...)
; x-compiling (FROB FOP-LIST-3 ...)
; x-compiling (FROB FOP-LIST-4 ...)
; x-compiling (FROB FOP-LIST-5 ...)
; x-compiling (FROB FOP-LIST-6 ...)
; x-compiling (FROB FOP-LIST-7 ...)
; x-compiling (FROB FOP-LIST-8 ...)
; x-compiling (FROB FOP-LIST*-1 ...)
; x-compiling (FROB FOP-LIST*-2 ...)
; x-compiling (FROB FOP-LIST*-3 ...)
; x-compiling (FROB FOP-LIST*-4 ...)
; x-compiling (FROB FOP-LIST*-5 ...)
; x-compiling (FROB FOP-LIST*-6 ...)
; x-compiling (FROB FOP-LIST*-7 ...)
; x-compiling (FROB FOP-LIST*-8 ...)
; x-compiling (!DEFINE-FOP 100 ...)
; x-compiling (!DEFINE-FOP 160 ...)
; x-compiling (!DEFINE-FOP 92 ...)
; x-compiling (!DEFINE-FOP 89 ...)
; x-compiling (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (!DEFINE-FOP 43 ...)
; x-compiling (!DEFINE-FOP 53 ...)
; x-compiling (!DEFINE-FOP 54 ...)
; x-compiling (DEFUN FOP-FUNCALL* ...)
; x-compiling (!DEFINE-FOP 55 ...)
; x-compiling (!DEFINE-FOP 56 ...)
; x-compiling (!DEFINE-FOP 200 ...)
; x-compiling (!DEFINE-FOP 201 ...)
; x-compiling (!DEFINE-FOP 202 ...)
; x-compiling (!DEFINE-FOP 204 ...)
; x-compiling (!DEFINE-FOP 203 ...)
; x-compiling (!DEFINE-FOP 224 ...)
; x-compiling (!DEFINE-FOP 60 ...)
; x-compiling (!DEFINE-FOP 65 ...)
; x-compiling (!DEFINE-FOP 61 ...)
; x-compiling (!DEFINE-FOP 174 ...)
; x-compiling (!DEFINE-FOP 140 ...)
; x-compiling (!DEFINE-FOP 139 ...)
; x-compiling (!DEFINE-FOP 144 ...)
; x-compiling (!DEFINE-FOP 145 ...)
; x-compiling (!DEFINE-FOP 146 ...)
; x-compiling (!DEFINE-FOP 147 ...)
; x-compiling (!DEFINE-FOP 148 ...)
; x-compiling (!DEFINE-FOP 149 ...)
; x-compiling (!DEFINE-FOP 150 ...)
; x-compiling (!DEFINE-FOP 151 ...)
; x-compiling (!DEFINE-FOP 152 ...)
; x-compiling (!DEFINE-FOP 153 ...)
; x-compiling (!DEFINE-FOP 154 ...)
; x-compiling (!DEFINE-FOP 155 ...)

; file: /«PKGBUILDDIR»/src/code/fop.lisp
; in: !DEFINE-FOP 68
;     (ALLOCATE-INSTANCE (FIND-CLASS (THE SYMBOL SB!FASL::NAME)))
; 
; caught STYLE-WARNING:
;   undefined function: ALLOCATE-INSTANCE

;     (FIND-CLASS (THE SYMBOL SB!FASL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CLASS

; in: !DEFINE-FOP 69
;     (SLOT-MAKUNBOUND SB!FASL::OBJ SB!FASL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-MAKUNBOUND
; 
; compilation unit finished
;   Undefined functions:
;     ALLOCATE-INSTANCE FIND-CLASS SLOT-MAKUNBOUND
;   caught 3 STYLE-WARNING conditions
;   printed 8 notes
; x-compiling (FROB (108 T) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/fop.lisp-obj-tmp written
; compilation finished in 0:00:13.967
; compiling file "/«PKGBUILDDIR»/src/compiler/ctype.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LOSSAGE-FUN*)
; x-compiling (DEFVAR *UNWINNAGE-FUN*)
; x-compiling (DEFVAR *CTYPE-TEST-FUN*)
; x-compiling (DEFVAR *LOSSAGE-DETECTED*)
; x-compiling (DEFVAR *UNWINNAGE-DETECTED*)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-LOSSAGE ...)
; x-compiling (DEFUN NOTE-UNWINNAGE ...)
; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*))
; x-compiling (DEFUN ALWAYS-SUBTYPEP ...)
; x-compiling (DEFUN VALID-FUN-USE ...)
; x-compiling (DEFUN CHECK-ARG-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-FIXED-AND-REST ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-KEY-ARGS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DEFINITION-TYPE ...)
; x-compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...)
; x-compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NOTE-FUN-USE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN VALID-APPROXIMATE-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...)
; x-compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...)
; x-compiling (DEFUN TRY-TYPE-INTERSECTIONS ...)
; x-compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...)
; x-compiling (DEFUN FIND-LAMBDA-TYPES ...)
; x-compiling (DEFUN ASSERT-DEFINITION-TYPE ...)
; x-compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...)
; x-compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...)
; x-compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...)
; x-compiling (DEFUN ASSERT-CALL-TYPE ...)
; x-compiling (DEFUN CHECK-CATCH-TAG-TYPE ...)
; x-compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...)
; x-compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ctype.lisp-obj-tmp written
; compilation finished in 0:00:04.128
; compiling file "/«PKGBUILDDIR»/src/compiler/disassem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!DISASSEM")
; x-compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...)
; x-compiling (DEFTYPE TEXT-WIDTH ...)
; x-compiling (DEFTYPE ALIGNMENT ...)
; x-compiling (DEFTYPE OFFSET ...)
; x-compiling (DEFTYPE ADDRESS ...)
; x-compiling (DEFTYPE DISASSEM-LENGTH ...)
; x-compiling (DEFTYPE COLUMN ...)
; x-compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...)
; x-compiling (DEFTYPE FILTERED-VALUE-INDEX ...)
; x-compiling (DEFTYPE FILTERED-VALUE-VECTOR ...)
; x-compiling (DEFVAR *DISASSEM-INSTS* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *DISASSEM-INST-SPACE* ...)
; x-compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...)
; x-compiling (DECLAIM (TYPE ALIGNMENT ...))
; x-compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...)
; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; x-compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...)
; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; x-compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...)
; x-compiling (DEFSTRUCT (FUN-CACHE # ...) ...)
; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; x-compiling (DECLAIM (TYPE FUN-CACHE ...))
; x-compiling (DECLAIM (INLINE DCHUNK-OR ...))
; x-compiling (DEF!CONSTANT DCHUNK-BITS ...)
; x-compiling (DEFTYPE DCHUNK ...)
; x-compiling (DEFTYPE DCHUNK-INDEX ...)
; x-compiling (DEF!CONSTANT DCHUNK-ZERO ...)
; x-compiling (DEF!CONSTANT DCHUNK-ONE ...)
; x-compiling (DEFUN DCHUNK-EXTRACT ...)
; x-compiling (DEFMACRO DCHUNK-COPY ...)
; x-compiling (DEFUN DCHUNK-OR ...)
; x-compiling (DEFUN DCHUNK-AND ...)
; x-compiling (DEFUN DCHUNK-CLEAR ...)
; x-compiling (DEFUN DCHUNK-NOT ...)
; x-compiling (DEFMACRO DCHUNK-ANDF ...)
; x-compiling (DEFMACRO DCHUNK-ORF ...)
; x-compiling (DEFMACRO DCHUNK-CLEARF ...)
; x-compiling (DEFUN DCHUNK-MAKE-MASK ...)
; x-compiling (DEFUN DCHUNK-MAKE-FIELD ...)
; x-compiling (DEFMACRO MAKE-DCHUNK ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFUN SAP-REF-DCHUNK
;     (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
; ==>
;   SB!DISASSEM::BYTE-ORDER
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (DEFUN SB!DISASSEM:SAP-REF-DCHUNK
;            (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET SB!DISASSEM::BYTE-ORDER)
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP)
;                (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET)
;                (OPTIMIZE (SPEED 3) (SAFETY 0)))
;       (THE SB!DISASSEM:DCHUNK
;            (ECASE SB!DISASSEM::DCHUNK-BITS
;              (32
;               (IF #
;                   #
;                   #))
;              (64
;               (IF #
;                   #
;                   #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!DISASSEM:SAP-REF-DCHUNK
;         (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET SB!DISASSEM::BYTE-ORDER)
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP)
;                (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET)
;                (OPTIMIZE (SPEED 3) (SAFETY 0)))
;       (BLOCK SB!DISASSEM:SAP-REF-DCHUNK
;         (THE SB!DISASSEM:DCHUNK
;              (ECASE SB!DISASSEM::DCHUNK-BITS (32 #) (64 #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; x-compiling (DEFUN SAP-REF-DCHUNK ...)
; x-compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...)
; x-compiling (DEFMACRO DCHUNK-INSERTF ...)
; x-compiling (DEFUN DCHUNK= ...)
; x-compiling (DEFMACRO DCHUNK-ZEROP ...)
; x-compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...)
; x-compiling (DEFUN DCHUNK-COUNT-BITS ...)
; x-compiling (DEFSTRUCT (INSTRUCTION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (INST-SPACE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...)
; x-compiling (DEFVAR *ARG-FORM-KINDS* ...)
; x-compiling (DEFSTRUCT (ARG-FORM-KIND #) ...)
; x-compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...)
; x-compiling (DEFUN FIND-ARG-FORM-PRODUCER ...)
; x-compiling (DEFUN FIND-ARG-FORM-CHECKER ...)
; x-compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...)
; x-compiling (DEFVAR *DISASSEM-INST-FORMATS* ...)
; x-compiling (DEFVAR *DISASSEM-ARG-TYPES* ...)
; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; x-compiling (DEFSTRUCT (ARG # ...) ...)
; x-compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...)
; x-compiling (DEFSTRUCT (FUNSTATE # ...) ...)
; x-compiling (DEFUN MAKE-FUNSTATE ...)
; x-compiling (DEFUN FUNSTATE-COMPATIBLE-P ...)
; x-compiling (DEFUN ARG-OR-LOSE ...)
; x-compiling (DEFSTRUCT (VALSRC # ...) ...)
; x-compiling (DEFUN MAKE-VALSRC ...)
; x-compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...)
; x-compiling (DEFUN PD-ERROR ...)
; x-compiling (DEFUN SELF-EVALUATING-P ...)
; x-compiling (DEFUN MAYBE-QUOTE ...)
; x-compiling (DEFUN DOESNT-NEED-WRAPPING-P ...)
; x-compiling (DEFUN MAKE-WRAPPER ...)
; x-compiling (DEFUN FILTER-OVERRIDES ...)
; x-compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...)
; x-compiling (DEFUN MUNGE-FUN-REFS ...)
; x-compiling (DEFUN GEN-ARGS-DEF-FORM ...)
; x-compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...)
; x-compiling (DEFUN UPDATE-ARGS-FORM ...)
; x-compiling (DEFUN FORMAT-OR-LOSE ...)
; x-compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...)
; x-compiling (DEFUN MAKE-ARG ...)
; x-compiling (DEFUN COPY-ARG ...)
; x-compiling (DEFUN MODIFY-OR-ADD-ARG ...)
; x-compiling (DEFUN MODIFY-ARG ...)
; x-compiling (DEFMACRO ARG-ACCESS-MACRO ...)
; x-compiling (DEFUN ARG-VALUE-FORM ...)
; x-compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...)
; x-compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...)
; x-compiling (DEFUN GEN-ARG-FORMS ...)
; x-compiling (DEFUN MAYBE-LISTIFY ...)
; x-compiling (DEFUN SET-ARG-FROM-TYPE ...)
; x-compiling (DEFUN GET-ARG-TEMP ...)
; x-compiling (DEFUN SET-ARG-TEMPS ...)
; x-compiling (DEFMACRO DEFINE-ARG-TYPE ...)
; x-compiling (DEFMACRO DEF-ARG-FORM-KIND ...)
; x-compiling (DEF-ARG-FORM-KIND (:RAW) ...)
; x-compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...)
; x-compiling (DEFUN VALSRC-EQUAL ...)
; x-compiling (DEF-ARG-FORM-KIND (:FILTERING) ...)
; x-compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...)
; x-compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...)
; x-compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...)
; x-compiling (DEF-ARG-FORM-KIND (:PRINTED) ...)
; x-compiling (DEFUN REMEMBER-PRINTER-USE ...)
; x-compiling (DEFUN SOURCE-FORM ...)
; x-compiling (DEFUN VALUE-OR-SOURCE ...)
; x-compiling (DEFSTRUCT (CACHED-FUN # ...) ...)
; x-compiling (DEFUN FIND-CACHED-FUN ...)
; x-compiling (DEFMACRO !WITH-CACHED-FUN ...)
; x-compiling (DEFUN FIND-PRINTER-FUN ...)
; x-compiling (DEFUN MAKE-PRINTER-DEFUN ...)
; x-compiling (DEFUN PREPROCESS-TEST ...)
; x-compiling (DEFUN PREPROCESS-CONDITIONALS ...)
; x-compiling (DEFUN PREPROCESS-PRINTER ...)
; x-compiling (DEFUN FIND-FIRST-FIELD-NAME ...)
; x-compiling (DEFUN PREPROCESS-CHOOSES ...)
; x-compiling (DEFUN SHARING-CONS ...)
; x-compiling (DEFUN SHARING-MAPCAR ...)
; x-compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...)
; x-compiling (DEFUN PICK-PRINTER-CHOICE ...)
; x-compiling (DEFUN COMPILE-PRINTER-LIST ...)
; x-compiling (DEFUN COMPILE-PRINTER-BODY ...)
; x-compiling (DEFUN COMPILE-PRINT ...)
; x-compiling (DEFUN STRING-OR-QSYM-P ...)
; x-compiling (DEFUN STRIP-QUOTE ...)
; x-compiling (DEFUN COMPARE-FIELDS-FORM ...)
; x-compiling (DEFUN COMPILE-TEST ...)
; x-compiling (DEFUN FIND-LABELLER-FUN ...)
; x-compiling (DEFUN FIND-PREFILTER-FUN ...)
; x-compiling (DEFUN COMPUTE-MASK-ID ...)
; x-compiling (DEFUN INSTALL-INST-FLAVORS ...)
; x-compiling (DECLAIM (INLINE BYTES-TO-BITS))
; x-compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...))
; x-compiling (DEFUN BYTES-TO-BITS ...)
; x-compiling (DEFUN BITS-TO-BYTES ...)
; x-compiling (DEFUN SIGN-EXTEND ...)
; x-compiling (DEFUN ALIGNED-P ...)
; x-compiling (DEFUN ALIGN ...)
; x-compiling (DEFUN TAB ...)
; x-compiling (DEFUN TAB0 ...)
; x-compiling (DEFUN PRINC16 ...)
; x-compiling (DEFUN READ-SIGNED-SUFFIX ...)
; x-compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DSTATE-CUR-ADDR ...)
; x-compiling (DEFUN DSTATE-NEXT-ADDR ...)
; x-compiling (DEFMACRO DSTATE-GET-PROP ...)
; x-compiling (DEFUN DSTATE-PUT-INST-PROP ...)

; file: /«PKGBUILDDIR»/src/compiler/disassem.lisp
; in: DEFSTRUCT DISASSEM-STATE
;     (DEFSTRUCT
;         (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-)
;          (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL))
;       (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET)
;       (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER))
;       (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT))
;       (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT)
;       (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE
;        (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN))
;       (SB!DISASSEM::PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST)
;       (SB!DISASSEM::FILTERED-VALUES
;        (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE
;        SB!DISASSEM::FILTERED-VALUE-VECTOR)
;       (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20)))
;       ...)
; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT
; 
; compilation unit finished
;   Undefined type:
;     SEGMENT
;   caught 1 STYLE-WARNING condition
;   printed 4 notes
; x-compiling (DEFUN DSTATE-GET-INST-PROP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/disassem.lisp-obj-tmp written
; compilation finished in 0:00:10.602
; compiling file "/«PKGBUILDDIR»/src/compiler/assem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!ASSEM")
; x-compiling (DEFVAR *ASSEM-SCHEDULER-P* ...)
; x-compiling (DECLAIM (TYPE BOOLEAN ...))
; x-compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFSTRUCT (SEGMENT #) ...)
; x-compiling (DEFPRINTER (SEGMENT) ...)
; x-compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX))
; x-compiling (DEFUN SEGMENT-CURRENT-INDEX ...)
; x-compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...)
; x-compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...)
; x-compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...)
; x-compiling (DEF!STRUCT (INSTRUCTION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFMACRO WITHOUT-SCHEDULING ...)
; x-compiling (DEFMACRO NOTE-DEPENDENCIES ...)
; x-compiling (DEFUN NOTE-READ-DEPENDENCY ...)
; x-compiling (DEFUN NOTE-WRITE-DEPENDENCY ...)
; x-compiling (DEFUN QUEUE-INST ...)
; x-compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...)
; x-compiling (DEFUN ADD-TO-NTH-LIST ...)
; x-compiling (DEFUN SCHEDULE-ONE-INST ...)
; x-compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...)
; x-compiling (DEFUN ADVANCE-ONE-INST ...)
; x-compiling (DEFUN INSERT-EMITTABLE-INST ...)
; x-compiling (DEF!STRUCT (ANNOTATION # ...) ...)
; x-compiling (DEF!STRUCT (LABEL # ...))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...)
; x-compiling (DEF!STRUCT (BACK-PATCH # ...) ...)
; x-compiling (DEF!STRUCT (CHOOSER # ...) ...)
; x-compiling (DEF!STRUCT (FILLER # ...) ...)
; x-compiling (DEFUN EMIT-BYTE ...)
; x-compiling (DEFUN EMIT-SKIP ...)
; x-compiling (DEFUN EMIT-ANNOTATION ...)
; x-compiling (DEFUN EMIT-BACK-PATCH ...)
; x-compiling (DEFUN EMIT-CHOOSER ...)
; x-compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...)
; x-compiling (DEFUN EMIT-FILLER ...)
; x-compiling (DEFUN %EMIT-LABEL ...)
; x-compiling (DEFUN %EMIT-ALIGNMENT ...)
; x-compiling (DEFUN FIND-ALIGNMENT ...)
; x-compiling (DEFUN %EMIT-POSTIT ...)
; x-compiling (DEFUN COMPRESS-OUTPUT ...)
; x-compiling (DEFUN FINALIZE-POSITIONS ...)
; x-compiling (DEFUN PROCESS-BACK-PATCHES ...)
; x-compiling (DEFUN COMPACT-SEGMENT-BUFFER ...)
; x-compiling (DEFMACRO %%CURRENT-SEGMENT%% ...)
; x-compiling (DEFVAR **CURRENT-SEGMENT**)
; x-compiling (DEFMACRO %%CURRENT-VOP%% ...)
; x-compiling (DEFVAR **CURRENT-VOP** ...)
; x-compiling (DEF DEF!MACRO ...)
; x-compiling (DEFMACRO INST ...)
; x-compiling (DEFMACRO EMIT-LABEL ...)
; x-compiling (DEFMACRO EMIT-POSTIT ...)
; x-compiling (DEFMACRO EMIT-ALIGNMENT ...)
; x-compiling (DEFUN LABEL-POSITION ...)
; x-compiling (DEFUN APPEND-SEGMENT ...)
; x-compiling (DEFUN FINALIZE-SEGMENT ...)
; x-compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...)
; x-compiling (DEFUN WRITE-SEGMENT-CONTENTS ...)
; x-compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...)
; x-compiling (DEFUN GROVEL-LAMBDA-LIST ...)
; x-compiling (DEFUN EXTRACT-NTHS ...)
; x-compiling (DEFMACRO DEFINE-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...)

; file: /«PKGBUILDDIR»/src/compiler/assem.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE
;                                    SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::%DEFSETF SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET* BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:GET-SETF-EXPANSION
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN %DEFINE-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/assem.lisp-obj-tmp written
; compilation finished in 0:00:12.588
; compiling file "/«PKGBUILDDIR»/src/code/debug-info.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...)
; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-INDIRECT-P ...)
; x-compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...)
; x-compiling (DEF!STRUCT (DEBUG-FUN #))
; x-compiling (DEF!STRUCT (COMPILED-DEBUG-FUN # ...) ...)
; x-compiling (DEF!STRUCT (DEBUG-SOURCE #) ...)
; x-compiling (DEF!STRUCT DEBUG-INFO ...)
; x-compiling (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...)
; x-compiling (DEF!STRUCT (COMPILED-DEBUG-INFO # ...) ...)
; x-compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*)
; x-compiling (DEFUN !DEBUG-INFO-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug-info.lisp-obj-tmp written
; compilation finished in 0:00:02.561
; compiling file "/«PKGBUILDDIR»/src/compiler/dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...)
; x-compiling (DEFSTRUCT (CIRCULARITY #) ...)
; x-compiling (DEFVAR *CIRCULARITIES-DETECTED*)
; x-compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...)
; x-compiling (DEFUN DUMP-BYTE ...)
; x-compiling (DEFUN DUMP-WORD ...)
; x-compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...)
; x-compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...)
; x-compiling (DEFUN DUMP-FOP+OPERANDS ...)
; x-compiling (DEFMACRO DUMP-FOP ...)
; x-compiling (DEFUN DUMP-PUSH ...)
; x-compiling (DEFUN DUMP-POP ...)
; x-compiling (DEFUN EQUAL-CHECK-TABLE ...)
; x-compiling (DEFUN STRING-CHECK-TABLE ...)
; x-compiling (DEFUN EQ-SAVE-OBJECT ...)
; x-compiling (DEFUN EQUAL-SAVE-OBJECT ...)
; x-compiling (DEFUN STRING-SAVE-OBJECT ...)
; x-compiling (DEFUN NOTE-POTENTIAL-CIRCULARITY ...)
; x-compiling (DEFUN OPEN-FASL-OUTPUT ...)
; x-compiling (DEFUN CLOSE-FASL-OUTPUT ...)
; x-compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...)
; x-compiling (DEFUN SUB-DUMP-OBJECT ...)
; x-compiling (DEFUN DUMP-CIRCULARITIES ...)
; x-compiling (DEFUN DUMP-OBJECT ...)
; x-compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...)
; x-compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...)
; x-compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...)
; x-compiling (DEFUN FASL-VALIDATE-STRUCTURE ...)
; x-compiling (DEFUN DUMP-RATIO ...)
; x-compiling (DEFUN DUMP-INTEGER ...)
; x-compiling (DEFUN DUMP-FLOAT ...)
; x-compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...)
; x-compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...)
; x-compiling (DEFUN DUMP-COMPLEX-RATIONAL ...)
; x-compiling (DEFUN DUMP-COMPLEX ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN DUMP-PACKAGE ...)
; x-compiling (DEFUN DUMP-LIST ...)
; x-compiling (DEFUN TERMINATE-DOTTED-LIST ...)
; x-compiling (DEFUN TERMINATE-UNDOTTED-LIST ...)
; x-compiling (DEFUN DUMP-ARRAY ...)
; x-compiling (DEFUN DUMP-VECTOR ...)
; x-compiling (DEFUN DUMP-SIMPLE-VECTOR ...)
; x-compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...)
; x-compiling (DEFUN DUMP-CHARACTER ...)
; x-compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...)
; x-compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...)
; x-compiling (DEFUN DUMP-SYMBOL ...)
; x-compiling (DEFUN DUMP-SEGMENT ...)
; x-compiling (DEFUN DUMP-FIXUPS ...)
; x-compiling (DEFUN DUMP-CODE-OBJECT ...)
; x-compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...)
; x-compiling (DEFUN DUMP-ONE-ENTRY ...)
; x-compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...)
; x-compiling (DEFUN FASL-DUMP-COMPONENT ...)
; x-compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...)
; x-compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...)
; x-compiling (DEFUN FASL-DUMP-SOURCE-INFO ...)
; x-compiling (DEFUN DUMP-STRUCTURE ...)
; x-compiling (DEFUN DUMP-LAYOUT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/dump.lisp-obj-tmp written
; compilation finished in 0:00:04.915
; compiling file "/«PKGBUILDDIR»/src/compiler/main.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *CONSTANTS* ...))
; x-compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...)
; x-compiling (DEFVAR *CHECK-CONSISTENCY* ...)
; x-compiling (DEFVAR *LOOP-ANALYZE* ...)
; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...)
; x-compiling (DEFVAR *BLOCK-COMPILE*)
; x-compiling (DEFVAR *BLOCK-COMPILE-ARG*)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *ENTRY-POINTS*)
; x-compiling (DECLAIM (LIST *ENTRY-POINTS*))
; x-compiling (DEFVAR *TOPLEVEL-LAMBDAS*)
; x-compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*))
; x-compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...)
; x-compiling (DEFVAR *COMPILE-PROGRESS* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...)
; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *SOURCE-INFO* ...)
; x-compiling (DEFVAR *IN-COMPILATION-UNIT* ...)
; x-compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*)
; x-compiling (DEFUN MAYBE-MUMBLE ...)
; x-compiling (DEFTYPE OBJECT ...)
; x-compiling (DEFVAR *COMPILE-OBJECT* ...)
; x-compiling (DECLAIM (TYPE OBJECT ...))
; x-compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...)
; x-compiling (DEFVAR *EMIT-CFASL* ...)
; x-compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*)
; x-compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...)
; x-compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...)
; x-compiling (DEFVAR *CODE-COVERAGE-INFO* ...)
; x-compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...)
; x-compiling (DEFVAR *SOURCE-PLIST* ...)
; x-compiling (DEFVAR *SOURCE-NAMESTRING* ...)
; x-compiling (DEFUN %WITH-COMPILATION-UNIT ...)
; x-compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...)
; x-compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...)
; x-compiling (DEFMACRO WITH-COMPILATION-VALUES ...)
; x-compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...)
; x-compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...)
; x-compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...)
; x-compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...)
; x-compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...)
; x-compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...)
; x-compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...)
; x-compiling (DEFUN DFO-AS-NEEDED ...)
; x-compiling (DEFUN IR1-PHASES ...)
; x-compiling (DEFUN %COMPILE-COMPONENT ...)
; x-compiling (DEFUN DELETE-IF-NO-ENTRIES ...)
; x-compiling (DEFUN COMPILE-COMPONENT ...)
; x-compiling (DEFUN CLEAR-CONSTANT-INFO ...)
; x-compiling (DEFUN CLEAR-IR1-INFO ...)
; x-compiling (DEFUN DESCRIBE-COMPONENT ...)
; x-compiling (DEFUN DESCRIBE-IR2-COMPONENT ...)
; x-compiling (DEF!STRUCT (FILE-INFO # ...) ...)
; x-compiling (DEF!STRUCT (SOURCE-INFO # ...) ...)
; x-compiling (DEFUN MAKE-FILE-SOURCE-INFO ...)
; x-compiling (DEFUN MAKE-LISP-SOURCE-INFO ...)
; x-compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...)
; x-compiling (DEFUN GET-SOURCE-STREAM ...)
; x-compiling (DEFUN CLOSE-SOURCE-INFO ...)
; x-compiling (DEFUN %DO-FORMS-FROM-INFO ...)
; x-compiling (DEFMACRO DO-FORMS-FROM-INFO ...)
; x-compiling (DEFUN SUB-SUB-COMPILE-FILE ...)
; x-compiling (DEFUN FIND-SOURCE-ROOT ...)
; x-compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...)
; x-compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...)
; x-compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...)
; x-compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...)
; x-compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...)
; x-compiling (DEFUN FUNCTIONAL-COMPONENTS ...)
; x-compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN %COMPILE ...)
; x-compiling (DEFUN NOTE-TOP-LEVEL-FORM ...)
; x-compiling (DEFUN EVAL-COMPILE-TOPLEVEL ...)
; x-compiling (DEFUN PROCESS-TOPLEVEL-FORM ...)
; x-compiling (DEFUN PRODUCING-FASL-FILE ...)
; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...)
; x-compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...)
; x-compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...)
; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...)
; x-compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN COMPILE-TOPLEVEL-LAMBDAS
;     (POSITION-IF (LAMBDA (SB!C::X) (NOT (EQ (SB!C::COMPONENT-KIND #) :TOPLEVEL)))
;                  SB!C::LAMBDAS :START (MIN SB!C::START SB!C::LEN))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!KERNEL:%FIND-POSITION-IF LET FLET IF AND IF AND THE > 
; ==>
;   SB!C::START
; 
; note: deleting unreachable code

; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!KERNEL:%FIND-POSITION-IF LET FLET BLOCK 
; --> SB!INT:SEQUENCE-BOUNDING-INDICES-BAD-ERROR 
; ==>
;   SB!C::START
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...)
; x-compiling (DEFUN COMPILE-TOPLEVEL ...)
; x-compiling (DEFUN FINISH-BLOCK-COMPILATION ...)
; x-compiling (DEFUN HANDLE-CONDITION-P ...)
; x-compiling (DEFUN HANDLE-CONDITION-HANDLER ...)
; x-compiling (DEFUN SUB-COMPILE-FILE ...)
; x-compiling (DEFUN VERIFY-SOURCE-FILE ...)
; x-compiling (DEFUN ELAPSED-TIME-TO-STRING ...)
; x-compiling (DEFUN PRINT-COMPILE-START-NOTE ...)
; x-compiling (DEFUN PRINT-COMPILE-END-NOTE ...)
; x-compiling (DEFUN SB-XC:COMPILE-FILE ...)
; x-compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...)
; x-compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...)
; x-compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...)
; x-compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...)

; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN HANDLE-CONDITION-HANDLER
;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G68080 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; in: DEFUN HANDLE-CONDITION-P
;     (DEFUN SB!C::HANDLE-CONDITION-P (CONDITION)
;       (LET ((SB!KERNEL:LEXENV (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* # # #)))
;         (LET ((SB!C::MUFFLES #))
;           (IF (NULL SB!C::MUFFLES)
;               NIL
;               (DOLIST # #)))))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!C::HANDLE-CONDITION-P
;    (SB!INT:NAMED-LAMBDA SB!C::HANDLE-CONDITION-P
;        (CONDITION)
;      (BLOCK SB!C::HANDLE-CONDITION-P
;        (LET (#)
;          (LET #
;            #))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G68064 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; 
; caught STYLE-WARNING:
;   6 more uses of undefined type COMPILER-ERROR-CONTEXT


; file: /«PKGBUILDDIR»/src/compiler/main.lisp
; in: DEFUN EMIT-MAKE-LOAD-FORM
;     (SB-XC:MAKE-LOAD-FORM SB!KERNEL:CONSTANT (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MAKE-LOAD-FORM
; 
; compilation unit finished
;   Undefined type:
;     COMPILER-ERROR-CONTEXT
;   Undefined function:
;     SB-XC:MAKE-LOAD-FORM
;   caught 5 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (DEFUN EMIT-MAKE-LOAD-FORM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/main.lisp-obj-tmp written
; compilation finished in 0:00:08.713
; compiling file "/«PKGBUILDDIR»/src/compiler/xref.lisp" (written 30 MAY 2015 05:47:21 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *XREF-KINDS* ...)
; x-compiling (DEFUN RECORD-COMPONENT-XREFS ...)
; x-compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...)
; x-compiling (DEFUN RECORD-NODE-XREFS ...)
; x-compiling (DEFUN INTERNAL-NAME-P ...)
; x-compiling (DEFUN RECORD-XREF ...)
; x-compiling (DEFUN RECORD-MACROEXPANSION ...)
; x-compiling (DEFUN RECORD-CALL ...)
; x-compiling (DEFUN PACK-XREF-DATA ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/xref.lisp-obj-tmp written
; compilation finished in 0:00:00.748
; compiling file "/«PKGBUILDDIR»/src/code/source-location.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION # ...) ...)
; x-compiling (DEFUN MAKE-DEFINITION-SOURCE-LOCATION ...)
; x-compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/source-location.lisp-obj-tmp written
; compilation finished in 0:00:00.331
; compiling file "/«PKGBUILDDIR»/src/compiler/target-main.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN GET-LAMBDA-TO-COMPILE ...)
; x-compiling (DEFUN ACTUALLY-COMPILE ...)
; x-compiling (DEFUN COMPILE-IN-LEXENV ...)
; x-compiling (DEFUN COMPILE ...)
; x-compiling (DEFUN MAKE-FORM-TRACKING-STREAM-OBSERVER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-main.lisp
; in: DEFMACRO COMPILE-FILE-POSITION
;     (DEFMACRO SB!EXT:COMPILE-FILE-POSITION (&WHOLE SB!C::THIS-FORM)
;       "Return character position of this macro invocation or NIL if unavailable."
;       (SB!C::COMPUTE-COMPILE-FILE-POSITION SB!C::THIS-FORM NIL))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!EXT:COMPILE-FILE-POSITION
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (#)
;                            (BLOCK SB!EXT:COMPILE-FILE-POSITION #))))
;                    '(&WHOLE SB!C::THIS-FORM)
;                    "Return character position of this macro invocation or NIL if unavailable."
;                    '(MACRO-FUNCTION SB!EXT:COMPILE-FILE-POSITION)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-COMPILE-FILE-POSITION
; x-compiling (DEFMACRO COMPILE-FILE-POSITION ...)

; file: /«PKGBUILDDIR»/src/compiler/target-main.lisp
; in: DEFMACRO COMPILE-FILE-LINE
;     (DEFMACRO SB!EXT:COMPILE-FILE-LINE (&WHOLE SB!C::THIS-FORM)
;       "Return line# and column# of this macro invocation as multiple values."
;       (SB!C::COMPUTE-COMPILE-FILE-POSITION SB!C::THIS-FORM T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFMACRO 'SB!EXT:COMPILE-FILE-LINE
;                    #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (#)
;                            (BLOCK SB!EXT:COMPILE-FILE-LINE #))))
;                    '(&WHOLE SB!C::THIS-FORM)
;                    "Return line# and column# of this macro invocation as multiple values."
;                    '(MACRO-FUNCTION SB!EXT:COMPILE-FILE-LINE)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-COMPILE-FILE-POSITION
; x-compiling (DEFMACRO COMPILE-FILE-LINE ...)
; x-compiling (DEFUN COMPUTE-COMPILE-FILE-POSITION ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN COMPILE-FILE-POSITION-HELPER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/target-main.lisp-obj-tmp written
; compilation finished in 0:00:01.566
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*))
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFVAR *CURRENT-FORM-NUMBER*)
; x-compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*))
; x-compiling (DEFVAR *SOURCE-PATHS*)
; x-compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P))
; x-compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...)
; x-compiling (DEFUN GET-SOURCE-PATH ...)
; x-compiling (DEFUN ENSURE-SOURCE-PATH ...)
; x-compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...)
; x-compiling (DEFUN NOTE-SOURCE-PATH ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *CURRENT-COMPONENT*)
; x-compiling (DECLAIM (LIST *CURRENT-PATH*))
; x-compiling (DEFVAR *CURRENT-PATH*)
; x-compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...)
; x-compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...)
; x-compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...)
; x-compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...)
; x-compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF))
; x-compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...)
; x-compiling (DEFUN MAYBE-DEFINED-HERE ...)
; x-compiling (DEFUN FIND-GLOBAL-FUN ...)
; x-compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FREE-FUN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...)
; x-compiling (DEFUN MAYBE-FIND-FREE-VAR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-FREE-VAR ...)
; x-compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...)
; x-compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...)
; x-compiling (DECLAIM (INLINE USE-CTRAN))
; x-compiling (DEFUN USE-CTRAN ...)
; x-compiling (DEFUN %USE-CTRAN ...)
; x-compiling (DEFUN INSERT-NODE-BEFORE ...)
; x-compiling (DEFUN USE-LVAR ...)
; x-compiling (DECLAIM (INLINE USE-CONTINUATION))
; x-compiling (DEFUN USE-CONTINUATION ...)
; x-compiling (DEFUN IR1-TOPLEVEL ...)
; x-compiling (DEFUN FIND-SOURCE-PATHS ...)
; x-compiling (DEFUN SUB-FIND-SOURCE-PATHS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-CONVERT ...)
; x-compiling (DEFUN REFERENCE-CONSTANT ...)
; x-compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...)
; x-compiling (DEFUN REFERENCE-LEAF ...)
; x-compiling (DEFUN ALWAYS-BOUNDP ...)
; x-compiling (DEFUN IR1-CONVERT-VAR ...)
; x-compiling (DEFUN FIND-COMPILER-MACRO ...)
; x-compiling (DEFUN EXPAND-COMPILER-MACRO ...)
; x-compiling (DEFUN IR1-CONVERT-FUNCTOID ...)
; x-compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...)
; x-compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1tran.lisp
; in: DEFUN MUFFLE-WARNING-OR-DIE
;     (SB!INT:BUG "no MUFFLE-WARNING restart")
; ==>
;   "no MUFFLE-WARNING restart"
; 
; note: deleting unreachable code
; x-compiling (DEFUN MUFFLE-WARNING-OR-DIE ...)
; x-compiling (DEFUN CAREFUL-EXPAND-MACRO ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-CONVERT-PROGN-BODY ...)
; x-compiling (DEFUN INSTRUMENT-COVERAGE ...)
; x-compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...)
; x-compiling (DEFUN RECORD-CODE-COVERAGE ...)
; x-compiling (DEFUN CLEAR-CODE-COVERAGE ...)
; x-compiling (DEFUN RESET-CODE-COVERAGE ...)
; x-compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...)
; x-compiling (DEFUN STEP-FORM-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-CONVERT-COMBINATION ...)
; x-compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...)
; x-compiling (DEFUN IR1-CONVERT-SRCTRAN ...)
; x-compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...)
; x-compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...)
; x-compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...)
; x-compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-IN-BINDINGS ...)
; x-compiling (DEFUN PROCESS-TYPE-DECL ...)
; x-compiling (DEFUN PROCESS-FTYPE-DECL ...)
; x-compiling (DEFUN PROCESS-SPECIAL-DECL ...)
; x-compiling (DEFUN MAKE-NEW-INLINEP ...)
; x-compiling (DEFUN PROCESS-INLINE-DECL ...)
; x-compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...)
; x-compiling (DEFUN PROCESS-IGNORE-DECL ...)
; x-compiling (DEFUN PROCESS-EXTENT-DECL ...)
; x-compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...)
; x-compiling (DEFUN PROCESS-1-DECL ...)
; x-compiling (DEFUN PROCESS-DECLS ...)
; x-compiling (DEFUN %PROCESSING-DECLS ...)
; x-compiling (DEFMACRO PROCESSING-DECLS ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN SPECVAR-FOR-BINDING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1tran.lisp-obj-tmp written
; compilation finished in 0:00:05.655
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1tran-lambda.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN VARIFY-LAMBDA-ARG ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-LAMBDA-VARS ...)
; x-compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...)
; x-compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...)
; x-compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...)
; x-compiling (DEFUN REGISTER-ENTRY-POINT ...)
; x-compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...)
; x-compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...)
; x-compiling (DEFUN CONVERT-MORE-ENTRY ...)
; x-compiling (DEFUN IR1-CONVERT-MORE ...)
; x-compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...)
; x-compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...)
; x-compiling (DEFUN IR1-CONVERT-LAMBDA ...)
; x-compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...)
; x-compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...)
; x-compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...)
; x-compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...)
; x-compiling (DEFUN GET-DEFINED-FUN ...)
; x-compiling (DEFUN ASSERT-NEW-DEFINITION ...)
; x-compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...)
; x-compiling (DEFUN %SET-INLINE-EXPANSION ...)
; x-compiling (DEFUN %COMPILER-DEFUN ...)
; x-compiling (DEFUN %COMPILER-DEFMACRO ...)
; x-compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj-tmp written
; compilation finished in 0:00:04.103
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1-translators.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF-IR1-TRANSLATOR PROGN ...)
; x-compiling (DEF-IR1-TRANSLATOR IF ...)
; x-compiling (DEFUN BEST-SUB-SOURCE-PATH ...)
; x-compiling (DEF-IR1-TRANSLATOR BLOCK ...)
; x-compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...)
; x-compiling (DEFUN PARSE-TAGBODY ...)
; x-compiling (DEF-IR1-TRANSLATOR TAGBODY ...)
; x-compiling (DEF-IR1-TRANSLATOR GO ...)
; x-compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...)
; x-compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...)
; x-compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...)
; x-compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...)
; x-compiling (DEF-IR1-TRANSLATOR MACROLET ...)
; x-compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...)
; x-compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...)
; x-compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...)
; x-compiling (DEFUN EVAL-INFO-ARGS ...)
; x-compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...)
; x-compiling (DEF-IR1-TRANSLATOR QUOTE ...)
; x-compiling (DEFUN NAME-CONTEXT ...)
; x-compiling (DEFUN NAME-LAMBDALIKE ...)
; x-compiling (DEFUN FUN-NAME-LEAF ...)
; x-compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...)
; x-compiling (DEFMACRO WITH-FUN-NAME-LEAF ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code
; x-compiling (DEF-IR1-TRANSLATOR FUNCTION ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)
; ==>
;   SB!C::START
; 
; note: deleting unreachable code
; x-compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...)
; x-compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...)
; x-compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...)
; x-compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...)
; x-compiling (DEFUN ENSURE-LVAR-FUN-FORM ...)
; x-compiling (DEFTRANSFORM FUNCALL ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR %FUNCALL
;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START
;                                :GLOBAL-FUNCTION T)
;       (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                          (SB!INT:QUASIQUOTE
;                           (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                            #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF 
; ==>
;   SB!C::THING
; 
; note: deleting unreachable code

;     (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT
;                        (SB!INT:QUASIQUOTE
;                         (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0)
;                          #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2))))
; ==>
;   SB!C::START
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEF-IR1-TRANSLATOR %FUNCALL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...)
; x-compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXTRACT-LET-VARS ...)
; x-compiling (DEF-IR1-TRANSLATOR LET ...)
; x-compiling (DEF-IR1-TRANSLATOR LET* ...)
; x-compiling (DEFUN IR1-TRANSLATE-LOCALLY ...)
; x-compiling (DEF-IR1-TRANSLATOR LOCALLY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXTRACT-FLET-VARS ...)
; x-compiling (DEFUN IR1-CONVERT-FBINDINGS ...)
; x-compiling (DEF-IR1-TRANSLATOR FLET ...)
; x-compiling (DEF-IR1-TRANSLATOR LABELS ...)
; x-compiling (DEFUN THE-IN-POLICY ...)
; x-compiling (DEF-IR1-TRANSLATOR THE ...)
; x-compiling (DEF-IR1-TRANSLATOR TRULY-THE ...)
; x-compiling (SETF (INFO :FUNCTION ...) ...)
; x-compiling (DEFUN EXPLODE-SETQ ...)
; x-compiling (DEF-IR1-TRANSLATOR SETQ ...)
; x-compiling (DEFUN SETQ-VAR ...)
; x-compiling (DEF-IR1-TRANSLATOR THROW ...)
; x-compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...)
; x-compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...)
; x-compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...)
; x-compiling (DEF-IR1-TRANSLATOR CATCH ...)
; x-compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...)
; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...)
; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...)
; 
; compilation unit finished
;   printed 7 notes
; x-compiling (DEFUN REVERT-SOURCE-PATH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1-translators.lisp-obj-tmp written
; compilation finished in 0:00:06.623
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1util.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NODE-ENCLOSING-CLEANUP ...)
; x-compiling (DEFUN MAP-NESTED-CLEANUPS ...)
; x-compiling (DEFUN INSERT-CLEANUP-CODE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-USES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN PRINCIPAL-LVAR ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-USE ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-DEST ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %DELETE-LVAR-USE ...)
; x-compiling (DEFUN DELETE-LVAR-USE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ADD-LVAR-USE ...)
; x-compiling (DEFUN IMMEDIATELY-USED-P ...)
; x-compiling (DEFUN COMBINATION-DEFINED-TYPE ...)
; x-compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...)
; x-compiling (DEFUN SUBSTITUTE-LVAR ...)
; x-compiling (DEFUN SUBSTITUTE-LVAR-USES ...)
; x-compiling (DEFUN CTRAN-STARTS-BLOCK ...)
; x-compiling (DEFUN ENSURE-BLOCK-START ...)
; x-compiling (DEFUN START-BLOCK ...)
; x-compiling (DEFUN FILTER-LVAR ...)
; x-compiling (DEFUN DELETE-FILTER ...)
; x-compiling (DEFUN INSERT-CAST-BEFORE ...)
; x-compiling (DEFUN NODE-HOME-LAMBDA ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-BLOCK)
;     (DECLAIM (INLINE SB!C::NODE-BLOCK))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::NODE-BLOCK) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-BLOCK to be INLINE, but 6 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE NODE-BLOCK))
; x-compiling (DEFUN NODE-BLOCK ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NODE-COMPONENT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NODE-PHYSENV ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE NODE-DEST)
;     (DECLAIM (INLINE SB!C::NODE-DEST))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::NODE-DEST) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::NODE-DEST to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE NODE-DEST))
; x-compiling (DEFUN NODE-DEST ...)
; x-compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P))
; x-compiling (DEFUN NODE-STACK-ALLOCATE-P ...)
; x-compiling (DEFUN FLUSHABLE-COMBINATION-P ...)
; x-compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...)
; x-compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...)
; x-compiling (DEFUN USE-GOOD-FOR-DX-P ...)
; x-compiling (DEFUN LVAR-GOOD-FOR-DX-P ...)
; x-compiling (DEFUN KNOWN-DX-COMBINATION-P ...)
; x-compiling (DEFUN DX-COMBINATION-P ...)
; x-compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...)
; x-compiling (DEFUN REF-GOOD-FOR-DX-P ...)
; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...)
; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...)
; x-compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...)
; x-compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P))
; x-compiling (DEFUN BLOCK-TO-BE-DELETED-P ...)
; x-compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P))
; x-compiling (DEFUN NODE-TO-BE-DELETED-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LAMBDA-BLOCK ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LAMBDA-COMPONENT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-START-NODE ...)
; x-compiling (DEFUN BLOCK-START-CLEANUP ...)
; x-compiling (DEFUN BLOCK-END-CLEANUP ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-HOME-LAMBDA ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-PHYSENV ...)
; x-compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...)
; x-compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...)
; x-compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...)
; x-compiling (DEFUN SOURCE-PATH-FORMS ...)
; x-compiling (DEFUN TREE-SOME ...)
; x-compiling (DEFUN NODE-SOURCE-FORM ...)
; x-compiling (DEFUN LVAR-SOURCE ...)
; x-compiling (DEFUN COMMON-SUFFIX ...)
; x-compiling (DEFUN LVAR-ALL-SOURCES ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-USE)
;     (DECLAIM (INLINE SB!C::LVAR-USE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::LVAR-USE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-USE to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE LVAR-USE))
; x-compiling (DEFUN LVAR-USE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)
;     (DECLAIM (INLINE SB!C::LVAR-HAS-SINGLE-USE-P))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::LVAR-HAS-SINGLE-USE-P) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-HAS-SINGLE-USE-P to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P))
; x-compiling (DEFUN LVAR-HAS-SINGLE-USE-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CTRAN-HOME-LAMBDA-OR-NULL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CTRAN-HOME-LAMBDA ...)
; x-compiling (DECLAIM (INLINE CAST-SINGLE-VALUE-P))
; x-compiling (DEFUN CAST-SINGLE-VALUE-P ...)
; x-compiling (DECLAIM (INLINE LVAR-SINGLE-VALUE-P))
; x-compiling (DEFUN LVAR-SINGLE-VALUE-P ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-END ...)
; x-compiling (DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY ...)
; x-compiling (DEFUN MAKE-LEXENV ...)
; x-compiling (DEFUN MAKE-RESTRICTED-LEXENV ...)
; x-compiling (DEFUN LINK-BLOCKS ...)
; x-compiling (DEFUN %LINK-BLOCKS ...)
; x-compiling (DEFUN UNLINK-BLOCKS ...)
; x-compiling (DEFUN CHANGE-BLOCK-SUCCESSOR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN REMOVE-FROM-DFO ...)
; x-compiling (DEFUN ADD-TO-DFO ...)
; x-compiling (DEFUN MAP-BLOCK-NLXES ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CLEAR-FLAGS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAKE-EMPTY-COMPONENT ...)
; x-compiling (DEFUN NODE-ENDS-BLOCK ...)
; x-compiling (DEFUN DELETE-LAMBDA-VAR ...)
; x-compiling (DEFUN REOPTIMIZE-LAMBDA-VAR ...)
; x-compiling (DEFUN DELETE-FUNCTIONAL ...)
; x-compiling (DEFUN DELETE-LAMBDA ...)
; x-compiling (DEFUN DELETE-OPTIONAL-DISPATCH ...)
; x-compiling (DEFUN NOTE-LOCAL-FUNCTIONAL ...)
; x-compiling (DEFUN DEFINED-FUN-FUNCTIONAL ...)
; x-compiling (DEFUN DELETE-REF ...)
; x-compiling (DEFUN FLUSH-NODE ...)
; x-compiling (DEFUN FLUSH-DEST ...)
; x-compiling (DEFUN DELETE-DEST ...)
; x-compiling (DEFUN DELETE-BLOCK-LAZILY ...)
; x-compiling (DEFUN MARK-FOR-DELETION ...)
; x-compiling (DEFUN DELETE-BLOCK ...)
; x-compiling (DEFUN DELETE-RETURN ...)
; x-compiling (DEFUN NOTE-UNREFERENCED-VARS ...)
; x-compiling (DEFUN NOTE-UNREFERENCED-FUN-VARS ...)
; x-compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...)
; x-compiling (DEFUN PRESENT-IN-FORM ...)
; x-compiling (DEFUN NOTE-BLOCK-DELETION ...)
; x-compiling (DEFUN UNLINK-NODE ...)
; x-compiling (DEFUN CTRAN-DELETED-P ...)
; x-compiling (DEFUN NODE-DELETED ...)
; x-compiling (DEFUN DELETE-COMPONENT ...)
; x-compiling (DEFUN CLEAN-COMPONENT ...)
; x-compiling (DEFUN SPLICE-FUN-ARGS ...)
; x-compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...)
; x-compiling (DEFUN EXTRACT-FUN-ARGS ...)
; x-compiling (DEFUN FLUSH-COMBINATION ...)
; x-compiling (DEFUN CHANGE-REF-LEAF ...)
; x-compiling (DEFUN SUBSTITUTE-LEAF ...)
; x-compiling (DEFUN SUBSTITUTE-LEAF-IF ...)
; x-compiling (DEFUN FIND-CONSTANT ...)
; x-compiling (DEFUN CLOSURE-VAR-P ...)
; x-compiling (DEFUN FIND-NLX-INFO ...)
; x-compiling (DEFUN NLX-INFO-LVAR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MAIN-ENTRY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...)
; x-compiling (DEFUN XEP-P ...)
; x-compiling (DEFUN LVAR-FUN-NAME ...)
; x-compiling (DEFUN LVAR-FUN-DEBUG-NAME ...)
; x-compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...)
; x-compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...)
; x-compiling (DEFUN LET-COMBINATION ...)
; x-compiling (DEFUN LET-VAR-INITIAL-VALUE ...)
; x-compiling (DEFUN COMBINATION-LAMBDA ...)
; x-compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...)
; x-compiling (DEFUN INLINE-EXPANSION-OK ...)
; x-compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...)
; x-compiling (DEFUN ASSURE-LEAF-LIVE-P ...)
; x-compiling (DEFUN CALL-FULL-LIKE-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CAREFUL-CALL ...)
; x-compiling (DEFFROB SPECIFIER-TYPE ...)
; x-compiling (DEFFROB VALUES-SPECIFIER-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-KEYWORD-LVAR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-TRANSFORM-KEYS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %EVENT ...)
; x-compiling (DEFUN MAKE-CAST ...)
; x-compiling (DEFUN CAST-TYPE-CHECK ...)
; x-compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...)
; x-compiling (DEFUN LVAR-FUN-IS ...)
; x-compiling (DEFUN LVAR-MATCHES ...)
; x-compiling (DEFUN OPTIONAL-REST-P ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1util.lisp
; in: DEFFROB VALUES-SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:VALUES-SPECIFIER-TYPE
;      SB!C::CAREFUL-VALUES-SPECIFIER-TYPE SB!C::COMPILER-VALUES-SPECIFIER-TYPE
;      SB!C::IR1-TRANSFORM-VALUES-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR

; in: DEFFROB SPECIFIER-TYPE
;     (SB!C::DEFFROB SB!KERNEL:SPECIFIER-TYPE SB!C::CAREFUL-SPECIFIER-TYPE
;      SB!C::COMPILER-SPECIFIER-TYPE SB!C::IR1-TRANSFORM-SPECIFIER-TYPE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET 
; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL::ARG-COUNT-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SB!KERNEL::ARG-COUNT-ERROR
;   caught 6 STYLE-WARNING conditions
; x-compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1util.lisp-obj-tmp written
; compilation finished in 0:00:11.509
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1report.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (SPECIAL *CURRENT-PATH*))
; x-compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))

; file: /«PKGBUILDDIR»/src/compiler/ir1report.lisp
; in: DEFSTRUCT COMPILER-ERROR-CONTEXT
;     (DEFSTRUCT
;         (SB!C::COMPILER-ERROR-CONTEXT
;          (:PRINT-OBJECT (LAMBDA (SB!C::X STREAM) (PRINT-UNREADABLE-OBJECT #)))
;          (:COPIER NIL))
;       (SB!C::ENCLOSING-SOURCE NIL :TYPE LIST)
;       (SB!C::SOURCE NIL :TYPE LIST)
;       (SB!C::ORIGINAL-SOURCE (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING)
;       (SB!C::CONTEXT NIL :TYPE LIST)
;       (SB!INT:FILE-NAME (SB!INT:MISSING-ARG) :TYPE
;        (OR PATHNAME (MEMBER :LISP :STREAM)))
;       (FILE-POSITION NIL :TYPE (OR SB!INT:INDEX NULL))
;       (SB!C::ORIGINAL-SOURCE-PATH NIL :TYPE LIST)
;       (SB!KERNEL:LEXENV NIL :TYPE (OR NULL SB!KERNEL:LEXENV)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C::COMPILER-ERROR-CONTEXT {553B5009}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!C::COMPILER-ERROR-CONTEXT-LEXENV could not be
;   inlined because the structure definition for SB!C::COMPILER-ERROR-CONTEXT was
;   not yet seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...)
; x-compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...)
; x-compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...)
; x-compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...)
; x-compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...)
; x-compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...)
; x-compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...)
; x-compiling (DEFUN SOURCE-FORM-CONTEXT ...)
; x-compiling (DEFUN FIND-ORIGINAL-SOURCE ...)
; x-compiling (DEFUN STRINGIFY-FORM ...)
; x-compiling (DEFUN FIND-ERROR-CONTEXT ...)
; x-compiling (DEFVAR *LAST-ERROR-CONTEXT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LAST-FORMAT-STRING* ...)
; x-compiling (DEFVAR *LAST-FORMAT-ARGS* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFVAR *LAST-MESSAGE-COUNT* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN NOTE-MESSAGE-REPEATS ...)
; x-compiling (DEFUN PRINT-COMPILER-MESSAGE ...)
; x-compiling (DEFUN %PRINT-COMPILER-MESSAGE ...)
; x-compiling (DEFUN PRINT-COMPILER-CONDITION ...)
; x-compiling (DEFINE-CONDITION COMPILER-NOTE ...)
; x-compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...)
; x-compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...)
; x-compiling (DEFUN COMPILER-NOTIFY ...)
; x-compiling (DEFUN MAYBE-COMPILER-NOTIFY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN COMPILER-MUMBLE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-COMPONENT-NAME ...)
; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; x-compiling (DEFVAR *FAILURE-P*)
; x-compiling (DEFVAR *WARNINGS-P*)
; x-compiling (DEFUN COMPILER-ERROR-HANDLER ...)
; x-compiling (DEFUN COMPILER-WARNING-HANDLER ...)
; x-compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...)
; x-compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...)
; x-compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...)
; x-compiling (DEFUN WARN-IF-COMPILER-MACRO-DEPENDENCY-PROBLEM ...)
; x-compiling (DEFUN WARN-IF-INLINE-FAILED/PROCLAIM ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN WARN-IF-INLINE-FAILED/CALL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1report.lisp-obj-tmp written
; compilation finished in 0:00:03.053
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN CONSTANT-LVAR-P ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LVAR-VALUE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE LVAR-DERIVED-TYPE)
;     (DECLAIM (INLINE SB!C::LVAR-DERIVED-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::LVAR-DERIVED-TYPE) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::LVAR-DERIVED-TYPE to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE))
; x-compiling (DEFUN LVAR-DERIVED-TYPE ...)
; x-compiling (DEFUN %LVAR-DERIVED-TYPE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN LVAR-TYPE ...)
; x-compiling (DEFUN LVAR-CONSERVATIVE-TYPE ...)
; x-compiling (DEFUN NODE-CONSERVATIVE-TYPE ...)
; x-compiling (DEFUN CONSERVATIVE-TYPE ...)
; x-compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...)
; x-compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE))
; x-compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...)
; x-compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;     (DECLAIM (INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE to be INLINE, but 3
;   calls to it were previously compiled. A declaration of NOTINLINE at the call
;   sites will eliminate this warning, as will proclaiming and defining the
;   function before its first potential use.
; x-compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE))
; x-compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/ir1opt.lisp
; in: DECLAIM (INLINE REOPTIMIZE-COMPONENT)
;     (DECLAIM (INLINE SB!C::REOPTIMIZE-COMPONENT))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::REOPTIMIZE-COMPONENT) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::REOPTIMIZE-COMPONENT to be INLINE, but 4 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT))
; x-compiling (DEFUN REOPTIMIZE-COMPONENT ...)
; x-compiling (DEFUN REOPTIMIZE-LVAR ...)
; x-compiling (DEFUN REOPTIMIZE-LVAR-USES ...)
; x-compiling (DEFUN DERIVE-NODE-TYPE ...)
; x-compiling (DEFUN ASSERT-LVAR-TYPE ...)
; x-compiling (DEFUN IR1-OPTIMIZE ...)
; x-compiling (DEFUN IR1-OPTIMIZE-BLOCK ...)
; x-compiling (DEFUN JOIN-SUCCESSOR-IF-POSSIBLE ...)
; x-compiling (DEFUN JOIN-BLOCKS ...)
; x-compiling (DEFUN FLUSH-DEAD-CODE ...)
; x-compiling (DEFUN FIND-RESULT-TYPE ...)
; x-compiling (DEFUN IR1-OPTIMIZE-RETURN ...)
; x-compiling (DEFUN CBLOCKS-EQUIVALENT-P ...)
; x-compiling (DEFUN IR1-OPTIMIZE-IF ...)
; x-compiling (DEFUN KILL-IF-BRANCH-1 ...)
; x-compiling (DEFUN TENSION-IF-IF-1 ...)
; x-compiling (DEFUN DUPLICATE-IF-IF-1 ...)
; x-compiling (DEFUN CONVERT-IF-IF ...)
; x-compiling (DEFUN MAYBE-DELETE-EXIT ...)
; x-compiling (DEFUN CHECK-IMPORTANT-RESULT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...)
; x-compiling (DEFUN XEP-TAIL-COMBINATION-P ...)
; x-compiling (DEFUN MAYBE-TERMINATE-BLOCK ...)
; x-compiling (DEFUN RECOGNIZE-KNOWN-CALL ...)
; x-compiling (DEFUN VALIDATE-CALL-TYPE ...)
; x-compiling (DEFUN PROPAGATE-FUN-CHANGE ...)
; x-compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...)
; x-compiling (DEFUN IR1-TRANSFORM ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...)
; x-compiling (DEFUN ABORT-IR1-TRANSFORM ...)
; x-compiling (DEFUN DELAY-IR1-TRANSFORM ...)
; x-compiling (DEFMACRO CATCH-GIVE-UP-IR1-TRANSFORM ...)
; x-compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...)
; x-compiling (DEFUN TRANSFORM-CALL ...)
; x-compiling (DEFUN CONSTANT-FOLD-CALL ...)
; x-compiling (DEFUN PROPAGATE-TO-REFS ...)
; x-compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...)
; x-compiling (DEFTRANSFORM + ...)
; x-compiling (DEFUN PROPAGATE-FROM-SETS ...)
; x-compiling (DEFUN IR1-OPTIMIZE-SET ...)
; x-compiling (DEFUN CONSTANT-REFERENCE-P ...)
; x-compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...)
; x-compiling (DEFUN DELETE-LET ...)
; x-compiling (DEFUN PROPAGATE-LET-ARGS ...)
; x-compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...)
; x-compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...)
; x-compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...)
; x-compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...)
; x-compiling (DEFUN CONVERT-MV-BIND-TO-LET ...)
; x-compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...)
; x-compiling (DEFTRANSFORM VALUES ...)
; x-compiling (DEFUN DELETE-CAST ...)
; x-compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...)
; x-compiling (DEFUN COMPILE-TIME-TYPE-ERROR-CONTEXT ...)
; x-compiling (DEFUN IR1-OPTIMIZE-CAST ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFTRANSFORM MAKE-SYMBOL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1opt.lisp-obj-tmp written
; compilation finished in 0:00:08.104
; compiling file "/«PKGBUILDDIR»/src/compiler/loop.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FIND-DOMINATORS ...)
; x-compiling (DEFUN DOMINATES-P ...)
; x-compiling (DEFUN LOOP-ANALYZE ...)
; x-compiling (DEFUN FIND-LOOP-BLOCKS ...)
; x-compiling (DEFUN FIND-BLOCKS-FROM-HERE ...)
; x-compiling (DEFUN NOTE-LOOP-HEAD ...)
; x-compiling (DEFUN FIND-SUPERIOR ...)
; x-compiling (DEFUN FIND-STRANGE-LOOP-BLOCKS ...)
; x-compiling (DEFUN FIND-STRANGE-LOOP-SEGMENTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/loop.lisp-obj-tmp written
; compilation finished in 0:00:00.629
; compiling file "/«PKGBUILDDIR»/src/compiler/ir1final.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NOTE-FAILED-OPTIMIZATION ...)
; x-compiling (DEFUN FINALIZE-XEP-DEFINITION ...)
; x-compiling (DEFUN NOTE-ASSUMED-TYPES ...)
; x-compiling (DEFUN IR1-MERGE-CASTS ...)
; x-compiling (DEFUN IR1-FINALIZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir1final.lisp-obj-tmp written
; compilation finished in 0:00:02.047
; compiling file "/«PKGBUILDDIR»/src/compiler/array-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...)
; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...)
; x-compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...)
; x-compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...)
; x-compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...)
; x-compiling (DEFUN UNSUPPLIED-OR-NIL ...)
; x-compiling (DEFUN SUPPLIED-AND-TRUE ...)
; x-compiling (DEFUN ASSERT-ARRAY-RANK ...)
; x-compiling (DEFUN DERIVE-AREF-TYPE ...)
; x-compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...)
; x-compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; x-compiling (DEFINE DATA-VECTOR-REF)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; x-compiling (DEFINE DATA-VECTOR-SET)
; x-compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...)
; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFUN DERIVE-MAKE-ARRAY-TYPE
;     'ARRAY
; 
; note: deleting unreachable code
; x-compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...)
; x-compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...)
; x-compiling (DEFTRANSFORM MAKE-STRING ...)
; x-compiling (DEFUN REWRITE-INITIAL-CONTENTS ...)

; file: /«PKGBUILDDIR»/src/compiler/array-tran.lisp
; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY
;     (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS)))
; ==>
;   SB!C::DIMENSIONS
; 
; note: deleting unreachable code
; x-compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM COERCE ...)
; x-compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...)
; x-compiling (DEFTRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFTRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFTRANSFORM MAKE-ARRAY ...)
; x-compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...)
; x-compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...)
; x-compiling (DEFTRANSFORM ARRAY-RANK ...)
; x-compiling (DEFUN DERIVE-ARRAY-RANK ...)
; x-compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM ARRAY-DIMENSION ...)
; x-compiling (DEFTRANSFORM LENGTH ...)
; x-compiling (DEFTRANSFORM LENGTH ...)
; x-compiling (DEFTRANSFORM VECTOR-LENGTH ...)
; x-compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...)
; x-compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...)
; x-compiling (DEFTRANSFORM %CHECK-BOUND ...)
; x-compiling (SB-XC:DEFMACRO WITH-ARRAY-DATA ...)
; x-compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...)
; x-compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUMBLE ...)
; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...)
; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...)
; x-compiling (DEFINE-BIT-FROB SBIT ...)
; x-compiling (DEFINE-BIT-FROB BIT ...)
; x-compiling (DEFINE-FROB SCHAR ...)
; x-compiling (DEFINE-FROB CHAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SVREF ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...)
; x-compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...)
; x-compiling (DEFTRANSFORM AREF ...)
; x-compiling (DEFTRANSFORM (SETF AREF) ...)
; x-compiling (DEFTRANSFORM AREF ...)
; x-compiling (DEFTRANSFORM (SETF AREF) ...)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; x-compiling (DEFTRANSFORM ROW-MAJOR-AREF ...)
; x-compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...)
; x-compiling (DEF BIT-AND)
; x-compiling (DEF BIT-IOR)
; x-compiling (DEF BIT-XOR)
; x-compiling (DEF BIT-EQV)
; x-compiling (DEF BIT-NAND)
; x-compiling (DEF BIT-NOR)
; x-compiling (DEF BIT-ANDC1)
; x-compiling (DEF BIT-ANDC2)
; x-compiling (DEF BIT-ORC1)
; x-compiling (DEF BIT-ORC2)
; x-compiling (DEFTRANSFORM BIT-NOT ...)
; x-compiling (DEFTRANSFORM BIT-NOT ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/array-tran.lisp-obj-tmp written
; compilation finished in 0:00:08.408
; compiling file "/«PKGBUILDDIR»/src/compiler/seqtran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN MAPFOO-TRANSFORM ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPC ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...)
; x-compiling (DEFTRANSFORM MAP ...)
; x-compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...)
; x-compiling (DEFTRANSFORM %MAP ...)
; x-compiling (DEFTRANSFORM MAP-INTO ...)
; x-compiling (DEFTRANSFORM ELT ...)
; x-compiling (DEFTRANSFORM ELT ...)
; x-compiling (DEFTRANSFORM %SETELT ...)
; x-compiling (DEFTRANSFORM %SETELT ...)
; x-compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; x-compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...)
; x-compiling (DEFUN EQ-COMPARABLE-TYPE-P ...)
; x-compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...)
; x-compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...)
; x-compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...)
; x-compiling (DEF ADJOIN)
; x-compiling (DEF ASSOC ...)
; x-compiling (DEF MEMBER ...)
; x-compiling (DEF RASSOC ...)
; x-compiling (DEFTRANSFORM MEMQ ...)
; x-compiling (DEFTRANSFORM DELETE ...)
; x-compiling (DEFTRANSFORM DELETE-IF ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEF STRING< ...)
; x-compiling (DEF STRING> ...)
; x-compiling (DEF STRING<= ...)
; x-compiling (DEF STRING>= ...)
; x-compiling (DEF STRING= ...)
; x-compiling (DEF STRING/= ...)
; x-compiling (DEF STRING<* ...)
; x-compiling (DEF STRING<=* ...)
; x-compiling (DEF STRING>* ...)
; x-compiling (DEF STRING>=* ...)
; x-compiling (DEFTRANSFORM STRING=* ...)
; x-compiling (DEFTRANSFORM STRING/=* ...)
; x-compiling (DEF STRING=* ...)
; x-compiling (DEF STRING/=* ...)
; x-compiling (DEFTRANSFORM STRING/=* ...)
; x-compiling (DEFTRANSFORM STRING ...)
; x-compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...)
; x-compiling (DEFUN MAKE-REPLACE-TRANSFORM ...)
; x-compiling (DEFINE-REPLACE-TRANSFORMS)
; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...)
; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...)
; x-compiling (DEFUN FROB-BASH-TRANSFORM ...)
; x-compiling (DEFTRANSFORM UB1-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB2-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB4-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB8-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB16-BASH-COPY ...)
; x-compiling (DEFTRANSFORM UB32-BASH-COPY ...)
; x-compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...)
; x-compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...)
; x-compiling (DEFUN EXPAND-AREF-COPY-LOOP ...)
; x-compiling (DEFTRANSFORM MAKE-SEQUENCE ...)
; x-compiling (DEFTRANSFORM SUBSEQ ...)
; x-compiling (DEFTRANSFORM SUBSEQ ...)
; x-compiling (DEFTRANSFORM SUBSEQ ...)
; x-compiling (DEFTRANSFORM COPY-SEQ ...)
; x-compiling (DEFTRANSFORM COPY-SEQ ...)
; x-compiling (DEFTRANSFORM COPY-SEQ ...)
; x-compiling (DEFTRANSFORM SEARCH ...)
; x-compiling (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFTRANSFORM CONCATENATE ...)
; x-compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...)
; x-compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...)
; x-compiling (DEFUN %FIND/POSITION-IF-LIST-EXPANSION ...)
; x-compiling (DEF %FIND-POSITION-IF ...)
; x-compiling (DEF %FIND-POSITION-IF-NOT ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...)
; x-compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...)
; x-compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...)
; x-compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION-IF ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFTRANSFORM %FIND-POSITION ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...)
; x-compiling (DEFINE-FIND-POSITION FIND ...)
; x-compiling (DEFINE-FIND-POSITION POSITION ...)
; x-compiling (DEFINE-FIND-POSITION-IF FIND-IF ...)
; x-compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...)
; x-compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...)
; x-compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...)
; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...)
; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...)
; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...)
; x-compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...)
; x-compiling (DEFTRANSFORM SB!IMPL::|List| ...)
; x-compiling (DEFTRANSFORM SB!IMPL::|List*| ...)
; x-compiling (DEFTRANSFORM SB!IMPL::|Append| ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/seqtran.lisp-obj-tmp written
; compilation finished in 0:00:10.788
; compiling file "/«PKGBUILDDIR»/src/compiler/typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...)
; x-compiling (DEFUN %DEFINE-TYPE-PREDICATE ...)
; x-compiling (DEFTRANSFORM TYPEP ...)
; x-compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...)
; x-compiling (DEFTRANSFORM %TYPEP ...)
; x-compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...)
; x-compiling (DEFTRANSFORM FIND-CLASSOID ...)
; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...)
; x-compiling (DEFTRANSFORM %TYPEP-WRAPPER ...)
; x-compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...)
; x-compiling (!DEFINE-STANDARD-TYPE-PREDICATES)
; x-compiling (DEFINE-SOURCE-TRANSFORM ATOM ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...)
; x-compiling (DEFTRANSFORM CONSP ...)
; x-compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...)
; x-compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...)
; x-compiling (DEFUN TEST-ARRAY-DIMENSIONS ...)
; x-compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...)
; x-compiling (DEFTRANSFORM %INSTANCE-TYPEP ...)
; x-compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...)
; x-compiling (DEFOPTIMIZER (COERCE OPTIMIZER) ...)
; x-compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...)
; x-compiling (DEFTRANSFORM COERCE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/typetran.lisp-obj-tmp written
; compilation finished in 0:00:03.635
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-typetran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...)
; x-compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...)
; x-compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE RATIOP ...)
; x-compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-BASE-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-CHARACTER-STRING-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SYSTEM-AREA-POINTER-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE UNSIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-32-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE LRA-P ...)
; x-compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...)
; x-compiling (DEF)
; x-compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj-tmp written
; compilation finished in 0:00:00.318
; compiling file "/«PKGBUILDDIR»/src/compiler/float-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN %DOUBLE-FLOAT ...)
; x-compiling (DEFTRANSFORM FLOAT ...)
; x-compiling (DEFTRANSFORM FLOAT ...)
; x-compiling (DEFTRANSFORM FLOAT ...)
; x-compiling (DEFTRANSFORM %SINGLE-FLOAT ...)
; x-compiling (DEFTRANSFORM %DOUBLE-FLOAT ...)
; x-compiling (FROB %RANDOM-SINGLE-FLOAT ...)
; x-compiling (FROB %RANDOM-DOUBLE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2
;     (<= SB!C::N-BITS (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS))
; ==>
;   SB!C::N-BITS
; 
; note: deleting unreachable code

;     (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS)
; ==>
;   SB!KERNEL:N-RANDOM-CHUNK-BITS
; 
; note: deleting unreachable code

;     (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS")
; ==>
;   "Unexpectedly small N-RANDOM-CHUNK-BITS"
; 
; note: deleting unreachable code
; x-compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...)
; x-compiling (DEFTRANSFORM RANDOM ...)
; x-compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...)
; x-compiling (DEFTRANSFORM MAKE-SINGLE-FLOAT ...)
; x-compiling (DEFTRANSFORM MAKE-DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN SINGLE-FLOAT-BITS ...)
; x-compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...)
; x-compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...)
; x-compiling (DEFTRANSFORM FLOAT-SIGN ...)
; x-compiling (DEFTRANSFORM FLOAT-SIGN ...)
; x-compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...)
; x-compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...)
; x-compiling (DEFTRANSFORM DECODE-FLOAT ...)
; x-compiling (DEFTRANSFORM DECODE-FLOAT ...)
; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)
; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX)
;              'SINGLE-FLOAT)
; 
; note: deleting unreachable code
; x-compiling (DEFTRANSFORM SCALE-FLOAT ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFTRANSFORM SCALE-FLOAT
;     (SB!C::LVAR-TYPE SB!C::EX)
; ==>
;   SB!C::EX
; 
; note: deleting unreachable code

;     '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX)
; 
; note: deleting unreachable code
; x-compiling (DEFTRANSFORM SCALE-FLOAT ...)
; x-compiling (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (FROB %SINGLE-FLOAT ...)
; x-compiling (FROB %DOUBLE-FLOAT ...)
; x-compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...)
; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...)
; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...)
; x-compiling (DOLIST (X #) ...)
; x-compiling (DOLIST (X #) ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)
; x-compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...)
; x-compiling (DEF SINGLE-FLOAT)
; x-compiling (DEF DOUBLE-FLOAT)
; x-compiling (DEF + ...)
; x-compiling (DEF - ...)
; x-compiling (DEF + ...)
; x-compiling (DEF - ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)
; x-compiling (FROB <)
; x-compiling (FROB >)
; x-compiling (FROB =)
; x-compiling (DEFKNOWN (%TAN %SINH ...) ...)
; x-compiling (DEFKNOWN (%SIN %COS ...) ...)
; x-compiling (DEFKNOWN (%ASIN %ATAN) ...)
; x-compiling (DEFKNOWN (%ACOS) ...)
; x-compiling (DEFKNOWN (%COSH) ...)
; x-compiling (DEFKNOWN (%ACOSH %EXP ...) ...)
; x-compiling (DEFKNOWN %EXPM1 ...)
; x-compiling (DEFKNOWN (%HYPOT) ...)
; x-compiling (DEFKNOWN (%POW) ...)
; x-compiling (DEFKNOWN (%ATAN2) ...)
; x-compiling (DEFKNOWN (%SCALB) ...)
; x-compiling (DEFKNOWN (%SCALBN) ...)
; x-compiling (DEFKNOWN (%LOG1P) ...)
; x-compiling (DEF EXP ...)
; x-compiling (DEF LOG ...)
; x-compiling (DEF SQRT ...)
; x-compiling (DEF ASIN ...)
; x-compiling (DEF ACOS ...)
; x-compiling (DEF ATAN ...)
; x-compiling (DEF SINH ...)
; x-compiling (DEF COSH ...)
; x-compiling (DEF TANH ...)
; x-compiling (DEF ASINH ...)
; x-compiling (DEF ACOSH ...)
; x-compiling (DEF ATANH ...)
; x-compiling (DEF SIN ...)
; x-compiling (DEF COS ...)
; x-compiling (DEF TAN ...)
; x-compiling (DEFTRANSFORM ATAN ...)
; x-compiling (DEFTRANSFORM ATAN ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM LOG ...)
; x-compiling (DEFTRANSFORM ABS ...)
; x-compiling (DEFTRANSFORM ABS ...)
; x-compiling (DEFTRANSFORM PHASE ...)
; x-compiling (DEFTRANSFORM PHASE ...)
; x-compiling (DEFTRANSFORM PHASE ...)
; x-compiling (DEFUN NUMERIC-TYPE-REAL-P ...)
; x-compiling (DEFUN COERCE-NUMERIC-BOUND ...)
; x-compiling (DEFUN COMPLEX-FLOAT-TYPE ...)
; x-compiling (DEFUN FLOAT-OR-COMPLEX-FLOAT-TYPE ...)
; x-compiling (DEFUN DOMAIN-SUBTYPEP ...)
; x-compiling (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ...)
; x-compiling (FROB EXP ...)
; x-compiling (FROB SINH ...)
; x-compiling (FROB TANH ...)
; x-compiling (FROB ASINH ...)
; x-compiling (FROB ASIN ...)
; x-compiling (FROB ACOS ...)
; x-compiling (FROB ACOSH ...)
; x-compiling (FROB ATANH ...)
; x-compiling (FROB SQRT ...)
; x-compiling (DEFUN SAFE-EXPT ...)
; x-compiling (DEFUN INTERVAL-EXPT-> ...)
; x-compiling (DEFUN INTERVAL-EXPT-< ...)
; x-compiling (DEFUN INTERVAL-EXPT ...)
; x-compiling (DEFUN FIXUP-INTERVAL-EXPT ...)
; x-compiling (DEFUN MERGED-INTERVAL-EXPT ...)
; x-compiling (DEFUN EXPT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (EXPT DERIVE-TYPE) ...)
; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-1 ...)
; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-2 ...)
; x-compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...)
; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-1 ...)
; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-2 ...)
; x-compiling (DEFOPTIMIZER (ATAN DERIVE-TYPE) ...)
; x-compiling (DEFUN COSH-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (COSH DERIVE-TYPE) ...)
; x-compiling (DEFUN PHASE-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (PHASE DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM REALPART ...)
; x-compiling (DEFTRANSFORM IMAGPART ...)
; x-compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...)
; x-compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...)
; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...)
; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...)
; x-compiling (DEFOPTIMIZER (COMPLEX DERIVE-TYPE) ...)
; x-compiling (FROB SINGLE-FLOAT)
; x-compiling (FROB DOUBLE-FLOAT)
; x-compiling (DEFUN TRIG-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (SIN DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (COS DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (TAN DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CIS DERIVE-TYPE) ...)
; x-compiling (DEFINE-FROBS TRUNCATE ...)
; x-compiling (DEFINE-FROBS ROUND ...)
; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; x-compiling (DEF DOUBLE-FLOAT ...)
; x-compiling (DEFKNOWN %UNARY-FTRUNCATE ...)
; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...)
; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/SINGLE
;     (DEFUN SB!C::%UNARY-FTRUNCATE/SINGLE (SB!C::X)
;       (DECLARE (TYPE SINGLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (LET* ((SB!C::BITS (SB!KERNEL:SINGLE-FLOAT-BITS SB!C::X))
;              (EXP (SB-XC:LDB SB!VM:SINGLE-FLOAT-EXPONENT-BYTE SB!C::BITS))
;              (SB!C::BIASED (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT #)))
;         (DECLARE (TYPE (SIGNED-BYTE 32) SB!C::BITS))
;         (COND ((= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X)
;               ((<= SB!C::BIASED 0) (* SB!C::X 0.0)) ((>= SB!C::BIASED #) SB!C::X)
;               (T
;                (LET #
;                  #
;                  #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::%UNARY-FTRUNCATE/SINGLE
;         (SB!C::X)
;       (DECLARE (TYPE SINGLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (BLOCK SB!C::%UNARY-FTRUNCATE/SINGLE
;         (LET* ((SB!C::BITS #) (EXP #) (SB!C::BIASED #))
;           (DECLARE (TYPE # SB!C::BITS))
;           (COND (# SB!C::X) (# #) (# SB!C::X) (T #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"
; x-compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...)

; file: /«PKGBUILDDIR»/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
;     (DEFUN SB!C::%UNARY-FTRUNCATE/DOUBLE (SB!C::X)
;       (DECLARE (TYPE DOUBLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (LET* ((SB!C::HIGH (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::X))
;              (SB!C::LOW (SB!KERNEL:DOUBLE-FLOAT-LOW-BITS SB!C::X))
;              (EXP (SB-XC:LDB SB!VM:DOUBLE-FLOAT-EXPONENT-BYTE SB!C::HIGH))
;              (SB!C::BIASED (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT #)))
;         (DECLARE (TYPE (SIGNED-BYTE 32) SB!C::HIGH)
;                  (TYPE (UNSIGNED-BYTE 32) SB!C::LOW))
;         (COND ((= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X)
;               ((<= SB!C::BIASED 0) (* SB!C::X 0.0d0))
;               ((>= SB!C::BIASED #) SB!C::X)
;               (T
;                (LET #
;                  #
;                  #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::%UNARY-FTRUNCATE/DOUBLE
;         (SB!C::X)
;       (DECLARE (TYPE DOUBLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (BLOCK SB!C::%UNARY-FTRUNCATE/DOUBLE
;         (LET* ((SB!C::HIGH #) (SB!C::LOW #) (EXP #) (SB!C::BIASED #))
;           (DECLARE (TYPE # SB!C::HIGH)
;                    (TYPE # SB!C::LOW))
;           (COND (# SB!C::X) (# #) (# SB!C::X) (T #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"
; x-compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...)
; x-compiling (DEF SINGLE-FLOAT ...)
; 
; compilation unit finished
;   printed 9 notes
; x-compiling (DEF DOUBLE-FLOAT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/float-tran.lisp-obj-tmp written
; compilation finished in 0:00:10.426
; compiling file "/«PKGBUILDDIR»/src/compiler/saptran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFKNOWN (SAP< SAP<= ...) ...)
; x-compiling (DEFKNOWN SAP+ ...)
; x-compiling (DEFKNOWN SAP- ...)
; x-compiling (DEFKNOWN SAP-INT ...)
; x-compiling (DEFKNOWN INT-SAP ...)
; x-compiling (DEFSAPREF SAP-REF-8 ...)
; x-compiling (DEFSAPREF SAP-REF-16 ...)
; x-compiling (DEFSAPREF SAP-REF-32 ...)
; x-compiling (DEFSAPREF SAP-REF-64 ...)
; x-compiling (DEFSAPREF SAP-REF-WORD ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-8 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-16 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-32 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-64 ...)
; x-compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFSAPREF SAP-REF-SAP ...)
; x-compiling (DEFSAPREF SAP-REF-LISPOBJ ...)
; x-compiling (DEFSAPREF SAP-REF-SINGLE ...)
; x-compiling (DEFSAPREF SAP-REF-DOUBLE ...)
; x-compiling (DEFSAPREF SAP-REF-LONG ...)
; x-compiling (DEF SAP< ...)
; x-compiling (DEF SAP<= ...)
; x-compiling (DEF SAP= ...)
; x-compiling (DEF SAP>= ...)
; x-compiling (DEF SAP> ...)
; x-compiling (DEFTRANSFORM SAP+ ...)
; x-compiling (DEF SAP-REF-8)
; x-compiling (DEF %SET-SAP-REF-8 ...)
; x-compiling (DEF SIGNED-SAP-REF-8)
; x-compiling (DEF %SET-SIGNED-SAP-REF-8 ...)
; x-compiling (DEF SAP-REF-16)
; x-compiling (DEF %SET-SAP-REF-16 ...)
; x-compiling (DEF SIGNED-SAP-REF-16)
; x-compiling (DEF %SET-SIGNED-SAP-REF-16 ...)
; x-compiling (DEF SAP-REF-32)
; x-compiling (DEF %SET-SAP-REF-32 ...)
; x-compiling (DEF SIGNED-SAP-REF-32)
; x-compiling (DEF %SET-SIGNED-SAP-REF-32 ...)
; x-compiling (DEF SAP-REF-64)
; x-compiling (DEF %SET-SAP-REF-64 ...)
; x-compiling (DEF SIGNED-SAP-REF-64)
; x-compiling (DEF %SET-SIGNED-SAP-REF-64 ...)
; x-compiling (DEF SAP-REF-SAP)
; x-compiling (DEF %SET-SAP-REF-SAP ...)
; x-compiling (DEF SAP-REF-LISPOBJ)
; x-compiling (DEF %SET-SAP-REF-LISPOBJ ...)
; x-compiling (DEF SAP-REF-SINGLE)
; x-compiling (DEF %SET-SAP-REF-SINGLE ...)
; x-compiling (DEF SAP-REF-DOUBLE)
; x-compiling (DEF %SET-SAP-REF-DOUBLE ...)
; x-compiling (DEF SAP-REF-WORD ...)
; x-compiling (DEF SIGNED-SAP-REF-WORD ...)
; x-compiling (DEF %SET-SAP-REF-WORD ...)
; x-compiling (DEF %SET-SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFTRANSFORM SAP-REF-64 ...)
; x-compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...)
; x-compiling (DEFTRANSFORM %SET-SAP-REF-64 ...)
; x-compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/saptran.lisp-obj-tmp written
; compilation finished in 0:00:02.390
; compiling file "/«PKGBUILDDIR»/src/compiler/srctran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES ...)
; x-compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM COMPLEMENT ...)
; x-compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...)
; x-compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CXR ...)
; x-compiling (/SHOW0 "about to set CxR source transforms")
; x-compiling (LOOP FOR ...)
; x-compiling (/SHOW0 "done setting CxR source transforms")
; x-compiling (DEFINE-SOURCE-TRANSFORM REST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FIRST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SECOND ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM THIRD ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NINTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM TENTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LIST ...)
; x-compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LIST* ...)
; x-compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NCONC ...)
; x-compiling (DEFUN DERIVE-APPEND-TYPE ...)
; x-compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...)
; x-compiling (DEFTRANSFORM LAST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM GET ...)
; x-compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...)
; x-compiling (DEFTRANSFORM NTHCDR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM 1+ ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM 1- ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ODDP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM EVENP ...)
; x-compiling (DEFFROB TRUNCATE)
; x-compiling (DEFFROB ROUND)
; x-compiling (DEFFROB FLOOR)
; x-compiling (DEFFROB CEILING)
; x-compiling (DEFTRANSFORM LOGTEST ...)
; x-compiling (DEFTRANSFORM LOGBITP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...)
; x-compiling (DEF SIGNED-ZERO->= ...)
; x-compiling (DEF SIGNED-ZERO-> ...)
; x-compiling (DEF SIGNED-ZERO-= ...)
; x-compiling (DEF SIGNED-ZERO-< ...)
; x-compiling (DEF SIGNED-ZERO-<= ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFSTRUCT INTERVAL
;     (DEFSTRUCT (SB!C::INTERVAL (:CONSTRUCTOR SB!C::%MAKE-INTERVAL) (:COPIER NIL))
;       SB!C::LOW
;       SB!C::HIGH)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C::INTERVAL {5571E201}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C::INTERVAL-LOW and SB!C::INTERVAL-HIGH could
;   not be inlined because the structure definition for SB!C::INTERVAL was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (INTERVAL # ...) ...)
; x-compiling (DEFUN MAKE-INTERVAL ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DECLAIM (INLINE SET-BOUND)
;     (DECLAIM (INLINE SB!C::SET-BOUND))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!C::SET-BOUND) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!C::SET-BOUND to be INLINE, but 3 calls to it were previously
;   compiled. A declaration of NOTINLINE at the call sites will eliminate this
;   warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE SET-BOUND))
; x-compiling (DEFUN SET-BOUND ...)
; x-compiling (DEFUN BOUND-FUNC ...)
; x-compiling (DEFUN SAFE-DOUBLE-COERCION-P ...)
; x-compiling (DEFUN SAFE-SINGLE-COERCION-P ...)
; x-compiling (DEFMACRO SAFELY-BINOP ...)
; x-compiling (DEFMACRO BOUND-BINOP ...)
; x-compiling (DEFUN COERCION-LOSES-PRECISION-P ...)
; x-compiling (DEFUN COERCE-FOR-BOUND ...)
; x-compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...)
; x-compiling (DEFUN NUMERIC-TYPE->INTERVAL ...)
; x-compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...)
; x-compiling (DEFUN COPY-INTERVAL-LIMIT ...)
; x-compiling (DEFUN COPY-INTERVAL ...)
; x-compiling (DEFUN INTERVAL-SPLIT ...)
; x-compiling (DEFUN INTERVAL-CLOSURE ...)
; x-compiling (DEFUN INTERVAL-RANGE-INFO ...)
; x-compiling (DEFUN INTERVAL-BOUNDED-P ...)
; x-compiling (DEFUN INTERVAL-CONTAINS-P ...)
; x-compiling (DEFUN INTERVAL-INTERSECT-P ...)
; x-compiling (DEFUN INTERVAL-ADJACENT-P ...)
; x-compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...)
; x-compiling (DEFUN INTERVAL-MERGE-PAIR ...)
; x-compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...)
; x-compiling (DEFUN INTERVAL-NEG ...)
; x-compiling (DEFUN INTERVAL-ADD ...)
; x-compiling (DEFUN INTERVAL-SUB ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN INTERVAL-MUL
;     (SB!INT:BUG "excluded case in INTERVAL-MUL")
; ==>
;   "excluded case in INTERVAL-MUL"
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERVAL-MUL ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN INTERVAL-DIV
;     (SB!INT:BUG "excluded case in INTERVAL-DIV")
; ==>
;   "excluded case in INTERVAL-DIV"
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERVAL-DIV ...)
; x-compiling (DEFUN INTERVAL-FUNC ...)
; x-compiling (DEFUN INTERVAL-< ...)
; x-compiling (DEFUN INTERVAL->= ...)
; x-compiling (DEFUN INTERVAL-= ...)
; x-compiling (DEFUN INTERVAL-/= ...)
; x-compiling (DEFUN INTERVAL-ABS ...)
; x-compiling (DEFUN INTERVAL-SQR ...)
; x-compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...)
; x-compiling (DEFUN DERIVE-INTEGER-TYPE ...)
; x-compiling (DEFUN FLATTEN-LIST ...)
; x-compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...)
; x-compiling (DEFUN CONVERT-NUMERIC-TYPE ...)
; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...)
; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...)
; x-compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...)
; x-compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...)
; x-compiling (DEFUN CONVERT-MEMBER-TYPE ...)
; x-compiling (DEFUN ONE-ARG-DERIVE-TYPE ...)
; x-compiling (DEFUN TWO-ARG-DERIVE-TYPE ...)
; x-compiling (DEFUN +-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...)
; x-compiling (DEFUN --DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...)
; x-compiling (DEFUN *-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...)
; x-compiling (DEFUN /-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...)
; x-compiling (DEFUN ASH-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...)
; x-compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...)
; x-compiling (DEFUN ABS-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...)
; x-compiling (DEFUN REM-RESULT-TYPE ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT-AUX ...)
; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM-AUX ...)
; x-compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT ...)
; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT-AUX ...)
; x-compiling (DEFOPTIMIZER (FTRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFUN %UNARY-TRUNCATE-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/SINGLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/DOUBLE-FLOAT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-FTRUNCATE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%UNARY-ROUND DERIVE-TYPE) ...)
; x-compiling (DEF FLOOR ...)
; x-compiling (DEF CEILING ...)
; x-compiling (DEF FFLOOR ...)
; x-compiling (DEF FCEILING ...)
; x-compiling (DEFUN FLOOR-QUOTIENT-BOUND ...)
; x-compiling (DEFUN FLOOR-REM-BOUND ...)
; x-compiling (DEFUN CEILING-QUOTIENT-BOUND ...)
; x-compiling (DEFUN CEILING-REM-BOUND ...)
; x-compiling (DEFUN TRUNCATE-QUOTIENT-BOUND ...)
; x-compiling (DEFUN TRUNCATE-REM-BOUND ...)
; x-compiling (DEFUN NUMERIC-RANGE-INFO ...)
; x-compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...)
; x-compiling (DEFUN RANDOM-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGCOUNT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...)
; x-compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LDB ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM DPB ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...)
; x-compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...)
; x-compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %LDB ...)
; x-compiling (DEFTRANSFORM %MASK-FIELD ...)
; x-compiling (DEFTRANSFORM %DPB ...)
; x-compiling (DEFTRANSFORM %DPB ...)
; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...)
; x-compiling (DEFUN %ASH/RIGHT ...)
; x-compiling (DEFTRANSFORM ASH ...)
; x-compiling (DEFTRANSFORM ASH ...)
; x-compiling (DEFTRANSFORM %ASH/RIGHT ...)
; x-compiling (DEFTRANSFORM %ASH/RIGHT ...)
; x-compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...)
; x-compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...)
; x-compiling (DEFUN CUT-TO-WIDTH ...)
; x-compiling (DEFUN BEST-MODULAR-VERSION ...)
; x-compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...)
; x-compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...)
; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...)
; x-compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...)
; x-compiling (DEFTRANSFORM BOOLE ...)
; x-compiling (DEFTRANSFORM * ...)
; x-compiling (DEFTRANSFORM FLOOR ...)
; x-compiling (DEFTRANSFORM CEILING ...)
; x-compiling (DEFTRANSFORM REM ...)
; x-compiling (DEFTRANSFORM MOD ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFTRANSFORM MOD ...)
; x-compiling (DEFTRANSFORM TRUNCATE ...)
; x-compiling (DEFTRANSFORM REM ...)
; x-compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...)
; x-compiling (DEFTRANSFORM TRUNCATE ...)
; x-compiling (DEF ASH ...)
; x-compiling (DEF LOGAND ...)
; x-compiling (DEF LOGAND ...)
; x-compiling (DEF LOGIOR ...)
; x-compiling (DEF LOGIOR ...)
; x-compiling (DEF LOGXOR ...)
; x-compiling (DEF LOGXOR ...)
; x-compiling (DEFUN LEAST-ZERO-BIT ...)
; x-compiling (DEFTRANSFORM LOGAND ...)
; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; x-compiling (DEFTRANSFORM LOGIOR ...)
; x-compiling (DEF LOGAND)
; x-compiling (DEF LOGIOR)
; x-compiling (DEF LOGXOR)
; x-compiling (DEF LOGTEST ...)
; x-compiling (DEF + ...)
; x-compiling (DEF + ...)
; x-compiling (DEF * ...)
; x-compiling (DEF * ...)
; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...)
; x-compiling (DEFTRANSFORM - ...)
; x-compiling (DEFTRANSFORM * ...)
; x-compiling (DEFTRANSFORM %NEGATE ...)
; x-compiling (DEFTRANSFORM %NEGATE ...)
; x-compiling (DEFUN NOT-MORE-CONTAGIOUS ...)
; x-compiling (DEF!TYPE EXACT-NUMBER ...)
; x-compiling (DEFTRANSFORM + ...)
; x-compiling (DEFTRANSFORM - ...)
; x-compiling (DEF * ...)
; x-compiling (DEF / ...)
; x-compiling (DEF EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEFTRANSFORM EXPT ...)
; x-compiling (DEF ASH)
; x-compiling (DEF /)
; x-compiling (DEF TRUNCATE)
; x-compiling (DEF ROUND)
; x-compiling (DEF FLOOR)
; x-compiling (DEF CEILING)
; x-compiling (DEF TRUNCATE)
; x-compiling (DEF ROUND)
; x-compiling (DEF FLOOR)
; x-compiling (DEF CEILING)
; x-compiling (DEF FTRUNCATE ...)
; x-compiling (DEF FROUND ...)
; x-compiling (DEF FFLOOR ...)
; x-compiling (DEF FCEILING ...)
; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...)
; x-compiling (DEFTRANSFORM CHAR-UPCASE ...)
; x-compiling (DEFTRANSFORM CHAR-DOWNCASE ...)
; x-compiling (DEFUN SAME-LEAF-REF-P ...)
; x-compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...)
; x-compiling (DEF EQ)
; x-compiling (DEF CHAR=)
; x-compiling (DEF TWO-ARG-CHAR-EQUAL)
; x-compiling (DEFTRANSFORM EQL ...)
; x-compiling (DEFTRANSFORM EQUAL ...)
; x-compiling (DEFTRANSFORM EQUALP ...)
; x-compiling (DEFTRANSFORM = ...)
; x-compiling (DEFUN MAYBE-FLOAT-LVAR-P ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEF = ...)
; x-compiling (DEF /= ...)
; x-compiling (DEF < ...)
; x-compiling (DEF > ...)
; x-compiling (DEF <= ...)
; x-compiling (DEF >= ...)
; x-compiling (DEFUN IR1-TRANSFORM-CHAR< ...)
; x-compiling (DEFTRANSFORM CHAR< ...)
; x-compiling (DEFTRANSFORM CHAR> ...)
; x-compiling (DEFUN MULTI-COMPARE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM = ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM < ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM > ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM <= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM >= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN MULTI-NOT-EQUAL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM /= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MAX ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM MIN ...)
; x-compiling (DEF < ...)
; x-compiling (DEF > ...)
; x-compiling (DEFTRANSFORM = ...)
; x-compiling (DEFTRANSFORM = ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ASSOCIATE-ARGS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN REDUCE-CONSTANTS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM + ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM * ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM GCD ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LCM ...)
; x-compiling (DECLAIM (FTYPE # ...))

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE
;     (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;            (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;             &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (CASE (LENGTH SB!C::ARGS)
;         ((0 2) (VALUES NIL T))
;         (1 (SB!INT:QUASIQUOTE (# #)))
;         (T
;          (LET (#)
;            (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES
;          &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER))
;       (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;         (CASE (LENGTH SB!C::ARGS)
;           ((0 2) (VALUES NIL T))
;           (1 (SB!INT:QUASIQUOTE #))
;           (T
;            (LET #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LIST &OPTIONAL (MEMBER T NIL)).
; x-compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM - ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM / ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM APPLY ...)
; x-compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...)
; x-compiling (DEFUN MARK-MORE-CONTEXT-USED ...)
; x-compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...)
; x-compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM FAST-&REST-NTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ELT ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-CAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CAR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CADR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CADDR ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...)
; x-compiling (DEFUN SOURCE-TRANSFORM-NULL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NOT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM NULL ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM ENDP ...)
; x-compiling (DEFTRANSFORM %REST-VALUES ...)
; x-compiling (DEFTRANSFORM %REST-REF ...)
; x-compiling (DEFTRANSFORM %REST-LENGTH ...)
; x-compiling (DEFTRANSFORM %REST-NULL ...)
; x-compiling (DEFTRANSFORM %REST-TRUE ...)
; x-compiling (DEFUN CHECK-FORMAT-ARGS ...)
; x-compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFUN CONCATENATE-FORMAT-P ...)
; x-compiling (DEFTRANSFORM FORMAT ...)
; x-compiling (DEFTRANSFORM PATHNAME ...)
; x-compiling (DEFTRANSFORM PATHNAME ...)
; x-compiling (DEF ERROR)
; x-compiling (DEF WARN)
; x-compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFOPTIMIZER (COERCE DERIVE-TYPE)
;     (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE))))
;       (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT)))))
; 
; note: deleting unreachable code

;     (LISTP ELT)
; ==>
;   ELT
; 
; note: deleting unreachable code

;     (FIRST ELT)
; --> CAR 
; ==>
;   ELT
; 
; note: deleting unreachable code

;     (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE))))
;       (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT)))))
; 
; note: deleting unreachable code

;     (NUMBERP ELT)
; ==>
;   ELT
; 
; note: deleting unreachable code

;     (SB!KERNEL:CONS-TYPE-CDR-TYPE SB!KERNEL:CONS-TYPE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!KERNEL:CONS-TYPE
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-SIZE SB!KERNEL:CONS-TYPE)
; ==>
;   SB!KERNEL:CONS-TYPE
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!KERNEL:CONS-TYPE)
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-SIZE SB!KERNEL:CONS-TYPE)
; 
; note: deleting unreachable code

;     (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!KERNEL:CONS-TYPE)
; ==>
;   SB!KERNEL:CONS-TYPE
; 
; note: deleting unreachable code

;     (LET ((SB!C::C-TYPE (SB!C::UNCONSIFY-TYPE (SB!KERNEL:TYPE-SPECIFIER TYPE))))
;       (IF (SB!C::COERCEABLE-P SB!C::C-TYPE)
;           (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE)
;           SB!KERNEL:*UNIVERSAL-TYPE*))
; 
; note: deleting unreachable code

;     (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE)
; ==>
;   SB!C::C-TYPE
; 
; note: deleting unreachable code

;     (IF (SB!C::COERCEABLE-P SB!C::C-TYPE)
;         (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE)
;         SB!KERNEL:*UNIVERSAL-TYPE*)
; ==>
;   SB!KERNEL:*UNIVERSAL-TYPE*
; 
; note: deleting unreachable code
; x-compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...)
; x-compiling (DEFTRANSFORM SORT ...)
; x-compiling (DEFTRANSFORM STABLE-SORT ...)
; x-compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...)
; x-compiling (DEFTRANSFORM SLEEP ...)

; file: /«PKGBUILDDIR»/src/compiler/srctran.lisp
; in: DEFTRANSFORM FORMAT
;     (HANDLER-CASE
;      (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL))
;      (SB!FORMAT:FORMAT-ERROR NIL (SB!C::GIVE-UP-IR1-TRANSFORM)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

;     (HANDLER-CASE (SB!FORMAT::%FORMATTER SB!C::CONTROL SB!C::ARGC NIL)
;                   (SB!FORMAT:FORMAT-ERROR NIL
;                    (SB!INT:QUASIQUOTE
;                     (FORMATTER #S(SB!IMPL::COMMA :EXPR SB!C::CONTROL :KIND 0)))))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; in: DEFUN CHECK-FORMAT-ARGS
;     (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
;                   (SB!FORMAT:FORMAT-ERROR (SB!C::C)
;                    (SB!C:COMPILER-WARN "~A" SB!C::C)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: SB!FORMAT:FORMAT-ERROR

; 
; caught STYLE-WARNING:
;   10 more uses of undefined type SB!FORMAT:FORMAT-ERROR
; 
; compilation unit finished
;   Undefined type:
;     SB!FORMAT:FORMAT-ERROR
;   caught 6 STYLE-WARNING conditions
;   printed 16 notes
; x-compiling (DEFTRANSFORM SLEEP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/srctran.lisp-obj-tmp written
; compilation finished in 0:00:24.848
; compiling file "/«PKGBUILDDIR»/src/compiler/bitops-derive-type.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN INTEGER-TYPE-LENGTH ...)
; x-compiling (DECLAIM (INLINE ZEROES))
; x-compiling (DEFUN ZEROES ...)
; x-compiling (DECLAIM (INLINE ONES))
; x-compiling (DEFUN ONES ...)
; x-compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...)
; x-compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...)
; x-compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...)
; x-compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...)
; x-compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...)
; x-compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...)
; x-compiling (DEFFROB LOGAND)
; x-compiling (DEFFROB LOGIOR)
; x-compiling (DEFFROB LOGXOR)
; x-compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/bitops-derive-type.lisp-obj-tmp written
; compilation finished in 0:00:01.081
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...)
; x-compiling (DEFTRANSFORM ABS ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; x-compiling (DEFTRANSFORM DATA-VECTOR-REF ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; x-compiling (DEFTRANSFORM DATA-VECTOR-SET ...)
; x-compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...)
; x-compiling (DEF %ARRAY-DATA-VECTOR)
; x-compiling (DEF ARRAY-STORAGE-VECTOR)
; x-compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...)
; x-compiling (DEF BIT-AND ...)
; x-compiling (DEF BIT-IOR ...)
; x-compiling (DEF BIT-XOR ...)
; x-compiling (DEF BIT-EQV ...)
; x-compiling (DEF BIT-NAND ...)
; x-compiling (DEF BIT-NOR ...)
; x-compiling (DEF BIT-ANDC1 ...)
; x-compiling (DEF BIT-ANDC2 ...)
; x-compiling (DEF BIT-ORC1 ...)
; x-compiling (DEF BIT-ORC2 ...)
; x-compiling (DEFTRANSFORM BIT-NOT ...)
; x-compiling (DEFTRANSFORM BIT-VECTOR-= ...)
; x-compiling (DEFTRANSFORM COUNT ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM FILL ...)
; x-compiling (DEFTRANSFORM %BYTE-BLT ...)
; x-compiling (DEFTRANSFORM EQL ...)
; x-compiling (DEFTRANSFORM EQL ...)
; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...)
; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...)
; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...)
; x-compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...)
; x-compiling (DEF SB!VM::ASH-LEFT-MODFX ...)
; x-compiling (DEF SB!VM::ASH-LEFT-MOD32 ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-AND ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-OR ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...)
; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...)
; x-compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...)
; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-tran.lisp-obj-tmp written
; compilation finished in 0:00:04.630
; compiling file "/«PKGBUILDDIR»/src/compiler/locall.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN PROPAGATE-TO-ARGS ...)
; x-compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...)
; x-compiling (DEFUN MERGE-TAIL-SETS ...)
; x-compiling (DEFUN CONVERT-CALL ...)
; x-compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...)
; x-compiling (DEFUN MAKE-XEP ...)
; x-compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...)
; x-compiling (DEFUN REFERENCE-ENTRY-POINT ...)
; x-compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...)
; x-compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...)
; x-compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...)
; x-compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...)
; x-compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...)
; x-compiling (DEFUN CONVERT-MV-CALL ...)
; x-compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...)
; x-compiling (DEFUN WARN-INVALID-LOCAL-CALL ...)
; x-compiling (DEFUN CONVERT-LAMBDA-CALL ...)
; x-compiling (DEFUN CONVERT-HAIRY-CALL ...)
; x-compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...)
; x-compiling (DEFUN CONVERT-MORE-CALL ...)
; x-compiling (DEFUN INSERT-LET-BODY ...)
; x-compiling (DEFUN DEPART-FROM-TAIL-SET ...)
; x-compiling (DEFUN MERGE-LETS ...)
; x-compiling (DEFUN MOVE-RETURN-USES ...)
; x-compiling (DEFUN UNCONVERT-TAIL-CALLS ...)
; x-compiling (DEFUN MOVE-RETURN-STUFF ...)
; x-compiling (DEFUN LET-CONVERT ...)
; x-compiling (DEFUN REOPTIMIZE-CALL ...)
; x-compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...)
; x-compiling (DEFUN OK-INITIAL-CONVERT-P ...)
; x-compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...)
; x-compiling (DEFUN MAYBE-LET-CONVERT ...)
; x-compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...)
; x-compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...)
; x-compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/locall.lisp-obj-tmp written
; compilation finished in 0:00:04.151
; compiling file "/«PKGBUILDDIR»/src/compiler/dfo.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-DFO ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN JOIN-COMPONENTS ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-DFO-AUX ...)
; x-compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...)
; x-compiling (DEFUN FIND-INITIAL-DFO-AUX ...)
; x-compiling (DEFUN FIND-REFERENCE-FUNS ...)
; x-compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...)
; x-compiling (DEFUN HAS-XEP-OR-NLX ...)
; x-compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...)
; x-compiling (DEFUN FIND-INITIAL-DFO ...)
; x-compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...)
; x-compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/dfo.lisp-obj-tmp written
; compilation finished in 0:00:02.039
; compiling file "/«PKGBUILDDIR»/src/compiler/dce.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN LAMBDA-EXTERNALLY-REFERENCED-P ...)
; x-compiling (DEFUN DCE-ANALYZE-REF ...)
; x-compiling (DEFUN DCE-ANALYZE-BLOCK ...)
; x-compiling (DEFUN DCE-ANALYZE-ONE-FUN ...)
; x-compiling (DEFUN ELIMINATE-DEAD-CODE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/dce.lisp-obj-tmp written
; compilation finished in 0:00:00.296
; compiling file "/«PKGBUILDDIR»/src/compiler/checkgen.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FUN-GUESSED-COST ...)
; x-compiling (DEFUN TYPE-TEST-COST ...)
; x-compiling (DEFUN WEAKEN-INTEGER-TYPE ...)
; x-compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...)
; x-compiling (DEFUN WEAKEN-VALUES-TYPE ...)
; x-compiling (DEFUN MAYBE-WEAKEN-CHECK ...)
; x-compiling (DEFUN NO-FUN-VALUES-TYPES ...)
; x-compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...)
; x-compiling (DEFUN MAYBE-NEGATE-CHECK ...)
; x-compiling (DEFUN CAST-CHECK-TYPES ...)
; x-compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...)
; x-compiling (DEFUN PROBABLE-TYPE-CHECK-P ...)
; x-compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...)
; x-compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...)
; x-compiling (DEFUN MAKE-TYPE-CHECK-FORM ...)
; x-compiling (DEFUN CONVERT-TYPE-CHECK ...)
; x-compiling (DEFUN CAST-CHECK-USES ...)
; x-compiling (DEFUN GENERATE-TYPE-CHECKS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/checkgen.lisp-obj-tmp written
; compilation finished in 0:00:02.815
; compiling file "/«PKGBUILDDIR»/src/compiler/constraint.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*)
; x-compiling (DEFTYPE CONSTRAINT-Y ...)
; x-compiling (DEFSTRUCT (CONSTRAINT # ...) ...)
; x-compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER))
; x-compiling (DEFUN %CONSTRAINT-NUMBER ...)
; x-compiling (DEFSTRUCT (CONSET # ...) ...)
; x-compiling (DEFUN CONSET-EMPTY ...)
; x-compiling (DEFUN COPY-CONSET ...)
; x-compiling (DEFUN %CONSET-GROW ...)
; x-compiling (DECLAIM (INLINE CONSET-GROW))
; x-compiling (DEFUN CONSET-GROW ...)
; x-compiling (DEFUN CONSET-MEMBER ...)
; x-compiling (DEFUN CONSET-ADJOIN ...)
; x-compiling (DEFUN CONSET= ...)
; x-compiling (DEFCONSETOP CONSET-UNION ...)
; x-compiling (DEFCONSETOP CONSET-INTERSECTION ...)
; x-compiling (DEFCONSETOP CONSET-DIFFERENCE ...)
; x-compiling (DEFUN FIND-CONSTRAINT ...)
; x-compiling (DEFUN REGISTER-CONSTRAINT ...)
; x-compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...)
; x-compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...)
; x-compiling (DEFMACRO DO-EQL-VARS ...)
; x-compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...)
; x-compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...)
; x-compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...))
; x-compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...)
; x-compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...)
; x-compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...))
; x-compiling (DEFUN CONSET-ADD-CONSTRAINT ...)
; x-compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...)
; x-compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR))
; x-compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...)
; x-compiling (DEFUN INHERIT-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...)
; x-compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR))
; x-compiling (DEFUN OK-REF-LAMBDA-VAR ...)
; x-compiling (DEFUN OK-LVAR-LAMBDA-VAR ...)
; x-compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT))
; x-compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...)
; x-compiling (DEFUN ADD-TEST-CONSTRAINT ...)
; x-compiling (DECLAIM (INLINE QUICK-ADD-COMPLEMENT-CONSTRAINTS))
; x-compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...)
; x-compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...)
; x-compiling (DEFUN ADD-TEST-CONSTRAINTS ...)
; x-compiling (DEFUN INTEGER-TYPE-P ...)
; x-compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...)
; x-compiling (DEFUN FLOAT-TYPE-P ...)
; x-compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...)
; x-compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...)
; x-compiling (DEFUN CONSTRAIN-REF-TYPE ...)
; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...)
; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...)
; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...)
; x-compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...)
; x-compiling (DEFUN USE-RESULT-CONSTRAINTS ...)
; x-compiling (DEFUN INIT-VAR-CONSTRAINTS ...)
; x-compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...)
; x-compiling (DEFUN COMPUTE-BLOCK-IN ...)
; x-compiling (DEFUN UPDATE-BLOCK-IN ...)
; x-compiling (DEFUN LEADING-COMPONENT-BLOCKS ...)
; x-compiling (DEFUN NCONC-NEW ...)
; x-compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...)
; x-compiling (DEFUN CONSTRAINT-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/constraint.lisp-obj-tmp written
; compilation finished in 0:00:07.434
; compiling file "/«PKGBUILDDIR»/src/compiler/physenvanal.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN PHYSENV-ANALYZE ...)
; x-compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...)
; x-compiling (DEFUN GET-LAMBDA-PHYSENV ...)
; x-compiling (DEFUN REINIT-LAMBDA-PHYSENV ...)
; x-compiling (DEFUN GET-NODE-PHYSENV ...)
; x-compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...)
; x-compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...)
; x-compiling (DEFUN XEP-ALLOCATOR ...)
; x-compiling (DEFUN CLOSE-OVER ...)
; x-compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...)
; x-compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*)

; file: /«PKGBUILDDIR»/src/compiler/physenvanal.lisp
; in: DEFUN FUNCTIONAL-MAY-ESCAPE-P
;     (WHEN SB!C::LVAR (SB!C::LVAR-DEST SB!C::LVAR))
; --> IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a NODE:
;     NIL
; x-compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...)
; x-compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...)
; x-compiling (DEFUN INSERT-NLX-ENTRY-STUB ...)
; x-compiling (DEFUN NOTE-NON-LOCAL-EXIT ...)
; x-compiling (DEFUN FIND-NON-LOCAL-EXITS ...)
; x-compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...)
; x-compiling (DEFUN EMIT-CLEANUPS ...)
; x-compiling (DEFUN FIND-CLEANUP-POINTS ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN TAIL-ANNOTATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/physenvanal.lisp-obj-tmp written
; compilation finished in 0:00:01.771
; compiling file "/«PKGBUILDDIR»/src/compiler/tn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; x-compiling (DEFMACRO DO-PACKED-TNS ...)
; x-compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...)
; x-compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...)
; x-compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...)
; x-compiling (DEFUN DELETE-UNREFERENCED-TNS ...)
; x-compiling (DEFUN MAKE-NORMAL-TN ...)
; x-compiling (DEFUN MAKE-REPRESENTATION-TN ...)
; x-compiling (DEFUN MAKE-WIRED-TN ...)
; x-compiling (DEFUN MAKE-RESTRICTED-TN ...)
; x-compiling (DEFUN PHYSENV-LIVE-TN ...)
; x-compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...)
; x-compiling (DEFUN COMPONENT-LIVE-TN ...)
; x-compiling (DEFUN SPECIFY-SAVE-TN ...)
; x-compiling (DEFUN MAKE-CONSTANT-TN ...)
; x-compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...)
; x-compiling (DEFUN MAKE-ALIAS-TN ...)
; x-compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...)
; x-compiling (DEFUN REFERENCE-TN ...)
; x-compiling (DEFUN REFERENCE-TN-LIST ...)
; x-compiling (DEFUN DELETE-TN-REF ...)
; x-compiling (DEFUN CHANGE-TN-REF-TN ...)
; x-compiling (DEFUN EMIT-MOVE-TEMPLATE ...)
; x-compiling (DEFUN EMIT-LOAD-TEMPLATE ...)
; x-compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...)
; x-compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...)
; x-compiling (DEFUN BLOCK-LABEL ...)
; x-compiling (DEFUN BLOCK-TRAMPOLINE ...)
; x-compiling (DEFUN DROP-THRU-P ...)
; x-compiling (DEFUN REGISTER-DROP-THRU ...)
; x-compiling (DEFUN INSERT-VOP ...)
; x-compiling (DEFUN EMIT-AND-INSERT-VOP ...)
; x-compiling (DEFUN DELETE-VOP ...)
; x-compiling (DEFUN MAKE-N-TNS ...)
; x-compiling (DEFUN LOCATION= ...)
; x-compiling (DEFUN TN-VALUE ...)
; x-compiling (DEFUN IMMEDIATE-TN-P ...)
; x-compiling (DEFUN FORCE-TN-TO-STACK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/tn.lisp-obj-tmp written
; compilation finished in 0:00:05.147
; compiling file "/«PKGBUILDDIR»/src/compiler/life.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN ADD-GLOBAL-CONFLICT ...)
; x-compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...)
; x-compiling (DEFUN RESET-CURRENT-CONFLICT ...)
; x-compiling (DEFUN CACHED-BLOCK-PHYSENV ...)
; x-compiling (DEFUN CONVERT-TO-GLOBAL ...)
; x-compiling (DEFUN FIND-LOCAL-REFERENCES ...)
; x-compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...)
; x-compiling (DEFEVENT SPLIT-IR2-BLOCK ...)
; x-compiling (DEFUN SPLIT-IR2-BLOCKS ...)
; x-compiling (DEFUN CLEAR-LIFETIME-INFO ...)

; file: /«PKGBUILDDIR»/src/compiler/life.lisp
; in: DEFUN COALESCE-MORE-LTN-NUMBERS
;     (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN
;                    (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY
;                    #'SB!C::GLOBAL-CONFLICTS-TN)
; 
; note: deleting unreachable code
; x-compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...)
; x-compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...)
; x-compiling (DEFUN LIFETIME-PRE-PASS ...)
; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...)
; x-compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...)
; x-compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...)
; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...)
; x-compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...)
; x-compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...)
; x-compiling (DEFUN PROPAGATE-LIVE-TNS ...)
; x-compiling (DEFPARAMETER *MAX-FAST-PROPAGATE-LIVE-TN-PASSES* ...)
; x-compiling (DEFUN LIFETIME-FLOW-ANALYSIS ...)
; x-compiling (DEFUN NOTE-CONFLICTS ...)
; x-compiling (DEFUN COMPUTE-SAVE-SET ...)
; x-compiling (DEFUN SAVED-AFTER-READ ...)
; x-compiling (DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE ...)
; x-compiling (DEFUN COMPUTE-INITIAL-CONFLICTS ...)
; x-compiling (DEFUN CONFLICTIZE-SAVE-P-VOP ...)
; x-compiling (DEFMACRO FROB-MORE-TNS ...)
; x-compiling (DEFMACRO SCAN-VOP-REFS ...)
; x-compiling (DEFMACRO ENSURE-RESULTS-LIVE ...)
; x-compiling (DEFUN CONFLICT-ANALYZE-1-BLOCK ...)
; x-compiling (DEFUN LIFETIME-POST-PASS ...)
; x-compiling (DEFUN MERGE-ALIAS-BLOCK-CONFLICTS ...)
; x-compiling (DEFUN CHANGE-GLOBAL-CONFLICTS-TN ...)
; x-compiling (DEFUN ENSURE-GLOBAL-TN ...)
; x-compiling (DEFUN MERGE-ALIAS-CONFLICTS ...)
; x-compiling (DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...)
; x-compiling (DEFUN LIFETIME-ANALYZE ...)
; x-compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...)
; x-compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN TNS-CONFLICT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/life.lisp-obj-tmp written
; compilation finished in 0:00:05.328
; compiling file "/«PKGBUILDDIR»/src/compiler/debug-dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFTYPE BYTE-BUFFER ...)
; x-compiling (DEFVAR *BYTE-BUFFER*)
; x-compiling (DECLAIM (TYPE BYTE-BUFFER ...))
; x-compiling (DEFTYPE LOCATION-KIND ...)
; x-compiling (DEFSTRUCT (LOCATION-INFO # ...) ...)
; x-compiling (DEFUN NOTE-DEBUG-LOCATION ...)
; x-compiling (DECLAIM (INLINE IR2-BLOCK-PHYSENV))
; x-compiling (DEFUN IR2-BLOCK-PHYSENV ...)
; x-compiling (DEFUN LEAF-VISIBLE-TO-DEBUGGER-P ...)
; x-compiling (DEFUN COMPUTE-LIVE-VARS ...)
; x-compiling (DEFVAR *PREVIOUS-LOCATION*)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN DUMP-1-LOCATION ...)
; x-compiling (DEFUN DUMP-LOCATION-FROM-INFO ...)
; x-compiling (DEFUN FIND-TLF-NUMBER ...)
; x-compiling (DEFUN DUMP-BLOCK-LOCATIONS ...)
; x-compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...)
; x-compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...)
; x-compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...)
; x-compiling (DEFUN TN-SC-OFFSET ...)
; x-compiling (DEFUN LAMBDA-ANCESTOR-P ...)
; x-compiling (DEFUN DUMP-1-VAR ...)
; x-compiling (DEFUN COMPUTE-VARS ...)
; x-compiling (DEFUN COMPUTE-MINIMAL-VARS ...)
; x-compiling (DEFUN DEBUG-LOCATION-FOR ...)
; x-compiling (DEFUN COMPUTE-ARGS ...)
; x-compiling (DEFUN COMPUTE-DEBUG-RETURNS ...)
; x-compiling (DEFUN DFUN-FROM-FUN ...)

; file: /«PKGBUILDDIR»/src/compiler/debug-dump.lisp
; in: DEFUN COMPUTE-1-DEBUG-FUN
;     (MAX SB!C::ACTUAL-LEVEL 2)
; --> LET 
; ==>
;   SB!C::ACTUAL-LEVEL
; 
; note: deleting unreachable code
; x-compiling (DEFUN COMPUTE-1-DEBUG-FUN ...)
; x-compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...)
; x-compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/debug-dump.lisp-obj-tmp written
; compilation finished in 0:00:03.791
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/utils.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN FIXNUMIZE ...)
; x-compiling (DEFUN STATIC-SYMBOL-P ...)
; x-compiling (DEFUN STATIC-SYMBOL-OFFSET ...)
; x-compiling (DEFUN OFFSET-STATIC-SYMBOL ...)
; x-compiling (DEFUN STATIC-FDEFN-OFFSET ...)
; x-compiling (DEFUN STATIC-FUN-OFFSET ...)
; x-compiling (DEFVAR *ADJUSTABLE-VECTORS* ...)
; x-compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/utils.lisp-obj-tmp written
; compilation finished in 0:00:00.280
; compiling file "/«PKGBUILDDIR»/src/compiler/fopcompile.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/fopcompile.lisp
; in:
;      FLET ((SETQ-FOPCOMPILABLE-P (ARGS) (LOOP FOR (NAME VALUE) ON ARGS ...))
;        (COLD-SVSET-FOPCOMPILABLE-P (ARGS)
;         (DESTRUCTURING-BIND (THING INDEX VALUE) ARGS (AND # # # #))))
;     (FLET ((SB!C::SETQ-FOPCOMPILABLE-P (SB!C::ARGS)
;              (LOOP SB!C::FOR (SB!C::NAME
;                               SB!C::VALUE) SB!C::ON SB!C::ARGS SB!C::BY #'CDDR
;                    SB!C::ALWAYS (AND # # #)))
;            (SB!C::COLD-SVSET-FOPCOMPILABLE-P (SB!C::ARGS)
;              (DESTRUCTURING-BIND
;                  (SB!C::THING SB!INT:INDEX SB!C::VALUE)
;                  SB!C::ARGS
;                (AND # # # #))))
;       (DEFUN SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM &OPTIONAL (SB!C::EXPAND T))
;         (FLET ((SB!C::EXPAND #
;                  #)
;                (SB!C::EXPAND-CM #
;                  #))
;           (OR (AND # #) (AND # #) (AND # # # #)))))
; ==>
;   (FLET ((SB!C::SETQ-FOPCOMPILABLE-P (SB!C::ARGS)
;            (LOOP SB!C::FOR (SB!C::NAME
;                             SB!C::VALUE) SB!C::ON SB!C::ARGS SB!C::BY #'CDDR
;                  SB!C::ALWAYS (AND # # #)))
;          (SB!C::COLD-SVSET-FOPCOMPILABLE-P (SB!C::ARGS)
;            (DESTRUCTURING-BIND
;                (SB!C::THING SB!INT:INDEX SB!C::VALUE)
;                SB!C::ARGS
;              (AND # # # #))))
;     (DEFUN SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM &OPTIONAL (SB!C::EXPAND T))
;       (FLET ((SB!C::EXPAND #
;                #)
;              (SB!C::EXPAND-CM #
;                #))
;         (OR (AND # #) (AND # #) (AND # # # #)))))
; 
; note: deleting unused function
;   (FLET COLD-SVSET-FOPCOMPILABLE-P :IN "SYS:SRC;COLD;COMPILE-COLD-SBCL.LISP")
; x-compiling (FLET (# #) ...)
; x-compiling (DEFUN LET-FOPCOMPILABLE-P ...)
; x-compiling (DEFUN LAMBDA-FORM-P ...)
; x-compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...)
; x-compiling (DEFUN FOPCOMPILE ...)
; x-compiling (DEFUN FOPCOMPILE-FUNCTION ...)
; x-compiling (DEFUN FOPCOMPILE-IF ...)
; x-compiling (DEFUN FOPCOMPILE-CONSTANT ...)
; x-compiling (DEFUN CANONICAL-INSTANCE-MAKER-FORM-P ...)
; x-compiling (DEFUN FOPCOMPILE-ALLOCATE-INSTANCE ...)
; x-compiling (DEFUN TRIVIAL-LOAD-FORM-INITFORM-ARGS ...)

; file: /«PKGBUILDDIR»/src/compiler/fopcompile.lisp
; in: DEFUN CONSTANT-FOPCOMPILABLE-P
;     (SB-XC:MAKE-LOAD-FORM SB!C::VALUE (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MAKE-LOAD-FORM
; 
; compilation unit finished
;   Undefined function:
;     SB-XC:MAKE-LOAD-FORM
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN FOPCOMPILE-CONSTANT-INIT-FORMS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fopcompile.lisp-obj-tmp written
; compilation finished in 0:00:01.728
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/assembly/
; compiling file "/«PKGBUILDDIR»/src/assembly/assemfile.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...)
; x-compiling (DEFVAR *ENTRY-POINTS* ...)
; x-compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...)
; x-compiling (DEFUN ASSEMBLE-FILE ...)
; x-compiling (DEFSTRUCT (REG-SPEC #) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN REG-SPEC-SC ...)
; x-compiling (DEFUN PARSE-REG-SPEC ...)
; x-compiling (DEFUN EMIT-ASSEMBLE ...)
; x-compiling (DEFUN ARG-OR-RES-SPEC ...)
; x-compiling (DEFUN EMIT-ASSEMBLE-VOP ...)
; x-compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/assemfile.lisp-obj-tmp written
; compilation finished in 0:00:01.418
; compiling file "/«PKGBUILDDIR»/src/compiler/late-vmdef.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NOTE-THIS-LOCATION ...)
; x-compiling (DEFUN NOTE-NEXT-INSTRUCTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/late-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00.085
; compiling file "/«PKGBUILDDIR»/src/compiler/fixup.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP
;     (DEFSTRUCT
;         (SB!C:FIXUP
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP
;           (SB!C::NAME SB!C::FLAVOR &OPTIONAL SB!C::OFFSET))
;          (:COPIER NIL))
;       SB!C::NAME
;       SB!C::FLAVOR
;       SB!C::OFFSET)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C:FIXUP {54EEDA69}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NAME and SB!C:FIXUP-FLAVOR could not be
;   inlined because the structure definition for SB!C:FIXUP was not yet seen. To
;   avoid this warning, DEFSTRUCT should precede references to the affected
;   functions, or they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (FIXUP # ...) ...)

; file: /«PKGBUILDDIR»/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP-NOTE
;     (DEFSTRUCT
;         (SB!C::FIXUP-NOTE
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP-NOTE (SB!C::KIND SB!C:FIXUP POSITION))
;          (:COPIER NIL))
;       SB!C::KIND
;       SB!C:FIXUP
;       POSITION)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!C::FIXUP-NOTE {5505A129}>
;    '#(#<SB!KERNEL:LAYOUT for T {52232D71}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {52232DB1}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!C:FIXUP-NOTE-KIND, SB!C:FIXUP-NOTE-FIXUP and
;   SB!C:FIXUP-NOTE-POSITION could not be inlined because the structure definition
;   for SB!C::FIXUP-NOTE was not yet seen. To avoid this warning, DEFSTRUCT should
;   precede references to the affected functions, or they must be declared locally
;   notinline at each call site.
; x-compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...)
; x-compiling (DEFVAR *FIXUP-NOTES*)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFUN NOTE-FIXUP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/fixup.lisp-obj-tmp written
; compilation finished in 0:00:00.454
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/insts.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...)
; x-compiling (DEFPARAMETER *CONDITIONS* ...)
; x-compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...)
; x-compiling (SETF *ASSEM-SCHEDULER-P* ...)
; x-compiling (DEFUN CONDITIONAL-OPCODE ...)
; x-compiling (DEFUN MAYBE-ADD-NOTES ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-CONDITION
;     (DEFUN SB!VM::PRINT-CONDITION (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (UNLESS (= SB!VM::VALUE 14)
;         (PRINC (AREF SB!VM::*CONDITION-NAME-VEC* SB!VM::VALUE) STREAM)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-CONDITION in DEFUN
; x-compiling (DEFUN PRINT-CONDITION ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-REG
;     (DEFUN SB!VM::PRINT-REG (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (PRINC (AREF SB!VM::*REGISTER-NAMES* SB!VM::VALUE) STREAM))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-REG in DEFUN
; x-compiling (DEFUN PRINT-REG ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-SHIFT-TYPE
;     (DEFUN SB!VM::PRINT-SHIFT-TYPE (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (PRINC (AREF #(SB!VM::LSL SB!VM::LSR SB!VM::ASR SB!VM::ROR) SB!VM::VALUE)
;              STREAM))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-SHIFT-TYPE in DEFUN
; x-compiling (DEFUN PRINT-SHIFT-TYPE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-IMMEDIATE-SHIFT
;     (DEFUN SB!VM::PRINT-IMMEDIATE-SHIFT (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (TYPE (CONS FIXNUM (CONS FIXNUM NULL)) SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (DESTRUCTURING-BIND
;           (SB!VM::AMOUNT SB!VM::SHIFT)
;           SB!VM::VALUE
;         (COND ((AND # #)) ((AND # #) (PRINC ", RRX" STREAM))
;               (T (PRINC ", " STREAM) (PRINC # STREAM) (PRINC " #" STREAM)
;                (PRINC SB!VM::AMOUNT STREAM)))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-IMMEDIATE-SHIFT in DEFUN
; x-compiling (DEFUN PRINT-IMMEDIATE-SHIFT ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-SHIFTER-IMMEDIATE
;     (DEFUN SB!VM::PRINT-SHIFTER-IMMEDIATE (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (FIXNUM SB!VM::VALUE))
;       (SB!VM::MAYBE-ADD-NOTES SB!VM::DSTATE)
;       (LET* ((SB!VM::ROTATE (SB-XC:LDB # SB!VM::VALUE))
;              (SB!VM::IMMEDIATE (SB-XC:MASK-FIELD # SB!VM::VALUE))
;              (SB!VM::LEFT (SB-XC:MASK-FIELD # #))
;              (SB!VM::RIGHT (ASH SB!VM::IMMEDIATE #)))
;         (PRINC (LOGIOR SB!VM::LEFT SB!VM::RIGHT) STREAM)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-SHIFTER-IMMEDIATE in DEFUN
; x-compiling (DEFUN PRINT-SHIFTER-IMMEDIATE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN USE-LABEL-RELATIVE-LABEL
;     (DEFUN SB!VM::USE-LABEL-RELATIVE-LABEL (SB!VM::VALUE SB!VM::DSTATE)
;       (DECLARE (TYPE (SIGNED-BYTE 24) SB!VM::VALUE)
;                (TYPE SB!DISASSEM:DISASSEM-STATE SB!VM::DSTATE))
;       (+ 8 (ASH SB!VM::VALUE 2) (SB!DISASSEM:DSTATE-CUR-ADDR SB!VM::DSTATE)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::USE-LABEL-RELATIVE-LABEL in DEFUN
; x-compiling (DEFUN USE-LABEL-RELATIVE-LABEL ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-LOAD/STORE-IMMEDIATE
;     (DEFUN SB!VM::PRINT-LOAD/STORE-IMMEDIATE (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (TYPE (CONS BIT (CONS BIT #)) SB!VM::VALUE))
;       (SB!VM::MAYBE-ADD-NOTES SB!VM::DSTATE)
;       (DESTRUCTURING-BIND
;           (SB!VM::P SB!VM::U SB!VM::W SB!VM::OFFSET)
;           SB!VM::VALUE
;         (IF (ZEROP SB!VM::OFFSET)
;             (PRINC "]" STREAM)
;             (PROGN
;              (PRINC # STREAM)
;              (WHEN # #)
;              (PRINC SB!VM::OFFSET STREAM)
;              (UNLESS # #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-LOAD/STORE-IMMEDIATE in DEFUN
; x-compiling (DEFUN PRINT-LOAD/STORE-IMMEDIATE ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-LOAD/STORE-REGISTER
;     (DEFUN SB!VM::PRINT-LOAD/STORE-REGISTER (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DESTRUCTURING-BIND
;           (SB!VM::P SB!VM::U SB!VM::W SB!VM::SHIFT-IMM SB!VM::SHIFT SB!VM::RM)
;           SB!VM::VALUE
;         (WHEN (ZEROP SB!VM::P) (PRINC "]" STREAM))
;         (PRINC
;          (IF (ZEROP SB!VM::U)
;              ", -"
;              ", ")
;          STREAM)
;         (SB!VM::PRINT-REG SB!VM::RM STREAM SB!VM::DSTATE)
;         (SB!VM::PRINT-IMMEDIATE-SHIFT (LIST SB!VM::SHIFT-IMM SB!VM::SHIFT) STREAM
;                                       SB!VM::DSTATE)
;         (UNLESS (ZEROP SB!VM::P)
;           (PRINC
;            (IF #
;                "]"
;                "]!")
;            STREAM))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-LOAD/STORE-REGISTER in DEFUN
; x-compiling (DEFUN PRINT-LOAD/STORE-REGISTER ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: DEFUN PRINT-MSR-FIELD-MASK
;     (DEFUN SB!VM::PRINT-MSR-FIELD-MASK (SB!VM::VALUE STREAM SB!VM::DSTATE)
;       (DECLARE (TYPE STREAM STREAM)
;                (TYPE (CONS BIT (CONS # NULL)) SB!VM::VALUE)
;                (IGNORE SB!VM::DSTATE))
;       (DESTRUCTURING-BIND
;           (SB!VM::SPSR-P SB!VM::FIELD-MASK)
;           SB!VM::VALUE
;         (IF (ZEROP SB!VM::SPSR-P)
;             (PRINC "CPSR_" STREAM)
;             (PRINC "SPSR_" STREAM))
;         (WHEN (LOGBITP 0 SB!VM::FIELD-MASK) (PRINC "c" STREAM))
;         (WHEN (LOGBITP 1 SB!VM::FIELD-MASK) (PRINC "x" STREAM))
;         (WHEN (LOGBITP 2 SB!VM::FIELD-MASK) (PRINC "s" STREAM))
;         (WHEN (LOGBITP 3 SB!VM::FIELD-MASK) (PRINC "f" STREAM))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::PRINT-MSR-FIELD-MASK in DEFUN
; x-compiling (DEFUN PRINT-MSR-FIELD-MASK ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFT-TYPE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMMEDIATE-SHIFT ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SHIFTER-IMMEDIATE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE RELATIVE-LABEL ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-IMMEDIATE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE LOAD/STORE-REGISTER ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/insts.lisp
; in: SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE
;     (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::DEBUG-TRAP-CODE :PREFILTER
;                                  (LAMBDA (SB!VM::VALUE SB!VM::DSTATE)
;                                    (DECLARE (IGNORE SB!VM::VALUE))
;                                    (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)))
; --> PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE)
;     (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES*
;             (DELETE 'SB!VM::DEBUG-TRAP-CODE SB!DISASSEM::*DISASSEM-ARG-TYPES*
;                     :KEY #'SB!DISASSEM::ARG-NAME))
;     (PUSH
;      (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::DEBUG-TRAP-CODE)
;                               NIL :PREFILTER
;                               (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #)
;                                                         'SB!VM::*DEBUG-TRAP-CODE-PREFILTER-WRAPPER*))
;      SB!DISASSEM::*DISASSEM-ARG-TYPES*))
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE DEBUG-TRAP-CODE ...)
; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE MSR-FIELD-MASK ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-SHIFT-REGISTER 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DP-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (LOAD/STORE-REGISTER 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SWI 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (DEBUG-TRAP 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-IMMEDIATE 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MSR-REGISTER 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DZSM 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DNSM 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MULTIPLY-DDSM 32 ...) ...)
; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BRANCH-EXCHANGE 32 ...) ...)
; x-compiling (DEFUN SNARF-ERROR-JUNK ...)
; x-compiling (DEFUN DEBUG-TRAP-CONTROL ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...)
; x-compiling (DEFUN REGISTER-P ...)
; x-compiling (DEFMACRO WITH-CONDITION-DEFAULTED ...)
; x-compiling (DEFINE-INSTRUCTION BYTE ...)
; x-compiling (DEFINE-INSTRUCTION WORD ...)
; x-compiling (DEFUN EMIT-HEADER-DATA ...)
; x-compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...)
; x-compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...)
; x-compiling (DEFSTRUCT SHIFTER-OPERAND ...)
; x-compiling (DEFUN LSL ...)
; x-compiling (DEFUN LSR ...)
; x-compiling (DEFUN ASR ...)
; x-compiling (DEFUN ROR ...)
; x-compiling (DEFUN RRX ...)
; x-compiling (DEFINE-CONDITION CANNOT-ENCODE-IMMEDIATE-OPERAND ...)
; x-compiling (DEFUN ENCODABLE-IMMEDIATE ...)
; x-compiling (DEFUN ENCODE-SHIFTER-IMMEDIATE ...)
; x-compiling (DEFUN ENCODE-SHIFTER-OPERAND ...)
; x-compiling (DEFMACRO COMPOSITE-IMMEDIATE-INSTRUCTION ...)
; x-compiling (DEFSTRUCT MEMORY-OPERAND ...)
; x-compiling (DEFUN %@ ...)
; x-compiling (DEFMACRO @ ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-DP-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-DATA-PROCESSING-INSTRUCTION ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION AND ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ANDS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EOR ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION EORS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUB ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SUBS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSB ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSBS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADD ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADDS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ADCS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION SBCS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION RSCS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORR ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION ORRS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BIC ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION BICS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TST ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION TEQ ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMP ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION CMN ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOV ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MOVS ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVN ...)
; x-compiling (DEFINE-DATA-PROCESSING-INSTRUCTION MVNS ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-SWI-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION SWI ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BKPT-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION BKPT ...)
; x-compiling (DEFINE-INSTRUCTION DEBUG-TRAP ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-CLZ-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION CLZ ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-INSTRUCTION ...)
; x-compiling (DEFUN EMIT-BRANCH-BACK-PATCH ...)
; x-compiling (DEFINE-INSTRUCTION B ...)
; x-compiling (DEFINE-INSTRUCTION BL ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BRANCH-EXCHANGE-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION BX ...)
; x-compiling (DEFINE-INSTRUCTION BLX ...)
; x-compiling (DEFUN EMIT-SEMAPHORE-INSTRUCTION ...)
; x-compiling (DEFINE-INSTRUCTION SWP ...)
; x-compiling (DEFINE-INSTRUCTION SWPB ...)
; x-compiling (DEFINE-INSTRUCTION MRS ...)
; x-compiling (DEFUN ENCODE-STATUS-REGISTER-FIELDS ...)
; x-compiling (DEFMACRO CPSR ...)
; x-compiling (DEFMACRO SPSR ...)
; x-compiling (DEFINE-INSTRUCTION MSR ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-MULTIPLY-INSTRUCTION ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MUL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MULS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MLA ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION MLAS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMULL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMULLS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMLAL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION UMLALS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULLS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAL ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALS ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLABT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLATT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALBT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLALTT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULBT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULTT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMLAWT ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWB ...)
; x-compiling (DEFINE-MULTIPLY-INSTRUCTION SMULWT ...)
; x-compiling (DEFUN EMIT-LOAD/STORE-INSTRUCTION ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION LDR ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION LDRB ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION STR ...)
; x-compiling (DEFINE-LOAD/STORE-INSTRUCTION STRB ...)
; x-compiling (DEFUN EMIT-MISC-LOAD/STORE-INSTRUCTION ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRH ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRD ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION STRD ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRH ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSB ...)
; x-compiling (DEFINE-MISC-LOAD/STORE-INSTRUCTION LDRSH ...)
; x-compiling (DEFINE-INSTRUCTION COMPUTE-CODE ...)
; x-compiling (DEFINE-INSTRUCTION COMPUTE-LRA ...)
; x-compiling (DEFINE-INSTRUCTION LOAD-FROM-LABEL ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-DP-INSTRUCTION ...)
; x-compiling (DEFUN LOW-BIT-FLOAT-REG ...)
; x-compiling (DEFUN HIGH-BITS-FLOAT-REG ...)
; x-compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMAC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMAC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMSC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMSC ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FMUL ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FNMUL ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FADD ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FSUB ...)
; x-compiling (DEFINE-BINARY-FP-DATA-PROCESSING-INSTRUCTIONS FDIV ...)
; x-compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCPY ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FABS ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FNEG ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSQRT ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMP ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPE ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FCMPEZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FUITO ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FSITO ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUI ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOUIZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSI ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTIONS FTOSIZ ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTDS ...)
; x-compiling (DEFINE-UNARY-FP-DATA-PROCESSING-INSTRUCTION FCVTSD ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-LS-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMS ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMS ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMD ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMD ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FSTMX ...)
; x-compiling (DEFINE-LOAD-STORE-MULTIPLE-FP-INSTRUCTION FLDMX ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO LOAD-COMPLEX-DOUBLE ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-INSTRUCTION-MACRO STORE-COMPLEX-DOUBLE ...)
; x-compiling (DEFMACRO DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTS ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDS ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FSTD ...)
; x-compiling (DEFINE-LOAD-STORE-ONE-FP-INSTRUCTION FLDD ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-SRT-INSTRUCTION ...)
; x-compiling (DEFUN SYSTEM-REG-ENCODING ...)
; x-compiling (DEFMACRO DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMSR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRS ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDLR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDL ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMDHR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRDH ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMXR ...)
; x-compiling (DEFINE-SINGLE-REG-TRANSFER-FP-INSTRUCTION FMRX ...)
; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-FP-TRT-INSTRUCTION ...)
; x-compiling (DEFMACRO DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION ...)
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMSRR ...)
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRS ...)
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMDRR ...)
; 
; compilation unit finished
;   caught 10 STYLE-WARNING conditions
; x-compiling (DEFINE-TWO-REG-TRANSFER-FP-INSTRUCTION FMRRD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/insts.lisp-obj-tmp written
; compilation finished in 0:00:43.497
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/macros.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFMACRO MOVE ...)
; x-compiling (DEF SINGLE ...)
; x-compiling (DEF DOUBLE ...)
; x-compiling (DEF LOADW ...)
; x-compiling (DEF STOREW ...)
; x-compiling (DEFMACRO LOAD-SYMBOL ...)
; x-compiling (DEFMACRO LOAD-SYMBOL-VALUE ...)
; x-compiling (DEFMACRO STORE-SYMBOL-VALUE ...)
; x-compiling (DEFMACRO LOAD-TYPE ...)
; x-compiling (DEFMACRO LOAD-CSP ...)
; x-compiling (DEFMACRO STORE-CSP ...)
; x-compiling (DEFMACRO LISP-JUMP ...)
; x-compiling (DEFMACRO LISP-RETURN ...)
; x-compiling (DEFMACRO EMIT-RETURN-PC ...)
; x-compiling (DEFUN LOAD-STACK-OFFSET ...)
; x-compiling (DEFMACRO LOAD-STACK-TN ...)
; x-compiling (DEFUN STORE-STACK-OFFSET ...)
; x-compiling (DEFMACRO STORE-STACK-TN ...)
; x-compiling (DEFMACRO MAYBE-LOAD-STACK-TN ...)
; x-compiling (DEFUN ALLOCATION-TRAMP ...)
; x-compiling (DEFMACRO ALLOCATION ...)
; x-compiling (DEFMACRO WITH-FIXED-ALLOCATION ...)
; x-compiling (DEFUN EMIT-ERROR-BREAK ...)
; x-compiling (DEFUN ERROR-CALL ...)
; x-compiling (DEFUN GENERATE-ERROR-CODE ...)
; x-compiling (DEFMACRO PSEUDO-ATOMIC ...)
; x-compiling (DEFMACRO DEFINE-FULL-REFFER ...)
; x-compiling (DEFMACRO DEFINE-FULL-SETTER ...)
; x-compiling (DEFMACRO DEFINE-PARTIAL-REFFER ...)
; x-compiling (DEFMACRO DEFINE-PARTIAL-SETTER ...)
; x-compiling (DEF!MACRO WITH-PINNED-OBJECTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/macros.lisp-obj-tmp written
; compilation finished in 0:00:04.354
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")

; file: /«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp
; in: DEFPARAMETER *IMMEDIATE-TYPES*
;     (LIST SB!VM:SINGLE-FLOAT-WIDETAG)
; --> CONS 
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code
; x-compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...)
; x-compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...)
; x-compiling (DEFUN CANONICALIZE-HEADERS ...)
; x-compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/early-type-vops.lisp
; in: DEFMACRO TEST-TYPE
;     (- SB!VM:SINGLE-FLOAT-WIDETAG 4)
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code

;     (+ SB!VM:SINGLE-FLOAT-WIDETAG 4)
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code

;     (REMOVE SB!VM:SINGLE-FLOAT-WIDETAG SB!VM::*IMMEDIATE-TYPES*)
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code

;     (AND (= SB!VM:N-WORD-BITS 64) SB!VM::IMMEDIATES SB!VM::HEADERS)
; --> IF AND IF 
; ==>
;   SB!VM::IMMEDIATES
; 
; note: deleting unreachable code

; --> IF AND IF AND THE 
; ==>
;   SB!VM::HEADERS
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
; x-compiling (DEFMACRO TEST-TYPE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:00.431
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/support.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN GENERATE-CALL-SEQUENCE ...)
; x-compiling (DEFUN GENERATE-RETURN-SEQUENCE ...)
; x-compiling (DEFUN RETURN-MACHINE-ADDRESS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/support.lisp-obj-tmp written
; compilation finished in 0:00:00.100
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/move.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN LOWEST-SET-BIT-INDEX ...)
; x-compiling (DEFUN REPEATING-PATTERN-P ...)
; x-compiling (DEFUN LOAD-REPEATING-PATTERN ...)
; x-compiling (DEFUN LOAD-IMMEDIATE-WORD ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5) ...)
; x-compiling (DEFINE-VOP (MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE ...)
; x-compiling (PRIMITIVE-TYPE-VOP MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (ILLEGAL-MOVE) ...)
; x-compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...)
; x-compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...)
; x-compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...)
; x-compiling (DEFINE-VOP (WORD-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP WORD-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-WORD-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/move.lisp-obj-tmp written
; compilation finished in 0:00:07.815
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/float.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 1) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-SINGLE 1) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...)
; x-compiling (FROB SINGLE-MOVE ...)
; x-compiling (FROB DOUBLE-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-FLOAT) ...)
; x-compiling (FROB MOVE-FROM-SINGLE ...)
; x-compiling (FROB MOVE-FROM-DOUBLE ...)
; x-compiling (FROB MOVE-TO-SINGLE ...)
; x-compiling (FROB MOVE-TO-DOUBLE ...)
; x-compiling (FROB MOVE-SINGLE-FLOAT-ARG ...)
; x-compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...)
; x-compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...)
; x-compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...)
; x-compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...)
; x-compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...)
; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 4) ...)
; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 4) ...)
; x-compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...)
; x-compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...)
; x-compiling (DEFINE-VOP (MOVE-TO-COMPLEX-SINGLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-SINGLE ...)
; x-compiling (DEFINE-VOP (MOVE-TO-COMPLEX-DOUBLE) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-DOUBLE ...)
; x-compiling (DEFINE-VOP (MOVE-COMPLEX-SINGLE-FLOAT-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-SINGLE-FLOAT-ARG ...)
; x-compiling (DEFINE-VOP (MOVE-COMPLEX-DOUBLE-FLOAT-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (FLOAT-OP) ...)
; x-compiling (FROB SINGLE-FLOAT-OP ...)
; x-compiling (FROB DOUBLE-FLOAT-OP ...)
; x-compiling (FROB + ...)
; x-compiling (FROB - ...)
; x-compiling (FROB * ...)
; x-compiling (FROB / ...)
; x-compiling (FROB ABS/SINGLE-FLOAT ...)
; x-compiling (FROB ABS/DOUBLE-FLOAT ...)
; x-compiling (FROB %NEGATE/SINGLE-FLOAT ...)
; x-compiling (FROB %NEGATE/DOUBLE-FLOAT ...)
; x-compiling (DEFINE-VOP (FSQRTD) ...)
; x-compiling (DEFINE-VOP (FSQRTS) ...)
; x-compiling (DEFINE-VOP (FLOAT-COMPARE) ...)
; x-compiling (FROB SINGLE-FLOAT-COMPARE ...)
; x-compiling (FROB DOUBLE-FLOAT-COMPARE ...)
; x-compiling (FROB < ...)
; x-compiling (FROB > ...)
; x-compiling (FROB = ...)
; x-compiling (DEFINE-VOP (FLOAT-COMPARE-ZERO) ...)
; x-compiling (FROB SINGLE-FLOAT-COMPARE-ZERO ...)
; x-compiling (FROB DOUBLE-FLOAT-COMPARE-ZERO ...)
; x-compiling (FROB < ...)
; x-compiling (FROB > ...)
; x-compiling (FROB = ...)
; x-compiling (FROB %SINGLE-FLOAT/SIGNED ...)
; x-compiling (FROB %DOUBLE-FLOAT/SIGNED ...)
; x-compiling (FROB %SINGLE-FLOAT/UNSIGNED ...)
; x-compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...)
; x-compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...)
; x-compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...)
; x-compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...)
; x-compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...)
; x-compiling (FROB %UNARY-ROUND ...)
; x-compiling (FROB %UNARY-ROUND ...)
; x-compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...)
; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...)
; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...)
; x-compiling (SB-XC:DEFTYPE FLOAT-MODES ...)
; x-compiling (DEFKNOWN FLOATING-POINT-MODES ...)
; x-compiling (DEFKNOWN (#) ...)
; x-compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...)
; x-compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...)
; x-compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (COMPLEX-SINGLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (COMPLEX-DOUBLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)
; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/float.lisp-obj-tmp written
; compilation finished in 0:00:17.445
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/sap.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (MOVE-TO-SAP) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-SAP) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...)
; x-compiling (DEFINE-VOP (SAP-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP SAP-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-SAP-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (SAP-INT) ...)
; x-compiling (DEFINE-VOP (INT-SAP) ...)
; x-compiling (DEFINE-VOP (POINTER+) ...)
; x-compiling (DEFINE-VOP (POINTER+-UNSIGNED-C) ...)
; x-compiling (DEFINE-VOP (POINTER+-SIGNED-C) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/sap.lisp
; in:
;      MACROLET ((DEF-SYSTEM-REF-AND-SET (REF-NAME SET-NAME SC TYPE SIZE ...)
;             (LET (# #)
;               (QUASIQUOTE #))))
;     (MACROLET ((SB!VM::DEF-SYSTEM-REF-AND-SET
;                    (SB!VM::REF-NAME SB!VM::SET-NAME SB!C:SC TYPE SB!VM::SIZE
;                     &KEY SB!ALIEN:SIGNED SB!VM::USE-LIP)
;                  (LET (# #)
;                    (SB!INT:QUASIQUOTE #))))
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-8 SB!KERNEL:%SET-SAP-REF-8
;        SB!VM::UNSIGNED-REG SB!VM::POSITIVE-FIXNUM :BYTE :SIGNED NIL)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SIGNED-SAP-REF-8
;        SB!KERNEL:%SET-SIGNED-SAP-REF-8 SB!VM::SIGNED-REG SB!VM::TAGGED-NUM :BYTE
;        :SIGNED T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-16 SB!KERNEL:%SET-SAP-REF-16
;        SB!VM::UNSIGNED-REG SB!VM::POSITIVE-FIXNUM :SHORT :SIGNED NIL)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SIGNED-SAP-REF-16
;        SB!KERNEL:%SET-SIGNED-SAP-REF-16 SB!VM::SIGNED-REG SB!VM::TAGGED-NUM
;        :SHORT :SIGNED T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-32 SB!KERNEL:%SET-SAP-REF-32
;        SB!VM::UNSIGNED-REG SB!VM::UNSIGNED-NUM :LONG :SIGNED NIL)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SIGNED-SAP-REF-32
;        SB!KERNEL:%SET-SIGNED-SAP-REF-32 SB!VM::SIGNED-REG SB!VM::SIGNED-NUM :LONG
;        :SIGNED T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-SAP
;        SB!KERNEL:%SET-SAP-REF-SAP SB!VM::SAP-REG SB!SYS:SYSTEM-AREA-POINTER
;        :LONG)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-LISPOBJ
;        SB!KERNEL:%SET-SAP-REF-LISPOBJ SB!VM::DESCRIPTOR-REG * :LONG)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-SINGLE
;        SB!KERNEL:%SET-SAP-REF-SINGLE SB!VM::SINGLE-REG SINGLE-FLOAT :SINGLE
;        :USE-LIP T)
;       (SB!VM::DEF-SYSTEM-REF-AND-SET SB!SYS:SAP-REF-DOUBLE
;        SB!KERNEL:%SET-SAP-REF-DOUBLE SB!VM::DOUBLE-REG DOUBLE-FLOAT :DOUBLE
;        :USE-LIP T))
; 
; caught STYLE-WARNING:
;   The variable REF-NAME-C is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SET-NAME-C is defined but never used.
; x-compiling (DEFINE-VOP (POINTER-) ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-8 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-LISPOBJ ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SINGLE ...)
; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-DOUBLE ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; x-compiling (DEFINE-VOP (VECTOR-SAP) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/sap.lisp-obj-tmp written
; compilation finished in 0:00:07.840
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/system.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (LOWTAG-OF) ...)
; x-compiling (DEFINE-VOP (WIDETAG-OF) ...)
; x-compiling (DEFINE-VOP (FUN-SUBTYPE) ...)
; x-compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...)
; x-compiling (DEFINE-VOP (GET-HEADER-DATA) ...)
; x-compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...)
; x-compiling (DEFINE-VOP (SET-HEADER-DATA) ...)
; x-compiling (DEFINE-VOP (POINTER-HASH) ...)
; x-compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...)
; x-compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...)
; x-compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...)
; x-compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...)
; x-compiling (DEFINE-VOP (COMPUTE-FUN) ...)
; x-compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...)
; x-compiling (DEFINE-VOP (SYMBOL-PLIST) ...)
; x-compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...)
; x-compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...)
; x-compiling (DEFINE-VOP (HALT) ...)
; x-compiling (DEFINE-VOP (SPIN-LOOP-HINT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/system.lisp-obj-tmp written
; compilation finished in 0:00:03.003
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/char.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...)
; x-compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...)
; x-compiling (DEFINE-VOP (CHARACTER-MOVE) ...)
; x-compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...)
; x-compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...)
; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; x-compiling (DEFINE-VOP (CHAR-CODE) ...)
; x-compiling (DEFINE-VOP (CODE-CHAR) ...)
; x-compiling (DEFINE-VOP (CHARACTER-COMPARE) ...)
; x-compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...)
; x-compiling (DEFINE-VOP (FAST-CHAR>/CHARACTER CHARACTER-COMPARE) ...)
; x-compiling (DEFINE-VOP (FAST-CHAR</CHARACTER CHARACTER-COMPARE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/char.lisp-obj-tmp written
; compilation finished in 0:00:02.150
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/memory.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (CELL-REF) ...)
; x-compiling (DEFINE-VOP (CELL-SET) ...)
; x-compiling (DEFINE-VOP (SLOT-REF) ...)
; x-compiling (DEFINE-VOP (SLOT-SET) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/memory.lisp-obj-tmp written
; compilation finished in 0:00:00.759
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in: DEFUN STATIC-FUN-TEMPLATE-NAME
;     (DEFUN SB!VM::STATIC-FUN-TEMPLATE-NAME (SB!VM::NUM-ARGS SB!VM::NUM-RESULTS)
;       (INTERN
;        (FORMAT NIL "~:@(~R-arg-~R-result-static-fun~)" SB!VM::NUM-ARGS
;                SB!VM::NUM-RESULTS)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::STATIC-FUN-TEMPLATE-NAME in DEFUN
; x-compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in: DEFUN MOVES
;     (DEFUN SB!VM::MOVES (SB!VM::DST SB!VM::SRC)
;       (SB!INT:COLLECT ((SB!VM::MOVES))
;         (DO ((SB!VM::DST SB!VM::DST #)
;              (SB!VM::SRC SB!VM::SRC #))
;             ((OR # #))
;           (SB!VM::MOVES (SB!INT:QUASIQUOTE #)))
;         (SB!VM::MOVES)))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::MOVES in DEFUN
; x-compiling (DEFUN MOVES ...)

; file: /«PKGBUILDDIR»/src/compiler/arm/static-fn.lisp
; in: DEFUN STATIC-FUN-TEMPLATE-VOP
;     (DEFUN SB!VM::STATIC-FUN-TEMPLATE-VOP (SB!VM::NUM-ARGS SB!VM::NUM-RESULTS)
;       (UNLESS
;           (AND (<= SB!VM::NUM-ARGS SB!VM::REGISTER-ARG-COUNT)
;                (<= SB!VM::NUM-RESULTS SB!VM::REGISTER-ARG-COUNT))
;         (ERROR "either too many args (~W) or too many results (~W); max = ~W"
;                SB!VM::NUM-ARGS SB!VM::NUM-RESULTS SB!VM::REGISTER-ARG-COUNT))
;       (LET ((SB!VM::NUM-TEMPS (MAX SB!VM::NUM-ARGS SB!VM::NUM-RESULTS)))
;         (SB!INT:COLLECT ((SB!VM::TEMP-NAMES) (SB!VM::TEMPS) (SB!VM::ARG-NAMES)
;                          (SB!VM::ARGS) (SB!VM::RESULT-NAMES) (SB!VM::RESULTS))
;           (DOTIMES (SB!VM::I SB!VM::NUM-RESULTS)
;             (LET #
;               #
;               #))
;           (DOTIMES (SB!VM::I SB!VM::NUM-TEMPS)
;             (LET #
;               #
;               #))
;           (DOTIMES (SB!VM::I SB!VM::NUM-ARGS)
;             (LET #
;               #
;               #))
;           (SB!INT:QUASIQUOTE
;            (SB!C:DEFINE-VOP #
;              #
;              #
;              #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   redefining SB!VM::STATIC-FUN-TEMPLATE-VOP in DEFUN
; x-compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...)
; x-compiling (FROB 1 ...)
; x-compiling (FROB 2 ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFMACRO DEFINE-STATIC-FUN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/static-fn.lisp-obj-tmp written
; compilation finished in 0:00:02.047
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/arith.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FIXNUM-UNOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (SIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (UNSIGNED-UNOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-NEGATE/UNSIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGNOT/FIXNUM SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFMACRO DEFINE-BINOP ...)
; x-compiling (DEFINE-BINOP + ...)
; x-compiling (DEFINE-BINOP - ...)
; x-compiling (DEFINE-BINOP LOGAND ...)
; x-compiling (DEFINE-BINOP LOGANDC1 ...)
; x-compiling (DEFINE-BINOP LOGANDC2 ...)
; x-compiling (DEFINE-BINOP LOGIOR ...)
; x-compiling (DEFINE-BINOP LOGXOR ...)
; x-compiling (DEFINE-VOP (FAST-LOGIOR-UNSIGNED-SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGIOR-SIGNED-UNSIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; x-compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...)
; x-compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SIGNED-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGNOR/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...)
; x-compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-RIGHT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/FIXNUM=>FIXNUM FAST-ASH-LEFT-C/FIXNUM=>FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/SIGNED=>SIGNED FAST-ASH-C/SIGNED=>SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH/SIGNED/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED FAST-ASH/SIGNED/UNSIGNED) ...)
; x-compiling (DEF FAST-ASH-LEFT/FIXNUM=>FIXNUM ...)
; x-compiling (DEF FAST-ASH-LEFT/SIGNED=>SIGNED ...)
; x-compiling (DEF FAST-ASH-LEFT/UNSIGNED=>UNSIGNED ...)
; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...)
; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...)
; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...)
; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...)
; x-compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...)
; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...)
; x-compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...)
; x-compiling (DEFINE-VOP (LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-MODULAR-BACKEND + ...)
; x-compiling (DEFINE-MODULAR-BACKEND - ...)
; x-compiling (DEFINE-MODULAR-BACKEND *)
; x-compiling (DEFINE-MODULAR-BACKEND LOGANDC1)
; x-compiling (DEFINE-MODULAR-BACKEND LOGANDC2)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...)
; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; x-compiling (DEFMACRO DEFINE-CONDITIONAL-VOP ...)
; x-compiling (DEFINE-CONDITIONAL-VOP < ...)
; x-compiling (DEFINE-CONDITIONAL-VOP > ...)
; x-compiling (DEFINE-CONDITIONAL-VOP EQL ...)
; x-compiling (DEFINE-VOP (FAST-EQL/FIXNUM) ...)
; x-compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM) ...)
; x-compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...)
; x-compiling (DEFINE-LOGTEST-VOPS)
; x-compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...)
; x-compiling (DEFKNOWN %LOGBITP ...)
; x-compiling (DEFUN %LOGBITP ...)
; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...)
; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNUM-FIXNUM FIXNUM-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNUM-SIGNED SIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (FAST-SIGNUM-UNSIGNED UNSIGNED-UNOP) ...)
; x-compiling (DEFINE-VOP (MASK-SIGNED-FIELD-WORD/C) ...)
; x-compiling (DEFINE-VOP (MASK-SIGNED-FIELD-BIGNUM/C) ...)
; x-compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...)
; x-compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...)
; x-compiling (DEFINE-FULL-REFFER BIGNUM-REF ...)
; x-compiling (DEFINE-FULL-SETTER BIGNUM-SET ...)
; x-compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...)
; x-compiling (DEFINE-VOP (ADD-W/CARRY) ...)
; x-compiling (DEFINE-VOP (SUB-W/BORROW) ...)
; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...)
; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...)
; x-compiling (DEFINE-VOP (BIGNUM-MULT) ...)
; x-compiling (DEFINE-VOP (MULHI) ...)
; x-compiling (DEFINE-VOP (MULHI/FX) ...)
; x-compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...)
; x-compiling (DEFINE-VOP (BIGNUM-FLOOR) ...)
; x-compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...)
; x-compiling (DEFINE-VOP (DIGIT-ASHR) ...)
; x-compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...)
; x-compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-+ ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-- ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-* ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-< ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-> ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-= ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...)
; x-compiling (DEFINE-STATIC-FUN TWO-ARG-EQV ...)
; x-compiling (DEFINE-STATIC-FUN EQL ...)
; x-compiling (DEFINE-STATIC-FUN %NEGATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/arith.lisp-obj-tmp written
; compilation finished in 0:00:33.215
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN %TEST-FIXNUM ...)
; x-compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...)
; x-compiling (DEFUN %TEST-IMMEDIATE ...)
; x-compiling (DEFUN %TEST-LOWTAG ...)
; x-compiling (DEFUN %TEST-HEADERS ...)
; x-compiling (DEFINE-VOP (CHECK-TYPE) ...)
; x-compiling (DEFINE-VOP (TYPE-PREDICATE) ...)
; x-compiling (DEFUN COST-TO-TEST-TYPES ...)
; x-compiling (DEFMACRO !DEFINE-TYPE-VOPS ...)
; x-compiling (DEFUN SIGNED-BYTE-32-TEST ...)
; x-compiling (DEFINE-VOP (SIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-32 CHECK-TYPE) ...)
; x-compiling (DEFUN UNSIGNED-BYTE-32-TEST ...)
; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-32-P TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-32 CHECK-TYPE) ...)
; x-compiling (DEFUN POWER-OF-TWO-LIMIT-P ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM) ...)
; x-compiling (DEFUN ENCODABLE-IMMEDIATE+1 ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM+1) ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...)
; x-compiling (DEFUN ENCODABLE-IMMEDIATE/+1 ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*-IMM) ...)
; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...)
; x-compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...)
; x-compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...)
; x-compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/type-vops.lisp-obj-tmp written
; compilation finished in 0:00:03.810
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/subprim.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (LENGTH/LIST) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/subprim.lisp-obj-tmp written
; compilation finished in 0:00:00.257
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (DEBUG-CUR-SP) ...)
; x-compiling (DEFINE-VOP (DEBUG-CUR-FP) ...)
; x-compiling (DEFINE-VOP (READ-CONTROL-STACK) ...)
; x-compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...)
; x-compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...)
; x-compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...)
; x-compiling (DEFINE-VOP (CODE-FROM-FUN CODE-FROM-MUMBLE) ...)
; x-compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...)
; x-compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...)
; x-compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/debug.lisp-obj-tmp written
; compilation finished in 0:00:02.259
; compiling file "/«PKGBUILDDIR»/src/compiler/early-aliencomp.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %ALIEN-FUNCALL ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/early-aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:00.030
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/c-call.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFCONSTANT +NUMBER-STACK-ALIGNMENT-MASK+ ...)
; x-compiling (DEFCONSTANT +MAX-REGISTER-ARGS+ ...)
; x-compiling (DEFUN MY-MAKE-WIRED-TN ...)
; x-compiling (DEFSTRUCT ARG-STATE ...)
; x-compiling (DEFSTRUCT (RESULT-STATE #) ...)
; x-compiling (DEFUN RESULT-REG-OFFSET ...)
; x-compiling (DEFUN REGISTER-ARGS-OFFSET ...)
; x-compiling (DEFUN INT-ARG ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...)
; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...)
; x-compiling (DEFUN MAKE-CALL-OUT-TNS ...)
; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...)
; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...)
; x-compiling (DEFINE-VOP (CALL-OUT) ...)
; x-compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...)
; x-compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...)
; x-compiling (DEFTRANSFORM %ALIEN-FUNCALL ...)
; x-compiling (DEFUN ALIEN-CALLBACK-ACCESSOR-FORM ...)
; x-compiling (DEFUN ALIEN-CALLBACK-ASSEMBLER-WRAPPER ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/c-call.lisp-obj-tmp written
; compilation finished in 0:00:03.307
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/cell.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (SLOT) ...)
; x-compiling (DEFINE-VOP (SET-SLOT) ...)
; x-compiling (DEFINE-VOP (INIT-SLOT SET-SLOT))
; x-compiling (DEFINE-VOP (SET CELL-SET) ...)
; x-compiling (DEFINE-VOP (CHECKED-CELL-REF) ...)
; x-compiling (DEFINE-VOP (SYMBOL-VALUE CHECKED-CELL-REF) ...)
; x-compiling (DEFINE-VOP (BOUNDP-FROB) ...)
; x-compiling (DEFINE-VOP (BOUNDP BOUNDP-FROB) ...)
; x-compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...)
; x-compiling (DEFINE-VOP (SYMBOL-HASH) ...)
; x-compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE SET))
; x-compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE SYMBOL-VALUE) ...)
; x-compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE FAST-SYMBOL-VALUE) ...)
; x-compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...)
; x-compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...)
; x-compiling (DEFINE-VOP (SET-FDEFN-FUN) ...)
; x-compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...)
; x-compiling (DEFINE-VOP (BIND) ...)
; x-compiling (DEFINE-VOP (UNBIND) ...)
; x-compiling (DEFINE-VOP (UNBIND-TO-HERE) ...)
; x-compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...)
; x-compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...)
; x-compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...)
; x-compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...)
; x-compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...)
; x-compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...)
; x-compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...)
; x-compiling (DEFINE-VOP (INSTANCE-LENGTH) ...)
; x-compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...)
; x-compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...)
; x-compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...)
; x-compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS WORD ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS SINGLE ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS DOUBLE ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-SINGLE ...)
; x-compiling (DEFINE-RAW-SLOT-VOPS COMPLEX-DOUBLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/cell.lisp-obj-tmp written
; compilation finished in 0:00:07.983
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/values.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (RESET-STACK-POINTER) ...)
; x-compiling (DEFINE-VOP (%%NIP-VALUES) ...)
; x-compiling (DEFINE-VOP (PUSH-VALUES) ...)
; x-compiling (DEFINE-VOP (VALUES-LIST) ...)
; x-compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/values.lisp-obj-tmp written
; compilation finished in 0:00:01.655
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/alloc.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (LIST-OR-LIST*) ...)
; x-compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...)
; x-compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...)
; x-compiling (DEFINE-VOP (MAKE-FDEFN) ...)
; x-compiling (DEFINE-VOP (MAKE-CLOSURE) ...)
; x-compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...)
; x-compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...)
; x-compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...)
; x-compiling (DEFINE-VOP (FIXED-ALLOC) ...)
; x-compiling (DEFINE-VOP (VAR-ALLOC) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/alloc.lisp-obj-tmp written
; compilation finished in 0:00:03.910
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/call.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN STANDARD-ARG-LOCATION ...)
; x-compiling (DEFUN STANDARD-ARG-LOCATION-SC ...)
; x-compiling (DEFCONSTANT ARG-COUNT-SC ...)
; x-compiling (DEFCONSTANT CLOSURE-SC ...)
; x-compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...)
; x-compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...)
; x-compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...)
; x-compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...)
; x-compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...)
; x-compiling (DEFUN MAKE-NFP-TN ...)
; x-compiling (DEFUN MAKE-STACK-POINTER-TN ...)
; x-compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...)
; x-compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...)
; x-compiling (DEFUN SELECT-COMPONENT-FORMAT ...)
; x-compiling (DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ...)
; x-compiling (DEFINE-VOP (CURRENT-FP) ...)
; x-compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...)
; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...)
; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...)
; x-compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...)
; x-compiling (DEFINE-VOP (XEP-SETUP-SP) ...)
; x-compiling (DEFINE-VOP (ALLOCATE-FRAME) ...)
; x-compiling (DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME) ...)
; x-compiling (DEFUN DEFAULT-UNKNOWN-VALUES ...)
; x-compiling (DEFUN RECEIVE-UNKNOWN-VALUES ...)
; x-compiling (DEFINE-VOP (UNKNOWN-VALUES-RECEIVER) ...)
; x-compiling (DEFUN EMIT-BLOCK-HEADER ...)
; x-compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...)
; x-compiling (DEFINE-VOP (COPY-MORE-ARG) ...)
; x-compiling (DEFINE-FULL-REFFER MORE-ARG ...)
; x-compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...)
; x-compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...)
; x-compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...)
; x-compiling (FROB ARG-COUNT-ERROR ...)
; x-compiling (FROB TYPE-CHECK-ERROR ...)
; x-compiling (FROB LAYOUT-INVALID-ERROR ...)
; x-compiling (FROB ODD-KEY-ARGS-ERROR ...)
; x-compiling (FROB UNKNOWN-KEY-ARG-ERROR ...)
; x-compiling (FROB NIL-FUN-RETURNED-ERROR ...)
; x-compiling (DEFINE-VOP (CALL-LOCAL) ...)
; x-compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...)
; x-compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...)
; x-compiling (DEFINE-VOP (KNOWN-RETURN) ...)
; x-compiling (DEFMACRO DEFINE-FULL-CALL ...)
; x-compiling (DEFINE-FULL-CALL CALL ...)
; x-compiling (DEFINE-FULL-CALL CALL-NAMED ...)
; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...)
; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...)
; x-compiling (DEFINE-FULL-CALL TAIL-CALL ...)
; x-compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...)
; x-compiling (DEFINE-FULL-CALL CALL-VARIABLE ...)
; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...)
; x-compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...)
; x-compiling (DEFINE-VOP (RETURN-SINGLE) ...)
; x-compiling (DEFINE-VOP (RETURN) ...)
; x-compiling (DEFINE-VOP (RETURN-MULTIPLE) ...)
; x-compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/call.lisp-obj-tmp written
; compilation finished in 0:00:14.514
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN MAKE-NLX-SP-TN ...)
; x-compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...)
; x-compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...)
; x-compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...)
; x-compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...)
; x-compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...)
; x-compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...)
; x-compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...)
; x-compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...)
; x-compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...)
; x-compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...)
; x-compiling (DEFINE-VOP (NLX-ENTRY) ...)
; x-compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...)
; x-compiling (DEFINE-VOP (UWP-ENTRY) ...)
; x-compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/nlx.lisp-obj-tmp written
; compilation finished in 0:00:03.128
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-nlx.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/late-nlx.lisp-obj-tmp written
; compilation finished in 0:00:00.058
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/show.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (PRINT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/show.lisp-obj-tmp written
; compilation finished in 0:00:00.359
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/array.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...)
; x-compiling (DEFINE-VOP (MAKE-ARRAY-HEADER/C) ...)
; x-compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...)
; x-compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...)
; x-compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...)
; x-compiling (DEFINE-VOP (CHECK-BOUND) ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...)
; x-compiling (DEF-PARTIAL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...)
; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...)
; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...)
; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...)
; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; x-compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...)
; x-compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/array.lisp-obj-tmp written
; compilation finished in 0:00:14.913
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/type-error.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; x-compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/type-error.lisp-obj-tmp written
; compilation finished in 0:00:01.147
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/pred.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-VOP (BRANCH) ...)
; x-compiling (DEFINE-VOP (BRANCH-IF) ...)
; x-compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...)
; x-compiling (DEFINE-VOP (IF-EQ) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/pred.lisp-obj-tmp written
; compilation finished in 0:00:00.440
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/late-type-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (!DEFINE-TYPE-VOPS FIXNUMP ...)
; x-compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...)
; x-compiling (!DEFINE-TYPE-VOPS LISTP ...)
; x-compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...)
; x-compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS BIGNUMP ...)
; x-compiling (!DEFINE-TYPE-VOPS RATIOP ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEXP ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...)
; x-compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS)
; x-compiling (DEF)
; x-compiling (!DEFINE-TYPE-VOPS CHARACTERP ...)
; x-compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...)
; x-compiling (!DEFINE-TYPE-VOPS LRA-P ...)
; x-compiling (!DEFINE-TYPE-VOPS FDEFN-P ...)
; x-compiling (!DEFINE-TYPE-VOPS CLOSUREP ...)
; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...)
; x-compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...)
; x-compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...)
; x-compiling (!DEFINE-TYPE-VOPS STRINGP ...)
; x-compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...)
; x-compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...)
; x-compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...)
; x-compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...)
; x-compiling (!DEFINE-TYPE-VOPS VECTORP ...)
; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...)
; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...)
; x-compiling (!DEFINE-TYPE-VOPS ARRAYP ...)
; x-compiling (!DEFINE-TYPE-VOPS NUMBERP ...)
; x-compiling (!DEFINE-TYPE-VOPS RATIONALP ...)
; x-compiling (!DEFINE-TYPE-VOPS INTEGERP ...)
; x-compiling (!DEFINE-TYPE-VOPS FLOATP ...)
; x-compiling (!DEFINE-TYPE-VOPS REALP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:20.266
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/assem-rtns.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...)
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/assem-rtns.lisp-obj-tmp written
; compilation finished in 0:00:00.662
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/array.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-HEAP # ...) ...)
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR-ON-STACK # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/array.lisp-obj-tmp written
; compilation finished in 0:00:00.727
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/arith.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFINE-ASSEMBLY-ROUTINE (SIGNED-TRUNCATE # ...) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/arith.lisp-obj-tmp written
; compilation finished in 0:00:00.643
; compiling file "/«PKGBUILDDIR»/src/assembly/arm/alloc.lisp" (written 30 MAY 2015 05:47:18 AM):
; x-compiling (IN-PACKAGE "SB!VM")

; /«PKGBUILDDIR»/obj/from-xc/src/assembly/arm/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00.023
RETURN-MULTIPLE assembled
TAIL-CALL-VARIABLE assembled
THROW assembled
UNWIND assembled
ALLOCATE-VECTOR-ON-HEAP assembled
ALLOCATE-VECTOR-ON-STACK assembled
SIGNED-TRUNCATE assembled
; compiling file "/«PKGBUILDDIR»/src/compiler/pseudo-vops.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...)
; x-compiling (DEFINE-VOP (MOVE-OPERAND) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/pseudo-vops.lisp-obj-tmp written
; compilation finished in 0:00:00.207
; compiling file "/«PKGBUILDDIR»/src/compiler/aliencomp.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %SAP-ALIEN ...)
; x-compiling (DEFKNOWN ALIEN-SAP ...)
; x-compiling (DEFKNOWN SLOT ...)
; x-compiling (DEFKNOWN %SET-SLOT ...)
; x-compiling (DEFKNOWN %SLOT-ADDR ...)
; x-compiling (DEFKNOWN DEREF ...)
; x-compiling (DEFKNOWN %SET-DEREF ...)
; x-compiling (DEFKNOWN %DEREF-ADDR ...)
; x-compiling (DEFKNOWN %HEAP-ALIEN ...)
; x-compiling (DEFKNOWN %SET-HEAP-ALIEN ...)
; x-compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...)
; x-compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...)
; x-compiling (DEFKNOWN LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; x-compiling (DEFKNOWN %SET-LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...)
; x-compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...)
; x-compiling (DEFKNOWN %CAST ...)
; x-compiling (DEFKNOWN NATURALIZE ...)
; x-compiling (DEFKNOWN DEPORT ...)
; x-compiling (DEFKNOWN DEPORT-ALLOC ...)
; x-compiling (DEFKNOWN %ALIEN-VALUE ...)
; x-compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...)
; x-compiling (DEFKNOWN ALIEN-FUNCALL ...)
; x-compiling (DEFTRANSFORM SLOT ...)
; x-compiling (DEFTRANSFORM %SET-SLOT ...)
; x-compiling (DEFTRANSFORM %SLOT-ADDR ...)
; x-compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...)
; x-compiling (DEFTRANSFORM SLOT ...)
; x-compiling (DEFTRANSFORM %SET-SLOT ...)
; x-compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %SLOT-ADDR ...)

; file: /«PKGBUILDDIR»/src/compiler/aliencomp.lisp
; in: DEFUN FIND-DEREF-ALIEN-TYPE
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; note: deleting unreachable code
; x-compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...)
; x-compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...)
; x-compiling (DEFUN COMPUTE-DEREF-GUTS ...)
; x-compiling (DEFTRANSFORM DEREF ...)
; x-compiling (DEFTRANSFORM %SET-DEREF ...)
; x-compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %DEREF-ADDR ...)
; x-compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...)
; x-compiling (DEFTRANSFORM %HEAP-ALIEN ...)
; x-compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...)
; x-compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...)
; x-compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...)
; x-compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...)
; x-compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...)
; x-compiling (DEFTRANSFORM LOCAL-ALIEN ...)
; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...)
; x-compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...)
; x-compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...)
; x-compiling (DEFTRANSFORM DISPOSE-LOCAL-ALIEN ...)
; x-compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %CAST ...)
; x-compiling (DEFTRANSFORM ALIEN-SAP ...)
; x-compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...)
; x-compiling (DEFTRANSFORM %SAP-ALIEN ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...)
; x-compiling (DEFTRANSFORM / ...)
; x-compiling (DEFTRANSFORM ASH ...)
; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; x-compiling (DEFVAR *SAVED-FP-AND-PCS* ...)
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (DEFUN FIND-SAVED-FP-AND-PC ...)
; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...)
; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...)
; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:03.586
; compiling file "/«PKGBUILDDIR»/src/compiler/ltv.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFKNOWN %LOAD-TIME-VALUE ...)
; x-compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...)
; x-compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ltv.lisp-obj-tmp written
; compilation finished in 0:00:00.340
; compiling file "/«PKGBUILDDIR»/src/compiler/gtn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN GTN-ANALYZE ...)

; file: /«PKGBUILDDIR»/src/compiler/gtn.lisp
; in: DEFUN ASSIGN-LAMBDA-VAR-TNS
;     (SECOND SB!C::PTYPE-INFO)
; --> CADR CAR CDR 
; ==>
;   SB!C::PTYPE-INFO
; 
; note: deleting unreachable code
; x-compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...)
; x-compiling (DEFUN ASSIGN-IR2-PHYSENV ...)
; x-compiling (DEFUN USE-STANDARD-RETURNS ...)
; x-compiling (DEFUN RETURN-VALUE-EFFICIENCY-NOTE ...)
; x-compiling (DEFUN RETURN-INFO-FOR-SET ...)
; x-compiling (DEFUN ASSIGN-RETURN-LOCATIONS ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN ASSIGN-IR2-NLX-INFO ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/gtn.lisp-obj-tmp written
; compilation finished in 0:00:00.702
; compiling file "/«PKGBUILDDIR»/src/compiler/ltn.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN NODE-LTN-POLICY ...)
; x-compiling (DEFUN LTN-POLICY-SAFE-P ...)
; x-compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...)
; x-compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...)
; x-compiling (DECLAIM (INLINE LVAR-PTYPE))
; x-compiling (DEFUN LVAR-PTYPE ...)
; x-compiling (DEFUN LVAR-DELAYED-LEAF ...)
; x-compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...)
; x-compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...)
; x-compiling (DEFUN ANNOTATE-FUN-LVAR ...)
; x-compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...)
; x-compiling (DEFUN LTN-DEFAULT-CALL ...)
; x-compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...)
; x-compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...)
; x-compiling (DEFUN LTN-ANALYZE-RETURN ...)
; x-compiling (DEFUN LTN-ANALYZE-MV-BIND ...)
; x-compiling (DEFUN LTN-ANALYZE-MV-CALL ...)
; x-compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...)
; x-compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...)
; x-compiling (DEFUN LTN-ANALYZE-SET ...)
; x-compiling (DEFUN LTN-ANALYZE-IF ...)
; x-compiling (DEFUN LTN-ANALYZE-EXIT ...)
; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC LTN-ANNOTATE) ...)
; x-compiling (DEFUN OPERAND-RESTRICTION-OK ...)
; x-compiling (DEFUN TEMPLATE-ARGS-OK ...)
; x-compiling (DEFUN TEMPLATE-RESULTS-OK ...)
; x-compiling (DEFUN IS-OK-TEMPLATE-USE ...)
; x-compiling (DEFUN FIND-TEMPLATE ...)
; x-compiling (DEFUN FIND-TEMPLATE-FOR-LTN-POLICY ...)
; x-compiling (DEFVAR *EFFICIENCY-NOTE-LIMIT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *EFFICIENCY-NOTE-COST-THRESHOLD* ...)
; x-compiling (DECLAIM (TYPE INDEX ...))
; x-compiling (DEFUN STRANGE-TEMPLATE-FAILURE ...)
; x-compiling (DEFUN NOTE-REJECTED-TEMPLATES ...)
; x-compiling (DEFUN LTN-ANALYZE-KNOWN-CALL ...)
; x-compiling (DEFUN LTN-ANALYZE-CAST ...)
; x-compiling (DEFUN LTN-ANNOTATE-CASTS ...)
; x-compiling (DEFUN LTN-ANNOTATE-CAST ...)
; x-compiling (DEFUN LTN-ANALYZE-BLOCK ...)
; x-compiling (DEFUN LTN-ANALYZE ...)
; x-compiling (DEFUN LTN-ANALYZE-BELATED-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ltn.lisp-obj-tmp written
; compilation finished in 0:00:03.461
; compiling file "/«PKGBUILDDIR»/src/compiler/stack.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN FIND-PUSHED-LVARS ...)
; x-compiling (DEFUN NLE-BLOCK-NLX-INFO ...)
; x-compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...)
; x-compiling (DEFUN MERGE-UVL-LIVE-SETS ...)
; x-compiling (DEFUN FIND-LOWEST-COMMON-DOMINATOR ...)
; x-compiling (DEFUN BACK-PROPAGATE-ONE-DX-LVAR ...)
; x-compiling (DEFUN BACK-PROPAGATE-DX-LVARS ...)
; x-compiling (DEFUN UPDATE-UVL-LIVE-SETS ...)
; x-compiling (DEFUN ORDERED-LIST-INTERSECTION ...)
; x-compiling (DEFUN ORDERED-LIST-UNION ...)
; x-compiling (DEFUN ORDER-BLOCK-UVL-SETS ...)
; x-compiling (DEFUN ORDER-UVL-SETS ...)
; x-compiling (DEFUN INSERT-STACK-CLEANUPS ...)
; x-compiling (DEFUN FIND-PUSHING-BLOCKS ...)
; x-compiling (DEFUN STACK-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/stack.lisp-obj-tmp written
; compilation finished in 0:00:02.097
; compiling file "/«PKGBUILDDIR»/src/compiler/control.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN ADD-TO-EMIT-ORDER ...)
; x-compiling (DEFUN FIND-ROTATED-LOOP-HEAD ...)
; x-compiling (DEFUN CONTROL-ANALYZE-BLOCK ...)
; x-compiling (DEFUN CONTROL-ANALYZE-1-FUN ...)
; x-compiling (DEFEVENT CONTROL-DELETED-BLOCK ...)
; x-compiling (DEFUN CONTROL-ANALYZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/control.lisp-obj-tmp written
; compilation finished in 0:00:00.596
; compiling file "/«PKGBUILDDIR»/src/compiler/entry.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN ENTRY-ANALYZE ...)
; x-compiling (DEFUN COMPUTE-ENTRY-INFO ...)
; x-compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/entry.lisp-obj-tmp written
; compilation finished in 0:00:00.409
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN EMIT-MOVE ...)
; x-compiling (DEFUN EMIT-STEP-P ...)
; x-compiling (DEFUN TYPE-CHECK-TEMPLATE ...)
; x-compiling (DEFUN EMIT-TYPE-CHECK ...)
; x-compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...)
; x-compiling (DEFUN EMIT-MAKE-VALUE-CELL ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN FIND-IN-PHYSENV ...)
; x-compiling (DEFUN CONSTANT-TN ...)
; x-compiling (DEFUN LEAF-TN ...)
; x-compiling (DEFUN EMIT-CONSTANT ...)
; x-compiling (DEFUN %RETURN-IS-BOXED ...)
; x-compiling (DEFUN BOXED-REF-P ...)

; file: /«PKGBUILDDIR»/src/compiler/ir2tran.lisp
; in: DEFUN IR2-CONVERT-REF
;     (FUNCALL SB!C::REFFER SB!C::NODE BLOCK SB!C:TN (SB!C::LEAF-INFO SB!C::LEAF)
;              SB!C::RES)
; --> SB!C::%FUNCALL THE SB!KERNEL:%COERCE-CALLABLE-TO-FUN 
; ==>
;   SB!C::REFFER
; 
; note: deleting unreachable code
; x-compiling (DEFUN IR2-CONVERT-REF ...)
; x-compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...)
; x-compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...)
; x-compiling (DEFUN IR2-CONVERT-CLOSURE ...)
; x-compiling (DEFUN CLOSURE-INITIAL-VALUE ...)
; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...)

; file: /«PKGBUILDDIR»/src/compiler/ir2tran.lisp
; in: DEFUN IR2-CONVERT-SET
;     (FUNCALL SB!C::SETTER SB!C::NODE BLOCK SB!C:TN SB!C::VAL
;              (SB!C::LEAF-INFO SB!C::LEAF))
; --> SB!C::%FUNCALL THE SB!KERNEL:%COERCE-CALLABLE-TO-FUN 
; ==>
;   SB!C::SETTER
; 
; note: deleting unreachable code
; x-compiling (DEFUN IR2-CONVERT-SET ...)
; x-compiling (DEFUN LVAR-TN ...)
; x-compiling (DEFUN LVAR-TNS ...)
; x-compiling (DEFUN LVAR-RESULT-TNS ...)
; x-compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...)
; x-compiling (DEFUN STANDARD-RESULT-TNS ...)
; x-compiling (DEFUN MOVE-RESULTS-COERCED ...)
; x-compiling (DEFUN MOVE-RESULTS-CHECKED ...)
; x-compiling (DEFUN MOVE-LVAR-RESULT ...)
; x-compiling (DEFUN IR2-CONVERT-CAST ...)
; x-compiling (DEFUN REFERENCE-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-CONDITIONAL ...)
; x-compiling (DEFUN IR2-CONVERT-IF ...)
; x-compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...)
; x-compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...)
; x-compiling (DEFUN IR2-CONVERT-TEMPLATE ...)
; x-compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...)
; x-compiling (DEFUN IR2-CONVERT-LET ...)
; x-compiling (DEFUN EMIT-PSETQ-MOVES ...)
; x-compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...)
; x-compiling (DEFUN FUN-LVAR-TN ...)
; x-compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...)
; x-compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *TRACK-FULL-CALLED-FNAMES* ...)
; x-compiling (DEFUN PONDER-FULL-CALL ...)
; x-compiling (DEFUN IR2-CONVERT-FULL-CALL ...)
; x-compiling (DEFUN XEP-VERIFY-ARG-COUNT ...)
; x-compiling (DEFUN INIT-XEP-ENVIRONMENT ...)
; x-compiling (DEFUN SAVE-BSP ...)
; x-compiling (DEFUN IR2-CONVERT-BIND ...)
; x-compiling (DEFUN IR2-CONVERT-RETURN ...)
; x-compiling (DEFOPTIMIZER (%CALLER-FRAME IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...)
; x-compiling (DEFUN IR2-CONVERT-MV-BIND ...)
; x-compiling (DEFUN IR2-CONVERT-MV-CALL ...)
; x-compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...)
; x-compiling (DEF-IR1-TRANSLATOR PROGV ...)
; x-compiling (DEFUN IR2-CONVERT-EXIT ...)
; x-compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...)
; x-compiling (DEFUN IR2-CONVERT-THROW ...)
; x-compiling (DEFUN EMIT-NLX-START ...)
; x-compiling (DEFUN IR2-CONVERT-ENTRY ...)
; x-compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...)
; x-compiling (DEF LIST)
; x-compiling (DEF LIST*)
; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...)
; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...)
; x-compiling (DEFUN IR2-CONVERT ...)
; x-compiling (DEFUN FINISH-IR2-BLOCK ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN IR2-CONVERT-BLOCK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:11.948
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/vm-ir2tran.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...)
; x-compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...)
; x-compiling (DEFUN EMIT-INITS ...)
; x-compiling (DEFUN EMIT-FIXED-ALLOC ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...)
; x-compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...)
; x-compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...)
; x-compiling (LET (#) ...)
; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...)
; x-compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...)
; x-compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:01.741
; compiling file "/«PKGBUILDDIR»/src/compiler/copyprop.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN TN-IS-COPY-OF ...)
; x-compiling (DEFUN INIT-COPY-SETS ...)
; x-compiling (DEFUN COPY-FLOW-ANALYSIS ...)
; x-compiling (DEFEVENT COPY-DELETED-MOVE ...)
; x-compiling (DEFUN OK-COPY-REF ...)
; x-compiling (DEFUN PROPAGATE-COPIES ...)
; x-compiling (DEFUN COPY-PROPAGATE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/copyprop.lisp-obj-tmp written
; compilation finished in 0:00:01.004
; compiling file "/«PKGBUILDDIR»/src/compiler/represent.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN GET-OPERAND-INFO
;     (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN GET-OPERAND-INFO ...)
; x-compiling (DEFUN LISTIFY-RESTRICTIONS ...)
; x-compiling (DEFUN BAD-COSTS-ERROR ...)
; x-compiling (DEFUN BAD-COERCE-ERROR ...)
; x-compiling (DEFUN BAD-MOVE-ARG-ERROR ...)
; x-compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...)
; x-compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...)
; x-compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...)
; x-compiling (DEFUN ADD-REPRESENTATION-COSTS ...)

; file: /«PKGBUILDDIR»/src/compiler/represent.lisp
; in: DEFUN SELECT-TN-REPRESENTATION
;     (DEFUN SB!C::SELECT-TN-REPRESENTATION (SB!C:TN SB!C::SCS SB!C::COSTS)
;       (DECLARE (TYPE SB!C:TN SB!C:TN)
;                (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;                (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;       (DOLIST (SB!C::SCN SB!C::SCS) (SETF (SVREF SB!C::COSTS SB!C::SCN) 0))
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS
;                                       SB!C::COSTS #'SB!C::VOP-ARGS
;                                       #'SB!C::VOP-INFO-ARG-COSTS
;                                       #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;       (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS
;                                       SB!C::COSTS #'SB!C::VOP-RESULTS
;                                       #'SB!C::VOP-INFO-RESULT-COSTS
;                                       #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;       (LET ((MIN MOST-POSITIVE-FIXNUM) (SB!C::MIN-SCN NIL) (SB!C::UNIQUE NIL))
;         (DOLIST (SB!C::SCN SB!C::SCS)
;           (LET (#)
;             (COND # #)))
;         (VALUES (SVREF SB!C:*BACKEND-SC-NUMBERS* SB!C::MIN-SCN) SB!C::UNIQUE)))
; --> PROGN 
; ==>
;   (SB!IMPL::%DEFUN 'SB!C::SELECT-TN-REPRESENTATION
;    (SB!INT:NAMED-LAMBDA SB!C::SELECT-TN-REPRESENTATION
;        (SB!C:TN SB!C::SCS SB!C::COSTS)
;      (DECLARE (TYPE SB!C:TN SB!C:TN)
;               (TYPE SB!C::SC-VECTOR SB!C::COSTS)
;               (INLINE SB!C::ADD-REPRESENTATION-COSTS))
;      (BLOCK SB!C::SELECT-TN-REPRESENTATION
;        (DOLIST (SB!C::SCN SB!C::SCS) (SETF #))
;        (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS
;                                        SB!C::COSTS #'SB!C::VOP-ARGS
;                                        #'SB!C::VOP-INFO-ARG-COSTS
;                                        #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL)
;        (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS
;                                        SB!C::COSTS #'SB!C::VOP-RESULTS
;                                        #'SB!C::VOP-INFO-RESULT-COSTS
;                                        #'SB!C::VOP-INFO-MORE-RESULT-COSTS T)
;        (LET (# # #)
;          (DOLIST # #)
;          (VALUES # SB!C::UNIQUE))))
;    NIL 'NIL (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB!C::ADD-REPRESENTATION-COSTS could not be inlined because its source
;   code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be
;   in effect to save function definitions for inlining.
; x-compiling (DEFUN SELECT-TN-REPRESENTATION ...)
; x-compiling (DEFUN NOTE-NUMBER-STACK-TN ...)
; x-compiling (DEFUN GET-OPERAND-NAME ...)
; x-compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...)
; x-compiling (DEFUN FIND-MOVE-VOP ...)
; x-compiling (DEFUN EMIT-COERCE-VOP ...)
; x-compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS))
; x-compiling (DEFUN COERCE-SOME-OPERANDS ...)
; x-compiling (DEFUN COERCE-VOP-OPERANDS ...)
; x-compiling (DEFUN EMIT-ARG-MOVES ...)
; x-compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...)
; x-compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK))
; x-compiling (DEFUN NOTE-IF-NUMBER-STACK ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; x-compiling (DEFUN SELECT-REPRESENTATIONS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/represent.lisp-obj-tmp written
; compilation finished in 0:00:02.817
; compiling file "/«PKGBUILDDIR»/src/compiler/ir2opt.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFVAR *2BLOCK-PRED*)
; x-compiling (DEFVAR *2BLOCK-SUCC*)
; x-compiling (DEFVAR *LABEL-2BLOCK*)
; x-compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...)
; x-compiling (DEFUN UPDATE-BLOCK-SUCC ...)
; x-compiling (DECLAIM (INLINE VOP-NAME))
; x-compiling (DEFUN VOP-NAME ...)
; x-compiling (DEFUN MOVE-VALUE-TARGET ...)
; x-compiling (DEFUN CMOVP ...)
; x-compiling (DECLAIM (INLINE CONVERT-ONE-CMOV))
; x-compiling (DEFUN CONVERT-ONE-CMOV ...)

; file: /«PKGBUILDDIR»/src/compiler/ir2opt.lisp
; in: DEFUN MAYBE-CONVERT-ONE-CMOV
;     (SB!C::CONVERT-ONE-CMOV SB!C::CMOVE-VOP SB!C::VALUE-A SB!C::ARG-A
;                             SB!C::VALUE-B SB!C::ARG-B SB!C::TARGET SB!C::RES
;                             SB!C::FLAGS SB!INT:INFO SB!ASSEM:LABEL SB!C::VOP ...)
; --> BLOCK SB!C::EMIT-TEMPLATE SB!C::EMIT-AND-INSERT-VOP LIST* CONS 
; ==>
;   SB!INT:INFO
; 
; note: deleting unreachable code

;     (ROTATEF SB!C::VALUE-A SB!C::VALUE-B)
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   SB!C::VALUE-B
; 
; note: deleting unreachable code

;     (SB!C::CONVERT-ONE-CMOV SB!C::CMOVE-VOP SB!C::VALUE-A SB!C::ARG-A
;                             SB!C::VALUE-B SB!C::ARG-B SB!C::TARGET SB!C::RES
;                             SB!C::FLAGS SB!INT:INFO SB!ASSEM:LABEL SB!C::VOP ...)
; ==>
;   SB!C::VALUE-A
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; --> BLOCK SB!C::DELETE-VOP 
; ==>
;   SB!C::VOP
; 
; note: deleting unreachable code
; x-compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...)
; x-compiling (DEFUN CONVERT-CMOVS ...)
; x-compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...)
; x-compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...)
; 
; compilation unit finished
;   printed 5 notes
; x-compiling (DEFUN IR2-OPTIMIZE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/ir2opt.lisp-obj-tmp written
; compilation finished in 0:00:01.161
; compiling file "/«PKGBUILDDIR»/src/compiler/pack.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!REGALLOC")
; x-compiling (DEFVAR *PACK-ASSIGN-COSTS* ...)
; x-compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CONFLICTS-IN-SC ...)
; x-compiling (DEFUN ADD-LOCATION-CONFLICTS ...)
; x-compiling (DEFUN FIND-LOCATION-USAGE ...)
; x-compiling (DEFUN IR2-BLOCK-COUNT ...)
; x-compiling (DEFUN INIT-SB-VECTORS ...)
; x-compiling (DEFUN GROW-SC ...)
; x-compiling (DEFUN NO-LOAD-FUN-ERROR ...)
; x-compiling (DEFUN FAILED-TO-PACK-ERROR ...)
; x-compiling (DEFUN DESCRIBE-TN-USE ...)
; x-compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...)
; x-compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...)
; x-compiling (DEFUN NOTE-SPILLED-TN ...)
; x-compiling (DEFUN PACK-SAVE-TN ...)
; x-compiling (DEFUN EMIT-OPERAND-LOAD ...)
; x-compiling (DEFUN REVERSE-FIND-VOP ...)
; x-compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...)
; x-compiling (DEFUN FIND-SINGLE-WRITER ...)
; x-compiling (DEFUN SAVE-SINGLE-WRITER-TN ...)
; x-compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...)
; x-compiling (DEFUN BASIC-SAVE-TN ...)
; x-compiling (DEFUN EMIT-SAVES ...)
; x-compiling (DEFUN SAVE-IF-NECESSARY ...)
; x-compiling (DEFUN RESTORE-TN ...)
; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...)
; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES ...)
; x-compiling (DEFVAR *TN-WRITE-COST* ...)
; x-compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...)
; x-compiling (DEFUN ASSIGN-TN-COSTS ...)
; x-compiling (DEFUN ASSIGN-TN-DEPTHS ...)
; x-compiling (DEFVAR *LIVE-BLOCK*)
; x-compiling (DEFVAR *LIVE-VOP*)
; x-compiling (DEFVAR *REPACK-BLOCKS*)
; x-compiling (DECLAIM (TYPE LIST ...))
; x-compiling (DEFUN INIT-LIVE-TNS ...)
; x-compiling (DEFUN COMPUTE-LIVE-TNS ...)
; x-compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...)
; x-compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...)
; x-compiling (DEFUN FIND-LOAD-TN-TARGET ...)
; x-compiling (DEFUN SELECT-LOAD-TN-LOCATION ...)
; x-compiling (DEFEVENT UNPACK-TN ...)
; x-compiling (DEFUN UNPACK-TN ...)
; x-compiling (DEFEVENT UNPACK-FALLBACK ...)

; file: /«PKGBUILDDIR»/src/compiler/pack.lisp
; in: DEFUN UNPACK-FOR-LOAD-TN
;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN UNPACK-FOR-LOAD-TN ...)
; x-compiling (DEFUN PACK-LOAD-TN ...)
; x-compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS))
; x-compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...)
; x-compiling (DEFUN PACK-LOAD-TNS ...)
; x-compiling (DEFUN TARGET-IF-DESIRABLE ...)
; x-compiling (DEFUN CHECK-OK-TARGET ...)
; x-compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS))
; x-compiling (DEFUN %CALL-WITH-TARGET-TNS ...)
; x-compiling (DEFMACRO DO-TARGET-TNS ...)
; x-compiling (DEFUN FIND-OK-TARGET-OFFSET ...)
; x-compiling (DEFUN SELECT-LOCATION ...)
; x-compiling (DEFUN ORIGINAL-TN ...)
; x-compiling (DECLAIM (INLINE UNBOUNDED-SC-P))
; x-compiling (DEFUN UNBOUNDED-SC-P ...)
; x-compiling (DEFUN UNBOUNDED-TN-P ...)
; x-compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P))
; x-compiling (DEFUN PACK-TN ...)
; x-compiling (DEFUN PACK-WIRED-TN ...)
; x-compiling (DEFEVENT REPACK-BLOCK ...)
; x-compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...)
; x-compiling (DEFUN TN-LEXICAL-DEPTH ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...)
; x-compiling (DECLAIM (FTYPE FUNCTION ...))
; x-compiling (DEFUN PACK ...)
; 
; compilation unit finished
;   printed 4 notes
; x-compiling (DEFUN PACK-GREEDY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/pack.lisp-obj-tmp written
; compilation finished in 0:00:11.211
; compiling file "/«PKGBUILDDIR»/src/compiler/pack-iterative.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!REGALLOC")
; x-compiling (DEFSTRUCT (ORDERED-SET # ...) ...)
; x-compiling (DEFUN OSET-ADJOIN ...)
; x-compiling (DEFUN OSET-DELETE ...)
; x-compiling (DEFUN OSET-MEMBER ...)
; x-compiling (DEFMACRO DO-OSET-ELEMENTS ...)
; x-compiling (DEF!STRUCT (VERTEX # ...) ...)
; x-compiling (DECLAIM (INLINE VERTEX-SC))
; x-compiling (DEFUN VERTEX-SC ...)
; x-compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...)
; x-compiling (DEFUN INSERT-ONE-EDGE ...)
; x-compiling (DEFUN BLOCK-GTNS ...)
; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...)
; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...)
; x-compiling (DEFUN INSERT-CONFLICT-EDGES ...)
; x-compiling (DEFUN RESTRICTED-TN-LOCATIONS ...)
; x-compiling (DEFUN PREPARE-VERTICES ...)
; x-compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...)
; x-compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...)
; x-compiling (DEFUN COLOR-NO-CONFLICTS-P ...)
; x-compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...)
; x-compiling (DEFUN VERTEX-DOMAIN ...)
; x-compiling (DEFUN VERTEX-TARGET-VERTICES ...)
; x-compiling (DEFUN VERTICES-BEST-COLOR ...)
; x-compiling (DEFUN FIND-VERTEX-COLOR ...)
; x-compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...)
; x-compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...)
; x-compiling (DEFVAR *PACK-ITERATIONS* ...)
; x-compiling (DEFUN ITERATE-COLOR ...)
; x-compiling (DEFUN PACK-COLORED ...)
; x-compiling (DEFUN PACK-ITERATIVE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/pack-iterative.lisp-obj-tmp written
; compilation finished in 0:00:03.462
; compiling file "/«PKGBUILDDIR»/src/compiler/codegen.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFUN COMPONENT-HEADER-LENGTH ...)
; x-compiling (DEFUN SB-ALLOCATED-SIZE ...)
; x-compiling (DEFUN CURRENT-NFP-TN ...)
; x-compiling (DEFUN CALLEE-NFP-TN ...)
; x-compiling (DEFUN CALLEE-RETURN-PC-TN ...)
; x-compiling (DEFVAR *CODE-SEGMENT* ...)
; x-compiling (DEFVAR *ELSEWHERE* ...)
; x-compiling (DEFVAR *ELSEWHERE-LABEL* ...)
; x-compiling (DEFVAR *PREV-SEGMENT*)
; x-compiling (DEFVAR *PREV-VOP*)
; x-compiling (DEFUN TRACE-INSTRUCTION ...)
; x-compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...)
; x-compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...)
; x-compiling (DEFUN INIT-ASSEMBLER ...)
; x-compiling (DEFUN GENERATE-CODE ...)
; x-compiling (DEFUN EMIT-LABEL-ELSEWHERE ...)
; x-compiling (DEFUN LABEL-ELSEWHERE-P ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/codegen.lisp-obj-tmp written
; compilation finished in 0:00:00.690
; compiling file "/«PKGBUILDDIR»/src/compiler/debug.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DEFVAR *ARGS* ...)
; x-compiling (DEFVAR *IGNORED-ERRORS* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BARF ...)
; x-compiling (DEFVAR *BURP-ACTION* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BURP ...)
; x-compiling (DEFVAR *SEEN-BLOCKS*)
; x-compiling (DEFVAR *SEEN-FUNS*)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-NODE-REACHED ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-IR1-CONSISTENCY ...)
; x-compiling (DEFUN OBSERVE-FUNCTIONAL ...)
; x-compiling (DEFUN CHECK-FUN-REACHED ...)
; x-compiling (DEFUN CHECK-FUN-STUFF ...)
; x-compiling (DEFUN CHECK-FUN-CONSISTENCY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...)
; x-compiling (DEFUN CHECK-DEST ...)
; x-compiling (DEFUN CHECK-NODE-CONSISTENCY ...)
; x-compiling (DEFUN CHECK-TN-REFS ...)
; x-compiling (DEFUN CHECK-VOP-REFS ...)
; x-compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...)
; x-compiling (DEFUN CHECK-IR2-CONSISTENCY ...)
; x-compiling (DEFUN PRE-PACK-TN-STATS ...)
; x-compiling (DEFUN CHECK-MORE-TN-ENTRY ...)
; x-compiling (DEFUN CHECK-TN-CONFLICTS ...)
; x-compiling (DEFUN CHECK-BLOCK-CONFLICTS ...)
; x-compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...)
; x-compiling (DEFUN CHECK-LIFE-CONSISTENCY ...)
; x-compiling (DEFUN CHECK-PACK-CONSISTENCY ...)
; x-compiling (DEF *CONTINUATION-NUMBER* ...)
; x-compiling (DEF *TN-ID* ...)
; x-compiling (DEF *LABEL-ID* ...)
; x-compiling (DEFUN PRINT-LEAF ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN BLOCK-OR-LOSE ...)
; x-compiling (DEFUN PRINT-CTRAN ...)
; x-compiling (DEFUN PRINT-LVAR ...)
; x-compiling (DEFUN PRINT-LVAR-STACK ...)
; x-compiling (DEFUN PRINT-NODES ...)
; x-compiling (DEFUN PRINT-TN-GUTS ...)
; x-compiling (DEFUN PRINT-OPERANDS ...)
; x-compiling (DEFUN PRINT-VOP ...)
; x-compiling (DEFUN PRINT-IR2-BLOCK ...)
; x-compiling (DEFUN PRINT-VOPS ...)
; x-compiling (DEFUN PRINT-IR2-BLOCKS ...)
; x-compiling (DEFUN PRINT-BLOCKS ...)
; x-compiling (DEFUN PRINT-ALL-BLOCKS ...)
; x-compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...)
; x-compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...)
; x-compiling (DEFUN ADD-ALL-LOCAL-TNS ...)
; x-compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...)
; x-compiling (DEFUN LIST-CONFLICTS ...)
; x-compiling (DEFUN NTH-VOP ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/debug.lisp-obj-tmp written
; compilation finished in 0:00:06.669
; compiling file "/«PKGBUILDDIR»/src/code/format-time.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFPARAMETER *ABBREV-WEEKDAY-TABLE* ...)
; x-compiling (DEFPARAMETER *LONG-WEEKDAY-TABLE* ...)
; x-compiling (DEFPARAMETER *ABBREV-MONTH-TABLE* ...)
; x-compiling (DEFPARAMETER *LONG-MONTH-TABLE* ...)
; x-compiling (DEFPARAMETER *TIMEZONE-TABLE* ...)
; x-compiling (DEFPARAMETER *DAYLIGHT-TABLE* ...)
; x-compiling (DEFUN VALID-DESTINATION-P ...)
; x-compiling (DEFUN FORMAT-UNIVERSAL-TIME ...)
; x-compiling (DEFUN TIMEZONE-NAME ...)
; x-compiling (DEFUN FORMAT-DECODED-TIME ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/format-time.lisp-obj-tmp written
; compilation finished in 0:00:04.157
; compiling file "/«PKGBUILDDIR»/src/code/error.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN STYLE-WARN ...)
; x-compiling (DEFUN COERCE-TO-CONDITION ...)
; x-compiling (DEFINE-CONDITION LAYOUT-INVALID ...)
; x-compiling (DEFINE-CONDITION CASE-FAILURE ...)
; x-compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...)
; x-compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...)
; x-compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...)
; x-compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...)
; x-compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...)
; x-compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...)
; x-compiling (DEFINE-CONDITION SYSTEM-CONDITION ...)
; x-compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...)
; x-compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...)
; x-compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/error.lisp-obj-tmp written
; compilation finished in 0:00:00.636
; compiling file "/«PKGBUILDDIR»/src/code/macroexpand.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...)
; x-compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...)
; x-compiling (DEFUN SB-XC:MACROEXPAND-1 ...)
; x-compiling (DEFUN SB-XC:MACROEXPAND ...)
; x-compiling (DEFUN %MACROEXPAND-1 ...)
; x-compiling (DEFUN %MACROEXPAND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/macroexpand.lisp-obj-tmp written
; compilation finished in 0:00:00.235
; compiling file "/«PKGBUILDDIR»/src/code/late-extensions.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN LIST-WITH-LENGTH-P ...)
; x-compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...)
; x-compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...)
; x-compiling (DEFUN EXPAND-ATOMIC-FROB ...)
; x-compiling (DEF!MACRO ATOMIC-INCF ...)
; x-compiling (DEFMACRO ATOMIC-DECF ...)
; x-compiling (DEFUN SPIN-LOOP-HINT ...)
; x-compiling (DEFUN CALL-HOOKS ...)
; x-compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...)
; x-compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...)
; x-compiling (DEFUN %COMPILER-DEFGLOBAL ...)
; x-compiling (DEFUN %DEFGLOBAL ...)
; x-compiling (DEFUN %%WAIT-FOR ...)
; x-compiling (DEFUN %WAIT-FOR ...)
; x-compiling (DEFMACRO WAIT-FOR ...)
; x-compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...)
; x-compiling (DEFMACRO ATOMIC-UPDATE ...)
; x-compiling (DEFMACRO ATOMIC-PUSH ...)
; x-compiling (DEFMACRO ATOMIC-POP ...)
; x-compiling (DEFUN SPLIT-VERSION-STRING ...)
; x-compiling (DEFUN VERSION>= ...)
; x-compiling (DEFUN ASSERT-VERSION->= ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-extensions.lisp-obj-tmp written
; compilation finished in 0:00:02.295
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/target-core.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN ALLOCATE-CODE-OBJECT ...)
; x-compiling (DEFUN MAKE-FUN-ENTRY ...)
; x-compiling (DEFUN MAKE-CORE-COMPONENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/generic/target-core.lisp-obj-tmp written
; compilation finished in 0:00:00.448
; compiling file "/«PKGBUILDDIR»/src/code/eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFPARAMETER *EVAL-CALLS* ...)
; x-compiling (DEFVAR *EVAL-SOURCE-CONTEXT* ...)
; x-compiling (DEFVAR *EVAL-TLF-INDEX* ...)
; x-compiling (DEFVAR *EVAL-SOURCE-INFO* ...)
; x-compiling (DEFUN MAKE-EVAL-LAMBDA ...)
; x-compiling (DEFUN %SIMPLE-EVAL ...)
; x-compiling (DEFUN SIMPLE-EVAL-PROGN-BODY ...)
; x-compiling (DEFUN SIMPLE-EVAL-LOCALLY ...)
; x-compiling (DEFINE-CONDITION EVAL-ERROR ...)
; x-compiling (DEFUN EVAL-ERROR ...)
; x-compiling (DEFUN SIMPLE-EVAL-IN-LEXENV ...)
; x-compiling (DEFUN EVAL-IN-LEXENV ...)
; x-compiling (DEFUN EVAL ...)
; x-compiling (DEFUN EVAL-TLF ...)
; x-compiling (DEFUN APPLY ...)
; x-compiling (DEFUN FUNCALL ...)
; x-compiling (DEFUN VALUES ...)
; x-compiling (DEFUN VALUES-LIST ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/eval.lisp-obj-tmp written
; compilation finished in 0:00:01.048
; compiling file "/«PKGBUILDDIR»/src/code/target-sap.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFUN SAP< ...)
; x-compiling (DEFUN SAP<= ...)
; x-compiling (DEFUN SAP= ...)
; x-compiling (DEFUN SAP>= ...)
; x-compiling (DEFUN SAP> ...)
; x-compiling (DEFUN SAP+ ...)
; x-compiling (DEFUN SAP- ...)
; x-compiling (DEFUN SAP-INT ...)
; x-compiling (DEFUN INT-SAP ...)
; x-compiling (DEFUN SAP-REF-8 ...)
; x-compiling (DEFUN SAP-REF-OCTETS ...)
; x-compiling (DEFUN SAP-REF-16 ...)
; x-compiling (DEFUN SAP-REF-32 ...)
; x-compiling (DEFUN SAP-REF-64 ...)
; x-compiling (DEFUN SAP-REF-WORD ...)
; x-compiling (DEFUN SAP-REF-SAP ...)
; x-compiling (DEFUN SAP-REF-LISPOBJ ...)
; x-compiling (DEFUN SAP-REF-SINGLE ...)
; x-compiling (DEFUN SAP-REF-DOUBLE ...)
; x-compiling (DEFUN SIGNED-SAP-REF-8 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-16 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-32 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-64 ...)
; x-compiling (DEFUN SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFUN %SET-SAP-REF-8 ...)
; x-compiling (DEFUN %SET-SAP-REF-16 ...)
; x-compiling (DEFUN %SET-SAP-REF-32 ...)
; x-compiling (DEFUN %SET-SAP-REF-64 ...)
; x-compiling (DEFUN %SET-SAP-REF-WORD ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-8 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-16 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-32 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-64 ...)
; x-compiling (DEFUN %SET-SIGNED-SAP-REF-WORD ...)
; x-compiling (DEFUN %SET-SAP-REF-SAP ...)
; x-compiling (DEFUN %SET-SAP-REF-LISPOBJ ...)
; x-compiling (DEFUN %SET-SAP-REF-SINGLE ...)
; x-compiling (DEFUN %SET-SAP-REF-DOUBLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-sap.lisp-obj-tmp written
; compilation finished in 0:00:00.587
; compiling file "/«PKGBUILDDIR»/src/code/target-package.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *PACKAGE-GRAPH-LOCK*)
; x-compiling (DEFUN CALL-WITH-PACKAGE-GRAPH ...)
; x-compiling (DEFVAR *PACKAGE-NAMES*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFMACRO WITH-PACKAGE-NAMES ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (!DEFPARAMETER *PACKAGE-REHASH-THRESHOLD* ...)
; x-compiling (!DEFPARAMETER *PACKAGE-HASHTABLE-IMAGE-LOAD-FACTOR* ...)
; x-compiling (DEFUN MAKE-PACKAGE-HASHTABLE ...)
; x-compiling (DEFUN RESIZE-PACKAGE-HASHTABLE ...)
; x-compiling (DEFUN PACKAGE-LOCKED-P ...)
; x-compiling (DEFUN LOCK-PACKAGE ...)
; x-compiling (DEFUN UNLOCK-PACKAGE ...)
; x-compiling (DEFUN PACKAGE-IMPLEMENTED-BY-LIST ...)
; x-compiling (DEFUN PACKAGE-IMPLEMENTS-LIST ...)
; x-compiling (DEFUN ADD-IMPLEMENTATION-PACKAGE ...)
; x-compiling (DEFUN REMOVE-IMPLEMENTATION-PACKAGE ...)
; x-compiling (DEFMACRO WITH-UNLOCKED-PACKAGES ...)
; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION ...)
; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION-P ...)
; x-compiling (DEFUN DISABLED-PACKAGE-LOCKS ...)
; x-compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...)
; x-compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF PACKAGE-NICKNAMES ...)
; x-compiling (DEF PACKAGE-USE-LIST ...)
; x-compiling (DEF PACKAGE-USED-BY-LIST ...)
; x-compiling (DEF PACKAGE-SHADOWING-SYMBOLS ...)
; x-compiling (DEFUN PACKAGE-LOCAL-NICKNAMES ...)
; x-compiling (DEFUN SIGNAL-PACKAGE-ERROR ...)
; x-compiling (DEFUN SIGNAL-PACKAGE-CERROR ...)
; x-compiling (DEFUN PACKAGE-LOCALLY-NICKNAMED-BY-LIST ...)
; x-compiling (DEFUN ADD-PACKAGE-LOCAL-NICKNAME ...)
; x-compiling (DEFUN REMOVE-PACKAGE-LOCAL-NICKNAME ...)
; x-compiling (DEFUN %PACKAGE-HASHTABLE-SYMBOL-COUNT ...)
; x-compiling (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...)
; x-compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...)
; x-compiling (DEFVAR *PACKAGE* ...)
; x-compiling (DEFINE-CONDITION BOOTSTRAP-PACKAGE-NOT-FOUND ...)
; x-compiling (DEFUN DEBOOTSTRAP-PACKAGE ...)
; x-compiling (DEFUN FIND-PACKAGE ...)
; x-compiling (DEFUN FIND-PACKAGE-USING-PACKAGE ...)
; x-compiling (DEFUN PACKAGE-LISTIFY ...)
; x-compiling (DEFUN PACKAGE-NAME ...)
; x-compiling (DECLAIM (INLINE ENTRY-HASH))
; x-compiling (DEFUN ENTRY-HASH ...)
; x-compiling (DEFUN ADD-SYMBOL ...)
; x-compiling (DEFUN TUNE-HASHTABLE-SIZES-OF-ALL-PACKAGES ...)
; x-compiling (DEFMACRO WITH-SYMBOL ...)
; x-compiling (DEFUN NUKE-SYMBOL ...)
; x-compiling (DEFUN %ENTER-NEW-NICKNAMES ...)
; x-compiling (DEFUN MAKE-PACKAGE ...)
; x-compiling (DEFUN RENAME-PACKAGE ...)
; x-compiling (DEFUN DELETE-PACKAGE ...)
; x-compiling (DEFUN LIST-ALL-PACKAGES ...)
; x-compiling (DEFUN INTERN ...)
; x-compiling (DEFUN FIND-SYMBOL ...)

; file: /«PKGBUILDDIR»/src/code/target-package.lisp
; in: DEFUN INTERN*
;     (SUBSEQ SB!IMPL::NAME 0 LENGTH)
; --> LET* OR LET IF OR THE 
; ==>
;   LENGTH
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERN* ...)
; x-compiling (DEFUN FIND-SYMBOL* ...)
; x-compiling (DEFUN FIND-EXTERNAL-SYMBOL ...)
; x-compiling (DEFINE-CONDITION NAME-CONFLICT ...)
; x-compiling (DEFUN NAME-CONFLICT ...)
; x-compiling (DEFUN UNINTERN ...)
; x-compiling (DEFUN SYMBOL-LISTIFY ...)
; x-compiling (DEFUN STRING-LISTIFY ...)
; x-compiling (DEFUN EXPORT ...)
; x-compiling (DEFUN UNEXPORT ...)
; x-compiling (DEFUN IMPORT ...)
; x-compiling (DEFUN SHADOWING-IMPORT ...)
; x-compiling (DEFUN SHADOW ...)
; x-compiling (DEFUN USE-PACKAGE ...)
; x-compiling (DEFUN UNUSE-PACKAGE ...)
; x-compiling (DEFUN FIND-ALL-SYMBOLS ...)
; x-compiling (DEFUN BRIEFLY-DESCRIBE-SYMBOL ...)
; x-compiling (DEFUN APROPOS-LIST ...)
; x-compiling (DEFUN APROPOS ...)
; x-compiling (DEFVAR *!INITIAL-SYMBOLS*)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN !PACKAGE-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-package.lisp-obj-tmp written
; compilation finished in 0:00:10.246
; compiling file "/«PKGBUILDDIR»/src/code/target-random.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFCONSTANT MT19937-N ...)
; x-compiling (DEFCONSTANT MT19937-M ...)
; x-compiling (DEFCONSTANT MT19937-UPPER-MASK ...)
; x-compiling (DEFCONSTANT MT19937-LOWER-MASK ...)
; x-compiling (DEFCONSTANT MT19937-A ...)
; x-compiling (DEFCONSTANT MT19937-B ...)
; x-compiling (DEFCONSTANT MT19937-C ...)
; x-compiling (DEFTYPE RANDOM-STATE-STATE ...)
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN INIT-RANDOM-STATE ...)
; x-compiling (DEFVAR *RANDOM-STATE*)
; x-compiling (DEFUN !RANDOM-COLD-INIT ...)
; x-compiling (DEFUN MAKE-RANDOM-STATE ...)
; x-compiling (DEFUN FALLBACK-RANDOM-SEED ...)
; x-compiling (DEFUN OS-RANDOM-SEED ...)
; x-compiling (DEFUN SEED-RANDOM-STATE ...)

; file: /«PKGBUILDDIR»/src/code/target-random.lisp
; in: DECLAIM (INLINE RANDOM-CHUNK)
;     (DECLAIM (INLINE SB!KERNEL:RANDOM-CHUNK))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!KERNEL:RANDOM-CHUNK) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!KERNEL:RANDOM-CHUNK to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE RANDOM-CHUNK))
; x-compiling (DEFUN RANDOM-MT19937-UPDATE ...)
; x-compiling (DEFUN RANDOM-CHUNK ...)
; x-compiling (DECLAIM (INLINE BIG-RANDOM-CHUNK))
; x-compiling (DEFUN BIG-RANDOM-CHUNK ...)
; x-compiling (DECLAIM (INLINE %RANDOM-SINGLE-FLOAT ...))
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %RANDOM-SINGLE-FLOAT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %RANDOM-DOUBLE-FLOAT ...)
; x-compiling (DECLAIM (INLINE %RANDOM-FIXNUM))
; x-compiling (DEFUN %RANDOM-FIXNUM ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; x-compiling (DEFUN RANDOM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-random.lisp-obj-tmp written
; compilation finished in 0:00:03.570
; compiling file "/«PKGBUILDDIR»/src/code/bignum-random.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!BIGNUM")
; x-compiling (DECLAIM (INLINE BIGNUM-LOWER-BITS-ZERO-P))
; x-compiling (DEFUN BIGNUM-LOWER-BITS-ZERO-P ...)
; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-DIGIT))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN RANDOM-BIGNUM-DIGIT
;     (SB!KERNEL:BIG-RANDOM-CHUNK SB!BIGNUM::STATE)
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN RANDOM-BIGNUM-DIGIT ...)
; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-PARTIAL-DIGIT))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN RANDOM-BIGNUM-PARTIAL-DIGIT
;     (SB!KERNEL:BIG-RANDOM-CHUNK SB!BIGNUM::STATE)
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; x-compiling (DEFUN RANDOM-BIGNUM-PARTIAL-DIGIT ...)
; x-compiling (DECLAIM (INLINE CONCATENATE-RANDOM-BIGNUM))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN CONCATENATE-RANDOM-BIGNUM
;     (SB!BIGNUM::RANDOM-BIGNUM-PARTIAL-DIGIT SB!BIGNUM::N-RANDOM-BITS
;      SB!BIGNUM::STATE)
; --> BLOCK LOGAND IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code

;     (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE)
; --> BLOCK IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; x-compiling (DEFUN CONCATENATE-RANDOM-BIGNUM ...)
; x-compiling (DECLAIM (INLINE MAKE-RANDOM-BIGNUM))

; file: /«PKGBUILDDIR»/src/code/bignum-random.lisp
; in: DEFUN MAKE-RANDOM-BIGNUM
;     (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE)
; --> BLOCK IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code

;     (SB!BIGNUM::RANDOM-BIGNUM-PARTIAL-DIGIT SB!BIGNUM::N-BITS-PARTIAL-DIGIT
;      SB!BIGNUM::STATE)
; --> BLOCK LOGAND IF SB!KERNEL:BIG-RANDOM-CHUNK 
; ==>
;   SB!BIGNUM::STATE
; 
; note: deleting unreachable code
; x-compiling (DEFUN MAKE-RANDOM-BIGNUM ...)
; 
; compilation unit finished
;   printed 7 notes
; x-compiling (DEFUN %RANDOM-BIGNUM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/bignum-random.lisp-obj-tmp written
; compilation finished in 0:00:01.803
; compiling file "/«PKGBUILDDIR»/src/code/target-hash-table.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO WITH-CONCURRENT-ACCESS-CHECK ...)
; x-compiling (DECLAIM (INLINE EQ-HASH))
; x-compiling (DEFUN EQ-HASH ...)
; x-compiling (DECLAIM (INLINE EQUAL-HASH))
; x-compiling (DEFUN EQUAL-HASH ...)
; x-compiling (DECLAIM (INLINE EQL-HASH))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN EQL-HASH
;     (SB!IMPL::EQUAL-HASH SB!IMPL::KEY)
; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE 
; --> PROGN BLOCK VALUES ODDP LOGTEST IF LOGTEST SB!KERNEL:GET-LISP-OBJ-ADDRESS 
; ==>
;   SB!IMPL::KEY
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE 
; --> PROGN BLOCK VALUES SB!KERNEL:POINTER-HASH 
; ==>
;   SB!IMPL::KEY
; 
; note: deleting unreachable code
; x-compiling (DEFUN EQL-HASH ...)
; x-compiling (DEFUN EQUALP-HASH ...)
; x-compiling (DECLAIM (INLINE INDEX-FOR-HASHING))
; x-compiling (DEFUN INDEX-FOR-HASHING ...)
; x-compiling (DEFVAR *USER-HASH-TABLE-TESTS* ...)
; x-compiling (DEFUN REGISTER-HASH-TABLE-TEST ...)
; x-compiling (DEFMACRO DEFINE-HASH-TABLE-TEST ...)
; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-SIZE+ ...)
; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-REHASH-THRESHOLD+ ...)
; x-compiling (DEFUN MAKE-HASH-TABLE ...)
; x-compiling (DEFUN HASH-TABLE-COUNT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN HASH-TABLE-SIZE ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN SIGNAL-CORRUPT-HASH-TABLE ...)
; x-compiling (DEFUN REHASH ...)
; x-compiling (DEFUN REHASH-WITHOUT-GROWING ...)
; x-compiling (DECLAIM (INLINE MAYBE-REHASH))
; x-compiling (DEFUN MAYBE-REHASH ...)
; x-compiling (DECLAIM (INLINE UPDATE-HASH-TABLE-CACHE))
; x-compiling (DEFUN UPDATE-HASH-TABLE-CACHE ...)
; x-compiling (DEFMACRO WITH-HASH-TABLE-LOCKS ...)
; x-compiling (DEFUN GETHASH ...)
; x-compiling (DECLAIM (MAYBE-INLINE %GETHASH3))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %GETHASH3
;     (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL)
; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = 
; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF 
; --> THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (= SB!IMPL::HASHING (AREF SB!IMPL::HASH-VECTOR SB!IMPL::NEXT))
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN %GETHASH3 ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN GETHASH3
;     (SB!IMPL::%GETHASH3 SB!IMPL::KEY HASH-TABLE SB!IMPL::DEFAULT)
; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET 
; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET 
; --> BLOCK WHEN IF PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET 
; --> BLOCK AND IF AND THE ZEROP = IF = SB!IMPL::HASH-TABLE-NEXT-FREE-KV 
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET 
; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> THE PROGN BLOCK TAGBODY LET MACROLET LET IF MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION LET* IF DO BLOCK LET TAGBODY TAGBODY WHEN IF 
; --> AND IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; x-compiling (DEFUN GETHASH3 ...)
; x-compiling (DEFUN (SETF GETHASH) ...)
; x-compiling (DECLAIM (MAYBE-INLINE %%PUTHASH))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %%PUTHASH
;     (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
;             (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT))
; --> LET* FUNCALL SB!C::%FUNCALL (SETF SB!IMPL::HASH-TABLE-NEXT-FREE-KV) LET 
; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G733 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

;     (= SB!IMPL::HASHING (AREF SB!IMPL::HASH-VECTOR SB!IMPL::NEXT))
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (LET* ((SB!IMPL::INDEX-VECTOR (SB!IMPL::HASH-TABLE-INDEX-VECTOR HASH-TABLE))
;            (LENGTH (LENGTH SB!IMPL::INDEX-VECTOR))
;            (SB!INT:INDEX (SB!IMPL::INDEX-FOR-HASHING SB!IMPL::HASHING LENGTH))
;            (SB!IMPL::NEXT (AREF SB!IMPL::INDEX-VECTOR SB!INT:INDEX))
;            (SB!IMPL::KV-VECTOR (SB!IMPL::HASH-TABLE-TABLE HASH-TABLE))
;            (SB!IMPL::NEXT-VECTOR (SB!IMPL::HASH-TABLE-NEXT-VECTOR HASH-TABLE))
;            (SB!IMPL::HASH-VECTOR (SB!IMPL::HASH-TABLE-HASH-VECTOR HASH-TABLE))
;            (SB!IMPL::TEST-FUN (SB!IMPL::HASH-TABLE-TEST-FUN HASH-TABLE)))
;       (DECLARE (TYPE SB!INT:INDEX SB!INT:INDEX SB!IMPL::NEXT))
;       (WHEN (SB!EXT:HASH-TABLE-WEAKNESS HASH-TABLE)
;         (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR
;          SB!VM:VECTOR-VALID-HASHING-SUBTYPE))
;       (COND
;        ((OR SB!IMPL::EQ-BASED (NOT SB!IMPL::HASH-VECTOR))
;         (WHEN SB!IMPL::EQ-BASED
;           (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR
;            SB!VM:VECTOR-VALID-HASHING-SUBTYPE))
;         (DO (#
;              #)
;             (#)
;           (DECLARE #)
;           (WHEN # #)
;           (WHEN # # # #)))
;        (T
;         (DO (#
;              #)
;             (#)
;           (DECLARE #)
;           (WHEN # #)
;           (WHEN # # # #))))
;       (LET ((SB!IMPL::FREE-KV-SLOT (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)))
;         (DECLARE (TYPE SB!IMPL::INDEX/2 SB!IMPL::FREE-KV-SLOT))
;         (SB!INT:AVER (NOT (ZEROP SB!IMPL::FREE-KV-SLOT)))
;         (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
;                 (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT))
;         (INCF (SB!IMPL::HASH-TABLE-NUMBER-ENTRIES HASH-TABLE))
;         (SB!IMPL::UPDATE-HASH-TABLE-CACHE HASH-TABLE (* 2 SB!IMPL::FREE-KV-SLOT))
;         (SETF (AREF SB!IMPL::KV-VECTOR #) SB!IMPL::KEY)
;         (SETF (AREF SB!IMPL::KV-VECTOR #) SB!IMPL::VALUE)
;         (WHEN SB!IMPL::HASH-VECTOR
;           (IF (NOT SB!IMPL::EQ-BASED)
;               (SETF #)
;               (SB!INT:AVER #)))
;         (SETF (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT) SB!IMPL::NEXT)
;         (SETF (AREF SB!IMPL::INDEX-VECTOR SB!INT:INDEX) SB!IMPL::FREE-KV-SLOT)))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G718 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN %%PUTHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %PUTHASH
;     (SB!IMPL::PUT-IT NIL)
; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK 
; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* LET SETF LET* 
; --> FUNCALL SB!C::%FUNCALL (SETF SB!IMPL::HASH-TABLE-NEXT-FREE-KV) LET 
; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G845 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK 
; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* COND IF COND 
; --> THE PROGN DO BLOCK LET TAGBODY TAGBODY WHEN IF AND IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK 
; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G830 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (DEFUN %PUTHASH ...)
; x-compiling (DECLAIM (MAYBE-INLINE %REMHASH))

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN %REMHASH
;     (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL)
; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = 
; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF 
; --> THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK 
; --> SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code
; x-compiling (DEFUN %REMHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN REMHASH
;     (SB!IMPL::%REMHASH SB!IMPL::KEY HASH-TABLE)
; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN 
; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET BLOCK WHEN IF 
; --> PROGN SB!IMPL::REHASH 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = 
; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF 
; --> THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN 
; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING 
; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code
; x-compiling (DEFUN REMHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DEFUN CLRHASH
;     (SB!IMPL::WITH-HASH-TABLE-LOCKS (HASH-TABLE)
;      (LET* ((SB!IMPL::KV-VECTOR (SB!IMPL::HASH-TABLE-TABLE HASH-TABLE))
;             (SB!IMPL::NEXT-VECTOR (SB!IMPL::HASH-TABLE-NEXT-VECTOR HASH-TABLE))
;             (SB!IMPL::HASH-VECTOR (SB!IMPL::HASH-TABLE-HASH-VECTOR HASH-TABLE))
;             (SB!IMPL::SIZE (LENGTH SB!IMPL::NEXT-VECTOR))
;             (SB!IMPL::INDEX-VECTOR (SB!IMPL::HASH-TABLE-INDEX-VECTOR HASH-TABLE)))
;        (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR SB!VM:VECTOR-NORMAL-SUBTYPE)
;        (SB!INT:AVER (EQ (AREF SB!IMPL::KV-VECTOR 0) HASH-TABLE))
;        (FILL SB!IMPL::KV-VECTOR SB!INT:+EMPTY-HT-SLOT+ :START 2)
;        (DO ((SB!IMPL::I 1 #)) ((>= SB!IMPL::I #)) (SETF # #))
;        (SETF (AREF SB!IMPL::NEXT-VECTOR #) 0)
;        (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE) 1)
;        (FILL SB!IMPL::INDEX-VECTOR 0)
;        (WHEN SB!IMPL::HASH-VECTOR
;          (FILL SB!IMPL::HASH-VECTOR SB!IMPL::+MAGIC-HASH-VECTOR-VALUE+)))
;      (SETF (SB!IMPL::HASH-TABLE-CACHE HASH-TABLE) NIL)
;      (SETF (SB!IMPL::HASH-TABLE-NUMBER-ENTRIES HASH-TABLE) 0))
; --> FLET IF SB!SYS:WITH-PINNED-OBJECTS LET LIST* SB!VM::*PINNED-OBJECTS* 
; ==>
;   (SYMBOL-VALUE 'SB!VM::*PINNED-OBJECTS*)
; 
; note: could not stack allocate:
;        (WITH-HASH-TABLE-LOCKS (HASH-TABLE)
;         (LET* ((KV-VECTOR #)
;                (NEXT-VECTOR #)
;                (HASH-VECTOR #)
;                (SIZE #)
;                (INDEX-VECTOR #))
;           (SET-HEADER-DATA KV-VECTOR SB!VM:VECTOR-NORMAL-SUBTYPE)
;           (AVER (EQ # HASH-TABLE))
;           (FILL KV-VECTOR +EMPTY-HT-SLOT+ :START 2)
;           ...)
;         (SETF (HASH-TABLE-CACHE HASH-TABLE) NIL)
;         (SETF (HASH-TABLE-NUMBER-ENTRIES HASH-TABLE) 0))
; x-compiling (DEFUN CLRHASH ...)

; file: /«PKGBUILDDIR»/src/code/target-hash-table.lisp
; in: DECLAIM (INLINE MAPHASH)
;     (DECLAIM (INLINE MAPHASH))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE MAPHASH) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming COMMON-LISP:MAPHASH to be INLINE, but 28 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE MAPHASH))
; x-compiling (DEFUN MAPHASH ...)
; x-compiling (DEFUN %HASH-TABLE-CTOR-ARGS ...)
; x-compiling (DEFUN %STUFF-HASH-TABLE ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 23 notes
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-hash-table.lisp-obj-tmp written
; compilation finished in 0:00:07.004
; compiling file "/«PKGBUILDDIR»/src/code/reader.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (!DEFVAR *READ-DEFAULT-FLOAT-FORMAT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *READTABLE*)
; x-compiling (DECLAIM (TYPE READTABLE ...))
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...)
; x-compiling (DEFUN READER-EOF-ERROR ...)
; x-compiling (DEFUN SIMPLE-READER-ERROR ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-CAT-ENTRY ...)
; x-compiling (DEFUN SET-CAT-ENTRY ...)
; x-compiling (DEFUN SET-CMT-ENTRY ...)
; x-compiling (DEFUN GET-RAW-CMT-ENTRY ...)
; x-compiling (DEFUN GET-RAW-CMT-DISPATCH-ENTRY ...)
; x-compiling (DEFMACRO !COERCE-TO-CMT-ENTRY ...)
; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUNCTION ...)
; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUN-DESIGNATOR ...)
; x-compiling (DEFMACRO TEST-ATTRIBUTE ...)

; file: /«PKGBUILDDIR»/src/code/reader.lisp
; in: PROGN (DECLAIM (INLINE WHITESPACE[1]P WHITESPACE[2]P))
;     (DECLAIM (INLINE SB!IMPL::WHITESPACE[1]P SB!IMPL::WHITESPACE[2]P))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::WHITESPACE[1]P SB!IMPL::WHITESPACE[2]P)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::WHITESPACE[1]P to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE WHITESPACE[1]P ...))
; x-compiling (DECLAIM (INLINE CONSTITUENTP ...))
; x-compiling (DECLAIM (INLINE SINGLE-ESCAPE-P ...))
; x-compiling (DECLAIM (INLINE TOKEN-DELIMITERP))
; x-compiling (DEFUN WHITESPACE[1]P ...)
; x-compiling (DEFUN WHITESPACE[2]P ...)
; x-compiling (DEFUN CONSTITUENTP ...)
; x-compiling (DEFUN TERMINATING-MACROP ...)
; x-compiling (DEFUN SINGLE-ESCAPE-P ...)
; x-compiling (DEFUN MULTIPLE-ESCAPE-P ...)
; x-compiling (DEFUN TOKEN-DELIMITERP ...)
; x-compiling (DECLAIM (TYPE ATTRIBUTE-TABLE ...))
; x-compiling (DEFGLOBAL *CONSTITUENT-TRAIT-TABLE* ...)
; x-compiling (DEFUN !SET-CONSTITUENT-TRAIT ...)
; x-compiling (DEFUN !COLD-INIT-CONSTITUENT-TRAIT-TABLE ...)
; x-compiling (DECLAIM (INLINE GET-CONSTITUENT-TRAIT))
; x-compiling (DEFUN GET-CONSTITUENT-TRAIT ...)
; x-compiling (DEFUN ASSERT-NOT-STANDARD-READTABLE ...)
; x-compiling (DEFUN READTABLE-CASE ...)
; x-compiling (DEFUN (SETF READTABLE-CASE) ...)
; x-compiling (DEFUN READTABLE-NORMALIZATION ...)
; x-compiling (DEFUN (SETF READTABLE-NORMALIZATION) ...)
; x-compiling (DEFUN REPLACE/EQL-HASH-TABLE ...)
; x-compiling (DEFUN %MAKE-DISPATCH-MACRO-CHAR ...)
; x-compiling (DEFUN %DISPATCH-MACRO-CHAR-TABLE ...)
; x-compiling (DEFUN COPY-CMT-ENTRY ...)
; x-compiling (DEFUN COPY-READTABLE ...)
; x-compiling (DEFUN SET-SYNTAX-FROM-CHAR ...)
; x-compiling (DEFUN SET-MACRO-CHARACTER ...)
; x-compiling (DEFUN GET-MACRO-CHARACTER ...)
; x-compiling (DEFUN GET-DISPATCH-MACRO-CHAR-TABLE ...)
; x-compiling (DEFUN MAKE-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFUN SET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFUN GET-DISPATCH-MACRO-CHARACTER ...)
; x-compiling (DEFCONSTANT +EOF+ ...)
; x-compiling (DEFUN FLUSH-WHITESPACE ...)
; x-compiling (DEFUN !COLD-INIT-STANDARD-READTABLE ...)
; x-compiling (DEFSTRUCT (TOKEN-BUF # ...) ...)
; x-compiling (DECLAIM (FREEZE-TYPE TOKEN-BUF))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DECLAIM (TYPE TOKEN-BUF ...))
; x-compiling (DEFVAR *READ-BUFFER*)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *TOKEN-BUF-POOL* ...)
; x-compiling (DEFUN RESET-READ-BUFFER ...)
; x-compiling (DECLAIM (INLINE OUCH-READ-BUFFER))
; x-compiling (DEFUN OUCH-READ-BUFFER ...)
; x-compiling (DEFUN OUCH-READ-BUFFER-ESCAPED ...)
; x-compiling (DEFUN GROW-READ-BUFFER ...)
; x-compiling (DECLAIM (MAYBE-INLINE TOKEN-BUF-GETCHAR))
; x-compiling (DEFUN TOKEN-BUF-GETCHAR ...)
; x-compiling (DEFUN ACQUIRE-TOKEN-BUF ...)
; x-compiling (DEFUN RELEASE-TOKEN-BUF ...)
; x-compiling (DEFUN COPY-TOKEN-BUF-STRING ...)
; x-compiling (DEFUN SIZED-TOKEN-BUF-STRING ...)
; x-compiling (DEFMACRO WITH-READ-BUFFER ...)
; x-compiling (DEFUN CHECK-FOR-RECURSIVE-READ ...)
; x-compiling (DEFVAR *SHARP-EQUAL-ALIST* ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %READ-PRESERVING-WHITESPACE ...)
; x-compiling (DEFUN READ-PRESERVING-WHITESPACE ...)
; x-compiling (DEFUN READ-MAYBE-NOTHING ...)
; x-compiling (DEFUN READ ...)
; x-compiling (DEFUN READ-QUOTE ...)
; x-compiling (DEFUN READ-COMMENT ...)
; x-compiling (DEFUN READ-LIST ...)
; x-compiling (DEFUN READ-DELIMITED-LIST ...)
; x-compiling (DEFUN READ-AFTER-DOT ...)
; x-compiling (DEFUN READ-STRING ...)
; x-compiling (DEFUN READ-RIGHT-PAREN ...)
; x-compiling (DEFUN INTERNAL-READ-EXTENDED-TOKEN ...)
; x-compiling (DEFMACRO CHAR-CLASS ...)
; x-compiling (DEFMACRO CHAR-CLASS2 ...)
; x-compiling (DEFMACRO CHAR-CLASS3 ...)
; x-compiling (DEFVAR *READ-SUPPRESS* ...)
; x-compiling (DEFVAR *READ-BASE* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFUN NORMALIZE-READ-BUFFER ...)
; x-compiling (DEFUN CASIFY-READ-BUFFER ...)
; x-compiling (DEFVAR *READER-PACKAGE* ...)
; x-compiling (DECLAIM (TYPE # ...) ...)
; x-compiling (DEFUN READER-FIND-PACKAGE ...)
; x-compiling (DEFUN READ-TOKEN ...)
; x-compiling (DEFUN READ-EXTENDED-TOKEN ...)
; x-compiling (DEFUN READ-EXTENDED-TOKEN-ESCAPED ...)
; x-compiling (DEFMACRO !SETQ-OPTIONAL-LEADING-SIGN ...)
; x-compiling (DEFUN MAKE-INTEGER ...)
; x-compiling (DEFUN TRUNCATE-EXPONENT ...)
; x-compiling (DEFUN MAKE-FLOAT ...)
; x-compiling (DEFUN MAKE-FLOAT-AUX ...)
; x-compiling (DEFUN MAKE-RATIO ...)
; x-compiling (DEFUN DISPATCH-CHAR-ERROR ...)
; x-compiling (DEFUN READ-DISPATCH-CHAR ...)
; x-compiling (DEFUN MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN %READ-FROM-STRING ...)
; x-compiling (DEFUN READ-FROM-STRING ...)

; file: /«PKGBUILDDIR»/src/code/reader.lisp
; in: DEFINE-COMPILER-MACRO READ-FROM-STRING
;     (DEFINE-COMPILER-MACRO READ-FROM-STRING
;         (&WHOLE SB!KERNEL:FORM STRING &REST SB!IMPL::ARGS)
;       (DESTRUCTURING-BIND
;           (&OPTIONAL (SB!IMPL::EOF-ERROR-P T) SB!IMPL::EOF-VALUE
;            &REST SB!IMPL::KEYS)
;           SB!IMPL::ARGS
;         (COND
;          ((SB!IMPL::MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE
;            SB!IMPL::EOF-ERROR-P)
;           (SB!INT:QUASIQUOTE #))
;          (T
;           (LET* #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!C::%DEFINE-COMPILER-MACRO 'READ-FROM-STRING
;                                 #'(LAMBDA (#:WHOLE1884 #:ENVIRONMENT1885)
;                                     (DECLARE (IGNORE #:ENVIRONMENT1885))
;                                     (LET* ((#:CMACRO-&WHOLE128084 #:WHOLE1884)
;                                            (#:WHOLE1884 #))
;                                       (DECLARE
;                                        (IGNORABLE #:CMACRO-&WHOLE128084))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # #)
;                                         (BLOCK READ-FROM-STRING #))))
;                                 '(&WHOLE SB!KERNEL:FORM STRING &REST
;                                   SB!IMPL::ARGS)
;                                 NIL '(COMPILER-MACRO-FUNCTION READ-FROM-STRING))
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE
; 
; caught STYLE-WARNING:
;   2 calls to COMMON-LISP:READ-FROM-STRING were compiled before a compiler-macro
;   was defined for it. A declaration of NOTINLINE at the call sites will eliminate
;   this warning, as will defining the compiler-macro before its first potential
;   use.
; x-compiling (DEFINE-COMPILER-MACRO READ-FROM-STRING ...)
; x-compiling (DEFUN PARSE-INTEGER ...)
; x-compiling (DEFUN !READER-COLD-INIT ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN DISPATCH-TABLES ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; x-compiling (DEFUN (SETF DISPATCH-TABLES) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/reader.lisp-obj-tmp written
; compilation finished in 0:00:14.201
; compiling file "/«PKGBUILDDIR»/src/code/target-stream.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ...)
; x-compiling (DECLAIM (INLINE ANSI-STREAM-PEEK-CHAR))
; x-compiling (DEFUN ANSI-STREAM-PEEK-CHAR ...)

; file: /«PKGBUILDDIR»/src/code/target-stream.lisp
; in: DEFUN PEEK-CHAR
;     (SB!GRAY:STREAM-UNREAD-CHAR STREAM CHAR)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!GRAY:STREAM-PEEK-CHAR STREAM)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN PEEK-CHAR ...)
; 
; compilation unit finished
;   printed 3 notes
; x-compiling (DEFUN ECHO-MISC ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-stream.lisp-obj-tmp written
; compilation finished in 0:00:01.154
; compiling file "/«PKGBUILDDIR»/src/code/target-pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (FREEZE-TYPE LOGICAL-PATHNAME ...))
; x-compiling (DEFVAR *PHYSICAL-HOST*)
; x-compiling (DEFUN MAKE-HOST-LOAD-FORM ...)
; x-compiling (DEFUN MAKE-TRIVIAL-DEFAULT-PATHNAME ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; x-compiling (DEFUN %MAKE-MAYBE-LOGICAL-PATHNAME ...)
; x-compiling (DEFVAR *LOGICAL-HOSTS* ...)
; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN PATTERN= ...)
; x-compiling (DEFUN PATTERN-MATCHES ...)
; x-compiling (DEFUN DIRECTORY-COMPONENTS-MATCH ...)
; x-compiling (DEFUN COMPONENTS-MATCH ...)
; x-compiling (DEFUN COMPARE-COMPONENT ...)
; x-compiling (DEFUN PATHNAME= ...)
; x-compiling (DEFUN FIND-HOST ...)
; x-compiling (DEFUN PATHNAME ...)
; x-compiling (DEFUN NATIVE-PATHNAME ...)
; x-compiling (DEFUN MAYBE-DIDDLE-CASE ...)
; x-compiling (DEFUN MERGE-DIRECTORIES ...)
; x-compiling (DEFUN MERGE-PATHNAMES ...)
; x-compiling (DEFUN IMPORT-DIRECTORY ...)
; x-compiling (DEFUN MAKE-PATHNAME ...)
; x-compiling (DEFUN PATHNAME-HOST ...)
; x-compiling (DEFUN PATHNAME-DEVICE ...)
; x-compiling (DEFUN PATHNAME-DIRECTORY ...)
; x-compiling (DEFUN PATHNAME-NAME ...)
; x-compiling (DEFUN PATHNAME-TYPE ...)
; x-compiling (DEFUN PATHNAME-VERSION ...)
; x-compiling (DEFUN PARSEABLE-LOGICAL-NAMESTRING-P ...)
; x-compiling (DEFUN %PARSE-NAMESTRING ...)
; x-compiling (DEFUN EXTRACT-LOGICAL-HOST-PREFIX ...)
; x-compiling (DEFUN PARSE-NAMESTRING ...)
; x-compiling (DEFUN %PARSE-NATIVE-NAMESTRING ...)

; file: /«PKGBUILDDIR»/src/code/target-pathname.lisp
; in: DEFUN PARSE-NATIVE-NAMESTRING
;     (DEFUN SB!EXT:PARSE-NATIVE-NAMESTRING
;            (SB!IMPL::THING
;             &OPTIONAL SB!KERNEL:HOST
;             (SB!IMPL::DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)
;             &KEY (SB!IMPL::START 0) SB!IMPL::END SB!IMPL::JUNK-ALLOWED
;             SB!IMPL::AS-DIRECTORY)
;       "Convert THING into a pathname, using the native conventions
;   appropriate for the pathname host HOST, or if not specified the
;   host of DEFAULTS.  If THING is a string, the parse is bounded by
;   START and END, and error behaviour is controlled by JUNK-ALLOWED,
;   as with PARSE-NAMESTRING.  For file systems whose native
;   conventions allow directories to be indicated as files, if
;   AS-DIRECTORY is true, return a pathname denoting THING as a
;   directory."
;       (DECLARE
;        (TYPE SB!KERNEL:PATHNAME-DESIGNATOR SB!IMPL::THING SB!IMPL::DEFAULTS)
;        (TYPE (OR LIST SB!KERNEL:HOST STRING (MEMBER :UNSPECIFIC)) SB!KERNEL:HOST)
;        (TYPE SB!INT:INDEX SB!IMPL::START)
;        (TYPE (OR SB!INT:INDEX NULL) SB!IMPL::END)
;        (TYPE (OR T NULL) SB!IMPL::JUNK-ALLOWED)
;        (VALUES (OR NULL PATHNAME) (OR NULL SB!INT:INDEX)))
;       (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST)
;        (LET ((SB!IMPL::DEFAULTS #))
;          (DECLARE (TYPE PATHNAME SB!IMPL::DEFAULTS))
;          (ETYPECASE SB!IMPL::THING
;            (SIMPLE-STRING #)
;            (STRING #)
;            (PATHNAME # #)
;            (STREAM #)))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 536870909)) &REST T)
;        (PROGN
;         (BLOCK SB!EXT:PARSE-NATIVE-NAMESTRING
;           (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST)
;            (LET #
;              #
;              #)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 536870909)) &REST ...).
; x-compiling (DEFUN PARSE-NATIVE-NAMESTRING ...)
; x-compiling (DEFUN NAMESTRING ...)
; x-compiling (DEFUN NATIVE-NAMESTRING ...)
; x-compiling (DEFUN HOST-NAMESTRING ...)
; x-compiling (DEFUN DIRECTORY-NAMESTRING ...)
; x-compiling (DEFUN FILE-NAMESTRING ...)
; x-compiling (DEFUN ENOUGH-NAMESTRING ...)
; x-compiling (DEFUN WILD-PATHNAME-P ...)
; x-compiling (DEFUN PATHNAME-MATCH-P ...)
; x-compiling (DEFUN SUBSTITUTE-INTO ...)
; x-compiling (DEFUN DIDNT-MATCH-ERROR ...)
; x-compiling (DEFUN TRANSLATE-COMPONENT ...)
; x-compiling (DEFUN COMPUTE-DIRECTORY-SUBSTITUTIONS ...)
; x-compiling (DEFUN TRANSLATE-DIRECTORIES ...)
; x-compiling (DEFUN TRANSLATE-PATHNAME ...)
; x-compiling (DEFUN SIMPLIFY-NAMESTRING ...)
; x-compiling (DEFUN LOGICAL-WORD-OR-LOSE ...)
; x-compiling (DEFUN FIND-LOGICAL-HOST ...)

; file: /«PKGBUILDDIR»/src/code/target-pathname.lisp
; in: DEFUN INTERN-LOGICAL-HOST
;     (DEFUN SB!IMPL::INTERN-LOGICAL-HOST (SB!IMPL::THING)
;       (DECLARE (VALUES SB!KERNEL:LOGICAL-HOST))
;       (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*)
;         (OR (SB!IMPL::FIND-LOGICAL-HOST SB!IMPL::THING NIL)
;             (LET* (# #)
;               (SETF #)
;               SB!IMPL::NEW))))
; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE (VALUES SB!KERNEL:LOGICAL-HOST &REST T)
;        (PROGN
;         (BLOCK SB!IMPL::INTERN-LOGICAL-HOST
;           (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*)
;             (OR # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LOGICAL-HOST &REST T).
; x-compiling (DEFUN INTERN-LOGICAL-HOST ...)
; x-compiling (DEFUN MAYBE-MAKE-LOGICAL-PATTERN ...)
; x-compiling (DEFUN LOGICAL-CHUNKIFY ...)
; x-compiling (DEFUN PARSE-LOGICAL-NAMESTRING ...)
; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS*)
; x-compiling (DEFUN LOGICAL-NAMESTRING-P ...)
; x-compiling (DEFTYPE LOGICAL-NAMESTRING ...)
; x-compiling (DEFUN LOGICAL-PATHNAME ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-DIRECTORY ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-PIECE ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-FILE ...)
; x-compiling (DEFUN UNPARSE-ENOUGH-NAMESTRING ...)
; x-compiling (DEFUN UNPARSE-LOGICAL-NAMESTRING ...)
; x-compiling (DEFUN CANONICALIZE-LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFUN LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFUN (SETF LOGICAL-PATHNAME-TRANSLATIONS) ...)
; x-compiling (DEFUN TRANSLATE-LOGICAL-PATHNAME ...)
; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS* ...)
; x-compiling (DEFUN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...)
; x-compiling (DEFUN !PATHNAME-COLD-INIT ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFUN SET-SBCL-SOURCE-LOCATION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-pathname.lisp-obj-tmp written
; compilation finished in 0:00:16.579
; compiling file "/«PKGBUILDDIR»/src/code/unix-pathname.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!STRUCT (UNIX-HOST # ...))
; x-compiling (DEFVAR *PHYSICAL-HOST* ...)
; x-compiling (DEFUN SPLIT-AT-SLASHES ...)
; x-compiling (DEFUN PARSE-UNIX-NAMESTRING ...)
; x-compiling (DEFUN PARSE-NATIVE-UNIX-NAMESTRING ...)
; x-compiling (/SHOW0 "filesys.lisp 300")
; x-compiling (DEFUN UNPARSE-UNIX-HOST ...)
; x-compiling (DEFUN UNPARSE-UNIX-DIRECTORY ...)
; x-compiling (DEFUN UNPARSE-UNIX-FILE ...)
; x-compiling (/SHOW0 "filesys.lisp 406")
; x-compiling (DEFUN UNPARSE-UNIX-NAMESTRING ...)
; x-compiling (DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ...)
; x-compiling (DEFUN UNPARSE-UNIX-ENOUGH ...)
; x-compiling (DEFUN SIMPLIFY-UNIX-NAMESTRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/unix-pathname.lisp-obj-tmp written
; compilation finished in 0:00:06.247
; compiling file "/«PKGBUILDDIR»/src/code/filesys.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN REMOVE-ESCAPE-CHARACTERS ...)
; x-compiling (DEFUN MAYBE-MAKE-PATTERN ...)
; x-compiling (DEFUN UNPARSE-PHYSICAL-PIECE ...)
; x-compiling (DEFUN MAKE-MATCHER ...)
; x-compiling (/SHOW0 "filesys.lisp 160")
; x-compiling (DEFUN EXTRACT-NAME-TYPE-AND-VERSION ...)
; x-compiling (/SHOW0 "filesys.lisp 200")
; x-compiling (DEFUN NATIVE-FILE-KIND ...)
; x-compiling (DEFUN QUERY-FILE-SYSTEM ...)
; x-compiling (DEFUN PROBE-FILE ...)
; x-compiling (DEFUN TRUENAME ...)
; x-compiling (DEFUN FILE-AUTHOR ...)
; x-compiling (DEFUN FILE-WRITE-DATE ...)
; x-compiling (/SHOW0 "filesys.lisp 700")
; x-compiling (DEFUN RENAME-FILE ...)
; x-compiling (DEFUN DELETE-FILE ...)
; x-compiling (DEFUN DIRECTORIZE-PATHNAME ...)
; x-compiling (DEFUN DELETE-DIRECTORY ...)
; x-compiling (DEFUN SBCL-HOMEDIR-PATHNAME ...)
; x-compiling (DEFUN USER-HOMEDIR-NAMESTRING ...)
; x-compiling (DEFUN USER-HOMEDIR-PATHNAME ...)
; x-compiling (DEFUN DIRECTORY ...)
; x-compiling (DEFUN CANONICALIZE-PATHNAME ...)
; x-compiling (DEFMACRO WITH-NATIVE-DIRECTORY-ITERATOR ...)
; x-compiling (DEFUN CALL-WITH-NATIVE-DIRECTORY-ITERATOR ...)
; x-compiling (DEFUN MAP-DIRECTORY ...)
; x-compiling (DEFUN MAP-MATCHING-DIRECTORIES ...)
; x-compiling (DEFUN LAST-DIRECTORY-PIECE ...)
; x-compiling (DEFUN MAP-WILD ...)
; x-compiling (DEFUN MAP-WILD-INFERIORS ...)
; x-compiling (DEFUN MAP-MATCHING-ENTRIES ...)

; file: /«PKGBUILDDIR»/src/code/filesys.lisp
; in: DEFUN PATHNAME-INTERSECTIONS
;     (COND ((EQ SB!IMPL::ONE :WILD) SB!IMPL::TWO)
;           ((EQ SB!IMPL::TWO :WILD) SB!IMPL::ONE)
;           ((OR (NULL SB!IMPL::ONE) (EQ SB!IMPL::ONE :UNSPECIFIC)) SB!IMPL::TWO)
;           ((OR (NULL SB!IMPL::TWO) (EQ SB!IMPL::TWO :UNSPECIFIC)) SB!IMPL::ONE)
;           (T (SB!INT:AVER (EQ (CAR SB!IMPL::ONE) (CAR SB!IMPL::TWO)))
;            (MAPCAR (LAMBDA (SB!IMPL::X) (CONS # SB!IMPL::X))
;                    (SB!IMPL::INTERSECT-DIRECTORY-HELPER (CDR SB!IMPL::ONE)
;                     (CDR SB!IMPL::TWO)))))
; --> IF PROGN 
; ==>
;   SB!IMPL::TWO
; 
; note: deleting unreachable code

; --> IF COND IF PROGN 
; ==>
;   SB!IMPL::ONE
; 
; note: deleting unreachable code
; x-compiling (DEFUN PATHNAME-INTERSECTIONS ...)
; x-compiling (DEFUN INTERSECT-DIRECTORY-HELPER ...)
; x-compiling (DEFUN DIRECTORY-PATHNAME-P ...)
; x-compiling (DEFUN ENSURE-DIRECTORIES-EXIST ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (/SHOW0 "filesys.lisp 1000")

; /«PKGBUILDDIR»/obj/from-xc/src/code/filesys.lisp-obj-tmp written
; compilation finished in 0:00:07.430
; compiling file "/«PKGBUILDDIR»/src/code/save.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-ALIEN-ROUTINE "save" ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "gc_and_save" ...)
; x-compiling (DEFVAR SB!VM::*RESTART-LISP-FUNCTION*)
; x-compiling (DEFINE-CONDITION SAVE-CONDITION ...)
; x-compiling (DEFINE-CONDITION SAVE-ERROR ...)
; x-compiling (DEFINE-CONDITION SAVE-WITH-MULTIPLE-THREADS-ERROR ...)
; x-compiling (DEFUN SAVE-LISP-AND-DIE ...)
; x-compiling (DEFUN DEINIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/save.lisp-obj-tmp written
; compilation finished in 0:00:01.784
; compiling file "/«PKGBUILDDIR»/src/code/sharpm.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (SPECIAL *READ-SUPPRESS*))
; x-compiling (DEFUN IGNORE-NUMARG ...)
; x-compiling (DEFUN SHARP-LEFT-PAREN ...)
; x-compiling (DEFUN SHARP-STAR ...)
; x-compiling (DEFUN SHARP-A ...)
; x-compiling (DEFUN SHARP-S ...)
; x-compiling (DEFUN SHARP-B ...)
; x-compiling (DEFUN SHARP-C ...)
; x-compiling (DEFUN SHARP-O ...)
; x-compiling (DEFUN SHARP-R ...)
; x-compiling (DEFUN SHARP-X ...)
; x-compiling (DEFVAR *SHARP-EQUAL-CIRCLE-TABLE*)
; x-compiling (DECLAIM (TYPE HASH-TABLE ...))
; x-compiling (DEFUN CIRCLE-SUBST ...)
; x-compiling (DEFVAR *SHARP-SHARP-ALIST* ...)
; x-compiling (DEFUN SHARP-EQUAL ...)
; x-compiling (DEFUN SHARP-SHARP ...)
; x-compiling (DEFUN SHARP-PLUS-MINUS ...)
; x-compiling (DEFUN SHARP-P ...)
; x-compiling (DEFUN SHARP-BACKSLASH ...)
; x-compiling (DEFUN SHARP-VERTICAL-BAR ...)
; x-compiling (DEFUN SHARP-QUOTE ...)
; x-compiling (DEFUN SHARP-COLON ...)
; x-compiling (DEFVAR *READ-EVAL* ...)
; x-compiling (DEFUN SHARP-DOT ...)
; x-compiling (DEFUN SHARP-ILLEGAL ...)
; x-compiling (DEFUN !SHARPM-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sharpm.lisp-obj-tmp written
; compilation finished in 0:00:02.102
; compiling file "/«PKGBUILDDIR»/src/code/alloc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DECLAIM (INLINE STORE-WORD))
; x-compiling (DEFUN STORE-WORD ...)
; x-compiling (DEFUN ALLOCATE-STATIC-VECTOR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00.267
; compiling file "/«PKGBUILDDIR»/src/code/early-step.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFVAR *STEPPING* ...)
; x-compiling (DEFVAR *STEP-OUT* ...)
; x-compiling (DEFUN (SETF STEPPING) ...)
; x-compiling (DEFUN STEPPING-ENABLED-P ...)
; x-compiling (DEFUN ENABLE-STEPPING ...)
; x-compiling (DEFUN DISABLE-STEPPING ...)
; x-compiling (DEFMACRO WITH-STEPPING-ENABLED ...)
; x-compiling (DEFMACRO WITH-STEPPING-DISABLED ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/early-step.lisp-obj-tmp written
; compilation finished in 0:00:00.182
; compiling file "/«PKGBUILDDIR»/src/code/target-thread.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!THREAD")
; x-compiling (DEFMACRO WITH-CAS-LOCK ...)
; x-compiling (DEFMACRO %WITH-CAS-LOCK ...)
; x-compiling (DEFINE-CONDITION THREAD-ERROR ...)
; x-compiling (DEFINE-CONDITION SIMPLE-THREAD-ERROR ...)
; x-compiling (DEFINE-CONDITION THREAD-DEADLOCK ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFINE-CONDITION SYMBOL-VALUE-IN-THREAD-ERROR ...)
; x-compiling (DEFINE-CONDITION JOIN-THREAD-ERROR ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...)
; x-compiling (DEFINE-CONDITION INTERRUPT-THREAD-ERROR ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN PRINT-LOCK ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN THREAD-ALIVE-P ...)
; x-compiling (DEFUN THREAD-EPHEMERAL-P ...)
; x-compiling (DEFVAR *ALL-THREADS* ...)
; x-compiling (DEFVAR *ALL-THREADS-LOCK* ...)
; x-compiling (DEFVAR *DEFAULT-ALLOC-SIGNAL* ...)
; x-compiling (DEFMACRO WITH-ALL-THREADS-LOCK ...)
; x-compiling (DEFUN LIST-ALL-THREADS ...)
; x-compiling (DECLAIM (INLINE CURRENT-THREAD-SAP))
; x-compiling (DEFUN CURRENT-THREAD-SAP ...)
; x-compiling (DECLAIM (INLINE CURRENT-THREAD-OS-THREAD))
; x-compiling (DEFUN CURRENT-THREAD-OS-THREAD ...)
; x-compiling (DEFVAR *INITIAL-THREAD* ...)
; x-compiling (DEFVAR *MAKE-THREAD-LOCK*)
; x-compiling (DEFUN INIT-INITIAL-THREAD ...)
; x-compiling (DEFUN MAIN-THREAD ...)
; x-compiling (DEFUN MAIN-THREAD-P ...)
; x-compiling (DEFMACRO RETURN-FROM-THREAD ...)
; x-compiling (DEFUN %RETURN-FROM-THREAD ...)
; x-compiling (DEFUN ABORT-THREAD ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "kill_safely" ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "wake_thread" ...)

; file: /«PKGBUILDDIR»/src/code/target-thread.lisp
; in: DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)
;     (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!VM::CURRENT-THREAD-OFFSET-SAP to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.
; x-compiling (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP))
; x-compiling (DEFUN SB!VM::CURRENT-THREAD-OFFSET-SAP ...)
; x-compiling (DEFMACRO WITH-DEADLOCKS ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN MUTEX-OWNER ...)
; x-compiling (SB!EXT:DEFGLOBAL **DEADLOCK-LOCK** ...)
; x-compiling (DEFUN CHECK-DEADLOCK ...)
; x-compiling (DEFUN %TRY-MUTEX ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DEFUN GRAB-MUTEX ...)
; x-compiling (DEFUN RELEASE-MUTEX ...)
; x-compiling (DECLAIM (INLINE MAKE-WAITQUEUE))

; file: /«PKGBUILDDIR»/src/code/target-thread.lisp
; in: DEFSTRUCT WAITQUEUE
;     (DEFSTRUCT
;         (SB!THREAD:WAITQUEUE
;          (:CONSTRUCTOR SB!THREAD:MAKE-WAITQUEUE (&KEY SB!THREAD::NAME)))
;       "Waitqueue type."
;       (SB!THREAD::NAME NIL :TYPE (OR NULL SB!THREAD:THREAD-NAME)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!THREAD:WAITQUEUE {536715F1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53ECF4A1}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53B61A39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!THREAD::WAITQUEUE-P could not be inlined because
;   the structure definition for SB!THREAD:WAITQUEUE was not yet seen. To avoid
;   this warning, DEFSTRUCT should precede references to the affected functions, or
;   they must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (WAITQUEUE #) ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-WAITQUEUE))
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN CONDITION-WAIT ...)
; x-compiling (DEFUN CONDITION-NOTIFY ...)
; x-compiling (DEFUN CONDITION-BROADCAST ...)
; x-compiling (DECLAIM (INLINE MAKE-SEMAPHORE))
; x-compiling (DEFSTRUCT (SEMAPHORE #) ...)
; x-compiling (DECLAIM (NOTINLINE MAKE-SEMAPHORE))
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFSTRUCT (SEMAPHORE-NOTIFICATION # ...) ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DECLAIM (INLINE SEMAPHORE-NOTIFICATION-STATUS))
; x-compiling (DEFUN SEMAPHORE-NOTIFICATION-STATUS ...)
; x-compiling (DECLAIM (INLINE CLEAR-SEMAPHORE-NOTIFICATION))
; x-compiling (DEFUN CLEAR-SEMAPHORE-NOTIFICATION ...)
; x-compiling (DECLAIM (INLINE SEMAPHORE-COUNT))
; x-compiling (DEFUN SEMAPHORE-COUNT ...)
; x-compiling (DEFUN WAIT-ON-SEMAPHORE ...)
; x-compiling (DEFUN TRY-SEMAPHORE ...)
; x-compiling (DEFUN SIGNAL-SEMAPHORE ...)
; x-compiling (DEFSTRUCT SESSION ...)
; x-compiling (DEFVAR *SESSION* ...)
; x-compiling (DEFMACRO WITH-SESSION-LOCK ...)
; x-compiling (DEFUN NEW-SESSION ...)
; x-compiling (DEFUN INIT-JOB-CONTROL ...)
; x-compiling (DEFUN %DELETE-THREAD-FROM-SESSION ...)
; x-compiling (DEFUN CALL-WITH-NEW-SESSION ...)
; x-compiling (DEFMACRO WITH-NEW-SESSION ...)
; x-compiling (DEFUN %EXIT-OTHER-THREADS ...)
; x-compiling (DEFUN TERMINATE-SESSION ...)
; x-compiling (DEFUN DEBUGGER-WAIT-UNTIL-FOREGROUND-THREAD ...)
; x-compiling (DEFUN GET-FOREGROUND ...)
; x-compiling (DEFUN RELEASE-FOREGROUND ...)
; x-compiling (DEFUN INTERACTIVE-THREADS ...)
; x-compiling (DEFUN FOREGROUND-THREAD ...)
; x-compiling (DEFUN MAKE-LISTENER-THREAD ...)
; x-compiling (DEFUN MAKE-THREAD ...)
; x-compiling (DEFUN JOIN-THREAD ...)
; x-compiling (DEFUN DESTROY-THREAD ...)
; x-compiling (DEFMACRO WITH-INTERRUPTIONS-LOCK ...)
; x-compiling (DEFUN RUN-INTERRUPTION ...)

; file: /«PKGBUILDDIR»/src/code/target-thread.lisp
; in: DEFUN INTERRUPT-THREAD
;     'SB!THREAD:INTERRUPT-THREAD-ERROR
; 
; note: deleting unreachable code
; x-compiling (DEFUN INTERRUPT-THREAD ...)
; x-compiling (DEFUN TERMINATE-THREAD ...)
; x-compiling (DEFINE-ALIEN-ROUTINE "thread_yield" ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFUN SYMBOL-VALUE-IN-THREAD ...)
; x-compiling (DEFUN (SETF SYMBOL-VALUE-IN-THREAD) ...)
; x-compiling (DEFUN THREAD-STEPPING ...)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 1 note
; x-compiling (DEFUN (SETF THREAD-STEPPING) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-thread.lisp-obj-tmp written
; compilation finished in 0:00:08.397
; compiling file "/«PKGBUILDDIR»/src/code/interr.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFVAR *INTERNAL-ERRORS* ...)
; x-compiling (STRING (QUOTE UNKNOWN-ERROR))
; x-compiling (DEFERR UNDEFINED-FUN-ERROR ...)
; x-compiling (DEFERR UNDEFINED-ALIEN-FUN-ERROR ...)
; x-compiling (DEFERR INVALID-ARG-COUNT-ERROR ...)
; x-compiling (DEFERR BOGUS-ARG-TO-VALUES-LIST-ERROR ...)
; x-compiling (DEFERR UNBOUND-SYMBOL-ERROR ...)
; x-compiling (DEFERR INVALID-UNWIND-ERROR ...)
; x-compiling (DEFERR UNSEEN-THROW-TAG-ERROR ...)
; x-compiling (DEFERR NIL-FUN-RETURNED-ERROR ...)
; x-compiling (DEFERR NIL-ARRAY-ACCESSED-ERROR ...)
; x-compiling (DEFERR DIVISION-BY-ZERO-ERROR ...)
; x-compiling (DEFERR OBJECT-NOT-TYPE-ERROR ...)
; x-compiling (DEFERR LAYOUT-INVALID-ERROR ...)
; x-compiling (DEFERR ODD-KEY-ARGS-ERROR ...)
; x-compiling (DEFERR UNKNOWN-KEY-ARG-ERROR ...)
; x-compiling (DEFERR INVALID-ARRAY-INDEX-ERROR ...)
; x-compiling (DEFERR TLS-EXHAUSTED-ERROR ...)
; x-compiling (DEFVAR *FINDING-NAME* ...)
; x-compiling (DEFUN FIND-CALLER-NAME-AND-FRAME ...)
; x-compiling (DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ...)
; x-compiling (DEFUN FIND-CALLER-OF-NAMED-FRAME ...)
; x-compiling (DEFUN INTERNAL-ERROR-ARGS-OK ...)
; x-compiling (DEFVAR *CURRENT-INTERNAL-ERROR* ...)
; x-compiling (DEFVAR *INTERR-CURRENT-BSP* ...)

; file: /«PKGBUILDDIR»/src/code/interr.lisp
; in: DEFUN INTERNAL-ERROR
;     (SB!ALIEN:SAP-ALIEN SB!KERNEL::CONTEXT (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!KERNEL::CONTEXT
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN INTERNAL-ERROR ...)
; x-compiling (DEFUN CONTROL-STACK-EXHAUSTED-ERROR ...)
; x-compiling (DEFUN BINDING-STACK-EXHAUSTED-ERROR ...)
; x-compiling (DEFUN ALIEN-STACK-EXHAUSTED-ERROR ...)
; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-CONDITION*)
; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-AVAILABLE-BYTES*)
; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-REQUESTED-BYTES*)
; x-compiling (DEFUN HEAP-EXHAUSTED-ERROR ...)
; x-compiling (DEFUN UNDEFINED-ALIEN-VARIABLE-ERROR ...)
; x-compiling (DEFINE-ALIEN-VARIABLE CURRENT-MEMORY-FAULT-ADDRESS ...)
; x-compiling (DEFUN MEMORY-FAULT-ERROR ...)

; file: /«PKGBUILDDIR»/src/code/interr.lisp
; in: DEFUN UNHANDLED-TRAP-ERROR
;     (SB!ALIEN:SAP-ALIEN SB!KERNEL::CONTEXT-SAP (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!KERNEL::CONTEXT-SAP
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; in: DEFUN FIND-CALLER-OF-NAMED-FRAME
;     (HANDLER-CASE
;      (LET ((SB!KERNEL::*FINDING-NAME* T))
;        (DO ((SB!KERNEL::FRAME # #))
;            ((NULL SB!KERNEL::FRAME))
;          (WHEN (AND # #)
;            (LET #
;              #
;              #))))
;      ((OR ERROR SB!DI:DEBUG-CONDITION) NIL NIL) (SB!DI:DEBUG-CONDITION NIL NIL))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION '(OR ERROR SB!DI:DEBUG-CONDITION))
; 
; caught STYLE-WARNING:
;   undefined type: SB!DI:DEBUG-CONDITION

; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME
;     (HANDLER-CASE
;      (LET ((SB!KERNEL::*FINDING-NAME* T))
;        (SB!INT:/SHOW0 "in ordinary case")
;        (DO ((SB!KERNEL::FRAME # #))
;            ((NULL SB!KERNEL::FRAME)
;             (SB!INT:/SHOW0 "null frame")
;             (VALUES "<error finding interrupted name -- null frame>" NIL))
;          (SB!INT:/NOSHOW0 "at head of DO loop")
;          (WHEN (AND # #)
;            (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME)
;            (SB!INT:/SHOW0 "returning from within DO loop")
;            (RETURN #))))
;      (ERROR NIL (SB!INT:/SHOW0 "trapped ERROR")
;             (VALUES "<error finding interrupted name -- trapped error>" NIL))
;      (SB!DI:DEBUG-CONDITION NIL (SB!INT:/SHOW0 "trapped DEBUG-CONDITION")
;       (VALUES "<error finding interrupted name -- trapped debug-condition>" NIL)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!DI:DEBUG-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SB!DI:DEBUG-CONDITION

; in: DEFUN FIND-CALLER-NAME-AND-FRAME
;     (HANDLER-CASE
;      (LET* ((SB!KERNEL::*FINDING-NAME* T)
;             (SB!KERNEL::FRAME (SB!DI:FRAME-DOWN #))
;             (SB!KERNEL::NAME (SB!DI:DEBUG-FUN-NAME #)))
;        (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME)
;        (VALUES SB!KERNEL::NAME SB!KERNEL::FRAME))
;      (ERROR NIL (VALUES "<error finding caller name -- trapped error>" NIL))
;      (SB!DI:DEBUG-CONDITION NIL
;       (VALUES "<error finding caller name -- trapped debug-condition>" NIL)))
; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY 
; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'SB!DI:DEBUG-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined type: SB!DI:DEBUG-CONDITION
; 
; compilation unit finished
;   Undefined type:
;     SB!DI:DEBUG-CONDITION
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (DEFUN UNHANDLED-TRAP-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/interr.lisp-obj-tmp written
; compilation finished in 0:00:01.466
; compiling file "/«PKGBUILDDIR»/src/code/gc.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")

; file: /«PKGBUILDDIR»/src/code/gc.lisp
; in: DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START)
;     (DECLAIM (INLINE SB!KERNEL:CURRENT-DYNAMIC-SPACE-START))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!KERNEL:CURRENT-DYNAMIC-SPACE-START)
;                    (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!KERNEL:CURRENT-DYNAMIC-SPACE-START to be INLINE, but 1 call to
;   it was previously compiled. A declaration of NOTINLINE at the call site will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START))
; x-compiling (DEFUN CURRENT-DYNAMIC-SPACE-START ...)
; x-compiling (DECLAIM (INLINE DYNAMIC-USAGE))
; x-compiling (DEFUN DYNAMIC-USAGE ...)
; x-compiling (DEFUN STATIC-SPACE-USAGE ...)
; x-compiling (DEFUN READ-ONLY-SPACE-USAGE ...)
; x-compiling (DEFUN CONTROL-STACK-USAGE ...)
; x-compiling (DEFUN BINDING-STACK-USAGE ...)
; x-compiling (DEFUN ROOM-MINIMAL-INFO ...)
; x-compiling (DEFUN ROOM-INTERMEDIATE-INFO ...)
; x-compiling (DEFUN ROOM-MAXIMAL-INFO ...)
; x-compiling (DEFUN ROOM ...)
; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; x-compiling (DEFVAR *N-BYTES-FREED-OR-PURIFIED* ...)
; x-compiling (DEFUN GC-REINIT ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN GET-BYTES-CONSED ...)
; x-compiling (!DEFVAR *AFTER-GC-HOOKS* ...)
; x-compiling (DEFINE-ALIEN-ROUTINE COLLECT-GARBAGE ...)
; x-compiling (DEFUN GC-STOP-THE-WORLD ...)
; x-compiling (DEFUN GC-START-THE-WORLD ...)
; x-compiling (DEFINE-ALIEN-VARIABLE ("gc_logfile" %GC-LOGFILE) ...)

; file: /«PKGBUILDDIR»/src/code/gc.lisp
; in: DEFUN (SETF GC-LOGFILE)
;     (SB!ALIEN:MAKE-ALIEN-STRING
;      (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T))
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION VALUES 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; x-compiling (DEFUN (SETF GC-LOGFILE) ...)
; x-compiling (DEFUN GC-LOGFILE ...)
; x-compiling (DECLAIM (INLINE DYNAMIC-SPACE-SIZE))
; x-compiling (DEFUN DYNAMIC-SPACE-SIZE ...)
; x-compiling (DEFVAR *ALREADY-IN-GC* ...)
; x-compiling (DECLAIM (TYPE CONS ...))
; x-compiling (!DEFVAR *GC-EPOCH* ...)
; x-compiling (DEFUN SUB-GC ...)
; x-compiling (DEFUN POST-GC ...)
; x-compiling (DEFUN GC ...)
; x-compiling (DEFINE-ALIEN-ROUTINE SCRUB-CONTROL-STACK ...)
; x-compiling (DEFUN UNSAFE-CLEAR-ROOTS ...)
; x-compiling (DEFUN BYTES-CONSED-BETWEEN-GCS ...)
; x-compiling (DEFUN (SETF BYTES-CONSED-BETWEEN-GCS) ...)
; x-compiling (DECLAIM (INLINE MAYBE-HANDLE-PENDING-GC))
; x-compiling (DEFUN MAYBE-HANDLE-PENDING-GC ...)
; x-compiling (DEFTYPE GENERATION-INDEX ...)
; x-compiling (DEFINE-ALIEN-TYPE GENERATION ...)
; x-compiling (DEFINE-ALIEN-VARIABLE GENERATIONS ...)
; x-compiling (DEF BYTES-CONSED-BETWEEN-GCS ...)
; x-compiling (DEF MINIMUM-AGE-BEFORE-GC ...)
; x-compiling (DEF NUMBER-OF-GCS-BEFORE-PROMOTION ...)
; x-compiling (DEF BYTES-ALLOCATED ...)
; x-compiling (DEF NUMBER-OF-GCS ...)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN GENERATION-AVERAGE-AGE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/gc.lisp-obj-tmp written
; compilation finished in 0:00:02.846
; compiling file "/«PKGBUILDDIR»/src/code/purify.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-ALIEN-ROUTINE ("purify" %PURIFY) ...)
; x-compiling (DEFUN PURIFY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/purify.lisp-obj-tmp written
; compilation finished in 0:00:00.219
; compiling file "/«PKGBUILDDIR»/src/code/debug-int.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!DI")
; x-compiling (DEFINE-CONDITION DEBUG-CONDITION ...)
; x-compiling (DEFINE-CONDITION NO-DEBUG-FUN-RETURNS ...)
; x-compiling (DEFINE-CONDITION NO-DEBUG-BLOCKS ...)
; x-compiling (DEFINE-CONDITION NO-DEBUG-VARS ...)
; x-compiling (DEFINE-CONDITION LAMBDA-LIST-UNAVAILABLE ...)
; x-compiling (DEFINE-CONDITION INVALID-VALUE ...)
; x-compiling (DEFINE-CONDITION AMBIGUOUS-VAR-NAME ...)
; x-compiling (DEFINE-CONDITION DEBUG-ERROR ...)
; x-compiling (DEFINE-CONDITION UNHANDLED-DEBUG-CONDITION ...)
; x-compiling (DEFINE-CONDITION UNKNOWN-CODE-LOCATION ...)
; x-compiling (DEFINE-CONDITION UNKNOWN-DEBUG-VAR ...)
; x-compiling (DEFINE-CONDITION INVALID-CONTROL-STACK-POINTER ...)
; x-compiling (DEFINE-CONDITION FRAME-FUN-MISMATCH ...)
; x-compiling (DEFMACRO DEBUG-SIGNAL ...)
; x-compiling (DEFSTRUCT (DEBUG-VAR # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFSTRUCT (COMPILED-DEBUG-VAR # ...) ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DEFSTRUCT FRAME
;     (DEFSTRUCT (SB!DI:FRAME (:CONSTRUCTOR NIL) (:COPIER NIL))
;       (SB!DI::UP NIL :TYPE (OR SB!DI:FRAME NULL))
;       (SB!DI::%DOWN :UNPARSED :TYPE (OR SB!DI:FRAME (MEMBER NIL :UNPARSED)))
;       (SB!DI:DEBUG-FUN NIL :TYPE SB!DI:DEBUG-FUN)
;       (SB!DI:CODE-LOCATION NIL :TYPE SB!DI:CODE-LOCATION)
;       (SB!DI::%CATCHES :UNPARSED :TYPE (OR LIST (MEMBER :UNPARSED)))
;       SB!DI::POINTER
;       (NUMBER 0 :TYPE SB!INT:INDEX))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!DI:FRAME {53ACA419}>
;    '#(#<SB!KERNEL:LAYOUT for T {53ECF4A1}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53B61A39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!DI:FRAME-DEBUG-FUN could not be inlined because
;   the structure definition for SB!DI:FRAME was not yet seen. To avoid this
;   warning, DEFSTRUCT should precede references to the affected functions, or they
;   must be declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (FRAME # ...) ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DEFSTRUCT COMPILED-FRAME
;     (DEFSTRUCT
;         (SB!DI::COMPILED-FRAME (:INCLUDE SB!DI:FRAME)
;          (:CONSTRUCTOR SB!DI::MAKE-COMPILED-FRAME
;           (SB!DI::POINTER SB!DI::UP SB!DI:DEBUG-FUN SB!DI:CODE-LOCATION NUMBER
;            &OPTIONAL SB!DI::ESCAPED))
;          (:COPIER NIL))
;       SB!DI::ESCAPED)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!DI::COMPILED-FRAME {5421A231}>
;    '#(#<SB!KERNEL:LAYOUT for T {53ECF4A1}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53B61A39}>
;       #<SB!KERNEL:LAYOUT for SB!DI:FRAME {53B0C119}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to SB!DI::COMPILED-FRAME-P and
;   SB!DI::COMPILED-FRAME-ESCAPED could not be inlined because the structure
;   definition for SB!DI::COMPILED-FRAME was not yet seen. To avoid this warning,
;   DEFSTRUCT should precede references to the affected functions, or they must be
;   declared locally notinline at each call site.
; x-compiling (DEFSTRUCT (COMPILED-FRAME # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (DEBUG-FUN # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (COMPILED-DEBUG-FUN # ...) ...)
; x-compiling (DEFVAR *COMPILED-DEBUG-FUNS* ...)
; x-compiling (DEFUN MAKE-COMPILED-DEBUG-FUN ...)
; x-compiling (DEFSTRUCT (BOGUS-DEBUG-FUN # ...) ...)
; x-compiling (DEFSTRUCT (DEBUG-BLOCK # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (SETF (FDOCUMENTATION # ...) ...)
; x-compiling (DEFSTRUCT (COMPILED-DEBUG-BLOCK # ...) ...)
; x-compiling (DEFSTRUCT (BREAKPOINT-DATA # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (BREAKPOINT # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (CODE-LOCATION # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFSTRUCT (COMPILED-CODE-LOCATION # ...) ...)
; x-compiling (DEFUN DEBUG-SOURCE-ROOT-NUMBER ...)
; x-compiling (DEFCONSTANT REAL-LRA-SLOT ...)
; x-compiling (DEFUN CURRENT-SP ...)
; x-compiling (DEFUN CURRENT-FP ...)
; x-compiling (DEFUN STACK-REF ...)
; x-compiling (DEFUN %SET-STACK-REF ...)
; x-compiling (DEFUN FUN-CODE-HEADER ...)
; x-compiling (DEFUN LRA-CODE-HEADER ...)
; x-compiling (DEFUN %MAKE-LISP-OBJ ...)
; x-compiling (DEFUN GET-LISP-OBJ-ADDRESS ...)
; x-compiling (DEFUN FUN-WORD-OFFSET ...)
; x-compiling (DECLAIM (INLINE CONTROL-STACK-POINTER-VALID-P))
; x-compiling (DEFUN CONTROL-STACK-POINTER-VALID-P ...)
; x-compiling (DECLAIM (INLINE COMPONENT-PTR-FROM-PC))
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE COMPONENT-PTR-FROM-PC ...)
; x-compiling (DECLAIM (INLINE VALID-LISP-POINTER-P))
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE VALID-LISP-POINTER-P ...)
; x-compiling (DECLAIM (INLINE COMPONENT-FROM-COMPONENT-PTR))
; x-compiling (DEFUN COMPONENT-FROM-COMPONENT-PTR ...)
; x-compiling (DEFUN COMPUTE-LRA-DATA-FROM-PC ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DECLAIM (INLINE DESCRIPTOR-SAP)
;     (DECLAIM (INLINE SB!DI::DESCRIPTOR-SAP))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!DI::DESCRIPTOR-SAP) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!DI::DESCRIPTOR-SAP to be INLINE, but 4 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE DESCRIPTOR-SAP))
; x-compiling (DEFUN DESCRIPTOR-SAP ...)
; x-compiling (DEFUN TOP-FRAME ...)
; x-compiling (DEFUN FLUSH-FRAMES-ABOVE ...)
; x-compiling (DEFUN FIND-SAVED-FRAME-DOWN ...)
; x-compiling (DEFUN FRAME-DOWN ...)
; x-compiling (DEFUN GET-CONTEXT-VALUE ...)
; x-compiling (DEFUN (SETF GET-CONTEXT-VALUE) ...)
; x-compiling (DEFUN FOREIGN-FUNCTION-BACKTRACE-NAME ...)
; x-compiling (DEFUN COMPUTE-CALLING-FRAME ...)

; file: /«PKGBUILDDIR»/src/code/debug-int.lisp
; in: DEFUN NTH-INTERRUPT-CONTEXT
;     (SB!ALIEN:SAP-ALIEN
;      (SB!VM::CURRENT-THREAD-OFFSET-SAP
;       (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N))
;      (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN
;    (SB!VM::CURRENT-THREAD-OFFSET-SAP
;     (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N))
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;       (* (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; x-compiling (DEFUN NTH-INTERRUPT-CONTEXT ...)
; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-ADDRESS ...)
; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-SAP ...)
; x-compiling (DEFUN FIND-ESCAPED-FRAME ...)
; x-compiling (DEFUN FIND-PC-FROM-ASSEMBLY-FUN ...)
; x-compiling (DEFUN CODE-OBJECT-FROM-BITS ...)
; x-compiling (DEFUN FIND-ASSEMBLY-ROUTINE ...)
; x-compiling (DEFUN DEBUG-FUN-FROM-PC ...)
; x-compiling (DEFUN CODE-LOCATION-FROM-PC ...)
; x-compiling (DEFUN FRAME-CATCHES ...)
; x-compiling (DEFUN REPLACE-FRAME-CATCH-TAG ...)
; x-compiling (DEFMACRO DO-DEBUG-FUN-BLOCKS ...)
; x-compiling (DEFMACRO DO-DEBUG-FUN-VARS ...)
; x-compiling (DEFUN DEBUG-FUN-FUN ...)
; x-compiling (DEFUN DEBUG-FUN-NAME ...)
; x-compiling (DEFUN INTERRUPTED-FRAME-ERROR ...)
; x-compiling (DEFUN TL-INVALID-ARG-COUNT-ERROR-P ...)
; x-compiling (DEFUN DEBUG-FUN-CLOSURE-NAME ...)
; x-compiling (DEFUN FUN-DEBUG-FUN ...)
; x-compiling (DEFUN DEBUG-FUN-KIND ...)
; x-compiling (DEFUN DEBUG-VAR-INFO-AVAILABLE ...)
; x-compiling (DEFUN DEBUG-FUN-SYMBOL-VARS ...)
; x-compiling (DEFUN AMBIGUOUS-DEBUG-VARS ...)
; x-compiling (DEFUN FIND-VAR ...)
; x-compiling (DEFUN DEBUG-FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN PARSE-COMPILED-DEBUG-FUN-LAMBDA-LIST ...)
; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST-VAR ...)
; x-compiling (DEFUN COMPILED-DEBUG-FUN-DEBUG-INFO ...)
; x-compiling (DEFVAR *PARSING-BUFFER* ...)
; x-compiling (DEFVAR *OTHER-PARSING-BUFFER* ...)
; x-compiling (DEFUN DEBUG-FUN-DEBUG-BLOCKS ...)
; x-compiling (DEFUN PARSE-DEBUG-BLOCKS ...)
; x-compiling (DEFUN PARSE-COMPILED-DEBUG-BLOCKS ...)
; x-compiling (DEFUN DEBUG-FUN-DEBUG-VARS ...)
; x-compiling (DEFUN ASSIGN-MINIMAL-VAR-NAMES ...)
; x-compiling (DEFUN PARSE-COMPILED-DEBUG-VARS ...)
; x-compiling (DEFUN CODE-LOCATION-UNKNOWN-P ...)
; x-compiling (DEFUN CODE-LOCATION-DEBUG-BLOCK ...)
; x-compiling (DEFUN COMPUTE-COMPILED-CODE-LOCATION-DEBUG-BLOCK ...)
; x-compiling (DEFUN CODE-LOCATION-DEBUG-SOURCE ...)
; x-compiling (DEFUN CODE-LOCATION-TOPLEVEL-FORM-OFFSET ...)
; x-compiling (DEFUN CODE-LOCATION-FORM-NUMBER ...)
; x-compiling (DEFUN CODE-LOCATION-KIND ...)
; x-compiling (DEFUN COMPILED-CODE-LOCATION-LIVE-SET ...)
; x-compiling (DEFUN CODE-LOCATION= ...)
; x-compiling (DEFUN SUB-COMPILED-CODE-LOCATION= ...)
; x-compiling (DEFUN FILL-IN-CODE-LOCATION ...)
; x-compiling (DEFMACRO DO-DEBUG-BLOCK-LOCATIONS ...)
; x-compiling (DEFUN DEBUG-BLOCK-FUN-NAME ...)
; x-compiling (DEFUN DEBUG-BLOCK-CODE-LOCATIONS ...)
; x-compiling (DEFUN DEBUG-VAR-SYMBOL-NAME ...)
; x-compiling (DEFUN DEBUG-VAR-PACKAGE-NAME ...)
; x-compiling (DEFUN DEBUG-VAR-VALID-VALUE ...)
; x-compiling (DEFUN DEBUG-VAR-VALUE ...)
; x-compiling (DEFUN ACCESS-COMPILED-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN MAKE-LISP-OBJ ...)
; x-compiling (DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN %SET-DEBUG-VAR-VALUE ...)
; x-compiling (DEFUN SET-COMPILED-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN SUB-SET-DEBUG-VAR-SLOT ...)
; x-compiling (DEFUN INDIRECT-VALUE-CELL-P ...)
; x-compiling (DEFUN DEBUG-VAR-VALIDITY ...)
; x-compiling (DEFUN DEBUG-VAR-INFO ...)
; x-compiling (DEFUN COMPILED-DEBUG-VAR-VALIDITY ...)
; x-compiling (DEFUN FORM-NUMBER-TRANSLATIONS ...)
; x-compiling (DEFUN SOURCE-PATH-CONTEXT ...)
; x-compiling (DEFUN GET-TOPLEVEL-FORM ...)
; x-compiling (DEFUN SAFE-READTABLE ...)
; x-compiling (DEFUN GET-FILE-TOPLEVEL-FORM ...)
; x-compiling (DEFUN PREPROCESS-FOR-EVAL ...)
; x-compiling (DEFUN EVAL-IN-FRAME ...)
; x-compiling (DEFUN MAKE-BREAKPOINT ...)
; x-compiling (DEFSTRUCT (FUN-END-COOKIE # ...) ...)
; x-compiling (DEFVAR *FUN-END-COOKIES* ...)
; x-compiling (DEFUN FUN-END-STARTER-HOOK ...)
; x-compiling (DEFUN FUN-END-COOKIE-VALID-P ...)
; x-compiling (DEFUN ACTIVATE-BREAKPOINT ...)
; x-compiling (DEFUN ACTIVATE-COMPILED-CODE-LOCATION-BREAKPOINT ...)
; x-compiling (DEFUN ACTIVATE-COMPILED-FUN-START-BREAKPOINT ...)
; x-compiling (DEFUN SUB-ACTIVATE-BREAKPOINT ...)
; x-compiling (DEFUN DEACTIVATE-BREAKPOINT ...)
; x-compiling (DEFUN DEACTIVATE-COMPILED-BREAKPOINT ...)
; x-compiling (DEFUN BREAKPOINT-INFO ...)
; x-compiling (DEFUN %SET-BREAKPOINT-INFO ...)
; x-compiling (DEFUN BREAKPOINT-ACTIVE-P ...)
; x-compiling (DEFUN DELETE-BREAKPOINT ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_install" ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_remove" ...)
; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_do_displaced_inst" ...)
; x-compiling (DEFVAR *COMPONENT-BREAKPOINT-OFFSETS* ...)
; x-compiling (DEFUN BREAKPOINT-DATA ...)
; x-compiling (DEFUN DELETE-BREAKPOINT-DATA ...)
; x-compiling (DEFUN HANDLE-BREAKPOINT ...)
; x-compiling (DEFVAR *EXECUTING-BREAKPOINT-HOOKS* ...)
; x-compiling (DEFUN HANDLE-BREAKPOINT-AUX ...)
; x-compiling (DEFUN INVOKE-BREAKPOINT-HOOKS ...)
; x-compiling (DEFUN SIGNAL-CONTEXT-FRAME ...)
; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT ...)
; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT-AUX ...)
; x-compiling (DEFUN GET-FUN-END-BREAKPOINT-VALUES ...)
; x-compiling (DEFCONSTANT BOGUS-LRA-CONSTANTS ...)
; x-compiling (DEFUN MAKE-BOGUS-LRA ...)
; x-compiling (DEFUN DEBUG-FUN-START-LOCATION ...)
; x-compiling (DEFUN HANDLE-SINGLE-STEP-TRAP ...)
; x-compiling (DEFVAR *STEP-FRAME* ...)
; x-compiling (DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ...)
; x-compiling (DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ...)
; x-compiling (DEFUN SINGLE-STEP-INFO-FROM-CONTEXT ...)
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes
; x-compiling (DEFUN FIND-STEPPED-FRAME ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug-int.lisp-obj-tmp written
; compilation finished in 0:00:22.230
; compiling file "/«PKGBUILDDIR»/src/compiler/target-disassem.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!DISASSEM")
; x-compiling (DEFUN INST-SPECIALIZES-P ...)
; x-compiling (DEFUN SPECIALIZER-RANK ...)
; x-compiling (DEFUN ORDER-SPECIALIZERS ...)
; x-compiling (DEFUN SPECIALIZATION-ERROR ...)
; x-compiling (DEFUN TRY-SPECIALIZING ...)
; x-compiling (DECLAIM (INLINE INST-MATCHES-P ...))
; x-compiling (DEFUN INST-MATCHES-P ...)
; x-compiling (DEFUN CHOOSE-INST-SPECIALIZATION ...)
; x-compiling (DEFUN FIND-INST ...)
; x-compiling (DEFUN BUILD-INST-SPACE ...)
; x-compiling (DEFUN PRINT-MASKED-BINARY ...)
; x-compiling (DEFUN PRINT-INST-BITS ...)
; x-compiling (DEFUN PRINT-INST-SPACE ...)
; x-compiling (DECLAIM (INLINE WORDS-TO-BYTES ...))
; x-compiling (DEFUN WORDS-TO-BYTES ...)
; x-compiling (DEFUN BYTES-TO-WORDS ...)
; x-compiling (DEFCONSTANT LRA-SIZE ...)
; x-compiling (DEFSTRUCT (OFFS-HOOK #) ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFSTRUCT SEGMENT
;     (DEFSTRUCT
;         (SB!DISASSEM:SEGMENT (:CONC-NAME SB!DISASSEM::SEG-)
;          (:CONSTRUCTOR SB!DISASSEM::%MAKE-SEGMENT) (:COPIER NIL))
;       (SB!DISASSEM::SAP-MAKER (SB!INT:MISSING-ARG) :TYPE
;        (FUNCTION NIL SB!SYS:SYSTEM-AREA-POINTER))
;       (LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH)
;       (SB!DISASSEM::OPCODES-LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH)
;       (SB!DISASSEM::VIRTUAL-LOCATION 0 :TYPE SB!DISASSEM::ADDRESS)
;       (SB!DISASSEM::STORAGE-INFO NIL :TYPE (OR NULL SB!DISASSEM::STORAGE-INFO))
;       (SB!DISASSEM::CODE NIL :TYPE (OR NULL SB!KERNEL:CODE-COMPONENT))
;       (SB!DISASSEM::UNBOXED-DATA-RANGE NIL :TYPE (OR NULL (CONS FIXNUM FIXNUM)))
;       (SB!DISASSEM::HOOKS NIL :TYPE LIST))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB!KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION SB!DISASSEM:SEGMENT {539342B1}>
;    '#(#<SB!KERNEL:LAYOUT for T {53ECF4A1}>
;       #<SB!KERNEL:LAYOUT for STRUCTURE-OBJECT {53B61A39}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to SB!DISASSEM:SEG-VIRTUAL-LOCATION could not be
;   inlined because the structure definition for SB!DISASSEM:SEGMENT was not yet
;   seen. To avoid this warning, DEFSTRUCT should precede references to the
;   affected functions, or they must be declared locally notinline at each call
;   site.
; x-compiling (DEFSTRUCT (SEGMENT # ...) ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN FUN-SELF ...)
; x-compiling (DEFUN FUN-CODE ...)
; x-compiling (DEFUN FUN-NEXT ...)
; x-compiling (DEFUN FUN-ADDRESS ...)
; x-compiling (DEFUN FUN-INSTS-OFFSET ...)
; x-compiling (DEFUN FUN-OFFSET ...)
; x-compiling (DEFUN CODE-INST-AREA-LENGTH ...)
; x-compiling (DEFUN CODE-INST-AREA-ADDRESS ...)
; x-compiling (DEFUN SEGMENT-OFFS-TO-CODE-OFFS ...)
; x-compiling (DEFUN CODE-OFFS-TO-SEGMENT-OFFS ...)
; x-compiling (DEFUN CODE-INSTS-OFFS-TO-SEGMENT-OFFS ...)
; x-compiling (DEFUN LRA-HOOK ...)
; x-compiling (DEFUN FUN-HEADER-HOOK ...)
; x-compiling (DEFUN ALIGNMENT-HOOK ...)
; x-compiling (DEFUN REWIND-CURRENT-SEGMENT ...)
; x-compiling (DEFUN CALL-OFFS-HOOKS ...)
; x-compiling (DEFUN CALL-FUN-HOOKS ...)
; x-compiling (DEFUN PAD-INST-COLUMN ...)
; x-compiling (DEFUN HANDLE-BOGUS-INSTRUCTION ...)
; x-compiling (DEFUN MAP-SEGMENT-INSTRUCTIONS ...)
; x-compiling (DEFUN ADD-SEGMENT-LABELS ...)
; x-compiling (DEFUN NUMBER-LABELS ...)
; x-compiling (DEFUN GET-INST-SPACE ...)
; x-compiling (DEFUN ADD-OFFS-HOOK ...)
; x-compiling (DEFUN ADD-OFFS-NOTE-HOOK ...)
; x-compiling (DEFUN ADD-OFFS-COMMENT-HOOK ...)
; x-compiling (DEFUN ADD-FUN-HOOK ...)
; x-compiling (DEFUN SET-LOCATION-PRINTING-RANGE ...)
; x-compiling (DEFUN PRINT-CURRENT-ADDRESS ...)
; x-compiling (DEFUN PRINT-NOTES-AND-NEWLINE ...)
; x-compiling (DEFUN PRINT-INST ...)
; x-compiling (DEFUN PRINT-BYTES ...)
; x-compiling (DEFUN PRINT-WORDS ...)
; x-compiling (DEFVAR *DEFAULT-DSTATE-HOOKS* ...)
; x-compiling (DEFUN MAKE-DSTATE ...)
; x-compiling (DEFUN ADD-FUN-HEADER-HOOKS ...)
; x-compiling (DECLAIM (INLINE SAP-MAKER))

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN SAP-MAKER
;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                FIXNUM
;                                                                                &REST
;                                                                                T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                (SIGNED-BYTE
;                                                                                 32)
;                                                                                &REST
;                                                                                T).
;       etc.

;     (LET ((SB!DISASSEM::OLD-SAP
;            (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                         SB!DISASSEM::OFFSET)))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;       (LAMBDA ()
;         (LET ((SB!DISASSEM::NEW-ADDR #))
;           (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;           (IF (= # SB!DISASSEM::NEW-ADDR)
;               SB!DISASSEM::OLD-SAP
;               (SETF #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

;     (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; x-compiling (DEFUN SAP-MAKER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN VECTOR-SAP-MAKER
;     (SB!DISASSEM::SAP-MAKER #'SB!SYS:VECTOR-SAP VECTOR SB!DISASSEM::OFFSET)
; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                FIXNUM
;                                                                                &REST
;                                                                                T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                (SIGNED-BYTE
;                                                                                 32)
;                                                                                &REST
;                                                                                T).
;       etc.

; --> BLOCK 
; ==>
;   (LET ((SB!DISASSEM::OLD-SAP
;          (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                       SB!DISASSEM::OFFSET)))
;     (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;     (LAMBDA ()
;       (LET ((SB!DISASSEM::NEW-ADDR #))
;         (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;         (IF (= # SB!DISASSEM::NEW-ADDR)
;             SB!DISASSEM::OLD-SAP
;             (SETF #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE 
; ==>
;   (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; x-compiling (DEFUN VECTOR-SAP-MAKER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN CODE-SAP-MAKER
;     (SB!DISASSEM::SAP-MAKER #'SB!KERNEL:CODE-INSTRUCTIONS SB!DISASSEM::CODE
;      SB!DISASSEM::OFFSET)
; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                FIXNUM
;                                                                                &REST
;                                                                                T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES
;                                                                                (SIGNED-BYTE
;                                                                                 32)
;                                                                                &REST
;                                                                                T).
;       etc.

; --> BLOCK 
; ==>
;   (LET ((SB!DISASSEM::OLD-SAP
;          (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                       SB!DISASSEM::OFFSET)))
;     (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;     (LAMBDA ()
;       (LET ((SB!DISASSEM::NEW-ADDR #))
;         (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;         (IF (= # SB!DISASSEM::NEW-ADDR)
;             SB!DISASSEM::OLD-SAP
;             (SETF #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

; --> BLOCK LET LAMBDA FUNCTION LET 
; ==>
;   (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+

; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE 
; ==>
;   (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; x-compiling (DEFUN CODE-SAP-MAKER ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN MEMORY-SAP-MAKER
;     (LAMBDA () SB!DISASSEM::SAP)
; --> FUNCTION SB!C::%%ALLOCATE-CLOSURES 
; ==>
;   (SB!C::%ALLOCATE-CLOSURES
;    '(#<SB!C::CLAMBDA
;        :%SOURCE-NAME SB!C::.ANONYMOUS.
;        :%DEBUG-NAME (LAMBDA # :IN SB!DISASSEM::MEMORY-SAP-MAKER)
;        :KIND NIL
;        :TYPE #<SB!KERNEL:FUN-TYPE #>
;        :WHERE-FROM :DEFINED
;        :VARS NIL {525F5371}>))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the second argument of CLOSURE-INIT
; x-compiling (DEFUN MEMORY-SAP-MAKER ...)
; x-compiling (DEFUN MAKE-SEGMENT ...)
; x-compiling (DEFUN MAKE-VECTOR-SEGMENT ...)
; x-compiling (DEFUN MAKE-CODE-SEGMENT ...)
; x-compiling (DEFUN MAKE-MEMORY-SEGMENT ...)
; x-compiling (DEFUN PRINT-FUN-HEADERS ...)
; x-compiling (DEFSTRUCT (SOURCE-FORM-CACHE # ...) ...)
; x-compiling (DEFUN GET-DIFFERENT-SOURCE-FORM ...)
; x-compiling (DEFUN CODE-FUN-MAP ...)
; x-compiling (DEFSTRUCT (LOCATION-GROUP #) ...)
; x-compiling (DEFSTRUCT (STORAGE-INFO #) ...)
; x-compiling (DEFUN DSTATE-DEBUG-VARS ...)
; x-compiling (DEFUN FIND-VALID-STORAGE-LOCATION ...)
; x-compiling (DEFUN GROW-VECTOR ...)
; x-compiling (DEFUN STORAGE-INFO-FOR-DEBUG-FUN ...)
; x-compiling (DEFUN SOURCE-AVAILABLE-P ...)
; x-compiling (DEFUN PRINT-BLOCK-BOUNDARY ...)
; x-compiling (DEFUN ADD-SOURCE-TRACKING-HOOKS ...)
; x-compiling (DEFVAR *DISASSEMBLE-ANNOTATE* ...)
; x-compiling (DEFUN ADD-DEBUGGING-HOOKS ...)
; x-compiling (DEFUN GET-FUN-SEGMENTS ...)
; x-compiling (DEFUN GET-CODE-SEGMENTS ...)
; x-compiling (DEFUN LABEL-SEGMENTS ...)
; x-compiling (DEFUN DISASSEMBLE-SEGMENT ...)
; x-compiling (DEFUN DISASSEMBLE-SEGMENTS ...)
; x-compiling (DEFUN DISASSEMBLE-FUN ...)
; x-compiling (DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P ...)
; x-compiling (DEFUN COMPILED-FUNS-OR-LOSE ...)
; x-compiling (DEFUN DISASSEMBLE ...)
; x-compiling (DEFUN DISASSEMBLE-MEMORY ...)
; x-compiling (DEFUN DISASSEMBLE-CODE-COMPONENT ...)
; x-compiling (DEFUN ASSEM-SEGMENT-TO-DISASSEM-SEGMENT ...)
; x-compiling (DEFUN DISASSEMBLE-ASSEM-SEGMENT ...)
; x-compiling (DEFPARAMETER *GROKKED-SYMBOL-SLOTS* ...)
; x-compiling (DEFUN GROK-SYMBOL-SLOT-REF ...)
; x-compiling (DEFVAR *ADDRESS-OF-NIL-OBJECT* ...)
; x-compiling (DEFUN GROK-NIL-INDEXED-SYMBOL-SLOT-REF ...)
; x-compiling (DEFUN GET-NIL-INDEXED-OBJECT ...)
; x-compiling (DEFUN GET-CODE-CONSTANT ...)
; x-compiling (DEFUN GET-CODE-CONSTANT-ABSOLUTE ...)
; x-compiling (DEFVAR *ASSEMBLER-ROUTINES-BY-ADDR* ...)
; x-compiling (DEFVAR *FOREIGN-SYMBOLS-BY-ADDR* ...)
; x-compiling (DEFUN INVERT-ADDRESS-HASH ...)
; x-compiling (DEFUN FIND-ASSEMBLER-ROUTINE ...)
; x-compiling (DECLAIM (MAYBE-INLINE SAP-REF-INT ...))

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN SAP-REF-INT
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 1095216660481), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 16)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
;       The second argument is a (MOD 280375465082881), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 40), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
;       The second argument is a (MOD 71776119061217281), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 48), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
;       The second argument is a (MOD 18374686479671623681), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 56), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + + + 
; ==>
;   (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18374686479671623681), not a FIXNUM.
;       The second argument is a (MOD 71776119061217281), not a FIXNUM.
;       The result is a (VALUES (MOD 18446462598732840961) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446462598732840961) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + + 
; ==>
;   (+
;    (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446462598732840961), not a FIXNUM.
;       The second argument is a (MOD 280375465082881), not a FIXNUM.
;       The result is a (VALUES (MOD 18446742974197923841) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446462598732840961), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446742974197923841) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + 
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 48))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446742974197923841), not a FIXNUM.
;       The second argument is a (MOD 1095216660481), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446742974197923841), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (ASH # 56) (ASH # 48))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The second argument is a (MOD 4278190081), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073692774401) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 4278190081), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744073692774401) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; --> + + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 40)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073692774401), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073709486081) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073692774401), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744073709486081) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; --> + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709486081), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073709551361) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073709486081), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744073709551361) &OPTIONAL), not a (VALUES
;                                                                             (SIGNED-BYTE
;                                                                              32)
;                                                                             &REST
;                                                                             T).
;       etc.

; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709551361), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073709551361), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)))
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
; ==>
;   (+
;    (+
;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 8))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (ASH # 56) (ASH # 48))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the second argument of static-fun Two-arg-+

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-+
; x-compiling (DEFUN SAP-REF-INT ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN READ-SUFFIX
;     (INCF (SB!DISASSEM:DSTATE-NEXT-OFFS SB!DISASSEM::DSTATE) LENGTH)
; --> LET* 
; ==>
;   (+ LENGTH (SB!DISASSEM:DSTATE-NEXT-OFFS #:DSTATE1486))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.
; x-compiling (DEFUN READ-SUFFIX ...)
; x-compiling (DEFUN NOTE ...)
; x-compiling (DEFUN PRIN1-SHORT ...)
; x-compiling (DEFUN PRIN1-QUOTED-SHORT ...)
; x-compiling (DEFUN NOTE-CODE-CONSTANT ...)
; x-compiling (DEFUN NOTE-CODE-CONSTANT-ABSOLUTE ...)
; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF ...)
; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-OBJECT ...)
; x-compiling (DEFUN MAYBE-NOTE-ASSEMBLER-ROUTINE ...)
; x-compiling (DEFUN MAYBE-NOTE-SINGLE-STORAGE-REF ...)
; x-compiling (DEFUN MAYBE-NOTE-ASSOCIATED-STORAGE-REF ...)
; x-compiling (DEFUN MAYBE-NOTE-STATIC-SYMBOL ...)
; x-compiling (DEFUN GET-INTERNAL-ERROR-NAME ...)
; x-compiling (DEFUN GET-SC-NAME ...)

; file: /«PKGBUILDDIR»/src/compiler/target-disassem.lisp
; in: DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P
;     (TYPEP SB!DISASSEM::THING 'SB!PCL::%METHOD-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined type: SB!PCL::%METHOD-FUNCTION
; 
; compilation unit finished
;   Undefined type:
;     SB!PCL::%METHOD-FUNCTION
;   caught 2 STYLE-WARNING conditions
;   printed 37 notes
; x-compiling (DEFUN HANDLE-BREAK-ARGS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/target-disassem.lisp-obj-tmp written
; compilation finished in 0:00:13.085
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/target-insts.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/target-insts.lisp-obj-tmp written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/src/code/debug.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!DEBUG")
; x-compiling (DEFVAR *DEBUG-PRINT-VARIABLE-ALIST* ...)
; x-compiling (DEFVAR *DEBUG-READTABLE* ...)
; x-compiling (DEFVAR *IN-THE-DEBUGGER* ...)
; x-compiling (DEFVAR *DEBUG-COMMAND-LEVEL* ...)
; x-compiling (DEFVAR *STACK-TOP-HINT* ...)
; x-compiling (DEFVAR *REAL-STACK-TOP* ...)
; x-compiling (DEFVAR *STACK-TOP* ...)
; x-compiling (DEFVAR *CURRENT-FRAME* ...)
; x-compiling (DEFVAR *DEBUG-BEGINNER-HELP-P* ...)
; x-compiling (DEFUN DEBUG-PROMPT ...)
; x-compiling (DEFPARAMETER *DEBUG-HELP-STRING* ...)
; x-compiling (DEFMACRO WITH-DEBUG-IO-SYNTAX ...)
; x-compiling (DEFUN MAYBE-BLOCK-START-LOCATION ...)
; x-compiling (DECLAIM (UNSIGNED-BYTE *BACKTRACE-FRAME-COUNT*))
; x-compiling (DEFVAR *BACKTRACE-FRAME-COUNT* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *METHOD-FRAME-STYLE* ...)
; x-compiling (DEFINE-DEPRECATED-VARIABLE :EARLY ...)
; x-compiling (DEFUN BACKTRACE ...)
; x-compiling (DEFUN BACKTRACE-AS-LIST ...)
; x-compiling (DEFUN BACKTRACE-START-FRAME ...)
; x-compiling (DEFUN MAP-BACKTRACE ...)
; x-compiling (DEFUN PRINT-BACKTRACE ...)
; x-compiling (DEFUN LIST-BACKTRACE ...)
; x-compiling (DEFUN FRAME-CALL-AS-LIST ...)
; x-compiling (DEFUN REPLACE-DYNAMIC-EXTENT-OBJECT ...)
; x-compiling (DEFUN STACK-ALLOCATED-P ...)
; x-compiling (DEFUN MAP-FRAME-ARGS ...)
; x-compiling (DEFUN ARG-COUNT-ERROR-FRAME-NTH-ARG ...)
; x-compiling (DEFUN ARG-COUNT-ERROR-FRAME-ARGS ...)
; x-compiling (DEFUN FRAME-ARGS-AS-LIST ...)
; x-compiling (DEFUN CLEAN-XEP ...)
; x-compiling (DEFUN CLEAN-&MORE-PROCESSOR ...)
; x-compiling (DEFUN CLEAN-FAST-METHOD ...)
; x-compiling (DEFUN CLEAN-FRAME-CALL ...)
; x-compiling (DEFUN FRAME-CALL ...)
; x-compiling (DEFUN ENSURE-PRINTABLE-OBJECT ...)
; x-compiling (DEFUN FRAME-CALL-ARG ...)
; x-compiling (DEFUN PRINT-FRAME-CALL ...)
; x-compiling (DEFVAR *DEBUGGER-HOOK* ...)
; x-compiling (DEFVAR *INVOKE-DEBUGGER-HOOK* ...)
; x-compiling (DEFVAR *DEBUG-RESTARTS*)
; x-compiling (DEFVAR *DEBUG-CONDITION*)
; x-compiling (DEFVAR *NESTED-DEBUG-CONDITION*)
; x-compiling (DEFUN FUNCALL-WITH-DEBUG-IO-SYNTAX ...)
; x-compiling (DECLAIM (NOTINLINE RUN-HOOK))
; x-compiling (DEFUN RUN-HOOK ...)
; x-compiling (DEFUN RESOLVE-STACK-TOP-HINT ...)
; x-compiling (DEFUN INVOKE-DEBUGGER ...)
; x-compiling (DEFUN %PRINT-DEBUGGER-INVOCATION-REASON ...)

; file: /«PKGBUILDDIR»/src/code/debug.lisp
; in: DEFUN %INVOKE-DEBUGGER
;     (SB!THREAD:RELEASE-FOREGROUND)
; 
; note: deleting unreachable code
; x-compiling (DEFUN %INVOKE-DEBUGGER ...)
; x-compiling (DEFUN DEBUGGER-DISABLED-HOOK ...)
; x-compiling (DEFVAR *OLD-DEBUGGER-HOOK* ...)
; x-compiling (DEFUN DISABLE-DEBUGGER ...)
; x-compiling (DEFUN ENABLE-DEBUGGER ...)
; x-compiling (DEFUN SHOW-RESTARTS ...)
; x-compiling (DEFVAR *DEBUG-LOOP-FUN* ...)
; x-compiling (DEFVAR *SUPPRESS-FRAME-PRINT* ...)
; x-compiling (DEFUN INTERNAL-DEBUG ...)
; x-compiling (DEFVAR *FLUSH-DEBUG-ERRORS* ...)
; x-compiling (DEFUN DEBUG-READ ...)
; x-compiling (DEFUN DEBUG-LOOP-FUN ...)
; x-compiling (DEFVAR *AUTO-EVAL-IN-FRAME* ...)
; x-compiling (DEFUN DEBUG-EVAL ...)
; x-compiling (DEFUN DEBUG-EVAL-PRINT ...)
; x-compiling (DEFUN VAR-VALID-IN-FRAME-P ...)
; x-compiling (DEFUN VAR ...)
; x-compiling (DEFUN (SETF VAR) ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN NTH-ARG ...)
; x-compiling (DEFUN ARG ...)
; x-compiling (DEFVAR *DEBUG-COMMANDS* ...)
; x-compiling (DEFMACRO !DEF-DEBUG-COMMAND ...)
; x-compiling (DEFUN !DEF-DEBUG-COMMAND-ALIAS ...)
; x-compiling (DEFUN DEBUG-COMMAND-P ...)
; x-compiling (DEFUN MAKE-RESTART-COMMANDS ...)
; x-compiling (!DEF-DEBUG-COMMAND "UP" ...)
; x-compiling (!DEF-DEBUG-COMMAND "DOWN" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "D" ...)
; x-compiling (!DEF-DEBUG-COMMAND "BOTTOM" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "B" ...)
; x-compiling (!DEF-DEBUG-COMMAND "FRAME" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "F" ...)
; x-compiling (!DEF-DEBUG-COMMAND "TOPLEVEL" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "TOP" ...)
; x-compiling (!DEF-DEBUG-COMMAND "RESTART" ...)
; x-compiling (!DEF-DEBUG-COMMAND "HELP" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "?" ...)
; x-compiling (!DEF-DEBUG-COMMAND "ERROR" ...)
; x-compiling (!DEF-DEBUG-COMMAND "BACKTRACE" ...)
; x-compiling (!DEF-DEBUG-COMMAND "PRINT" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "P" ...)
; x-compiling (!DEF-DEBUG-COMMAND "LIST-LOCALS" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "L" ...)
; x-compiling (!DEF-DEBUG-COMMAND "SOURCE" ...)
; x-compiling (DEFUN CODE-LOCATION-SOURCE-FORM ...)
; x-compiling (!DEF-DEBUG-COMMAND "START" ...)
; x-compiling (DEFMACRO !DEF-STEP-COMMAND ...)
; x-compiling (!DEF-STEP-COMMAND "STEP" ...)
; x-compiling (!DEF-STEP-COMMAND "NEXT" ...)
; x-compiling (!DEF-STEP-COMMAND "STOP" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "S" ...)
; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "N" ...)
; x-compiling (!DEF-DEBUG-COMMAND "OUT" ...)
; x-compiling (!DEF-DEBUG-COMMAND "DESCRIBE" ...)
; x-compiling (!DEF-DEBUG-COMMAND "SLURP" ...)
; x-compiling (DEFUN UNWIND-TO-FRAME-AND-CALL ...)
; x-compiling (DEFUN FIND-BINDING-STACK-POINTER ...)
; x-compiling (DEFUN FIND-ENCLOSING-CATCH-BLOCK ...)
; x-compiling (DEFUN FIND-ENCLOSING-UWP ...)
; x-compiling (!DEF-DEBUG-COMMAND "RETURN" ...)
; x-compiling (!DEF-DEBUG-COMMAND "RESTART-FRAME" ...)
; x-compiling (DEFUN FRAME-HAS-DEBUG-TAG-P ...)
; x-compiling (DEFUN FRAME-HAS-DEBUG-VARS-P ...)
; x-compiling (DEFUN READ-PROMPTING-MAYBE ...)

; file: /«PKGBUILDDIR»/src/code/debug.lisp
; in: DEFUN CLEAN-FAST-METHOD
;     (COMPUTE-APPLICABLE-METHODS (FDEFINITION SB!DEBUG::GF-NAME)
;                                 SB!DEBUG::REAL-ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-APPLICABLE-METHODS
; 
; compilation unit finished
;   Undefined function:
;     COMPUTE-APPLICABLE-METHODS
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN READ-IF-AVAILABLE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/debug.lisp-obj-tmp written
; compilation finished in 0:00:07.626
; compiling file "/«PKGBUILDDIR»/src/code/octets.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFTYPE ARRAY-RANGE ...)
; x-compiling (DEFINE-CONDITION OCTETS-ENCODING-ERROR ...)
; x-compiling (DEFUN ENCODING-ERROR ...)
; x-compiling (DEFINE-CONDITION OCTET-DECODING-ERROR ...)
; x-compiling (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...)
; x-compiling (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...)
; x-compiling (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...)
; x-compiling (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...)
; x-compiling (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...)
; x-compiling (DEFINE-CONDITION MALFORMED-ASCII ...)
; x-compiling (DEFUN DECODING-ERROR ...)
; x-compiling (DEFMACRO INSTANTIATE-OCTETS-DEFINITION ...)
; x-compiling (DEFUN MAKE-OD-NAME ...)
; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPER ...)
; x-compiling (DECLAIM (INLINE GET-LATIN-BYTES))
; x-compiling (DEFUN GET-LATIN-BYTES ...)
; x-compiling (DECLAIM (INLINE STRING->LATIN%))

; file: /«PKGBUILDDIR»/src/code/octets.lisp
; in: DEFUN STRING->LATIN%
;     (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (INCF SB!INT:INDEX)
; --> SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

;     (INCF SB!INT:INDEX)
; --> SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->LATIN% ...)
; x-compiling (DEFMACRO DEFINE-LATIN->STRING* ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING*)
; x-compiling (DEFMACRO DEFINE-LATIN->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING)
; x-compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...)
; x-compiling (DEFUN DEFAULT-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN MAYBE-DEFAULTED-EXTERNAL-FORMAT ...)
; x-compiling (DEFUN OCTETS-TO-STRING ...)
; x-compiling (DEFUN STRING-TO-OCTETS ...)
; x-compiling (DEFVAR +UNICODE-REPLACEMENT-CHARACTER+ ...)
; x-compiling (DEFUN USE-UNICODE-REPLACEMENT-CHAR ...)
; x-compiling (DEFMACRO WITH-STANDARD-REPLACEMENT-CHARACTER ...)
; 
; compilation unit finished
;   printed 13 notes
; x-compiling (DEFMACRO WITH-DEFAULT-DECODING-REPLACEMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/octets.lisp-obj-tmp written
; compilation finished in 0:00:03.820
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE CODE->ASCII-MAPPER))
; x-compiling (DEFUN CODE->ASCII-MAPPER ...)
; x-compiling (DECLAIM (INLINE GET-ASCII-BYTES))
; x-compiling (DEFUN GET-ASCII-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN STRING->ASCII
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ASCII-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->ASCII ...)
; x-compiling (DEFMACRO DEFINE-ASCII->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-ASCII->STRING)
; --> PROGN SB!IMPL::DEFINE-ASCII->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY LET* IF LOOP BLOCK LET SB!LOOP::LOOP-BODY 
; --> TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII
;      (:US-ASCII :ANSI_X3.4-1968 :ISO-646 :ISO-646-US :|646|)
;      (IF (>= SB!IMPL::BITS 128)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      (IF (>= SB-XC:BYTE 128)
;          (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1)
;          (CODE-CHAR SB-XC:BYTE))
;      SB!IMPL::ASCII->STRING-AREF SB!IMPL::STRING->ASCII)
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ...)
; x-compiling (DECLAIM (INLINE GET-LATIN1-BYTES))
; x-compiling (DEFUN GET-LATIN1-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN STRING->LATIN1
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-LATIN1-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->LATIN1 ...)
; x-compiling (DEFMACRO DEFINE-LATIN1->STRING* ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING*)
; x-compiling (DEFMACRO DEFINE-LATIN1->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1
;      (:LATIN1 :ISO-8859-1 :ISO8859-1)
;      (IF (>= SB!IMPL::BITS 256)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      (CODE-CHAR SB-XC:BYTE) SB!IMPL::LATIN1->STRING-AREF SB!IMPL::STRING->LATIN1)
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ...)
; x-compiling (DECLAIM (INLINE CHAR-LEN-AS-UTF8))

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN CHAR-LEN-AS-UTF8
;     (SB!INT:BUG "can't happen")
; ==>
;   "can't happen"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; x-compiling (DEFUN CHAR-LEN-AS-UTF8 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFUN STRING->UTF8
;     (LENGTH SB!IMPL::REPLACEMENT)
; 
; 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.

;     (COPY-SEQ SB!IMPL::NEW-ARRAY)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (AND (VECTOR (UNSIGNED-BYTE 8))
;                                    (NOT SIMPLE-ARRAY))), not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (AND (VECTOR (UNSIGNED-BYTE 8))
;                                    (NOT SIMPLE-ARRAY))), not a LIST.

;     (AREF SB!IMPL::REPLACEMENT SB!IMPL::I)
; ==>
;   (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.
; x-compiling (DEFUN STRING->UTF8 ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF8-CHAR ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF8-CHAR)
; x-compiling (DEFMACRO DEFINE-UTF8->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF8->STRING)
; --> PROGN SB!IMPL::DEFINE-UTF8->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-basic.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8)
;     (< SB!IMPL::BITS 2048)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (< SB!IMPL::BITS 65536)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;             (LOGIOR 192 (SB-XC:LDB (SB-XC:BYTE 5 6) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS)))
; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (<= 55296 SB!IMPL::BITS 57343)
; --> 
; --> (LAMBDA (#:G138231 #:G138230 #:G138229) (DECLARE (TYPE REAL #:G138231 #:G138230 #:G138229)) (IF (<= #:G138231 #:G138230) (IF (<= #:G138230 #:G138229) T NIL) NIL)) 
; --> SB!C::%FUNCALL 
; --> #<SB!C::CLAMBDA :%SOURCE-NAME SB!C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (#:G138231 #:G138230 #:G138229) :IN SB!IMPL::OUTPUT-BYTES/UTF-8) :KIND :LET :TYPE #<SB!KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :VARS (#:G138231 #:G138230 #:G138229) {53CAD261}> 
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;             (LOGIOR 224 (SB-XC:LDB (SB-XC:BYTE 4 12) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS)))
; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;             (LOGIOR 240 (SB-XC:LDB (SB-XC:BYTE 3 18) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 12) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS))
;           (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 3 SB!IMPL::TAIL))
;             (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS)))
; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) T
;      (CODE-CHAR 65533)
;      (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE)))
;        (COND ((< SB!IMPL::BITS 128) 1) ((< SB!IMPL::BITS 2048) 2)
;              ((< SB!IMPL::BITS 65536) 3) (T 4)))
;      (ECASE SB!IMPL::SIZE
;        (1 (SETF # SB!IMPL::BITS))
;        (2
;         (SETF # #
;               # #))
;        (3
;         (WHEN (<= 55296 SB!IMPL::BITS 57343)
;           (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))
;         (SETF # #
;               # #
;               # #))
;        (4
;         (SETF # #
;               # #
;               # #
;               # #)))
;      (1
;       (COND ((< SB-XC:BYTE 128) 1)
;             ((< SB-XC:BYTE 194) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1))
;             ((< SB-XC:BYTE 224) 2) ((< SB-XC:BYTE 240) 3) (T 4)))
;      (CODE-CHAR
;       (ECASE SB!IMPL::SIZE
;         (1 SB-XC:BYTE)
;         (2
;          (LET #
;            #
;            #))
;         (3
;          (LET #
;            #
;            #))
;         (4
;          (LET #
;            #
;            #))))
;      SB!IMPL::UTF8->STRING-AREF SB!IMPL::STRING->UTF8)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (< SB!IMPL::BITS 2048)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (< SB!IMPL::BITS 65536)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 57 notes
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-basic.lisp-obj-tmp written
; compilation finished in 0:00:13.449
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-ebcdic.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO DEFINE-UNIBYTE-PERMUTATION-MAPPER ...)
; x-compiling (DEFINE-UNIBYTE-PERMUTATION-MAPPER EBCDIC-US->CODE-MAPPER ...)
; x-compiling (DECLAIM (INLINE GET-EBCDIC-US-BYTES))
; x-compiling (DEFUN GET-EBCDIC-US-BYTES ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ebcdic.lisp
; in: DEFUN STRING->EBCDIC-US
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-EBCDIC-US-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ 
; --> THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.
; x-compiling (DEFUN STRING->EBCDIC-US ...)
; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING* ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING*)
; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ebcdic.lisp
; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US
;     (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US
;      (:CP037 :|cp037| :IBM-037 :IBM037)
;      (LET ((SB!IMPL::EBCDIC-US-BYTE
;             (SB!IMPL::CODE->EBCDIC-US-MAPPER SB!IMPL::BITS)))
;        (IF SB!IMPL::EBCDIC-US-BYTE
;            (SETF # SB!IMPL::EBCDIC-US-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)))
;      (CODE-CHAR (SB!IMPL::EBCDIC-US->CODE-MAPPER SB-XC:BYTE))
;      SB!IMPL::EBCDIC-US->STRING-AREF SB!IMPL::STRING->EBCDIC-US)
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 14 notes
; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-ebcdic.lisp-obj-tmp written
; compilation finished in 0:00:02.925
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R (:|koi8-r|)
;      (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500)
;      (135 9508) (136 9516) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U (:|koi8-u|)
;      (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500)
;      (135 9508) (136 9516) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC
;      (:|x-mac-cyrillic|) (128 1040) (129 1041) (130 1042) (131 1043) (132 1044)
;      (133 1045) (134 1046) (135 1047) (136 1048) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 42 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj-tmp written
; compilation finished in 0:00:07.850
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 (:|cp437|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 (:|cp850|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 (:|cp852|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 367) (134 263) (135 231)
;      (136 322) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 (:|cp855|) (128 1106)
;      (129 1026) (130 1107) (131 1027) (132 1105) (133 1025) (134 1108) (135 1028)
;      (136 1109) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 (:|cp857|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 (:|cp860|) (128 199)
;      (129 252) (130 233) (131 226) (132 227) (133 224) (134 193) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 (:|cp861|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 (:|cp862|) (128 1488)
;      (129 1489) (130 1490) (131 1491) (132 1492) (133 1493) (134 1494) (135 1495)
;      (136 1496) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 (:|cp863|) (128 199)
;      (129 252) (130 233) (131 226) (132 194) (133 224) (134 182) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 (:|cp864|) (128 176)
;      (129 183) (130 8729) (131 8730) (132 9618) (133 9472) (134 9474) (135 9532)
;      (136 9508) ...)
; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF 
; ==>
;   SB!IMPL::CODE
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 (:|cp865|) (128 199)
;      (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231)
;      (136 234) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 (:|cp866|) (128 1040)
;      (129 1041) (130 1042) (131 1043) (132 1044) (133 1045) (134 1046) (135 1047)
;      (136 1048) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 (:|cp869|) (128 NIL)
;      (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 NIL) (134 902) (135 NIL)
;      (136 183) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 (:|cp874|) (128 8364)
;      (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 8230) (134 NIL) (135 NIL)
;      (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 197 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-dos.lisp-obj-tmp written
; compilation finished in 0:00:36.233
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2
;      (:|iso-8859-2| :LATIN-2 :|latin-2|) (161 260) (162 728) (163 321) (165 317)
;      (166 346) (169 352) (170 350) (171 356) (172 377) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3
;      (:|iso-8859-3| :LATIN-3 :|latin-3|) (161 294) (162 728) (165 NIL) (166 292)
;      (169 304) (170 350) (171 286) (172 308) (174 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4
;      (:|iso-8859-4| :LATIN-4 :|latin-4|) (161 260) (162 312) (163 342) (165 296)
;      (166 315) (169 352) (170 274) (171 290) (172 358) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 (:|iso-8859-5|)
;      (161 1025) (162 1026) (163 1027) (164 1028) (165 1029) (166 1030) (167 1031)
;      (168 1032) (169 1033) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 (:|iso-8859-6|)
;      (161 NIL) (162 NIL) (163 NIL) (165 NIL) (166 NIL) (167 NIL) (168 NIL)
;      (169 NIL) (170 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 (:|iso-8859-7|)
;      (161 701) (162 700) (164 NIL) (165 NIL) (170 NIL) (174 NIL) (175 8213)
;      (180 900) (181 901) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 (:|iso-8859-8|)
;      (161 NIL) (170 215) (175 8254) (186 247) (191 NIL) (192 NIL) (193 NIL)
;      (194 NIL) (195 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9
;      (:|iso-8859-9| :LATIN-5 :|latin-5|) (208 286) (221 304) (222 350) (240 287)
;      (253 305) (254 351))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10
;      (:|iso-8859-10| :LATIN-6 :|latin-6|) (161 260) (162 274) (163 290) (164 298)
;      (165 296) (166 310) (168 315) (169 272) (170 352) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11
;      (:|iso-8859-11|) (161 3585) (162 3586) (163 3587) (164 3588) (165 3589)
;      (166 3590) (167 3591) (168 3592) (169 3593) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13
;      (:|iso-8859-13| :LATIN-7 :|latin-7|) (161 8221) (165 8222) (168 216)
;      (170 342) (175 198) (180 8220) (184 248) (186 343) (191 230) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14
;      (:|iso-8859-14| :LATIN-8 :|latin-8|) (161 7682) (162 7683) (164 266)
;      (165 267) (166 7690) (168 7808) (170 7810) (171 7691) (172 7922) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9
;      (:LATIN9 :ISO-8859-15 :ISO8859-15) (164 8364) (166 352) (168 353) (180 381)
;      (184 382) (188 338) (189 339) (190 376))
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 182 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-iso.lisp-obj-tmp written
; compilation finished in 0:00:36.234
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250
;      (:|cp1250| :WINDOWS-1250 :|windows-1250|) (128 8364) (129 NIL) (130 8218)
;      (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251
;      (:|cp1251| :WINDOWS-1251 :|windows-1251|) (128 1026) (129 1027) (130 8218)
;      (131 1107) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252
;      (:|cp1252| :WINDOWS-1252 :|windows-1252|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253
;      (:|cp1253| :WINDOWS-1253 :|windows-1253|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 (:|cp1254|)
;      (128 8364) (129 NIL) (130 8218) (131 402) (132 8222) (133 8230) (134 8224)
;      (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255
;      (:|cp1255| :WINDOWS-1255 :|windows-1255|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256
;      (:|cp1256| :WINDOWS-1256 :|windows-1256|) (128 8364) (129 1662) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257
;      (:|cp1257| :WINDOWS-1257 :|windows-1257|) (128 8364) (129 NIL) (130 8218)
;      (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258
;      (:|cp1258| :WINDOWS-1258 :|windows-1258|) (128 8364) (129 NIL) (130 8218)
;      (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 126 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-win.lisp-obj-tmp written
; compilation finished in 0:00:23.473
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-mac.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-mac.lisp
; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN
;      (:|mac-roman| :|MacRoman| :MAC :|mac| :MACINTOSH :|macintosh|) (128 196)
;      (129 197) (130 199) (131 201) (132 209) (133 214) (134 220) (135 225)
;      (136 224) ...)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY 
; ==>
;   (* SB!INT:INDEX 2)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF SETQ THE 
; ==>
;   (+ 1 SB!INT:INDEX)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT 
; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 14 notes
; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-mac.lisp-obj-tmp written
; compilation finished in 0:00:02.744
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/mb-util.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/mb-util.lisp
; in: DEFUN GET-MULTIBYTE-MAPPER
;     (AREF SB!IMPL::TABLE SB!IMPL::M 0)
; --> LET* 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.

;     (AREF SB!IMPL::TABLE SB!IMPL::M 1)
; --> LET* 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY.
; x-compiling (DEFUN GET-MULTIBYTE-MAPPER ...)
; x-compiling (DEFUN MAKE-OD-NAME-LIST ...)
; x-compiling (DEFUN DEFINE-BYTES-PER-MB-CHARACTER-1 ...)
; x-compiling (DEFUN DEFINE-SIMPLE-GET-MB-CHAR-1 ...)
; x-compiling (DEFUN DEFINE-MB->STRING-1 ...)
; x-compiling (DECLAIM (INLINE MB-CHAR-LEN))
; x-compiling (DEFUN MB-CHAR-LEN ...)
; 
; compilation unit finished
;   printed 2 notes
; x-compiling (DEFMACRO DEFINE-MULTIBYTE-ENCODING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/mb-util.lisp-obj-tmp written
; compilation finished in 0:00:00.904
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-cn-tbl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-TABLE* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj-tmp written
; compilation finished in 0:00:03.615
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-cn.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE UCS-TO-GBK ...))
; x-compiling (DEFUN UCS-TO-GBK ...)
; x-compiling (DEFUN GBK-TO-UCS ...)
; x-compiling (DEFUN MB-LEN-AS-GBK ...)
; x-compiling (DEFUN GBK-CONTINUATION-BYTE-P ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-cn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :GBK
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :GBK (:GBK :CP936) SB!IMPL::UCS-TO-GBK
;      SB!IMPL::GBK-TO-UCS SB!IMPL::MB-LEN-AS-GBK SB!IMPL::GBK-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-GBK-CHAR PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :GBK 'SB!IMPL::MALFORMED-GBK SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB 
; --> SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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 SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; --> LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.
; 
; compilation unit finished
;   printed 18 notes
; x-compiling (DEFINE-MULTIBYTE-ENCODING :GBK ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-cn.lisp-obj-tmp written
; compilation finished in 0:00:04.506
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-jpn-tbl.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-EUCJP-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *EUCJP-TO-UCS-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-SJIS-TABLE* ...)
; x-compiling (DEFINE-MULTIBYTE-MAPPER *SJIS-TO-UCS-TABLE* ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj-tmp written
; compilation finished in 0:00:03.673
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-jpn.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE UCS-TO-EUCJP ...))
; x-compiling (DEFUN UCS-TO-EUCJP ...)
; x-compiling (DEFUN EUCJP-TO-UCS ...)
; x-compiling (DEFUN MB-LEN-AS-EUCJP ...)
; x-compiling (DEFUN EUCJP-CONTINUATION-BYTE-P ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-jpn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :EUC-JP
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :EUC-JP (:EUC-JP :EUCJP :|eucJP|)
;      SB!IMPL::UCS-TO-EUCJP SB!IMPL::EUCJP-TO-UCS SB!IMPL::MB-LEN-AS-EUCJP
;      SB!IMPL::EUCJP-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-EUC-JP-CHAR PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB 
; --> SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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 SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; --> LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.
; x-compiling (DEFINE-MULTIBYTE-ENCODING :EUC-JP ...)
; x-compiling (DECLAIM (INLINE UCS-TO-SJIS ...))
; x-compiling (DEFUN UCS-TO-SJIS ...)
; x-compiling (DEFUN SJIS-TO-UCS ...)
; x-compiling (DEFUN MB-LEN-AS-SJIS ...)
; x-compiling (DEFUN SJIS-CONTINUATION-BYTE-P ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-jpn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;      (:SHIFT_JIS :SJIS :|Shift_JIS| :CP932) SB!IMPL::UCS-TO-SJIS
;      SB!IMPL::SJIS-TO-UCS SB!IMPL::MB-LEN-AS-SJIS
;      SB!IMPL::SJIS-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-SHIFT_JIS-CHAR PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET 
; --> LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO 
; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB 
; --> SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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 SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS LET LET LOOP BLOCK LET LET LET 
; --> LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET COND IF COND IF 
; --> PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; --> LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (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 ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

; ==>
;   (LOGAND SB!C::X '255)
; 
; 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.
; 
; 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.
; 
; compilation unit finished
;   printed 36 notes
; x-compiling (DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj-tmp written
; compilation finished in 0:00:10.137
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE SAP-REF-16LE ...))
; x-compiling (DEFUN SAP-REF-16LE ...)
; x-compiling (DEFUN (SETF SAP-REF-16LE) ...)
; x-compiling (DEFUN SAP-REF-16BE ...)
; x-compiling (DEFUN (SETF SAP-REF-16BE) ...)
; x-compiling (DEFUN SAP-REF-32LE ...)
; x-compiling (DEFUN (SETF SAP-REF-32LE) ...)
; x-compiling (DEFUN SAP-REF-32BE ...)
; x-compiling (DEFUN (SETF SAP-REF-32BE) ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-2LE))
; x-compiling (DEFUN CHAR->UCS-2LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-2BE))
; x-compiling (DEFUN CHAR->UCS-2BE ...)
; x-compiling (DEFUN STRING->UCS-2LE ...)
; x-compiling (DEFUN STRING->UCS-2BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS2-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS2-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS2-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS2-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UCS-2->STRING ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-2->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) T
;      (CODE-CHAR 65533) 2
;      (IF (< SB!IMPL::BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD))
;      SB!IMPL::UCS-2LE->STRING-AREF SB!IMPL::STRING->UCS-2LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) T
;      (CODE-CHAR 65533) 2
;      (IF (< SB!IMPL::BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD))
;      SB!IMPL::UCS-2BE->STRING-AREF SB!IMPL::STRING->UCS-2BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-4LE))
; x-compiling (DEFUN CHAR->UCS-4LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UCS-4BE))
; x-compiling (DEFUN CHAR->UCS-4BE ...)
; x-compiling (DEFUN STRING->UCS-4LE ...)
; x-compiling (DEFUN STRING->UCS-4BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS4-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS4-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS4-CHARACTER ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION
;      SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER)
; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UCS-4->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UCS-4->STRING)
; --> PROGN SB!IMPL::DEFINE-UCS-4->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) NIL
;      (CODE-CHAR 65533) 4
;      (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT)
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UCS-4LE->STRING-AREF SB!IMPL::STRING->UCS-4LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-ucs.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) NIL
;      (CODE-CHAR 65533) 4
;      (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT)
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UCS-4BE->STRING-AREF SB!IMPL::STRING->UCS-4BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   printed 20 notes
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-ucs.lisp-obj-tmp written
; compilation finished in 0:00:10.176
; compiling file "/«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (INLINE UTF-NONCHARACTER-CODE-P))
; x-compiling (DEFUN UTF-NONCHARACTER-CODE-P ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-16LE))
; x-compiling (DEFUN CHAR->UTF-16LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-16BE))
; x-compiling (DEFUN CHAR->UTF-16BE ...)
; x-compiling (DEFUN STRING->UTF-16LE ...)
; x-compiling (DEFUN STRING->UTF-16BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF16-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF16-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF16-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF16-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UTF-16->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-16->STRING)
; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY 
; --> VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF 
; ==>
;   (< SB!IMPL::POS SB!IMPL::AEND)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION INCF SETQ THE 
; ==>
;   (+ SB!IMPL::BYTES SB!IMPL::POS)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE)
;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) T
;      (CODE-CHAR 65533)
;      (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE)))
;        (IF (< SB!IMPL::BITS 65536)
;            2
;            4))
;      (COND
;       ((< SB!IMPL::BITS 65536)
;        (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (SETF #)))
;       (T
;        (IF (= # 65534)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (LET* #
;              #
;              #))))
;      (2
;       (IF (<= 55296 (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD) 56319)
;           4
;           2))
;      (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2))
;              ((<= 55296 SB!IMPL::BITS 56319)
;               (LET #
;                 #
;                 #))
;              (T (CODE-CHAR SB!IMPL::BITS))))
;      SB!IMPL::UTF-16LE->STRING-AREF SB!IMPL::STRING->UTF-16LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE)
;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) T
;      (CODE-CHAR 65533)
;      (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE)))
;        (IF (< SB!IMPL::BITS 65536)
;            2
;            4))
;      (COND
;       ((< SB!IMPL::BITS 65536)
;        (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (SETF #)))
;       (T
;        (IF (= # 65534)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;            (LET* #
;              #
;              #))))
;      (2
;       (IF (<= 55296 (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD) 56319)
;           4
;           2))
;      (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2))
;              ((<= 55296 SB!IMPL::BITS 56319)
;               (LET #
;                 #
;                 #))
;              (T (CODE-CHAR SB!IMPL::BITS))))
;      SB!IMPL::UTF-16BE->STRING-AREF SB!IMPL::STRING->UTF-16BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LOGAND SB!IMPL::BITS 65534)
; ==>
;   SB!IMPL::BITS
; 
; note: deleting unreachable code

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536))
;            (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS))
;            (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS)))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;               (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
;       (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;               (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL)
;             (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296))
; --> LET* 
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::HIGH
; 
; note: deleting unreachable code

;     (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2))
;             (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))
; --> LET* 
; ==>
;   SB!IMPL::SAP
; 
; note: deleting unreachable code

;     (+ SB!IMPL::TAIL 2)
; ==>
;   SB!IMPL::TAIL
; 
; note: deleting unreachable code

;     (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)
; --> SB!KERNEL:%DPB 
; ==>
;   SB!IMPL::LOW
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-32LE))
; x-compiling (DEFUN CHAR->UTF-32LE ...)
; x-compiling (DECLAIM (INLINE CHAR->UTF-32BE))
; x-compiling (DEFUN CHAR->UTF-32BE ...)
; x-compiling (DEFUN STRING->UTF-32LE ...)
; x-compiling (DEFUN STRING->UTF-32BE ...)
; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF32-CHARACTER ...)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF32-CHARACTER)
; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF32-CHARACTER ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION
;      SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER)
; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER PROGN DEFUN PROGN 
; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES)
;    :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER)
; x-compiling (DEFMACRO DEFINE-UTF-32->STRING ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-32->STRING)
; --> PROGN SB!IMPL::DEFINE-UTF-32->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN 
; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET 
; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-ARRAY.
; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) T
;      (CODE-CHAR 65533) 4
;      (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #))
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UTF-32LE->STRING-AREF SB!IMPL::STRING->UTF-32LE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) ...)

; file: /«PKGBUILDDIR»/src/code/external-formats/enc-utf.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE)
;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) T
;      (CODE-CHAR 65533) 4
;      (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
;          (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS))
;      4
;      (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD)))
;        (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #))
;            (CODE-CHAR SB!IMPL::CODE)
;            (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4)))
;      SB!IMPL::UTF-32BE->STRING-AREF SB!IMPL::STRING->UTF-32BE)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 88 notes
; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/external-formats/enc-utf.lisp-obj-tmp written
; compilation finished in 0:00:17.059
; compiling file "/«PKGBUILDDIR»/src/code/parse-defmacro-errors.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!KERNEL")
; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; x-compiling (DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; x-compiling (DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...)
; x-compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...)
; x-compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...)
; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/parse-defmacro-errors.lisp-obj-tmp written
; compilation finished in 0:00:00.511
; compiling file "/«PKGBUILDDIR»/src/code/full-eval.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!EVAL")
; x-compiling (DEFVAR *SPECIAL* ...)
; x-compiling (DEFVAR *MACRO* ...)
; x-compiling (DEFVAR *SYMBOL-MACRO* ...)
; x-compiling (DEFVAR *NOT-PRESENT* ...)
; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...)
; x-compiling (DEFINE-CONDITION ARG-COUNT-PROGRAM-ERROR ...)
; x-compiling (DEFUN ARG-COUNT-PROGRAM-ERROR ...)
; x-compiling (DEFMACRO PROGRAM-DESTRUCTURING-BIND ...)
; x-compiling (DEFUN IP-ERROR ...)
; x-compiling (DEFMACRO NCONC-2 ...)
; x-compiling (DEFUN FABRICATE-NEW-NATIVE-ENVIRONMENT ...)
; x-compiling (DEFSTRUCT (ENV #) ...)
; x-compiling (DEFUN MAKE-ENV ...)
; x-compiling (DEFUN MAKE-NULL-ENVIRONMENT ...)
; x-compiling (DECLAIM (INLINE PUSH-VAR))
; x-compiling (DEFUN PUSH-VAR ...)
; x-compiling (DECLAIM (INLINE PUSH-FUN))
; x-compiling (DEFUN PUSH-FUN ...)
; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFINE-GET-BINDING GET-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-FBINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-EXPANDER-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-SYMBOL-EXPANSION-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-TAG-BINDING ...)
; x-compiling (DEFINE-GET-BINDING GET-BLOCK-BINDING ...)
; x-compiling (DEFUN DECLARED-SPECIALS ...)
; x-compiling (DEFUN SPECIAL-BINDINGS ...)
; x-compiling (DEFUN SPECIALP ...)
; x-compiling (DEFUN BINDING-NAME ...)
; x-compiling (DEFUN BINDING-VALUE ...)
; x-compiling (DEFUN SUPPLIED-P-PARAMETER ...)
; x-compiling (DEFUN KEYWORD-NAME ...)
; x-compiling (DEFUN KEYWORD-KEY ...)
; x-compiling (DEFUN KEYWORD-DEFAULT-VALUE ...)
; x-compiling (DEFUN PARSE-ARGUMENTS ...)
; x-compiling (DEFUN EVAL-NEXT-LET*-BINDING ...)
; x-compiling (DEFUN CALL-WITH-NEW-ENV ...)
; x-compiling (DEFUN CALL-WITH-NEW-ENV-FULL-PARSING ...)

; file: /«PKGBUILDDIR»/src/code/full-eval.lisp
; in: DEFUN SET-VARIABLE
;     (SETF (SB!ALIEN-INTERNALS:%HEAP-ALIEN TYPE) SB!EVAL::VALUE)
; ==>
;   (SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN TYPE SB!EVAL::VALUE)
; 
; note: unable to optimize because: info not constant; can't open code
; x-compiling (DEFUN SET-VARIABLE ...)
; x-compiling (DEFUN GET-VARIABLE ...)
; x-compiling (DEFUN GET-FUNCTION ...)
; x-compiling (DEFUN LAMBDAP ...)
; x-compiling (DEFUN PARSE-LAMBDA-HEADERS ...)
; x-compiling (DEFUN EVAL-LAMBDA ...)
; x-compiling (DEFUN EVAL-PROGN ...)
; x-compiling (DEFUN EVAL-IF ...)
; x-compiling (DEFUN EVAL-LET ...)
; x-compiling (DEFUN EVAL-LET* ...)
; x-compiling (DEFUN EVAL-LOCAL-FUNCTION-DEF ...)
; x-compiling (DEFUN EVAL-FLET ...)
; x-compiling (DEFUN EVAL-LABELS ...)
; x-compiling (DEFUN EVAL-LOCAL-MACRO-DEF ...)
; x-compiling (DEFUN EVAL-MACROLET ...)
; x-compiling (DEFUN EVAL-SYMBOL-MACROLET ...)
; x-compiling (DEFUN EVAL-PROGV ...)
; x-compiling (DEFUN EVAL-FUNCTION ...)
; x-compiling (DEFUN EVAL-EVAL-WHEN ...)
; x-compiling (DEFUN EVAL-QUOTE ...)
; x-compiling (DEFUN EVAL-SETQ ...)
; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-CALL ...)
; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-PROG1 ...)
; x-compiling (DEFUN EVAL-CATCH ...)
; x-compiling (DEFUN EVAL-TAGBODY ...)
; x-compiling (DEFUN EVAL-GO ...)
; x-compiling (DEFUN EVAL-BLOCK ...)
; x-compiling (DEFUN EVAL-RETURN-FROM ...)
; x-compiling (DEFUN EVAL-THE ...)
; x-compiling (DEFUN EVAL-UNWIND-PROTECT ...)
; x-compiling (DEFUN EVAL-THROW ...)
; x-compiling (DEFUN EVAL-LOAD-TIME-VALUE ...)
; x-compiling (DEFUN EVAL-LOCALLY ...)
; x-compiling (DEFUN EVAL-ARGS ...)
; x-compiling (DEFUN EVAL-WITH-PINNED-OBJECTS ...)
; x-compiling (DEFINE-CONDITION MACROEXPAND-HOOK-TYPE-ERROR ...)
; x-compiling (DEFVAR *EVAL-DISPATCH-FUNCTIONS* ...)
; x-compiling (DECLAIM (INLINE %%EVAL))
; x-compiling (DEFUN %%EVAL ...)
; x-compiling (DEFUN %EVAL ...)
; x-compiling (DEFUN %APPLY ...)
; x-compiling (DEFUN INTERPRETED-APPLY ...)
; x-compiling (DEFINE-CONDITION INTERPRETER-ENVIRONMENT-TOO-COMPLEX-ERROR ...)
; x-compiling (DEFINE-CONDITION COMPILER-ENVIRONMENT-TOO-COMPLEX-ERROR ...)
; x-compiling (DEFUN PREPARE-FOR-COMPILE ...)
; x-compiling (DEFUN MAKE-ENV-FROM-NATIVE-ENVIRONMENT ...)
; x-compiling (DEFUN EVAL-IN-ENVIRONMENT ...)

; file: /«PKGBUILDDIR»/src/code/full-eval.lisp
; in: DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR
;     (SLOT-BOUNDP CONDITION 'CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-BOUNDP
; 
; compilation unit finished
;   Undefined function:
;     SLOT-BOUNDP
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; x-compiling (DEFUN EVAL-IN-NATIVE-ENVIRONMENT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/full-eval.lisp-obj-tmp written
; compilation finished in 0:00:05.834
; compiling file "/«PKGBUILDDIR»/src/code/bit-bash.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFTYPE BIT-OFFSET ...)
; x-compiling (DEF WORD-LOGICAL-NOT ...)
; x-compiling (DEF WORD-LOGICAL-AND ...)
; x-compiling (DEF WORD-LOGICAL-OR ...)
; x-compiling (DEF WORD-LOGICAL-XOR ...)
; x-compiling (DEF WORD-LOGICAL-NOR ...)
; x-compiling (DEF WORD-LOGICAL-EQV ...)
; x-compiling (DEF WORD-LOGICAL-NAND ...)
; x-compiling (DEF WORD-LOGICAL-ANDC1 ...)
; x-compiling (DEF WORD-LOGICAL-ANDC2 ...)
; x-compiling (DEF WORD-LOGICAL-ORC1 ...)
; x-compiling (DEF WORD-LOGICAL-ORC2 ...)
; x-compiling (DEFUN SHIFT-TOWARDS-START ...)
; x-compiling (DEFUN SHIFT-TOWARDS-END ...)
; x-compiling (DECLAIM (INLINE START-MASK ...))
; x-compiling (DEFUN START-MASK ...)
; x-compiling (DEFUN END-MASK ...)
; x-compiling (DECLAIM (INLINE WORD-SAP-REF ...))
; x-compiling (DEFUN WORD-SAP-REF ...)
; x-compiling (DEFUN %SET-WORD-SAP-REF ...)
; x-compiling (DEFMACRO !DEFINE-SAP-FIXER ...)
; x-compiling (DEFMACRO !DEFINE-BYTE-BASHERS ...)
; x-compiling (!DEFINE-SAP-FIXER 1)
; x-compiling (!DEFINE-SAP-FIXER 2)
; x-compiling (!DEFINE-SAP-FIXER 4)
; x-compiling (!DEFINE-SAP-FIXER 8)
; x-compiling (!DEFINE-SAP-FIXER 16)
; x-compiling (!DEFINE-SAP-FIXER 32)
; x-compiling (!DEFINE-BYTE-BASHERS 1)
; x-compiling (!DEFINE-BYTE-BASHERS 2)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: PROGN (!DEFINE-SAP-FIXER 1)
;     (SB!VM::!DEFINE-BYTE-BASHERS 4)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2416 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB4 THE 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2675 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOCALLY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS IF PROGN 
; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2669 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2794 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C

; ==>
;   (SB!C::%TYPE-CHECK-ERROR/C #:G2873 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of TYPE-CHECK-ERROR/C
; x-compiling (!DEFINE-BYTE-BASHERS 4)
; x-compiling (!DEFINE-BYTE-BASHERS 8)
; x-compiling (!DEFINE-BYTE-BASHERS 16)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: PROGN (!DEFINE-SAP-FIXER 1)
;     (SB!VM::!DEFINE-BYTE-BASHERS 32)
; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB!KERNEL::CONSTANT-UB32-BASH BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF LET LET MULTIPLE-VALUE-BIND 
; ==>
;   (LET ((#:G4127 'SB!C::DUMMY))
;     (UNLESS (TYPEP #:G4127 '(UNSIGNED-BYTE 29))
;       (SB!C::%TYPE-CHECK-ERROR #:G4127 '(UNSIGNED-BYTE 29)))
;     (VALUES #:G4127))
; 
; note: doing signed word to integer coercion (cost 20) to #:G4127

; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL::CONSTANT-UB32-BASH BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF LET LET MULTIPLE-VALUE-BIND 
; ==>
;   (LET ((#:G4161 'SB!C::DUMMY))
;     (UNLESS (TYPEP #:G4161 '(UNSIGNED-BYTE 29))
;       (SB!C::%TYPE-CHECK-ERROR #:G4161 '(UNSIGNED-BYTE 29)))
;     (VALUES #:G4161))
; 
; note: doing signed word to integer coercion (cost 20) to #:G4161
; x-compiling (!DEFINE-BYTE-BASHERS 32)
; x-compiling (DEFUN COPY-BYTE-VECTOR-TO-SYSTEM-AREA ...)
; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-MASK+ ...)
; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-SHIFT+ ...)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: DEF %BIT-POSITION/0
;     (SB!VM::DEF SB!KERNEL:%BIT-POSITION/0 (LOGANDC2 4294967295))
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF 
; ==>
;   (LET* ((SB!VM::WORD-OFFSET SB!VM::LAST-WORD)
;          (SB!EXT:WORD
;           (LOGAND SB!VM::END-MASK (SB!VM::GET-WORD SB!VM::WORD-OFFSET))))
;     (DECLARE (SB!EXT:WORD SB!EXT:WORD)
;              (SB!INT:INDEX SB!VM::WORD-OFFSET))
;     (UNLESS (ZEROP SB!EXT:WORD)
;       (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF SB!EXT:WORD #))
;       (UNLESS (ZEROP SB!EXT:WORD)
;         (SB!VM::FOUND (SB!VM::END-BIT SB!EXT:WORD) SB!VM::WORD-OFFSET)))
;     (DECF SB!VM::WORD-OFFSET)
;     (LOOP
;      (WHEN (< SB!VM::WORD-OFFSET SB!VM::FIRST-WORD)
;        (RETURN-FROM SB!KERNEL:%BIT-POSITION/0 NIL))
;      (SETF SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
;      (UNLESS (ZEROP SB!EXT:WORD)
;        (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF #))
;        (UNLESS (ZEROP SB!EXT:WORD) (SB!VM::FOUND # SB!VM::WORD-OFFSET)))
;      (DECF SB!VM::WORD-OFFSET)))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN WHEN IF PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN WHEN IF PROGN 
; --> SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF ZEROP = EQL IF EQL EQ 
; --> IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN UNLESS IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEF %BIT-POSITION/0 ...)

; file: /«PKGBUILDDIR»/src/code/bit-bash.lisp
; in: DEF %BIT-POSITION/1
;     (SB!VM::DEF SB!KERNEL:%BIT-POSITION/1 (IDENTITY))
; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 0) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND 
; ==>
;   (LOGAND 'SB!C::DUMMY 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4294967295 0), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967295 0), not a (SIGNED-BYTE 32).
;       etc.

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF 
; ==>
;   (LET* ((SB!VM::WORD-OFFSET SB!VM::LAST-WORD)
;          (SB!EXT:WORD
;           (LOGAND SB!VM::END-MASK (SB!VM::GET-WORD SB!VM::WORD-OFFSET))))
;     (DECLARE (SB!EXT:WORD SB!EXT:WORD)
;              (SB!INT:INDEX SB!VM::WORD-OFFSET))
;     (UNLESS (ZEROP SB!EXT:WORD)
;       (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF SB!EXT:WORD #))
;       (UNLESS (ZEROP SB!EXT:WORD)
;         (SB!VM::FOUND (SB!VM::END-BIT SB!EXT:WORD) SB!VM::WORD-OFFSET)))
;     (DECF SB!VM::WORD-OFFSET)
;     (LOOP
;      (WHEN (< SB!VM::WORD-OFFSET SB!VM::FIRST-WORD)
;        (RETURN-FROM SB!KERNEL:%BIT-POSITION/1 NIL))
;      (SETF SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
;      (UNLESS (ZEROP SB!EXT:WORD)
;        (WHEN (= SB!VM::WORD-OFFSET SB!VM::FIRST-WORD) (SETF #))
;        (UNLESS (ZEROP SB!EXT:WORD) (SB!VM::FOUND # SB!VM::WORD-OFFSET)))
;      (DECF SB!VM::WORD-OFFSET)))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (SB!VM::GET-WORD SB!VM::WORD-OFFSET))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN WHEN IF PROGN SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN WHEN IF PROGN 
; --> SETF 
; ==>
;   (SETQ SB!EXT:WORD (LOGAND SB!EXT:WORD SB!VM::START-MASK))
; 
; note: doing signed word to integer coercion (cost 20) to WORD

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF ZEROP = EQL IF EQL EQ 
; --> IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; --> INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* LOOP BLOCK TAGBODY PROGN UNLESS 
; --> IF PROGN UNLESS IF PROGN SB!VM::FOUND SB!VM::START-BIT BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET IF LET* UNLESS IF PROGN UNLESS IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB!C::Y SB!C::X)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of IF-EQ

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - INTEGER-LENGTH LOGAND - 
; ==>
;   (SB!KERNEL:%NEGATE (THE NUMBER SB!VM::X))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD, for:
;       the first argument of static-fun %Negate

; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK UNLESS IF PROGN LET* FLET BLOCK - 
; ==>
;   (INTEGER-LENGTH (LOGAND SB!VM::X (- SB!VM::X)))
; 
; note: doing unsigned word to integer coercion (cost 20)
; x-compiling (DEF %BIT-POSITION/1 ...)
; 
; compilation unit finished
;   printed 39 notes
; x-compiling (DEFUN %BIT-POSITION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/bit-bash.lisp-obj-tmp written
; compilation finished in 0:00:44.304
; compiling file "/«PKGBUILDDIR»/src/code/target-load.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFVAR *LOAD-SOURCE-DEFAULT-TYPE* ...)
; x-compiling (DECLAIM (TYPE # ...))
; x-compiling (DEFVAR *LOAD-TRUENAME* ...)
; x-compiling (DEFVAR *LOAD-PATHNAME* ...)
; x-compiling (DEFUN LOAD-AS-SOURCE ...)
; x-compiling (DEFINE-CONDITION FASL-HEADER-MISSING ...)
; x-compiling (DEFUN LOAD ...)
; x-compiling (DEFUN PROBE-LOAD-DEFAULTS ...)
; x-compiling (DEFUN LOAD-CODE ...)
; x-compiling (DEFVAR *!INITIAL-ASSEMBLER-ROUTINES*)
; x-compiling (DEFUN !LOADER-COLD-INIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/target-load.lisp-obj-tmp written
; compilation finished in 0:00:01.818
; compiling file "/«PKGBUILDDIR»/src/compiler/arm/sanctify.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!VM")
; x-compiling (DEFUN SANCTIFY-FOR-EXECUTION ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/arm/sanctify.lisp-obj-tmp written
; compilation finished in 0:00:00.092
; compiling file "/«PKGBUILDDIR»/src/compiler/target-dump.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!FASL")
; x-compiling (DEFUN DUMP-CHARACTERS-OF-STRING ...)
; x-compiling (DEFUN DUMP-SIMPLE-CHARACTER-STRING ...)
; x-compiling (DEFUN DUMP-RAW-BYTES ...)
; x-compiling (DEFUN DUMP-MULTI-DIM-ARRAY ...)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/target-dump.lisp-obj-tmp written
; compilation finished in 0:00:00.280
; compiling file "/«PKGBUILDDIR»/src/code/cold-init.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFUN !UNINTERN-INIT-ONLY-STUFF ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN !COLD-LOSE ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN CRITICALLY-UNREACHABLE ...)
; x-compiling (DEFVAR *!REVERSED-COLD-TOPLEVELS*)
; x-compiling (!DEFVAR *!REVERSED-COLD-SETF-MACROS* ...)
; x-compiling (!DEFVAR *!REVERSED-COLD-DEFUNS* ...)
; x-compiling (DEFVAR *!LOAD-TIME-VALUES*)
; x-compiling (DEFUN !COLD-INIT ...)
; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXIT ...)
; x-compiling (DEFUN THREAD-INIT-OR-REINIT ...)
; x-compiling (DEFUN REINIT ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cold-init.lisp-obj-tmp written
; compilation finished in 0:00:00.930
; compiling file "/«PKGBUILDDIR»/src/code/cl-specials.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "COMMON-LISP")
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SB-XC:PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/obj/from-xc/src/code/cl-specials.lisp-obj-tmp written
; compilation finished in 0:00:00.107
; compiling file "/«PKGBUILDDIR»/src/compiler/late-proclaim.lisp" (written 30 MAY 2015 05:47:20 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; x-compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*))
; x-compiling (!COLD-INIT-FORMS (MAPCAR # ...))
; x-compiling (!COLD-INIT-FORMS (MAKUNBOUND #))
; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT)

; /«PKGBUILDDIR»/obj/from-xc/src/compiler/late-proclaim.lisp-obj-tmp written
; compilation finished in 0:00:00.046
; compiling file "/«PKGBUILDDIR»/src/code/defboot.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...)
; x-compiling (DEFUN LIST-OF-SYMBOLS-P ...)
; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...)
; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...)
; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...)
; x-compiling (DEFMACRO-MUNDANELY COND ...)
; x-compiling (DEFMACRO-MUNDANELY WHEN ...)
; x-compiling (DEFMACRO-MUNDANELY UNLESS ...)
; x-compiling (DEFMACRO-MUNDANELY AND ...)
; x-compiling (DEFMACRO-MUNDANELY OR ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEFMACRO-MUNDANELY PROG1 ...)
; x-compiling (DEFMACRO-MUNDANELY PROG2 ...)
; x-compiling (DEFUN INLINE-FUN-NAME-P ...)
; x-compiling (DEFMACRO-MUNDANELY DEFUN ...)
; x-compiling (DEFUN %DEFUN ...)
; x-compiling (DEFUN !%QUIETLY-DEFUN ...)
; x-compiling (DEFMACRO-MUNDANELY DEFVAR ...)
; x-compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...)
; x-compiling (DEFUN %COMPILER-DEFVAR ...)
; x-compiling (DEFUN %DEFVAR ...)
; x-compiling (DEFUN %DEFPARAMETER ...)
; x-compiling (DEFMACRO-MUNDANELY DO ...)
; x-compiling (DEFMACRO-MUNDANELY DO* ...)
; x-compiling (DEFMACRO-MUNDANELY DOTIMES ...)
; x-compiling (DEFMACRO-MUNDANELY DOLIST ...)
; x-compiling (SB-XC:PROCLAIM (QUOTE #))
; x-compiling (SETF (INFO :VARIABLE ...) ...)
; x-compiling (SETF (INFO :VARIABLE ...) ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...)
; x-compiling (DEFMACRO-MUNDANELY RESTART-BIND ...)
; x-compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...)
; x-compiling (DEFMACRO-MUNDANELY RESTART-CASE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...)
; x-compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...)
; x-compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...)
; x-compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...)
; x-compiling (DEFMACRO-MUNDANELY RETURN ...)
; x-compiling (DEFMACRO-MUNDANELY LAMBDA ...)
; x-compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...)
; x-compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/defboot.lisp-obj-tmp written
; compilation finished in 0:00:02.559
; compiling file "/«PKGBUILDDIR»/src/code/destructuring-bind.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/destructuring-bind.lisp-obj-tmp written
; compilation finished in 0:00:00.069
; compiling file "/«PKGBUILDDIR»/src/code/setf.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...)
; x-compiling (DEFUN MACROEXPAND-FOR-SETF ...)
; x-compiling (LABELS (# # ...) ...)
; x-compiling (DEFMACRO-MUNDANELY ROTATEF ...)
; x-compiling (DEFMACRO-MUNDANELY PUSH ...)
; x-compiling (DEFMACRO-MUNDANELY PUSHNEW ...)
; x-compiling (DEFMACRO-MUNDANELY POP ...)
; x-compiling (DEFMACRO-MUNDANELY REMF ...)
; x-compiling (DEFUN %REMF ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: DECLAIM (INLINE XSUBTRACT)
;     (DECLAIM (INLINE SB!IMPL::XSUBTRACT))
; --> EVAL-WHEN 
; ==>
;   (SB!C::%PROCLAIM '(INLINE SB!IMPL::XSUBTRACT) (SB!C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB!IMPL::XSUBTRACT to be INLINE, but 1253 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.
; x-compiling (DECLAIM (INLINE XSUBTRACT))
; x-compiling (DEFUN XSUBTRACT ...)
; x-compiling (FLET (#) ...)
; x-compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...)
; x-compiling (DEFUN %DEFSETF ...)
; x-compiling (DEFUN !QUIETLY-DEFSETF ...)
; x-compiling (DEF!MACRO SB-XC:DEFSETF ...)
; x-compiling (DEFUN COLLECT-SETF-TEMPS ...)
; x-compiling (DEFUN MAKE-SIMPLE-SETF-QUINTUPLE ...)
; x-compiling (DEFUN MAKE-SETF-QUINTUPLE ...)
; x-compiling (DEFUN EXPAND-RMW-MACRO ...)
; x-compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...)
; x-compiling (SB-XC:DEFSETF GET ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: SB-XC:DEFSETF GETHASH
;     (SB-XC:DEFSETF GETHASH
;                    (SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL SB!IMPL::DEFAULT
;                     &ENVIRONMENT SB!IMPL::E)
;                    (SB!IMPL::NEWVAL)
;                    (LET ((SB!IMPL::CONSTP
;                           (SB-XC:CONSTANTP SB!IMPL::DEFAULT SB!IMPL::E)))
;                      (SB!INT:QUASIQUOTE
;                       (SB!KERNEL:%PUTHASH
;                        #S(SB!IMPL::COMMA :EXPR SB!IMPL::KEY :KIND 0)
;                        #S(SB!IMPL::COMMA :EXPR SB!IMPL::HASHTABLE :KIND 0)
;                        #S(SB!IMPL::COMMA :EXPR # :KIND 0)))))
; --> EVAL-WHEN 
; ==>
;   (SB!IMPL::%DEFSETF 'GETHASH
;                      (CONS 1
;                            (LAMBDA (#:FORM #:ENV SB!IMPL::NEWVAL)
;                              (LET* ()
;                                (LET #
;                                  #)
;                                (LET* #
;                                  #))))
;                      '(SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL
;                        SB!IMPL::DEFAULT &ENVIRONMENT SB!IMPL::E)
;                      NIL 'NIL)
; 
; caught STYLE-WARNING:
;   defining setf macro for GETHASH when (SETF GETHASH) is also defined
; x-compiling (SB-XC:DEFSETF GETHASH ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: SB-XC:DEFINE-SETF-EXPANDER LDB
;     (SB-XC:DEFINE-SETF-EXPANDER SB-XC:LDB
;         (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV)
;       "The first argument is a byte specifier. The second is any place form
;   acceptable to SETF. Replace the specified byte of the number in this
;   place with bits from the low-order end of the new value."
;       (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV))
;       (MULTIPLE-VALUE-BIND
;           (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER
;            SB!IMPL::GETTER)
;           (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
;         (IF (AND (CONSP SB!IMPL::BYTESPEC) (EQ # 'SB-XC:BYTE))
;             (LET (# # #)
;               (VALUES # # # # #))
;             (LET (# #)
;               (VALUES # # # # #)))))
; --> EVAL-WHEN 
; ==>
;   (SB!IMPL::%DEFSETF 'SB-XC:LDB
;                      (LAMBDA (#:WHOLE778 #:ENVIRONMENT779)
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (DECLARE #)
;                            (BLOCK SB-XC:LDB #))))
;                      '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT
;                        SB!IMPL::ENV)
;                      NIL
;                      '"The first argument is a byte specifier. The second is any place form
; acceptable to SETF. Replace the specified byte of the number in this
; place with bits from the low-order end of the new value.")
; 
; caught STYLE-WARNING:
;   defining setf macro for LDB when (SETF LDB) is also defined
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...)

; file: /«PKGBUILDDIR»/src/code/setf.lisp
; in: SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD
;     (SB-XC:DEFINE-SETF-EXPANDER SB-XC:MASK-FIELD
;         (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV)
;       "The first argument is a byte specifier. The second is any place form
;   acceptable to SETF. Replaces the specified byte of the number in this place
;   with bits from the corresponding position in the new value."
;       (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV))
;       (MULTIPLE-VALUE-BIND
;           (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER
;            SB!IMPL::GETTER)
;           (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV)
;         (LET ((SB!IMPL::BTEMP #) (SB!IMPL::GNUVAL #))
;           (VALUES (CONS SB!IMPL::BTEMP SB!IMPL::DUMMIES)
;                   (CONS SB!IMPL::BYTESPEC SB!IMPL::VALS) (LIST SB!IMPL::GNUVAL)
;                   (SB!INT:QUASIQUOTE #) (SB!INT:QUASIQUOTE #)))))
; --> EVAL-WHEN 
; ==>
;   (SB!IMPL::%DEFSETF 'SB-XC:MASK-FIELD
;                      (LAMBDA (#:WHOLE822 #:ENVIRONMENT823)
;                        (LET* ()
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# # #)
;                            (DECLARE #)
;                            (BLOCK SB-XC:MASK-FIELD #))))
;                      '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT
;                        SB!IMPL::ENV)
;                      NIL
;                      '"The first argument is a byte specifier. The second is any place form
; acceptable to SETF. Replaces the specified byte of the number in this place
; with bits from the corresponding position in the new value.")
; 
; caught STYLE-WARNING:
;   defining setf macro for MASK-FIELD when (SETF MASK-FIELD) is also defined
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...)
; x-compiling (DEFUN SETF-EXPAND-THE ...)
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...)
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
; x-compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/setf.lisp-obj-tmp written
; compilation finished in 0:00:03.273
; compiling file "/«PKGBUILDDIR»/src/code/macros.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY ASSERT ...)
; x-compiling (DEFUN ASSERT-PROMPT ...)
; x-compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...)
; x-compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...)

; file: /«PKGBUILDDIR»/src/code/macros.lisp
; in: DEFUN SB!C::%DEFINE-SYMBOL-MACRO
;     (CASE SB!IMPL::KIND
;       (:ALIEN "an alien variable")
;       (:CONSTANT "a constant")
;       (:SPECIAL "a special variable")
;       (:GLOBAL "a global variable")
;       (T SB!IMPL::KIND))
; --> LET COND IF COND IF COND IF COND IF COND THE PROGN 
; ==>
;   SB!IMPL::KIND
; 
; note: deleting unreachable code
; x-compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...)
; x-compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...)
; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; x-compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...)
; x-compiling (DEFUN CASE-BODY ...)
; x-compiling (DEFUN CASE-BODY-AUX ...)
; x-compiling (DEFMACRO-MUNDANELY CASE ...)
; x-compiling (DEFMACRO-MUNDANELY CCASE ...)
; x-compiling (DEFMACRO-MUNDANELY ECASE ...)
; x-compiling (DEFMACRO-MUNDANELY TYPECASE ...)
; x-compiling (DEFMACRO-MUNDANELY CTYPECASE ...)
; x-compiling (DEFMACRO-MUNDANELY ETYPECASE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...)
; x-compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...)
; x-compiling (DEFMACRO-MUNDANELY NTH-VALUE ...)
; x-compiling (DEFMACRO-MUNDANELY DECLAIM ...)
; x-compiling (DECLAIM (FTYPE # ...))
; x-compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...)
; x-compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...)
; 
; compilation unit finished
;   printed 1 note
; x-compiling (DEFUN FUNARG-BIND/CALL-FORMS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/macros.lisp-obj-tmp written
; compilation finished in 0:00:01.550
; compiling file "/«PKGBUILDDIR»/src/code/loop.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!LOOP")
; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...)
; x-compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...)
; x-compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...)
; x-compiling (DEFUN MAKE-LOOP-MINIMAX ...)
; x-compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...)
; x-compiling (DEFUN LOOP-TEQUAL ...)
; x-compiling (DEFUN LOOP-TASSOC ...)
; x-compiling (DEFUN LOOP-TMEMBER ...)
; x-compiling (DEFUN LOOP-LOOKUP-KEYWORD ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...)
; x-compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...)
; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFVAR *LOOP-UNIVERSE*)
; x-compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...)
; x-compiling (DEFUN LOOP-MAKE-PSETQ ...)
; x-compiling (DEFUN LOOP-MAKE-DESETQ ...)
; x-compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...)
; x-compiling (DEFVAR *LOOP-SOURCE-CODE*)
; x-compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*)
; x-compiling (DEFVAR *LOOP-SOURCE-CONTEXT*)
; x-compiling (DEFVAR *LOOP-NAMES*)
; x-compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*)
; x-compiling (DEFVAR *LOOP-NAMED-VARS*)
; x-compiling (DEFVAR *LOOP-VARS*)
; x-compiling (DEFVAR *LOOP-DECLARATIONS*)
; x-compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*)
; x-compiling (DEFVAR *LOOP-DESETQ*)
; x-compiling (DEFVAR *LOOP-WRAPPERS*)
; x-compiling (DEFVAR *LOOP-BIND-STACK*)
; x-compiling (DEFVAR *LOOP-PROLOGUE*)
; x-compiling (DEFVAR *LOOP-BEFORE-LOOP*)
; x-compiling (DEFVAR *LOOP-BODY*)
; x-compiling (DEFVAR *LOOP-AFTER-BODY*)
; x-compiling (DEFVAR *LOOP-EMITTED-BODY*)
; x-compiling (DEFVAR *LOOP-EPILOGUE*)
; x-compiling (DEFVAR *LOOP-AFTER-EPILOGUE*)
; x-compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*)
; x-compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*)
; x-compiling (DEFVAR *LOOP-WHEN-IT-VAR*)
; x-compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*)
; x-compiling (DEFVAR *LOOP-COLLECTION-CRUFT*)
; x-compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...)
; x-compiling (DEFUN LOOP-CONTEXT ...)
; x-compiling (DEFUN LOOP-ERROR ...)
; x-compiling (DEFUN LOOP-WARN ...)
; x-compiling (DEFUN LOOP-CHECK-DATA-TYPE ...)
; x-compiling (DEFUN TRANSFORM-DESTRUCTURING ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND ...)
; x-compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...)
; x-compiling (DEFUN LOOP-TRANSLATE ...)
; x-compiling (DEFUN LOOP-ITERATION-DRIVER ...)
; x-compiling (DEFUN LOOP-POP-SOURCE ...)
; x-compiling (DEFUN LOOP-GET-FORM ...)
; x-compiling (DEFUN LOOP-GET-COMPOUND-FORM ...)
; x-compiling (DEFUN LOOP-GET-PROGN ...)
; x-compiling (DEFUN LOOP-CONSTRUCT-RETURN ...)
; x-compiling (DEFUN LOOP-PSEUDO-BODY ...)
; x-compiling (DEFUN LOOP-EMIT-BODY ...)
; x-compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...)
; x-compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...)
; x-compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...)
; x-compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...)
; x-compiling (DEFUN LOOP-TYPED-INIT ...)
; x-compiling (DEFUN LOOP-OPTIONAL-TYPE ...)
; x-compiling (DEFUN LOOP-BIND-BLOCK ...)
; x-compiling (DEFUN CHECK-VAR-NAME ...)
; x-compiling (DEFUN LOOP-MAKE-VAR ...)
; x-compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...)
; x-compiling (DEFUN LOOP-DECLARE-VAR ...)
; x-compiling (DEFUN LOOP-MAYBE-BIND-FORM ...)
; x-compiling (DEFUN LOOP-DO-IF ...)
; x-compiling (DEFUN LOOP-DO-INITIALLY ...)
; x-compiling (DEFUN LOOP-DO-FINALLY ...)
; x-compiling (DEFUN LOOP-DO-DO ...)
; x-compiling (DEFUN LOOP-DO-NAMED ...)
; x-compiling (DEFUN LOOP-DO-RETURN ...)
; x-compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...)
; x-compiling (DEFUN LOOP-GET-COLLECTION-INFO ...)
; x-compiling (DEFUN LOOP-LIST-COLLECTION ...)
; x-compiling (DEFUN LOOP-SUM-COLLECTION ...)
; x-compiling (DEFUN LOOP-MAXMIN-COLLECTION ...)
; x-compiling (DEFUN LOOP-DO-ALWAYS ...)
; x-compiling (DEFUN LOOP-DO-THEREIS ...)
; x-compiling (DEFUN LOOP-DO-WHILE ...)
; x-compiling (DEFUN LOOP-DO-REPEAT ...)
; x-compiling (DEFUN LOOP-DO-WITH ...)
; x-compiling (DEFUN LOOP-HACK-ITERATION ...)
; x-compiling (DEFUN LOOP-DO-FOR ...)
; x-compiling (DEFUN LOOP-WHEN-IT-VAR ...)
; x-compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...)
; x-compiling (DEFUN LOOP-FOR-ACROSS ...)
; x-compiling (DEFUN LOOP-LIST-STEP ...)
; x-compiling (DEFUN LOOP-FOR-ON ...)
; x-compiling (DEFUN LOOP-FOR-IN ...)
; x-compiling (DEFSTRUCT (LOOP-PATH # ...) ...)
; x-compiling (DEFUN ADD-LOOP-PATH ...)
; x-compiling (DEFUN LOOP-FOR-BEING ...)
; x-compiling (DEFUN LOOP-NAMED-VAR ...)
; x-compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...)
; x-compiling (DEFUN LOOP-SEQUENCER ...)
; x-compiling (DEFUN LOOP-FOR-ARITHMETIC ...)
; x-compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...)
; x-compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...)
; x-compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...)
; x-compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...)
; x-compiling (DEFUN LOOP-STANDARD-EXPANSION ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...)
; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/loop.lisp-obj-tmp written
; compilation finished in 0:00:07.184
; compiling file "/«PKGBUILDDIR»/src/code/cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEF!MACRO CAS ...)
; x-compiling (DEFUN GET-CAS-EXPANSION ...)
; x-compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...)
; x-compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...)
; x-compiling (DEF!MACRO DEFCAS ...)
; x-compiling (DEF!MACRO COMPARE-AND-SWAP ...)
; x-compiling (DEF %COMPARE-AND-SWAP-CAR ...)
; x-compiling (DEF %COMPARE-AND-SWAP-CDR ...)
; x-compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...)
; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...)
; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; x-compiling (DEF %COMPARE-AND-SWAP-SVREF ...)
; x-compiling (DEF-FROB %ATOMIC-INC-SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEF-FROB %ATOMIC-DEC-SYMBOL-GLOBAL-VALUE ...)
; x-compiling (DEF-FROB %ATOMIC-INC-CAR ...)
; x-compiling (DEF-FROB %ATOMIC-DEC-CAR ...)
; x-compiling (DEF-FROB %ATOMIC-INC-CDR ...)
; x-compiling (DEF-FROB %ATOMIC-DEC-CDR ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/cas.lisp-obj-tmp written
; compilation finished in 0:00:01.055
; compiling file "/«PKGBUILDDIR»/src/code/late-cas.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFCAS CAR ...)
; x-compiling (DEFCAS CDR ...)
; x-compiling (DEFCAS FIRST ...)
; x-compiling (DEFCAS REST ...)
; x-compiling (DEFCAS SYMBOL-PLIST ...)
; x-compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...)
; x-compiling (DEFINE-CAS-EXPANDER SVREF ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-cas.lisp-obj-tmp written
; compilation finished in 0:00:00.639
; compiling file "/«PKGBUILDDIR»/src/code/late-format.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!FORMAT")
; x-compiling (DEFINE-CONDITION FORMAT-ERROR ...)
; x-compiling (DEFUN %PRINT-FORMAT-ERROR ...)
; x-compiling (DEF!STRUCT FORMAT-DIRECTIVE ...)
; x-compiling (DEF!METHOD PRINT-OBJECT ...)
; x-compiling (DEFUN TOKENIZE-CONTROL-STRING ...)
; x-compiling (DEFUN PARSE-DIRECTIVE ...)
; x-compiling (SB-XC:DEFMACRO FORMATTER ...)
; x-compiling (DEFUN %FORMATTER ...)
; x-compiling (DEFUN ARGS-EXHAUSTED ...)
; x-compiling (DEFUN EXPAND-CONTROL-STRING ...)
; x-compiling (DEFUN EXPAND-DIRECTIVE-LIST ...)
; x-compiling (DEFUN EXPAND-DIRECTIVE ...)
; x-compiling (DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG ...)
; x-compiling (DEFUN EXPAND-NEXT-ARG ...)
; x-compiling (DEFMACRO EXPAND-BIND-DEFAULTS ...)
; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...)
; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...)
; x-compiling (DEFUN FIND-DIRECTIVE ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\A ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\S ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\C ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\W ...)
; x-compiling (DEFUN EXPAND-FORMAT-INTEGER ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\D ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\B ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\O ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\X ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\R ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\P ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\F ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\E ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\G ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\$ ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\% ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\& ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\| ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\~ ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\T ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\_ ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\I ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\* ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\? ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\( ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\) ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\[ ...)
; x-compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...)
; x-compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...)
; x-compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\; ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\] ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\^ ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\{ ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\} ...)
; x-compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...)
; x-compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\< ...)
; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\> ...)
; x-compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...)
; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...)
; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...)
; x-compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...)
; x-compiling (SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...)
; x-compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...)
; x-compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...)
; x-compiling (DEF-FORMAT-DIRECTIVE #\/ ...)
; x-compiling (DEFUN EXTRACT-USER-FUN-NAME ...)
; x-compiling (DEFUN %COMPILER-WALK-FORMAT-STRING ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-format.lisp-obj-tmp written
; compilation finished in 0:00:08.090
; compiling file "/«PKGBUILDDIR»/src/code/sxhash.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!C")
; x-compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM SXHASH ...)
; x-compiling (DEFTRANSFORM PSXHASH ...)
; x-compiling (DEFTRANSFORM PSXHASH ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/sxhash.lisp-obj-tmp written
; compilation finished in 0:00:00.463
; compiling file "/«PKGBUILDDIR»/src/code/signal.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!UNIX")
; x-compiling (!DEFVAR *INTERRUPTS-ENABLED* ...)
; x-compiling (!DEFVAR *INTERRUPT-PENDING* ...)
; x-compiling (!DEFVAR *ALLOW-WITH-INTERRUPTS* ...)
; x-compiling (!DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...)
; x-compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...)
; x-compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...)
; x-compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...)
; x-compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...)
; x-compiling (DEFUN %CHECK-INTERRUPTS ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/signal.lisp-obj-tmp written
; compilation finished in 0:00:00.302
; compiling file "/«PKGBUILDDIR»/src/code/late-defbangmethod.lisp" (written 30 MAY 2015 05:47:19 AM):
; x-compiling (IN-PACKAGE "SB!IMPL")
; x-compiling (DEFMACRO-MUNDANELY DEF!METHOD ...)

; /«PKGBUILDDIR»/obj/from-xc/src/code/late-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00.040
creating directory: /«PKGBUILDDIR»/obj/from-xc/src/pcl/
; compiling file "/«PKGBUILDDIR»/src/pcl/walk.lisp" (written 30 MAY 2015 05:47:21 AM):
; x-compiling (IN-PACKAGE "SB!WALKER")
; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*)
; x-compiling (/SHOW "walk.lisp 108")
; x-compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...)
; x-compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...)
; x-compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...)
; x-compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...)
; x-compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...)
; x-compiling (DEFUN ENVIRONMENT-FUNCTION ...)
; x-compiling (DEFUN ENVIRONMENT-MACRO ...)
; x-compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...)
; x-compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...)
; x-compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...)
; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...)
; x-compiling (DEFUN ENV-LOCK ...)
; x-compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...)
; x-compiling (DEFUN ENV-WALK-FUNCTION ...)
; x-compiling (DEFUN ENV-WALK-FORM ...)
; x-compiling (DEFUN ENV-DECLARATIONS ...)
; x-compiling (DEFUN ENV-VAR-TYPE ...)
; x-compiling (DEFUN ENV-LEXICAL-VARIABLES ...)
; x-compiling (DEFUN NOTE-DECLARATION ...)
; x-compiling (DEFUN NOTE-VAR-BINDING ...)
; x-compiling (DEFUN VAR-LEXICAL-P ...)
; x-compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...)
; x-compiling (DEFUN VAR-GLOBALLY-SYMBOL-MACRO-P ...)
; x-compiling (DEFUN WALKED-VAR-DECLARATION-P ...)
; x-compiling (DEFUN %VAR-DECLARATION ...)
; x-compiling (DEFUN VAR-DECLARATION ...)
; x-compiling (DEFINE-COMPILER-MACRO VAR-DECLARATION ...)
; x-compiling (DEFUN VAR-SPECIAL-P ...)
; x-compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...)
; x-compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...)
; x-compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...)
; x-compiling (DEFUN GET-WALKER-TEMPLATE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE BLOCK ...)
; x-compiling (DEFINE-WALKER-TEMPLATE CATCH ...)
; x-compiling (DEFINE-WALKER-TEMPLATE DECLARE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...)
; x-compiling (DEFINE-WALKER-TEMPLATE FLET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...)
; x-compiling (DEFINE-WALKER-TEMPLATE GO ...)
; x-compiling (DEFINE-WALKER-TEMPLATE IF ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LABELS ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LET* ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LOAD-TIME-VALUE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE LOCALLY ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MACROLET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-CALL ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-PROG1 ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-SETQ ...)
; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-BIND ...)
; x-compiling (DEFINE-WALKER-TEMPLATE PROGN ...)
; x-compiling (DEFINE-WALKER-TEMPLATE PROGV ...)
; x-compiling (DEFINE-WALKER-TEMPLATE QUOTE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE RETURN-FROM ...)
; x-compiling (DEFINE-WALKER-TEMPLATE SETQ ...)
; x-compiling (DEFINE-WALKER-TEMPLATE SYMBOL-MACROLET ...)
; x-compiling (DEFINE-WALKER-TEMPLATE TAGBODY ...)
; x-compiling (DEFINE-WALKER-TEMPLATE THE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE THROW ...)
; x-compiling (DEFINE-WALKER-TEMPLATE UNWIND-PROTECT ...)
; x-compiling (DEFINE-WALKER-TEMPLATE TRULY-THE ...)
; x-compiling (DEFINE-WALKER-TEMPLATE NAMED-LAMBDA ...)
; x-compiling (DEFVAR *WALK-FORM-EXPAND-MACROS-P* ...)
; x-compiling (DEFUN WALK-FORM ...)
; x-compiling (DEFUN WALK-FORM-INTERNAL ...)
; x-compiling (DEFUN WALK-TEMPLATE ...)
; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT ...)
; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1 ...)
; x-compiling (DEFUN WALK-REPEAT-EVAL ...)
; x-compiling (DEFUN RECONS ...)
; x-compiling (DEFUN RELIST ...)
; x-compiling (DEFUN RELIST* ...)
; x-compiling (DEFUN RELIST-INTERNAL ...)
; x-compiling (DEFUN WALK-DECLARATIONS ...)
; x-compiling (DEFUN WALK-UNEXPECTED-DECLARE ...)
; x-compiling (DEFUN WALK-ARGLIST ...)
; x-compiling (DEFUN WALK-LET ...)
; x-compiling (DEFUN LET*-BINDING-NAME ...)
; x-compiling (DEFUN LET*-BINDING-INIT ...)
; x-compiling (DEFUN LET*-BINDINGS ...)
; x-compiling (DEFUN WALK-LET* ...)
; x-compiling (DEFUN WALK-LOAD-TIME-VALUE ...)
; x-compiling (DEFUN WALK-LOCALLY ...)
; x-compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...)
; x-compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...)
; x-compiling (DEFUN WALK-BINDINGS-1 ...)
; x-compiling (DEFUN WALK-LAMBDA ...)
; x-compiling (DEFUN WALK-NAMED-LAMBDA ...)
; x-compiling (DEFUN WALK-SETQ ...)
; x-compiling (DEFUN WALK-SYMBOL-MACROLET ...)
; x-compiling (DEFUN WALK-TAGBODY ...)
; x-compiling (DEFUN WALK-TAGBODY-1 ...)
; x-compiling (DEFUN WALK-MACROLET ...)
; x-compiling (DEFUN WALK-FLET ...)
; x-compiling (DEFUN WALK-LABELS ...)
; x-compiling (DEFUN WALK-IF ...)

; /«PKGBUILDDIR»/obj/from-xc/src/pcl/walk.lisp-obj-tmp written
; compilation finished in 0:00:02.967
T
* 
Likely suspicious calls:
5013 SB!IMPL::XSUBTRACT
 113 MAPHASH
  49 SB!INT:LEGAL-FUN-NAME-P
  45 CONSTANTP
  32 SB!C::LVAR-SINGLE-VALUE-P
  25 SB!C::NODE-BLOCK
  25 SB!INT:CONSTANT-FORM-VALUE
  17 SB!C::REOPTIMIZE-COMPONENT
  17 SB!DI::DESCRIPTOR-SAP
  13 SB!C::NODE-DEST
  13 SB!C::SET-BOUND
  13 SB!C::LVAR-USE
  13 SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE
   9 SB!IMPL::VECTOR-WITH-FILL-POINTER-P
   9 SB!IMPL::BOTH-CASE-INDEX-P
   5 ALPHANUMERICP
   5 FILL-POINTER
   5 SB!C::LVAR-HAS-SINGLE-USE-P
   5 SB!C::LVAR-DERIVED-TYPE
   5 SB!IMPL::%MAKUNBOUND
   5 SB!IMPL::WHITESPACE[1]P
   5 SB!KERNEL:RANDOM-CHUNK
   5 SB!KERNEL:CURRENT-DYNAMIC-SPACE-START
   5 SB!VM::CURRENT-THREAD-OFFSET-SAP
   5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION)
   5 SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION
   5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST)
   5 SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST
   5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME)
   5 SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME
   5 SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION

Possibly suspicious calls:
2401 SB!KERNEL:%COERCE-CALLABLE-TO-FUN
2317 LENGTH
1793 FORMAT
1673 ASH
1193 NCONC
 593 TRUNCATE
 537 APPEND
 521 SB!KERNEL:%DOUBLE-FLOAT
 397 COMPLEX
 393 REALPART
 389 SB!KERNEL:%SINGLE-FLOAT
 349 INTEGER-LENGTH
 321 MAKE-ARRAY
 305 IMAGPART
 205 COERCE
 189 LOGNOT
 181 ABS
 101 TYPEP
  85 SB!KERNEL:CONS-TYPE-P
  81 LOGANDC2
  77 SB!C::INTERVAL-LOW
  77 SB!KERNEL:ARRAY-TYPE-DIMENSIONS
  69 SB!C::INTERVAL-HIGH
  69 SB!KERNEL:ARRAY-TYPE-P
  49 LOGCOUNT
  33 EVERY
  33 LOGANDC1
  33 SB!KERNEL:%UNARY-TRUNCATE/SINGLE-FLOAT
  29 ELT
  29 SB!KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT
  21 ROUND
  21 LIST-LENGTH
  21 LOGNOR
  21 SB!C::MASK-SIGNED-FIELD
  21 SB!KERNEL:%UNARY-ROUND
  17 SOME
  13 SYNONYM-STREAM-SYMBOL
  13 VALUES-LIST
  13 SIGNUM
  13 SB!DI:FRAME-DEBUG-FUN
  13 SB!IMPL::SYNONYM-STREAM-P
  13 SB!SYS:FD-STREAM-P
   9 WRITE
   9 READ-FROM-STRING
   9 SB!C:FIXUP-FLAVOR
   9 SB!C:FIXUP-NOTE-KIND
   9 SB!C:FIXUP-NOTE-FIXUP
   9 SB!C:FIXUP-NAME
   9 SB!C:FIXUP-NOTE-POSITION
   9 SB!C::COMPILER-ERROR-CONTEXT-LEXENV
   9 SB!DI::COMPILED-FRAME-P
   9 SB!DISASSEM:SEG-VIRTUAL-LOCATION
   9 SB!IMPL::FD-STREAM-CHAR-SIZE
   9 SB!PRETTY:PRETTY-STREAM-P
   9 SB!SYS:SAP+
   5 WRITE-TO-STRING
   5 SB!C::POLICY-QUALITY
   5 SB!DI::COMPILED-FRAME-ESCAPED
   5 SB!IMPL::EF-READ-C-STRING-FUN
   5 SB!IMPL::EF-WRITE-C-STRING-FUN
   5 SB!INT:FORM-TRACKING-STREAM-P
   5 SB!KERNEL:KEY-INFO-NAME
   5 SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE
   5 SB!KERNEL:UNION-TYPE-TYPES
   5 SB!KERNEL:HAIRY-TYPE-SPECIFIER
   5 SB!KERNEL:UNION-TYPE-P
   5 SB!KERNEL:CHARACTER-SET-TYPE-PAIRS
   5 SB!KERNEL:ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE
   5 SB!KERNEL:NUMERIC-TYPE-FORMAT
   5 SB!KERNEL:NEGATION-TYPE-TYPE
   5 SB!KERNEL:COMPOUND-TYPE-TYPES
   5 SB!THREAD::WAITQUEUE-P
   5 SB!SYS:FOREIGN-SYMBOL-SAP
   4 MAPCAR
   4 LIST
   4 SB!KERNEL:MAKE-DOUBLE-FLOAT
   4 SB!KERNEL:MAKE-SINGLE-FLOAT
NIL
* 
NIL
* 
(#P"obj/from-xc/src/code/early-source-location.lisp-obj"
 #P"obj/from-xc/src/code/show.lisp-obj"
 #P"obj/from-xc/src/code/early-constants.lisp-obj"
 #P"obj/from-xc/src/code/backq.lisp-obj"
 #P"obj/from-xc/src/code/globals.lisp-obj" ...)
* 
T
* [undoing binding stack and other enclosing state... done]
[saving current Lisp image into output/after-xc.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 83255296 bytes from the dynamic space at 0x4f000000
done]
//entering make-genesis-2.sh
//loading and running GENESIS to create cold-sbcl.core
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* 
5
* target features *SHEBANG-FEATURES*=(:OS-PROVIDES-POLL
                                      :OS-PROVIDES-GETPROTOBY-R
                                      :OS-PROVIDES-SUSECONDS-T
                                      :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN
                                      :LITTLE-ENDIAN
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :PRECISE-ARG-COUNT-ERROR
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :STACK-ALLOCATABLE-VECTORS
                                      :STACK-ALLOCATABLE-FIXED-OBJECTS
                                      :STACK-ALLOCATABLE-LISTS
                                      :SYMBOL-INFO-VOPS :MULTIPLY-HIGH-VOPS
                                      :ASH-RIGHT-VOPS :ARM-VFPV2 :ARM-VFP
                                      :ALIEN-CALLBACKS :LINKAGE-TABLE :GENCGC
                                      :LARGEFILE :LINUX :ELF :UNIX :ARM
                                      :IEEE-FLOATING-POINT
                                      :PACKAGE-LOCAL-NICKNAMES
                                      :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE
                                      :SB-PACKAGE-LOCKS :SB-LDB :SB-TEST
                                      :SB-DOC :SBCL :COMMON-LISP :ANSI-CL
                                      :SB-CORE-COMPRESSION
                                      :SB-XREF-FOR-INTERNALS :SB-AFTER-XC-CORE)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-xc/"
* 
T
* 
T
; in: LAMBDA (SB-KERNEL::NEWVAL SB-KERNEL:INSTANCE)
;     (THE SB!C::CLAMBDA #:NEW603)
; 
; caught STYLE-WARNING:
;   undefined type: CLAMBDA
; 
; compilation unit finished
;   Undefined type:
;     CLAMBDA
;   caught 1 STYLE-WARNING condition

;     (THE SB!C:TN #:NEW610)
; 
; caught STYLE-WARNING:
;   undefined type: TN
; 
; compilation unit finished
;   Undefined type:
;     TN
;   caught 1 STYLE-WARNING condition

; in: SB-XC:DEFMACRO DEFTYPE
;     (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~%  ~S"
;      SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: BAD-TYPE
; 
; compilation unit finished
;   Undefined function:
;     BAD-TYPE
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN
* 
* 
*TARGET-OBJECT-FILE-NAMES*
* 
; compiling file "/«PKGBUILDDIR»/src/compiler/generic/genesis.lisp" (written 30 MAY 2015 05:47:20 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFCONSTANT CORE-MAGIC ...)
; compiling (DEFUN ROUND-UP ...)
; compiling (DEFCONSTANT +SMALLVEC-LENGTH+ ...)
; compiling (DEFTYPE SMALLVEC ...)
; compiling (DEFUN MAKE-SMALLVEC ...)
; compiling (DEFSTRUCT BIGVEC ...)
; compiling (DEFUN BVREF ...)
; compiling (DEFUN (SETF BVREF) ...)
; compiling (DEFUN BVLENGTH ...)
; compiling (DEFUN WRITE-BIGVEC-AS-SEQUENCE ...)
; compiling (DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE ...)
; compiling (DEFUN EXPAND-BIGVEC ...)
; compiling (MAKE-BVREF-N 8)
; compiling (MAKE-BVREF-N 16)
; compiling (MAKE-BVREF-N 32)
; compiling (MAKE-BVREF-N 64)
; compiling (DEFUN BVREF-WORD ...)
; compiling (DEFUN (SETF BVREF-WORD) ...)
; compiling (DEFVAR *DYNAMIC*)
; compiling (DEFCONSTANT DYNAMIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *STATIC*)
; compiling (DEFCONSTANT STATIC-CORE-SPACE-ID ...)
; compiling (DEFVAR *READ-ONLY*)
; compiling (DEFCONSTANT READ-ONLY-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT MAX-CORE-SPACE-ID ...)
; compiling (DEFCONSTANT DEFLATED-CORE-SPACE-ID-FLAG ...)
; compiling (DEFCONSTANT TARGET-SPACE-ALIGNMENT ...)
; compiling (DEFSTRUCT (GSPACE # ...) ...)
; compiling (DEFUN GSPACE-BYTE-ADDRESS ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-GSPACE ...)
; compiling (DEFUN IS-FIXNUM-LOWTAG ...)
; compiling (DEFUN IS-OTHER-IMMEDIATE-LOWTAG ...)
; compiling (DEFSTRUCT (DESCRIPTOR # ...) ...)
; compiling (DECLAIM (INLINE DESCRIPTOR=))
; compiling (DEFUN DESCRIPTOR= ...)
; compiling (DEFUN MAKE-RANDOM-DESCRIPTOR ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALLOCATE-COLD-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-LOWTAG ...)
; compiling (DEFUN DESCRIPTOR-FIXNUM ...)
; compiling (DEFUN DESCRIPTOR-WORD-SIZED-INTEGER ...)
; compiling (DEFUN DESCRIPTOR-BYTES ...)
; compiling (DEFUN DESCRIPTOR-BYTE-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DESCRIPTOR-INTUIT-GSPACE ...)
; compiling (DEFUN %FIXNUM-DESCRIPTOR-IF-POSSIBLE ...)
; compiling (DEFUN MAKE-FIXNUM-DESCRIPTOR ...)
; compiling (DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR ...)
; compiling (DEFUN MAKE-CHARACTER-DESCRIPTOR ...)
; compiling (DEFUN DESCRIPTOR-BEYOND ...)
; compiling (DEFVAR *FOREIGN-SYMBOL-PLACEHOLDER-VALUE*)
; compiling (DEFVAR *UNBOUND-MARKER*)
; compiling (DEFVAR *NIL-DESCRIPTOR*)
; compiling (DEFVAR *CURRENT-REVERSED-COLD-TOPLEVELS*)
; compiling (DEFVAR *CURRENT-DEBUG-SOURCES*)
; compiling (DEFPARAMETER *COLD-FOREIGN-UNDEFINED-SYMBOLS* ...)
; compiling (DEFMACRO COLD-PUSH ...)
; compiling (DEFUN TARGET-PUSH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-BITS-WORDINDEXED ...)
; compiling (DEFUN READ-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-MEMORY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORDINDEXED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-MEMORY ...)
; compiling (DEFUN WRITE-HEADER-WORD ...)
; compiling (DEFUN ALLOCATE-OBJECT ...)
; compiling (DEFUN ALLOCATE-HEADER+OBJECT ...)
; compiling (DEFUN ALLOCATE-VECTOR-OBJECT ...)
; compiling (DEFVAR *HOST-LAYOUT-OF-LAYOUT* ...)
; compiling (DEFUN COLD-LAYOUT-LENGTH ...)
; compiling (DEFUN ALLOCATE-STRUCT ...)
; compiling (DEFUN BASE-STRING-TO-CORE ...)
; compiling (DEFUN BASE-STRING-FROM-CORE ...)
; compiling (DEFUN BIGNUM-TO-CORE ...)
; compiling (DEFUN BIGNUM-FROM-CORE ...)
; compiling (DEFUN NUMBER-PAIR-TO-CORE ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN WRITE-DOUBLE-FLOAT-BITS
;     (LET ((SB!FASL::BITS
;            (SB!FASL::MAKE-RANDOM-DESCRIPTOR (ECASE SB!C:*BACKEND-BYTE-ORDER* #))))
;       (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::BITS))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32))
; ==>
;   SB!FASL::LO
; 
; note: deleting unreachable code

;     (SB!FASL::MAKE-RANDOM-DESCRIPTOR
;      (ECASE SB!C:*BACKEND-BYTE-ORDER*
;        (:LITTLE-ENDIAN (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32)))))
; 
; note: deleting unreachable code
; compiling (DEFUN WRITE-DOUBLE-FLOAT-BITS ...)
; compiling (DEFUN FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE ...)
; compiling (DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE ...)
; compiling (DEFUN NUMBER-TO-CORE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-INT-TO-CORE ...)
; compiling (DEFUN COLD-CONS ...)
; compiling (DEFUN COLD-LIST ...)
; compiling (DEFUN COLD-LIST-LENGTH ...)
; compiling (DEFUN VECTOR-IN-CORE ...)
; compiling (DEFUN COLD-SVSET ...)
; compiling (DECLAIM (INLINE COLD-VECTOR-LEN ...))
; compiling (DEFUN COLD-VECTOR-LEN ...)
; compiling (DEFUN COLD-SVREF ...)
; compiling (DEFUN COLD-VECTOR-ELEMENTS-EQ ...)

; file: /«PKGBUILDDIR»/src/compiler/generic/genesis.lisp
; in: DEFUN VECTOR-FROM-CORE
;     (SB!FASL::COLD-SVREF SB!FASL::DESCRIPTOR SB!FASL::I)
; --> BLOCK SB!FASL::READ-WORDINDEXED + IF SB!FASL::DESCRIPTOR-FIXNUM 
; ==>
;   SB!FASL::I
; 
; note: deleting unreachable code
; compiling (DEFUN VECTOR-FROM-CORE ...)
; compiling (DEFVAR *GENESIS-TLS-COUNTER* ...)
; compiling (DEFUN ALLOCATE-SYMBOL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COLD-SET ...)
; compiling (DEFUN COLD-SYMBOL-VALUE ...)
; compiling (DEFUN COLD-FDEFN-FUN ...)
; compiling (DEFVAR *COLD-LAYOUTS* ...)
; compiling (DEFVAR *COLD-LAYOUT-NAMES* ...)
; compiling (DEFVAR *LAYOUT-LAYOUT*)
; compiling (DEFVAR *PACKAGE-LAYOUT*)
; compiling (DEFVAR *KNOWN-STRUCTURE-CLASSOIDS*)
; compiling (DEFCONSTANT TARGET-LAYOUT-LENGTH ...)
; compiling (DEFUN LISTIFY-COLD-INHERITS ...)
; compiling (DEFUN WRITE-SLOTS ...)
; compiling (DEFUN READ-SLOT ...)
; compiling (DEFVAR *SIMPLE-VECTOR-0-DESCRIPTOR*)
; compiling (DEFVAR *VACUOUS-SLOT-TABLE*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-COLD-LAYOUT ...)
; compiling (DEFUN PATCH-INSTANCE-LAYOUT ...)
; compiling (DEFUN INITIALIZE-LAYOUTS ...)
; compiling (DEFVAR *COLD-PACKAGE-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *COLD-SYMBOLS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN INITIALIZE-PACKAGES ...)
; compiling (DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P ...)
; compiling (DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL ...)
; compiling (DEFVAR *UNINTERNED-SYMBOL-TABLE* ...)
; compiling (DEFUN GET-UNINTERNED-SYMBOL ...)
; compiling (DEFUN HOST-CONSTANT-TO-CORE ...)
; compiling (DEFUN TARGET-SYMBOL-FUNCTION ...)
; compiling (DEFUN EMULATE-TARGET-MAKE-ARRAY ...)
; compiling (DEFUN EMULATE-TARGET-EVAL ...)
; compiling (DEFUN COLD-INTERN ...)
; compiling (DEFUN RECORD-ACCESSIBILITY ...)
; compiling (DEFUN MAKE-NIL-DESCRIPTOR ...)
; compiling (DEFUN INITIALIZE-NON-NIL-SYMBOLS ...)
; compiling (DEFUN SORT-COLD-LAYOUTS ...)
; compiling (DEFUN COLD-LIST-ALL-LAYOUTS ...)
; compiling (DEFUN FINISH-SYMBOLS ...)
; compiling (DEFVAR *COLD-FDEFN-OBJECTS*)
; compiling (DEFVAR *COLD-FDEFN-GSPACE* ...)
; compiling (DEFUN WARM-SYMBOL ...)
; compiling (DEFUN COLD-CAR ...)
; compiling (DEFUN COLD-CDR ...)
; compiling (DEFUN COLD-NULL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WARM-FUN-NAME ...)
; compiling (DEFUN COLD-FDEFINITION-OBJECT ...)
; compiling (DEFUN STATIC-FSET ...)
; compiling (DEFPARAMETER *COLD-FSET-WARM-NAMES* ...)
; compiling (DEFUN COLD-FSET ...)
; compiling (DEFUN INITIALIZE-STATIC-FNS ...)
; compiling (DEFUN ATTACH-FDEFINITIONS-TO-SYMBOLS ...)
; compiling (DEFVAR *COLD-FOREIGN-SYMBOL-TABLE*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE ...)
; compiling (DEFUN COLD-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFVAR *COLD-ASSEMBLER-ROUTINES*)
; compiling (DEFVAR *COLD-ASSEMBLER-FIXUPS*)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-ROUTINE ...)
; compiling (DEFUN RECORD-COLD-ASSEMBLER-FIXUP ...)
; compiling (DEFUN LOOKUP-ASSEMBLER-REFERENCE ...)
; compiling (DEFVAR *DEFERRED-KNOWN-FUN-REFS*)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CALC-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DO-COLD-FIXUP ...)
; compiling (DEFUN RESOLVE-ASSEMBLER-FIXUPS ...)
; compiling (DEFUN FOREIGN-SYMBOLS-TO-CORE ...)
; compiling (DEFUN POP-FOP-STACK ...)
; compiling (DEFMACRO DEFINE-COLD-FOP ...)
; compiling (DEFMACRO NOT-COLD-FOP ...)
; compiling (DEFUN COLD-LOAD ...)
; compiling (DEFINE-COLD-FOP (FOP-MISC-TRAP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER #) ...)
; compiling (DEFINE-COLD-FOP (FOP-EMPTY-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-TRUTH) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCT #) ...)
; compiling (DEFINE-COLD-FOP (FOP-LAYOUT) ...)
; compiling (DEFUN COLD-LOAD-SYMBOL ...)
; compiling (FLET (#) ...)
; compiling (DEFINE-COLD-FOP (FOP-LISP-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-COPY-SYMBOL-SAVE #) ...)
; compiling (DEFINE-COLD-FOP (FOP-NAMED-PACKAGE-SAVE #) ...)
; compiling (DEFMACRO COLD-STACK-LIST ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-1) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-2) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-3) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-4) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-5) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-6) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-7) ...)
; compiling (DEFINE-COLD-FOP (FOP-LIST*-8) ...)
; compiling (DEFINE-COLD-FOP (FOP-BASE-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-CHARACTER-STRING #) ...)
; compiling (DEFINE-COLD-FOP (FOP-VECTOR #) ...)
; compiling (DEFINE-COLD-FOP (FOP-SPEC-VECTOR) ...)
; compiling (NOT-COLD-FOP FOP-ARRAY)
; compiling (DEFMACRO DEFINE-COLD-NUMBER-FOP ...)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-WORD-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-BYTE-INTEGER)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-SINGLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-DOUBLE-FLOAT)
; compiling (DEFINE-COLD-NUMBER-FOP FOP-INTEGER ...)
; compiling (DEFINE-COLD-FOP (FOP-RATIO) ...)
; compiling (DEFINE-COLD-FOP (FOP-COMPLEX) ...)
; compiling (NOT-COLD-FOP FOP-EVAL)
; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT)
; compiling (DEFVAR *LOAD-TIME-VALUE-COUNTER*)
; compiling (FLET (#) ...)
; compiling (DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACA) ...)
; compiling (DEFINE-COLD-FOP (FOP-RPLACD) ...)
; compiling (DEFINE-COLD-FOP (FOP-SVSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-STRUCTSET) ...)
; compiling (DEFINE-COLD-FOP (FOP-NTHCDR) ...)
; compiling (DEFUN COLD-NTHCDR ...)
; compiling (DEFINE-COLD-FOP (FOP-NOTE-DEBUG-SOURCE) ...)
; compiling (DEFINE-COLD-FOP (FOP-FDEFN) ...)
; compiling (DEFINE-COLD-FOP (FOP-KNOWN-FUN) ...)
; compiling (DEFINE-COLD-FOP (FOP-SANCTIFY-FOR-EXECUTION) ...)
; compiling (DEFUN COLD-LOAD-CODE ...)
; compiling (DOTIMES (I 16) ...)
; compiling (DEFUN RESOLVE-DEFERRED-KNOWN-FUNS ...)
; compiling (DEFINE-COLD-FOP (FOP-ALTER-CODE #) ...)
; compiling (DEFVAR *SIMPLE-FUN-METADATA* ...)
; compiling (DEFUN MAKE-EQUAL-COMPARABLE-THING ...)
; compiling (DEFINE-COLD-FOP (FOP-FUN-ENTRY) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE) ...)
; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP) ...)
; compiling (DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP) ...)
; compiling (DEFUN CHECK-SPACES ...)
; compiling (DEFUN TAILWISE-EQUAL ...)
; compiling (DEFUN WRITE-BOILERPLATE ...)
; compiling (DEFUN C-NAME ...)
; compiling (DEFUN C-SYMBOL-NAME ...)
; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...)
; compiling (DEFUN WRITE-CONFIG-H ...)
; compiling (DEFUN WRITE-CONSTANTS-H ...)
; compiling (DEFUN WRITE-TAGNAMES-H ...)
; compiling (DEFUN WRITE-PRIMITIVE-OBJECT ...)
; compiling (DEFUN WRITE-STRUCTURE-OBJECT ...)
; compiling (DEFUN WRITE-STATIC-SYMBOLS ...)
; compiling (DEFUN WRITE-MAP ...)
; compiling (DEFVAR *CORE-FILE*)
; compiling (DEFVAR *DATA-PAGE*)
; compiling (DEFCONSTANT BUILD-ID-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT INITIAL-FUN-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT PAGE-TABLE-CORE-ENTRY-TYPE-CODE ...)
; compiling (DEFCONSTANT END-CORE-ENTRY-TYPE-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-WORD ...)
; compiling (DEFUN ADVANCE-TO-PAGE ...)
; compiling (DEFUN OUTPUT-GSPACE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN WRITE-INITIAL-CORE-FILE ...)
; compiling (DEFUN SB!VM:GENESIS ...)
; 
; compilation unit finished
;   printed 5 notes
; compiling (DEFUN WARMELIZE ...)

; /«PKGBUILDDIR»/obj/from-host/src/compiler/generic/genesis.fasl-tmp written
; compilation finished in 0:00:16.715
T
* 
beginning GENESIS, creating core "output/cold-sbcl.core"
obj/from-xc/src/code/early-source-location.lisp-obj
obj/from-xc/src/code/show.lisp-obj
obj/from-xc/src/code/early-constants.lisp-obj
obj/from-xc/src/code/backq.lisp-obj
obj/from-xc/src/code/globals.lisp-obj
obj/from-xc/src/code/defsetfs.lisp-obj
obj/from-xc/src/code/cold-init-helper-macros.lisp-obj
obj/from-xc/src/code/uncross.lisp-obj
obj/from-xc/src/code/primordial-type.lisp-obj
obj/from-xc/src/code/early-defbangmethod.lisp-obj
obj/from-xc/src/code/defbangtype.lisp-obj
obj/from-xc/src/code/defbangmacro.lisp-obj
obj/from-xc/src/code/defbangconstant.lisp-obj
obj/from-xc/src/code/primordial-extensions.lisp-obj
obj/from-xc/src/compiler/early-globaldb.lisp-obj
obj/from-xc/src/code/function-names.lisp-obj
obj/from-xc/src/compiler/generic/parms.lisp-obj
obj/from-xc/src/compiler/arm/parms.lisp-obj
obj/from-xc/src/compiler/generic/early-vm.lisp-obj
obj/from-xc/src/compiler/generic/early-objdef.lisp-obj
obj/from-xc/src/code/early-array.lisp-obj
obj/from-xc/src/code/kernel.lisp-obj
obj/from-xc/src/code/barrier.lisp-obj
obj/from-xc/src/code/early-extensions.lisp-obj
obj/from-xc/src/code/parse-body.lisp-obj
obj/from-xc/src/code/parse-defmacro.lisp-obj
obj/from-xc/src/compiler/deftype.lisp-obj
obj/from-xc/src/code/restart.lisp-obj
obj/from-xc/src/compiler/defconstant.lisp-obj
obj/from-xc/src/code/early-alieneval.lisp-obj
obj/from-xc/src/code/specializable-array.lisp-obj
obj/from-xc/src/code/early-cl.lisp-obj
obj/from-xc/src/code/early-fasl.lisp-obj
obj/from-xc/src/code/debug-var-io.lisp-obj
obj/from-xc/src/code/early-thread.lisp-obj
obj/from-xc/src/code/target-defbangmethod.lisp-obj
obj/from-xc/src/code/early-print.lisp-obj
obj/from-xc/src/code/early-pprint.lisp-obj
obj/from-xc/src/code/early-impl.lisp-obj
obj/from-xc/src/code/target-extensions.lisp-obj
obj/from-xc/src/code/early-package.lisp-obj
obj/from-xc/src/code/early-defstructs.lisp-obj
obj/from-xc/src/code/early-raw-slots.lisp-obj
obj/from-xc/src/code/defbangstruct.lisp-obj
obj/from-xc/src/code/unportable-float.lisp-obj
obj/from-xc/src/code/funutils.lisp-obj
obj/from-xc/src/code/type-class.lisp-obj
obj/from-xc/src/code/ansi-stream.lisp-obj
obj/from-xc/src/code/sysmacs.lisp-obj
obj/from-xc/src/code/target-error.lisp-obj
obj/from-xc/src/compiler/early-backend.lisp-obj
obj/from-xc/output/stuff-groveled-from-headers.lisp-obj
obj/from-xc/src/code/toplevel.lisp-obj
obj/from-xc/src/code/cold-error.lisp-obj
obj/from-xc/src/compiler/info-vector.lisp-obj
obj/from-xc/src/code/fdefinition.lisp-obj
obj/from-xc/src/code/target-type.lisp-obj
obj/from-xc/src/code/pred.lisp-obj
obj/from-xc/src/code/target-alieneval.lisp-obj
obj/from-xc/src/code/target-c-call.lisp-obj
obj/from-xc/src/code/target-allocate.lisp-obj
obj/from-xc/src/code/misc-aliens.lisp-obj
obj/from-xc/src/code/typedefs.lisp-obj
obj/from-xc/src/compiler/generic/vm-array.lisp-obj
obj/from-xc/src/code/weak.lisp-obj
obj/from-xc/src/code/array.lisp-obj
obj/from-xc/src/code/early-float.lisp-obj
obj/from-xc/src/code/target-sxhash.lisp-obj
obj/from-xc/src/code/list.lisp-obj
obj/from-xc/src/code/seq.lisp-obj
obj/from-xc/src/code/coerce.lisp-obj
obj/from-xc/src/code/string.lisp-obj
obj/from-xc/src/code/mipsstrops.lisp-obj
obj/from-xc/src/code/early-time.lisp-obj
obj/from-xc/src/code/unix.lisp-obj
obj/from-xc/src/code/common-os.lisp-obj
obj/from-xc/src/code/linux-os.lisp-obj
obj/from-xc/src/code/sc-offset.lisp-obj
obj/from-xc/src/code/arm-vm.lisp-obj
obj/from-xc/src/code/target-signal.lisp-obj
obj/from-xc/src/code/symbol.lisp-obj
obj/from-xc/src/code/bignum.lisp-obj
obj/from-xc/src/code/numbers.lisp-obj
obj/from-xc/src/code/float-trap.lisp-obj
obj/from-xc/src/code/float.lisp-obj
obj/from-xc/src/code/irrat.lisp-obj
obj/from-xc/src/code/char.lisp-obj
obj/from-xc/src/code/huffman.lisp-obj
obj/from-xc/src/code/target-char.lisp-obj
obj/from-xc/src/code/target-unicode.lisp-obj
obj/from-xc/src/code/target-misc.lisp-obj
obj/from-xc/src/code/misc.lisp-obj
obj/from-xc/src/code/room.lisp-obj
obj/from-xc/src/code/stream.lisp-obj
obj/from-xc/src/code/print.lisp-obj
obj/from-xc/src/code/early-format.lisp-obj
obj/from-xc/src/code/target-format.lisp-obj
obj/from-xc/src/code/defpackage.lisp-obj
obj/from-xc/src/code/error-error.lisp-obj
obj/from-xc/src/code/deadline.lisp-obj
obj/from-xc/src/code/serve-event.lisp-obj
obj/from-xc/src/code/fd-stream.lisp-obj
obj/from-xc/src/code/module.lisp-obj
obj/from-xc/src/code/query.lisp-obj
obj/from-xc/src/code/sort.lisp-obj
obj/from-xc/src/code/time.lisp-obj
obj/from-xc/src/code/timer.lisp-obj
obj/from-xc/src/code/final.lisp-obj
obj/from-xc/src/code/setf-funs.lisp-obj
obj/from-xc/src/code/stubs.lisp-obj
obj/from-xc/src/code/exhaust.lisp-obj
obj/from-xc/src/compiler/early-c.lisp-obj
obj/from-xc/src/compiler/policy.lisp-obj
obj/from-xc/src/compiler/policies.lisp-obj
obj/from-xc/src/compiler/macros.lisp-obj
obj/from-xc/src/compiler/globaldb.lisp-obj
obj/from-xc/src/compiler/info-functions.lisp-obj
obj/from-xc/src/compiler/generic/vm-macs.lisp-obj
obj/from-xc/src/compiler/generic/objdef.lisp-obj
obj/from-xc/src/compiler/sset.lisp-obj
obj/from-xc/src/compiler/node.lisp-obj
obj/from-xc/src/compiler/vop.lisp-obj
obj/from-xc/src/compiler/backend.lisp-obj
obj/from-xc/src/compiler/vmdef.lisp-obj
obj/from-xc/src/compiler/arm/backend-parms.lisp-obj
obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj
obj/from-xc/src/code/defmacro.lisp-obj
obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj
obj/from-xc/src/compiler/late-macros.lisp-obj
obj/from-xc/src/compiler/meta-vmdef.lisp-obj
obj/from-xc/src/compiler/arm/vm.lisp-obj
obj/from-xc/src/code/xset.lisp-obj
obj/from-xc/src/code/early-type.lisp-obj
obj/from-xc/src/code/class.lisp-obj
obj/from-xc/src/code/condition.lisp-obj
obj/from-xc/src/compiler/generic/primtype.lisp-obj
obj/from-xc/src/compiler/parse-lambda-list.lisp-obj
obj/from-xc/src/code/host-alieneval.lisp-obj
obj/from-xc/src/code/host-c-call.lisp-obj
obj/from-xc/src/compiler/compiler-deftype.lisp-obj
obj/from-xc/src/code/late-type.lisp-obj
obj/from-xc/src/code/pprint.lisp-obj
obj/from-xc/src/code/deftypes-for-target.lisp-obj
obj/from-xc/src/compiler/knownfun.lisp-obj
obj/from-xc/src/compiler/constantp.lisp-obj
obj/from-xc/src/compiler/fun-info-funs.lisp-obj
obj/from-xc/src/compiler/generic/vm-type.lisp-obj
obj/from-xc/src/compiler/proclaim.lisp-obj
obj/from-xc/src/code/class-init.lisp-obj
obj/from-xc/src/code/defstruct.lisp-obj
obj/from-xc/src/code/target-defstruct.lisp-obj
obj/from-xc/src/code/alien-type.lisp-obj
obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj
obj/from-xc/src/code/early-full-eval.lisp-obj
obj/from-xc/src/code/typep.lisp-obj
obj/from-xc/src/compiler/compiler-error.lisp-obj
obj/from-xc/src/code/late-deftypes-for-target.lisp-obj
obj/from-xc/src/code/type-init.lisp-obj
obj/from-xc/src/compiler/fixup-type.lisp-obj
obj/from-xc/src/code/package.lisp-obj
obj/from-xc/src/code/random.lisp-obj
obj/from-xc/src/code/hash-table.lisp-obj
obj/from-xc/src/code/readtable.lisp-obj
obj/from-xc/src/code/pathname.lisp-obj
obj/from-xc/src/code/host-pprint.lisp-obj
obj/from-xc/src/compiler/lexenv.lisp-obj
obj/from-xc/src/compiler/fndb.lisp-obj
obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj
obj/from-xc/src/compiler/generic/late-objdef.lisp-obj
obj/from-xc/src/compiler/generic/interr.lisp-obj
obj/from-xc/src/compiler/bit-util.lisp-obj
obj/from-xc/src/compiler/early-assem.lisp-obj
obj/from-xc/src/compiler/generic/core.lisp-obj
obj/from-xc/src/code/thread.lisp-obj
obj/from-xc/src/code/load.lisp-obj
obj/from-xc/src/code/linkage-table.lisp-obj
obj/from-xc/src/code/foreign-load.lisp-obj
obj/from-xc/src/code/unix-foreign-load.lisp-obj
obj/from-xc/src/code/foreign.lisp-obj
obj/from-xc/src/code/fop.lisp-obj
obj/from-xc/src/compiler/ctype.lisp-obj
obj/from-xc/src/compiler/disassem.lisp-obj
obj/from-xc/src/compiler/assem.lisp-obj
obj/from-xc/src/code/debug-info.lisp-obj
obj/from-xc/src/compiler/dump.lisp-obj
obj/from-xc/src/compiler/main.lisp-obj
obj/from-xc/src/compiler/xref.lisp-obj
obj/from-xc/src/code/source-location.lisp-obj
obj/from-xc/src/compiler/target-main.lisp-obj
obj/from-xc/src/compiler/ir1tran.lisp-obj
obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj
obj/from-xc/src/compiler/ir1-translators.lisp-obj
obj/from-xc/src/compiler/ir1util.lisp-obj
obj/from-xc/src/compiler/ir1report.lisp-obj
obj/from-xc/src/compiler/ir1opt.lisp-obj
obj/from-xc/src/compiler/loop.lisp-obj
obj/from-xc/src/compiler/ir1final.lisp-obj
obj/from-xc/src/compiler/array-tran.lisp-obj
obj/from-xc/src/compiler/seqtran.lisp-obj
obj/from-xc/src/compiler/typetran.lisp-obj
obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj
obj/from-xc/src/compiler/float-tran.lisp-obj
obj/from-xc/src/compiler/saptran.lisp-obj
obj/from-xc/src/compiler/srctran.lisp-obj
obj/from-xc/src/compiler/bitops-derive-type.lisp-obj
obj/from-xc/src/compiler/generic/vm-tran.lisp-obj
obj/from-xc/src/compiler/locall.lisp-obj
obj/from-xc/src/compiler/dfo.lisp-obj
obj/from-xc/src/compiler/dce.lisp-obj
obj/from-xc/src/compiler/checkgen.lisp-obj
obj/from-xc/src/compiler/constraint.lisp-obj
obj/from-xc/src/compiler/physenvanal.lisp-obj
obj/from-xc/src/compiler/tn.lisp-obj
obj/from-xc/src/compiler/life.lisp-obj
obj/from-xc/src/compiler/debug-dump.lisp-obj
obj/from-xc/src/compiler/generic/utils.lisp-obj
obj/from-xc/src/compiler/fopcompile.lisp-obj
obj/from-xc/src/assembly/assemfile.lisp-obj
obj/from-xc/src/compiler/late-vmdef.lisp-obj
obj/from-xc/src/compiler/fixup.lisp-obj
obj/from-xc/src/compiler/arm/insts.lisp-obj
obj/from-xc/src/compiler/arm/macros.lisp-obj
obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj
obj/from-xc/src/assembly/arm/support.lisp-obj
obj/from-xc/src/compiler/arm/move.lisp-obj
obj/from-xc/src/compiler/arm/float.lisp-obj
obj/from-xc/src/compiler/arm/sap.lisp-obj
obj/from-xc/src/compiler/arm/system.lisp-obj
obj/from-xc/src/compiler/arm/char.lisp-obj
obj/from-xc/src/compiler/arm/memory.lisp-obj
obj/from-xc/src/compiler/arm/static-fn.lisp-obj
obj/from-xc/src/compiler/arm/arith.lisp-obj
obj/from-xc/src/compiler/arm/type-vops.lisp-obj
obj/from-xc/src/compiler/arm/subprim.lisp-obj
obj/from-xc/src/compiler/arm/debug.lisp-obj
obj/from-xc/src/compiler/early-aliencomp.lisp-obj
obj/from-xc/src/compiler/arm/c-call.lisp-obj
obj/from-xc/src/compiler/arm/cell.lisp-obj
obj/from-xc/src/compiler/arm/values.lisp-obj
obj/from-xc/src/compiler/arm/alloc.lisp-obj
obj/from-xc/src/compiler/arm/call.lisp-obj
obj/from-xc/src/compiler/arm/nlx.lisp-obj
obj/from-xc/src/compiler/generic/late-nlx.lisp-obj
obj/from-xc/src/compiler/arm/show.lisp-obj
obj/from-xc/src/compiler/arm/array.lisp-obj
obj/from-xc/src/compiler/generic/type-error.lisp-obj
obj/from-xc/src/compiler/arm/pred.lisp-obj
obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj
obj/from-xc/src/assembly/arm/assem-rtns.lisp-obj
obj/from-xc/src/assembly/arm/array.lisp-obj
obj/from-xc/src/assembly/arm/arith.lisp-obj
obj/from-xc/src/assembly/arm/alloc.lisp-obj
obj/from-xc/src/assembly/arm/assem-rtns.assem-obj
obj/from-xc/src/assembly/arm/array.assem-obj
obj/from-xc/src/assembly/arm/arith.assem-obj
obj/from-xc/src/assembly/arm/alloc.assem-obj
obj/from-xc/src/compiler/pseudo-vops.lisp-obj
obj/from-xc/src/compiler/aliencomp.lisp-obj
obj/from-xc/src/compiler/ltv.lisp-obj
obj/from-xc/src/compiler/gtn.lisp-obj
obj/from-xc/src/compiler/ltn.lisp-obj
obj/from-xc/src/compiler/stack.lisp-obj
obj/from-xc/src/compiler/control.lisp-obj
obj/from-xc/src/compiler/entry.lisp-obj
obj/from-xc/src/compiler/ir2tran.lisp-obj
obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj
obj/from-xc/src/compiler/copyprop.lisp-obj
obj/from-xc/src/compiler/represent.lisp-obj
obj/from-xc/src/compiler/ir2opt.lisp-obj
obj/from-xc/src/compiler/pack.lisp-obj
obj/from-xc/src/compiler/pack-iterative.lisp-obj
obj/from-xc/src/compiler/codegen.lisp-obj
obj/from-xc/src/compiler/debug.lisp-obj
obj/from-xc/src/code/format-time.lisp-obj
obj/from-xc/src/code/error.lisp-obj
obj/from-xc/src/code/macroexpand.lisp-obj
obj/from-xc/src/code/late-extensions.lisp-obj
obj/from-xc/src/compiler/generic/target-core.lisp-obj
obj/from-xc/src/code/eval.lisp-obj
obj/from-xc/src/code/target-sap.lisp-obj
obj/from-xc/src/code/target-package.lisp-obj
obj/from-xc/src/code/target-random.lisp-obj
obj/from-xc/src/code/bignum-random.lisp-obj
obj/from-xc/src/code/target-hash-table.lisp-obj
obj/from-xc/src/code/reader.lisp-obj
obj/from-xc/src/code/target-stream.lisp-obj
obj/from-xc/src/code/target-pathname.lisp-obj
obj/from-xc/src/code/unix-pathname.lisp-obj
obj/from-xc/src/code/filesys.lisp-obj
obj/from-xc/src/code/save.lisp-obj
obj/from-xc/src/code/sharpm.lisp-obj
obj/from-xc/src/code/alloc.lisp-obj
obj/from-xc/src/code/early-step.lisp-obj
obj/from-xc/src/code/target-thread.lisp-obj
obj/from-xc/src/code/interr.lisp-obj
obj/from-xc/src/code/gc.lisp-obj
obj/from-xc/src/code/purify.lisp-obj
obj/from-xc/src/code/debug-int.lisp-obj
obj/from-xc/src/compiler/target-disassem.lisp-obj
obj/from-xc/src/compiler/arm/target-insts.lisp-obj
obj/from-xc/src/code/debug.lisp-obj
obj/from-xc/src/code/octets.lisp-obj
obj/from-xc/src/code/external-formats/enc-basic.lisp-obj
obj/from-xc/src/code/external-formats/enc-ebcdic.lisp-obj
obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj
obj/from-xc/src/code/external-formats/enc-dos.lisp-obj
obj/from-xc/src/code/external-formats/enc-iso.lisp-obj
obj/from-xc/src/code/external-formats/enc-win.lisp-obj
obj/from-xc/src/code/external-formats/enc-mac.lisp-obj
obj/from-xc/src/code/external-formats/mb-util.lisp-obj
obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj
obj/from-xc/src/code/external-formats/enc-cn.lisp-obj
obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj
obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj
obj/from-xc/src/code/external-formats/enc-ucs.lisp-obj
obj/from-xc/src/code/external-formats/enc-utf.lisp-obj
obj/from-xc/src/code/parse-defmacro-errors.lisp-obj
obj/from-xc/src/code/full-eval.lisp-obj
obj/from-xc/src/code/bit-bash.lisp-obj
obj/from-xc/src/code/target-load.lisp-obj
obj/from-xc/src/compiler/arm/sanctify.lisp-obj
obj/from-xc/src/compiler/target-dump.lisp-obj
obj/from-xc/src/code/cold-init.lisp-obj
obj/from-xc/src/code/cl-specials.lisp-obj
obj/from-xc/src/compiler/late-proclaim.lisp-obj
obj/from-xc/src/code/defboot.lisp-obj
obj/from-xc/src/code/destructuring-bind.lisp-obj
obj/from-xc/src/code/setf.lisp-obj
obj/from-xc/src/code/macros.lisp-obj
obj/from-xc/src/code/loop.lisp-obj
obj/from-xc/src/code/cas.lisp-obj
obj/from-xc/src/code/late-cas.lisp-obj
obj/from-xc/src/code/late-format.lisp-obj
obj/from-xc/src/code/sxhash.lisp-obj
obj/from-xc/src/code/signal.lisp-obj
obj/from-xc/src/code/late-defbangmethod.lisp-obj
obj/from-xc/src/pcl/walk.lisp-obj
; SB!Loader: 256 DEFSTRUCTs, 11391 DEFUNs, 71 SETF macros
[building initial core file in "output/cold-sbcl.core": 
writing 4096 bytes [1 page] from #<SB!FASL::GSPACE :READ-ONLY>
writing 4096 bytes [1 page] from #<SB!FASL::GSPACE :STATIC>
writing 40267776 bytes [9831 pages] from #<SB!FASL::GSPACE :DYNAMIC>
/(DESCRIPTOR-BITS INITIAL-FUN)=#X514F8D45
done]
* //testing for consistency of first and second GENESIS passes
1664.07user 47.25system 28:42.77elapsed 99%CPU (0avgtext+0avgdata 214076maxresident)k
0inputs+312344outputs (0major+928889minor)pagefaults 0swaps
//header files match between first and second GENESIS -- good
//entering make-target-2.sh
//doing warm init - compilation phase
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
COLD-INIT... (PACKAGE = "COMMON-LISP")
("Length(TLFs)= " 13150)

* 
; compiling file "/«PKGBUILDDIR»/src/pcl/early-low.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;EARLY-LOW.FASL.NEWEST written
; compilation finished in 0:00:00.104
; compiling file "/«PKGBUILDDIR»/src/pcl/macros.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;MACROS.FASL.NEWEST written
; compilation finished in 0:00:00.441
; compiling file "/«PKGBUILDDIR»/src/pcl/compiler-support.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;COMPILER-SUPPORT.FASL.NEWEST written
; compilation finished in 0:00:00.224
; compiling file "/«PKGBUILDDIR»/src/pcl/low.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/low.lisp
; in: DEFINE-COMPILER-MACRO FSC-INSTANCE-P
;     (DEFINE-COMPILER-MACRO SB-PCL::FSC-INSTANCE-P
;         (SB-PCL::FIN)
;       `(SB-KERNEL:FUNCALLABLE-INSTANCE-P ,SB-PCL::FIN))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SB-PCL::FSC-INSTANCE-P
;                                 #'(LAMBDA (#:WHOLE142 #:ENVIRONMENT143)
;                                     (DECLARE (IGNORE #:ENVIRONMENT143))
;                                     (LET* ((#:CMACRO-&WHOLE144 #:WHOLE142)
;                                            (#:WHOLE142 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE144))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (#)
;                                         (BLOCK SB-PCL::FSC-INSTANCE-P `#))))
;                                 '(SB-PCL::FIN) NIL
;                                 '(COMPILER-MACRO-FUNCTION
;                                   SB-PCL::FSC-INSTANCE-P))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (1 FSC-INSTANCE-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO STD-INSTANCE-P
;     (DEFINE-COMPILER-MACRO SB-PCL::STD-INSTANCE-P
;         (SB-PCL::X)
;       `(SB-KERNEL:%INSTANCEP ,SB-PCL::X))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SB-PCL::STD-INSTANCE-P
;                                 #'(LAMBDA (#:WHOLE196 #:ENVIRONMENT197)
;                                     (DECLARE (IGNORE #:ENVIRONMENT197))
;                                     (LET* ((#:CMACRO-&WHOLE198 #:WHOLE196)
;                                            (#:WHOLE196 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE198))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (#)
;                                         (BLOCK SB-PCL::STD-INSTANCE-P `#))))
;                                 '(SB-PCL::X) NIL
;                                 '(COMPILER-MACRO-FUNCTION
;                                   SB-PCL::STD-INSTANCE-P))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (1 STD-INSTANCE-P))
;      :ASSIGNED-SLOTS NIL)

; in: !DEFSTRUCT-WITH-ALTERNATE-METACLASS %METHOD-FUNCTION
;     (SB-KERNEL:!DEFSTRUCT-WITH-ALTERNATE-METACLASS SB-PCL::%METHOD-FUNCTION
;                                                    :SLOT-NAMES
;                                                    (SB-PCL::FAST-FUNCTION
;                                                     SB-PCL::NAME)
;                                                    :BOA-CONSTRUCTOR
;                                                    SB-PCL::%MAKE-METHOD-FUNCTION
;                                                    :SUPERCLASS-NAME FUNCTION
;                                                    :METACLASS-NAME
;                                                    SB-KERNEL:STATIC-CLASSOID
;                                                    :METACLASS-CONSTRUCTOR
;                                                    SB-KERNEL:MAKE-STATIC-CLASSOID
;                                                    ...)
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(INLINE (SETF SB-PCL::%METHOD-FUNCTION-FAST-FUNCTION)
;      (SETF SB-PCL::%METHOD-FUNCTION-NAME))
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SB-C:INLINING-DEPENDENCY-FAILURE
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<Proclaiming ~/sb-impl:print-symbol-with-prefix/ to be INLINE, but ~D call~:P to it ~
;   ~:*~[~;was~:;were~] previously compiled. A declaration of NOTINLINE ~
;   at the call site~:P will eliminate this warning, as will proclaiming ~
;   and defining the function before its first potential use.~@:>
;                        FORMAT-ARGUMENTS ((SETF %METHOD-FUNCTION-NAME) 1))
;      :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;LOW.FASL.NEWEST written
; compilation finished in 0:00:01.042
; compiling file "/«PKGBUILDDIR»/src/pcl/slot-name.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;SLOT-NAME.FASL.NEWEST written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/src/pcl/defclass.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DEFCLASS.FASL.NEWEST written
; compilation finished in 0:00:01.902
; compiling file "/«PKGBUILDDIR»/src/pcl/defs.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DEFS.FASL.NEWEST written
; compilation finished in 0:00:00.899
; compiling file "/«PKGBUILDDIR»/src/pcl/fngen.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;FNGEN.FASL.NEWEST written
; compilation finished in 0:00:00.560
; compiling file "/«PKGBUILDDIR»/src/pcl/wrapper.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/wrapper.lisp
; in: DEFUN CHECK-WRAPPER-VALIDITY
;     (SB-INT:BUG "Invalid LAYOUT-INVALID: ~S" SB-PCL::STATE)
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; ==>
;   "Invalid LAYOUT-INVALID: ~S"
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;WRAPPER.FASL.NEWEST written
; compilation finished in 0:00:01.837
; compiling file "/«PKGBUILDDIR»/src/pcl/cache.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;CACHE.FASL.NEWEST written
; compilation finished in 0:00:01.954
; compiling file "/«PKGBUILDDIR»/src/pcl/dlisp.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DLISP.FASL.NEWEST written
; compilation finished in 0:00:00.639
; compiling file "/«PKGBUILDDIR»/src/pcl/boot.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/boot.lisp
; in: DEFUN CHECK-GF-LAMBDA-LIST
;     (MULTIPLE-VALUE-BIND
;         (SB-PCL::LLKS SB-PCL::REQUIRED SB-PCL::OPTIONAL REST SB-PCL::KEYS)
;         (SB-INT:PARSE-LAMBDA-LIST SB-PCL::LAMBDA-LIST :DISALLOW
;                                   '(&AUX &ENVIRONMENT SB-INT:&MORE) :CONTEXT
;                                   "a generic function lambda list")
;       (DECLARE (IGNORE SB-PCL::LLKS REST))
;       (DOLIST (SB-PCL::ARG SB-PCL::OPTIONAL)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (SB-PCL::COMPLAIN SB-PCL::ARG)))
;       (DOLIST (SB-PCL::ARG SB-PCL::KEYS)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (TYPEP SB-PCL::ARG '(CONS # NULL)) (SB-PCL::COMPLAIN SB-PCL::ARG))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (SB-PCL::LLKS) (SB-PCL::REQUIRED) (SB-PCL::OPTIONAL) (REST)
;          (SB-PCL::KEYS)
;          &REST #:G163)
;       (DECLARE (IGNORE #:G163))
;       (DECLARE (IGNORE SB-PCL::LLKS REST))
;       (DOLIST (SB-PCL::ARG SB-PCL::OPTIONAL)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (SB-PCL::COMPLAIN SB-PCL::ARG)))
;       (DOLIST (SB-PCL::ARG SB-PCL::KEYS)
;         (OR (SB-PCL::SYMBOL-OR-SINGLETON-P SB-PCL::ARG)
;             (TYPEP SB-PCL::ARG '(CONS # NULL)) (SB-PCL::COMPLAIN SB-PCL::ARG))))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (REQUIRED))
;      :ASSIGNED-SLOTS NIL)

; in: DEFMACRO DEFMETHOD
;     (DEFMACRO DEFMETHOD (SB-PCL::NAME &REST SB-PCL::ARGS)
;       (MULTIPLE-VALUE-BIND (SB-PCL::QUALIFIERS SB-PCL::LAMBDA-LIST SB-PCL::BODY)
;           (SB-PCL::PARSE-DEFMETHOD SB-PCL::ARGS)
;         `(PROGN
;           (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE)
;             (SB-PCL::COMPILE-OR-LOAD-DEFGENERIC ',SB-PCL::NAME))
;           (EVAL-WHEN (:LOAD-TOPLEVEL)
;             (SB-PCL::%DEFMETHOD-EXPANDER ,SB-PCL::NAME ,SB-PCL::QUALIFIERS
;              ,SB-PCL::LAMBDA-LIST ,SB-PCL::BODY))
;           (EVAL-WHEN (:EXECUTE)
;             (SB-PCL::%DEFMETHOD-EXPANDER ,SB-PCL::NAME ,SB-PCL::QUALIFIERS
;              ,SB-PCL::LAMBDA-LIST ,SB-PCL::BODY)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFMACRO 'DEFMETHOD
;                    #'(SB-INT:NAMED-LAMBDA (DEFMACRO DEFMETHOD)
;                          (#:.WHOLE. #:.ENVIRONMENT.)
;                        (DECLARE (IGNORE #:.ENVIRONMENT.))
;                        (LET* ()
;                          (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                          (LET (#)
;                            (UNLESS # #))
;                          (LET* (# #)
;                            (BLOCK DEFMETHOD #))))
;                    '(SB-PCL::NAME &REST SB-PCL::ARGS) NIL
;                    '(MACRO-FUNCTION DEFMETHOD) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(REDEFINITION-WITH-DEFMACRO
;      :ACTUAL-INITARGS (NAME DEFMETHOD NEW-FUNCTION
;                        #1=#<FUNCTION (DEFMACRO DEFMETHOD) {51CAE765}>
;                        NEW-LOCATION
;                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
;                              :NAMESTRING SYS:SRC;PCL;BOOT.LISP.NEWEST
;                              :TOPLEVEL-FORM-NUMBER 10
;                              :PLIST NIL))
;      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME DEFMETHOD))

; SYS:SRC;PCL;BOOT.FASL.NEWEST written
; compilation finished in 0:00:09.647
; compiling file "/«PKGBUILDDIR»/src/pcl/vector.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;VECTOR.FASL.NEWEST written
; compilation finished in 0:00:05.500
; compiling file "/«PKGBUILDDIR»/src/pcl/slots-boot.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;SLOTS-BOOT.FASL.NEWEST written
; compilation finished in 0:00:03.170
; compiling file "/«PKGBUILDDIR»/src/pcl/combin.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;COMBIN.FASL.NEWEST written
; compilation finished in 0:00:00.786
; compiling file "/«PKGBUILDDIR»/src/pcl/dfun.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DFUN.FASL.NEWEST written
; compilation finished in 0:00:06.293
; compiling file "/«PKGBUILDDIR»/src/pcl/ctor.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/ctor.lisp
; in: DEFINE-COMPILER-MACRO MAKE-INSTANCE
;     (DEFINE-COMPILER-MACRO MAKE-INSTANCE
;         (&WHOLE SB-KERNEL:FORM &REST SB-PCL::ARGS &ENVIRONMENT SB-PCL::ENV)
;       (DECLARE (IGNORE SB-PCL::ARGS))
;       (OR
;        (UNLESS SB-PCL::*COMPILING-OPTIMIZED-CONSTRUCTOR*
;          (SB-PCL::MAKE-INSTANCE->CONSTRUCTOR-CALL SB-KERNEL:FORM
;           (SB-PCL::SAFE-CODE-P SB-PCL::ENV)))
;        SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'MAKE-INSTANCE
;                                 #'(LAMBDA (#:WHOLE564 #:ENVIRONMENT565)
;                                     (LET* ((#:CMACRO-&WHOLE566 #:WHOLE564)
;                                            (#:WHOLE564 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE566))
;                                       (LET* (# # #)
;                                         (DECLARE #)
;                                         (BLOCK MAKE-INSTANCE #))))
;                                 '(&WHOLE SB-KERNEL:FORM &REST SB-PCL::ARGS
;                                   &ENVIRONMENT SB-PCL::ENV)
;                                 NIL '(COMPILER-MACRO-FUNCTION MAKE-INSTANCE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (4 MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;CTOR.FASL.NEWEST written
; compilation finished in 0:00:06.885
; compiling file "/«PKGBUILDDIR»/src/pcl/braid.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;BRAID.FASL.NEWEST written
; compilation finished in 0:00:02.815
; compiling file "/«PKGBUILDDIR»/src/pcl/dlisp3.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DLISP3.FASL.NEWEST written
; compilation finished in 0:00:00.037
; compiling file "/«PKGBUILDDIR»/src/pcl/generic-functions.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;GENERIC-FUNCTIONS.FASL.NEWEST written
; compilation finished in 0:00:00.148
; compiling file "/«PKGBUILDDIR»/src/pcl/slots.lisp" (written 30 MAY 2015 05:47:21 AM):

; file: /«PKGBUILDDIR»/src/pcl/slots.lisp
; in:
;      DECLAIM (INLINE STANDARD-INSTANCE-ACCESS (SETF STANDARD-INSTANCE-ACCESS)
;           (CAS STADARD-INSTANCE-ACCESS) FUNCALLABLE-STANDARD-INSTANCE-ACCESS
;           (SETF FUNCALLABLE-STANDARD-INSTANCE-ACCESS)
;           (CAS FUNCALLABLE-STANDARD-INSTANCE-ACCESS))
;     (DECLAIM
;      (INLINE SB-MOP:STANDARD-INSTANCE-ACCESS
;       (SETF SB-MOP:STANDARD-INSTANCE-ACCESS)
;       (CAS SB-PCL::STADARD-INSTANCE-ACCESS)
;       SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
;       (SETF SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS)
;       (CAS SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS)))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(INLINE SB-MOP:STANDARD-INSTANCE-ACCESS
;      (SETF SB-MOP:STANDARD-INSTANCE-ACCESS)
;      (CAS SB-PCL::STADARD-INSTANCE-ACCESS)
;      SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
;      (SETF SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS)
;      (CAS SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS))
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SB-C:INLINING-DEPENDENCY-FAILURE
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<Proclaiming ~/sb-impl:print-symbol-with-prefix/ to be INLINE, but ~D call~:P to it ~
;   ~:*~[~;was~:;were~] previously compiled. A declaration of NOTINLINE ~
;   at the call site~:P will eliminate this warning, as will proclaiming ~
;   and defining the function before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (STANDARD-INSTANCE-ACCESS 1))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SB-C:INLINING-DEPENDENCY-FAILURE
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<Proclaiming ~/sb-impl:print-symbol-with-prefix/ to be INLINE, but ~D call~:P to it ~
;   ~:*~[~;was~:;were~] previously compiled. A declaration of NOTINLINE ~
;   at the call site~:P will eliminate this warning, as will proclaiming ~
;   and defining the function before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (FUNCALLABLE-STANDARD-INSTANCE-ACCESS 1))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO SLOT-VALUE
;     (DEFINE-COMPILER-MACRO SLOT-VALUE
;         (&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT SB-PCL::SLOT-NAME &ENVIRONMENT
;          SB-PCL::ENV)
;       (IF (AND (CONSTANTP SB-PCL::SLOT-NAME SB-PCL::ENV)
;                (SB-PCL::INTERNED-SYMBOL-P
;                 (SB-INT:CONSTANT-FORM-VALUE SB-PCL::SLOT-NAME SB-PCL::ENV)))
;           `(SB-PCL::ACCESSOR-SLOT-VALUE ,SB-PCL::OBJECT ,SB-PCL::SLOT-NAME)
;           SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SLOT-VALUE
;                                 #'(LAMBDA (#:WHOLE227 #:ENVIRONMENT228)
;                                     (LET* ((#:CMACRO-&WHOLE229 #:WHOLE227)
;                                            (#:WHOLE227 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE229))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # #)
;                                         (BLOCK SLOT-VALUE #))))
;                                 '(&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT
;                                   SB-PCL::SLOT-NAME &ENVIRONMENT SB-PCL::ENV)
;                                 NIL '(COMPILER-MACRO-FUNCTION SLOT-VALUE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (5 SLOT-VALUE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO SET-SLOT-VALUE
;     (DEFINE-COMPILER-MACRO SB-PCL::SET-SLOT-VALUE
;         (&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT SB-PCL::SLOT-NAME SB-PCL::NEW-VALUE
;          &ENVIRONMENT SB-PCL::ENV)
;       (IF (AND (CONSTANTP SB-PCL::SLOT-NAME SB-PCL::ENV)
;                (SB-PCL::INTERNED-SYMBOL-P
;                 (SB-INT:CONSTANT-FORM-VALUE SB-PCL::SLOT-NAME SB-PCL::ENV))
;                (NOT (SB-PCL::SAFE-CODE-P SB-PCL::ENV)))
;           `(SB-PCL::ACCESSOR-SET-SLOT-VALUE ,SB-PCL::OBJECT ,SB-PCL::SLOT-NAME
;                                             ,SB-PCL::NEW-VALUE)
;           SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SB-PCL::SET-SLOT-VALUE
;                                 #'(LAMBDA (#:WHOLE305 #:ENVIRONMENT306)
;                                     (LET* ((#:CMACRO-&WHOLE307 #:WHOLE305)
;                                            (#:WHOLE305 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE307))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # # #)
;                                         (BLOCK SB-PCL::SET-SLOT-VALUE #))))
;                                 '(&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT
;                                   SB-PCL::SLOT-NAME SB-PCL::NEW-VALUE
;                                   &ENVIRONMENT SB-PCL::ENV)
;                                 NIL
;                                 '(COMPILER-MACRO-FUNCTION
;                                   SB-PCL::SET-SLOT-VALUE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (3 SET-SLOT-VALUE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-COMPILER-MACRO SLOT-BOUNDP
;     (DEFINE-COMPILER-MACRO SLOT-BOUNDP
;         (&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT SB-PCL::SLOT-NAME &ENVIRONMENT
;          SB-PCL::ENV)
;       (IF (AND (CONSTANTP SB-PCL::SLOT-NAME SB-PCL::ENV)
;                (SB-PCL::INTERNED-SYMBOL-P
;                 (SB-INT:CONSTANT-FORM-VALUE SB-PCL::SLOT-NAME SB-PCL::ENV)))
;           `(SB-PCL::ACCESSOR-SLOT-BOUNDP ,SB-PCL::OBJECT ,SB-PCL::SLOT-NAME)
;           SB-KERNEL:FORM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SLOT-BOUNDP
;                                 #'(LAMBDA (#:WHOLE393 #:ENVIRONMENT394)
;                                     (LET* ((#:CMACRO-&WHOLE395 #:WHOLE393)
;                                            (#:WHOLE393 #))
;                                       (DECLARE
;                                        (MUFFLE-CONDITIONS CODE-DELETION-NOTE))
;                                       (DECLARE (IGNORABLE #:CMACRO-&WHOLE395))
;                                       (LET (#)
;                                         (UNLESS # #))
;                                       (LET* (# # # #)
;                                         (BLOCK SLOT-BOUNDP #))))
;                                 '(&WHOLE SB-KERNEL:FORM SB-PCL::OBJECT
;                                   SB-PCL::SLOT-NAME &ENVIRONMENT SB-PCL::ENV)
;                                 NIL '(COMPILER-MACRO-FUNCTION SLOT-BOUNDP))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~@<~@(~D~) call~:P to ~/sb-impl:print-symbol-with-prefix/ ~2:*~[~;was~:;were~] ~
;   compiled before a compiler-macro was defined for it. A declaration of ~
;   NOTINLINE at the call site~:P will eliminate this warning, ~
;   as will defining the compiler-macro before its first potential use.~@:>
;                        FORMAT-ARGUMENTS (1 SLOT-BOUNDP))
;      :ASSIGNED-SLOTS NIL)

; SYS:SRC;PCL;SLOTS.FASL.NEWEST written
; compilation finished in 0:00:03.030
; compiling file "/«PKGBUILDDIR»/src/pcl/init.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;INIT.FASL.NEWEST written
; compilation finished in 0:00:01.403
; compiling file "/«PKGBUILDDIR»/src/pcl/std-class.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;STD-CLASS.FASL.NEWEST written
; compilation finished in 0:00:15.506
; compiling file "/«PKGBUILDDIR»/src/pcl/cpl.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;CPL.FASL.NEWEST written
; compilation finished in 0:00:00.725
; compiling file "/«PKGBUILDDIR»/src/pcl/fsc.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;FSC.FASL.NEWEST written
; compilation finished in 0:00:00.215
; compiling file "/«PKGBUILDDIR»/src/pcl/methods.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;METHODS.FASL.NEWEST written
; compilation finished in 0:00:06.609
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFUN
      :ACTUAL-INITARGS (NAME MAYBE-UPDATE-INFO-FOR-GF NEW-FUNCTION
                        #1=#<FUNCTION SB-C::MAYBE-UPDATE-INFO-FOR-GF
                             {53C8609D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;METHODS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 38
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME
                       MAYBE-UPDATE-INFO-FOR-GF))
; compiling file "/«PKGBUILDDIR»/src/pcl/fixup.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;FIXUP.FASL.NEWEST written
; compilation finished in 0:00:00.264
; compiling file "/«PKGBUILDDIR»/src/pcl/defcombin.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DEFCOMBIN.FASL.NEWEST written
; compilation finished in 0:00:00.915
; compiling file "/«PKGBUILDDIR»/src/pcl/ctypes.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;CTYPES.FASL.NEWEST written
; compilation finished in 0:00:00.117
; compiling file "/«PKGBUILDDIR»/src/pcl/env.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;ENV.FASL.NEWEST written
; compilation finished in 0:00:00.369
; compiling file "/«PKGBUILDDIR»/src/pcl/documentation.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;DOCUMENTATION.FASL.NEWEST written
; compilation finished in 0:00:03.121
; compiling file "/«PKGBUILDDIR»/src/pcl/print-object.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;PRINT-OBJECT.FASL.NEWEST written
; compilation finished in 0:00:01.928
STYLE-WARNING: #<REDEFINITION-WITH-DEFUN {52122DA1}>
; compiling file "/«PKGBUILDDIR»/src/pcl/precom1.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;PRECOM1.FASL.NEWEST written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/src/pcl/precom2.lisp" (written 30 MAY 2015 05:47:21 AM):

; SYS:SRC;PCL;PRECOM2.FASL.NEWEST written
; compilation finished in 0:00:07.958
; 
; compilation unit finished
;   caught 11 STYLE-WARNING conditions
;   printed 2 notes
; Done with PCL compilation

; compiling file "/«PKGBUILDDIR»/src/code/force-delayed-defbangmethods.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")

; file: /«PKGBUILDDIR»/src/code/force-delayed-defbangmethods.lisp
; in:
;      MACROLET ((FORCE-DELAYED-DEF!METHODS NIL
;             `(PROGN
;               ,@(MAPCAR # *DELAYED-DEF!METHOD-ARGS*)
;               (MAKUNBOUND '*DELAYED-DEF!METHOD-ARGS*))))
;     (SB-IMPL::FORCE-DELAYED-DEF!METHODS)
; --> PROGN PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK IF IF IF THE 
; --> SB-PCL::OPTIMIZED-SLOT-BOUNDP SB-PCL::INSTANCE-BOUNDP 
; --> SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::DATUM BOUNDP)
;                   CONDITION)
; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {53DDDC09}>

; --> PROGN PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK IF IF IF SB-PCL::OPTIMIZED-SLOT-BOUNDP 
; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL
;    #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::EXPECTED-TYPE BOUNDP) CONDITION)
; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {53DEE819}>

; --> PROGN PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK IF IF THE SB-PCL::OPTIMIZED-SLOT-BOUNDP 
; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP)
;                   CONDITION)
; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {53DFA609}>
; 
; compilation unit finished
;   Undefined functions:
;     (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::DATUM BOUNDP) (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::EXPECTED-TYPE BOUNDP) (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP)
;   caught 3 STYLE-WARNING conditions
; compiling (FORCE-DELAYED-DEF!METHODS)

; SYS:SRC;CODE;FORCE-DELAYED-DEFBANGMETHODS.FASL.NEWEST written
; compilation finished in 0:00:20.292
; compiling file "/«PKGBUILDDIR»/src/code/late-condition.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-KERNEL")
; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-READER))
; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-WRITER))
; compiling (DEFMACRO STANDARD-METHOD-FUNCTION ...)
; compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...)
; compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...)

; SYS:SRC;CODE;LATE-CONDITION.FASL.NEWEST written
; compilation finished in 0:00:00.189
; compiling file "/«PKGBUILDDIR»/src/pcl/gray-streams-class.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB-GRAY")
; compiling (LET (#) ...)
; compiling (DEFCLASS FUNDAMENTAL-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-OUTPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-OUTPUT-STREAM ...)

; SYS:SRC;PCL;GRAY-STREAMS-CLASS.FASL.NEWEST written
; compilation finished in 0:00:00.034
; compiling file "/«PKGBUILDDIR»/src/pcl/gray-streams.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB-GRAY")
; compiling (DEFMACRO BUG-OR-ERROR ...)
; compiling (FMAKUNBOUND (QUOTE STREAM-ELEMENT-TYPE))
; compiling (DEFGENERIC STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFGENERIC PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (PCL-OPEN-STREAM-P (MAKE-STRING-OUTPUT-STREAM))
; compiling (SETF (FDEFINITION #) ...)
; compiling (DEFGENERIC PCL-CLOSE ...)
; compiling (DEFMETHOD PCL-CLOSE ...)
; compiling (DEFMETHOD PCL-CLOSE ...)
; compiling (PCL-CLOSE (MAKE-STRING-OUTPUT-STREAM))
; compiling (SETF (FDEFINITION #) ...)
; compiling (LET NIL ...)
; compiling (LET NIL ...)
; compiling (LET NIL ...)
; compiling (DEFGENERIC STREAM-READ-CHAR ...)
; compiling (DEFGENERIC STREAM-UNREAD-CHAR ...)
; compiling (DEFGENERIC STREAM-READ-CHAR-NO-HANG ...)
; compiling (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...)
; compiling (DEFGENERIC STREAM-PEEK-CHAR ...)
; compiling (DEFMETHOD STREAM-PEEK-CHAR ...)
; compiling (DEFGENERIC STREAM-LISTEN ...)
; compiling (DEFMETHOD STREAM-LISTEN ...)
; compiling (DEFGENERIC STREAM-READ-LINE ...)
; compiling (DEFMETHOD STREAM-READ-LINE ...)
; compiling (DEFGENERIC STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFGENERIC STREAM-READ-SEQUENCE ...)
; compiling (DEFUN BASIC-IO-TYPE-STREAM-READ-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-WRITE-CHAR ...)
; compiling (DEFGENERIC STREAM-LINE-COLUMN ...)
; compiling (DEFMETHOD STREAM-LINE-COLUMN ...)
; compiling (DEFGENERIC STREAM-LINE-LENGTH ...)
; compiling (DEFMETHOD STREAM-LINE-LENGTH ...)
; compiling (DEFGENERIC STREAM-START-LINE-P ...)
; compiling (DEFMETHOD STREAM-START-LINE-P ...)
; compiling (DEFGENERIC STREAM-WRITE-STRING ...)
; compiling (DEFMETHOD STREAM-WRITE-STRING ...)
; compiling (DEFGENERIC STREAM-TERPRI ...)
; compiling (DEFMETHOD STREAM-TERPRI ...)
; compiling (DEFGENERIC STREAM-FRESH-LINE ...)
; compiling (DEFMETHOD STREAM-FRESH-LINE ...)
; compiling (DEFGENERIC STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFGENERIC STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFGENERIC STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFGENERIC STREAM-ADVANCE-TO-COLUMN ...)
; compiling (DEFMETHOD STREAM-ADVANCE-TO-COLUMN ...)
; compiling (DEFGENERIC STREAM-WRITE-SEQUENCE ...)
; compiling (DEFUN BASIC-IO-TYPE-STREAM-WRITE-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-READ-BYTE ...)
; compiling (DEFMETHOD STREAM-READ-BYTE ...)
; compiling (DEFMETHOD STREAM-READ-BYTE ...)
; compiling (DEFGENERIC STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-FILE-POSITION ...)
; compiling (DEFMETHOD STREAM-FILE-POSITION ...)
; compiling (DEFMETHOD STREAM-FILE-POSITION ...)

; SYS:SRC;PCL;GRAY-STREAMS.FASL.NEWEST written
; compilation finished in 0:00:04.527
; compiling file "/«PKGBUILDDIR»/src/pcl/sequence.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFINE-CONDITION SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...)
; compiling (DEFUN SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...)
; compiling (DEFGENERIC SB-SEQUENCE:EMPTYP ...)
; compiling (DEFGENERIC SB-SEQUENCE:LENGTH ...)
; compiling (DEFGENERIC SB-SEQUENCE:ELT ...)
; compiling (DEFGENERIC (SETF SB-SEQUENCE:ELT) ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-LIKE ...)
; compiling (DEFGENERIC SB-SEQUENCE:ADJUST-SEQUENCE ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-ITERATOR ...)
; compiling (DEFVAR *EXHAUSTED* ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SIMPLE-SEQUENCE-ITERATOR ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-STEP ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ENDP ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ELEMENT ...)
; compiling (DEFGENERIC (SETF SB-SEQUENCE:ITERATOR-ELEMENT) ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-INDEX ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-COPY ...)
; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR ...)
; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR-FUNCTIONS ...)
; compiling (DEFUN SB-SEQUENCE:CANONIZE-TEST ...)
; compiling (DEFUN SB-SEQUENCE:CANONIZE-KEY ...)
; compiling (DEFUN LOOP-ELEMENTS-ITERATION-PATH ...)
; compiling (SB-LOOP::ADD-LOOP-PATH (QUOTE #) ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAP ...)
; compiling (DEFMETHOD SB-SEQUENCE:MAP ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSEQ ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSEQ ...)
; compiling (DEFGENERIC SB-SEQUENCE:COPY-SEQ ...)
; compiling (DEFMETHOD SB-SEQUENCE:COPY-SEQ ...)
; compiling (DEFGENERIC SB-SEQUENCE:FILL ...)
; compiling (DEFMETHOD SB-SEQUENCE:FILL ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF-NOT ...)
; compiling (DEFUN %SEQUENCE-REPLACE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REPLACE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REPLACE ...)
; compiling (DEFGENERIC SB-SEQUENCE:NREVERSE ...)
; compiling (DEFMETHOD SB-SEQUENCE:NREVERSE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REVERSE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REVERSE ...)
; compiling (DEFGENERIC SB-SEQUENCE:CONCATENATE ...)
; compiling (DEFMETHOD SB-SEQUENCE:CONCATENATE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REDUCE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REDUCE ...)
; compiling (DEFGENERIC SB-SEQUENCE:MISMATCH ...)
; compiling (DEFMETHOD SB-SEQUENCE:MISMATCH ...)
; compiling (DEFGENERIC SB-SEQUENCE:SEARCH ...)
; compiling (DEFMETHOD SB-SEQUENCE:SEARCH ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-DUPLICATES ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-DUPLICATES ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-DUPLICATES ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-DUPLICATES ...)
; compiling (DEFGENERIC SB-SEQUENCE:SORT ...)
; compiling (DEFMETHOD SB-SEQUENCE:SORT ...)
; compiling (DEFGENERIC SB-SEQUENCE:STABLE-SORT ...)
; compiling (DEFMETHOD SB-SEQUENCE:STABLE-SORT ...)
; compiling (DEFGENERIC SB-SEQUENCE:MERGE ...)
; compiling (DEFMETHOD SB-SEQUENCE:MERGE ...)

; SYS:SRC;PCL;SEQUENCE.FASL.NEWEST written
; compilation finished in 0:00:11.261
; compiling file "/«PKGBUILDDIR»/src/code/describe.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFUN CLASS-NAME-OR-CLASS ...)
; compiling (DEFUN FUN-NAME ...)
; compiling (DEFUN FUNCTION-LAMBDA-EXPRESSION ...)
; compiling (DEFUN PRIN1-TO-LINE ...)
; compiling (DEFUN DESCRIBE ...)
; compiling (DEFGENERIC OBJECT-SELF-STRING ...)
; compiling (DEFMETHOD OBJECT-SELF-STRING ...)
; compiling (DEFMETHOD OBJECT-SELF-STRING ...)
; compiling (DEFGENERIC OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFMETHOD OBJECT-TYPE-STRING ...)
; compiling (DEFUN PRINT-STANDARD-DESCRIBE-HEADER ...)
; compiling (DEFGENERIC DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFUN DESCRIBE-CLASS ...)
; compiling (DEFUN DESCRIBE-INSTANCE ...)
; compiling (DEFUN QUIET-DOC ...)
; compiling (DEFUN DESCRIBE-DOCUMENTATION ...)
; compiling (DEFUN DESCRIBE-STUFF ...)
; compiling (DEFUN DESCRIBE-LAMBDA-LIST ...)
; compiling (DEFUN DESCRIBE-FUNCTION-SOURCE ...)
; compiling (DEFUN DESCRIBE-FUNCTION ...)

; SYS:SRC;CODE;DESCRIBE.FASL.NEWEST written
; compilation finished in 0:00:04.569
; compiling file "/«PKGBUILDDIR»/src/code/describe-policy.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-C")
; compiling (DEFUN DESCRIBE-COMPILER-POLICY ...)

; SYS:SRC;CODE;DESCRIBE-POLICY.FASL.NEWEST written
; compilation finished in 0:00:00.138
; compiling file "/«PKGBUILDDIR»/src/code/inspect.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFPARAMETER *INSPECT-LENGTH* ...)
; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...)
; compiling (DEFUN INSPECTOR ...)
; compiling (DEFVAR *INSPECT-FUN* ...)
; compiling (DEFVAR *INSPECTED*)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN INSPECT ...)
; compiling (DEFVAR *HELP-FOR-INSPECT* ...)
; compiling (DEFUN %INSPECT ...)
; compiling (DEFUN EVAL-FOR-INSPECT ...)
; compiling (DEFUN TTY-DISPLAY-INSPECTED-PARTS ...)
; compiling (DEFGENERIC INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STRUCTURE-ELEMENTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STANDARD-OBJECT-ELEMENTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-INDEX-STRING ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)

; SYS:SRC;CODE;INSPECT.FASL.NEWEST written
; compilation finished in 0:00:02.623
; compiling file "/«PKGBUILDDIR»/src/code/profile.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-PROFILE")
; compiling (DECLAIM (INLINE MAKE-COUNTER))
; compiling (DEFSTRUCT (COUNTER # ...) ...)
; compiling (DEFUN INCF-COUNTER ...)
; compiling (DEFUN COUNTER-COUNT ...)
; compiling (DEFCONSTANT +TICKS-PER-SECOND+ ...)
; compiling (DECLAIM (INLINE GET-INTERNAL-TICKS))
; compiling (DEFUN GET-INTERNAL-TICKS ...)
; compiling (DEFVAR *PROFILED-FUN-NAME->INFO* ...)
; compiling (DEFSTRUCT (PROFILE-INFO #) ...)
; compiling (DECLAIM (COUNTER *ENCLOSED-TICKS* ...))
; compiling (DEFVAR *ENCLOSED-TICKS*)
; compiling (DEFVAR *ENCLOSED-CONSING*)
; compiling (DECLAIM (COUNTER *ENCLOSED-PROFILES*))
; compiling (DEFVAR *ENCLOSED-PROFILES*)
; compiling (DECLAIM (COUNTER *ENCLOSED-GC-RUN-TIME*))
; compiling (DEFVAR *ENCLOSED-GC-RUN-TIME*)
; compiling (DEFVAR *COMPUTING-PROFILING-DATA-FOR*)
; compiling (DEFSTRUCT (OVERHEAD #) ...)
; compiling (DEFVAR *OVERHEAD*)
; compiling (DECLAIM (TYPE OVERHEAD ...))
; compiling (MAKUNBOUND (QUOTE *OVERHEAD*))

; file: /«PKGBUILDDIR»/src/code/profile.lisp
; in: DEFUN PROFILE-ENCAPSULATION-LAMBDAS
;     (SB-PROFILE::MAKE-COUNTER)
; --> BLOCK LET 
; ==>
;   #:INSTANCE0
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)
; 
; note: could not stack allocate #:INSTANCE0 in: (MAKE-COUNTER)

;     (1+ SB-PROFILE::INNER-ENCLOSED-PROFILES)
; ==>
;   (+ SB-PROFILE::INNER-ENCLOSED-PROFILES 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do #1=inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do #1# (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
;       etc.

;     (- (SB-PROFILE::GET-INTERNAL-TICKS) SB-PROFILE::START-TICKS)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0)
; 
; note: forced to do static-fun Eql (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (- (GET-BYTES-CONSED) SB-PROFILE::NBF0 SB-PROFILE::DYNAMIC-USAGE-0)
; --> - 
; ==>
;   (- (GET-BYTES-CONSED) SB-PROFILE::NBF0)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

; ==>
;   (- (- (GET-BYTES-CONSED) SB-PROFILE::NBF0) SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 4294967295) . #1=(&OPTIONAL)), not a (VALUES
;                                                                                          FIXNUM
;                                                                                          &REST
;                                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 4294967295) . #1#), not a (VALUES
;                                                                               (SIGNED-BYTE
;                                                                                32)
;                                                                               &REST
;                                                                               T).
;       etc.

;     (SETF SB-PROFILE::DTICKS
;             (- (SB-PROFILE::GET-INTERNAL-TICKS) SB-PROFILE::START-TICKS)
;           SB-PROFILE::DCONSING
;             (IF (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0)
;                 (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
;                 (- (GET-BYTES-CONSED) SB-PROFILE::NBF0
;                    SB-PROFILE::DYNAMIC-USAGE-0))
;           SB-PROFILE::INNER-ENCLOSED-PROFILES
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-PROFILES*)
;           SB-PROFILE::DGC-RUN-TIME
;             (- *GC-RUN-TIME* SB-PROFILE::START-GC-RUN-TIME))
; --> PROGN SETF SETQ MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (- SB-PROFILE::DTICKS
;        (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-TICKS*))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND 
; --> IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (- SB-PROFILE::DGC-RUN-TIME
;        (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-GC-RUN-TIME*))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND 
; --> IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER * 536870908) . #1=(&OPTIONAL)), not a (VALUES
;                                                                               FIXNUM
;                                                                               &REST
;                                                                               T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER * 536870908) . #1#), not a (VALUES
;                                                                    (SIGNED-BYTE
;                                                                     32)
;                                                                    &REST T).
;       etc.

;     (- SB-PROFILE::DCONSING
;        (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-CONSING*))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND 
; --> IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (APPLY FUNCTION SB-PROFILE::ARGS)
; --> MULTIPLE-VALUE-CALL PROGN 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::CLAMBDA
;      :%SOURCE-NAME #:CLEANUP-FUN-284
;      :%DEBUG-NAME (FLET #:CLEANUP-FUN-284 :IN SB-PROFILE::PROFILE-ENCAPSULATION-LAMBDAS)
;      :KIND :CLEANUP
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS NIL {52A7AF21}>)
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (UNWIND-PROTECT (APPLY FUNCTION SB-PROFILE::ARGS)
;       (LET ((SB-PROFILE::*COMPUTING-PROFILING-DATA-FOR* FUNCTION)
;             (SB-PROFILE::DYNAMIC-USAGE-1 (SB-KERNEL:DYNAMIC-USAGE)))
;         (SETF SB-PROFILE::DTICKS (- # SB-PROFILE::START-TICKS)
;               SB-PROFILE::DCONSING
;                 (IF #
;                     #
;                     #)
;               SB-PROFILE::INNER-ENCLOSED-PROFILES
;                 (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-PROFILES*)
;               SB-PROFILE::DGC-RUN-TIME
;                 (- *GC-RUN-TIME* SB-PROFILE::START-GC-RUN-TIME))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::TICKS
;          (- SB-PROFILE::DTICKS
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-TICKS*)))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::GC-RUN-TIME
;          (- SB-PROFILE::DGC-RUN-TIME
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-GC-RUN-TIME*)))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::CONSING
;          (- SB-PROFILE::DCONSING
;             (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-CONSING*)))
;         (SB-PROFILE::INCF-COUNTER SB-PROFILE::PROFILES
;          SB-PROFILE::INNER-ENCLOSED-PROFILES)))
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (#:CLEANUP-FUN-284)
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg--
; compiling (DEFUN PROFILE-ENCAPSULATION-LAMBDAS ...)
; compiling (DEFUN MAPC-ON-NAMED-FUNS ...)
; compiling (DEFUN PROFILE-1-UNPROFILED-FUN ...)
; compiling (DEFUN PROFILE-1-FUN ...)
; compiling (DEFUN UNPROFILE-1-FUN ...)
; compiling (DEFMACRO PROFILE ...)
; compiling (DEFMACRO UNPROFILE ...)
; compiling (DEFUN UNPROFILE-ALL ...)
; compiling (DEFUN RESET ...)
; compiling (DEFSTRUCT (TIME-INFO #) ...)
; compiling (DEFUN COMPENSATE-TIME ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN PRINT-PROFILE-TABLE ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; compiling (DEFPARAMETER *TIMER-OVERHEAD-ITERATIONS* ...)
; compiling (DECLAIM (NOTINLINE COMPUTE-OVERHEAD-AUX))
; compiling (DEFUN COMPUTE-OVERHEAD-AUX ...)
; compiling (DEFUN COMPUTE-OVERHEAD ...)
; 
; compilation unit finished
;   printed 20 notes
; compiling (DEFUN PROFILE-DEINIT ...)

; SYS:SRC;CODE;PROFILE.FASL.NEWEST written
; compilation finished in 0:00:02.169
; compiling file "/«PKGBUILDDIR»/src/code/ntrace.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-DEBUG")
; compiling (DEFVAR *TRACE-INDENTATION-STEP* ...)
; compiling (DEFVAR *MAX-TRACE-INDENTATION* ...)
; compiling (DEFVAR *TRACE-ENCAPSULATE-DEFAULT* ...)
; compiling (DEFVAR *TRACED-FUNS* ...)
; compiling (DEF!STRUCT (TRACE-INFO # ...) ...)
; compiling (DEFVAR *TRACED-ENTRIES* ...)
; compiling (DECLAIM (LIST *TRACED-ENTRIES*))
; compiling (DEFVAR *IN-TRACE* ...)
; compiling (DEFUN TRACE-FDEFINITION ...)
; compiling (DEFUN TRACE-REDEFINED-UPDATE ...)
; compiling (PUSH (FUNCTION TRACE-REDEFINED-UPDATE) ...)
; compiling (DEFUN COERCE-FORM ...)
; compiling (DEFUN COERCE-FORM-LIST ...)
; compiling (DEFUN PRINT-TRACE-INDENTATION ...)
; compiling (DEFUN TRACE-WHEREIN-P ...)
; compiling (DEFUN TRACE-PRINT ...)
; compiling (DEFUN TRACE-MAYBE-BREAK ...)
; compiling (DEFUN DISCARD-INVALID-ENTRIES ...)
; compiling (DEFUN TRACE-START-BREAKPOINT-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN TRACE-END-BREAKPOINT-FUN ...)
; compiling (DEFUN TRACE-CALL ...)
; compiling (DEFUN TRACE-1 ...)
; compiling (DEFUN PARSE-TRACE-OPTIONS ...)
; compiling (DEFUN EXPAND-TRACE ...)
; compiling (DEFUN %LIST-TRACED-FUNS ...)
; compiling (DEFMACRO TRACE ...)
; compiling (DEFUN UNTRACE-1 ...)
; compiling (DEFUN UNTRACE-ALL ...)
; compiling (DEFUN UNTRACE-PACKAGE ...)
; compiling (DEFMACRO UNTRACE ...)

; SYS:SRC;CODE;NTRACE.FASL.NEWEST written
; compilation finished in 0:00:01.842
; compiling file "/«PKGBUILDDIR»/src/code/step.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFUN STEP-FORM ...)
; compiling (DEFUN STEP-VALUES ...)
; compiling (DEFUN STEP-FINISHED ...)
; compiling (DEFGENERIC SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFVAR *STEPPER-HOOK* ...)
; compiling (DEFUN INVOKE-STEPPER ...)
; compiling (DEFMACRO STEP ...)

; SYS:SRC;CODE;STEP.FASL.NEWEST written
; compilation finished in 0:00:00.435
; compiling file "/«PKGBUILDDIR»/src/code/warm-lib.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")

; SYS:SRC;CODE;WARM-LIB.FASL.NEWEST written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/src/code/run-program.lisp" (written 30 MAY 2015 05:47:19 AM):
; compiling (IN-PACKAGE "SB-IMPL")

; file: /«PKGBUILDDIR»/src/code/run-program.lisp
; in: DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON
;     (DEFINE-ALIEN-ROUTINE SB-IMPL::WRAPPED-ENVIRON (* C-STRING))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; compiling (DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON ...)
; compiling (DEFUN POSIX-ENVIRON ...)
; compiling (DEFUN UNIX-ENVIRONMENT-SBCL-FROM-CMUCL ...)
; compiling (DEFINE-ALIEN-ROUTINE ("waitpid" C-WAITPID) ...)
; compiling (DEFUN WAITPID ...)
; compiling (DEFVAR *ACTIVE-PROCESSES* ...)
; compiling (DEFVAR *ACTIVE-PROCESSES-LOCK* ...)
; compiling (DEFMACRO WITH-ACTIVE-PROCESSES-LOCK ...)
; compiling (DEFSTRUCT (PROCESS #) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN PROCESS-EXIT-CODE ...)
; compiling (DEFUN PROCESS-STATUS ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN PROCESS-WAIT ...)
; compiling (DEFUN FIND-CURRENT-FOREGROUND-PROCESS ...)

; file: /«PKGBUILDDIR»/src/code/run-program.lisp
; in: DEFUN PROCESS-KILL
;     (VALUES NIL SB-IMPL::ERRNO)
; ==>
;   SB-IMPL::ERRNO
; 
; note: deleting unreachable code
; compiling (DEFUN PROCESS-KILL ...)
; compiling (DEFUN PROCESS-ALIVE-P ...)
; compiling (DEFUN PROCESS-CLOSE ...)
; compiling (DEFUN GET-PROCESSES-STATUS-CHANGES ...)
; compiling (DEFVAR *CLOSE-ON-ERROR* ...)
; compiling (DEFVAR *CLOSE-IN-PARENT* ...)
; compiling (DEFVAR *HANDLERS-INSTALLED* ...)
; compiling (DEFINE-ALIEN-ROUTINE PTSNAME ...)
; compiling (DEFINE-ALIEN-ROUTINE GRANTPT ...)
; compiling (DEFINE-ALIEN-ROUTINE UNLOCKPT ...)
; compiling (DEFUN FIND-A-PTY ...)
; compiling (DEFUN OPEN-PTY ...)
; compiling (DEFMACRO ROUND-NULL-TERMINATED-BYTES-TO-WORDS ...)
; compiling (DEFUN STRING-LIST-TO-C-STRVEC ...)
; compiling (DEFMACRO WITH-ARGS ...)
; compiling (DEFMACRO WITH-ENVIRONMENT ...)
; compiling (DEFINE-ALIEN-ROUTINE SPAWN ...)
; compiling (DEFUN PREPARE-ARGS ...)
; compiling (DEFUN RUN-PROGRAM ...)
; compiling (DEFUN COPY-DESCRIPTOR-TO-STREAM ...)
; compiling (DEFUN GET-STREAM-FD-AND-EXTERNAL-FORMAT ...)
; compiling (DEFUN GET-TEMPORARY-DIRECTORY ...)
; 
; compilation unit finished
;   printed 2 notes
; compiling (DEFUN GET-DESCRIPTOR-FOR ...)

; SYS:SRC;CODE;RUN-PROGRAM.FASL.NEWEST written
; compilation finished in 0:00:06.599
T
* //doing warm init - load and dump phase
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
COLD-INIT... (PACKAGE = "COMMON-LISP")
("Length(TLFs)= " 13150)

* 
*COMPILE-FILES-P*
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFMACRO
      :ACTUAL-INITARGS (NAME DEFMETHOD NEW-FUNCTION
                        #1=#<FUNCTION (DEFMACRO DEFMETHOD) {520DD735}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;BOOT.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 10
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME DEFMETHOD))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFUN
      :ACTUAL-INITARGS (NAME MAYBE-UPDATE-INFO-FOR-GF NEW-FUNCTION
                        #1=#<FUNCTION SB-C::MAYBE-UPDATE-INFO-FOR-GF
                             {52E1C09D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;METHODS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 38
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME
                       MAYBE-UPDATE-INFO-FOR-GF))
STYLE-WARNING: #<REDEFINITION-WITH-DEFUN {52CEFD41}>
* 
T
* 
NIL
* 
NIL
* 
NIL
* 
NIL
* 
* 
NIL
* 
NIL
* 
NIL
* 
T
* 
NIL
* [undoing binding stack and other enclosing state... done]
[saving current Lisp image into output/sbcl.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45187072 bytes from the dynamic space at 0x4f000000
done]
//checking for leftover cold-init symbols
Found 70:
(#:!WITH-CACHED-FUN #:!DO-PACKED-INFO-VECTOR-AUX-KEY
 #:!WITH-PACKED-INFO-ITERATOR #:!MAKE-SPECIALIZED-ARRAY #:!COERCE-TO-CMT-ENTRY
 #:!EARLY-GF-NAME #:!FIX-ENSURE-ACCESSOR-SPECIALIZERS #:!BOOTSTRAP-GET-SLOT
 #:!SETQ-OPTIONAL-LEADING-SIGN #:!COPY-LIST-MACRO #:!UNCROSS-FORMAT-CONTROL
 #:!GET-META-INFOS #:!BOOTSTRAP-SET-SLOT #:!BOOTSTRAP-SLOT-INDEX
 #:!CMT-ENTRY-TO-FUN-DESIGNATOR #:!VALUES-SPECIFIER-TYPE-BODY
 #:!+PCL-READER-NAME+ #:!+PCL-WRITER-NAME+ #:!+PCL-BOUNDP-NAME+
 #:!DO-PROBE-SEQUENCE #:!DEFGLOBAL #:!DEFINE-HASH-CACHE #:!+COMMA-AT+
 #:!+COMMA-DOT+ #:!CMT-ENTRY-TO-FUNCTION #:!INVOKE-TYPE-METHOD
 #:!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS #:!FIND-DATA-VECTOR-SETTER
 #:!FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS #:!QUIETLY-DEFSETF #:!%QUIETLY-DEFUN
 #:!ENABLE-INFINITE-ERROR-PROTECTOR #:!PPRINT-COLD-INIT #:!BACKQ-COLD-INIT
 #:!SHARPM-COLD-INIT #:!READER-COLD-INIT #:!CLASS-FINALIZE #:!FOREIGN-COLD-INIT
 #:!LOADER-COLD-INIT #:!DEBUG-INFO-COLD-INIT #:!PATHNAME-COLD-INIT
 #:!LATE-PROCLAIM-COLD-INIT #:!FIXUP-TYPE-COLD-INIT
 #:!SET-UP-STRUCTURE-OBJECT-CLASS #:!CONSTANTP-COLD-INIT
 #:!POLICY-COLD-INIT-OR-RESANIFY #:!TARGET-TYPE-COLD-INIT
 #:!ALIEN-TYPE-COLD-INIT #:!LATE-TYPE-COLD-INIT2 #:!LATE-TYPE-COLD-INIT
 #:!EARLY-TYPE-COLD-INIT #:!CLASSES-COLD-INIT #:!WORLD-LOCK-COLD-INIT
 #:!TYPEDEFS-COLD-INIT #:!TYPE-CLASS-COLD-INIT #:!GLOBALDB-COLD-INIT
 #:!UNICODE-PROPERTIES-COLD-INIT #:!CHARACTER-NAME-DATABASE-COLD-INIT
 #:!CHARACTER-DATABASE-COLD-INIT #:!HAIRY-DATA-VECTOR-REFFER-INIT
 #:!RANDOM-COLD-INIT #:!PRINTER-COLD-INIT #:!PACKAGE-COLD-INIT #:!ZZZZZZ
 #:!MAKE-COLD-STDERR-STREAM #:!COLD-INIT #:!COLD-LOSE #:*!LOAD-TIME-VALUES*
 #:*!REVERSED-COLD-TOPLEVELS* #:*!REVERSED-COLD-DEFUNS*
 #:*!REVERSED-COLD-SETF-MACROS*)
209.56user 8.39system 3:38.53elapsed 99%CPU (0avgtext+0avgdata 125084maxresident)k
0inputs+99688outputs (0major+205476minor)pagefaults 0swaps
//entering make-target-contrib.sh
find: `obj/asdf-cache/': No such file or directory
find: `obj/sbcl-home/contrib/': No such file or directory
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
mkdir -p /«PKGBUILDDIR»/obj/sbcl-home/contrib/
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file #p"SYS:CONTRIB;ASDF;UIOP.LISP" :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//uiop.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/asdf/uiop.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :UIOP/PACKAGE ...)
; compiling (IN-PACKAGE :UIOP/PACKAGE)
; compiling (DEFUN FIND-PACKAGE* ...)
; compiling (DEFUN FIND-SYMBOL* ...)
; compiling (DEFUN SYMBOL-CALL ...)
; compiling (DEFUN INTERN* ...)
; compiling (DEFUN EXPORT* ...)
; compiling (DEFUN IMPORT* ...)
; compiling (DEFUN SHADOWING-IMPORT* ...)
; compiling (DEFUN SHADOW* ...)
; compiling (DEFUN MAKE-SYMBOL* ...)
; compiling (DEFUN UNINTERN* ...)
; compiling (DEFUN SYMBOL-SHADOWING-P ...)
; compiling (DEFUN HOME-PACKAGE-P ...)
; compiling (DEFUN SYMBOL-PACKAGE-NAME ...)
; compiling (DEFUN STANDARD-COMMON-LISP-SYMBOL-P ...)
; compiling (DEFUN REIFY-PACKAGE ...)
; compiling (DEFUN UNREIFY-PACKAGE ...)
; compiling (DEFUN REIFY-SYMBOL ...)
; compiling (DEFUN UNREIFY-SYMBOL ...)
; compiling (DEFVAR *ALL-PACKAGE-HAPPINESS* ...)
; compiling (DEFVAR *ALL-PACKAGE-FISHINESS* ...)
; compiling (DEFUN RECORD-FISHY ...)
; compiling (DEFMACRO WHEN-PACKAGE-FISHINESS ...)
; compiling (DEFMACRO NOTE-PACKAGE-FISHINESS ...)
; compiling (DEFUN SET-DUMMY-SYMBOL ...)
; compiling (DEFUN MAKE-DUMMY-SYMBOL ...)
; compiling (DEFUN DUMMY-SYMBOL ...)
; compiling (DEFUN GET-DUMMY-SYMBOL ...)
; compiling (DEFUN NUKE-SYMBOL-IN-PACKAGE ...)
; compiling (DEFUN NUKE-SYMBOL ...)
; compiling (DEFUN REHOME-SYMBOL ...)
; compiling (DEFUN ENSURE-PACKAGE-UNUSED ...)
; compiling (DEFUN DELETE-PACKAGE* ...)
; compiling (DEFUN PACKAGE-NAMES ...)
; compiling (DEFUN PACKAGES-FROM-NAMES ...)
; compiling (DEFUN FRESH-PACKAGE-NAME ...)
; compiling (DEFUN RENAME-PACKAGE-AWAY ...)
; compiling (DEFUN PACKAGE-DEFINITION-FORM ...)
; compiling (DEFUN ENSURE-SHADOWING-IMPORT ...)
; compiling (DEFUN ENSURE-IMPORTED ...)
; compiling (DEFUN ENSURE-IMPORT ...)
; compiling (DEFUN ENSURE-INHERITED ...)
; compiling (DEFUN ENSURE-MIX ...)
; compiling (DEFUN RECYCLE-SYMBOL ...)
; compiling (DEFUN SYMBOL-RECYCLED-P ...)
; compiling (DEFUN ENSURE-SYMBOL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ENSURE-EXPORTED-TO-USER ...)
; compiling (DEFUN ENSURE-EXPORTED ...)
; compiling (DEFUN ENSURE-EXPORT ...)
; compiling (DEFUN ENSURE-PACKAGE ...)
; compiling (DEFUN PARSE-DEFINE-PACKAGE-FORM ...)
; compiling (DEFMACRO DEFINE-PACKAGE ...)
; compiling (DEFINE-PACKAGE :ASDF/PACKAGE ...)
; compiling (DEFINE-PACKAGE :UIOP/COMMON-LISP ...)
; compiling (IN-PACKAGE :UIOP/COMMON-LISP)
; compiling (WHEN (AND #) ...)
; compiling NIL
; compiling NIL
; compiling (DEFMACRO LOOP* ...)
; compiling (DEFUN FROB-SUBSTRINGS ...)
; compiling (DEFMACRO COMPATFMT ...)
; compiling (DEFINE-PACKAGE :UIOP/UTILITY ...)
; compiling (IN-PACKAGE :UIOP/UTILITY)
; compiling (DEFUN UNDEFINE-FUNCTION ...)
; compiling (DEFUN UNDEFINE-FUNCTIONS ...)
; compiling (DEFDEF DEFGENERIC* ...)
; compiling (DEFDEF DEFUN* ...)
; compiling (DEFMACRO WITH-UPGRADABILITY ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFVAR +CR+ ...)
; compiling (DEFVAR +LF+ ...)
; compiling (DEFVAR +CRLF+ ...)
; compiling (DEFUN STRIPLN ...)
; compiling (DEFTYPE STAMP ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/OS ...)
; compiling (IN-PACKAGE :UIOP/OS)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/PATHNAME ...)
; compiling (IN-PACKAGE :UIOP/PATHNAME)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/FILESYSTEM ...)
; compiling (IN-PACKAGE :UIOP/FILESYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/STREAM ...)
; compiling (IN-PACKAGE :UIOP/STREAM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/IMAGE ...)
; compiling (IN-PACKAGE :UIOP/IMAGE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/RUN-PROGRAM ...)
; compiling (IN-PACKAGE :UIOP/RUN-PROGRAM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/LISP-BUILD ...)
; compiling (IN-PACKAGE :UIOP/LISP-BUILD)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/CONFIGURATION ...)
; compiling (IN-PACKAGE :UIOP/CONFIGURATION)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (UIOP/PACKAGE:DEFINE-PACKAGE :UIOP/BACKWARD-DRIVER ...)
; compiling (IN-PACKAGE :UIOP/BACKWARD-DRIVER)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :UIOP/DRIVER ...)
; compiling (PROVIDE "uiop")
; compiling (PROVIDE "UIOP")
; compiling (PROVIDE "UIOP")
; compiling (PROVIDE "uiop")

; /«PKGBUILDDIR»/obj/sbcl-home/contrib//uiop.fasl written
; compilation finished in 0:00:37.902
* if [ -d asdf-upstream ] ; then rm -rf asdf-upstream ; fi
mkdir -p /«PKGBUILDDIR»/obj/sbcl-home/contrib/
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file #p"SYS:CONTRIB;ASDF;ASDF.LISP" :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//asdf.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/asdf/asdf.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (REQUIRE :UIOP)
; compiling (UIOP/PACKAGE:DEFINE-PACKAGE :ASDF/UPGRADE ...)
; compiling (IN-PACKAGE :ASDF/UPGRADE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WHEN-UPGRADING NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/COMPONENT ...)
; compiling (IN-PACKAGE :ASDF/COMPONENT)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/SYSTEM ...)
; compiling (IN-PACKAGE :ASDF/SYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/CACHE ...)
; compiling (IN-PACKAGE :ASDF/CACHE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/FIND-SYSTEM ...)
; compiling (IN-PACKAGE :ASDF/FIND-SYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/FIND-COMPONENT ...)
; compiling (IN-PACKAGE :ASDF/FIND-COMPONENT)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/OPERATION ...)
; compiling (IN-PACKAGE :ASDF/OPERATION)
; compiling (WHEN-UPGRADING (:WHEN #) ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/ACTION ...)
; compiling (IN-PACKAGE :ASDF/ACTION)
; compiling (DEFTYPE ACTION ...)
; compiling (DEFTYPE OPERATION-DESIGNATOR ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/LISP-ACTION ...)
; compiling (IN-PACKAGE :ASDF/LISP-ACTION)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/PLAN ...)
; compiling (IN-PACKAGE :ASDF/PLAN)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/OPERATE ...)
; compiling (IN-PACKAGE :ASDF/OPERATE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/OUTPUT-TRANSLATIONS ...)
; compiling (IN-PACKAGE :ASDF/OUTPUT-TRANSLATIONS)
; compiling (WHEN-UPGRADING NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/SOURCE-REGISTRY ...)
; compiling (IN-PACKAGE :ASDF/SOURCE-REGISTRY)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/BACKWARD-INTERNALS ...)
; compiling (IN-PACKAGE :ASDF/BACKWARD-INTERNALS)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WHEN-UPGRADING (:WHEN #) ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/PARSE-DEFSYSTEM ...)
; compiling (IN-PACKAGE :ASDF/PARSE-DEFSYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/BUNDLE ...)
; compiling (IN-PACKAGE :ASDF/BUNDLE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFTYPE USER-SYSTEM ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFCLASS FASL-OP ...)
; compiling (DEFCLASS LOAD-FASL-OP ...)
; compiling (DEFCLASS BINARY-OP ...)
; compiling (DEFCLASS MONOLITHIC-FASL-OP ...)
; compiling (DEFCLASS MONOLITHIC-LOAD-FASL-OP ...)
; compiling (DEFCLASS MONOLITHIC-BINARY-OP ...)
; compiling (DEFINE-PACKAGE :ASDF/CONCATENATE-SOURCE ...)
; compiling (IN-PACKAGE :ASDF/CONCATENATE-SOURCE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/BACKWARD-INTERFACE ...)
; compiling (IN-PACKAGE :ASDF/BACKWARD-INTERFACE)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/PACKAGE-INFERRED-SYSTEM ...)
; compiling (IN-PACKAGE :ASDF/PACKAGE-INFERRED-SYSTEM)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (DEFINE-PACKAGE :ASDF/INTERFACE ...)
; compiling (DEFINE-PACKAGE :ASDF/USER ...)
; compiling (DEFINE-PACKAGE :ASDF/FOOTER ...)
; compiling (IN-PACKAGE :ASDF/FOOTER)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WITH-UPGRADABILITY NIL ...)
; compiling (WHEN *LOAD-VERBOSE* ...)

; /«PKGBUILDDIR»/obj/sbcl-home/contrib//asdf.fasl written
; compilation finished in 0:00:53.624
* true
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-aclrepl")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-aclrepl/module-setup.lisp" (written 11 JUN 2015 08:35:49 AM):
; compiling (PROVIDE :SB-ACLREPL)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-aclrepl/module-setup.fasl written
; compilation finished in 0:00:00.008
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/toplevel.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-ACLREPL ...)
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFVAR *NOPRINT* ...)
; compiling (DEFVAR *BREAK-LEVEL* ...)
; compiling (DEFVAR *INSPECT-BREAK* ...)
; compiling (DEFVAR *CONTINUABLE-BREAK* ...)
; compiling (DEFUN REPL ...)
; compiling (DEFUN REP-ONE ...)

; SYS:CONTRIB;SB-ACLREPL;TOPLEVEL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.148
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/repl.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFSTRUCT USER-CMD ...)
; compiling (DEFSTRUCT CMD-TABLE-ENTRY ...)
; compiling (DEFPARAMETER *DEFAULT-PROMPT* ...)
; compiling (DEFPARAMETER *PROMPT* ...)
; compiling (DEFPARAMETER *USE-SHORT-PACKAGE-NAME* ...)
; compiling (DEFPARAMETER *DIR-STACK* ...)
; compiling (DEFPARAMETER *COMMAND-CHAR* ...)
; compiling (DEFVAR *MAX-HISTORY* ...)
; compiling (DEFVAR *EXIT-ON-EOF* ...)
; compiling (DEFPARAMETER *HISTORY* ...)
; compiling (DEFPARAMETER *CMD-NUMBER* ...)
; compiling (DEFVAR *INPUT*)
; compiling (DEFVAR *OUTPUT*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *EOF-MARKER* ...)
; compiling (DEFVAR *EOF-CMD* ...)
; compiling (DEFVAR *NULL-CMD* ...)
; compiling (DEFPARAMETER *CMD-TABLE-HASH* ...)
; compiling (DEFUN PROMPT-PACKAGE-NAME ...)
; compiling (DEFUN READ-CMD ...)
; compiling (DEFUN DISPATCH-COMMAND-LINE ...)
; compiling (DEFUN PROCESS-CMD-NUMERIC ...)
; compiling (DEFUN MAYBE-RETURN-HISTORY-CMD ...)
; compiling (DEFUN FIND-HISTORY-MATCHING-PATTERN ...)
; compiling (DEFUN PROCESS-HISTORY-SEARCH ...)
; compiling (DEFUN PROCESS-CMD-TEXT ...)
; compiling (DEFUN MAKE-CTE ...)
; compiling (DEFUN %ADD-ENTRY ...)
; compiling (DEFUN ADD-CMD-TABLE-ENTRY ...)
; compiling (DEFUN FIND-CMD ...)
; compiling (DEFUN USER-CMD= ...)
; compiling (DEFUN ADD-TO-HISTORY ...)
; compiling (DEFUN GET-HISTORY ...)
; compiling (DEFUN GET-CMD-DOC-LIST ...)
; compiling (DEFUN CD-CMD ...)
; compiling (DEFUN PWD-CMD ...)
; compiling (DEFUN TRACE-CMD ...)
; compiling (DEFUN UNTRACE-CMD ...)
; compiling (DEFUN EXIT-CMD ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/repl.lisp
; in: DEFUN EXIT-CMD
;     (VALUES)
; 
; note: deleting unreachable code

; compiling (DEFUN PACKAGE-CMD ...)
; compiling (DEFUN STRING-TO-LIST-SKIP-SPACES ...)
; compiling (LET (#) ...)
; compiling (DEFUN CF-CMD ...)
; compiling (DEFUN >-NUM ...)
; compiling (DEFUN NEWER-FILE-P ...)
; compiling (DEFUN COMPILE-FILE-AS-NEEDED ...)
; compiling (DEFUN APROPOS-CMD ...)
; compiling (LET (#) ...)
; compiling (DEFUN INSPECT-CMD ...)
; compiling (DEFUN ISTEP-CMD ...)
; compiling (DEFUN DESCRIBE-CMD ...)
; compiling (DEFUN MACROEXPAND-CMD ...)
; compiling (DEFUN HISTORY-CMD ...)
; compiling (DEFUN HELP-CMD ...)
; compiling (DEFUN ALIAS-CMD ...)
; compiling (DEFUN SHELL-CMD ...)
; compiling (DEFUN PUSHD-CMD ...)
; compiling (DEFUN POPD-CMD ...)
; compiling (DEFUN POP-CMD ...)
; compiling (DEFUN BT-CMD ...)
; compiling (DEFUN CURRENT-CMD ...)
; compiling (DEFUN TOP-CMD ...)
; compiling (DEFUN BOTTOM-CMD ...)
; compiling (DEFUN UP-CMD ...)
; compiling (DEFUN DN-CMD ...)
; compiling (DEFUN CONTINUE-CMD ...)
; compiling (DEFUN ERROR-CMD ...)
; compiling (DEFUN FRAME-CMD ...)
; compiling (DEFUN ZOOM-CMD ...)
; compiling (DEFUN LOCAL-CMD ...)
; compiling (DEFUN PROCESSES-CMD ...)
; compiling (DEFUN KILL-CMD ...)
; compiling (DEFUN FOCUS-CMD ...)
; compiling (DEFUN RESET-CMD ...)
; compiling (DEFUN DIRS-CMD ...)
; compiling (LET (#) ...)
; compiling (DEFSETF ALIAS ...)
; compiling (DEFMACRO ALIAS ...)
; compiling (DEFUN REMOVE-ALIAS ...)
; compiling (DEFUN PEEK-CHAR-NON-WHITESPACE ...)
; compiling (DEFUN STRING-TRIM-WHITESPACE ...)
; compiling (DEFUN WHITESPACE-CHAR-P ...)
; compiling (DEFUN WHITESPACE-CHAR-NOT-NEWLINE-P ...)
; compiling (DEFUN REPL-PROMPT-FUN ...)
; compiling (DEFUN PROCESS-CMD ...)
; compiling (DEFUN REPL-READ-FORM-FUN ...)
; compiling (SETF *REPL-PROMPT-FUN* ...)
; compiling (DEFMACRO WITH-NEW-REPL-STATE ...)
; compiling (DEFUN MAKE-REPL-FUN ...)
; compiling (WHEN (BOUNDP #) ...)

; SYS:CONTRIB;SB-ACLREPL;REPL-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.927
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/debug.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFUN DEBUG-LOOP ...)
; compiling (DEFUN CONTINUABLE-BREAK-P ...)
; compiling (DEFUN PRINT-RESTARTS ...)

; SYS:CONTRIB;SB-ACLREPL;DEBUG-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.265
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE #:SB-ACLREPL)
; compiling (DEFCONSTANT +DEFAULT-INSPECT-LENGTH+ ...)
; compiling (DEFSTRUCT (%INSPECT # ...) ...)
; compiling (DEFPARAMETER *CURRENT-INSPECT* ...)
; compiling (DEFPARAMETER *INSPECT-RAW* ...)
; compiling (DEFPARAMETER *INSPECT-LENGTH* ...)
; compiling (DEFPARAMETER *SKIP-ADDRESS-DISPLAY* ...)
; compiling (DEFVAR *INSPECT-HELP* ...)
; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...)
; compiling (DEFUN INSPECTOR-FUN ...)
; compiling (SETQ SB-IMPL::*INSPECT-FUN* ...)
; compiling (DEFUN ISTEP ...)
; compiling (DEFUN ISTEP-DISPATCH ...)
; compiling (DEFUN SET-CURRENT-INSPECT ...)
; compiling (DEFUN RESET-STACK ...)
; compiling (DEFUN OUTPUT-INSPECT-NOTE ...)
; compiling (DEFUN STACK ...)
; compiling (DEFUN REDISPLAY ...)
; compiling (DEFUN ISTEP-CMD-REDISPLAY ...)
; compiling (DEFUN ISTEP-CMD-PARENT ...)
; compiling (DEFUN ISTEP-CMD-INSPECT-* ...)
; compiling (DEFUN ISTEP-CMD-INSPECT-NEW-FORM ...)
; compiling (DEFUN ISTEP-CMD-SELECT-PARENT-COMPONENT ...)
; compiling (DEFUN ISTEP-CMD-SET-RAW ...)
; compiling (DEFUN ISTEP-CMD-RESET ...)
; compiling (DEFUN ISTEP-CMD-HELP ...)
; compiling (DEFUN ISTEP-CMD-SKIP ...)
; compiling (DEFUN ISTEP-CMD-PRINT ...)
; compiling (DEFUN SELECT-DESCRIPTION ...)
; compiling (DEFUN ISTEP-CMD-TREE ...)
; compiling (DEFUN ISTEP-CMD-SET ...)
; compiling (DEFUN ISTEP-CMD-SELECT-COMPONENT ...)
; compiling (DEFUN ISTEP-CMD-SET-STACK ...)
; compiling (DEFUN NO-OBJECT-MSG ...)
; compiling (DEFUN DISPLAY-CURRENT ...)
; compiling (DEFUN DISPLAY-INSPECT ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN DISPLAY-INSPECT
;     (TYPEP SB-ACLREPL::OBJECT 'SINGLE-FLOAT)
; --> LET 
; ==>
;   SB-ACLREPL::OBJECT
; 
; note: deleting unreachable code

; compiling (DEFUN ARRAY-LABEL-P ...)
; compiling (DEFUN NAMED-OR-ARRAY-LABEL-P ...)
; compiling (DEFUN HEX-LABEL-P ...)
; compiling (DEFUN DISPLAY-LABELED-ELEMENT ...)
; compiling (DEFUN FIND-PART-ID ...)
; compiling (DEFUN COMPONENT-AT ...)
; compiling (DEFUN ID-AT ...)
; compiling (DEFUN INSPECTED-ELEMENTS ...)
; compiling (DEFUN LAST-REQUESTED ...)
; compiling (DEFUN LAST-PART ...)
; compiling (DEFUN COMPUTE-ELEMENTS-COUNT ...)
; compiling (DEFUN SET-ELEMENT ...)
; compiling (DEFUN SET-ELEMENT-VALUES ...)
; compiling (DEFUN FIRST-ELEMENT-ELLIPSES-P ...)
; compiling (DEFUN LABEL-AT ...)
; compiling (DEFUN ARRAY-INDEX-STRING ...)
; compiling (DEFGENERIC INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN SIMPLE-CONS-PAIR-P ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN CONS-SAFE-LENGTH ...)
; compiling (DEFUN INSPECTED-DESCRIPTION-OF-NONTRIVIAL-LIST ...)
; compiling (DEFUN N-WORD-BITS-HEX-FORMAT ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN N-WORD-BITS-HEX-FORMAT
;     (CASE SB-VM:N-WORD-BITS (64 "~16,'0X") (32 "~8,'0X") (T "~X"))
; --> LET COND IF PROGN 
; ==>
;   "~16,'0X"
; 
; note: deleting unreachable code

; --> LET COND IF COND IF COND THE PROGN 
; ==>
;   "~X"
; 
; note: deleting unreachable code

; compiling (DEFUN REF32-HEXSTR ...)
; compiling (DEFUN REF32 ...)
; compiling (DEFUN DESCRIPTION-MAYBE-INTERNALS ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFMETHOD INSPECTED-DESCRIPTION (SINGLE-FLOAT)
;     (SB-ACLREPL::DESCRIPTION-MAYBE-INTERNALS "single-float ~W"
;      (LIST SB-ACLREPL::OBJECT) "[#x~8,'0X]"
;      (ASH (SB-KERNEL:GET-LISP-OBJ-ADDRESS SB-ACLREPL::OBJECT) -32))
; ==>
;   "single-float ~W"
; 
; note: deleting unreachable code

; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN BIGNUM-WORDS ...)
; compiling (DEFUN BIGNUM-COMPONENT-AT ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN BIGNUM-COMPONENT-AT
;     (LET ((SB-ACLREPL::START (* 8 (1+ SB-ACLREPL::OFFSET))))
;       (+ (SB-ACLREPL::REF32 BIGNUM SB-ACLREPL::START)
;          (ASH (SB-ACLREPL::REF32 BIGNUM (+ 4 SB-ACLREPL::START)) 32)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DECLAIM (INLINE PARTS-COMPONENTS))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-COMPONENTS)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-COMPONENTS))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-COMPONENTS)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-COMPONENTS to be INLINE, but 3 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.

; compiling (DEFUN PARTS-COMPONENTS ...)
; compiling (DECLAIM (INLINE PARTS-COUNT))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-COUNT)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-COUNT))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-COUNT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-COUNT to be INLINE, but 12 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.

; compiling (DEFUN PARTS-COUNT ...)
; compiling (DECLAIM (INLINE PARTS-SEQ-TYPE))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-SEQ-TYPE)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-SEQ-TYPE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-SEQ-TYPE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-SEQ-TYPE to be INLINE, but 5 calls to it were
;   previously compiled. A declaration of NOTINLINE at the call sites will
;   eliminate this warning, as will proclaiming and defining the function before
;   its first potential use.

; compiling (DEFUN PARTS-SEQ-TYPE ...)
; compiling (DECLAIM (INLINE PARTS-SEQ-HINT))
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/inspect.lisp
; in: DECLAIM (INLINE PARTS-SEQ-HINT)
;     (DECLAIM (INLINE SB-ACLREPL::PARTS-SEQ-HINT))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SB-ACLREPL::PARTS-SEQ-HINT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SB-ACLREPL::PARTS-SEQ-HINT to be INLINE, but 1 call to it was
;   previously compiled. A declaration of NOTINLINE at the call site will eliminate
;   this warning, as will proclaiming and defining the function before its first
;   potential use.

; compiling (DEFUN PARTS-SEQ-HINT ...)
; compiling (DEFGENERIC INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STRUCTURE-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STANDARD-OBJECT-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFGENERIC SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)

; SYS:CONTRIB;SB-ACLREPL;INSPECT-TMP.FASL.NEWEST written
; compilation finished in 0:00:05.243
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-aclrepl" "inspect">
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 7 notes
CL-USER(1): echo "(defsystem :sb-aclrepl :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-aclrepl.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-aclrepl")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-rt/rt.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-RT ...)
; compiling (IN-PACKAGE :SB-RT)
; compiling (DEFVAR *TEST* ...)
; compiling (DEFVAR *DO-TESTS-WHEN-DEFINED* ...)
; compiling (DEFVAR *ENTRIES* ...)
; compiling (DEFVAR *IN-TEST* ...)
; compiling (DEFVAR *DEBUG* ...)
; compiling (DEFVAR *CATCH-ERRORS* ...)
; compiling (DEFVAR *PRINT-CIRCLE-ON-FAILURE* ...)
; compiling (DEFVAR *COMPILE-TESTS* ...)
; compiling (DEFVAR *OPTIMIZATION-SETTINGS* ...)
; compiling (DEFVAR *EXPECTED-FAILURES* ...)
; compiling (DEFSTRUCT (ENTRY # ...) ...)
; compiling (DEFMACRO VALS ...)
; compiling (DEFMACRO DEFN ...)
; compiling (DEFUN PENDING-TESTS ...)
; compiling (DEFUN REM-ALL-TESTS ...)
; compiling (DEFUN REM-TEST ...)
; compiling (DEFUN GET-TEST ...)
; compiling (DEFUN GET-ENTRY ...)
; compiling (DEFMACRO DEFTEST ...)
; compiling (DEFUN ADD-ENTRY ...)
; compiling (DEFUN REPORT-ERROR ...)
; compiling (DEFUN DO-TEST ...)
; compiling (DEFUN EQUALP-WITH-CASE ...)
; compiling (DEFUN DO-ENTRY ...)
; compiling (DEFUN CONTINUE-TESTING ...)
; compiling (DEFUN DO-TESTS ...)
; compiling (DEFUN DO-ENTRIES ...)

; SYS:CONTRIB;SB-RT;RT-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.102
; compiling file "/«PKGBUILDDIR»/contrib/sb-aclrepl/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:ACLREPL-TESTS ...)
; compiling (IN-PACKAGE #:ACLREPL-TESTS)
; compiling (DECLAIM (SPECIAL SB-ACLREPL::*SKIP-ADDRESS-DISPLAY* ...))
; compiling (SETF SB-RT::*CATCH-ERRORS* ...)
; compiling (REM-ALL-TESTS)
; compiling (DEFTEST HOOK.1 ...)
; compiling (DEFTEST HOOK.2 ...)
; compiling (DEFTEST HOOK.3 ...)
; compiling (DEFCLASS EMPTY-CLASS ...)
; compiling (DEFPARAMETER *EMPTY-CLASS* ...)
; compiling (DEFCLASS EMPTY-CLASS ...)
; compiling (DEFCLASS SIMPLE-CLASS ...)
; compiling (DEFSTRUCT EMPTY-STRUCT)
; compiling (DEFSTRUCT TINY-STRUCT ...)
; compiling (DEFSTRUCT SIMPLE-STRUCT ...)
; compiling (DEFPARAMETER *EMPTY-CLASS* ...)
; compiling (DEFPARAMETER *SIMPLE-CLASS* ...)
; compiling (DEFPARAMETER *EMPTY-STRUCT* ...)
; compiling (DEFPARAMETER *TINY-STRUCT* ...)
; compiling (DEFPARAMETER *SIMPLE-STRUCT* ...)
; compiling (DEFPARAMETER *NORMAL-LIST* ...)
; compiling (DEFPARAMETER *DOTTED-LIST* ...)
; compiling (DEFPARAMETER *CONS-PAIR* ...)
; compiling (DEFPARAMETER *COMPLEX* ...)
; compiling (DEFPARAMETER *RATIO* ...)
; compiling (DEFPARAMETER *DOUBLE* ...)
; compiling (DEFPARAMETER *BIGNUM* ...)
; compiling (DEFPARAMETER *ARRAY* ...)
; compiling (DEFPARAMETER *VECTOR* ...)
; compiling (DEFPARAMETER *CIRCLE-LIST1* ...)
; compiling (SETF (CAR *CIRCLE-LIST1*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST2* ...)
; compiling (SETF (CDR *CIRCLE-LIST2*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST3* ...)
; compiling (SETF (CAR *CIRCLE-LIST3*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST4* ...)
; compiling (SETF (SECOND *CIRCLE-LIST4*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST5* ...)
; compiling (SETF (CDDR *CIRCLE-LIST5*) ...)
; compiling (DEFUN FIND-POSITION ...)
; compiling (DEFUN PARTS ...)
; compiling (DEFUN DESCRIPTION ...)
; compiling (DEFUN ELEMENTS ...)
; compiling (DEFUN ELEMENTS-COMPONENTS ...)
; compiling (DEFUN ELEMENTS-LABELS ...)
; compiling (DEFUN ELEMENTS-COUNT ...)
; compiling (DEFUN LABELED-ELEMENT ...)
; compiling (DEFUN DISPLAY ...)
; compiling (DEFUN DO-INSPECT ...)
; compiling (DEFUN ISTEP ...)
; compiling (DEFTEST FIND.LIST.0 ...)
; compiling (DEFTEST FIND.LIST.1 ...)
; compiling (DEFTEST FIND.LIST.2 ...)
; compiling (DEFTEST FIND.LIST.3 ...)
; compiling (DEFTEST PARTS.LIST.1 ...)
; compiling (DEFTEST PARTS.LIST.2 ...)
; compiling (DEFTEST PARTS.LIST.3 ...)
; compiling (DEFTEST PARTS.LIST.4 ...)
; compiling (DEFTEST PARTS.LIST.5 ...)
; compiling (DEFTEST PARTS.LIST.6 ...)
; compiling (DEFTEST PARTS.LIST.7 ...)
; compiling (DEFTEST PARTS.LIST.8 ...)
; compiling (DEFUN BASENAME ...)
; compiling (DEFUN ELEMENTS-TESTS-NAME ...)
; compiling (DEFMACRO DEF-ELEMENTS-TESTS ...)
; compiling (DEF-ELEMENTS-TESTS *NORMAL-LIST* ...)
; compiling (DEF-ELEMENTS-TESTS *DOTTED-LIST* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST1* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST2* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST3* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST4* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST5* ...)
; compiling (DEFTEST CIRCLE-LIST1-COMPONENTS ...)
; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.2 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.2 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.2 ...)
; compiling (DEF-ELEMENTS-TESTS *CONS-PAIR* ...)
; compiling (DEF-ELEMENTS-TESTS *COMPLEX* ...)
; compiling (DEF-ELEMENTS-TESTS *RATIO* ...)
; compiling (CASE SB-VM:N-WORD-BITS ...)
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/tests.lisp
; in: DEF-ELEMENTS-TESTS *BIGNUM*
;     (ACLREPL-TESTS::DEF-ELEMENTS-TESTS ACLREPL-TESTS::*BIGNUM* 1
;                                        #(4938271560493827156) #((0 . :HEX64)))
; --> PROGN UNLESS IF EQ 
; ==>
;   #(4938271560493827156)
; 
; note: deleting unreachable code

; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *ARRAY* ...)
; compiling (DEF-ELEMENTS-TESTS *EMPTY-CLASS* ...)
; compiling (DEF-ELEMENTS-TESTS *EMPTY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *SIMPLE-STRUCT* ...)
; compiling (DEFUN LABEL-TEST-NAME ...)
; compiling (DEFMACRO DEF-LABEL-TEST ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *COMPLEX* ...)
; compiling (DEF-LABEL-TEST *COMPLEX* ...)
; compiling (DEF-LABEL-TEST *RATIO* ...)
; compiling (DEF-LABEL-TEST *RATIO* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *CONS-PAIR* ...)
; compiling (DEF-LABEL-TEST *CONS-PAIR* ...)
; compiling (DEFTEST NIL.PARTS.0 ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...)
; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...)
; compiling (DEFUN DISPLAY-TEST-NAME ...)
; compiling (DEFMACRO DEF-DISPLAY-TEST ...)
; compiling (DEF-DISPLAY-TEST *CONS-PAIR* ...)
; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...)
; compiling (CASE SB-VM:N-WORD-BITS ...)
; compiling (DEF-DISPLAY-TEST *VECTOR* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST1* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST2* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST3* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST4* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST5* ...)
; compiling (DEFTEST INSPECT.0 ...)
; compiling (DEFTEST ISTEP.0 ...)
; compiling (DEFTEST ISTEP.1 ...)
; compiling (DEFTEST ISTEP.2 ...)
; compiling (DEFTEST ISTEP.3 ...)
; compiling (DEFTEST ISTEP.4 ...)
; compiling (DEFTEST ISTEP.5 ...)
; compiling (DEFTEST ISTEP.6 ...)
; compiling (DEFTEST ISTEP.7 ...)
; compiling (DEFTEST ISTEP.8 ...)
; compiling (DEFTEST ISTEP.9 ...)

; SYS:CONTRIB;SB-ACLREPL;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.438
Doing 144 pending tests of 144 tests total.
 ACLREPL-TESTS::HOOK.1 ACLREPL-TESTS::HOOK.2 ACLREPL-TESTS::HOOK.3
 ACLREPL-TESTS::FIND.LIST.0 ACLREPL-TESTS::FIND.LIST.1
 ACLREPL-TESTS::FIND.LIST.2 ACLREPL-TESTS::FIND.LIST.3
 ACLREPL-TESTS::PARTS.LIST.1 ACLREPL-TESTS::PARTS.LIST.2
 ACLREPL-TESTS::PARTS.LIST.3 ACLREPL-TESTS::PARTS.LIST.4
 ACLREPL-TESTS::PARTS.LIST.5 ACLREPL-TESTS::PARTS.LIST.6
 ACLREPL-TESTS::PARTS.LIST.7 ACLREPL-TESTS::PARTS.LIST.8
 ACLREPL-TESTS::ELEM.NORMAL-LIST.COUNT
 ACLREPL-TESTS::ELEM.NORMAL-LIST.COMPONENTS
 ACLREPL-TESTS::ELEM.NORMAL-LIST.LABELS ACLREPL-TESTS::ELEM.DOTTED-LIST.COUNT
 ACLREPL-TESTS::ELEM.DOTTED-LIST.COMPONENTS
 ACLREPL-TESTS::ELEM.DOTTED-LIST.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST1.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST1.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST2.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST2.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST3.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST3.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST4.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST4.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST5.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST5.LABELS ACLREPL-TESTS::CIRCLE-LIST1-COMPONENTS
 ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.2
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.2
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.2 ACLREPL-TESTS::ELEM.CONS-PAIR.COUNT
 ACLREPL-TESTS::ELEM.CONS-PAIR.COMPONENTS ACLREPL-TESTS::ELEM.CONS-PAIR.LABELS
 ACLREPL-TESTS::ELEM.COMPLEX.COUNT ACLREPL-TESTS::ELEM.COMPLEX.COMPONENTS
 ACLREPL-TESTS::ELEM.COMPLEX.LABELS ACLREPL-TESTS::ELEM.RATIO.COUNT
 ACLREPL-TESTS::ELEM.RATIO.COMPONENTS ACLREPL-TESTS::ELEM.RATIO.LABELS
 ACLREPL-TESTS::ELEM.BIGNUM.COUNT ACLREPL-TESTS::ELEM.BIGNUM.COMPONENTS
 ACLREPL-TESTS::ELEM.BIGNUM.LABELS ACLREPL-TESTS::ELEM.VECTOR.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.S3.COUNT ACLREPL-TESTS::ELEM.VECTOR.S3.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.S3.LABELS ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P10.S3.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.LABELS ACLREPL-TESTS::ELEM.ARRAY.COUNT
 ACLREPL-TESTS::ELEM.ARRAY.COMPONENTS ACLREPL-TESTS::ELEM.ARRAY.LABELS
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.COUNT
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.COMPONENTS
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.LABELS ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.EMPTY-STRUCT.LABELS ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.LABELS ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.0
 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.1 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.2
 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.0 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.1
 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.2 ACLREPL-TESTS::LABEL.COMPLEX.0
 ACLREPL-TESTS::LABEL.COMPLEX.1 ACLREPL-TESTS::LABEL.RATIO.0
 ACLREPL-TESTS::LABEL.RATIO.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.0
 ACLREPL-TESTS::LABEL.DOTTED-LIST.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.2
 ACLREPL-TESTS::LABEL.NORMAL-LIST.0 ACLREPL-TESTS::LABEL.NORMAL-LIST.1
 ACLREPL-TESTS::LABEL.NORMAL-LIST.2 ACLREPL-TESTS::LABEL.VECTOR.0
 ACLREPL-TESTS::LABEL.VECTOR.1 ACLREPL-TESTS::LABEL.VECTOR.S2.0
 ACLREPL-TESTS::LABEL.VECTOR.S2.1 ACLREPL-TESTS::LABEL.CONS-PAIR.0
 ACLREPL-TESTS::LABEL.CONS-PAIR.1 ACLREPL-TESTS::NIL.PARTS.0
 ACLREPL-TESTS::ELEM.TINY-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.LABELS ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.LABELS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.LABELS ACLREPL-TESTS::ELEM.DOUBLE.COUNT
 ACLREPL-TESTS::ELEM.DOUBLE.COMPONENTS ACLREPL-TESTS::ELEM.DOUBLE.LABELS
 ACLREPL-TESTS::ELEM.DOUBLE.S1.COUNT ACLREPL-TESTS::ELEM.DOUBLE.S1.COMPONENTS
 ACLREPL-TESTS::ELEM.DOUBLE.S1.LABELS ACLREPL-TESTS::DISPLAY.CONS-PAIR
 ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT.S2
 ACLREPL-TESTS::DISPLAY.BIGNUM ACLREPL-TESTS::DISPLAY.VECTOR.P5.S6
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST1 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST2
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST3 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST4
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST5 ACLREPL-TESTS::INSPECT.0
 ACLREPL-TESTS::ISTEP.0 ACLREPL-TESTS::ISTEP.1 ACLREPL-TESTS::ISTEP.2
 ACLREPL-TESTS::ISTEP.3 ACLREPL-TESTS::ISTEP.4 ACLREPL-TESTS::ISTEP.5
 ACLREPL-TESTS::ISTEP.6 ACLREPL-TESTS::ISTEP.7 ACLREPL-TESTS::ISTEP.8
 ACLREPL-TESTS::ISTEP.9
No tests failed.
; file: /«PKGBUILDDIR»/contrib/sb-aclrepl/tests.lisp
; in: DEFUN ACLREPL-TESTS::DO-INSPECT
;     (SB-ACLREPL::INSPECTOR `',ACLREPL-TESTS::OBJECT NIL ACLREPL-TESTS::STRM)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ACLREPL::INSPECTOR
; 
; compilation unit finished
;   Undefined function:
;     SB-ACLREPL::INSPECTOR
;   caught 1 STYLE-WARNING condition
;   printed 1 note

CL-USER(1): make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-bsd-sockets")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-grovel/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-GROVEL" ...)

; SYS:CONTRIB;SB-GROVEL;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.015
; compiling file "/«PKGBUILDDIR»/contrib/sb-grovel/def-to-lisp.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE #:SB-GROVEL)
; compiling (DEFVAR *DEFAULT-C-STREAM* ...)
; compiling (DEFUN ESCAPE-FOR-STRING ...)
; compiling (DEFUN SPLIT-CFLAGS ...)
; compiling (DEFUN C-ESCAPE ...)
; compiling (DEFUN AS-C ...)
; compiling (DEFUN PRINTF ...)
; compiling (DEFUN C-FOR-ENUM ...)
; compiling (DEFUN C-FOR-STRUCTURE ...)
; compiling (DEFUN PRINT-C-SOURCE ...)
; compiling (DEFUN C-CONSTANTS-EXTRACT ...)
; compiling (DEFCLASS GROVEL-CONSTANTS-FILE ...)
; compiling (DEFCLASS ASDF/INTERFACE::SB-GROVEL-CONSTANTS-FILE ...)
; compiling (DEFINE-CONDITION C-COMPILE-FAILED ...)
; compiling (DEFINE-CONDITION A-DOT-OUT-FAILED ...)
; compiling (DEFMETHOD PERFORM ...)

; SYS:CONTRIB;SB-GROVEL;DEF-TO-LISP-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.768
; compiling file "/«PKGBUILDDIR»/contrib/sb-grovel/foreign-glue.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-GROVEL)
; compiling (DEFMACRO DEFINE-FOREIGN-ROUTINE ...)
; compiling (DEFUN REINTERN ...)
; compiling (DEFPARAMETER ALIEN-TYPE-TABLE ...)
; compiling (DEFPARAMETER LISP-TYPE-TABLE ...)
; compiling (DEFINE-ALIEN-TYPES (TYPE SIZE) ...)
; compiling (DEFUN RETRIEVE-TYPE-FOR ...)
; compiling (DEFUN ALIEN-TYPE-FOR ...)
; compiling (DEFUN LISP-TYPE-FOR ...)
; compiling (DEFUN MK-PADDING ...)
; compiling (DEFUN MK-STRUCT ...)
; compiling (DEFUN MK-UNION ...)
; compiling (DEFUN MK-VAL ...)
; compiling (DEFCLASS SLOT ...)
; compiling (DEFCLASS STRUCTURED-TYPE ...)
; compiling (DEFCLASS UNION ...)
; compiling (DEFCLASS STRUCT ...)
; compiling (DEFCLASS VALUE-SLOT ...)
; compiling (DEFCLASS PADDING ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFGENERIC SLOT-END ...)
; compiling (DEFMETHOD SLOT-END ...)
; compiling (DEFUN OVERLAP-P ...)
; compiling (DEFGENERIC FIND-OVERLAPS ...)
; compiling (DEFMETHOD FIND-OVERLAPS ...)
; compiling (DEFMETHOD FIND-OVERLAPS ...)
; compiling (DEFGENERIC PAD-TO-OFFSET-OF ...)
; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...)
; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...)
; compiling (DEFGENERIC REPLACE-BY-UNION ...)
; compiling (DEFMETHOD REPLACE-BY-UNION ...)
; compiling (DEFMETHOD REPLACE-BY-UNION ...)
; compiling (DEFGENERIC INSERT-ELEMENT ...)
; compiling (DEFMETHOD INSERT-ELEMENT ...)
; compiling (DEFUN SANE-SLOT ...)
; compiling (DEFGENERIC ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFUN C-STRING-READER[1] ...)
; compiling (DEFUN C-STRING-WRITER ...)
; compiling (DEFGENERIC ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFGENERIC GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMACRO DEFINE-C-STRUCT ...)
; compiling (DEFUN FOREIGN-NULLP ...)

; SYS:CONTRIB;SB-GROVEL;FOREIGN-GLUE-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.321
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/module-setup.lisp" (written 11 JUN 2015 08:36:19 AM):
; compiling (PROVIDE :SB-BSD-SOCKETS)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/module-setup.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-BSD-SOCKETS-INTERNAL" ...)
; compiling (DEFPACKAGE "SB-BSD-SOCKETS" ...)
; compiling (LET (#) ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.017
(SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.LISP
 SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.FASL.NEWEST
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.fasl
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/foo.c
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/a.out
 /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp)
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp" (written 11 JUN 2015 08:36:21 AM):
; compiling (IN-PACKAGE #:SOCKINT)
; compiling (DEFCONSTANT AF-INET ...)
; compiling (DEFCONSTANT AF-UNSPEC ...)
; compiling (DEFCONSTANT AF-LOCAL ...)
; compiling (DEFCONSTANT AF-INET6 ...)
; compiling (DEFCONSTANT AF-ROUTE ...)
; compiling (DEFCONSTANT SOCK-STREAM ...)
; compiling (DEFCONSTANT SOCK-DGRAM ...)
; compiling (DEFCONSTANT SOCK-RAW ...)
; compiling (DEFCONSTANT SOCK-RDM ...)
; compiling (DEFCONSTANT SOCK-SEQPACKET ...)
; compiling (DEFCONSTANT SOL-SOCKET ...)
; compiling (DEFCONSTANT SO-DEBUG ...)
; compiling (DEFCONSTANT SO-REUSEADDR ...)
; compiling (DEFCONSTANT SO-TYPE ...)
; compiling (DEFCONSTANT SO-ERROR ...)
; compiling (DEFCONSTANT SO-DONTROUTE ...)
; compiling (DEFCONSTANT SO-BROADCAST ...)
; compiling (DEFCONSTANT SO-SNDBUF ...)
; compiling (DEFCONSTANT SO-PASSCRED ...)
; compiling (DEFCONSTANT SO-RCVBUF ...)
; compiling (DEFCONSTANT SO-KEEPALIVE ...)
; compiling (DEFCONSTANT TCP-KEEPCNT ...)
; compiling (DEFCONSTANT TCP-KEEPIDLE ...)
; compiling (DEFCONSTANT TCP-KEEPINTVL ...)
; compiling (DEFCONSTANT SO-OOBINLINE ...)
; compiling (DEFCONSTANT SO-NO-CHECK ...)
; compiling (DEFCONSTANT SO-PRIORITY ...)
; compiling (DEFCONSTANT SO-LINGER ...)
; compiling (DEFCONSTANT SO-BSDCOMPAT ...)
; compiling (DEFCONSTANT SO-SNDLOWAT ...)
; compiling (DEFCONSTANT SO-RCVLOWAT ...)
; compiling (DEFCONSTANT SO-SNDTIMEO ...)
; compiling (DEFCONSTANT SO-RCVTIMEO ...)
; compiling (DEFCONSTANT TCP-NODELAY ...)
; compiling (DEFCONSTANT SO-BINDTODEVICE ...)
; compiling (DEFCONSTANT IFNAMSIZ ...)
; compiling (DEFCONSTANT SHUT_RD ...)
; compiling (DEFCONSTANT SHUT_WR ...)
; compiling (DEFCONSTANT SHUT_RDWR ...)
; compiling (DEFCONSTANT EADDRINUSE ...)
; compiling (DEFCONSTANT EAGAIN ...)
; compiling (DEFCONSTANT EBADF ...)
; compiling (DEFCONSTANT ECONNREFUSED ...)
; compiling (DEFCONSTANT ETIMEDOUT ...)
; compiling (DEFCONSTANT EINTR ...)
; compiling (DEFCONSTANT EINVAL ...)
; compiling (DEFCONSTANT ENOBUFS ...)
; compiling (DEFCONSTANT ENOMEM ...)
; compiling (DEFCONSTANT EOPNOTSUPP ...)
; compiling (DEFCONSTANT EPERM ...)
; compiling (DEFCONSTANT EPROTONOSUPPORT ...)
; compiling (DEFCONSTANT ERANGE ...)
; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...)
; compiling (DEFCONSTANT ENETUNREACH ...)
; compiling (DEFCONSTANT ENOTCONN ...)
; compiling (DEFCONSTANT EAFNOSUPPORT ...)
; compiling (DEFCONSTANT NETDB-INTERNAL ...)
; compiling (DEFCONSTANT NETDB-SUCCESS ...)
; compiling (DEFCONSTANT HOST-NOT-FOUND ...)
; compiling (DEFCONSTANT TRY-AGAIN ...)
; compiling (DEFCONSTANT NO-RECOVERY ...)
; compiling (DEFCONSTANT NO-DATA ...)
; compiling (DEFCONSTANT NO-ADDRESS ...)
; compiling (DECLAIM (INLINE H-STRERROR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("hstrerror" H-STRERROR) ...)
; compiling (DEFCONSTANT O-NONBLOCK ...)
; compiling (DEFCONSTANT F-GETFL ...)
; compiling (DEFCONSTANT F-SETFL ...)
; compiling (DEFCONSTANT MSG-OOB ...)
; compiling (DEFCONSTANT MSG-PEEK ...)
; compiling (DEFCONSTANT MSG-TRUNC ...)
; compiling (DEFCONSTANT MSG-WAITALL ...)
; compiling (DEFCONSTANT MSG-EOR ...)
; compiling (DEFCONSTANT MSG-DONTROUTE ...)
; compiling (DEFCONSTANT MSG-DONTWAIT ...)
; compiling (DEFCONSTANT MSG-NOSIGNAL ...)
; compiling (DEFCONSTANT MSG-CONFIRM ...)
; compiling (DEFCONSTANT MSG-MORE ...)
; compiling (DEFINE-ALIEN-TYPE SOCKLEN-T ...)
; compiling (DEFINE-ALIEN-TYPE SIZE-T ...)
; compiling (DEFINE-ALIEN-TYPE SSIZE-T ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT PROTOENT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT PROTOENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT 12
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ALIASES (* (* T))
;                                  "char **" 4 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::PROTO INTEGER "int" 8
;                                  4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE GETPROTOBYNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("getprotobyname" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME)
;      (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)
;      (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTO # :OFFSET
;                                        64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-12 #
;                                        :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETPROTOBYNAME-R))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname_r" GETPROTOBYNAME-R) ...)
; compiling (DECLAIM (INLINE GETPROTOBYNUMBER))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in:
;      SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("getprotobynumber" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNUMBER)
;      (* SB-BSD-SOCKETS-INTERNAL::PROTOENT) (SB-BSD-SOCKETS-INTERNAL::PROTO INT))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTO # :OFFSET
;                                        64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-12 #
;                                        :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETPROTOBYNUMBER-R))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber_r" GETPROTOBYNUMBER-R) ...)
; compiling (DEFCONSTANT INADDR-ANY ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT IN-ADDR ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT IN-ADDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::IN-ADDR 4
;                                 (ADDR (ARRAY (UNSIGNED 8)) "u_int32_t" 0 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN 16
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PORT
;                                  (ARRAY (UNSIGNED 8)) "u_int16_t" 2 2)
;                                 (ADDR (ARRAY (UNSIGNED 8)) "struct in_addr" 4 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT IN6-ADDR ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT IN6-ADDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::IN6-ADDR 16
;                                 (ADDR (ARRAY (UNSIGNED 8)) "unsigned char" 16 1))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 1)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 1)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN6 ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN6
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN6 28
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PORT
;                                  (ARRAY (UNSIGNED 8)) "u_int16_t" 2 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::FLOWINFO
;                                  (ARRAY (UNSIGNED 8)) "u_int32_t" 4 4)
;                                 (ADDR (ARRAY (UNSIGNED 8)) "struct in_addr6" 8
;                                       16)
;                                 (SB-BSD-SOCKETS-INTERNAL::SCOPE-ID
;                                  (ARRAY (UNSIGNED 8)) "u_int32_t" 24 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 16)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 16)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN 110
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PATH C-STRING "char" 2
;                                  108))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN-ABSTRACT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN-ABSTRACT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-ABSTRACT 110
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 0 2)
;                                 (SB-BSD-SOCKETS-INTERNAL::PATH
;                                  (ARRAY (UNSIGNED 8)) "char" 2 108))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 108)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 108)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFCONSTANT INET-ADDRSTRLEN ...)
; compiling (DEFCONSTANT INET6-ADDRSTRLEN ...)
; compiling (DECLAIM (INLINE INET-NTOP))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("inet_ntop" INET-NTOP) ...)
; compiling (DECLAIM (INLINE INET-PTON))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("inet_pton" INET-PTON) ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT HOSTENT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT HOSTENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT 20
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ALIASES (* C-STRING)
;                                  "char **" 4 4)
;                                 (TYPE INTEGER "int" 8 4)
;                                 (LENGTH INTEGER "int" 12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ADDRESSES
;                                  (* (* (UNSIGNED 8))) "char **" 16 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE (SLOT STRUCT 'TYPE)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH (SLOT STRUCT 'LENGTH)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* (UNSIGNED 8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (* (UNSIGNED 8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (SB-GROVEL::DEFINE-C-STRUCT MSGHDR ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT MSGHDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::MSGHDR 28
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "void *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::NAMELEN INTEGER
;                                  "socklen_t" 4 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::IOV (* T)
;                                  "struct iovec" 8 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::IOVLEN INTEGER "size_t"
;                                  12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CONTROL (* T) "void *"
;                                  16 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CONTROLLEN INTEGER
;                                  "socklen_t" 20 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 24
;                                  4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE SOCKET))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("socket" SOCKET) ...)
; compiling (DECLAIM (INLINE BIND))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("bind" BIND) ...)
; compiling (DECLAIM (INLINE LISTEN))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("listen" LISTEN) ...)
; compiling (DECLAIM (INLINE ACCEPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("accept" ACCEPT) ...)
; compiling (DECLAIM (INLINE GETPEERNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getpeername" GETPEERNAME) ...)
; compiling (DECLAIM (INLINE GETSOCKNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockname" GETSOCKNAME) ...)
; compiling (DECLAIM (INLINE CONNECT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("connect" CONNECT) ...)
; compiling (DECLAIM (INLINE CLOSE))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("close" CLOSE) ...)
; compiling (DECLAIM (INLINE SHUTDOWN))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("shutdown" SHUTDOWN) ...)
; compiling (DECLAIM (INLINE RECVFROM))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvfrom" RECVFROM) ...)
; compiling (DECLAIM (INLINE RECVMSG))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvmsg" RECVMSG) ...)
; compiling (DECLAIM (INLINE SEND))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("send" SEND) ...)
; compiling (DECLAIM (INLINE SENDTO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendto" SENDTO) ...)
; compiling (DECLAIM (INLINE SENDMSG))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendmsg" SENDMSG) ...)
; compiling (DECLAIM (INLINE GETHOSTBYNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("gethostbyname" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYNAME)
;      (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)
;      (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (TYPE # :OFFSET 64) (LENGTH # :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRESSES #
;                                        :OFFSET 128)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-20 #
;                                        :OFFSET 160)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETHOSTBYADDR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR) ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("gethostbyaddr" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR)
;      (* SB-BSD-SOCKETS-INTERNAL::HOSTENT) (ADDR (* T))
;      (SB-BSD-SOCKETS-INTERNAL::LEN INT) (SB-BSD-SOCKETS-INTERNAL::AF INT))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (TYPE # :OFFSET 64) (LENGTH # :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRESSES #
;                                        :OFFSET 128)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-20 #
;                                        :OFFSET 160)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETHOSTBYNAME-R))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname_r" GETHOSTBYNAME-R) ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT ADDRINFO ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ADDRINFO
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO 32
;                                 (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 0
;                                  4)
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER "int" 4
;                                  4)
;                                 (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE INTEGER "int"
;                                  8 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::PROTOCOL INTEGER "int"
;                                  12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ADDRLEN INTEGER
;                                  "size_t" 16 4)
;                                 (ADDR (* T) "struct sockaddr*" 20 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 24 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::NEXT
;                                  (* (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                                  "struct addrinfo*" 28 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FAMILY)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::SOCKTYPE)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTOCOL)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRLEN)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (DECLAIM (INLINE GETADDRINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getaddrinfo" GETADDRINFO) ...)
; compiling (DECLAIM (INLINE FREEADDRINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("freeaddrinfo" FREEADDRINFO) ...)
; compiling (DECLAIM (INLINE GAI-STRERROR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gai_strerror" GAI-STRERROR) ...)
; compiling (DECLAIM (INLINE GETNAMEINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getnameinfo" GETNAMEINFO) ...)
; compiling (DEFCONSTANT EAI-FAMILY ...)
; compiling (DEFCONSTANT EAI-SOCKTYPE ...)
; compiling (DEFCONSTANT EAI-BADFLAGS ...)
; compiling (DEFCONSTANT EAI-NONAME ...)
; compiling (DEFCONSTANT EAI-SERVICE ...)
; compiling (DEFCONSTANT EAI-ADDRFAMILY ...)
; compiling (DEFCONSTANT EAI-MEMORY ...)
; compiling (DEFCONSTANT EAI-FAIL ...)
; compiling (DEFCONSTANT EAI-AGAIN ...)
; compiling (DEFCONSTANT EAI-SYSTEM ...)
; compiling (DEFCONSTANT NI-NAMEREQD ...)
; compiling (DECLAIM (INLINE SETSOCKOPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("setsockopt" SETSOCKOPT) ...)
; compiling (DECLAIM (INLINE FCNTL))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("fcntl" FCNTL) ...)
; compiling (DECLAIM (INLINE GETSOCKOPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockopt" GETSOCKOPT) ...)
; compiling (DEFCONSTANT IPPROTO_IP ...)
; compiling (DEFCONSTANT IPPROTO_IPV6 ...)
; compiling (DEFCONSTANT IPPROTO_ICMP ...)
; compiling (DEFCONSTANT IPPROTO_IGMP ...)
; compiling (DEFCONSTANT IPPROTO_TCP ...)
; compiling (DEFCONSTANT IPPROTO_UDP ...)
; compiling (DEFCONSTANT IPPROTO_RAW ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:12.167
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/util.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFUN INTERRUPTED-P ...)
; compiling (DEFMACRO SYSCALL-ERROR-CASE ...)
; compiling (DEFMACRO SOCKET-ERROR-CASE ...)
; compiling (DEFMACRO ADDRINFO-ERROR-CASE ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;UTIL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.332
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/protocol.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE #:SB-BSD-SOCKETS)
; compiling (DEFGENERIC MAKE-SOCKADDR-FOR ...)
; compiling (DEFGENERIC FREE-SOCKADDR-FOR ...)
; compiling (DEFGENERIC BITS-OF-SOCKADDR ...)
; compiling (DEFGENERIC SIZE-OF-SOCKADDR ...)
; compiling (DEFGENERIC SOCKET-NAME ...)
; compiling (DEFGENERIC SOCKET-PEERNAME ...)
; compiling (DEFGENERIC SOCKET-NAMESTRING ...)
; compiling (DEFGENERIC SOCKET-PEERSTRING ...)
; compiling (DEFGENERIC SOCKET-OPEN-P ...)
; compiling (DEFGENERIC SOCKET-CLOSE ...)
; compiling (DEFGENERIC SOCKET-BIND ...)
; compiling (DEFGENERIC SOCKET-ACCEPT ...)
; compiling (DEFGENERIC SOCKET-CONNECT ...)
; compiling (DEFGENERIC SOCKET-RECEIVE ...)
; compiling (DEFGENERIC SOCKET-SEND ...)
; compiling (DEFGENERIC SOCKET-LISTEN ...)
; compiling (DEFGENERIC SOCKET-SHUTDOWN ...)
; compiling (DEFGENERIC SOCKET-MAKE-STREAM ...)
; compiling (DEFGENERIC NON-BLOCKING-MODE ...)
; compiling (DEFGENERIC (SETF NON-BLOCKING-MODE) ...)
; compiling (DEFGENERIC HOST-ENT-ADDRESS ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;PROTOCOL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.395
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sockets.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFUN SOCKET-ERRNO ...)
; compiling (DEFCLASS SOCKET ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFUN CALL-WITH-SOCKET-ADDR ...)
; compiling (DEFMACRO WITH-SOCKET-ADDR ...)
; compiling (DEFMACRO WITH-SOCKET-FD-AND-ADDR ...)
; compiling (DEFMETHOD SOCKET-BIND ...)
; compiling (DEFMETHOD SOCKET-ACCEPT ...)
; compiling (DEFMETHOD SOCKET-CONNECT ...)
; compiling (DEFMETHOD SOCKET-PEERNAME ...)
; compiling (DEFMETHOD SOCKET-NAME ...)
; compiling (DEFMETHOD SOCKET-RECEIVE ...)
; compiling (DEFMACRO WITH-VECTOR-SAP ...)
; compiling (DEFMETHOD SOCKET-SEND ...)
; compiling (DEFMETHOD SOCKET-LISTEN ...)
; compiling (DEFMETHOD SOCKET-OPEN-P ...)
; compiling (DEFMETHOD SOCKET-CLOSE ...)
; compiling (DEFMETHOD SOCKET-SHUTDOWN ...)
; compiling (DEFMETHOD SOCKET-MAKE-STREAM ...)
; compiling (DEFINE-CONDITION SOCKET-ERROR ...)
; compiling (DEFMACRO DEFINE-SOCKET-CONDITION ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-ERRNO* ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EADDRINUSE ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EAGAIN ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EBADF ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ECONNREFUSED ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ETIMEDOUT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINTR ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINVAL ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOBUFS ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOMEM ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EOPNOTSUPP ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPERM ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPROTONOSUPPORT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ESOCKTNOSUPPORT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENETUNREACH ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOTCONN ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EAFNOSUPPORT ...)
; compiling (DEFUN CONDITION-FOR-ERRNO ...)
; compiling (DEFUN SOCKET-ERROR ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKETS-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.584
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/misc.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFMETHOD NON-BLOCKING-MODE ...)
; compiling (DEFMETHOD (SETF NON-BLOCKING-MODE) ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/misc.lisp
; in: DEFMETHOD (SETF NON-BLOCKING-MODE) (T SOCKET)
;     (= (THE (SIGNED-BYTE 32) -1)
;        (THE (SIGNED-BYTE 32)
;             (SB-BSD-SOCKETS-INTERNAL::FCNTL SB-BSD-SOCKETS::FD
;                                             SB-BSD-SOCKETS-INTERNAL::F-SETFL
;                                             SB-BSD-SOCKETS::ARG2)))
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ


; SYS:CONTRIB;SB-BSD-SOCKETS;MISC-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.174
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/name-service.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS HOST-ENT ...)
; compiling (DEFMETHOD HOST-ENT-ADDRESS ...)
; compiling (DECLAIM (INLINE NATURALIZE-UNSIGNED-BYTE-8-ARRAY))
; compiling (DEFUN NATURALIZE-UNSIGNED-BYTE-8-ARRAY ...)
; compiling (DEFCONSTANT NI-MAX-HOST ...)
; compiling (DEFUN GET-HOST-BY-NAME ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/name-service.lisp
; in: DEFUN GET-HOST-BY-NAME
;     (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                  SB-BSD-SOCKETS::INFO*)
;           SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;           DO (COND
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET)
;                (LET (#)
;                  (SETF #)))
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET6)
;                (LET (#)
;                  (SETF #)))))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> SB-BSD-SOCKETS::INFO SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT SB-BSD-SOCKETS::INFO*)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getaddrinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETADDRINFO
;                                            SB-BSD-SOCKETS::NODE NIL NIL
;                                            (ADDR SB-BSD-SOCKETS::INFO)))
;         (LET ((SB-BSD-SOCKETS::HOST-ENT4
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET :ALIASES NIL
;                               :ADDRESSES NIL))
;               (SB-BSD-SOCKETS::HOST-ENT6
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET6 :ALIASES
;                               NIL :ADDRESSES NIL)))
;           (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                        SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;                 DO (COND (# #) (# #)))
;           (SB-BSD-SOCKETS-INTERNAL::FREEADDRINFO SB-BSD-SOCKETS::INFO)
;           (VALUES SB-BSD-SOCKETS::HOST-ENT4 SB-BSD-SOCKETS::HOST-ENT6)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF NOT IF ZEROP = EQL IF EQL 
; --> EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                  SB-BSD-SOCKETS::INFO*)
;           SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;           DO (COND
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET)
;                (LET (#)
;                  (SETF #)))
;               ((=
;                 (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS-INTERNAL::AF-INET6)
;                (LET (#)
;                  (SETF #)))))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> SB-BSD-SOCKETS::INFO SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
; --> BLOCK ZEROP = IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (= (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;        SB-BSD-SOCKETS-INTERNAL::AF-INET)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT SB-BSD-SOCKETS::INFO*)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                       (SB-BSD-SOCKETS-INTERNAL::FLAGS # :OFFSET
;                                        0)
;                                       (SB-BSD-SOCKETS-INTERNAL::FAMILY #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE #
;                                        :OFFSET 64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTOCOL #
;                                        :OFFSET 96)
;                                       (SB-BSD-SOCKETS-INTERNAL::ADDRLEN #
;                                        :OFFSET 128)
;                                       (ADDR # :OFFSET 160)
;                                       (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                        C-STRING :OFFSET 192)
;                                       (SB-BSD-SOCKETS-INTERNAL::NEXT # :OFFSET
;                                        224)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-32 #
;                                        :OFFSET 256)))>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (= (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY SB-BSD-SOCKETS::INFO*)
;        SB-BSD-SOCKETS-INTERNAL::AF-INET6)
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getaddrinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETADDRINFO
;                                            SB-BSD-SOCKETS::NODE NIL NIL
;                                            (ADDR SB-BSD-SOCKETS::INFO)))
;         (LET ((SB-BSD-SOCKETS::HOST-ENT4
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET :ALIASES NIL
;                               :ADDRESSES NIL))
;               (SB-BSD-SOCKETS::HOST-ENT6
;                (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME SB-BSD-SOCKETS::NODE
;                               :TYPE SB-BSD-SOCKETS-INTERNAL::AF-INET6 :ALIASES
;                               NIL :ADDRESSES NIL)))
;           (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::INFO* = SB-BSD-SOCKETS::INFO SB-BSD-SOCKETS::THEN (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT
;                                                                                                        SB-BSD-SOCKETS::INFO*)
;                 SB-BSD-SOCKETS::UNTIL (NULL-ALIEN SB-BSD-SOCKETS::INFO*)
;                 DO (COND (# #) (# #)))
;           (SB-BSD-SOCKETS-INTERNAL::FREEADDRINFO SB-BSD-SOCKETS::INFO)
;           (VALUES SB-BSD-SOCKETS::HOST-ENT4 SB-BSD-SOCKETS::HOST-ENT6)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF PROGN 
; ==>
;   (SB-BSD-SOCKETS::ADDRINFO-ERROR "getaddrinfo" #:RESULT56)
; 
; note: doing signed word to integer coercion (cost 20) from SB-ALIEN:ALIEN

; compiling (DEFUN GET-HOST-BY-ADDRESS ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/name-service.lisp
; in: DEFUN GET-HOST-BY-ADDRESS
;     (AREF SB-BSD-SOCKETS::ADDRESS SB-BSD-SOCKETS::I)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (FUNCALL SB-BSD-SOCKETS::SOCKADDR-FREE SB-BSD-SOCKETS::SOCKADDR)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-BSD-SOCKETS::SOCKADDR-FREE)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getnameinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETNAMEINFO
;                                            (CAST SB-BSD-SOCKETS::SOCKADDR (* T))
;                                            SB-BSD-SOCKETS::SOCKADDR-SIZE
;                                            (CAST SB-BSD-SOCKETS::HOST-BUF
;                                                  (* CHAR))
;                                            SB-BSD-SOCKETS::NI-MAX-HOST NIL 0
;                                            SB-BSD-SOCKETS-INTERNAL::NI-NAMEREQD))
;         (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME
;                        (SB-ALIEN::C-STRING-TO-STRING
;                         (ALIEN-SAP SB-BSD-SOCKETS::HOST-BUF)
;                         (SB-IMPL::DEFAULT-EXTERNAL-FORMAT) 'CHARACTER)
;                        :TYPE SB-BSD-SOCKETS::ADDRESS-FAMILY :ALIASES NIL
;                        :ADDRESSES (LIST SB-BSD-SOCKETS::ADDRESS)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF NOT IF ZEROP = EQL IF EQL 
; --> EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-ALIEN::C-STRING-TO-STRING (ALIEN-SAP SB-BSD-SOCKETS::HOST-BUF)
;                                   (SB-IMPL::DEFAULT-EXTERNAL-FORMAT) 'CHARACTER)
; 
; note: doing SAP to pointer coercion (cost 20) from #:VAR216

;     (SB-BSD-SOCKETS::ADDRINFO-ERROR-CASE ("getnameinfo"
;                                           (SB-BSD-SOCKETS-INTERNAL::GETNAMEINFO
;                                            (CAST SB-BSD-SOCKETS::SOCKADDR (* T))
;                                            SB-BSD-SOCKETS::SOCKADDR-SIZE
;                                            (CAST SB-BSD-SOCKETS::HOST-BUF
;                                                  (* CHAR))
;                                            SB-BSD-SOCKETS::NI-MAX-HOST NIL 0
;                                            SB-BSD-SOCKETS-INTERNAL::NI-NAMEREQD))
;         (MAKE-INSTANCE 'SB-BSD-SOCKETS:HOST-ENT :NAME
;                        (SB-ALIEN::C-STRING-TO-STRING
;                         (ALIEN-SAP SB-BSD-SOCKETS::HOST-BUF)
;                         (SB-IMPL::DEFAULT-EXTERNAL-FORMAT) 'CHARACTER)
;                        :TYPE SB-BSD-SOCKETS::ADDRESS-FAMILY :ALIASES NIL
;                        :ADDRESSES (LIST SB-BSD-SOCKETS::ADDRESS)))
; --> SB-BSD-SOCKETS::SYSCALL-ERROR-CASE LET COND IF PROGN 
; ==>
;   (SB-BSD-SOCKETS::ADDRINFO-ERROR "getnameinfo" #:RESULT217)
; 
; note: doing signed word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (SETF (DEREF
;            (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN6-ADDR SB-BSD-SOCKETS::SOCKADDR)
;            SB-BSD-SOCKETS::I)
;             (AREF SB-BSD-SOCKETS::ADDRESS SB-BSD-SOCKETS::I))
; --> LET* SB-ALIEN-INTERNALS:%SET-DEREF SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-8 
; ==>
;   (SB-KERNEL:%SET-SAP-REF-8 SB-C::SAP (+ SB-C::OFFSET1 SB-C::OFFSET2)
;                             SB-C::NEW-VALUE)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; compiling (DEFVAR *NAME-SERVICE-ERRNO* ...)
; compiling (DEFUN NAME-SERVICE-ERROR ...)
; compiling (DEFUN ADDRINFO-ERROR ...)
; compiling (DEFINE-CONDITION NAME-SERVICE-ERROR ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-NAME-SERVICE-ERRNO* ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-NAME-SERVICE-ERROR-CODE* ...)
; compiling (DEFMACRO DEFINE-NAME-SERVICE-CONDITION ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-INTERNAL ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-SUCCESS ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::HOST-NOT-FOUND ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::TRY-AGAIN ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-RECOVERY ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-ADDRESS ...)
; compiling (DEFUN CONDITION-FOR-NAME-SERVICE-ERRNO ...)
; compiling (DEFUN CONDITION-FOR-NAME-SERVICE-ERROR-CODE ...)
; compiling (DEFUN GET-NAME-SERVICE-ERRNO ...)
; compiling (DEFUN GET-NAME-SERVICE-ERROR-MESSAGE ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;NAME-SERVICE-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.384
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/local.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS LOCAL-SOCKET ...)
; compiling (DEFMETHOD SOCKET-NAMESTRING ...)
; compiling (DEFMETHOD SOCKET-PEERSTRING ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/local.lisp
; in: DEFMETHOD BITS-OF-SOCKADDR (LOCAL-SOCKET T)
;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK CAST SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE IF 
; --> ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> BLOCK CAST SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-C::SAP

; compiling (DEFCLASS LOCAL-ABSTRACT-SOCKET ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;LOCAL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.853
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet6.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS INET6-SOCKET ...)
; compiling (DEFPARAMETER *INET6-ADDRESS-ANY* ...)
; compiling (DEFUN ADDRESS-NUMBERS/V6 ...)
; compiling (DEFUN ENDPOINT-STRING/V6 ...)
; compiling (DEFMETHOD SOCKET-NAMESTRING ...)
; compiling (DEFMETHOD SOCKET-PEERSTRING ...)
; compiling (DEFUN UNPARSE-INET6-ADDRESS ...)
; compiling (DEFUN MAKE-INET6-ADDRESS ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;INET6-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.344
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet4.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS INET-SOCKET ...)
; compiling (DEFPARAMETER *INET-ADDRESS-ANY* ...)
; compiling (DEFUN ADDRESS-NUMBERS/V4 ...)
; compiling (DEFUN ENDPOINT-STRING/V4 ...)
; compiling (DEFMETHOD SOCKET-NAMESTRING ...)
; compiling (DEFMETHOD SOCKET-PEERSTRING ...)
; compiling (DEFUN MAKE-INET-ADDRESS ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet4.lisp
; in: DEFMETHOD MAKE-SOCKADDR-FOR (INET-SOCKET)
;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-PORT SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-PORT SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 2)>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 4)>)
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)
; compiling (DEFUN MAKE-INET-SOCKET ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;INET4-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.796
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFINE-CONDITION UNKNOWN-PROTOCOL ...)
; compiling (DEFVAR *PROTOCOLS* ...)
; compiling (DEFUN GET-PROTOCOL-BY-NAME ...)
; compiling (DEFUN GETPROTOBYNAME ...)
; file: /«PKGBUILDDIR»/contrib/sb-bsd-sockets/inet.lisp
; in: DEFUN GETPROTOBYNAME
;     (SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME SB-BSD-SOCKETS::NAME)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                       (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING
;                                        :OFFSET 0)
;                                       (SB-BSD-SOCKETS-INTERNAL::ALIASES #
;                                        :OFFSET 32)
;                                       (SB-BSD-SOCKETS-INTERNAL::PROTO # :OFFSET
;                                        64)
;                                       (SB-BSD-SOCKETS-INTERNAL::PADDING-0-12 #
;                                        :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF (SB-BSD-SOCKETS-INTERNAL::PROTOENT-ALIASES SB-BSD-SOCKETS::PROTOENT)
;            SB-BSD-SOCKETS::INDEX)
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::PROTOENT-NAME SB-BSD-SOCKETS::PROTOENT)
; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN:ALIEN


; SYS:CONTRIB;SB-BSD-SOCKETS;INET-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.270
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sockopt.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION ...)
; compiling (DEFUN FOREIGN-INT-TO-INTEGER ...)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION-INT ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-LOW-WATER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-LOW-WATER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TYPE ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-BUFFER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-BUFFER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-PRIORITY ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPCNT ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPIDLE ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPINTVL ...)
; compiling (DEFUN FOREIGN-INT-TO-BOOL ...)
; compiling (DEFUN BOOL-TO-FOREIGN-INT ...)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION-BOOL ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-REUSE-ADDRESS ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-KEEP-ALIVE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-OOB-INLINE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BSD-COMPATIBLE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-PASS-CREDENTIALS ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DEBUG ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DONT-ROUTE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BROADCAST ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-TCP-NODELAY ...)
; compiling (DEFUN IDENTITY-1 ...)
; compiling (DEFINE-SOCKET-OPTION SOCKOPT-BIND-TO-DEVICE ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKOPT-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.489
; 
; compilation unit finished
;   printed 115 notes
* echo "(defsystem :sb-bsd-sockets :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-bsd-sockets.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-bsd-sockets")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-POSIX ...)

; SYS:CONTRIB;SB-POSIX;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.013
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/designator.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFVAR *DESIGNATOR-TYPES* ...)
; compiling (DEFMACRO DEFINE-DESIGNATOR ...)

; SYS:CONTRIB;SB-POSIX;DESIGNATOR-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.164
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/macros.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFINE-DESIGNATOR FILENAME ...)
; compiling (DEFINE-DESIGNATOR FILE-DESCRIPTOR ...)
; compiling (DEFINE-DESIGNATOR SAP-OR-NIL ...)
; compiling (DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/macros.lisp
; in: DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL
;     (SAP-ALIEN (SB-SYS:INT-SAP 0) (* T))
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-SYS:INT-SAP 0)
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFUN LISP-FOR-C-SYMBOL ...)
; compiling (DEFPARAMETER *C-FUNCTIONS-IN-RUNTIME* ...)
; compiling (DEFUN REAL-C-NAME ...)
; compiling (DEFMACRO DEFINE-CALL-INTERNALLY ...)
; compiling (DEFMACRO DEFINE-CALL ...)
; compiling (DEFMACRO DEFINE-ENTRY-POINT ...)
; compiling (DEFMACRO DEFINE-SIMPLE-CALL ...)

; SYS:CONTRIB;SB-POSIX;MACROS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.559
(SYS:CONTRIB;SB-POSIX;CONSTANTS.LISP SYS:CONTRIB;SB-POSIX;CONSTANTS.FASL.NEWEST
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.fasl
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/foo.c
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/a.out
 /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp)
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp" (written 11 JUN 2015 08:36:55 AM):
; compiling (IN-PACKAGE #:SB-POSIX)
; compiling (DEFCONSTANT AF-INET ...)
; compiling (EXPORT (QUOTE AF-INET))
; compiling (DEFINE-ALIEN-TYPE UID-T ...)
; compiling (DEFINE-ALIEN-TYPE GID-T ...)
; compiling (DEFINE-ALIEN-TYPE NLINK-T ...)
; compiling (DEFINE-ALIEN-TYPE PID-T ...)
; compiling (DEFINE-ALIEN-TYPE INO-T ...)
; compiling (DEFINE-ALIEN-TYPE TIME-T ...)
; compiling (DEFINE-ALIEN-TYPE DEV-T ...)
; compiling (DEFCONSTANT SIGHUP ...)
; compiling (EXPORT (QUOTE SIGHUP))
; compiling (DEFCONSTANT SIGINT ...)
; compiling (EXPORT (QUOTE SIGINT))
; compiling (DEFCONSTANT SIGQUIT ...)
; compiling (EXPORT (QUOTE SIGQUIT))
; compiling (DEFCONSTANT SIGILL ...)
; compiling (EXPORT (QUOTE SIGILL))
; compiling (DEFCONSTANT SIGTRAP ...)
; compiling (EXPORT (QUOTE SIGTRAP))
; compiling (DEFCONSTANT SIGABRT ...)
; compiling (EXPORT (QUOTE SIGABRT))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...)
; compiling (EXPORT (QUOTE SIGEMT))
; compiling (DEFCONSTANT SIGFPE ...)
; compiling (EXPORT (QUOTE SIGFPE))
; compiling (DEFCONSTANT SIGKILL ...)
; compiling (EXPORT (QUOTE SIGKILL))
; compiling (DEFCONSTANT SIGBUS ...)
; compiling (EXPORT (QUOTE SIGBUS))
; compiling (DEFCONSTANT SIGSEGV ...)
; compiling (EXPORT (QUOTE SIGSEGV))
; compiling (DEFCONSTANT SIGSYS ...)
; compiling (EXPORT (QUOTE SIGSYS))
; compiling (DEFCONSTANT SIGPIPE ...)
; compiling (EXPORT (QUOTE SIGPIPE))
; compiling (DEFCONSTANT SIGALRM ...)
; compiling (EXPORT (QUOTE SIGALRM))
; compiling (DEFCONSTANT SIGTERM ...)
; compiling (EXPORT (QUOTE SIGTERM))
; compiling (DEFCONSTANT SIGURG ...)
; compiling (EXPORT (QUOTE SIGURG))
; compiling (DEFCONSTANT SIGSTOP ...)
; compiling (EXPORT (QUOTE SIGSTOP))
; compiling (DEFCONSTANT SIGTSTP ...)
; compiling (EXPORT (QUOTE SIGTSTP))
; compiling (DEFCONSTANT SIGCONT ...)
; compiling (EXPORT (QUOTE SIGCONT))
; compiling (DEFCONSTANT SIGCHLD ...)
; compiling (EXPORT (QUOTE SIGCHLD))
; compiling (DEFCONSTANT SIGTTIN ...)
; compiling (EXPORT (QUOTE SIGTTIN))
; compiling (DEFCONSTANT SIGTTOU ...)
; compiling (EXPORT (QUOTE SIGTTOU))
; compiling (DEFCONSTANT SIGIO ...)
; compiling (EXPORT (QUOTE SIGIO))
; compiling (DEFCONSTANT SIGXCPU ...)
; compiling (EXPORT (QUOTE SIGXCPU))
; compiling (DEFCONSTANT SIGXFSZ ...)
; compiling (EXPORT (QUOTE SIGXFSZ))
; compiling (DEFCONSTANT SIGVTALRM ...)
; compiling (EXPORT (QUOTE SIGVTALRM))
; compiling (DEFCONSTANT SIGPROF ...)
; compiling (EXPORT (QUOTE SIGPROF))
; compiling (DEFCONSTANT SIGWINCH ...)
; compiling (EXPORT (QUOTE SIGWINCH))
; compiling (DEFCONSTANT SIGPWR ...)
; compiling (EXPORT (QUOTE SIGPWR))
; compiling (DEFCONSTANT SIGUSR1 ...)
; compiling (EXPORT (QUOTE SIGUSR1))
; compiling (DEFCONSTANT SIGUSR2 ...)
; compiling (EXPORT (QUOTE SIGUSR2))
; compiling (DEFCONSTANT SIGRTMIN ...)
; compiling (EXPORT (QUOTE SIGRTMIN))
; compiling (DEFCONSTANT SIGRTMAX ...)
; compiling (EXPORT (QUOTE SIGRTMAX))
; compiling (DEFCONSTANT EPERM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPERM))
; compiling (DEFCONSTANT ENOENT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOENT))
; compiling (DEFCONSTANT ESRCH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESRCH))
; compiling (DEFCONSTANT EINTR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINTR))
; compiling (DEFCONSTANT EIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EIO))
; compiling (DEFCONSTANT ENXIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENXIO))
; compiling (DEFCONSTANT E2BIG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE E2BIG))
; compiling (DEFCONSTANT ENOEXEC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOEXEC))
; compiling (DEFCONSTANT EBADF ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADF))
; compiling (DEFCONSTANT ECHILD ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECHILD))
; compiling (DEFCONSTANT EAGAIN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EAGAIN))
; compiling (DEFCONSTANT ENOMEM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMEM))
; compiling (DEFCONSTANT EACCES ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EACCES))
; compiling (DEFCONSTANT EFAULT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EFAULT))
; compiling (DEFCONSTANT ENOTBLK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTBLK))
; compiling (DEFCONSTANT EBUSY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBUSY))
; compiling (DEFCONSTANT EEXIST ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EEXIST))
; compiling (DEFCONSTANT EXDEV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EXDEV))
; compiling (DEFCONSTANT ENODEV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENODEV))
; compiling (DEFCONSTANT ENOTDIR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTDIR))
; compiling (DEFCONSTANT EISDIR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EISDIR))
; compiling (DEFCONSTANT EINVAL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINVAL))
; compiling (DEFCONSTANT ENFILE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENFILE))
; compiling (DEFCONSTANT EMFILE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMFILE))
; compiling (DEFCONSTANT ENOTTY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTTY))
; compiling (DEFCONSTANT ETXTBSY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETXTBSY))
; compiling (DEFCONSTANT EFBIG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EFBIG))
; compiling (DEFCONSTANT ENOSPC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSPC))
; compiling (DEFCONSTANT ESPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESPIPE))
; compiling (DEFCONSTANT EROFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EROFS))
; compiling (DEFCONSTANT EMLINK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMLINK))
; compiling (DEFCONSTANT EPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPIPE))
; compiling (DEFCONSTANT EDOM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDOM))
; compiling (DEFCONSTANT ERANGE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ERANGE))
; compiling (DEFCONSTANT EDEADLK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDEADLK))
; compiling (DEFCONSTANT ENAMETOOLONG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENAMETOOLONG))
; compiling (DEFCONSTANT ENOLCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOLCK))
; compiling (DEFCONSTANT ENOSYS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSYS))
; compiling (DEFCONSTANT ENOTEMPTY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTEMPTY))
; compiling (DEFCONSTANT ELOOP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELOOP))
; compiling (DEFCONSTANT EWOULDBLOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EWOULDBLOCK))
; compiling (DEFCONSTANT ENOMSG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMSG))
; compiling (DEFCONSTANT EIDRM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EIDRM))
; compiling (DEFCONSTANT ECHRNG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECHRNG))
; compiling (DEFCONSTANT EL2NSYNC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL2NSYNC))
; compiling (DEFCONSTANT EL3HLT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL3HLT))
; compiling (DEFCONSTANT EL3RST ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL3RST))
; compiling (DEFCONSTANT ELNRNG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELNRNG))
; compiling (DEFCONSTANT EUNATCH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EUNATCH))
; compiling (DEFCONSTANT ENOCSI ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOCSI))
; compiling (DEFCONSTANT EL2HLT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EL2HLT))
; compiling (DEFCONSTANT EBADE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADE))
; compiling (DEFCONSTANT EBADR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADR))
; compiling (DEFCONSTANT EXFULL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EXFULL))
; compiling (DEFCONSTANT ENOANO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOANO))
; compiling (DEFCONSTANT EBADRQC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADRQC))
; compiling (DEFCONSTANT EBADSLT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADSLT))
; compiling (DEFCONSTANT EDEADLOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDEADLOCK))
; compiling (DEFCONSTANT EBFONT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBFONT))
; compiling (DEFCONSTANT ENOSTR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSTR))
; compiling (DEFCONSTANT ENODATA ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENODATA))
; compiling (DEFCONSTANT ETIME ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETIME))
; compiling (DEFCONSTANT ENOSR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSR))
; compiling (DEFCONSTANT ENONET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENONET))
; compiling (DEFCONSTANT ENOPKG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOPKG))
; compiling (DEFCONSTANT EREMOTE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EREMOTE))
; compiling (DEFCONSTANT ENOLINK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOLINK))
; compiling (DEFCONSTANT EADV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADV))
; compiling (DEFCONSTANT ESRMNT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESRMNT))
; compiling (DEFCONSTANT ECOMM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECOMM))
; compiling (DEFCONSTANT EPROTO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTO))
; compiling (DEFCONSTANT EMULTIHOP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMULTIHOP))
; compiling (DEFCONSTANT EDOTDOT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDOTDOT))
; compiling (DEFCONSTANT EBADMSG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADMSG))
; compiling (DEFCONSTANT EOVERFLOW ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EOVERFLOW))
; compiling (DEFCONSTANT ENOTUNIQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTUNIQ))
; compiling (DEFCONSTANT EBADFD ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADFD))
; compiling (DEFCONSTANT EREMCHG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EREMCHG))
; compiling (DEFCONSTANT ELIBACC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBACC))
; compiling (DEFCONSTANT ELIBBAD ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBBAD))
; compiling (DEFCONSTANT ELIBSCN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBSCN))
; compiling (DEFCONSTANT ELIBMAX ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBMAX))
; compiling (DEFCONSTANT ELIBEXEC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELIBEXEC))
; compiling (DEFCONSTANT EILSEQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EILSEQ))
; compiling (DEFCONSTANT ERESTART ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ERESTART))
; compiling (DEFCONSTANT ESTRPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESTRPIPE))
; compiling (DEFCONSTANT EUSERS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EUSERS))
; compiling (DEFCONSTANT ENOTSOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTSOCK))
; compiling (DEFCONSTANT EDESTADDRREQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDESTADDRREQ))
; compiling (DEFCONSTANT EMSGSIZE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMSGSIZE))
; compiling (DEFCONSTANT EPROTOTYPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTOTYPE))
; compiling (DEFCONSTANT ENOPROTOOPT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOPROTOOPT))
; compiling (DEFCONSTANT EPROTONOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTONOSUPPORT))
; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESOCKTNOSUPPORT))
; compiling (DEFCONSTANT EOPNOTSUPP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EOPNOTSUPP))
; compiling (DEFCONSTANT EPFNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPFNOSUPPORT))
; compiling (DEFCONSTANT EAFNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EAFNOSUPPORT))
; compiling (DEFCONSTANT EADDRINUSE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADDRINUSE))
; compiling (DEFCONSTANT EADDRNOTAVAIL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADDRNOTAVAIL))
; compiling (DEFCONSTANT ENETDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETDOWN))
; compiling (DEFCONSTANT ENETUNREACH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETUNREACH))
; compiling (DEFCONSTANT ENETRESET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETRESET))
; compiling (DEFCONSTANT ECONNABORTED ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNABORTED))
; compiling (DEFCONSTANT ECONNRESET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNRESET))
; compiling (DEFCONSTANT ENOBUFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOBUFS))
; compiling (DEFCONSTANT EISCONN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EISCONN))
; compiling (DEFCONSTANT ENOTCONN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTCONN))
; compiling (DEFCONSTANT ESHUTDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESHUTDOWN))
; compiling (DEFCONSTANT ETOOMANYREFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETOOMANYREFS))
; compiling (DEFCONSTANT ETIMEDOUT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETIMEDOUT))
; compiling (DEFCONSTANT ECONNREFUSED ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNREFUSED))
; compiling (DEFCONSTANT EHOSTDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EHOSTDOWN))
; compiling (DEFCONSTANT EHOSTUNREACH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EHOSTUNREACH))
; compiling (DEFCONSTANT EALREADY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EALREADY))
; compiling (DEFCONSTANT EINPROGRESS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINPROGRESS))
; compiling (DEFCONSTANT ESTALE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESTALE))
; compiling (DEFCONSTANT EUCLEAN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EUCLEAN))
; compiling (DEFCONSTANT ENOTNAM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTNAM))
; compiling (DEFCONSTANT ENAVAIL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENAVAIL))
; compiling (DEFCONSTANT EREMOTEIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EREMOTEIO))
; compiling (DEFCONSTANT EDQUOT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDQUOT))
; compiling (DEFCONSTANT ENOMEDIUM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMEDIUM))
; compiling (DEFCONSTANT EMEDIUMTYPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMEDIUMTYPE))
; compiling (DEFCONSTANT WNOHANG ...)
; compiling (EXPORT (QUOTE WNOHANG))
; compiling (DEFCONSTANT WUNTRACED ...)
; compiling (EXPORT (QUOTE WUNTRACED))
; compiling (DEFINE-ALIEN-TYPE MODE-T ...)
; compiling (DEFCONSTANT S-IFMT ...)
; compiling (EXPORT (QUOTE S-IFMT))
; compiling (DEFCONSTANT S-IFIFO ...)
; compiling (EXPORT (QUOTE S-IFIFO))
; compiling (DEFCONSTANT S-IFCHR ...)
; compiling (EXPORT (QUOTE S-IFCHR))
; compiling (DEFCONSTANT S-IFDIR ...)
; compiling (EXPORT (QUOTE S-IFDIR))
; compiling (DEFCONSTANT S-IFBLK ...)
; compiling (EXPORT (QUOTE S-IFBLK))
; compiling (DEFCONSTANT S-IFREG ...)
; compiling (EXPORT (QUOTE S-IFREG))
; compiling (DEFCONSTANT S-IFLNK ...)
; compiling (EXPORT (QUOTE S-IFLNK))
; compiling (DEFCONSTANT S-IFSOCK ...)
; compiling (EXPORT (QUOTE S-IFSOCK))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...)
; compiling (EXPORT (QUOTE S-IFWHT))
; compiling (DEFCONSTANT S-ISUID ...)
; compiling (EXPORT (QUOTE S-ISUID))
; compiling (DEFCONSTANT S-ISGID ...)
; compiling (EXPORT (QUOTE S-ISGID))
; compiling (DEFCONSTANT S-ISVTX ...)
; compiling (EXPORT (QUOTE S-ISVTX))
; compiling (DEFCONSTANT S-IRUSR ...)
; compiling (EXPORT (QUOTE S-IRUSR))
; compiling (DEFCONSTANT S-IWUSR ...)
; compiling (EXPORT (QUOTE S-IWUSR))
; compiling (DEFCONSTANT S-IXUSR ...)
; compiling (EXPORT (QUOTE S-IXUSR))
; compiling (DEFCONSTANT S-IREAD ...)
; compiling (EXPORT (QUOTE S-IREAD))
; compiling (DEFCONSTANT S-IWRITE ...)
; compiling (EXPORT (QUOTE S-IWRITE))
; compiling (DEFCONSTANT S-IEXEC ...)
; compiling (EXPORT (QUOTE S-IEXEC))
; compiling (DEFCONSTANT S-IRGRP ...)
; compiling (EXPORT (QUOTE S-IRGRP))
; compiling (DEFCONSTANT S-IWGRP ...)
; compiling (EXPORT (QUOTE S-IWGRP))
; compiling (DEFCONSTANT S-IXGRP ...)
; compiling (EXPORT (QUOTE S-IXGRP))
; compiling (DEFCONSTANT S-IROTH ...)
; compiling (EXPORT (QUOTE S-IROTH))
; compiling (DEFCONSTANT S-IWOTH ...)
; compiling (EXPORT (QUOTE S-IWOTH))
; compiling (DEFCONSTANT S-IXOTH ...)
; compiling (EXPORT (QUOTE S-IXOTH))
; compiling (DEFCONSTANT R-OK ...)
; compiling (EXPORT (QUOTE R-OK))
; compiling (DEFCONSTANT W-OK ...)
; compiling (EXPORT (QUOTE W-OK))
; compiling (DEFCONSTANT X-OK ...)
; compiling (EXPORT (QUOTE X-OK))
; compiling (DEFCONSTANT F-OK ...)
; compiling (EXPORT (QUOTE F-OK))
; compiling (DEFINE-ALIEN-TYPE OFF-T ...)
; compiling (DEFCONSTANT PROT-NONE ...)
; compiling (EXPORT (QUOTE PROT-NONE))
; compiling (DEFCONSTANT PROT-READ ...)
; compiling (EXPORT (QUOTE PROT-READ))
; compiling (DEFCONSTANT PROT-WRITE ...)
; compiling (EXPORT (QUOTE PROT-WRITE))
; compiling (DEFCONSTANT PROT-EXEC ...)
; compiling (EXPORT (QUOTE PROT-EXEC))
; compiling (DEFCONSTANT MAP-SHARED ...)
; compiling (EXPORT (QUOTE MAP-SHARED))
; compiling (DEFCONSTANT MAP-PRIVATE ...)
; compiling (EXPORT (QUOTE MAP-PRIVATE))
; compiling (DEFCONSTANT MAP-FIXED ...)
; compiling (EXPORT (QUOTE MAP-FIXED))
; compiling (DEFCONSTANT MAP-ANON ...)
; compiling (EXPORT (QUOTE MAP-ANON))
; compiling (DEFCONSTANT MS-ASYNC ...)
; compiling (EXPORT (QUOTE MS-ASYNC))
; compiling (DEFCONSTANT MS-SYNC ...)
; compiling (EXPORT (QUOTE MS-SYNC))
; compiling (DEFCONSTANT MS-INVALIDATE ...)
; compiling (EXPORT (QUOTE MS-INVALIDATE))
; compiling (DEFCONSTANT MCL-CURRENT ...)
; compiling (EXPORT (QUOTE MCL-CURRENT))
; compiling (DEFCONSTANT MCL-FUTURE ...)
; compiling (EXPORT (QUOTE MCL-FUTURE))
; compiling (SB-GROVEL::DEFINE-C-STRUCT DIRENT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT DIRENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::DIRENT 280
;                                 (SB-POSIX::INO SB-POSIX::INO-T "ino_t" 0 8)
;                                 (SB-POSIX::NAME C-STRING "char *" 19 256))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK CAST SB-ALIEN-INTERNALS:%CAST 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-PASSWD 28
;                                 (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER
;                                  "char *" 4 4)
;                                 (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 8 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 12 4)
;                                 (SB-POSIX::GECOS SB-POSIX::C-STRING-POINTER
;                                  "char *" 16 4)
;                                 (SB-POSIX::DIR SB-POSIX::C-STRING-POINTER
;                                  "char *" 20 4)
;                                 (SB-POSIX::SHELL SB-POSIX::C-STRING-POINTER
;                                  "char *" 24 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-PASSWD-UID (SLOT STRUCT 'SB-POSIX::UID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-PASSWD-GID (SLOT STRUCT 'SB-POSIX::GID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-GROUP 16
;                                 (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER
;                                  "char *" 4 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 8 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE C-STRING>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-GROUP-GID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-GROUP)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-GROUP-GID (SLOT STRUCT 'SB-POSIX::GID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-STAT 104
;                                 (SB-POSIX::MODE SB-POSIX::MODE-T "mode_t" 16 4)
;                                 (SB-POSIX::NLINK SB-POSIX::NLINK-T "nlink_t" 20
;                                  4)
;                                 (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 24 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 28 4)
;                                 (SB-POSIX::RDEV SB-POSIX::DEV-T "dev_t" 32 8)
;                                 (SB-POSIX::SIZE OFF-T "off_t" 48 8)
;                                 (SB-POSIX::ATIME SB-POSIX::TIME-T "time_t" 72 4)
;                                 (SB-POSIX::MTIME SB-POSIX::TIME-T "time_t" 80 4)
;                                 (SB-POSIX::CTIME SB-POSIX::TIME-T "time_t" 88 4)
;                                 ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MODE
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-MODE (SLOT STRUCT 'SB-POSIX::MODE)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-NLINK
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-NLINK (SLOT STRUCT 'SB-POSIX::NLINK)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-UID (SLOT STRUCT 'SB-POSIX::UID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-GID (SLOT STRUCT 'SB-POSIX::GID)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-ATIME (SLOT STRUCT 'SB-POSIX::ATIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-MTIME (SLOT STRUCT 'SB-POSIX::MTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-STAT-CTIME (SLOT STRUCT 'SB-POSIX::CTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES
;                                                                             FIXNUM
;                                                                             &REST
;                                                                             T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; compiling (DEFCONSTANT O-RDONLY ...)
; compiling (EXPORT (QUOTE O-RDONLY))
; compiling (DEFCONSTANT O-WRONLY ...)
; compiling (EXPORT (QUOTE O-WRONLY))
; compiling (DEFCONSTANT O-RDWR ...)
; compiling (EXPORT (QUOTE O-RDWR))
; compiling (DEFCONSTANT O-CREAT ...)
; compiling (EXPORT (QUOTE O-CREAT))
; compiling (DEFCONSTANT O-EXCL ...)
; compiling (EXPORT (QUOTE O-EXCL))
; compiling (DEFCONSTANT O-NOCTTY ...)
; compiling (EXPORT (QUOTE O-NOCTTY))
; compiling (DEFCONSTANT O-TRUNC ...)
; compiling (EXPORT (QUOTE O-TRUNC))
; compiling (DEFCONSTANT O-APPEND ...)
; compiling (EXPORT (QUOTE O-APPEND))
; compiling (DEFCONSTANT O-NONBLOCK ...)
; compiling (EXPORT (QUOTE O-NONBLOCK))
; compiling (DEFCONSTANT O-NDELAY ...)
; compiling (EXPORT (QUOTE O-NDELAY))
; compiling (DEFCONSTANT O-SYNC ...)
; compiling (EXPORT (QUOTE O-SYNC))
; compiling (DEFCONSTANT O-NOFOLLOW ...)
; compiling (EXPORT (QUOTE O-NOFOLLOW))
; compiling (DEFCONSTANT O-DIRECTORY ...)
; compiling (EXPORT (QUOTE O-DIRECTORY))
; compiling (DEFCONSTANT O-DIRECT ...)
; compiling (EXPORT (QUOTE O-DIRECT))
; compiling (DEFCONSTANT O-ASYNC ...)
; compiling (EXPORT (QUOTE O-ASYNC))
; compiling (DEFCONSTANT O-LARGEFILE ...)
; compiling (EXPORT (QUOTE O-LARGEFILE))
; compiling (DEFCONSTANT O-DSYNC ...)
; compiling (EXPORT (QUOTE O-DSYNC))
; compiling (DEFCONSTANT O-RSYNC ...)
; compiling (EXPORT (QUOTE O-RSYNC))
; compiling (DEFCONSTANT SEEK-SET ...)
; compiling (EXPORT (QUOTE SEEK-SET))
; compiling (DEFCONSTANT SEEK-CUR ...)
; compiling (EXPORT (QUOTE SEEK-CUR))
; compiling (DEFCONSTANT SEEK-END ...)
; compiling (EXPORT (QUOTE SEEK-END))
; compiling (DEFCONSTANT F-DUPFD ...)
; compiling (EXPORT (QUOTE F-DUPFD))
; compiling (DEFCONSTANT F-GETFD ...)
; compiling (EXPORT (QUOTE F-GETFD))
; compiling (DEFCONSTANT F-SETFD ...)
; compiling (EXPORT (QUOTE F-SETFD))
; compiling (DEFCONSTANT F-GETFL ...)
; compiling (EXPORT (QUOTE F-GETFL))
; compiling (DEFCONSTANT F-SETFL ...)
; compiling (EXPORT (QUOTE F-SETFL))
; compiling (DEFCONSTANT F-GETLK ...)
; compiling (EXPORT (QUOTE F-GETLK))
; compiling (DEFCONSTANT F-SETLK ...)
; compiling (EXPORT (QUOTE F-SETLK))
; compiling (DEFCONSTANT F-SETLKW ...)
; compiling (EXPORT (QUOTE F-SETLKW))
; compiling (DEFCONSTANT F-GETOWN ...)
; compiling (EXPORT (QUOTE F-GETOWN))
; compiling (DEFCONSTANT F-SETOWN ...)
; compiling (EXPORT (QUOTE F-SETOWN))
; compiling (DEFCONSTANT F-RDLCK ...)
; compiling (EXPORT (QUOTE F-RDLCK))
; compiling (DEFCONSTANT F-WRLCK ...)
; compiling (EXPORT (QUOTE F-WRLCK))
; compiling (DEFCONSTANT F-UNLCK ...)
; compiling (EXPORT (QUOTE F-UNLCK))
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-FLOCK ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-FLOCK
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-FLOCK 32 (TYPE SHORT "short" 0 2)
;                                 (SB-POSIX::WHENCE SHORT "short" 2 2)
;                                 (SB-POSIX::START OFF-T "off_t" 8 8)
;                                 (SB-POSIX::LEN OFF-T "off_t" 16 8)
;                                 (SB-POSIX::PID SB-POSIX::PID-T "pid_t" 24 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-C::SAP SB-C::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-C::SAP (+ SB-C::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-C::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-C::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-FLOCK-PID
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-FLOCK)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-FLOCK-PID (SLOT STRUCT 'SB-POSIX::PID)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFCONSTANT F-LOCK ...)
; compiling (EXPORT (QUOTE F-LOCK))
; compiling (DEFCONSTANT F-TLOCK ...)
; compiling (EXPORT (QUOTE F-TLOCK))
; compiling (DEFCONSTANT F-ULOCK ...)
; compiling (EXPORT (QUOTE F-ULOCK))
; compiling (DEFCONSTANT F-TEST ...)
; compiling (EXPORT (QUOTE F-TEST))
; compiling (DEFINE-ALIEN-TYPE CC-T ...)
; compiling (DEFINE-ALIEN-TYPE SPEED-T ...)
; compiling (EXPORT (QUOTE SPEED-T))
; compiling (DEFINE-ALIEN-TYPE TCFLAG-T ...)
; compiling (EXPORT (QUOTE TCFLAG-T))
; compiling (DEFCONSTANT NCCS ...)
; compiling (EXPORT (QUOTE NCCS))
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TERMIOS 60
;                                 (SB-POSIX::IFLAG SB-POSIX::TCFLAG-T "tcflag_t" 0
;                                  4)
;                                 (SB-POSIX::OFLAG SB-POSIX::TCFLAG-T "tcflag_t" 4
;                                  4)
;                                 (SB-POSIX::CFLAG SB-POSIX::TCFLAG-T "tcflag_t" 8
;                                  4)
;                                 (SB-POSIX::LFLAG SB-POSIX::TCFLAG-T "tcflag_t" 12
;                                  4)
;                                 (SB-POSIX::CC (ARRAY SB-POSIX::CC-T) "cc_t" 17
;                                  32))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG (SLOT STRUCT 'SB-POSIX::IFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG (SLOT STRUCT 'SB-POSIX::OFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG (SLOT STRUCT 'SB-POSIX::CFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG (SLOT STRUCT 'SB-POSIX::LFLAG)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 32)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE
;                                     (ARRAY (UNSIGNED 8) 32)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-UTIMBUF 8
;                                 (SB-POSIX::ACTIME SB-POSIX::TIME-T "time_t" 0 4)
;                                 (SB-POSIX::MODTIME SB-POSIX::TIME-T "time_t" 4 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME (SLOT STRUCT 'SB-POSIX::ACTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME (SLOT STRUCT 'SB-POSIX::MODTIME)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL ...)
; file: /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TIMEVAL 8
;                                 (SB-POSIX::SEC SB-POSIX::TIME-T "time_t" 0 4)
;                                 (SB-POSIX::USEC SB-POSIX::SUSECONDS-T
;                                  "suseconds_t" 4 4))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC (SLOT STRUCT 'SB-POSIX::SEC)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC
;         (STRUCT)
;       (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                (OPTIMIZE (SPEED 3)))
;       (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC (SLOT STRUCT 'SB-POSIX::USEC)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFCONSTANT VEOF ...)
; compiling (EXPORT (QUOTE VEOF))
; compiling (DEFCONSTANT VEOL ...)
; compiling (EXPORT (QUOTE VEOL))
; compiling (DEFCONSTANT VERASE ...)
; compiling (EXPORT (QUOTE VERASE))
; compiling (DEFCONSTANT VINTR ...)
; compiling (EXPORT (QUOTE VINTR))
; compiling (DEFCONSTANT VKILL ...)
; compiling (EXPORT (QUOTE VKILL))
; compiling (DEFCONSTANT VMIN ...)
; compiling (EXPORT (QUOTE VMIN))
; compiling (DEFCONSTANT VQUIT ...)
; compiling (EXPORT (QUOTE VQUIT))
; compiling (DEFCONSTANT VSTART ...)
; compiling (EXPORT (QUOTE VSTART))
; compiling (DEFCONSTANT VSTOP ...)
; compiling (EXPORT (QUOTE VSTOP))
; compiling (DEFCONSTANT VSUSP ...)
; compiling (EXPORT (QUOTE VSUSP))
; compiling (DEFCONSTANT VTIME ...)
; compiling (EXPORT (QUOTE VTIME))
; compiling (DEFCONSTANT VDISABLE ...)
; compiling (EXPORT (QUOTE VDISABLE))
; compiling (DEFCONSTANT BRKINT ...)
; compiling (EXPORT (QUOTE BRKINT))
; compiling (DEFCONSTANT ICRNL ...)
; compiling (EXPORT (QUOTE ICRNL))
; compiling (DEFCONSTANT IGNBRK ...)
; compiling (EXPORT (QUOTE IGNBRK))
; compiling (DEFCONSTANT IGNCR ...)
; compiling (EXPORT (QUOTE IGNCR))
; compiling (DEFCONSTANT IGNPAR ...)
; compiling (EXPORT (QUOTE IGNPAR))
; compiling (DEFCONSTANT INLCR ...)
; compiling (EXPORT (QUOTE INLCR))
; compiling (DEFCONSTANT INPCK ...)
; compiling (EXPORT (QUOTE INPCK))
; compiling (DEFCONSTANT ISTRIP ...)
; compiling (EXPORT (QUOTE ISTRIP))
; compiling (DEFCONSTANT IXOFF ...)
; compiling (EXPORT (QUOTE IXOFF))
; compiling (DEFCONSTANT IXON ...)
; compiling (EXPORT (QUOTE IXON))
; compiling (DEFCONSTANT PARMRK ...)
; compiling (EXPORT (QUOTE PARMRK))
; compiling (DEFCONSTANT OPOST ...)
; compiling (EXPORT (QUOTE OPOST))
; compiling (DEFCONSTANT OCRNL ...)
; compiling (EXPORT (QUOTE OCRNL))
; compiling (DEFCONSTANT ONOCR ...)
; compiling (EXPORT (QUOTE ONOCR))
; compiling (DEFCONSTANT ONLRET ...)
; compiling (EXPORT (QUOTE ONLRET))
; compiling (DEFCONSTANT OFDEL ...)
; compiling (EXPORT (QUOTE OFDEL))
; compiling (DEFCONSTANT OFILL ...)
; compiling (EXPORT (QUOTE OFILL))
; compiling (DEFCONSTANT NLDLY ...)
; compiling (EXPORT (QUOTE NLDLY))
; compiling (DEFCONSTANT NL0 ...)
; compiling (EXPORT (QUOTE NL0))
; compiling (DEFCONSTANT NL1 ...)
; compiling (EXPORT (QUOTE NL1))
; compiling (DEFCONSTANT CRDLY ...)
; compiling (EXPORT (QUOTE CRDLY))
; compiling (DEFCONSTANT CR0 ...)
; compiling (EXPORT (QUOTE CR0))
; compiling (DEFCONSTANT CR1 ...)
; compiling (EXPORT (QUOTE CR1))
; compiling (DEFCONSTANT CR2 ...)
; compiling (EXPORT (QUOTE CR2))
; compiling (DEFCONSTANT CR3 ...)
; compiling (EXPORT (QUOTE CR3))
; compiling (DEFCONSTANT TABDLY ...)
; compiling (EXPORT (QUOTE TABDLY))
; compiling (DEFCONSTANT TAB0 ...)
; compiling (EXPORT (QUOTE TAB0))
; compiling (DEFCONSTANT TAB1 ...)
; compiling (EXPORT (QUOTE TAB1))
; compiling (DEFCONSTANT TAB2 ...)
; compiling (EXPORT (QUOTE TAB2))
; compiling (DEFCONSTANT TAB3 ...)
; compiling (EXPORT (QUOTE TAB3))
; compiling (DEFCONSTANT BSDLY ...)
; compiling (EXPORT (QUOTE BSDLY))
; compiling (DEFCONSTANT BS0 ...)
; compiling (EXPORT (QUOTE BS0))
; compiling (DEFCONSTANT BS1 ...)
; compiling (EXPORT (QUOTE BS1))
; compiling (DEFCONSTANT VTDLY ...)
; compiling (EXPORT (QUOTE VTDLY))
; compiling (DEFCONSTANT VT0 ...)
; compiling (EXPORT (QUOTE VT0))
; compiling (DEFCONSTANT VT1 ...)
; compiling (EXPORT (QUOTE VT1))
; compiling (DEFCONSTANT FFDLY ...)
; compiling (EXPORT (QUOTE FFDLY))
; compiling (DEFCONSTANT FF0 ...)
; compiling (EXPORT (QUOTE FF0))
; compiling (DEFCONSTANT FF1 ...)
; compiling (EXPORT (QUOTE FF1))
; compiling (DEFCONSTANT B0 ...)
; compiling (EXPORT (QUOTE B0))
; compiling (DEFCONSTANT B50 ...)
; compiling (EXPORT (QUOTE B50))
; compiling (DEFCONSTANT B75 ...)
; compiling (EXPORT (QUOTE B75))
; compiling (DEFCONSTANT B110 ...)
; compiling (EXPORT (QUOTE B110))
; compiling (DEFCONSTANT B134 ...)
; compiling (EXPORT (QUOTE B134))
; compiling (DEFCONSTANT B150 ...)
; compiling (EXPORT (QUOTE B150))
; compiling (DEFCONSTANT B200 ...)
; compiling (EXPORT (QUOTE B200))
; compiling (DEFCONSTANT B300 ...)
; compiling (EXPORT (QUOTE B300))
; compiling (DEFCONSTANT B600 ...)
; compiling (EXPORT (QUOTE B600))
; compiling (DEFCONSTANT B1200 ...)
; compiling (EXPORT (QUOTE B1200))
; compiling (DEFCONSTANT B1800 ...)
; compiling (EXPORT (QUOTE B1800))
; compiling (DEFCONSTANT B2400 ...)
; compiling (EXPORT (QUOTE B2400))
; compiling (DEFCONSTANT B4800 ...)
; compiling (EXPORT (QUOTE B4800))
; compiling (DEFCONSTANT B9600 ...)
; compiling (EXPORT (QUOTE B9600))
; compiling (DEFCONSTANT B19200 ...)
; compiling (EXPORT (QUOTE B19200))
; compiling (DEFCONSTANT B38400 ...)
; compiling (EXPORT (QUOTE B38400))
; compiling (DEFCONSTANT B57600 ...)
; compiling (EXPORT (QUOTE B57600))
; compiling (DEFCONSTANT B115200 ...)
; compiling (EXPORT (QUOTE B115200))
; compiling (DEFCONSTANT B230400 ...)
; compiling (EXPORT (QUOTE B230400))
; compiling (DEFCONSTANT CSIZE ...)
; compiling (EXPORT (QUOTE CSIZE))
; compiling (DEFCONSTANT CS5 ...)
; compiling (EXPORT (QUOTE CS5))
; compiling (DEFCONSTANT CS6 ...)
; compiling (EXPORT (QUOTE CS6))
; compiling (DEFCONSTANT CS7 ...)
; compiling (EXPORT (QUOTE CS7))
; compiling (DEFCONSTANT CS8 ...)
; compiling (EXPORT (QUOTE CS8))
; compiling (DEFCONSTANT CSTOPB ...)
; compiling (EXPORT (QUOTE CSTOPB))
; compiling (DEFCONSTANT CREAD ...)
; compiling (EXPORT (QUOTE CREAD))
; compiling (DEFCONSTANT PARENB ...)
; compiling (EXPORT (QUOTE PARENB))
; compiling (DEFCONSTANT PARODD ...)
; compiling (EXPORT (QUOTE PARODD))
; compiling (DEFCONSTANT HUPCL ...)
; compiling (EXPORT (QUOTE HUPCL))
; compiling (DEFCONSTANT CLOCAL ...)
; compiling (EXPORT (QUOTE CLOCAL))
; compiling (DEFCONSTANT ECHO ...)
; compiling (EXPORT (QUOTE ECHO))
; compiling (DEFCONSTANT ECHOE ...)
; compiling (EXPORT (QUOTE ECHOE))
; compiling (DEFCONSTANT ECHOK ...)
; compiling (EXPORT (QUOTE ECHOK))
; compiling (DEFCONSTANT ECHONL ...)
; compiling (EXPORT (QUOTE ECHONL))
; compiling (DEFCONSTANT ICANON ...)
; compiling (EXPORT (QUOTE ICANON))
; compiling (DEFCONSTANT IEXTEN ...)
; compiling (EXPORT (QUOTE IEXTEN))
; compiling (DEFCONSTANT ISIG ...)
; compiling (EXPORT (QUOTE ISIG))
; compiling (DEFCONSTANT NOFLSH ...)
; compiling (EXPORT (QUOTE NOFLSH))
; compiling (DEFCONSTANT TOSTOP ...)
; compiling (EXPORT (QUOTE TOSTOP))
; compiling (DEFCONSTANT TCSANOW ...)
; compiling (EXPORT (QUOTE TCSANOW))
; compiling (DEFCONSTANT TCSADRAIN ...)
; compiling (EXPORT (QUOTE TCSADRAIN))
; compiling (DEFCONSTANT TCSAFLUSH ...)
; compiling (EXPORT (QUOTE TCSAFLUSH))
; compiling (DEFCONSTANT TCIFLUSH ...)
; compiling (EXPORT (QUOTE TCIFLUSH))
; compiling (DEFCONSTANT TCIOFLUSH ...)
; compiling (EXPORT (QUOTE TCIOFLUSH))
; compiling (DEFCONSTANT TCOFLUSH ...)
; compiling (EXPORT (QUOTE TCOFLUSH))
; compiling (DEFCONSTANT TCIOFF ...)
; compiling (EXPORT (QUOTE TCIOFF))
; compiling (DEFCONSTANT TCION ...)
; compiling (EXPORT (QUOTE TCION))
; compiling (DEFCONSTANT TCOOFF ...)
; compiling (EXPORT (QUOTE TCOOFF))
; compiling (DEFCONSTANT TCOON ...)
; compiling (EXPORT (QUOTE TCOON))
; compiling (DEFCONSTANT LOG-USER ...)
; compiling (EXPORT (QUOTE LOG-USER))
; compiling (DEFCONSTANT LOG-LOCAL0 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL0))
; compiling (DEFCONSTANT LOG-LOCAL1 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL1))
; compiling (DEFCONSTANT LOG-LOCAL2 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL2))
; compiling (DEFCONSTANT LOG-LOCAL3 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL3))
; compiling (DEFCONSTANT LOG-LOCAL4 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL4))
; compiling (DEFCONSTANT LOG-LOCAL5 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL5))
; compiling (DEFCONSTANT LOG-LOCAL6 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL6))
; compiling (DEFCONSTANT LOG-LOCAL7 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL7))
; compiling (DEFCONSTANT LOG-AUTHPRIV ...)
; compiling (EXPORT (QUOTE LOG-AUTHPRIV))
; compiling (DEFCONSTANT LOG-CRON ...)
; compiling (EXPORT (QUOTE LOG-CRON))
; compiling (DEFCONSTANT LOG-DAEMON ...)
; compiling (EXPORT (QUOTE LOG-DAEMON))
; compiling (DEFCONSTANT LOG-FTP ...)
; compiling (EXPORT (QUOTE LOG-FTP))
; compiling (DEFCONSTANT LOG-KERN ...)
; compiling (EXPORT (QUOTE LOG-KERN))
; compiling (DEFCONSTANT LOG-LPR ...)
; compiling (EXPORT (QUOTE LOG-LPR))
; compiling (DEFCONSTANT LOG-MAIL ...)
; compiling (EXPORT (QUOTE LOG-MAIL))
; compiling (DEFCONSTANT LOG-NEWS ...)
; compiling (EXPORT (QUOTE LOG-NEWS))
; compiling (DEFCONSTANT LOG-SYSLOG ...)
; compiling (EXPORT (QUOTE LOG-SYSLOG))
; compiling (DEFCONSTANT LOG-UUCP ...)
; compiling (EXPORT (QUOTE LOG-UUCP))
; compiling (DEFCONSTANT LOG-PID ...)
; compiling (EXPORT (QUOTE LOG-PID))
; compiling (DEFCONSTANT LOG-CONS ...)
; compiling (EXPORT (QUOTE LOG-CONS))
; compiling (DEFCONSTANT LOG-NDELAY ...)
; compiling (EXPORT (QUOTE LOG-NDELAY))
; compiling (DEFCONSTANT LOG-ODELAY ...)
; compiling (EXPORT (QUOTE LOG-ODELAY))
; compiling (DEFCONSTANT LOG-NOWAIT ...)
; compiling (EXPORT (QUOTE LOG-NOWAIT))
; compiling (DEFCONSTANT LOG-PERROR ...)
; compiling (EXPORT (QUOTE LOG-PERROR))
; compiling (DEFCONSTANT LOG-EMERG ...)
; compiling (EXPORT (QUOTE LOG-EMERG))
; compiling (DEFCONSTANT LOG-ALERT ...)
; compiling (EXPORT (QUOTE LOG-ALERT))
; compiling (DEFCONSTANT LOG-CRIT ...)
; compiling (EXPORT (QUOTE LOG-CRIT))
; compiling (DEFCONSTANT LOG-ERR ...)
; compiling (EXPORT (QUOTE LOG-ERR))
; compiling (DEFCONSTANT LOG-WARNING ...)
; compiling (EXPORT (QUOTE LOG-WARNING))
; compiling (DEFCONSTANT LOG-NOTICE ...)
; compiling (EXPORT (QUOTE LOG-NOTICE))
; compiling (DEFCONSTANT LOG-INFO ...)
; compiling (EXPORT (QUOTE LOG-INFO))
; compiling (DEFCONSTANT LOG-DEBUG ...)
; compiling (EXPORT (QUOTE LOG-DEBUG))

; SYS:CONTRIB;SB-POSIX;CONSTANTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:09.784
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/interface.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFMACRO DEFINE-PROTOCOL-CLASS ...)
; compiling (DEFINE-CONDITION SYSCALL-ERROR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SYSCALL-ERROR ...)
; compiling (DEFUN UNSUPPORTED-ERROR ...)
; compiling (DEFUN UNSUPPORTED-WARNING ...)
; compiling (DECLAIM (INLINE NEVER-FAILS))
; compiling (DEFUN NEVER-FAILS ...)
; compiling (SETF *C-FUNCTIONS-IN-RUNTIME* ...)
; compiling (DEFMACRO DEFINE-CALL* ...)
; compiling (DEFINE-CALL* "access" ...)
; compiling (DEFINE-CALL* "chdir" ...)
; compiling (DEFINE-CALL* "chmod" ...)
; compiling (DEFINE-CALL* "close" ...)
; compiling (DEFINE-CALL* "creat" ...)
; compiling (DEFINE-CALL* "dup" ...)
; compiling (DEFINE-CALL* "dup2" ...)
; compiling (DEFINE-CALL* ("lseek" :OPTIONS ...) ...)
; compiling (DEFINE-CALL* "mkdir" ...)
; compiling (DEF "open")
; compiling (DEFINE-CALL* "read" ...)
; compiling (DEFINE-CALL "rename" ...)
; compiling (DEFINE-CALL* "rmdir" ...)
; compiling (DEFINE-CALL* "unlink" ...)
; compiling (DEFINE-CALL "opendir" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-CALL "opendir"
;     (SB-POSIX::DEFINE-CALL "opendir" (* T) NULL-ALIEN
;                            (PATHNAME SB-POSIX:FILENAME))
; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL* "write" ...)
; compiling (DEFINE-CALL ("readdir" :OPTIONS ...) ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-CALL ("readdir" :OPTIONS :LARGEFILE)
;     (SB-POSIX::DEFINE-CALL ("readdir" :OPTIONS :LARGEFILE) (* SB-POSIX::DIRENT)
;                            NOT (SB-POSIX::DIR (* T)))
; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::DIRENT
;                                       (SB-POSIX::INO # :OFFSET 0)
;                                       (SB-POSIX::PADDING-11-8 # :OFFSET 64)
;                                       (SB-POSIX::NAME # :OFFSET 152)
;                                       (SB-POSIX::PADDING-5-275 # :OFFSET
;                                        2200)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "closedir" ...)
; compiling (DEFINE-CALL* "umask" ...)
; compiling (DEFINE-CALL* "getpid" ...)
; compiling (DEFINE-CALL "chown" ...)
; compiling (DEFINE-CALL "chroot" ...)
; compiling (DEFINE-CALL "fchdir" ...)
; compiling (DEFINE-CALL "fchmod" ...)
; compiling (DEFINE-CALL "fchown" ...)
; compiling (DEFINE-CALL "fdatasync" ...)
; compiling (DEFINE-CALL ("ftruncate" :OPTIONS ...) ...)
; compiling (DEFINE-CALL "fsync" ...)
; compiling (DEFINE-CALL "lchown" ...)
; compiling (DEFINE-CALL "link" ...)
; compiling (DEFINE-CALL "lockf" ...)
; compiling (DEFINE-CALL "mkfifo" ...)
; compiling (DEFINE-CALL "symlink" ...)
; compiling (DEFINE-CALL "sync" ...)
; compiling (DEFINE-CALL ("truncate" :OPTIONS ...) ...)
; compiling (DEF-MK*TEMP MKTEMP ...)
; compiling (DEF-MK*TEMP MKSTEMP ...)
; compiling (DEF-MK*TEMP MKDTEMP ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITHOUT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-INT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-POINTER-ARG ...)
; compiling (DEFINE-ENTRY-POINT "ioctl" ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITHOUT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-INT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-POINTER-ARG ...)
; compiling (DEFINE-PROTOCOL-CLASS FLOCK ...)
; compiling (DEFINE-ENTRY-POINT "fcntl" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-ENTRY-POINT "fcntl"
;     (SB-POSIX::FLOCK-TO-ALIEN SB-POSIX::ARG SB-POSIX::A-FLOCK)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::FCNTL-WITH-POINTER-ARG SB-POSIX::FD SB-POSIX::CMD
;      SB-POSIX::A-FLOCK)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::ALIEN-TO-FLOCK SB-POSIX::A-FLOCK SB-POSIX::ARG)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-FLOCK SB-POSIX::A-FLOCK
;         NIL
;       (SB-POSIX::FLOCK-TO-ALIEN SB-POSIX::ARG SB-POSIX::A-FLOCK)
;       (LET ((SB-POSIX::R
;              (SB-POSIX::FCNTL-WITH-POINTER-ARG SB-POSIX::FD SB-POSIX::CMD
;               SB-POSIX::A-FLOCK)))
;         (SB-POSIX::ALIEN-TO-FLOCK SB-POSIX::A-FLOCK SB-POSIX::ARG)
;         SB-POSIX::R))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-FLOCK 
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-FLOCK
;                                       (TYPE # :OFFSET 0)
;                                       (SB-POSIX::WHENCE # :OFFSET 16)
;                                       (SB-POSIX::PADDING-4-4 # :OFFSET 32)
;                                       (SB-POSIX::START # :OFFSET 64)
;                                       (SB-POSIX::LEN # :OFFSET 128)
;                                       (SB-POSIX::PID # :OFFSET 192)
;                                       (SB-POSIX::PADDING-4-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "geteuid" ...)
; compiling (DEFINE-CALL "getresuid" ...)
; compiling (DEFINE-CALL "getuid" ...)
; compiling (DEFINE-CALL "seteuid" ...)
; compiling (DEFINE-CALL "setfsuid" ...)
; compiling (DEFINE-CALL "setreuid" ...)
; compiling (DEFINE-CALL "setresuid" ...)
; compiling (DEFINE-CALL "setuid" ...)
; compiling (DEFINE-CALL "getegid" ...)
; compiling (DEFINE-CALL "getgid" ...)
; compiling (DEFINE-CALL "getresgid" ...)
; compiling (DEFINE-CALL "setegid" ...)
; compiling (DEFINE-CALL "setfsgid" ...)
; compiling (DEFINE-CALL "setgid" ...)
; compiling (DEFINE-CALL "setregid" ...)
; compiling (DEFINE-CALL "setresgid" ...)
; compiling (DEFINE-CALL "alarm" ...)
; compiling (DEFINE-SIMPLE-CALL ABORT ...)
; compiling (DEFINE-SIMPLE-CALL EXIT ...)
; compiling (DEFINE-SIMPLE-CALL _EXIT ...)
; compiling (DEFINE-CALL ("posix_fork" :C-NAME ...) ...)
; compiling (DEFUN FORK ...)
; compiling (EXPORT (QUOTE FORK) ...)
; compiling (DEFINE-CALL "getpgid" ...)
; compiling (DEFINE-CALL "getppid" ...)
; compiling (DEFINE-CALL "getpgrp" ...)
; compiling (DEFINE-CALL "getsid" ...)
; compiling (DEFINE-CALL "kill" ...)
; compiling (DEFINE-CALL "killpg" ...)
; compiling (DEFINE-CALL "pause" ...)
; compiling (DEFINE-CALL "setpgid" ...)
; compiling (DEFINE-CALL "setpgrp" ...)
; compiling (DEFINE-CALL "setsid" ...)
; compiling (DEFMACRO WITH-GROWING-C-STRING ...)
; compiling (EXPORT (QUOTE READLINK) ...)
; compiling (DEFUN READLINK ...)
; compiling (EXPORT (QUOTE GETCWD) ...)
; compiling (DEFUN GETCWD ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN GETCWD
;     (SB-POSIX::WITH-GROWING-C-STRING (SB-POSIX::BUF SB-POSIX::SIZE)
;       (LET ((SB-POSIX::RESULT (SB-POSIX::%GETCWD SB-POSIX::BUF SB-POSIX::SIZE)))
;         (COND (SB-POSIX::RESULT (SB-POSIX::BUF))
;               ((/= # SB-POSIX:ERANGE)
;                (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::GETCWD)))))
; --> BLOCK LET FLET BLOCK WHEN IF PROGN SETF SB-KERNEL:%SET-SAP-REF-8 
; --> ALIEN-SAP 
; ==>
;   SB-POSIX::BUF
; 
; note: deleting unreachable code

; compiling (EXPORT (QUOTE WAIT) ...)
; compiling (DECLAIM (INLINE WAIT))
; compiling (DEFUN WAIT ...)
; compiling (EXPORT (QUOTE WAITPID) ...)
; compiling (DECLAIM (INLINE WAITPID))
; compiling (DEFUN WAITPID ...)
; compiling (DEFINE-CALL "wifexited" ...)
; compiling (DEFINE-CALL "wexitstatus" ...)
; compiling (DEFINE-CALL "wifsignaled" ...)
; compiling (DEFINE-CALL "wtermsig" ...)
; compiling (DEFINE-CALL "wifstopped" ...)
; compiling (DEFINE-CALL "wstopsig" ...)
; compiling (DEFINE-CALL ("mmap" :OPTIONS ...) ...)
; compiling (DEFINE-CALL "munmap" ...)
; compiling (DEFINE-CALL "msync" ...)
; compiling (DEFINE-CALL "mlockall" ...)
; compiling (DEFINE-CALL "munlockall" ...)
; compiling (DEFINE-CALL "getpagesize" ...)
; compiling (DEFINE-PROTOCOL-CLASS PASSWD ...)
; compiling (DEFINE-PROTOCOL-CLASS GROUP ...)
; compiling (DEFMACRO DEFINE-OBJ-CALL ...)
; compiling (DEFINE-OBJ-CALL "getpwnam" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getpwnam"
;     (SB-POSIX::DEFINE-OBJ-CALL "getpwnam" SB-POSIX::LOGIN-NAME
;                                (FUNCTION (* SB-POSIX::ALIEN-PASSWD)
;                                 (C-STRING :NOT-NULL T))
;                                SB-POSIX::ALIEN-TO-PASSWD)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-PASSWD
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::UID # :OFFSET 64)
;                                       (SB-POSIX::GID # :OFFSET 96)
;                                       (SB-POSIX::GECOS C-STRING :OFFSET 128)
;                                       (SB-POSIX::DIR C-STRING :OFFSET 160)
;                                       (SB-POSIX::SHELL C-STRING :OFFSET 192)
;                                       (SB-POSIX::PADDING-0-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getpwuid" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getpwuid"
;     (SB-POSIX::DEFINE-OBJ-CALL "getpwuid" SB-POSIX::UID
;                                (FUNCTION (* SB-POSIX::ALIEN-PASSWD)
;                                 SB-POSIX::UID-T)
;                                SB-POSIX::ALIEN-TO-PASSWD)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-PASSWD
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::UID # :OFFSET 64)
;                                       (SB-POSIX::GID # :OFFSET 96)
;                                       (SB-POSIX::GECOS C-STRING :OFFSET 128)
;                                       (SB-POSIX::DIR C-STRING :OFFSET 160)
;                                       (SB-POSIX::SHELL C-STRING :OFFSET 192)
;                                       (SB-POSIX::PADDING-0-28 # :OFFSET 224)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getgrnam" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getgrnam"
;     (SB-POSIX::DEFINE-OBJ-CALL "getgrnam" SB-POSIX::LOGIN-NAME
;                                (FUNCTION (* SB-POSIX::ALIEN-GROUP)
;                                 (C-STRING :NOT-NULL T))
;                                SB-POSIX::ALIEN-TO-GROUP)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-GROUP
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::GID # :OFFSET 64)
;                                       (SB-POSIX::PADDING-4-12 # :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getgrgid" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getgrgid"
;     (SB-POSIX::DEFINE-OBJ-CALL "getgrgid" SB-POSIX::GID
;                                (FUNCTION (* SB-POSIX::ALIEN-GROUP)
;                                 SB-POSIX::GID-T)
;                                SB-POSIX::ALIEN-TO-GROUP)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-GROUP
;                                       (SB-POSIX::NAME C-STRING :OFFSET 0)
;                                       (SB-POSIX::PASSWD C-STRING :OFFSET 32)
;                                       (SB-POSIX::GID # :OFFSET 64)
;                                       (SB-POSIX::PADDING-4-12 # :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-PROTOCOL-CLASS TIMEVAL ...)
; compiling (DEFINE-PROTOCOL-CLASS STAT ...)
; compiling (DEFMACRO DEFINE-STAT-CALL ...)
; compiling (DEFINE-STAT-CALL "stat" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-STAT-CALL "stat"
;     (SB-POSIX::DEFINE-STAT-CALL "stat" PATHNAME SB-POSIX:FILENAME
;                                 (FUNCTION INT (C-STRING :NOT-NULL T)
;                                  (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-STAT-CALL "lstat" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-STAT-CALL "lstat"
;     (SB-POSIX::DEFINE-STAT-CALL "lstat" PATHNAME SB-POSIX:FILENAME
;                                 (FUNCTION INT (C-STRING :NOT-NULL T)
;                                  (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-STAT-CALL "fstat" ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFINE-STAT-CALL "fstat"
;     (SB-POSIX::DEFINE-STAT-CALL "fstat" SB-POSIX::FD SB-POSIX:FILE-DESCRIPTOR
;                                 (FUNCTION INT INT (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-STAT
;                                       (SB-POSIX::DEV # :OFFSET 0)
;                                       (SB-POSIX::PADDING-8-8 # :OFFSET 64)
;                                       (SB-POSIX::MODE # :OFFSET 128)
;                                       (SB-POSIX::NLINK # :OFFSET 160)
;                                       (SB-POSIX::UID # :OFFSET 192)
;                                       (SB-POSIX::GID # :OFFSET 224)
;                                       (SB-POSIX::RDEV # :OFFSET 256)
;                                       (SB-POSIX::PADDING-8-40 # :OFFSET 320)
;                                       (SB-POSIX::SIZE # :OFFSET 384)
;                                       (SB-POSIX::PADDING-16-56 # :OFFSET 448)
;                                       ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "s_isreg" ...)
; compiling (DEFINE-CALL "s_isdir" ...)
; compiling (DEFINE-CALL "s_ischr" ...)
; compiling (DEFINE-CALL "s_isblk" ...)
; compiling (DEFINE-CALL "s_isfifo" ...)
; compiling (DEFINE-CALL "s_islnk" ...)
; compiling (DEFINE-CALL "s_issock" ...)
; compiling (EXPORT (QUOTE PIPE) ...)
; compiling (DECLAIM (INLINE PIPE))
; compiling (DEFUN PIPE ...)
; compiling (DEFINE-PROTOCOL-CLASS TERMIOS ...)
; compiling (EXPORT (QUOTE TCSETATTR) ...)
; compiling (DECLAIM (INLINE TCSETATTR))
; compiling (DEFUN TCSETATTR ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN TCSETATTR
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
;       (LET ((SB-POSIX::FD (SB-POSIX:FILE-DESCRIPTOR SB-POSIX::FD)))
;         (LET* ((SB-POSIX::R #))
;           (WHEN (MINUSP SB-POSIX::R)
;             (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::TCSETATTR)))
;         (VALUES)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE TCGETATTR) ...)
; compiling (DECLAIM (INLINE TCGETATTR))
; compiling (DEFUN TCGETATTR ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN TCGETATTR
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (LET ((SB-POSIX::R (ALIEN-FUNCALL # # SB-POSIX::A-TERMIOS)))
;         (WHEN (MINUSP SB-POSIX::R) (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::TCGETATTR))
;         (SETF SB-POSIX::TERMIOS
;                 (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS
;                  SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "tcdrain" ...)
; compiling (DEFINE-CALL "tcflow" ...)
; compiling (DEFINE-CALL "tcflush" ...)
; compiling (DEFINE-CALL "tcgetsid" ...)
; compiling (DEFINE-CALL "tcsendbreak" ...)
; compiling (EXPORT (QUOTE CFSETISPEED) ...)
; compiling (DECLAIM (INLINE CFSETISPEED))
; compiling (DEFUN CFSETISPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFSETISPEED
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (LET ((SB-POSIX::R (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS SPEED)))
;         (WHEN (MINUSP SB-POSIX::R)
;           (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::CFSETISPEED))
;         (SETF SB-POSIX::TERMIOS
;                 (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS
;                  SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFSETOSPEED) ...)
; compiling (DECLAIM (INLINE CFSETOSPEED))
; compiling (DEFUN CFSETOSPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFSETOSPEED
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (LET ((SB-POSIX::R (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS SPEED)))
;         (WHEN (MINUSP SB-POSIX::R)
;           (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::CFSETOSPEED))
;         (SETF SB-POSIX::TERMIOS
;                 (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS
;                  SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFGETISPEED) ...)
; compiling (DECLAIM (INLINE CFGETISPEED))
; compiling (DEFUN CFGETISPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFGETISPEED
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
;       (ALIEN-FUNCALL
;        (EXTERN-ALIEN "cfgetispeed"
;                      (FUNCTION SB-POSIX:SPEED-T (* SB-POSIX::ALIEN-TERMIOS)))
;        SB-POSIX::A-TERMIOS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFGETOSPEED) ...)
; compiling (DECLAIM (INLINE CFGETOSPEED))
; compiling (DEFUN CFGETOSPEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN CFGETOSPEED
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS
;         NIL
;       (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
;       (ALIEN-FUNCALL
;        (EXTERN-ALIEN "cfgetospeed"
;                      (FUNCTION SB-POSIX:SPEED-T (* SB-POSIX::ALIEN-TERMIOS)))
;        SB-POSIX::A-TERMIOS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-TERMIOS SB-POSIX::A-TERMIOS 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-POSIX::ALIEN-TERMIOS
;                                       (SB-POSIX::IFLAG # :OFFSET 0)
;                                       (SB-POSIX::OFLAG # :OFFSET 32)
;                                       (SB-POSIX::CFLAG # :OFFSET 64)
;                                       (SB-POSIX::LFLAG # :OFFSET 96)
;                                       (SB-POSIX::PADDING-1-16 # :OFFSET 128)
;                                       (SB-POSIX::CC # :OFFSET 136)
;                                       (SB-POSIX::PADDING-11-49 # :OFFSET
;                                        392)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE TIME) ...)
; compiling (DEFUN TIME ...)
; compiling (EXPORT (QUOTE UTIME) ...)
; compiling (DEFUN UTIME ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN UTIME
;     (EXTERN-ALIEN "utime"
;                   (FUNCTION INT (C-STRING :NOT-NULL T)
;                    (* SB-POSIX::ALIEN-UTIMBUF)))
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE
;                                     (FUNCTION (SIGNED 32)
;                                      (C-STRING :NOT-NULL T)
;                                      (*
;                                       (STRUCT SB-POSIX::ALIEN-UTIMBUF # # #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE UTIMES) ...)
; compiling (DEFUN UTIMES ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN UTIMES
;     (EXTERN-ALIEN "sb_utimes"
;                   (FUNCTION INT (C-STRING :NOT-NULL T)
;                    (* (ARRAY SB-POSIX::ALIEN-TIMEVAL 2))))
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE
;                                     (FUNCTION (SIGNED 32)
;                                      (C-STRING :NOT-NULL T) (* (ARRAY # 2)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF SB-POSIX::BUF 0)
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;                                     (STRUCT SB-POSIX::ALIEN-TIMEVAL
;                                      (SB-POSIX::SEC (SIGNED 32) :OFFSET 0)
;                                      (SB-POSIX::USEC (SIGNED 32) :OFFSET 32)
;                                      (SB-POSIX::PADDING-0-8 (ARRAY # 0) :OFFSET
;                                       64))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF SB-POSIX::BUF 1)
; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE
;                                     (STRUCT SB-POSIX::ALIEN-TIMEVAL
;                                      (SB-POSIX::SEC (SIGNED 32) :OFFSET 0)
;                                      (SB-POSIX::USEC (SIGNED 32) :OFFSET 32)
;                                      (SB-POSIX::PADDING-0-8 (ARRAY # 0) :OFFSET
;                                       64))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE GETENV) ...)
; compiling (DEFUN GETENV ...)
; file: /«PKGBUILDDIR»/contrib/sb-posix/interface.lisp
; in: DEFUN GETENV
;     (ALIEN-FUNCALL
;      (EXTERN-ALIEN "getenv" (FUNCTION (* CHAR) (C-STRING :NOT-NULL T)))
;      SB-POSIX::NAME)
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "setenv" ...)
; compiling (DEFINE-CALL "unsetenv" ...)
; compiling (EXPORT (QUOTE PUTENV) ...)
; compiling (DEFUN PUTENV ...)
; compiling (EXPORT (QUOTE OPENLOG) ...)
; compiling (EXPORT (QUOTE SYSLOG) ...)
; compiling (EXPORT (QUOTE CLOSELOG) ...)
; compiling (DEFUN OPENLOG ...)
; compiling (DEFUN SYSLOG ...)
; compiling (DEFINE-CALL "closelog" ...)

; SYS:CONTRIB;SB-POSIX;INTERFACE-TMP.FASL.NEWEST written
; compilation finished in 0:00:15.561
; compiling file "/«PKGBUILDDIR»/contrib/sb-bsd-sockets/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-BSD-SOCKETS-TEST" ...)
; compiling (IN-PACKAGE :SB-BSD-SOCKETS-TEST)
; compiling (DEFMACRO DEFTEST* ...)
; compiling (DEFTEST MAKE-INET-ADDRESS ...)
; compiling (DEFTEST MAKE-INET-ADDRESS2 ...)
; compiling (DEFTEST MAKE-INET6-ADDRESS.1 ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/TCP ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/UDP ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/ERROR ...)
; compiling (DEFTEST MAKE-INET-SOCKET.SMOKE ...)
; compiling (DEFTEST MAKE-INET-SOCKET.KEYWORD ...)
; compiling (DEFTEST* (MAKE-INET-SOCKET-WRONG) ...)
; compiling (DEFTEST* (MAKE-INET-SOCKET-KEYWORD-WRONG) ...)
; compiling (DEFTEST MAKE-INET6-SOCKET.SMOKE ...)
; compiling (DEFTEST MAKE-INET6-SOCKET.KEYWORD ...)
; compiling (DEFTEST* (NON-BLOCK-SOCKET) ...)
; compiling (DEFTEST INET-SOCKET-BIND ...)
; compiling (DEFTEST INET6-SOCKET-BIND ...)
; compiling (DEFTEST* (SIMPLE-SOCKOPT-TEST) ...)
; compiling (DEFUN READ-BUF-NONBLOCK ...)
; compiling (DEFTEST SIMPLE-LOCAL-CLIENT ...)
; compiling (DEFUN HTTP-STREAM ...)
; compiling (DEFTEST SOCKET-OPEN-P-TRUE.1 ...)
; compiling (DEFTEST SOCKET-OPEN-P-FALSE ...)
; compiling (DEFUN UDP-SERVER ...)
; compiling (DEFMACRO WITH-CLIENT-AND-SERVER ...)
; compiling (DEFINE-SHUTDOWN-TESTS :OUTPUT)
; compiling (DEFINE-SHUTDOWN-TESTS :IO)

; SYS:CONTRIB;SB-BSD-SOCKETS;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.393
Doing 27 pending tests of 27 tests total.
 SB-BSD-SOCKETS:MAKE-INET-ADDRESS SB-BSD-SOCKETS-TEST::MAKE-INET-ADDRESS2
 SB-BSD-SOCKETS-TEST::MAKE-INET6-ADDRESS.1
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/TCP
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/UDP
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/ERROR
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET.SMOKE
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET.KEYWORD
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-WRONG
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD-WRONG
 SB-BSD-SOCKETS-TEST::MAKE-INET6-SOCKET.SMOKE
 SB-BSD-SOCKETS-TEST::MAKE-INET6-SOCKET.KEYWORD
 SB-BSD-SOCKETS-TEST::NON-BLOCK-SOCKET SB-BSD-SOCKETS-TEST::INET-SOCKET-BIND
 SB-BSD-SOCKETS-TEST::INET6-SOCKET-BIND SB-BSD-SOCKETS-TEST::SIMPLE-SOCKOPT-TEST
 SB-BSD-SOCKETS-TEST::SIMPLE-LOCAL-CLIENT
 SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-TRUE.1
 SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-FALSE
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.CHARACTER.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.UB8.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.CHARACTER.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.UB8.OUTPUT
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.CHARACTER.IO
 SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.UB8.IO
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.CHARACTER.IO
 SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.UB8.IO
No tests failed.
; 
; compilation unit finished
;   printed 133 notes
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-cltl2")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-cltl2/module-setup.lisp" (written 11 JUN 2015 08:37:27 AM):
; compiling (PROVIDE :SB-CLTL2)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cltl2/module-setup.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/defpackage.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-CLTL2 ...)

; SYS:CONTRIB;SB-CLTL2;DEFPACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.019
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/env.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEFVAR *NULL-LEXENV* ...)
; compiling (DEFUN AUGMENT-ENVIRONMENT ...)
; compiling (DEFUN EXTRA-PAIRS ...)
; compiling (DEFUN EXTRA-DECL-INFO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-INFORMATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VARIABLE-INFORMATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DECLARATION-INFORMATION ...)
; compiling (DEFUN PARSE-MACRO ...)
; compiling (DEFUN ENCLOSE ...)
; compiling (DEFUN UPDATE-LEXENV-USER-DATA ...)
; compiling (DEFMACRO DEFINE-DECLARATION ...)

; SYS:CONTRIB;SB-CLTL2;ENV-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.826
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/macroexpand.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEFUN MACROEXPAND-ALL ...)
; compiling (DEFUN %QUASIQUOTED-MACROEXPAND-ALL ...)
; compiling (SETF (GET # ...) ...)

; SYS:CONTRIB;SB-CLTL2;MACROEXPAND-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.113
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/compiler-let.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEF-IR1-TRANSLATOR COMPILER-LET ...)
; compiling (DEFUN WALK-COMPILER-LET ...)
; compiling (SB-WALKER:DEFINE-WALKER-TEMPLATE COMPILER-LET ...)
; compiling (SETF (GETF SB-EVAL::*EVAL-DISPATCH-FUNCTIONS* ...) ...)

; SYS:CONTRIB;SB-CLTL2;COMPILER-LET-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.227
* echo "(defsystem :sb-cltl2 :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cltl2.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-cltl2")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-cltl2/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-CLTL2-TESTS ...)
; compiling (IN-PACKAGE :SB-CLTL2-TESTS)
; compiling (REM-ALL-TESTS)
; compiling (DEFMACRO *X*-VALUE ...)
; compiling (DEFTEST COMPILER-LET.1 ...)
; compiling (DEFVAR *EXPANSIONS* ...)
; compiling (DEFMACRO MACROEXPAND-MACRO ...)
; compiling (DEFTEST MACROEXPAND-ALL.1 ...)
; compiling (DEFTEST MACROEXPAND-ALL.2 ...)
; compiling (DEFTEST MACROEXPAND-ALL.3 ...)
; compiling (DEFUN SMV ...)
; compiling (DEFMACRO TESTR ...)
; compiling (DEFTEST MACROEXPAND-ALL.4 ...)
; compiling (DEFTEST MACROEXPAND-ALL.5 ...)
; compiling (DEFTEST MACROEXPAND-ALL.6 ...)
; compiling (DEFINE-SYMBOL-MACRO GLOBAL-SYMBOL-MACRO ...)
; compiling (DEFTEST MACROEXPAND-ALL.7 ...)
; compiling (DEFTEST MACROEXPAND-ALL.8 ...)
; compiling (DEFTEST MACROEXPAND-ALL.9 ...)
; compiling (DEFTEST MACROEXPAND-ALL.10 ...)
; compiling (DEFTEST MACROEXPAND-ALL.11 ...)
; compiling (DEFTEST MACROEXPAND-ALL.12 ...)
; compiling (DEFTEST MACROEXPAND-ALL.13 ...)
; compiling (DEFMACRO DINFO ...)
; compiling (DEF SPEED)
; compiling (DEF SAFETY)
; compiling (DEF DEBUG)
; compiling (DEF COMPILATION-SPEED)
; compiling (DEF SPACE)
; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.1 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.2 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.3 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2 ...)
; compiling (DECLAIM (DECLARATION FUBAR))
; compiling (DEFTEST DECLARATION-INFORMATION.DECLARATION ...)
; compiling (DEFVAR *FOO*)
; compiling (DEFMACRO VAR-INFO ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND/EXTRA-DECL ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/BOUND ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/BOUND/EXTRA-DECL ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/UNBOUND ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/BOUND ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/SHADOWED ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/SHADOWS-LEXICAL ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE.2 ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE.3 ...)
; compiling (DEFTEST VARIABLE-INFO.IGNORE ...)
; compiling (DEFTEST VARIABLE-INFO.SYMBOL-MACRO/LOCAL ...)
; compiling (DEFINE-SYMBOL-MACRO MY-SYMBOL-MACRO ...)
; compiling (DEFTEST VARIABLE-INFO.SYMBOL-MACRO/GLOBAL ...)
; compiling (DEFTEST VARIABLE-INFO.UNDEFINED ...)
; compiling (DECLAIM (GLOBAL THIS-IS-GLOBAL))
; compiling (DEFTEST GLOBAL-VARIABLE ...)
; compiling (DEFGLOBAL THIS-IS-GLOBAL-TOO ...)
; compiling (DEFTEST GLOBAL-VARIABLE.2 ...)
; compiling (SB-ALIEN:DEFINE-ALIEN-VARIABLE "errno" ...)
; compiling (DEFTEST ALIEN-VARIABLE ...)
; compiling (DEFMACRO FUN-INFO ...)
; compiling (DEFUN MY-GLOBAL-FUN ...)
; compiling (DEFTEST FUNCTION-INFO.GLOBAL/NO-FTYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MY-GLOBAL-FUN-2 ...)
; compiling (DEFTEST FUNCTION-INFO.GLOBAL/FTYPE ...)
; compiling (DEFMACRO MY-MACRO ...)
; compiling (DEFTEST FUNCTION-INFO.MACRO ...)
; compiling (DEFTEST FUNCTION-INFO.MACROLET ...)
; compiling (DEFTEST FUNCTION-INFO.SPECIAL-FORM ...)
; compiling (DEFTEST FUNCTION-INFO.NOTINLINE/LOCAL ...)
; compiling (DECLAIM (NOTINLINE MY-NOTINLINE))
; compiling (DEFUN MY-NOTINLINE ...)
; compiling (DEFTEST FUNCTION-INFO.NOTINLINE/GLOBAL ...)
; compiling (DECLAIM (INLINE MY-INLINE))
; compiling (DEFUN MY-INLINE ...)
; compiling (DEFTEST FUNCTION-INFO.INLINE/GLOBAL ...)
; compiling (DEFTEST FUNCTION-INFORMATION.KNOWN-INLINE ...)
; compiling (DEFTEST FUNCTION-INFORMATION.FTYPE ...)
; compiling (DEFMACRO CT ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE1 ...)
; compiling (DEFVAR *FOO*)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE2 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE3 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL1 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL12 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL13 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL.MASK ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.IGNORE ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.FUNCTION ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.MACRO ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.SYMBOL-MACRO ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.MACRO2 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.NEST ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.NEST2 ...)
; compiling (DEFTEST AUGMENT-ENVIRONMENT.SYMBOL-MACRO-VAR ...)
; compiling (DEFMACRO THIRD-VALUE ...)
; compiling (DEFTEST DEFINE-DECLARATION.DECLARE ...)
; compiling (DEFTEST DEFINE-DECLARATION.DECLARE2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIAL ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIAL2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MACROMASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MACROMASK2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MASK2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIALMASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.LEXICAL ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.LEXICAL2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.MASK ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.MASK2 ...)
; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION2 ...)
; compiling (DEFTEST MACROEXPAND-ALL.SPECIAL-BINDING ...)
; compiling (DEFTEST MACROEXPAND-ALL.SYMBOL-MACRO-SHADOWED ...)

; SYS:CONTRIB;SB-CLTL2;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.625
Doing 113 pending tests of 113 tests total.
 SB-CLTL2-TESTS::COMPILER-LET.1 SB-CLTL2-TESTS::MACROEXPAND-ALL.1
 SB-CLTL2-TESTS::MACROEXPAND-ALL.2 SB-CLTL2-TESTS::MACROEXPAND-ALL.3
 SB-CLTL2-TESTS::MACROEXPAND-ALL.4 SB-CLTL2-TESTS::MACROEXPAND-ALL.5
 SB-CLTL2-TESTS::MACROEXPAND-ALL.6 SB-CLTL2-TESTS::MACROEXPAND-ALL.7
 SB-CLTL2-TESTS::MACROEXPAND-ALL.8 SB-CLTL2-TESTS::MACROEXPAND-ALL.9
 SB-CLTL2-TESTS::MACROEXPAND-ALL.10 SB-CLTL2-TESTS::MACROEXPAND-ALL.11
 SB-CLTL2-TESTS::MACROEXPAND-ALL.12 SB-CLTL2-TESTS::MACROEXPAND-ALL.13
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DECLARATION
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND/EXTRA-DECL
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/BOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/BOUND/EXTRA-DECL
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/UNBOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/BOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/SHADOWED
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/SHADOWS-LEXICAL
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE.2
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE.3
 SB-CLTL2-TESTS::VARIABLE-INFO.IGNORE
 SB-CLTL2-TESTS::VARIABLE-INFO.SYMBOL-MACRO/LOCAL
 SB-CLTL2-TESTS::VARIABLE-INFO.SYMBOL-MACRO/GLOBAL
 SB-CLTL2-TESTS::VARIABLE-INFO.UNDEFINED SB-CLTL2-TESTS::GLOBAL-VARIABLE
 SB-CLTL2-TESTS::GLOBAL-VARIABLE.2 SB-CLTL2-TESTS::ALIEN-VARIABLE
 SB-CLTL2-TESTS::FUNCTION-INFO.GLOBAL/NO-FTYPE
 SB-CLTL2-TESTS::FUNCTION-INFO.GLOBAL/FTYPE SB-CLTL2-TESTS::FUNCTION-INFO.MACRO
 SB-CLTL2-TESTS::FUNCTION-INFO.MACROLET
 SB-CLTL2-TESTS::FUNCTION-INFO.SPECIAL-FORM
 SB-CLTL2-TESTS::FUNCTION-INFO.NOTINLINE/LOCAL
 SB-CLTL2-TESTS::FUNCTION-INFO.NOTINLINE/GLOBAL
 SB-CLTL2-TESTS::FUNCTION-INFO.INLINE/GLOBAL
 SB-CLTL2-TESTS::FUNCTION-INFORMATION.KNOWN-INLINE
 SB-CLTL2-TESTS::FUNCTION-INFORMATION.FTYPE
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE1
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE2
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE3
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL1
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL12
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL13
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL.MASK
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.IGNORE
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.FUNCTION
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.MACRO
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.SYMBOL-MACRO
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.MACRO2
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.NEST
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.NEST2
 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.SYMBOL-MACRO-VAR
 SB-CLTL2-TESTS::DEFINE-DECLARATION.DECLARE
 SB-CLTL2-TESTS::DEFINE-DECLARATION.DECLARE2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIAL
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIAL2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MACROMASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MACROMASK2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MASK2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIALMASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.LEXICAL
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.LEXICAL2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.MASK
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.MASK2
 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION2
 SB-CLTL2-TESTS::MACROEXPAND-ALL.SPECIAL-BINDING
 SB-CLTL2-TESTS::MACROEXPAND-ALL.SYMBOL-MACRO-SHADOWED
No tests failed.; in: LAMBDA ()
;     (SB-CLTL2-TESTS::FOO
;      (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY)
;                   (PUSH SB-CLTL2-TESTS::KEY SB-CLTL2-TESTS::*EXPANSIONS*)
;                   SB-CLTL2-TESTS::KEY))
;        (SB-CLTL2-TESTS::FOO 1)))
; ==>
;   (SB-CLTL2-TESTS::BAR
;    (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY)
;                 (LET* #
;                   #)
;                 SB-CLTL2-TESTS::KEY))
;      1))
; 
; caught STYLE-WARNING:
;   undefined function: SB-CLTL2-TESTS::BAR
; 
; compilation unit finished
;   Undefined function:
;     SB-CLTL2-TESTS::BAR
;   caught 1 STYLE-WARNING condition

* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-concurrency")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-concurrency/module-setup.lisp" (written 11 JUN 2015 08:37:40 AM):
; compiling (PROVIDE :SB-CONCURRENCY)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-concurrency/module-setup.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-CONCURRENCY ...)

; SYS:CONTRIB;SB-CONCURRENCY;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.016
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/gate.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFSTRUCT (GATE # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MAKE-GATE ...)
; compiling (DEFUN OPEN-GATE ...)
; compiling (DEFUN CLOSE-GATE ...)
; compiling (DEFUN WAIT-ON-GATE ...)
; compiling (DEFUN GATE-OPEN-P ...)

; SYS:CONTRIB;SB-CONCURRENCY;GATE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.582
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/queue.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFCONSTANT +DUMMY+ ...)
; compiling (DEFCONSTANT +DEAD-END+ ...)
; compiling (DECLAIM (INLINE %MAKE-QUEUE))
; compiling (DEFSTRUCT (QUEUE # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN MAKE-QUEUE ...)
; compiling (DEFUN ENQUEUE ...)
; compiling (DEFUN DEQUEUE ...)
; compiling (DEFUN TRY-WALK-QUEUE ...)
; compiling (DEFUN LIST-QUEUE-CONTENTS ...)
; compiling (DEFUN QUEUE-COUNT ...)
; compiling (DEFUN QUEUE-EMPTY-P ...)

; SYS:CONTRIB;SB-CONCURRENCY;QUEUE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.320
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/mailbox.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFSTRUCT (MAILBOX # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN MAKE-MAILBOX ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MAILBOX-COUNT ...)
; compiling (DEFUN MAILBOX-EMPTY-P ...)
; compiling (DEFUN LIST-MAILBOX-MESSAGES ...)
; compiling (DEFUN SEND-MESSAGE ...)
; compiling (DEFUN RECEIVE-MESSAGE ...)
; compiling (DEFUN RECEIVE-MESSAGE-NO-HANG ...)
; compiling (DEFUN RECEIVE-PENDING-MESSAGES ...)

; SYS:CONTRIB;SB-CONCURRENCY;MAILBOX-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.658
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/frlock.lisp" (written 11 JUN 2015 06:59:01 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY)
; compiling (DEFSTRUCT (FRLOCK # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DECLAIM (INLINE MAKE-FRLOCK))
; compiling (DEFUN MAKE-FRLOCK ...)
; compiling (DECLAIM (INLINE FRLOCK-READ-BEGIN))
; compiling (DEFUN FRLOCK-READ-BEGIN ...)
; compiling (DECLAIM (INLINE FRLOCK-READ-END))
; compiling (DEFUN FRLOCK-READ-END ...)
; compiling (DEFMACRO FRLOCK-READ ...)
; compiling (DEFUN %%GRAB-FRLOCK-WRITE-LOCK ...)
; compiling (DECLAIM (INLINE %GRAB-FRLOCK-WRITE-LOCK))
; compiling (DEFUN %GRAB-FRLOCK-WRITE-LOCK ...)
; compiling (DECLAIM (INLINE GRAB-FRLOCK-WRITE-LOCK))
; compiling (DEFUN GRAB-FRLOCK-WRITE-LOCK ...)
; compiling (DECLAIM (INLINE RELEASE-FRLOCK-WRITE-LOCK))
; compiling (DEFUN RELEASE-FRLOCK-WRITE-LOCK ...)
; compiling (DEFMACRO FRLOCK-WRITE ...)

; SYS:CONTRIB;SB-CONCURRENCY;FRLOCK-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.897
* echo "(defsystem :sb-concurrency :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-concurrency.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-concurrency")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :SB-CONCURRENCY-TEST ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.019
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-utils.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-UTILS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-frlock.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFMACRO DEFTEST* ...)
; compiling (DEFVAR *MINIMUM-SLEEP* ...)
; compiling (DEFUN TEST-FRLOCKS ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-FRLOCK-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.590
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-queue.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFTEST QUEUE.1 ...)
; compiling (DEFTEST QUEUE.2 ...)
; compiling (DEFTEST QUEUE.3 ...)
; compiling (DEFTEST QUEUE.4 ...)
; compiling (DEFTEST QUEUE.5 ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-QUEUE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.028
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-mailbox.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFTEST MAILBOX-TRIVIA.1 ...)
; compiling (DEFTEST MAILBOX-TRIVIA.2 ...)
; compiling (DEFTEST MAILBOX-TRIVIA.3 ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-MAILBOX-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.024
; compiling file "/«PKGBUILDDIR»/contrib/sb-concurrency/tests/test-gate.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST)
; compiling (DEFTEST GATE.0 ...)

; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-GATE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.015
Doing 9 pending tests of 9 tests total.
 SB-CONCURRENCY-TEST::QUEUE.1 SB-CONCURRENCY-TEST::QUEUE.2
 SB-CONCURRENCY-TEST::QUEUE.3 SB-CONCURRENCY-TEST::QUEUE.4
 SB-CONCURRENCY-TEST::QUEUE.5 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.1
 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.2 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.3
 SB-CONCURRENCY-TEST::GATE.0
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cover'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-cover")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-cover/module-setup.lisp" (written 11 JUN 2015 08:37:54 AM):
; compiling (PROVIDE :SB-COVER)
; compiling (REQUIRE :SB-MD5)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/module-setup.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-ROTATE-BYTE" ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/compiler.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFKNOWN ROTATE-BYTE ...)
; compiling (DEFKNOWN %ROTATE-BYTE ...)
; compiling (DEFKNOWN %UNSIGNED-32-ROTATE-BYTE ...)
; compiling (DEFINE-SOURCE-TRANSFORM ROTATE-BYTE ...)
; compiling (DEFOPTIMIZER (%ROTATE-BYTE DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %ROTATE-BYTE ...)
; compiling (DEFTRANSFORM %ROTATE-BYTE ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;COMPILER-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.225
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/arm-vm.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE/C) ...)
; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE-FIXNUM/C) ...)
; compiling (DEF %32BIT-ROTATE-BYTE ...)
; compiling (DEF %32BIT-ROTATE-BYTE-FIXNUM ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;ARM-VM-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.462
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/rotate-byte.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFUN ROTATE-BYTE ...)
; compiling (DEFUN %ROTATE-BYTE ...)
; compiling (DEFUN %UNSIGNED-32-ROTATE-BYTE ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;ROTATE-BYTE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.084
; compiling file "/«PKGBUILDDIR»/contrib/sb-md5/md5.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-MD5 ...)
; compiling (IN-PACKAGE :SB-MD5)
; compiling (DEFTYPE UB32 ...)
; compiling (DEFMACRO ASSEMBLE-UB32 ...)
; compiling (DECLAIM (INLINE F ...) ...)
; compiling (DEFUN F ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN F
;     (DEFUN SB-MD5::F (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y) (LOGANDC1 SB-MD5::X SB-MD5::Z)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::F
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::F
;         (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y) (LOGANDC1 SB-MD5::X SB-MD5::Z))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN G ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN G
;     (DEFUN SB-MD5::G (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z) (LOGANDC2 SB-MD5::Y SB-MD5::Z)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::G
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::G
;         (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z) (LOGANDC2 SB-MD5::Y SB-MD5::Z))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN H ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN H
;     (DEFUN SB-MD5::H (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::H
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::H (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN I ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN I
;     (DEFUN SB-MD5::I (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LDB (BYTE 32 0) (LOGXOR SB-MD5::Y (LOGORC2 SB-MD5::X SB-MD5::Z))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::I
;         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::I
;         (LDB (BYTE 32 0) (LOGXOR SB-MD5::Y (LOGORC2 SB-MD5::X SB-MD5::Z)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE MOD32+) ...)
; compiling (DEFUN MOD32+ ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN MOD32+
;     (DEFUN SB-MD5::MOD32+ (SB-MD5::A SB-MD5::B)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::MOD32+
;         (SB-MD5::A SB-MD5::B)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::MOD32+ (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-COMPILER-MACRO MOD32+ ...)
; compiling (DECLAIM (INLINE ROL32) ...)
; compiling (DEFUN ROL32 ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN ROL32
;     (DEFUN SB-MD5::ROL32 (SB-MD5::A SB-MD5::S)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A)
;                (TYPE (UNSIGNED-BYTE 5) SB-MD5::S)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0) SB-MD5::A))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-MD5::ROL32
;         (SB-MD5::A SB-MD5::S)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A)
;                (TYPE (UNSIGNED-BYTE 5) SB-MD5::S)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (BLOCK SB-MD5::ROL32
;         (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0) SB-MD5::A)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFPARAMETER *T* ...)
; compiling (DEFMACRO WITH-MD5-ROUND ...)
; compiling (DEFTYPE MD5-REGS ...)
; compiling (DEFMACRO MD5-REGS-A ...)
; compiling (DEFMACRO MD5-REGS-B ...)
; compiling (DEFMACRO MD5-REGS-C ...)
; compiling (DEFMACRO MD5-REGS-D ...)
; compiling (DEFCONSTANT +MD5-MAGIC-A+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-B+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-C+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-D+ ...)
; compiling (DECLAIM (INLINE INITIAL-MD5-REGS))
; compiling (DEFUN INITIAL-MD5-REGS ...)
; compiling (DEFUN UPDATE-MD5-BLOCK ...)
; compiling (DECLAIM (INLINE FILL-BLOCK ...))
; compiling (DEFUN FILL-BLOCK ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN FILL-BLOCK
;     (DEFUN SB-MD5:FILL-BLOCK (BLOCK SB-MD5::BUFFER SB-MD5::OFFSET)
;       "Convert a complete 64 byte input vector segment into the given 16
;   word MD5 block.  This currently works on (unsigned-byte 8) and
;   character simple-arrays, via the functions `fill-block-ub8' and
;   `fill-block-char' respectively."
;       (DECLARE (TYPE (INTEGER 0 536870847) SB-MD5::OFFSET)
;                (TYPE (SIMPLE-ARRAY SB-MD5::UB32 (16)) BLOCK)
;                (TYPE (SIMPLE-ARRAY * (*)) SB-MD5::BUFFER)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (ETYPECASE SB-MD5::BUFFER
;         ((SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
;          (SB-MD5:FILL-BLOCK-UB8 BLOCK SB-MD5::BUFFER SB-MD5::OFFSET))
;         (SIMPLE-STRING
;          (SB-MD5:FILL-BLOCK-CHAR BLOCK SB-MD5::BUFFER SB-MD5::OFFSET))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5:FILL-BLOCK
;                    (SB-INT:NAMED-LAMBDA SB-MD5:FILL-BLOCK
;                        (BLOCK SB-MD5::BUFFER SB-MD5::OFFSET)
;                      (DECLARE (TYPE (INTEGER 0 536870847) SB-MD5::OFFSET)
;                               (TYPE (SIMPLE-ARRAY SB-MD5::UB32 #) BLOCK)
;                               (TYPE (SIMPLE-ARRAY * #) SB-MD5::BUFFER)
;                               (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0)
;                                (DEBUG 0)))
;                      (BLOCK SB-MD5:FILL-BLOCK
;                        (ETYPECASE SB-MD5::BUFFER (# #) (SIMPLE-STRING #))))
;                    "Convert a complete 64 byte input vector segment into the given 16
; word MD5 block.  This currently works on (unsigned-byte 8) and
; character simple-arrays, via the functions `fill-block-ub8' and
; `fill-block-char' respectively."
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL
;                      (BLOCK SB-MD5::BUFFER SB-MD5::OFFSET)
;                      (DECLARE (TYPE (INTEGER 0 536870847) SB-MD5::OFFSET)
;                               (TYPE (SIMPLE-ARRAY SB-MD5::UB32 #) BLOCK)
;                               (TYPE (SIMPLE-ARRAY * #) SB-MD5::BUFFER)
;                               (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0)
;                                (DEBUG 0)))
;                      (BLOCK SB-MD5:FILL-BLOCK
;                        (ETYPECASE SB-MD5::BUFFER (# #) (SIMPLE-STRING #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SB-MD5:FILL-BLOCK-CHAR could not be inlined because no definition for
;   it was seen prior to its first use.
; 
; caught STYLE-WARNING:
;   Call to SB-MD5:FILL-BLOCK-UB8 could not be inlined because no definition for it
;   was seen prior to its first use.

; compiling (DEFUN FILL-BLOCK-UB8 ...)
; compiling (DEFUN FILL-BLOCK-CHAR ...)
; compiling (DECLAIM (INLINE MD5REGS-DIGEST))
; compiling (DEFUN MD5REGS-DIGEST ...); in: LAMBDA (#:WHOLE580 #:ENVIRONMENT581)
;     `(LET ((,SB-MD5::VAR ,SB-MD5::REG))
;        (DECLARE (TYPE SB-MD5::UB32 ,SB-MD5::VAR))
;        (SETF (AREF SB-MD5::RESULT ,SB-MD5::OFFSET) (LDB (BYTE 8 0) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 1))
;                (LDB (BYTE 8 8) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 2))
;                (LDB (BYTE 8 16) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 3))
;                (LDB (BYTE 8 24) ,SB-MD5::VAR)))
; --> SB-IMPL::|List| SB-IMPL::|List| SB-IMPL::|List| 
; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; compiling (DEFSTRUCT (MD5-STATE # ...) ...)
; compiling (DECLAIM (INLINE COPY-TO-BUFFER))
; compiling (DEFUN COPY-TO-BUFFER ...)
; compiling (DEFUN UPDATE-MD5-STATE ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
;     (INCF (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH)
; --> LET* 
; ==>
;   (+ LENGTH (SB-MD5::MD5-STATE-AMOUNT #:STATE818))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

;     (+ (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

; compiling (DEFUN FINALIZE-MD5-STATE ...); in: LAMBDA (#:WHOLE896 #:ENVIRONMENT897)
;     `(LET ((,SB-MD5::VAR ,SB-MD5::REG))
;        (DECLARE (TYPE SB-MD5::UB32 ,SB-MD5::VAR))
;        (SETF (AREF SB-MD5::RESULT ,SB-MD5::OFFSET) (LDB (BYTE 8 0) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 1))
;                (LDB (BYTE 8 8) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 2))
;                (LDB (BYTE 8 16) ,SB-MD5::VAR)
;              (AREF SB-MD5::RESULT ,(+ SB-MD5::OFFSET 3))
;                (LDB (BYTE 8 24) ,SB-MD5::VAR)))
; --> SB-IMPL::|List| SB-IMPL::|List| SB-IMPL::|List| 
; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (+ SB-MD5::OFFSET 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; ==>
;   (+ SB-MD5::OFFSET 3)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
;     (* 8 (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE))
; ==>
;   (ASH SB-C::X 3)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (LDB (BYTE 32 0) SB-MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (LOGAND SB-C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (LDB (BYTE 32 32) SB-MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; ==>
;   (LOGAND SB-C::X '4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

; compiling (DEFUN MD5SUM-SEQUENCE ...)
; file: /«PKGBUILDDIR»/contrib/sb-md5/md5.lisp
; in: DEFUN MD5SUM-SEQUENCE
;     (SB-MD5:UPDATE-MD5-STATE SB-MD5::STATE SB-MD5::DATA :START SB-MD5::REAL-START
;      :END (+ SB-MD5::REAL-START (- SB-MD5::END SB-MD5::START)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFUN MD5SUM-STRING ...)
; compiling (DEFCONSTANT +BUFFER-SIZE+ ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFUN MD5SUM-STREAM ...)
; compiling (DEFUN MD5SUM-FILE ...)

; SYS:CONTRIB;SB-MD5;MD5-TMP.FASL.NEWEST written
; compilation finished in 0:00:09.864
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-md5" "md5">
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/cover.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:SB-COVER ...)
; compiling (IN-PACKAGE #:SB-COVER)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SOURCE-PATH-MODE* ...)
; compiling (DEFCLASS SAMPLE-COUNT ...)
; compiling (DEFUN CLEAR-COVERAGE ...)
; compiling (DEFUN RESET-COVERAGE ...)
; compiling (DEFUN SAVE-COVERAGE ...)
; compiling (DEFUN RESTORE-COVERAGE ...)
; compiling (DEFUN SAVE-COVERAGE-IN-FILE ...)
; compiling (DEFUN RESTORE-COVERAGE-FROM-FILE ...)
; compiling (DEFUN PATHNAME-AS-DIRECTORY ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN PERCENT ...)
; compiling (DEFUN REPORT-FILE ...)
; compiling (DEFUN FILL-WITH-STATE ...)
; compiling (DEFUN DETABIFY ...)
; compiling (DEFVAR *COUNTS* ...)
; compiling (DEFUN PRINT-REPORT ...)
; compiling (DEFUN WRITE-STYLES ...)
; compiling (DEFUN CONVERT-RECORDS ...)
; compiling (DEFUN READ-FILE ...)
; compiling (DEFUN MAKE-SOURCE-RECORDER ...)
; compiling (DEFUN MAKE-SOURCE-RECORDING-READTABLE ...)
; compiling (DEFUN MAKE-RECORDING-READ-LIST ...)
; compiling (DEFUN SUPPRESS-SHARP-DOT ...)
; compiling (DEFUN READ-AND-RECORD-SOURCE-MAP ...)
; compiling (DEFUN READ-SOURCE-FORM ...)
; compiling (DEFUN SOURCE-PATH-STREAM-POSITION ...)
; compiling (DEFUN CHECK-SOURCE-PATH ...)
; compiling (DEFUN SOURCE-PATH-STRING-POSITION ...)
; compiling (DEFUN SOURCE-PATH-FILE-POSITION ...)
; compiling (DEFUN SOURCE-PATH-SOURCE-POSITION ...)

; SYS:CONTRIB;SB-COVER;COVER-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.962
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 43 notes
* echo "(defsystem :sb-cover :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cover.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-cover")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE SB-COVER-TEST ...)
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFPARAMETER *SOURCE-DIRECTORY* ...)
; compiling (DEFPARAMETER *OUTPUT-DIRECTORY* ...)
; compiling (SETF *DEFAULT-PATHNAME-DEFAULTS* ...)
; compiling (DEFUN COMPILE-LOAD ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN REPORT-EXPECT-FAILURE ...)
; compiling (COMPILE-LOAD "test-data-1")
; compiling (REPORT-EXPECT-FAILURE)
; compiling (PROCLAIM (QUOTE #))
; compiling (COMPILE-LOAD "test-data-1")
; compiling (CATCH (QUOTE OK) ...)
; compiling (REPORT)
; compiling (ASSERT (PROBE-FILE #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (TEST1)
; compiling (REPORT)
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (= # ...))
; compiling (SB-COVER:RESET-COVERAGE)
; compiling (REPORT)
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (SB-COVER:CLEAR-COVERAGE)
; compiling (REPORT-EXPECT-FAILURE)
; compiling (COMPILE-LOAD "test-data-2")
; compiling (TEST2 1)
; compiling (REPORT)
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (/= # ...))
; compiling (TEST2 0)
; compiling (REPORT)
; compiling (ASSERT (= # ...))
; compiling (COMPILE-LOAD "test-data-3")
; compiling (TEST-2)
; compiling (MAP NIL ...)

; SYS:CONTRIB;SB-COVER;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.321
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-1.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST1 ...)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-1.fasl written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-1.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST1 ...)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-1.fasl written
; compilation finished in 0:00:00.014
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-2.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST2 ...)
; compiling (IDENTITY 1)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-2.fasl written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/contrib/sb-cover/test-data-3.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DECLAIM (OPTIMIZE SB-C:STORE-COVERAGE-DATA))
; compiling (DEFUN TEST-1 ...)
; compiling (DEFUN TEST-2 ...)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-cover/test-data-3.fasl written
; compilation finished in 0:00:00.029

((1 3 1)) 
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cover'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-executable'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-executable" "sb-executable") :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/sb-executable/sb-executable.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-EXECUTABLE ...)
; compiling (IN-PACKAGE :SB-EXECUTABLE)
; compiling (DEFVAR *STREAM-BUFFER-SIZE* ...)
; compiling (DEFUN COPY-STREAM ...)
; compiling (DEFVAR *EXEC-HEADER* ...)
; compiling (DEFUN MAKE-EXECUTABLE ...)
; compiling (PROVIDE (QUOTE SB-EXECUTABLE))

; /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.fasl written
; compilation finished in 0:00:00.344
* echo "(defsystem :sb-executable :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.asd
true
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-executable'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-gmp'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-gmp")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-gmp/module-setup.lisp" (written 11 JUN 2015 08:38:20 AM):
; compiling (PROVIDE :SB-GMP)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-gmp/module-setup.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-GMP" ...)
; compiling (IN-PACKAGE "SB-GMP")
; compiling (DEFVAR *GMP-DISABLED* ...)
; compiling (DEFCONSTANT +BIGNUM-RAW-AREA-OFFSET+ ...)
; compiling (DECLAIM (INLINE BIGNUM-DATA-SAP))
; compiling (DEFUN BIGNUM-DATA-SAP ...)
; compiling (DEFUN TRY-LOAD-SHARED-OBJECT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN TRY-LOAD-SHARED-OBJECT
;     (HANDLER-CASE (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T)
;                   (ERROR (SB-GMP::E) NIL))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-9 ()
;            (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T))
;          (#:FUN6 (SB-GMP::E)
;            NIL))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-9) (FUNCTION #:FUN6)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK7
;       (SB-INT:DX-LET ((#:CELL8 #))
;         (DECLARE (IGNORABLE #:CELL8))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG5
;           (RETURN-FROM #:BLOCK7 #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; compiling (DEFUN %LOAD-GMP ...)
; compiling (DEFVAR *GMP-FEATURES* ...)
; compiling (DEFVAR *GMP-VERSION* ...)
; compiling (%LOAD-GMP)
; compiling (DEFINE-ALIEN-TYPE GMP-LIMB ...)
; compiling (DEFTYPE UI ...)
; compiling (DEFTYPE SI ...)
; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DECLAIM (INLINE Z-TO-BIGNUM ...))
; compiling (DEFUN Z-TO-BIGNUM ...)
; compiling (DEFUN Z-TO-BIGNUM-NEG ...)
; compiling (DECLAIM (INLINE GMP-Z-TO-BIGNUM))
; compiling (DEFUN GMP-Z-TO-BIGNUM ...)
; compiling (DECLAIM (INLINE BLENGTH ...) ...)
; compiling (DEFUN BLENGTH ...)
; compiling (DEFUN BASSERT ...)
; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DECLAIM (INLINE __GMPZ_INIT ...))
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_INIT ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_CLEAR ...)
; compiling (DEFMACRO DEFINE-TWOARG-MPZ-FUNS ...)
; compiling (DEFMACRO DEFINE-THREEARG-MPZ-FUNS ...)
; compiling (DEFMACRO DEFINE-FOURARG-MPZ-FUNS ...)
; compiling (DEFINE-TWOARG-MPZ-FUNS (__GMPZ_SQRT __GMPZ_NEXTPRIME))
; compiling (DEFINE-THREEARG-MPZ-FUNS (__GMPZ_ADD __GMPZ_SUB ...))
; compiling (DEFINE-FOURARG-MPZ-FUNS (__GMPZ_CDIV_QR __GMPZ_FDIV_QR ...))
; compiling (DECLAIM (INLINE __GMPZ_MUL_2EXP ...))
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_MUL_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FDIV_Q_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_POW_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_PROBAB_PRIME_P ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FAC_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_2FAC_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_MFAC_UIUI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_PRIMORIAL_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_REMOVE ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_BIN_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FIB2_UI ...)
; compiling (DEFMACRO DEFINE-THREEARG-MPQ-FUNS ...)
; compiling (DEFINE-THREEARG-MPQ-FUNS (__GMPQ_ADD __GMPQ_SUB ...))
; compiling (DEFMACRO WITH-MPZ-RESULTS ...)
; compiling (DEFMACRO WITH-MPZ-VARS ...)
; compiling (DEFMACRO WITH-GMP-MPZ-RESULTS ...)
; compiling (DEFMACRO DEFGMPFUN ...)
; compiling (DEFGMPFUN MPZ-ADD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-ADD
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_ADD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-SUB ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-SUB
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_SUB (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-MUL
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_MUL (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-MUL-2EXP ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-MUL-2EXP
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_MUL_2EXP (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA) SB-GMP::B))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-MOD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-MOD
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_MOD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB))
;       (WHEN
;           (AND (MINUSP (SLOT SB-GMP::GB 'SB-GMP::MP_SIZE))
;                (/= 0 (SLOT SB-GMP::RESULT 'SB-GMP::MP_SIZE)))
;         (SB-GMP::__GMPZ_ADD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::RESULT)
;          (ADDR SB-GMP::GB))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (/= 0 (SLOT SB-GMP::RESULT 'SB-GMP::MP_SIZE))
; --> IF = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-CDIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-CDIV
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::D SB-GMP::GD))
;       (SB-GMP::__GMPZ_CDIV_QR (ADDR SB-GMP::QUOT) (ADDR REM) (ADDR SB-GMP::GN)
;        (ADDR SB-GMP::GD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FDIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FDIV
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::D SB-GMP::GD))
;       (SB-GMP::__GMPZ_FDIV_QR (ADDR SB-GMP::QUOT) (ADDR REM) (ADDR SB-GMP::GN)
;        (ADDR SB-GMP::GD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FDIV-2EXP ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FDIV-2EXP
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_FDIV_Q_2EXP (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        SB-GMP::B))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-TDIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-TDIV
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::D SB-GMP::GD))
;       (SB-GMP::__GMPZ_TDIV_QR (ADDR SB-GMP::QUOT) (ADDR REM) (ADDR SB-GMP::GN)
;        (ADDR SB-GMP::GD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-POW ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-POW
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::ROP)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::BASE SB-GMP::GBASE))
;         (SB-GMP::__GMPZ_POW_UI (ADDR SB-GMP::ROP) (ADDR SB-GMP::GBASE) EXP)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::ROP 'SB-GMP::MP_D) #:RESULT3355
;          #:SIZE3356)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::BASE SB-GMP::GBASE))
;       (SB-GMP::__GMPZ_POW_UI (ADDR SB-GMP::ROP) (ADDR SB-GMP::GBASE) EXP))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-POWM ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-POWM
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::BASE SB-GMP::GBASE) (EXP SB-GMP::GEXP)
;                             (MOD SB-GMP::GMOD))
;       (SB-GMP::__GMPZ_POWM (ADDR SB-GMP::ROP) (ADDR SB-GMP::GBASE)
;        (ADDR SB-GMP::GEXP) (ADDR SB-GMP::GMOD)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-GCD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-GCD
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_GCD (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-LCM ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-LCM
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA) (SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_LCM (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-SQRT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-SQRT
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_SQRT (ADDR SB-GMP::RESULT) (ADDR SB-GMP::GA)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN MPZ-PROBABLY-PRIME-P ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN MPZ-PROBABLY-PRIME-P
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;       (SB-GMP::__GMPZ_PROBAB_PRIME_P (ADDR SB-GMP::GN) SB-GMP::REPS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (DEFUN SB-GMP:MPZ-PROBABLY-PRIME-P (SB-GMP::N &OPTIONAL (SB-GMP::REPS 25))
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::REPS))
;       (CHECK-TYPE SB-GMP::REPS FIXNUM)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;         (SB-GMP::__GMPZ_PROBAB_PRIME_P (ADDR SB-GMP::GN) SB-GMP::REPS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-GMP:MPZ-PROBABLY-PRIME-P
;         (SB-GMP::N &OPTIONAL (SB-GMP::REPS 25))
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::REPS))
;       (BLOCK SB-GMP:MPZ-PROBABLY-PRIME-P
;         (CHECK-TYPE SB-GMP::REPS FIXNUM)
;         (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;           (SB-GMP::__GMPZ_PROBAB_PRIME_P (ADDR SB-GMP::GN) SB-GMP::REPS))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFGMPFUN MPZ-NEXTPRIME ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-NEXTPRIME
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::PRIME)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;         (SB-GMP::__GMPZ_NEXTPRIME (ADDR SB-GMP::PRIME) (ADDR SB-GMP::GA))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::PRIME 'SB-GMP::MP_D)
;          #:RESULT4168 #:SIZE4169)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMPZ_NEXTPRIME (ADDR SB-GMP::PRIME) (ADDR SB-GMP::GA)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FAC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FAC
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC)
;       (SB-GMP::__GMPZ_FAC_UI (ADDR SB-GMP::FAC) SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4270
;          #:SIZE4271)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN %MPZ-2FAC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN %MPZ-2FAC
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC)
;       (SB-GMP::__GMPZ_2FAC_UI (ADDR SB-GMP::FAC) SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4327
;          #:SIZE4328)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN %MPZ-MFAC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN %MPZ-MFAC
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC)
;       (SB-GMP::__GMPZ_MFAC_UIUI (ADDR SB-GMP::FAC) SB-GMP::N SB-GMP::M))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4387
;          #:SIZE4388)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN %MPZ-PRIMORIAL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN %MPZ-PRIMORIAL
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::__GMPZ_PRIMORIAL_UI (ADDR SB-GMP::R) SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4446
;          #:SIZE4447)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; compiling (DEFGMPFUN MPZ-REMOVE-5.1 ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-REMOVE-5.1
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;         (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4505
;          #:SIZE4506)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (CHECK-TYPE SB-GMP::F UNSIGNED-BYTE "handled by GMP prior to version 5.1")
; --> DO BLOCK LET TAGBODY UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND IF 
; --> AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;         (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4505
;          #:SIZE4506)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;       (SETF SB-GMP::C
;               (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN)
;                (ADDR SB-GMP::GF))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-GMP::DEFGMPFUN SB-GMP::MPZ-REMOVE-5.1
;         (SB-GMP::N SB-GMP::F)
;       (CHECK-TYPE SB-GMP::F UNSIGNED-BYTE "handled by GMP prior to version 5.1")
;       (LET* ((SB-GMP::C 0)
;              (SB-GMP::RES
;               (SB-GMP::WITH-GMP-MPZ-RESULTS #
;                 #)))
;         (VALUES SB-GMP::RES SB-GMP::C)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-GMP::MPZ-REMOVE-5.1
;         (SB-GMP::N SB-GMP::F)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::F))
;       (BLOCK SB-GMP::MPZ-REMOVE-5.1
;         (CHECK-TYPE SB-GMP::F UNSIGNED-BYTE
;                     "handled by GMP prior to version 5.1")
;         (LET* ((SB-GMP::C 0) (SB-GMP::RES #))
;           (VALUES SB-GMP::RES SB-GMP::C))))
; 
; note: doing unsigned word to integer coercion (cost 20) from C to "<return value>"

; compiling (DEFGMPFUN MPZ-REMOVE ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-REMOVE
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;         (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4648
;          #:SIZE4649)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF))
;       (SETF SB-GMP::C
;               (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN)
;                (ADDR SB-GMP::GF))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-GMP::DEFGMPFUN SB-GMP:MPZ-REMOVE
;         (SB-GMP::N SB-GMP::F)
;       (LET* ((SB-GMP::C 0)
;              (SB-GMP::RES
;               (SB-GMP::WITH-GMP-MPZ-RESULTS #
;                 #)))
;         (VALUES SB-GMP::RES SB-GMP::C)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-GMP:MPZ-REMOVE
;         (SB-GMP::N SB-GMP::F)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3) (SAFETY 0))
;                (TYPE INTEGER SB-GMP::N SB-GMP::F))
;       (BLOCK SB-GMP:MPZ-REMOVE
;         (LET* ((SB-GMP::C 0) (SB-GMP::RES #))
;           (VALUES SB-GMP::RES SB-GMP::C))))
; 
; note: doing unsigned word to integer coercion (cost 20) from C to "<return value>"

; compiling (DEFUN SETUP-5.1-STUBS ...)
; compiling (DEFGMPFUN MPZ-BIN ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-BIN
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R)
;       (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;         (SB-GMP::__GMPZ_BIN_UI (ADDR SB-GMP::R) (ADDR SB-GMP::GN) SB-GMP::K)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4858
;          #:SIZE4859)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN))
;       (SB-GMP::__GMPZ_BIN_UI (ADDR SB-GMP::R) (ADDR SB-GMP::GN) SB-GMP::K))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFGMPFUN MPZ-FIB2 ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFGMPFUN MPZ-FIB2
;     (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FIBN SB-GMP::FIBN-1)
;       (SB-GMP::__GMPZ_FIB2_UI (ADDR SB-GMP::FIBN) (ADDR SB-GMP::FIBN-1)
;        SB-GMP::N))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET LET 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN 'SB-GMP::MP_D) #:RESULT4962
;          #:SIZE4963)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN-1 'SB-GMP::MP_D)
;          #:RESULT4964 #:SIZE4965)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET ABS IF 
; --> - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET LET 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN 'SB-GMP::MP_D) #:RESULT4962
;          #:SIZE4963)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN-1 'SB-GMP::MP_D)
;          #:RESULT4964 #:SIZE4965)))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET ABS IF 
; --> - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of static-fun %Negate
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of static-fun %Negate

; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET ABS IF 
; ==>
;   SB-C::X
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DECLAIM (INLINE __GMP_RANDINIT_MT ...))
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDINIT_MT ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDINIT_LC_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDSEED ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDSEED_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_URANDOMB ...)
; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_URANDOMM ...)
; compiling (DEFSTRUCT (GMP-RSTATE #) ...)
; compiling (DECLAIM (SB-EXT:MAYBE-INLINE MAKE-GMP-RSTATE ...))
; compiling (DEFUN MAKE-GMP-RSTATE ...)
; compiling (DEFUN MAKE-GMP-RSTATE-LC ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN MAKE-GMP-RSTATE-LC
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA))
;       (SB-GMP::__GMP_RANDINIT_LC_2EXP SB-GMP::REF (ADDR SB-GMP::GA) SB-GMP::C
;        SB-GMP::M2EXP))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN RAND-SEED ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN RAND-SEED
;     (TYPEP SB-GMP::SEED '(INTEGER 0 *))
; --> LET SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 4294967296)), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 4294967296)), not a FIXNUM.
;       etc.

;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::SEED SB-GMP::GSEED))
;       (SB-GMP::__GMP_RANDSEED SB-GMP::REF (ADDR SB-GMP::GSEED)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN RANDOM-BITCOUNT ...)
; compiling (DEFUN RANDOM-INT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN RANDOM-INT
;     (SB-GMP::WITH-MPZ-VARS ((SB-GMP::B SB-GMP::GB))
;       (SB-GMP::__GMPZ_URANDOMM (ADDR SB-GMP::RESULT) SB-GMP::REF
;        (ADDR SB-GMP::GB)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DECLAIM (INLINE %LSIZE))
; compiling (DEFUN %LSIZE ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN %LSIZE
;     (ZEROP (SB-BIGNUM:%BIGNUM-REF SB-GMP::N (1- LENGTH)))
; --> = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMACRO WITH-MPQ-VAR ...)
; compiling (DEFMACRO DEFMPQFUN ...)
; compiling (DEFMPQFUN MPQ-ADD ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-ADD
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-ADD SB-GMP::__GMPQ_ADD)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMPQFUN MPQ-SUB ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-SUB
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-SUB SB-GMP::__GMPQ_SUB)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMPQFUN MPQ-MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-MUL
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-MUL SB-GMP::__GMPQ_MUL)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFMPQFUN MPQ-DIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFMPQFUN MPQ-DIV
;     (SB-GMP::DEFMPQFUN SB-GMP:MPQ-DIV SB-GMP::__GMPQ_DIV)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEF ORIG-MUL ...)
; compiling (DEF ORIG-TRUNCATE ...)
; compiling (DEF ORIG-GCD ...)
; compiling (DEF ORIG-LCM ...)
; compiling (DEF ORIG-ISQRT ...)
; compiling (DEF ORIG-TWO-ARG-+ ...)
; compiling (DEF ORIG-TWO-ARG-- ...)
; compiling (DEF ORIG-TWO-ARG-* ...)
; compiling (DEF ORIG-TWO-ARG-/ ...)
; compiling (DEF ORIG-INTEXP ...)
; compiling (DEFUN GMP-MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-MUL
;     (SB-GMP:MPZ-MUL SB-GMP::A SB-GMP::B)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TRUNCATE ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TRUNCATE
;     (SB-GMP:MPZ-TDIV SB-GMP::A SB-GMP::B)
; --> BLOCK LET SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> PROGN SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; --> SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET LET* SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-LCM ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-LCM
;     (SB-GMP:MPZ-LCM SB-GMP::A SB-GMP::B)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-ISQRT ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-ISQRT
;     (DEFUN SB-GMP::GMP-ISQRT (SB-GMP::N)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3))
;                (TYPE UNSIGNED-BYTE SB-GMP::N)
;                (INLINE SB-GMP:MPZ-SQRT))
;       (IF (OR (TYPEP SB-GMP::N 'FIXNUM) SB-GMP:*GMP-DISABLED*)
;           (SB-GMP::ORIG-ISQRT SB-GMP::N)
;           (SB-GMP:MPZ-SQRT SB-GMP::N)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (SB-GMP:MPZ-SQRT SB-GMP::N)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-+ ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG-+
;     (SB-GMP:MPQ-ADD SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-- ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG--
;     (SB-GMP:MPQ-SUB SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-* ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG-*
;     (SB-GMP:MPQ-MUL SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-TWO-ARG-/ ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-TWO-ARG-/
;     (SB-GMP:MPQ-DIV SB-GMP::X SB-GMP::Y)
; --> BLOCK LET WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET SB-SYS:WITH-PINNED-OBJECTS 
; --> LET LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN GMP-INTEXP ...)
; file: /«PKGBUILDDIR»/contrib/sb-gmp/gmp.lisp
; in: DEFUN GMP-INTEXP
;     (SB-GMP:MPZ-POW SB-GMP::BASE SB-GMP::POWER)
; --> BLOCK SB-GMP::WITH-GMP-MPZ-RESULTS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET LET 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF SETQ THE IF - 
; ==>
;   (SB-KERNEL:%NEGATE
;    (THE NUMBER
;         (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::ROP 'SB-GMP::MP_D) #:RESULT9203
;          #:SIZE9204)))
; 
; 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
;   Eliminate %negate/%negate of rationals
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) 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 float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (SB-GMP:MPZ-MUL-2EXP 1 SB-GMP::POWER)
; --> BLOCK SB-GMP::WITH-MPZ-RESULTS PROGN LET SB-SYS:WITH-PINNED-OBJECTS LET 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN 
; --> SYMBOL-MACROLET SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

;     (SB-GMP:MPZ-POW SB-GMP::BASE SB-GMP::POWER)
; --> BLOCK SB-GMP::WITH-GMP-MPZ-RESULTS WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET 
; --> SB-GMP::WITH-MPZ-VARS WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 PROGN SYMBOL-MACROLET LET* 
; --> SB-SYS:WITH-PINNED-OBJECTS LET SETF PROGN SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT PROGN WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN INSTALL-GMP-FUNS ...)
; compiling (DEFUN UNINSTALL-GMP-FUNS ...)
; compiling (DEFUN LOAD-GMP ...)
; compiling (DEFUN UNLOAD-GMP ...)
; compiling (LOAD-GMP)

; SYS:CONTRIB;SB-GMP;GMP-TMP.FASL.NEWEST written
; compilation finished in 0:00:23.480
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-gmp" "sb-gmp" "gmp">
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 138 notes
* echo "(defsystem :sb-gmp :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-gmp.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-gmp")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-gmp/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-GMP-TESTS" ...)
; compiling (IN-PACKAGE "SB-GMP-TESTS")
; compiling (DEFPARAMETER *STATE* ...)
; compiling (RAND-SEED *STATE* ...)
; compiling (DEFMACRO DEFGENERATOR ...)
; compiling (DEFGENERATOR GEN-MPZ ...)
; compiling (DEFUN GEN-MPQ ...)
; compiling (DEFUN MAYBE-APPLY ...)
; compiling (DEFUN TEST-ONE-CASE ...)
; compiling (DEFVAR *ITERATION-COUNT* ...)
; compiling (DEFUN TEST-N-CASES ...)
; compiling (DEFMACRO DEFINE-GMP-TEST ...)
; compiling (DEFINE-GMP-TEST (MPZ-ADD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-SUB :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-MUL :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-TDIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-FDIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-CDIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-GCD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-LCM :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (ISQRT :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-MOD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-POW :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPZ-POWM :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (SIGN-CONVERSION) ...)
; compiling (DEFINE-GMP-TEST (TRUNCATE-1) ...)
; compiling (DEFINE-GMP-TEST (TRUNCATE-2) ...)
; compiling (DEFUN FAC ...)
; compiling (DEFINE-GMP-TEST (FAC1) ...)
; compiling (DEFINE-GMP-TEST (FAC2) ...)
; compiling (DEFINE-GMP-TEST (POW1) ...)
; compiling (DEFINE-GMP-TEST (POW2) ...)
; compiling (DEFTEST REMOVE-1 ...)
; compiling (DEFTEST REMOVE-2 ...)
; compiling (DEFTEST REMOVE-3 ...)
; compiling (DEFTEST FIB ...)
; compiling (DEFTEST BINOMIAL ...)
; compiling (DEFINE-GMP-TEST (MPZ-NEXTPRIME :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-ADD :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-SUB :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-MUL :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (MPQ-DIV :REPEAT ...) ...)
; compiling (DEFINE-GMP-TEST (ADD-1) ...)
; compiling (DEFINE-GMP-TEST (MOD-1) ...)

; SYS:CONTRIB;SB-GMP;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:11.460
Doing 31 pending tests of 31 tests total.
 SB-GMP:MPZ-ADD SB-GMP:MPZ-SUB SB-GMP:MPZ-MUL SB-GMP:MPZ-TDIV SB-GMP:MPZ-FDIV
 SB-GMP:MPZ-CDIV SB-GMP:MPZ-GCD SB-GMP:MPZ-LCM ISQRT SB-GMP:MPZ-MOD
 SB-GMP:MPZ-POW SB-GMP:MPZ-POWM SB-GMP-TESTS::SIGN-CONVERSION
 SB-GMP-TESTS::TRUNCATE-1 SB-GMP-TESTS::TRUNCATE-2 SB-GMP-TESTS::FAC1
 SB-GMP-TESTS::FAC2 SB-GMP-TESTS::POW1 SB-GMP-TESTS::POW2 SB-GMP-TESTS::REMOVE-1
 SB-GMP-TESTS::REMOVE-2 SB-GMP-TESTS::REMOVE-3 SB-GMP-TESTS::FIB
 SB-GMP-TESTS::BINOMIAL SB-GMP:MPZ-NEXTPRIME SB-GMP:MPQ-ADD SB-GMP:MPQ-SUB
 SB-GMP:MPQ-MUL SB-GMP:MPQ-DIV SB-GMP-TESTS::ADD-1 SB-GMP-TESTS::MOD-1
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-gmp'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-grovel'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-grovel")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-grovel/module-setup.lisp" (written 11 JUN 2015 08:39:15 AM):
; compiling (PROVIDE :SB-GROVEL)
; compiling (REQUIRE :ASDF)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-grovel/module-setup.fasl written
; compilation finished in 0:00:00.005
* echo "(defsystem :sb-grovel :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-grovel.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-grovel")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-grovel'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-introspect'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-introspect")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-introspect/module-setup.lisp" (written 11 JUN 2015 08:39:25 AM):
; compiling (PROVIDE :SB-INTROSPECT)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-introspect/module-setup.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/introspect.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-INTROSPECT ...)
; compiling (IN-PACKAGE :SB-INTROSPECT)
; compiling (DEFTYPE DEBUG-INFO ...)
; compiling (DEFTYPE DEBUG-SOURCE ...)
; compiling (DEFTYPE DEBUG-FUNCTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-DEBUG-INFO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-DEBUG-SOURCE ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/introspect.lisp
; in: DEFUN FUNCTION-DEBUG-SOURCE
;     (DEFUN SB-INTROSPECT::FUNCTION-DEBUG-SOURCE (FUNCTION)
;       (SB-INTROSPECT::DEBUG-INFO-SOURCE
;        (SB-INTROSPECT::FUNCTION-DEBUG-INFO FUNCTION)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-INTROSPECT::FUNCTION-DEBUG-SOURCE
;         (FUNCTION)
;       (BLOCK SB-INTROSPECT::FUNCTION-DEBUG-SOURCE
;         (SB-INTROSPECT::DEBUG-INFO-SOURCE
;          (SB-INTROSPECT::FUNCTION-DEBUG-INFO FUNCTION))))
; 
; note: type assertion too complex to check:
;  (VALUES SB-C::DEBUG-SOURCE &REST T).

; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEBUG-INFO-SOURCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEBUG-INFO-DEBUG-FUNCTION ...)
; compiling (DEFUN VALID-FUNCTION-NAME-P ...)
; compiling (DECLAIM (INLINE MAP-CODE-CONSTANTS))
; compiling (DEFUN MAP-CODE-CONSTANTS ...)
; compiling (DECLAIM (INLINE MAP-ALLOCATED-CODE-COMPONENTS))
; compiling (DEFUN MAP-ALLOCATED-CODE-COMPONENTS ...)
; compiling (DECLAIM (INLINE MAP-CALLER-CODE-COMPONENTS))
; compiling (DEFUN MAP-CALLER-CODE-COMPONENTS ...)
; compiling (DEFSTRUCT DEFINITION-SOURCE ...)
; compiling (DEFUN VOP-SOURCES-FROM-FUN-TEMPLATES ...)
; compiling (DEFUN FIND-VOP-SOURCE ...)
; compiling (DEFUN FIND-DEFINITION-SOURCES-BY-NAME ...)
; compiling (DEFUN FIND-DEFINITION-SOURCE ...)
; compiling (DEFUN FIND-FUNCTION-DEFINITION-SOURCE ...)
; compiling (DEFUN TRANSLATE-SOURCE-LOCATION ...)
; compiling (SB-INT:DEFINE-DEPRECATED-FUNCTION :LATE ...)
; compiling (DEFUN FUNCTION-LAMBDA-LIST ...)
; compiling (DEFUN DEFTYPE-LAMBDA-LIST ...)
; compiling (DEFUN FUNCTION-TYPE ...)
; compiling (DEFUN FIND-FUNCTION-CALLEES ...)
; compiling (DEFUN FIND-FUNCTION-CALLERS ...)
; compiling (DEFUN GET-SIMPLE-FUN ...)
; compiling (DEFUN CALL-WITH-EACH-GLOBAL-FUNCTOID ...)
; compiling (DEFUN COLLECT-XREF ...)
; compiling (DEFUN WHO-CALLS ...)
; compiling (DEFUN WHO-BINDS ...)
; compiling (DEFUN WHO-REFERENCES ...)
; compiling (DEFUN WHO-SETS ...)
; compiling (DEFUN WHO-MACROEXPANDS ...)
; compiling (DEFUN WHO-SPECIALIZES-DIRECTLY ...)
; compiling (DEFUN WHO-SPECIALIZES-GENERALLY ...)
; compiling (DEFUN CANONICALIZE-CLASS-DESIGNATOR ...)
; compiling (DEFUN METHOD-GENERIC-FUNCTION-NAME ...)
; compiling (DEFUN COLLECT-SPECIALIZING-METHODS ...)
; compiling (DEFUN ALLOCATION-INFORMATION ...)
; compiling (DEFUN MAP-ROOT ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/introspect.lisp
; in: DEFUN MAP-ROOT
;     (SB-KERNEL:VALUE-CELL-REF SB-INTROSPECT::OBJECT)
; 
; note: deleting unreachable code

;     (SB-KERNEL:WIDETAG-OF SB-INTROSPECT::OBJECT)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (WARN "~&MAP-ROOT: Unknown widetag ~S: ~S~%"
;           (SB-KERNEL:WIDETAG-OF SB-INTROSPECT::OBJECT) SB-INTROSPECT::OBJECT)
; ==>
;   "~&MAP-ROOT: Unknown widetag ~S: ~S~%"
; 
; note: deleting unreachable code

;     (SB-KERNEL:VALUE-CELL-REF SB-INTROSPECT::OBJECT)
; ==>
;   SB-INTROSPECT::OBJECT
; 
; note: deleting unreachable code


; SYS:CONTRIB;SB-INTROSPECT;INTROSPECT-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.589
; 
; compilation unit finished
;   printed 6 notes
* echo "(defsystem :sb-introspect :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-introspect.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-introspect")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-INTROSPECT-TEST/XREF ...)
; compiling (IN-PACKAGE :SB-INTROSPECT-TEST/XREF)
; compiling (DEFVAR *A* ...)
; compiling (DEFCONSTANT +Z+ ...)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)
; compiling (DEFUN XREF/1 ...)
; compiling (DEFUN XREF/2 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN XREF/2
;     (SB-INTROSPECT-TEST/XREF::XREF/1)
; 
; note: deleting unreachable code

; compiling (LET (#) ...)
; compiling (FLET (#) ...)
; compiling (DEFUN XREF/7 ...)
; compiling (LET (#) ...)
; compiling (DEFVAR *C* ...)
; compiling (DEFUN XREF/8 ...)
; compiling (DEFMETHOD XREF/10 ...)
; compiling (DEFMETHOD XREF/11 ...)
; compiling (DEFMETHOD XREF/11 ...)
; compiling (DECLAIM (INLINE INLINE/1))
; compiling (DEFUN INLINE/1 ...)
; compiling (DEFUN XREF/12 ...)
; compiling (DEFUN XREF/13 ...)
; compiling (DEFUN XREF/14 ...)
; compiling (DEFMACRO MACRO/1 ...)
; compiling (DEFUN MACRO-USE/1 ...)
; compiling (DEFUN MACRO-USE/2 ...)
; compiling (FLET (#) ...)
; compiling (DEFUN MACRO-USE/4 ...)
; compiling (DECLAIM (INLINE INLINE/2))
; compiling (DEFUN INLINE/2 ...)
; compiling (DEFUN MACRO-USE/5 ...)
; compiling (DECLAIM (INLINE INLINE/3))
; compiling (DEFUN INLINE/3 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3
;     (DEFUN SB-INTROSPECT-TEST/XREF::INLINE/3
;            (SB-INTROSPECT-TEST/XREF::A
;             &OPTIONAL SB-INTROSPECT-TEST/XREF::B
;             &KEY SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D)
;       (LIST SB-INTROSPECT-TEST/XREF::A SB-INTROSPECT-TEST/XREF::B
;             SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-INTROSPECT-TEST/XREF::INLINE/3
;         (SB-INTROSPECT-TEST/XREF::A &OPTIONAL SB-INTROSPECT-TEST/XREF::B &KEY
;          SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D)
;       (BLOCK SB-INTROSPECT-TEST/XREF::INLINE/3
;         (LIST SB-INTROSPECT-TEST/XREF::A SB-INTROSPECT-TEST/XREF::B
;               SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/1 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/1
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/2 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/2
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A
;      SB-INTROSPECT-TEST/XREF::B)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/3 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/3
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A
;      SB-INTROSPECT-TEST/XREF::B :C SB-INTROSPECT-TEST/XREF::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DEFUN INLINE/3-USER/4 ...)
; file: /«PKGBUILDDIR»/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN INLINE/3-USER/4
;     (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A
;      SB-INTROSPECT-TEST/XREF::B :D SB-INTROSPECT-TEST/XREF::D :C
;      SB-INTROSPECT-TEST/XREF::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D)

; compiling (DECLAIM (INLINE INLINE/4))
; compiling (DEFUN INLINE/4 ...)
; compiling (DEFUN INLINE/4-USER ...)
; compiling (DEFINE-COMPILER-MACRO CMACRO ...)
; compiling (DEFSTRUCT STRUCT ...)
; compiling (DEFUN SOURCE-USER ...)
; compiling (DEFCLASS A-CLASS ...)
; compiling (DEFCLASS A-SUBCLASS ...)
; compiling (DEFSTRUCT A-STRUCTURE)
; compiling (DEFSTRUCT (A-SUBSTRUCTURE #))
; compiling (DEFVAR *AN-INSTANCE-OF-A-CLASS* ...)
; compiling (DEFVAR *AN-INSTANCE-OF-A-SUBCLASS* ...)
; compiling (DEFVAR *AN-INSTANCE-OF-A-STRUCTURE* ...)
; compiling (DEFVAR *AN-INSTANCE-OF-A-SUBSTRUCTURE* ...)
; compiling (DEFMETHOD A-GF-1 ...)
; compiling (DEFMETHOD A-GF-1 ...)
; compiling (DEFMETHOD A-GF-2 ...)
; compiling (DEFMETHOD A-GF-2 ...)
; compiling (DEFMETHOD A-GF-3 ...)
; compiling (DEFMETHOD A-GF-3 ...)
; compiling (DEFUN CALLED-BY-TRACED-FUN ...)
; compiling (DEFUN TRACED-FUN ...)
; compiling (TRACE TRACED-FUN)

; SYS:CONTRIB;SB-INTROSPECT;XREF-TEST-DATA-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.965
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-introspect/tests" "xref-test-data">
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::XREF/10.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::XREF/11.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-1.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-2.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-3.
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/xref-test.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE :SB-INTROSPECT-TEST/XREF)
; compiling (DEFMACRO DEFINE-XREF-TEST ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.2 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.3 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.4 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.5 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.6 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.7 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.8 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.9 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.10 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.11 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.12 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.13 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.14 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.15 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.16 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.17 ...)
; compiling (DEFINE-XREF-TEST WHO-MACROEXPANDS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-BINDS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SETS.1 ...)
; compiling (DEFINE-XREF-TEST WHO-REFERENCES.1 ...)
; compiling (DEFINE-XREF-TEST WHO-REFERENCES.2 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.STRUCT-SLOT.1 ...)
; compiling (DEFINE-XREF-TEST WHO-CALLS.CMACRO.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-DIRECTLY.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-DIRECTLY.2 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-GENERALLY.1 ...)
; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-GENERALLY.2 ...)

; SYS:CONTRIB;SB-INTROSPECT;XREF-TEST-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.104
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/test.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DECLAIM (OPTIMIZE #))
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN ONE ...)
; compiling (DEFGENERIC TWO ...)
; compiling (DEFMETHOD TWO ...)
; compiling (DEFSTRUCT THREE ...)
; compiling (WITH-COMPILATION-UNIT (:SOURCE-PLIST #) ...)
; compiling "oops-off-by-one"
; compiling (DEFPARAMETER *A* ...)
; compiling (DEFVAR *B* ...)
; compiling (DEFCLASS A ...)
; compiling (DEFINE-CONDITION B ...)
; compiling (DEFSTRUCT C ...)
; compiling (DEFSTRUCT (D #) ...)
; compiling (DEFPACKAGE E ...)
; compiling (DEFINE-SYMBOL-MACRO F ...)
; compiling (DEFTYPE G ...)
; compiling (DEFCONSTANT +H+ ...)
; compiling (DEFMETHOD J ...)
; compiling (DEFMETHOD J ...)
; compiling (DEFMACRO L ...)
; compiling (DEFINE-COMPILER-MACRO M ...)
; compiling (DEFSETF N ...)
; compiling (DEFUN (SETF O) ...)
; compiling (DEFMETHOD (SETF P) ...)
; compiling (DEFINE-MODIFY-MACRO Q ...)
; compiling (DEFINE-METHOD-COMBINATION R ...)
; compiling (DEFINE-SETF-EXPANDER S ...)
; compiling (DEFGLOBAL **GLOBAL** ...)

; SYS:CONTRIB;SB-INTROSPECT;TEST-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.147
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::J.
STYLE-WARNING:
   Implicitly creating new generic function
   (COMMON-LISP:SETF COMMON-LISP-USER::P).
STYLE-WARNING: redefining SB-INTROSPECT::FUNCTION-DEBUG-INFO in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::FUNCTION-DEBUG-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEBUG-INFO-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEBUG-INFO-DEBUG-FUNCTION in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:VALID-FUNCTION-NAME-P in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAP-CODE-CONSTANTS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAP-ALLOCATED-CODE-COMPONENTS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAP-CALLER-CODE-COMPONENTS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::COPY-DEFINITION-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEFINITION-SOURCE-P in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-PATHNAME in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-PATHNAME) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-FORM-PATH in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-FORM-PATH) in DEFUN
STYLE-WARNING:
   redefining SB-INTROSPECT:DEFINITION-SOURCE-CHARACTER-OFFSET in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-CHARACTER-OFFSET) in DEFUN
STYLE-WARNING:
   redefining SB-INTROSPECT:DEFINITION-SOURCE-FILE-WRITE-DATE in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-FILE-WRITE-DATE) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-PLIST in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-PLIST) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::DEFINITION-SOURCE-DESCRIPTION in DEFUN
STYLE-WARNING:
   redefining (COMMON-LISP:SETF SB-INTROSPECT::DEFINITION-SOURCE-DESCRIPTION) in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::MAKE-DEFINITION-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::VOP-SOURCES-FROM-FUN-TEMPLATES in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::FIND-VOP-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-DEFINITION-SOURCES-BY-NAME in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-DEFINITION-SOURCE in DEFUN
STYLE-WARNING:
   redefining SB-INTROSPECT::FIND-FUNCTION-DEFINITION-SOURCE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::TRANSLATE-SOURCE-LOCATION in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-ARGLIST in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-LAMBDA-LIST in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:DEFTYPE-LAMBDA-LIST in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-TYPE in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-FUNCTION-CALLEES in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:FIND-FUNCTION-CALLERS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::GET-SIMPLE-FUN in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::CALL-WITH-EACH-GLOBAL-FUNCTOID in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::COLLECT-XREF in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-CALLS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-BINDS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-REFERENCES in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-SETS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-MACROEXPANDS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-SPECIALIZES-DIRECTLY in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:WHO-SPECIALIZES-GENERALLY in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::CANONICALIZE-CLASS-DESIGNATOR in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::METHOD-GENERIC-FUNCTION-NAME in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT::COLLECT-SPECIALIZING-METHODS in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:ALLOCATION-INFORMATION in DEFUN
STYLE-WARNING: redefining SB-INTROSPECT:MAP-ROOT in DEFUN
STYLE-WARNING: redefining SB-RT::PEND in DEFUN
STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::PEND) in DEFUN
STYLE-WARNING: redefining SB-RT::NAME in DEFUN
STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::NAME) in DEFUN
STYLE-WARNING: redefining SB-RT::FORM in DEFUN
STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::FORM) in DEFUN
STYLE-WARNING: redefining SB-RT::MAKE-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT::VALS in DEFMACRO
STYLE-WARNING: redefining SB-RT::DEFN in DEFMACRO
STYLE-WARNING: redefining SB-RT:PENDING-TESTS in DEFUN
STYLE-WARNING: redefining SB-RT:REM-ALL-TESTS in DEFUN
STYLE-WARNING: redefining SB-RT:REM-TEST in DEFUN
STYLE-WARNING: redefining SB-RT:GET-TEST in DEFUN
STYLE-WARNING: redefining SB-RT::GET-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT:DEFTEST in DEFMACRO
STYLE-WARNING: redefining SB-RT::ADD-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT::REPORT-ERROR in DEFUN
STYLE-WARNING: redefining SB-RT:DO-TEST in DEFUN
STYLE-WARNING: redefining SB-RT::EQUALP-WITH-CASE in DEFUN
STYLE-WARNING: redefining SB-RT::DO-ENTRY in DEFUN
STYLE-WARNING: redefining SB-RT:CONTINUE-TESTING in DEFUN
STYLE-WARNING: redefining SB-RT:DO-TESTS in DEFUN
STYLE-WARNING: redefining SB-RT::DO-ENTRIES in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-introspect/test-driver.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-INTROSPECT-TEST ...)
; compiling (IN-PACKAGE :SB-INTROSPECT-TEST)
; compiling (DEFMACRO DEFTEST* ...)
; compiling (DEFTEST FUNCTION-LAMBDA-LIST.1 ...)
; compiling (DEFTEST FUNCTION-LAMBDA-LIST.2 ...)
; compiling (DEFTEST FUNCTION-LAMBDA-LIST.3 ...)
; compiling (DEFTEST MACRO-LAMBDA-LIST.1 ...)
; compiling (DEFTEST MACRO-LAMBDA-LIST.2 ...)
; compiling (DEFTEST DEFINITION-SOURCE.1 ...)
; compiling (DEFTEST DEFINITION-SOURCE-PLIST.1 ...)
; compiling (DEFTEST DEFINITION-SOURCE-PLIST.2 ...)
; compiling (DEFUN MATCHP ...)
; compiling (DEFUN MATCHP-NAME ...)
; compiling (DEFUN MATCHP-LENGTH ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.1 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.2 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.3 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.4 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.5 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.6 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.7 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.8 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.9 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.10 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.11 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.12 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.13 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.14 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.15 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.16 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.17 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.18 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.19 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.20 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.21 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.22 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.23 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.24 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.25 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.26 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.27 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.28 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.29 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.30 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.31 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.32 ...)
; compiling (DEFTEST FIND-SOURCE-STUFF.33 ...)
; compiling (DEFGENERIC XUUQ ...)
; compiling (DEFMETHOD XUUQ ...)
; compiling (DEFMETHOD XUUQ ...)
; compiling (DEFTEST GF-INTERPLAY.1 ...)
; compiling (DEFMETHOD KROOLZ ...)
; compiling (DEFTEST GF-INTERPLAY.2 ...)
; compiling (DEFTYPE FOOBAR-TYPE ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.1 ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.2 ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.3 ...)
; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.4 ...)
; compiling (DEFUN TAI ...)
; compiling (DEFTEST ALLOCATION-INFROMATION.1 ...)
; compiling (DEFTEST ALLOCATION-INFORMATION.2 ...)
; compiling (DEFTEST ALLOCATION-INFORMATION.3 ...)
; compiling (DEFUN TYPE-EQUAL ...)
; compiling (DEFMACRO INTERPRET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MOON ...)
; compiling (DEFTEST FUNCTION-TYPE.1 ...)
; compiling (DEFUN SUN ...)
; compiling (DEFTEST FUNCTION-TYPE.2 ...)
; compiling (DEFTEST FUNCTION-TYPE.5 ...)
; compiling (DEFTEST FUNCTION-TYPE.6 ...)
; compiling (DEFTEST FUNCTION-TYPE.7 ...)
; compiling (DEFTEST FUNCTION-TYPE.8 ...)
; compiling (DEFGENERIC EARTH ...)
; compiling (DEFTEST FUNCTION-TYPE+GFS.1 ...)
; compiling (DEFMETHOD MARS ...)
; compiling (DEFSTRUCT (STRUCT # ...) ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.2 ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.3 ...)
; compiling (DEFSTRUCT (TYPED-STRUCT :NAMED ...) ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.4 ...)
; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.5 ...)
; compiling (DEFUN (SETF SUN) ...)
; compiling (DEFTEST FUNCTION-TYPE+SETF.1 ...)
; compiling (DEFTEST FUNCTION-TYPE+MISC.1 ...)
; compiling (DEFTEST DEFSTRUCT-FUN-SOURCES ...)
; compiling (DEFTEST DEFSTRUCT-FUN-SOURCES-BY-NAME ...)

; SYS:CONTRIB;SB-INTROSPECT;TEST-DRIVER-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.996
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST::KROOLZ.
STYLE-WARNING:
   Implicitly creating new generic function SB-INTROSPECT-TEST::MARS.
Doing 93 pending tests of 93 tests total.
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.1 SB-INTROSPECT-TEST/XREF::WHO-CALLS.2
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.3 SB-INTROSPECT-TEST/XREF::WHO-CALLS.4
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.5 SB-INTROSPECT-TEST/XREF::WHO-CALLS.6
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.7 SB-INTROSPECT-TEST/XREF::WHO-CALLS.8
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.9 SB-INTROSPECT-TEST/XREF::WHO-CALLS.10
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.11 SB-INTROSPECT-TEST/XREF::WHO-CALLS.12
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.13 SB-INTROSPECT-TEST/XREF::WHO-CALLS.14
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.15 SB-INTROSPECT-TEST/XREF::WHO-CALLS.16
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.17
 SB-INTROSPECT-TEST/XREF::WHO-MACROEXPANDS.1
 SB-INTROSPECT-TEST/XREF::WHO-BINDS.1 SB-INTROSPECT-TEST/XREF::WHO-SETS.1
 SB-INTROSPECT-TEST/XREF::WHO-REFERENCES.1
 SB-INTROSPECT-TEST/XREF::WHO-REFERENCES.2
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.STRUCT-SLOT.1
 SB-INTROSPECT-TEST/XREF::WHO-CALLS.CMACRO.1
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-DIRECTLY.1
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-DIRECTLY.2
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-GENERALLY.1
 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-GENERALLY.2
 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.1
 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.2
 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.3
 SB-INTROSPECT-TEST::MACRO-LAMBDA-LIST.1 SB-INTROSPECT-TEST::MACRO-LAMBDA-LIST.2
 SB-INTROSPECT-TEST::DEFINITION-SOURCE.1
 SB-INTROSPECT-TEST::DEFINITION-SOURCE-PLIST.1
 SB-INTROSPECT-TEST::DEFINITION-SOURCE-PLIST.2
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.1 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.2
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.3 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.4
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.5 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.6
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.7 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.8
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.9
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.10
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.11
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.12
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.13
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.14
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.15
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.16
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.17
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.18
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.19
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.20
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.21
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.22
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.23
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.24
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.25
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.26
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.27
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.28
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.29
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.30
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.31
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.32
 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.33 SB-INTROSPECT-TEST::GF-INTERPLAY.1
 SB-INTROSPECT-TEST::GF-INTERPLAY.2 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.1
 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.2
 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.3
 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.4
 SB-INTROSPECT-TEST::ALLOCATION-INFROMATION.1
 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.2
 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.3
 SB-INTROSPECT-TEST::FUNCTION-TYPE.1 SB-INTROSPECT-TEST::FUNCTION-TYPE.2
 SB-INTROSPECT-TEST::FUNCTION-TYPE.5 SB-INTROSPECT-TEST::FUNCTION-TYPE.6
 SB-INTROSPECT-TEST::FUNCTION-TYPE.7 SB-INTROSPECT-TEST::FUNCTION-TYPE.8
 SB-INTROSPECT-TEST::FUNCTION-TYPE+GFS.1
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.2
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.3
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.4
 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.5
 SB-INTROSPECT-TEST::FUNCTION-TYPE+SETF.1
 SB-INTROSPECT-TEST::FUNCTION-TYPE+MISC.1
 SB-INTROSPECT-TEST::DEFSTRUCT-FUN-SOURCES
 SB-INTROSPECT-TEST::DEFSTRUCT-FUN-SOURCES-BY-NAME
No tests failed.
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 1 note
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-introspect'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-md5'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-md5")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-md5/module-setup.lisp" (written 11 JUN 2015 08:39:48 AM):
; compiling (PROVIDE :SB-MD5)
; compiling (REQUIRE :SB-ROTATE-BYTE)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-md5/module-setup.fasl written
; compilation finished in 0:00:00.007
* echo "(defsystem :sb-md5 :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-md5.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-md5")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-md5/md5-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:SB-MD5-TESTS ...)
; compiling (IN-PACKAGE #:SB-MD5-TESTS)
; compiling (DEFUN BYTE-ARRAY-TO-HEX-STRING ...)
; compiling (DEFUN ONE-SHOT-TEST ...)
; compiling (DEFUN INCREMENTAL-TEST ...)
; compiling (DEFUN FILL-POINTER-TEST ...)
; compiling (DEFUN TESTS-FOR-TEST-SUITE ...)
; compiling (DEFINE-RFC1321-TESTS (# # ...))
; compiling (DEFINE-OTHER-TESTS (# # ...))
; compiling (DEFTEST SB-MD5.MD5SUM-FILE.0 ...)
; compiling (DEFTEST SB-MD5.MD5SUM-SEQUENCE.ERROR.0 ...)

; SYS:CONTRIB;SB-MD5;MD5-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.328
Doing 236 pending tests of 236 tests total.
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.0
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.0
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.0
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.1
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.1
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.1
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.2
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.2
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.2
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.3
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.3
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.3
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.4
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.4
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.4
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.5
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.5
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.5
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.6
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.6
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.6
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.0 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.0
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.0 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.1
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.1
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.1 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.2
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.2
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.2 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.3
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.3
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.3 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.4
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.4
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.4 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.5
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.5
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.5 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.6
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.6
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.6 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.7
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.7
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.7 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.8
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.8
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.8 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.9
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.9
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.9
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.10
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.10
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.10
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.11
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.11
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.11
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.12
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.12
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.12
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.13
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.13
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.13
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.14
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.14
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.14
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.15
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.15
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.15
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.16
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.16
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.16
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.17
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.17
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.17
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.18
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.18
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.18
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.19
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.19
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.19
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.20
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.20
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.20
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.21
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.21
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.21
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.22
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.22
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.22
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.23
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.23
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.23
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.24
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.24
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.24
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.25
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.25
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.25
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.26
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.26
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.26
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.27
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.27
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.27
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.28
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.28
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.28
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.29
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.29
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.29
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.30
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.30
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.30
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.31
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.31
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.31
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.32
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.32
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.32
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.33
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.33
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.33
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.34
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.34
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.34
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.35
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.35
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.35
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.36
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.36
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.36
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.37
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.37
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.37
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.38
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.38
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.38
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.39
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.39
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.39
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.40
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.40
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.40
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.41
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.41
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.41
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.42
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.42
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.42
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.43
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.43
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.43
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.44
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.44
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.44
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.45
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.45
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.45
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.46
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.46
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.46
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.47
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.47
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.47
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.48
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.48
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.48
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.49
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.49
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.49
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.50
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.50
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.50
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.51
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.51
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.51
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.52
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.52
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.52
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.53
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.53
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.53
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.54
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.54
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.54
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.55
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.55
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.55
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.56
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.56
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.56
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.57
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.57
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.57
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.58
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.58
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.58
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.59
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.59
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.59
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.60
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.60
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.60
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.61
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.61
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.61
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.62
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.62
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.62
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.63
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.63
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.63
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.64
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.64
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.64
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.65
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.65
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.65
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.66
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.66
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.66
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.67
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.67
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.67
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.68
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.68
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.68
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.69
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.69
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.69
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.70
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.70
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.70 SB-MD5-TESTS::SB-MD5.MD5SUM-FILE.0
 SB-MD5-TESTS::SB-MD5.MD5SUM-SEQUENCE.ERROR.0
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-md5'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-mpfr")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-mpfr/module-setup.lisp" (written 11 JUN 2015 08:40:00 AM):
; compiling (PROVIDE :SB-MPFR)
; compiling (REQUIRE :SB-GMP)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-mpfr/module-setup.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-MPFR ...)
; compiling (IN-PACKAGE :SB-MPFR)
; compiling (DEFVAR +MPFR-PRECISION+)
; compiling (DEFVAR *MPFR-VERSION* ...)
; compiling (DEFVAR *MPFR-FEATURES* ...)
; compiling (DEFUN TRY-LOAD-SHARED-OBJECT ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN TRY-LOAD-SHARED-OBJECT
;     (HANDLER-CASE (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T)
;                   (ERROR (SB-MPFR::E) NIL))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-4 ()
;            (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T))
;          (#:FUN1 (SB-MPFR::E)
;            NIL))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK2
;       (SB-INT:DX-LET ((#:CELL3 #))
;         (DECLARE (IGNORABLE #:CELL3))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG0
;           (RETURN-FROM #:BLOCK2 #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; compiling (DEFUN %LOAD-MPFR ...)
; compiling (DEFUN LOAD-MPFR ...)
; compiling (LOAD-MPFR)
; compiling (DEFINE-ALIEN-TYPE NIL ...)
; compiling (DEFINE-ALIEN-TYPE MPFR_RND_ENUM ...)
; compiling (DECLAIM (INLINE MPFR_INIT2 ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_INIT2 ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CLEAR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_FLT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_NAN ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_INF ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_ZERO ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_DEFAULT_PREC ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_STR ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFINE-ALIEN-ROUTINE MPFR_GET_STR
;     (DEFINE-ALIEN-ROUTINE SB-MPFR::MPFR_GET_STR (* CHAR) (SB-MPFR::STR (* CHAR))
;                           (SB-MPFR:EXP (* LONG)) (SB-MPFR::BASE INT)
;                           (SB-MPFR::N UNSIGNED)
;                           (SB-MPFR::X (* (STRUCT SB-MPFR::MPFRFLOAT)))
;                           (SB-MPFR::RND SB-MPFR::MPFR_RND_ENUM))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE MPFR_GET_FLT ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_FLT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FREE_STR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_STR ...)
; compiling (DECLAIM (INLINE MPFR_ADD ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SI_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_D_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_Z_SUB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SI_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_D_DIV ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQRT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQRT_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_REC_SQRT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CBRT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ROOT ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_POW ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_NEG ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ABS ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIM ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_2UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_2SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_2UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_2SI ...)
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-INT ...)
; compiling (DEFINE-ONEARG-MPFR-INT (MPFR_LOG MPFR_LOG2 ...))
; compiling (DEFMACRO DEFINE-TWOARG-MPFR-INT ...)
; compiling (DEFINE-TWOARG-MPFR-INT (MPFR_SIN_COS MPFR_ATAN2 ...))
; compiling (DECLAIM (INLINE MPFR_FAC_UI ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FAC_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ZETA_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_JN ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_YN ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMA ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMS ...)
; compiling (DEFMACRO DEFINE-CONST-MPFR-INT ...)
; compiling (DEFINE-CONST-MPFR-INT (MPFR_CONST_LOG2 MPFR_CONST_PI ...))
; compiling (DECLAIM (INLINE MPFR_SUM))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUM ...)
; compiling (DECLAIM (INLINE MPFR_CMP ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_UI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_SI ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_D ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_Z ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_Q ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_UI_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_SI_2EXP ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMPABS ...)
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-BOOL ...)
; compiling (DEFINE-ONEARG-MPFR-BOOL (MPFR_NAN_P MPFR_INF_P ...))
; compiling (DECLAIM (INLINE MPFR_SGN))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_SGN ...)
; compiling (DEFMACRO DEFINE-TWOARG-MPFR-BOOL ...)
; compiling (DEFINE-TWOARG-MPFR-BOOL (MPFR_GREATER_P MPFR_GREATEREQUAL_P ...))
; compiling (DEFMACRO DEFINE-MPFR-VOID ...)
; compiling (DEFINE-MPFR-VOID (MPFR_CLEAR_UNDERFLOW MPFR_CLEAR_OVERFLOW ...))
; compiling (DEFMACRO DEFINE-MPFR-BOOL ...)
; compiling (DEFINE-MPFR-BOOL (MPFR_UNDERFLOW_P MPFR_OVERFLOW_P ...))
; compiling (DECLAIM (INLINE MPFR_URANDOMB ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_URANDOMB ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_URANDOM ...)
; compiling (DEFINE-ONEARG-MPFR-INT (MPFR_RINT MPFR_RINT_CEIL ...))
; compiling (DECLAIM (INLINE MPFR_CEIL ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_CEIL ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FLOOR ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_ROUND ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_TRUNC ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_MODF ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMOD ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_REMAINDER ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_REMQUO ...)
; compiling (DEFPARAMETER *MPFR-RND* ...)
; compiling (DEFPARAMETER *MPFR-BASE* ...)
; compiling (DECLAIM (INLINE MPFR-FLOAT-REF ...))
; compiling (DEFSTRUCT (MPFR-FLOAT #) ...)
; compiling (DEFUN MAKE-MPFR-FLOAT ...)
; compiling (DEFMACRO WITH-PRECISION ...)
; compiling (DEFUN SET-PRECISION ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN MPFR-FLOAT-TO-STRING ...)
; compiling (DEFUN MPFR-READER ...)
; compiling (DEFUN ENABLE-MPFR-SYNTAX ...)
; compiling (ENABLE-MPFR-SYNTAX *READTABLE*)
; compiling (DEFUN ADD ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN ADD
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_ADD_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN SUB ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN SUB
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_SUB_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN MUL ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN MUL
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_MUL_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN SQARE ...)
; compiling (DEFUN DIV ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN DIV
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_DIV_Q SB-MPFR::R SB-MPFR::XR (ADDR SB-MPFR::QY)
;        SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN SQRT ...)
; compiling (DEFUN RECIPROCAL-SQRT ...)
; compiling (DEFUN CUBIC-ROOT ...)
; compiling (DEFUN K-ROOT ...)
; compiling (DEFUN POWER ...)
; compiling (DEFUN NEGATE ...)
; compiling (DEFUN ABS ...)
; compiling (DEFUN DIM ...)
; compiling (DEFUN MUL-2-RAISED ...)
; compiling (DEFUN DIV-2-RAISED ...)
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-FUNS ...)
; compiling (DEFINE-ONEARG-MPFR-FUNS (# # ...))
; compiling (DEFUN ATAN ...)
; compiling (DEFUN SIN-COS ...)
; compiling (DEFUN SINH-COSH ...)
; compiling (DEFUN ARITHMETIC-GEOMETRIC-MEAN ...)
; compiling (DEFUN HYPOT ...)
; compiling (DEFUN FAC ...)
; compiling (DEFUN ZETA ...)
; compiling (DEFUN JN ...)
; compiling (DEFUN YN ...)
; compiling (DEFUN FMA ...)
; compiling (DEFUN FMS ...)
; compiling (DEFUN SUM ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN SUM
;     (SETF (DEREF SB-MPFR::AR (INCF SB-MPFR::IDX))
;             (SB-MPFR::MPFR-FLOAT-REF SB-MPFR::X))
; --> LET* SB-ALIEN-INTERNALS:%SET-DEREF SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT SB-MPFR::MPFRFLOAT
;                                       (SB-MPFR::MPFR_PREC # :OFFSET 0)
;                                       (SB-MPFR::MPFR_SIGN # :OFFSET 32)
;                                       (SB-MPFR::MPFR_EXP # :OFFSET 64)
;                                       (SB-MPFR::MPFR_D # :OFFSET 96)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFMACRO DEFINE-CONST-MPFR-FUNS ...)
; compiling (DEFINE-CONST-MPFR-FUNS (# # ...))
; compiling (DEFMACRO DEFINE-ONEARG-MPFR-PREDICATES ...)
; compiling (DEFINE-ONEARG-MPFR-PREDICATES (# # ...))
; compiling (DEFMACRO DEFINE-TWOARG-MPFR-PREDICATES ...)
; compiling (DEFINE-TWOARG-MPFR-PREDICATES (# # ...))
; compiling (DEFUN COMPARE ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN COMPARE
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::Y SB-MPFR::QY)
;       (SB-MPFR::MPFR_CMP_Q (SB-MPFR::MPFR-FLOAT-REF SB-MPFR::X)
;        (ADDR SB-MPFR::QY)))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN COMPARE-2EXP ...)
; compiling (DEFMACRO DEFINE-MPFR-FLAG-FUNS ...)
; compiling (DEFINE-MPFR-FLAG-FUNS (# # ...))
; compiling (DEFMACRO DEFINE-MPFR-FLAG-PREDICATES ...)
; compiling (DEFINE-MPFR-FLAG-PREDICATES (# # ...))
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in:
;      DEFINE-MPFR-FLAG-PREDICATES ((UNDERFLOWP MPFR_UNDERFLOW_P)
;                               (OVERFLOWP MPFR_OVERFLOW_P)
;                               (DIV-BY-ZERO-P MPFR_DIVBY0_P)
;                               (NANFLAG-P MPFR_NANFLAG_P)
;                               (INEXFLAG-P MPFR_INEXFLAG_P)
;                               (ERANGEFLAG-P MPFR_ERANGEFLAG_P))
;     (SB-MPFR::DEFINE-MPFR-FLAG-PREDICATES
;      ((SB-MPFR:UNDERFLOWP SB-MPFR::MPFR_UNDERFLOW_P)
;       (SB-MPFR:OVERFLOWP SB-MPFR::MPFR_OVERFLOW_P)
;       (SB-MPFR:DIV-BY-ZERO-P SB-MPFR::MPFR_DIVBY0_P)
;       (SB-MPFR:NANFLAG-P SB-MPFR::MPFR_NANFLAG_P)
;       (SB-MPFR:INEXFLAG-P SB-MPFR::MPFR_INEXFLAG_P)
;       (SB-MPFR:ERANGEFLAG-P SB-MPFR::MPFR_ERANGEFLAG_P)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_UNDERFLOW_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_OVERFLOW_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_DIVBY0_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_NANFLAG_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_INEXFLAG_P BLOCK WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-MPFR::MPFR_ERANGEFLAG_P BLOCK WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET 
; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE NOT IF ZEROP = EQL IF EQL EQ 
; --> IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; compiling (DEFUN URANDOMB ...)
; compiling (DEFUN URANDOM ...)
; compiling (DEFINE-ONEARG-MPFR-FUNS (# # ...))
; compiling (DEFMACRO DEFINE-ONEARG-NO-RND-MPFR-FUNS ...)
; compiling (DEFINE-ONEARG-NO-RND-MPFR-FUNS (# # ...))
; compiling (DEFUN MODF ...)
; compiling (DEFUN FMOD ...)
; compiling (DEFUN REMAINDER ...)
; compiling (DEFUN REMAINDER-QUOT ...)
; compiling (DECLAIM (INLINE MPFR_FITS_ULONG_P ...))
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FITS_ULONG_P ...)
; compiling (DEFINE-ALIEN-ROUTINE MPFR_FITS_SLONG_P ...)
; compiling (DEFUN COERCE ...)
; file: /«PKGBUILDDIR»/contrib/sb-mpfr/mpfr.lisp
; in: DEFUN COERCE
;     (SB-GMP::WITH-MPQ-VAR (SB-MPFR::X SB-MPFR::QX)
;       (SB-MPFR::MPFR_SET_Q (SB-MPFR::MPFR-FLOAT-REF SB-MPFR::RESULT)
;        (ADDR SB-MPFR::QX) SB-MPFR:ROUND))
; --> LET* LET* SB-GMP::%LSIZE BLOCK LET WHEN IF ZEROP = EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ


; SYS:CONTRIB;SB-MPFR;MPFR-TMP.FASL.NEWEST written
; compilation finished in 0:00:53.922
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-mpfr" "sb-mpfr" "mpfr">
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 20 notes
* echo "(defsystem :sb-mpfr :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-mpfr.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-mpfr")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
STYLE-WARNING: Undefined alien: "mpfr_get_version"
STYLE-WARNING: Undefined alien: "mpfr_get_default_prec"
; compiling file "/«PKGBUILDDIR»/contrib/sb-mpfr/tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-MPFR-TESTS" ...)
; compiling (IN-PACKAGE "SB-MPFR-TESTS")
; compiling (DEFUN SAMPLE ...)
; compiling (DEFUN SAMPLE2 ...)
; compiling (DEFUN SAMPLE-PI ...)

; SYS:CONTRIB;SB-MPFR;TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.149
Doing 0 pending tests of 0 tests total.
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-posix'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-posix")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-posix/module-setup.lisp" (written 11 JUN 2015 08:41:06 AM):
; compiling (PROVIDE :SB-POSIX)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-posix/module-setup.fasl written
; compilation finished in 0:00:00.004
* echo "(defsystem :sb-posix :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-posix.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-posix")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
; compiling file "/«PKGBUILDDIR»/contrib/sb-posix/posix-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE "SB-POSIX-TESTS" ...)
; compiling (IN-PACKAGE "SB-POSIX-TESTS")
; compiling (DEFVAR *TEST-DIRECTORY* ...)
; compiling (DEFVAR *CURRENT-DIRECTORY* ...)
; compiling (DEFVAR *THIS-FILE* ...)
; compiling (DEFCONSTANT +MODE-RWX-ALL+ ...)
; compiling (DEFMACRO DEFINE-EACCES-TEST ...)
; compiling (DEFTEST CHDIR.1 ...)
; compiling (DEFTEST CHDIR.2 ...)
; compiling (DEFTEST CHDIR.3 ...)
; compiling (DEFTEST CHDIR.4 ...)
; compiling (DEFTEST CHDIR.5 ...)
; compiling (DEFTEST CHDIR.6 ...)
; compiling (DEFTEST CHDIR.7 ...)
; compiling (DEFTEST CHDIR.8 ...)
; compiling (DEFTEST CHDIR.ERROR.1 ...)
; compiling (DEFTEST CHDIR.ERROR.2 ...)
; compiling (DEFTEST MKDIR.1 ...)
; compiling (DEFTEST MKDIR.2 ...)
; compiling (DEFTEST MKDIR.ERROR.1 ...)
; compiling (DEFTEST MKDIR.ERROR.2 ...)
; compiling (DEFINE-EACCES-TEST MKDIR.ERROR.3 ...)
; compiling (DEFTEST RMDIR.1 ...)
; compiling (DEFTEST RMDIR.2 ...)
; compiling (DEFTEST RMDIR.ERROR.1 ...)
; compiling (DEFTEST RMDIR.ERROR.2 ...)
; compiling (DEFTEST RMDIR.ERROR.3 ...)
; compiling (DEFTEST RMDIR.ERROR.4 ...)
; compiling (DEFINE-EACCES-TEST RMDIR.ERROR.5 ...)
; compiling (DEFTEST STAT.1 ...)
; compiling (DEFTEST STAT.2 ...)
; compiling (DEFTEST STAT.3 ...)
; compiling (DEFTEST STAT.4 ...)
; compiling (DEFTEST STAT.5 ...)
; compiling (DEFTEST STAT.ERROR.1 ...)
; compiling (DEFINE-EACCES-TEST STAT.ERROR.2 ...)
; compiling (DEFMACRO WITH-STAT-MODE ...)
; compiling (DEFMACRO WITH-LSTAT-MODE ...)
; compiling (DEFTEST STAT-MODE.1 ...)
; compiling (DEFTEST STAT-MODE.2 ...)
; compiling (DEFTEST STAT-MODE.3 ...)
; compiling (DEFTEST STAT-MODE.4 ...)
; compiling (DEFTEST STAT-MODE.5 ...)
; compiling (DEFTEST STAT-MODE.6 ...)
; compiling (DEFTEST STAT-MODE.7 ...)
; compiling (DEFTEST STAT-MODE.8 ...)
; compiling (DEFTEST FILENAME-DESIGNATOR.1 ...)
; compiling (DEFTEST OPEN.1 ...)
; compiling (DEFTEST OPEN.ERROR.1 ...)
; compiling (DEFTEST FCNTL.1 ...)
; compiling (DEFTEST FCNTL.FLOCK.1 ...)
; compiling (DEFTEST FCNTL.FLOCK.2 ...)
; compiling (DEFTEST READ.1 ...)
; compiling (DEFTEST OPENDIR.1 ...)
; compiling (DEFTEST READDIR.1 ...)
; compiling (DEFTEST READDIR/DIRENT-NAME ...)
; compiling (DEFTEST WRITE.1 ...)
; compiling (DEFTEST PWENT.1 ...)
; compiling (DEFTEST PWENT.2 ...)
; compiling (DEFTEST PWENT.NON-EXISTING ...)
; compiling (DEFTEST GRENT.1 ...)
; compiling (DEFTEST GRENT.2 ...)
; compiling (DEFTEST GRENT.NON-EXISTING ...)
; compiling (DEFTEST TIME.1 ...)
; compiling (DEFTEST UTIMES.1 ...)
; compiling (DEFTEST READLINK.1 ...)
; compiling (DEFTEST READLINK.2 ...)
; compiling (DEFTEST READLINK.ERROR.1 ...)
; compiling (DEFTEST READLINK.ERROR.2 ...)
; compiling (DEFTEST READLINK.ERROR.3 ...)
; compiling (DEFTEST READLINK.ERROR.4 ...)
; compiling (DEFTEST READLINK.ERROR.5 ...)
; compiling (DEFTEST READLINK.ERROR.6 ...)
; compiling (DEFTEST READLINK.ERROR.7 ...)
; compiling (DEFTEST GETCWD.1 ...)
; compiling (DEFTEST MKSTEMP.1 ...)
; compiling (DEFTEST MKDTEMP.1 ...)
; compiling (DEFTEST MKTEMP.1 ...)
; compiling (DEFTEST MKSTEMP.NULL-TERMINATE ...)
; compiling (DEFTEST ENVSTUFF ...)

; SYS:CONTRIB;SB-POSIX;POSIX-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.306
Doing 71 pending tests of 71 tests total.
 SB-POSIX-TESTS::CHDIR.1 SB-POSIX-TESTS::CHDIR.2 SB-POSIX-TESTS::CHDIR.3
 SB-POSIX-TESTS::CHDIR.4 SB-POSIX-TESTS::CHDIR.5 SB-POSIX-TESTS::CHDIR.6
 SB-POSIX-TESTS::CHDIR.7 SB-POSIX-TESTS::CHDIR.8 SB-POSIX-TESTS::CHDIR.ERROR.1
 SB-POSIX-TESTS::CHDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.1 SB-POSIX-TESTS::MKDIR.2
 SB-POSIX-TESTS::MKDIR.ERROR.1 SB-POSIX-TESTS::MKDIR.ERROR.2
 SB-POSIX-TESTS::MKDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.1 SB-POSIX-TESTS::RMDIR.2
 SB-POSIX-TESTS::RMDIR.ERROR.1 SB-POSIX-TESTS::RMDIR.ERROR.2
 SB-POSIX-TESTS::RMDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.ERROR.4
 SB-POSIX-TESTS::RMDIR.ERROR.5 SB-POSIX-TESTS::STAT.1 SB-POSIX-TESTS::STAT.2
 SB-POSIX-TESTS::STAT.3 SB-POSIX-TESTS::STAT.4 SB-POSIX-TESTS::STAT.5
 SB-POSIX-TESTS::STAT.ERROR.1 SB-POSIX-TESTS::STAT.ERROR.2
 SB-POSIX-TESTS::STAT-MODE.1 SB-POSIX-TESTS::STAT-MODE.2
 SB-POSIX-TESTS::STAT-MODE.3 SB-POSIX-TESTS::STAT-MODE.4
 SB-POSIX-TESTS::STAT-MODE.5 SB-POSIX-TESTS::STAT-MODE.6
 SB-POSIX-TESTS::STAT-MODE.7 SB-POSIX-TESTS::STAT-MODE.8
 SB-POSIX-TESTS::FILENAME-DESIGNATOR.1 SB-POSIX-TESTS::OPEN.1
 SB-POSIX-TESTS::OPEN.ERROR.1 SB-POSIX-TESTS::FCNTL.1
 SB-POSIX-TESTS::FCNTL.FLOCK.1 SB-POSIX-TESTS::FCNTL.FLOCK.2
 SB-POSIX-TESTS::READ.1 SB-POSIX-TESTS::OPENDIR.1 SB-POSIX-TESTS::READDIR.1
 SB-POSIX-TESTS::READDIR/DIRENT-NAME SB-POSIX-TESTS::WRITE.1
 SB-POSIX-TESTS::PWENT.1 SB-POSIX-TESTS::PWENT.2
 SB-POSIX-TESTS::PWENT.NON-EXISTING SB-POSIX-TESTS::GRENT.1
 SB-POSIX-TESTS::GRENT.2 SB-POSIX-TESTS::GRENT.NON-EXISTING
 SB-POSIX-TESTS::TIME.1 SB-POSIX-TESTS::UTIMES.1 SB-POSIX-TESTS::READLINK.1
 SB-POSIX-TESTS::READLINK.2 SB-POSIX-TESTS::READLINK.ERROR.1
 SB-POSIX-TESTS::READLINK.ERROR.2 SB-POSIX-TESTS::READLINK.ERROR.3
 SB-POSIX-TESTS::READLINK.ERROR.4 SB-POSIX-TESTS::READLINK.ERROR.5
 SB-POSIX-TESTS::READLINK.ERROR.6 SB-POSIX-TESTS::READLINK.ERROR.7
 SB-POSIX-TESTS::GETCWD.1 SB-POSIX-TESTS::MKSTEMP.1 SB-POSIX-TESTS::MKDTEMP.1
 SB-POSIX-TESTS::MKTEMP.1 SB-POSIX-TESTS::MKSTEMP.NULL-TERMINATE
 SB-POSIX-TESTS::ENVSTUFF
No tests failed.
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-posix'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-queue'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-queue")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-queue/module-setup.lisp" (written 11 JUN 2015 08:41:40 AM):
; compiling (PROVIDE :SB-QUEUE)
; compiling (REQUIRE :SB-CONCURRENCY)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-queue/module-setup.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/contrib/sb-queue/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE :SB-QUEUE ...)

; SYS:CONTRIB;SB-QUEUE;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.009
* echo "(defsystem :sb-queue :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-queue.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-queue")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-queue'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-rotate-byte")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-rotate-byte/module-setup.lisp" (written 11 JUN 2015 08:41:50 AM):
; compiling (PROVIDE :SB-ROTATE-BYTE)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-rotate-byte/module-setup.fasl written
; compilation finished in 0:00:00.007
* echo "(defsystem :sb-rotate-byte :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rotate-byte.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-rotate-byte")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-rotate-byte/rotate-byte-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (FLET (#) ...)
; compiling (DEFUN PFIXNUM/C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN PFIXNUM ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32/C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32 ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32-REG-PRESSURE ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB64/C ...)
; compiling (DEFUN UB64/-C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB64 ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))

; SYS:CONTRIB;SB-ROTATE-BYTE;ROTATE-BYTE-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.552
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rt'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-rt")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-rt/module-setup.lisp" (written 11 JUN 2015 08:42:01 AM):
; compiling (PROVIDE :SB-RT)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-rt/module-setup.fasl written
; compilation finished in 0:00:00.005
* echo "(defsystem :sb-rt :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rt.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-rt")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rt'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
make -C ../asdf
make[2]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
make[2]: Nothing to be done for 'fasl'.
make[2]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::build-asdf-contrib "sb-simple-streams")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
; compiling file "/«PKGBUILDDIR»/obj/asdf-cache/sb-simple-streams/module-setup.lisp" (written 11 JUN 2015 08:42:11 AM):
; compiling (PROVIDE :SB-SIMPLE-STREAMS)
; compiling (REQUIRE :SB-BSD-SOCKETS)
; compiling (REQUIRE :SB-POSIX)

; /«PKGBUILDDIR»/obj/asdf-cache/sb-simple-streams/module-setup.fasl written
; compilation finished in 0:00:00.008
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/package.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE SB-SIMPLE-STREAMS ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;PACKAGE-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.020
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/iodefs.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN %FILE-NAMESTRING ...)
; compiling (DEFMACRO DEF-STREAM-CLASS ...)
; compiling (SB-INT:DEFCONSTANT-EQX +FLAG-BITS+ ...)
; compiling (DEFUN %FLAGS ...)
; compiling (DEFMACRO WITH-STREAM-CLASS ...)
; compiling (DEFMACRO SM ...)
; compiling (DEFMACRO FUNCALL-STM-HANDLER ...)
; compiling (DEFMACRO FUNCALL-STM-HANDLER-2 ...)
; compiling (DEFMACRO ADD-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO REMOVE-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO ANY-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH ...)
; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH-2 ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;IODEFS-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.208
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/classes.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFTYPE SIMPLE-STREAM-BUFFER ...)
; compiling (DEFTYPE BLOCKING ...)
; compiling (DEFTYPE J-LISTEN-FN ...)
; compiling (DEFTYPE J-READ-CHAR-FN ...)
; compiling (DEFTYPE J-READ-CHARS-FN ...)
; compiling (DEFTYPE J-WRITE-CHAR-FN ...)
; compiling (DEFTYPE J-WRITE-CHARS-FN ...)
; compiling (DEFTYPE J-UNREAD-CHAR-FN ...)
; compiling (DEF-STREAM-CLASS SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS SINGLE-CHANNEL-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS DUAL-CHANNEL-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS STRING-SIMPLE-STREAM ...)
; compiling (DEFGENERIC DEVICE-OPEN ...)
; compiling (DEFGENERIC DEVICE-CLOSE ...)
; compiling (DEFGENERIC DEVICE-BUFFER-LENGTH ...)
; compiling (DEFGENERIC DEVICE-FILE-POSITION ...)
; compiling (DEFGENERIC (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFGENERIC DEVICE-FILE-LENGTH ...)
; compiling (DEFGENERIC DEVICE-READ ...)
; compiling (DEFGENERIC DEVICE-CLEAR-INPUT ...)
; compiling (DEFGENERIC DEVICE-WRITE ...)
; compiling (DEFGENERIC DEVICE-CLEAR-OUTPUT ...)
; compiling (DEFGENERIC DEVICE-FINISH-RECORD ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFGENERIC (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-CLEAR-OUTPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;CLASSES-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.379
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/internal.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DECLAIM (INLINE BUFFER-SAP ...))
; compiling (DEFUN BUFFER-SAP ...)
; compiling (DEFUN BREF ...)
; compiling (DEFUN (SETF BREF) ...)
; compiling (DEFUN BUFFER-COPY ...)
; compiling (DEFUN ALLOCATE-BUFFER ...)
; compiling (DEFUN FREE-BUFFER ...)
; compiling (DEFUN MAKE-CONTROL-TABLE ...)
; compiling (DEFUN STD-NEWLINE-OUT-HANDLER ...)
; compiling (DEFUN STD-TAB-OUT-HANDLER ...)
; compiling (DEFUN STD-DC-NEWLINE-IN-HANDLER ...)
; compiling (DEFVAR *STD-CONTROL-OUT-TABLE* ...)
; compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...)
; compiling (DEFVAR *EXTERNAL-FORMATS* ...)
; compiling (DEFVAR *EXTERNAL-FORMAT-ALIASES* ...)
; compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...)
; compiling (DEFUN %PRINT-EXTERNAL-FORMAT ...)
; compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT ...)
; compiling (DEFUN LOAD-EXTERNAL-FORMAT-ALIASES ...)
; compiling (DEFUN FIND-EXTERNAL-FORMAT ...)
; compiling (DEFINE-CONDITION VOID-EXTERNAL-FORMAT ...)
; compiling (DEFINE-EXTERNAL-FORMAT :VOID ...)
; compiling (DEFINE-EXTERNAL-FORMAT :ISO8859-1 ...)
; compiling (DEFMACRO OCTETS-TO-CHAR ...)
; compiling (DEFMACRO CHAR-TO-OCTETS ...)
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DEFUN OCTETS-TO-STRING ...)
; compiling (DEFUN VECTOR-ELT-WIDTH ...)
; compiling (DEFUN ENDIAN-SWAP-VALUE ...)
; compiling (DEFUN READ-OCTETS ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/internal.lisp
; in: DEFUN READ-OCTETS
;     (SB-UNIX:UNIX-READ SB-SIMPLE-STREAMS::FD
;                        (SB-SIMPLE-STREAMS::BUFFER-SAP SB-SIMPLE-STREAMS::BUFFER
;                         SB-SIMPLE-STREAMS::START)
;                        (THE FIXNUM
;                             (- SB-SIMPLE-STREAMS::END SB-SIMPLE-STREAMS::START)))
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFUN WRITE-OCTETS ...)
; compiling (DEFUN DO-SOME-OUTPUT ...)
; compiling (DEFUN QUEUE-WRITE ...)
; compiling (DEFUN %FD-OPEN ...)
; compiling (DEFUN OPEN-FD-STREAM ...)
; compiling (DEFSTRUCT (FILESPEC-PARSER #) ...)
; compiling (DEFVAR *FILESPEC-PARSERS* ...)
; compiling (DEFUN ADD-FILESPEC ...)
; compiling (DEFMACRO DEFINE-FILESPEC ...)
; compiling (DEFUN PARSE-FILESPEC ...)
; compiling (DEFINE-FILESPEC PATHNAME ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;INTERNAL-TMP.FASL.NEWEST written
; compilation finished in 0:00:04.319
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/strategy.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN REFILL-BUFFER ...)
; compiling (DEFUN SC-SET-DIRTY ...)
; compiling (DEFUN SC-SET-CLEAN ...)
; compiling (DEFUN SC-DIRTY-P ...)
; compiling (DEFUN FLUSH-BUFFER ...)
; compiling (DEFUN FLUSH-OUT-BUFFER ...)
; compiling (DEFUN READ-BYTE-INTERNAL ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN SC-LISTEN-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN SC-READ-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN SC-READ-CHAR-EF-MAPPED ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN SC-READ-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN SC-READ-CHARS-EF-MAPPED ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN SC-UNREAD-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN SC-WRITE-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN SC-WRITE-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN DC-WRITE-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN DC-WRITE-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN STR-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN STR-LISTEN-E-CRLF ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/strategy.lisp
; in: DEFUN STR-LISTEN-E-CRLF
;     (DEFUN SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF (STREAM)
;       (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS (SB-SIMPLE-STREAMS:COMPOSING-STREAM
;                                             STREAM)
;         (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-LISTEN
;                                                (SB-SIMPLE-STREAMS:SM
;                                                 SB-SIMPLE-STREAMS::MELDED-STREAM
;                                                 STREAM))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF
;         (STREAM)
;       (BLOCK SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF
;         (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS (SB-SIMPLE-STREAMS:COMPOSING-STREAM
;                                               STREAM)
;           (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-LISTEN
;                                                  (SB-SIMPLE-STREAMS:SM
;                                                   SB-SIMPLE-STREAMS::MELDED-STREAM
;                                                   STREAM)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL (MEMBER T NIL) &REST T).

; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN STR-READ-CHAR-E-CRLF ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN STR-UNREAD-CHAR-E-CRLF ...)
; compiling (DEFUN MELDING-STREAM ...)
; compiling (DEFUN MELD ...)
; compiling (DEFUN UNMELD ...)
; compiling (DEFUN %SF ...)
; compiling (DEFUN INSTALL-SINGLE-CHANNEL-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-DUAL-CHANNEL-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-INPUT-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-OUTPUT-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-COMPOSING-FORMAT-CHARACTER-STRATEGY ...)
; compiling (DEFUN COMPOSE-ENCAPSULATING-STREAMS ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN NULL-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN NULL-READ-CHARS ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN NULL-UNREAD-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN NULL-WRITE-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN NULL-WRITE-CHARS ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN NULL-LISTEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRATEGY-TMP.FASL.NEWEST written
; compilation finished in 0:00:07.849
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/terminal.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFVAR *TERMINAL-CONTROL-IN-TABLE* ...)
; compiling (DEF-STREAM-CLASS TERMINAL-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;TERMINAL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.622
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/string.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS STRING-INPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS STRING-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS COMPOSING-STREAM ...)
; compiling (DEF-STREAM-CLASS FILL-POINTER-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS XP-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS ANNOTATION-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRING-TMP.FASL.NEWEST written
; compilation finished in 0:00:02.424
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/socket.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS SOCKET-SIMPLE-STREAM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEF-STREAM-CLASS SOCKET-BASE-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;SOCKET-TMP.FASL.NEWEST written
; compilation finished in 0:00:01.053
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/null.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS NULL-SIMPLE-STREAM ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN NULL-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN NULL-READ-CHARS ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN NULL-UNREAD-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN NULL-WRITE-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN NULL-WRITE-CHARS ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN NULL-LISTEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;NULL-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.574
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/direct.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS DIRECT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS BUFFER-INPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS BUFFER-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;DIRECT-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.326
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/file.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS FILE-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS MAPPED-FILE-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS PROBE-SIMPLE-STREAM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN OPEN-FILE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFUN REVERT-FILE ...)
; compiling (DEFUN DELETE-ORIGINAL ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;FILE-TMP.FASL.NEWEST written
; compilation finished in 0:00:03.971
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/fndb.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "COMMON-LISP")
; compiling (SB-C:DEFKNOWN OPEN ...)
; compiling (SB-C:DEFKNOWN LISTEN ...)
; compiling (SB-C:DEFKNOWN READ-SEQUENCE ...)
; compiling (SB-C:DEFKNOWN CLEAR-INPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;FNDB-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.021
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN %UNINITIALIZED ...)
; compiling (DEFUN %CHECK ...)
; compiling (DEFMETHOD INPUT-STREAM-P ...)
; compiling (DEFMETHOD OUTPUT-STREAM-P ...)
; compiling (DEFMETHOD OPEN-STREAM-P ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFUN %FILE-POSITION ...)
; compiling (DEFUN %FILE-LENGTH ...)
; compiling (DEFUN %FILE-NAME ...)
; compiling (DEFUN %FILE-RENAME ...)
; compiling (DEFUN %FILE-STRING-LENGTH ...)
; compiling (DEFUN %READ-LINE ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN %READ-LINE
;     (REPLACE SB-SIMPLE-STREAMS::CBUF SB-SIMPLE-STREAMS::BUF :START1
;              SB-SIMPLE-STREAMS::IDX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.

;     (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-READ-CHARS
;                                            SB-SIMPLE-STREAMS::ENCAP
;                                            SB-SIMPLE-STREAMS::CBUF #\Newline
;                                            SB-SIMPLE-STREAMS::INDEX
;                                            (LENGTH SB-SIMPLE-STREAMS::CBUF) T)
; --> LET FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SB-SIMPLE-STREAMS:SM SB-SIMPLE-STREAMS::J-READ-CHARS #:G483))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (REPLACE STRING SB-SIMPLE-STREAMS::BUF :START1 SB-SIMPLE-STREAMS::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.

; compiling (DEFUN %READ-CHAR ...)
; compiling (DEFUN %UNREAD-CHAR ...)
; compiling (DEFUN %PEEK-CHAR ...)
; compiling (DEFUN %LISTEN ...)
; compiling (DEFUN %CLEAR-INPUT ...)
; compiling (DEFUN %READ-BYTE ...)
; compiling (DEFUN %WRITE-CHAR ...)
; compiling (DEFUN %FRESH-LINE ...)
; compiling (DEFUN %WRITE-STRING ...)
; compiling (DEFUN %LINE-LENGTH ...)
; compiling (DEFUN %FINISH-OUTPUT ...)
; compiling (DEFUN %FORCE-OUTPUT ...)
; compiling (DEFUN %CLEAR-OUTPUT ...)
; compiling (DEFUN %WRITE-BYTE ...)
; compiling (DEFUN %READ-SEQUENCE ...)
; compiling (DEFUN %WRITE-SEQUENCE ...)
; compiling (DEFUN READ-VECTOR ...)
; compiling (DEFMETHOD OPEN-STREAM-P ...)
; compiling (DEFMETHOD INPUT-STREAM-P ...)
; compiling (DEFMETHOD OUTPUT-STREAM-P ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFUN INTERACTIVE-STREAM-P ...)
; compiling (DEFUN (SETF INTERACTIVE-STREAM-P) ...)
; compiling (DEFUN FILE-STRING-LENGTH ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN FILE-STRING-LENGTH
;     (SB-SIMPLE-STREAMS::%FILE-STRING-LENGTH STREAM SB-SIMPLE-STREAMS::OBJECT)
; ==>
;   STREAM
; 
; note: deleting unreachable code

; compiling (DEFUN STREAM-EXTERNAL-FORMAT ...)
; compiling (DEFUN OPEN ...)
; compiling (DECLAIM (INLINE READ-BYTE ...))
; compiling (DEFUN READ-BYTE ...)
; compiling (DEFUN READ-CHAR ...)
; compiling (DEFUN READ-CHAR-NO-HANG ...)
; compiling (DEFUN UNREAD-CHAR ...)
; compiling (DECLAIM (NOTINLINE READ-BYTE ...))
; compiling (DEFUN PEEK-CHAR ...)
; compiling (DEFUN LISTEN ...)
; compiling (DEFUN READ-LINE ...)
; compiling (DEFUN READ-SEQUENCE ...)
; compiling (DEFUN CLEAR-INPUT ...)
; compiling (DEFUN WRITE-BYTE ...)
; compiling (DEFUN WRITE-CHAR ...)
; compiling (DEFUN WRITE-STRING ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN WRITE-STRING
;     (DEFUN WRITE-STRING
;            (STRING
;             &OPTIONAL (STREAM *STANDARD-OUTPUT*)
;             &KEY (SB-SIMPLE-STREAMS::START 0) (SB-SIMPLE-STREAMS::END NIL))
;       "Outputs the String to the given Stream."
;       (LET ((STREAM (SB-INT:OUT-SYNONYM-OF STREAM))
;             (SB-SIMPLE-STREAMS::END
;              (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING
;                                                       SB-SIMPLE-STREAMS::START
;                                                       SB-SIMPLE-STREAMS::END)))
;         (ETYPECASE STREAM
;           (SB-SIMPLE-STREAMS:SIMPLE-STREAM
;            (SB-SIMPLE-STREAMS::%WRITE-STRING STREAM STRING
;             SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END)
;            STRING)
;           (SB-KERNEL:ANSI-STREAM
;            (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM
;                                               SB-SIMPLE-STREAMS::START
;                                               SB-SIMPLE-STREAMS::END))
;           (FUNDAMENTAL-STREAM
;            (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START
;                                 SB-SIMPLE-STREAMS::END)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WRITE-STRING
;         (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY
;                 (SB-SIMPLE-STREAMS::START 0) (SB-SIMPLE-STREAMS::END NIL))
;       (BLOCK WRITE-STRING
;         (LET ((STREAM #) (SB-SIMPLE-STREAMS::END #))
;           (ETYPECASE STREAM
;             (SB-SIMPLE-STREAMS:SIMPLE-STREAM # STRING)
;             (SB-KERNEL:ANSI-STREAM #)
;             (FUNDAMENTAL-STREAM #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL
;                                                             (STREAM
;                                                              *STANDARD-OUTPUT*)
;                                                             &KEY (START 0)
;                                                             (END NIL))

; compiling (DEFUN WRITE-LINE ...)
; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/impl.lisp
; in: DEFUN WRITE-LINE
;     (DEFUN WRITE-LINE
;            (STRING
;             &OPTIONAL (STREAM *STANDARD-OUTPUT*)
;             &KEY (SB-SIMPLE-STREAMS::START 0) SB-SIMPLE-STREAMS::END)
;       (DECLARE (TYPE STRING STRING))
;       (LET ((STREAM (SB-INT:OUT-SYNONYM-OF STREAM))
;             (SB-SIMPLE-STREAMS::END
;              (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING
;                                                       SB-SIMPLE-STREAMS::START
;                                                       SB-SIMPLE-STREAMS::END)))
;         (ETYPECASE STREAM
;           (SB-SIMPLE-STREAMS:SIMPLE-STREAM
;            (SB-SIMPLE-STREAMS::%CHECK STREAM :OUTPUT)
;            (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS #
;              #
;              #))
;           (SB-KERNEL:ANSI-STREAM
;            (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM
;                                               SB-SIMPLE-STREAMS::START
;                                               SB-SIMPLE-STREAMS::END)
;            (FUNCALL # STREAM #\Newline))
;           (FUNDAMENTAL-STREAM
;            (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START
;                                 SB-SIMPLE-STREAMS::END)
;            (STREAM-TERPRI STREAM))))
;       STRING)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WRITE-LINE
;         (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY
;                 (SB-SIMPLE-STREAMS::START 0) SB-SIMPLE-STREAMS::END)
;       (DECLARE (TYPE STRING STRING))
;       (BLOCK WRITE-LINE
;         (LET ((STREAM #) (SB-SIMPLE-STREAMS::END #))
;           (ETYPECASE STREAM
;             (SB-SIMPLE-STREAMS:SIMPLE-STREAM # #)
;             (SB-KERNEL:ANSI-STREAM # #)
;             (FUNDAMENTAL-STREAM # #)))
;         STRING))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL
;                                                             (STREAM
;                                                              *STANDARD-OUTPUT*)
;                                                             &KEY (START 0) END)

; compiling (DEFUN WRITE-SEQUENCE ...)
; compiling (DEFUN TERPRI ...)
; compiling (DEFUN FRESH-LINE ...)
; compiling (DEFUN FINISH-OUTPUT ...)
; compiling (DEFUN FORCE-OUTPUT ...)
; compiling (DEFUN CLEAR-OUTPUT ...)
; compiling (DEFUN FILE-POSITION ...)
; compiling (DEFUN FILE-LENGTH ...)
; compiling (DEFUN CHARPOS ...)
; compiling (DEFUN LINE-LENGTH ...)
; compiling (DEFUN WAIT-FOR-INPUT-AVAILABLE ...)
; compiling (DEFUN SB-INT:FILE-NAME ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;IMPL-TMP.FASL.NEWEST written
; compilation finished in 0:00:10.444
WARNING:
   Lisp compilation had style-warnings while
   compiling #<CL-SOURCE-FILE "sb-simple-streams" "impl">

; file: /«PKGBUILDDIR»/contrib/sb-simple-streams/internal.lisp
; in: DEFUN SB-SIMPLE-STREAMS:READ-OCTETS
;     (SB-SIMPLE-STREAMS::%READ-VECTOR SB-SIMPLE-STREAMS::BUFFER
;      SB-SIMPLE-STREAMS::FD SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END
;      :BYTE-8
;      (IF SB-SIMPLE-STREAMS::BLOCKING
;          :BNB
;          NIL))
; 
; caught STYLE-WARNING:
;   undefined function: SB-SIMPLE-STREAMS::%READ-VECTOR
; 
; compilation unit finished
;   Undefined function:
;     SB-SIMPLE-STREAMS::%READ-VECTOR
;   caught 3 STYLE-WARNING conditions
;   printed 8 notes
* echo "(defsystem :sb-simple-streams :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-simple-streams.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \
	--eval '(asdf::test-asdf-contrib "sb-simple-streams")'
STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN
STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for S_IFWHT (unknown to the C compiler).
STYLE-WARNING:
   Generic function OPEN-STREAM-P clobbers an earlier FTYPE proclamation
   (FUNCTION (STREAM) (VALUES (MEMBER T NIL) &OPTIONAL)) for the same name with
   (FUNCTION (T) *).
STYLE-WARNING:
   Generic function CLOSE clobbers an earlier FTYPE proclamation
   (FUNCTION (STREAM &KEY (:ABORT T)) (VALUES (MEMBER T) &OPTIONAL)) for the
   same name with (FUNCTION (T &KEY (:ABORT T)) *).
STYLE-WARNING: redefining COMMON-LISP:INTERACTIVE-STREAM-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FILE-STRING-LENGTH in DEFUN
STYLE-WARNING: redefining COMMON-LISP:STREAM-EXTERNAL-FORMAT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:OPEN in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-BYTE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-CHAR-NO-HANG in DEFUN
STYLE-WARNING: redefining COMMON-LISP:UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:PEEK-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:LISTEN in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-LINE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:READ-SEQUENCE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:CLEAR-INPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-BYTE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-CHAR in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-STRING in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-LINE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:WRITE-SEQUENCE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:TERPRI in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FRESH-LINE in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FINISH-OUTPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FORCE-OUTPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:CLEAR-OUTPUT in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FILE-POSITION in DEFUN
STYLE-WARNING: redefining COMMON-LISP:FILE-LENGTH in DEFUN
STYLE-WARNING: redefining SB-KERNEL:CHARPOS in DEFUN
STYLE-WARNING: redefining SB-KERNEL:LINE-LENGTH in DEFUN
STYLE-WARNING: redefining SB-INT:FILE-NAME in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-READ-CHAR in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-READ-CHARS in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-WRITE-CHAR in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-WRITE-CHARS in DEFUN
STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-LISTEN in DEFUN
; compiling file "/«PKGBUILDDIR»/contrib/sb-simple-streams/simple-stream-tests.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE SB-SIMPLE-STREAMS-TEST ...)
; compiling (IN-PACKAGE #:SB-SIMPLE-STREAMS-TEST)
; compiling (DEFPARAMETER *DUMB-STRING* ...)
; compiling (DEFPARAMETER *TEST-PATH* ...)
; compiling (DEFPARAMETER *TEST-FILE* ...)
; compiling (ENSURE-DIRECTORIES-EXIST *TEST-PATH* ...)
; compiling (DEFUN REMOVE-KEY ...)
; compiling (DEFUN CREATE-TEST-FILE ...)
; compiling (DEFUN REMOVE-TEST-FILE ...)
; compiling (DEFMACRO WITH-TEST-FILE ...)
; compiling (DEFTEST NON-EXISTENT-CLASS ...)
; compiling (DEFTEST NON-STREAM-CLASS ...)
; compiling (DEFTEST CREATE-FILE-1 ...)
; compiling (DEFTEST CREATE-FILE-2 ...)
; compiling (DEFTEST CREATE-READ-FILE-1 ...)
; compiling (DEFTEST CREATE-READ-MAPPED-FILE-1 ...)
; compiling (DEFTEST WRITE-READ-INET ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-1 ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-2 ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-3 ...)
; compiling (DEFTEST WRITE-READ-LARGE-DC-1 ...)
; compiling (DEFTEST FILE-POSITION-1 ...)
; compiling (DEFTEST FILE-POSITION-2 ...)
; compiling (DEFTEST FILE-POSITION-3 ...)
; compiling (DEFTEST FILE-POSITION-4 ...)
; compiling (DEFTEST FILE-POSITION-5 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-1 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-2 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-3 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-4 ...)
; compiling (DEFTEST WRITE-READ-APPEND-SC-1 ...)
; compiling (DEFTEST WRITE-READ-MIXED-SC-1 ...)
; compiling (DEFPARAMETER *MULTI-LINE-STRING* ...)
; compiling (DEFMACRO WITH-DC-TEST-STREAM ...)
; compiling (DEFMACRO WITH-SC-TEST-STREAM ...)
; compiling (DEFTEST LISTEN-DC-1 ...)
; compiling (DEFTEST LISTEN-DC-2 ...)
; compiling (DEFTEST LISTEN-DC-3 ...)
; compiling (DEFTEST CHARPOS-1 ...)
; compiling (DEFTEST CHARPOS-2 ...)
; compiling (DEFTEST READER-1 ...)
; compiling (DEFTEST LINE-LENGTH-DC-1 ...)
; compiling (DEFVAR *SYNONYM*)
; compiling (DEFTEST SYNONYM-STREAM-1 ...)
; compiling (DEFTEST SYNONYM-STREAM-2 ...)
; compiling (DEFTEST SYNONYM-STREAM-3 ...)
; compiling (DEFTEST SYNONYM-STREAM-4 ...)
; compiling (DEFTEST SYNONYM-STREAM-5 ...)
; compiling (DEFTEST SYNONYM-STREAM-6 ...)
; compiling (DEFTEST SYNONYM-STREAM-7 ...)
; compiling (DEFTEST SYNONYM-STREAM-8 ...)
; compiling (DEFTEST SYNONYM-STREAM-9 ...)
; compiling (DEFTEST SYNONYM-STREAM-10 ...)
; compiling (DEFTEST SYNONYM-STREAM-11 ...)
; compiling (DEFTEST SYNONYM-STREAM-12 ...)
; compiling (DEFTEST SYNONYM-STREAM-13 ...)
; compiling (DEFTEST SYNONYM-STREAM-14 ...)
; compiling (DEFTEST SYNONYM-STREAM-15 ...)
; compiling (DEFTEST SYNONYM-STREAM-16 ...)
; compiling (DEFTEST BROADCAST-STREAM-4 ...)
; compiling (DEFTEST BROADCAST-STREAM-5 ...)
; compiling (DEFTEST BROADCAST-STREAM-6 ...)
; compiling (DEFTEST BROADCAST-STREAM-9 ...)
; compiling (DEFTEST BROADCAST-STREAM-10 ...)
; compiling (DEFTEST BROADCAST-STREAM-11 ...)
; compiling (DEFTEST BROADCAST-STREAM-12 ...)
; compiling (DEFTEST BROADCAST-STREAM-13 ...)
; compiling (DEFTEST BROADCAST-STREAM-14 ...)
; compiling (DEFTEST BROADCAST-STREAM-16 ...)
; compiling (DEFTEST TWO-WAY-STREAM-1 ...)
; compiling (DEFTEST TWO-WAY-STREAM-2 ...)
; compiling (DEFTEST TWO-WAY-STREAM-3 ...)
; compiling (DEFTEST TWO-WAY-STREAM-4 ...)
; compiling (DEFTEST TWO-WAY-STREAM-5 ...)
; compiling (DEFTEST TWO-WAY-STREAM-6 ...)
; compiling (DEFTEST TWO-WAY-STREAM-7 ...)
; compiling (DEFTEST TWO-WAY-STREAM-8 ...)
; compiling (DEFTEST TWO-WAY-STREAM-9 ...)
; compiling (DEFTEST TWO-WAY-STREAM-10 ...)
; compiling (DEFTEST TWO-WAY-STREAM-11 ...)
; compiling (DEFTEST TWO-WAY-STREAM-12 ...)
; compiling (DEFTEST TWO-WAY-STREAM-13 ...)
; compiling (DEFTEST TWO-WAY-STREAM-14 ...)
; compiling (DEFTEST TWO-WAY-STREAM-16 ...)
; compiling (DEFTEST ECHO-STREAM-1 ...)
; compiling (DEFTEST ECHO-STREAM-2 ...)
; compiling (DEFTEST ECHO-STREAM-3 ...)
; compiling (DEFTEST ECHO-STREAM-7 ...)
; compiling (DEFTEST ECHO-STREAM-8 ...)
; compiling (DEFTEST ECHO-STREAM-11 ...)
; compiling (DEFTEST ECHO-STREAM-12 ...)
; compiling (DEFTEST ECHO-STREAM-13 ...)
; compiling (DEFTEST ECHO-STREAM-14 ...)
; compiling (DEFTEST ECHO-STREAM-16 ...)
; compiling (DEFTEST CONCATENATED-STREAM-1 ...)
; compiling (DEFTEST CONCATENATED-STREAM-2 ...)
; compiling (DEFTEST CONCATENATED-STREAM-3 ...)
; compiling (DEFTEST CONCATENATED-STREAM-7 ...)
; compiling (DEFTEST CONCATENATED-STREAM-8 ...)
; compiling (DEFTEST CONCATENATED-STREAM-11 ...)
; compiling (DEFTEST CONCATENATED-STREAM-12 ...)
; compiling (DEFTEST CONCATENATED-STREAM-13 ...)
; compiling (DEFTEST CONCATENATED-STREAM-14 ...)
; compiling (DEFTEST CONCATENATED-STREAM-16 ...)
; compiling (DEFTEST FILE-SIMPLE-STREAM-1 ...)
; compiling (DEFTEST STRING-SIMPLE-STREAM-1 ...)
; compiling (DEFTEST EXTERNAL-FORMAT-1 ...)
; compiling (DEFTEST LP491087 ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;SIMPLE-STREAM-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.953
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-sprof'
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-sprof" "sb-sprof") :output-file (parse-native-namestring "/«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.fasl"))' </dev/null
; compiling file "/«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.lisp" (written 30 MAY 2015 05:47:18 AM):
; compiling (DEFPACKAGE #:SB-SPROF ...)
; compiling (IN-PACKAGE #:SB-SPROF)
; compiling (DEFSTRUCT (VERTEX # ...) ...)
; compiling (DEFSTRUCT EDGE ...)
; compiling (DEFSTRUCT GRAPH ...)
; compiling (DECLAIM (INLINE SCC-P))
; compiling (DEFUN SCC-P ...)
; compiling (DEFMACRO DO-VERTICES ...)
; compiling (DEFMACRO DO-EDGES ...)
; compiling (DEFUN SELF-CYCLE-P ...)
; compiling (DEFUN MAP-VERTICES ...)
; compiling (DEFUN STRONG-COMPONENTS ...)
; compiling (DEFUN TOPOLOGICAL-SORT ...)
; compiling (DEFUN REDUCE-GRAPH ...)
; compiling (DEFTYPE ADDRESS ...)
; compiling (DEFCONSTANT +UNKNOWN-ADDRESS+ ...)
; compiling (DEFSTRUCT (CALL-GRAPH # ...) ...)
; compiling (DEFSTRUCT (NODE # ...) ...)
; compiling (DEFSTRUCT (CYCLE #))
; compiling (DEFSTRUCT (CALL # ...) ...)
; compiling (DEFVAR *SAMPLE-INTERVAL* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *ALLOC-INTERVAL* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *MAX-SAMPLES* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (SAMPLES) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFTYPE REPORT-TYPE ...)
; compiling (DEFVAR *SAMPLING-MODE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ALLOC-REGION-SIZE* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *SAMPLES* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *PROFILING* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SAMPLING* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *SHOW-PROGRESS* ...)
; compiling (DEFVAR *OLD-SAMPLING* ...)
; compiling (DEFVAR *ENCAPSULATIONS* ...)
; compiling (DEFUN TURN-OFF-SAMPLING ...)
; compiling (DEFUN TURN-ON-SAMPLING ...)
; compiling (DEFUN SHOW-PROGRESS ...)
; compiling (DEFUN START-SAMPLING ...)
; compiling (DEFUN STOP-SAMPLING ...)
; compiling (DEFMACRO WITH-SAMPLING ...)
; compiling (DECLAIM (INLINE DEBUG-INFO))
; compiling (DEFUN DEBUG-INFO ...)
; compiling (DEFUN ENSURE-SAMPLES-VECTOR ...)
; compiling (DECLAIM (INLINE RECORD))
; compiling (DEFUN RECORD ...)
; compiling (DEFUN RECORD-TRACE-START ...)
; compiling (DEFVAR *PROFILED-THREADS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *TIMER-THREAD* ...)
; compiling (DEFUN PROFILED-THREADS ...)
; compiling (DEFUN PROFILED-THREAD-P ...)
; compiling (DEFUN SIGPROF-HANDLER ...)
; compiling (DEFUN CODE-START ...)
; compiling (DEFUN CODE-BOUNDS ...)
; compiling (DEFMACRO WITH-PROFILING ...)
; compiling (DEFVAR *TIMER* ...)
; compiling (DEFVAR *OLD-ALLOC-INTERVAL* ...)
; compiling (DEFVAR *OLD-SAMPLE-INTERVAL* ...)
; compiling (DEFUN START-PROFILING ...)
; compiling (DEFUN STOP-PROFILING ...)
; compiling (DEFUN RESET ...)
; compiling (DEFUN MAKE-NODE ...)
; compiling (DEFVAR *NAME->NODE*)
; compiling (DEFMACRO WITH-LOOKUP-TABLES ...)
; compiling (DEFUN LOOKUP-NODE ...)
; compiling (DEFUN COLLECT-NODES ...)
; compiling (DEFUN MAKE-CALL-GRAPH-1 ...)
; compiling (DEFUN REDUCE-CALL-GRAPH ...)
; compiling (DEFUN COMPUTE-ACCRUED-COUNTS ...)
; compiling (DEFUN MAKE-CALL-GRAPH ...)
; compiling (DEFUN PRINT-SEPARATOR ...)
; compiling (DEFUN SAMPLES-PERCENT ...)
; compiling (DEFUN PRINT-CALL-GRAPH-HEADER ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REPORT-SORT-BY* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REPORT-SORT-ORDER* ...)
; compiling (DEFUN PRINT-FLAT ...)
; compiling (DEFUN PRINT-CYCLES ...)
; compiling (DEFUN PRINT-GRAPH ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN SAMPLE-PC-FROM-PC-OR-OFFSET ...)
; compiling (DEFUN ADD-DISASSEMBLY-PROFILE-NOTE ...)
; compiling (PUSHNEW (QUOTE ADD-DISASSEMBLY-PROFILE-NOTE) ...)
; compiling (DEFUN PROFILE-CALL-COUNTS ...)
; compiling (DEFUN PROFILE-CALL-COUNTS-FOR-FUNCTION ...)
; compiling (DEFUN UNPROFILE-CALL-COUNTS ...)
; compiling (DEFUN ENABLE-CALL-COUNTING ...)
; compiling (DEFUN DISABLE-CALL-COUNTING ...)
; compiling (DEFUN ENABLE-CALL-COUNTING-FOR-FUNCTION ...)
; file: /«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.lisp
; in: DEFUN ENABLE-CALL-COUNTING-FOR-FUNCTION
;     (INCF (THE (UNSIGNED-BYTE 59) (CAR SB-INT:INFO)))
; --> LET* 
; ==>
;   (+ 1 (THE (UNSIGNED-BYTE 59) (CAR #:INFO4198)))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 59), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 576460752303423487) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 59), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 576460752303423487) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       etc.

; compiling (PROVIDE (QUOTE SB-SPROF))
; file: /«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.lisp
; in: DEFUN START-PROFILING
;     #'SB-SPROF::THREAD-DISTRIBUTION-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: THREAD-DISTRIBUTION-HANDLER
; 
; compilation unit finished
;   Undefined function:
;     THREAD-DISTRIBUTION-HANDLER
;   caught 1 STYLE-WARNING condition
;   printed 1 note


; /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.fasl written
; compilation finished in 0:00:07.570
* echo "(defsystem :sb-sprof :class require-system)" > /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.asd
/«PKGBUILDDIR»/src/runtime/sbcl --noinform --core /«PKGBUILDDIR»/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(load (format nil "SYS:CONTRIB;~:@(~A~);TEST.LISP" "sb-sprof"))' </dev/null

Number of samples:   1000
Sample interval:     0.01 seconds
Total sampling time: 10.0 seconds
Number of cycles:    0
Sampled threads:

                               Callers
                 Total.     Function
 Count     %  Count     %      Callees
------------------------------------------------------------------------
     1   0.1                   TEST-0 [1]
   606  60.6    998  99.8   TEST-0 [1]
   196  19.6                   SB-KERNEL:TWO-ARG-< [2]
     1   0.1                   TEST-0 [1]
   196  19.6                   SB-KERNEL:TWO-ARG-+ [3]
------------------------------------------------------------------------
   196  19.6                   TEST-0 [1]
   198  19.8    198  19.8   SB-KERNEL:TWO-ARG-< [2]
------------------------------------------------------------------------
   196  19.6                   TEST-0 [1]
   196  19.6    196  19.6   SB-KERNEL:TWO-ARG-+ [3]
------------------------------------------------------------------------


           Self        Total        Cumul
  Nr  Count     %  Count     %  Count     %    Calls  Function
------------------------------------------------------------------------
   1    606  60.6    998  99.8    606  60.6        -  TEST-0
   2    198  19.8    198  19.8    804  80.4        -  SB-KERNEL:TWO-ARG-<
   3    196  19.6    196  19.6   1000 100.0        -  SB-KERNEL:TWO-ARG-+
------------------------------------------------------------------------
          0   0.0                                     elsewhere
.

Number of samples:   107
Sample interval:     0.1 seconds
Total sampling time: 10.7 seconds
Number of cycles:    0
Sampled threads:

                               Callers
                 Total.     Function
 Count     %  Count     %      Callees
------------------------------------------------------------------------
    60  56.1     60  56.1   "foreign function sigprocmask" [1]
------------------------------------------------------------------------
    34  31.8                   CONSING-TEST [4]
    34  31.8     34  31.8   SB-VM::ALLOCATE-VECTOR-ON-HEAP [2]
------------------------------------------------------------------------
    13  12.1                   CONSING-TEST [4]
    13  12.1     13  12.1   CONSALOT [3]
------------------------------------------------------------------------
     0   0.0     47  43.9   CONSING-TEST [4]
    13  12.1                   CONSALOT [3]
    34  31.8                   SB-VM::ALLOCATE-VECTOR-ON-HEAP [2]
------------------------------------------------------------------------


           Self        Total        Cumul
  Nr  Count     %  Count     %  Count     %    Calls  Function
------------------------------------------------------------------------
   1     60  56.1     60  56.1     60  56.1        -  "foreign function sigprocmask"
   2     34  31.8     34  31.8     94  87.9        -  SB-VM::ALLOCATE-VECTOR-ON-HEAP
   3     13  12.1     13  12.1    107 100.0        -  CONSALOT
   4      0   0.0     47  43.9    107 100.0        -  CONSING-TEST
------------------------------------------------------------------------
          0   0.0                                     elsewhere
; disassembly for CONSALOT
; Size: 216 bytes. Origin: #x51C1E9D0
; 9D0:       21049AE5         LDR R0, [NULL, #1057]           ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; 9D4:       08008BE5         STR R0, [CFP, #8]
; 9D8:       0A30A0E1         MOV LEXENV, NULL
; 9DC:       719DA0E3         MOV NFP, 7232
; 9E0:       029989E3         ORR NFP, NFP, #32768
; 9E4:       190000EA         B L2
; 9E8: L0:   049049E2         SUB NFP, NFP, #4
; 9EC:       D60FA0E3         MOV R0, 856
; 9F0:       2810A0E3         MOV R1, 40
; 9F4:       2820A0E3         MOV R2, 40                      ; 1/107 samples
; 9F8:       84E09FE5         LDR LR, [PC, #132]
; 9FC:       3EFF2FE1         BLX LR
; A00:       0010A0E1         MOV R1, R0
; A04:       51F48AE5         STR PC, [NULL, #1105]           ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; A08:       94709FE5         LDR OCFP, [PC, #148]
; A0C:       000097E5         LDR R0, [OCFP]
; A10:       047097E5         LDR OCFP, [OCFP, #4]
; A14:       080080E2         ADD R0, R0, #8
; A18:       070050E1         CMP R0, OCFP
; A1C:       1900008A         BHI L3
; A20:       7C709FE5         LDR OCFP, [PC, #124]
; A24:       000087E5         STR R0, [OCFP]
; A28:       080040E2         SUB R0, R0, #8
; A2C: L1:   030080E3         ORR R0, R0, #3
; A30:       51A48AE5         STR NULL, [NULL, #1105]         ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; A34:       69749AE5         LDR OCFP, [NULL, #1129]         ; SB-VM::*PSEUDO-ATOMIC-INTERRUPTED*
                                                              ; 1/107 samples
; A38:       0A0057E1         CMP OCFP, NULL
; A3C:       2771A0B1         MOVLT OCFP, OCFP, LSR #2
; A40:       000000BF         SWILT #0
; A44:       031000E5         STR R1, [R0, #-3]               ; 7/107 samples
; A48:       013080E5         STR LEXENV, [R0, #1]            ; 3/107 samples
; A4C:       0030A0E1         MOV LEXENV, R0                  ; 1/107 samples
; A50: L2:   000059E3         CMP NFP, 0
; A54:       E3FFFFCA         BGT L0
; A58:       0300A0E1         MOV R0, LEXENV
; A5C:       00709BE5         LDR OCFP, [CFP]
; A60:       04109BE5         LDR R1, [CFP, #4]
; A64:       09B48AE5         STR CFP, [NULL, #1033]          ; SB-VM::*CONTROL-STACK-POINTER*
; A68:       07B0A0E1         MOV CFP, OCFP
; A6C:       00F028E3         MSR CPSR_f, #0
; A70:       03F041E2         SUB PC, R1, #3
; A74:       00000000         ANDEQ R0, R0, R0
; A78:       F001F0E70A       DEBUG-TRAP 10                   ; Error trap
; A7D:       04               BYTE #X04
; A7E:       19               BYTE #X19                       ; INVALID-ARG-COUNT-ERROR
; A7F:       FE0403           BYTE #XFE, #X04, #X03           ; NARGS
; A82:       .ALIGN           4
; A84:       30010004         STREQ R0, [R0], #-304
; A88: L3:   0800A0E3         MOV R0, 8
; A8C:       01402DE9         BYTE #X01, #X40, #X2D, #XE9
; A90:       08009FE5         LDR R0, [PC, #8]
; A94:       30FF2FE1         BLX R0
; A98:       0140BDE8         BYTE #X01, #X40, #XBD, #XE8
; A9C:       E2FFFFEA         B L1
; AA0:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; AA4:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
* make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-sprof'
543.31user 27.62system 9:33.38elapsed 99%CPU (0avgtext+0avgdata 112208maxresident)k
0inputs+166088outputs (0major+635526minor)pagefaults 0swaps

The build seems to have finished successfully, including 18 (out of 18)
contributed modules. If you would like to run more extensive tests on
the new SBCL, you can try:

  cd tests && sh ./run-tests.sh

  (All tests should pass on x86/Linux, x86/FreeBSD4, and ppc/Darwin. On
  other platforms some failures are currently expected; patches welcome
  as always.)

To build documentation:

  cd doc/manual && make

To install SBCL (more information in INSTALL):

  sh install.sh

//build started:  Thu Jun 11 07:51:42 UTC 2015
//build finished: Thu Jun 11 08:43:45 UTC 2015
make -C doc/internals all html
make[1]: Entering directory '/«PKGBUILDDIR»/doc/internals'
sh make-top.sh
dot -Tps -Gsize="5,5" -Gratio=compress -Gconcentrate=true discriminating-functions.dot > discriminating-functions.eps
epstopdf discriminating-functions.eps > discriminating-functions.pdf
texi2dvi -p sbcl-internals.texinfo
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=pdfetex)
 restricted \write18 enabled.
entering extended mode
(./sbcl-internals.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) [1{/var/lib/t
exmf/fonts/map/pdftex/updmap/pdftex.map}] [2] [-1] (./top-include.include
(./build.texinfo Chapter 1) (./calling-convention.texinfo Chapter 2 [1]
[2] [3] [4]) (./discriminating-functions.texinfo Chapter 3 [5] <./discriminatin
g-functions.pdf>
Underfull \hbox (badness 10000) in paragraph at lines 58--71
@texttt SB-PCL::DEFAULT-METHOD-ONLY[]@textrm , @texttt SB-PCL::CONSTANT-VALUE[]
@textrm ), for slot ac-cess
[6] Cross reference values unknown; you must run TeX again. [7] [8])
(./foreign-linkage.texinfo Chapter 4 [9] [10]
Overfull \hbox (46.26114pt too wide) in paragraph at lines 81--86
[]@textrm Find a mem-ory area for the linkage-table, and add it for the OS in @
texttt src/compiler/target/parms.lisp[]|

Overfull \hbox (11.37679pt too wide) in paragraph at lines 93--95
[]@textrm Define cor-rect @texttt SB!VM:LINKAGE-TABLE-ENTRY-SIZE[] @textrm in @
texttt src/compiler/target/parms.lisp[]@textrm . |
[11] [12]) (./funcallable-instances.texinfo Chapter 5 [13])
(./objects-in-memory.texinfo Chapter 6 [14] [15] [16]) (./signals.texinfo
Chapter 7 [17] [18] [19]
Overfull \hbox (0.9929pt too wide) in paragraph at lines 93--95
[]@textrm Signal han-dlers au-to-mat-i-cally re-store er-rno and fp state, but 
ar-range[]return[]to[]lisp[]function|
[20]) (./slot-value.texinfo Chapter 8 [21]
Underfull \hbox (badness 10000) in paragraph at lines 20--30
[]@textrm The ANSI Com-mon Lisp stan-dard spec-i-fies @texttt slot-value[]@text
rm , @texttt (setf slot-value)[]@textrm ,

Underfull \hbox (badness 10000) in paragraph at lines 20--30
@texttt using-class[]@textrm , @texttt (setf slot-value-using-class)[]@textrm ,
 @texttt slot-boundp-using-class[] @textrm and

Overfull \hbox (14.94176pt too wide) in paragraph at lines 82--82
 []        @texttt (values (slot-unbound class object (slot-definition-name slo
td)))[] |
[22] [23]) (./specials.texinfo Chapter 9 [24]) (./string-types.texinfo
Chapter 10 [25]) (./threads.texinfo Chapter 11 [26] [27])) [28] )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmr10.pfb></usr/share/texlive/texmf-dist/fonts/typ
e1/public/amsfonts/cm/cmr7.pfb></usr/share/texlive/texmf-dist/fonts/type1/publi
c/amsfonts/cm/cmr9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfon
ts/cm/cmsl10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/
cmsltt10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy
10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb
></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb></usr
/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt12.pfb></usr/share
/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on sbcl-internals.pdf (31 pages, 217863 bytes).
Transcript written on sbcl-internals.log.
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=pdfetex)
 restricted \write18 enabled.
entering extended mode
(./sbcl-internals.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.)
(./sbcl-internals.aux) [1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}]
[2] (./sbcl-internals.toc [-1]) [-2] (./sbcl-internals.toc)
(./sbcl-internals.toc) (./top-include.include (./build.texinfo Chapter 1)
(./calling-convention.texinfo Chapter 2 [1] [2] [3] [4])
(./discriminating-functions.texinfo Chapter 3 [5] <./discriminating-functions.p
df>
Underfull \hbox (badness 10000) in paragraph at lines 58--71
@texttt SB-PCL::DEFAULT-METHOD-ONLY[]@textrm , @texttt SB-PCL::CONSTANT-VALUE[]
@textrm ), for slot ac-cess
[6] [7] [8]) (./foreign-linkage.texinfo Chapter 4 [9]
Overfull \hbox (46.26114pt too wide) in paragraph at lines 81--86
[]@textrm Find a mem-ory area for the linkage-table, and add it for the OS in @
texttt src/compiler/target/parms.lisp[]|
[10]
Overfull \hbox (11.37679pt too wide) in paragraph at lines 93--95
[]@textrm Define cor-rect @texttt SB!VM:LINKAGE-TABLE-ENTRY-SIZE[] @textrm in @
texttt src/compiler/target/parms.lisp[]@textrm . |
[11] [12]) (./funcallable-instances.texinfo Chapter 5 [13])
(./objects-in-memory.texinfo Chapter 6 [14] [15] [16]) (./signals.texinfo
Chapter 7 [17] [18] [19]
Overfull \hbox (0.9929pt too wide) in paragraph at lines 93--95
[]@textrm Signal han-dlers au-to-mat-i-cally re-store er-rno and fp state, but 
ar-range[]return[]to[]lisp[]function|
[20]) (./slot-value.texinfo Chapter 8 [21]
Underfull \hbox (badness 10000) in paragraph at lines 20--30
[]@textrm The ANSI Com-mon Lisp stan-dard spec-i-fies @texttt slot-value[]@text
rm , @texttt (setf slot-value)[]@textrm ,

Underfull \hbox (badness 10000) in paragraph at lines 20--30
@texttt using-class[]@textrm , @texttt (setf slot-value-using-class)[]@textrm ,
 @texttt slot-boundp-using-class[] @textrm and

Overfull \hbox (14.94176pt too wide) in paragraph at lines 82--82
 []        @texttt (values (slot-unbound class object (slot-definition-name slo
td)))[] |
[22] [23]) (./specials.texinfo Chapter 9 [24]) (./string-types.texinfo
Chapter 10 [25]) (./threads.texinfo Chapter 11 [26] [27])) [28] )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmmi10.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmmi12.pfb></usr/share/texlive/texmf-dist/fonts/type1/pu
blic/amsfonts/cm/cmr10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmr7.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/c
m/cmr9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl10
.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsltt10.pfb
></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb></usr
/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb></usr/share
/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb></usr/share/texli
ve/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt12.pfb></usr/share/texlive/tex
mf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on sbcl-internals.pdf (32 pages, 241609 bytes).
Transcript written on sbcl-internals.log.
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=pdfetex)
 restricted \write18 enabled.
entering extended mode
(./sbcl-internals.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.)
(./sbcl-internals.aux) [1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}]
[2] (./sbcl-internals.toc [-1]) [-2] (./sbcl-internals.toc)
(./sbcl-internals.toc) (./top-include.include (./build.texinfo Chapter 1)
(./calling-convention.texinfo Chapter 2 [1] [2] [3] [4])
(./discriminating-functions.texinfo Chapter 3 [5] <./discriminating-functions.p
df>
Underfull \hbox (badness 10000) in paragraph at lines 58--71
@texttt SB-PCL::DEFAULT-METHOD-ONLY[]@textrm , @texttt SB-PCL::CONSTANT-VALUE[]
@textrm ), for slot ac-cess
[6] [7] [8]) (./foreign-linkage.texinfo Chapter 4 [9]
Overfull \hbox (46.26114pt too wide) in paragraph at lines 81--86
[]@textrm Find a mem-ory area for the linkage-table, and add it for the OS in @
texttt src/compiler/target/parms.lisp[]|
[10]
Overfull \hbox (11.37679pt too wide) in paragraph at lines 93--95
[]@textrm Define cor-rect @texttt SB!VM:LINKAGE-TABLE-ENTRY-SIZE[] @textrm in @
texttt src/compiler/target/parms.lisp[]@textrm . |
[11] [12]) (./funcallable-instances.texinfo Chapter 5 [13])
(./objects-in-memory.texinfo Chapter 6 [14] [15] [16]) (./signals.texinfo
Chapter 7 [17] [18] [19]
Overfull \hbox (0.9929pt too wide) in paragraph at lines 93--95
[]@textrm Signal han-dlers au-to-mat-i-cally re-store er-rno and fp state, but 
ar-range[]return[]to[]lisp[]function|
[20]) (./slot-value.texinfo Chapter 8 [21]
Underfull \hbox (badness 10000) in paragraph at lines 20--30
[]@textrm The ANSI Com-mon Lisp stan-dard spec-i-fies @texttt slot-value[]@text
rm , @texttt (setf slot-value)[]@textrm ,

Underfull \hbox (badness 10000) in paragraph at lines 20--30
@texttt using-class[]@textrm , @texttt (setf slot-value-using-class)[]@textrm ,
 @texttt slot-boundp-using-class[] @textrm and

Overfull \hbox (14.94176pt too wide) in paragraph at lines 82--82
 []        @texttt (values (slot-unbound class object (slot-definition-name slo
td)))[] |
[22] [23]) (./specials.texinfo Chapter 9 [24]) (./string-types.texinfo
Chapter 10 [25]) (./threads.texinfo Chapter 11 [26] [27])) [28] )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texmf-dist/fo
nts/type1/public/amsfonts/cm/cmmi10.pfb></usr/share/texlive/texmf-dist/fonts/ty
pe1/public/amsfonts/cm/cmmi12.pfb></usr/share/texlive/texmf-dist/fonts/type1/pu
blic/amsfonts/cm/cmr10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmr7.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/c
m/cmr9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl10
.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsltt10.pfb
></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb></usr
/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb></usr/share
/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb></usr/share/texli
ve/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt12.pfb></usr/share/texlive/tex
mf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on sbcl-internals.pdf (32 pages, 241609 bytes).
Transcript written on sbcl-internals.log.
# FIXME.
dot -Tcanon discriminating-functions.dot > discriminating-functions.txt
makeinfo  sbcl-internals.texinfo -o sbcl-internals.info
sbcl-internals.texinfo:7: warning: multiple @settitle
dot -Tpng -Gsize="5,5" -Gratio=compress -Gconcentrate=true discriminating-functions.dot > discriminating-functions.png
makeinfo --html sbcl-internals.texinfo 
sbcl-internals.texinfo:7: warning: multiple @settitle
# FIXME
cp -f *.png sbcl-internals
touch html-stamp
rm discriminating-functions.eps
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/internals'
GNUMAKE=make sh -c 'cd tests && sh ./run-tests.sh' || printf "the tests failed\n"
/running tests on '/«PKGBUILDDIR»/tests/../src/runtime/sbcl --core /«PKGBUILDDIR»/tests/../output/sbcl.core --noinform --no-sysinit --no-userinit --noprint --disable-debugger'
// Running pure tests (#<FUNCTION RUN-TESTS::LOAD-TEST>)
// Running /«PKGBUILDDIR»/tests/arith.pure.lisp

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT-ERROR (/ 2/3 0)
;     (/ 2/3 0)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was SB-KERNEL::BUILD-RATIO, operands (1 0).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT-ERROR (/ (1+ MOST-POSITIVE-FIXNUM) 0)
;     (/ (1+ MOST-POSITIVE-FIXNUM) 0)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was SB-KERNEL::BUILD-RATIO, operands (1 0).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT-ERROR (COERCE 1 '(FLOAT 2.0 3.0))
;     (COERCE 1 '(FLOAT 2.0 3.0))
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   1 can't be converted to type (FLOAT 2.0 3.0).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT-ERROR (COERCE 1 '(SINGLE-FLOAT -1.0 0.0))
;     (COERCE 1 '(SINGLE-FLOAT -1.0 0.0))
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   1 can't be converted to type (SINGLE-FLOAT -1.0 0.0).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT (NULL (IGNORE-ERRORS (MIN '(1 2 3))))
;     (MIN '(1 2 3))
; --> LET VALUES PROG1 LET 
; ==>
;   (THE REAL #:ARG05)
; 
; caught WARNING:
;   Derived type of #:ARG05 is
;     (VALUES CONS &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT (NULL (IGNORE-ERRORS (MIN 1 #(1 2 3))))
;     (MIN 1 #(1 2 3))
; --> LET LET MIN LET VALUES PROG1 LET 
; ==>
;   (THE REAL #:ARG06)
; 
; caught WARNING:
;   Derived type of #:ARG06 is
;     (VALUES (SIMPLE-VECTOR 3) &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT (NULL (IGNORE-ERRORS (MIN (FIND-PACKAGE "CL") -5.0)))
;     (MIN (FIND-PACKAGE "CL") -5.0)
; --> LET LET IF 
; ==>
;   (<= #:ARG05 SB-C::MINREST)
; 
; caught WARNING:
;   Derived type of #:ARG05 is
;     (VALUES (OR PACKAGE NULL) &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT (NULL (IGNORE-ERRORS (MAX #C(4 3))))
;     (MAX #C(4 3))
; --> LET VALUES PROG1 LET 
; ==>
;   (THE REAL #:ARG05)
; 
; caught WARNING:
;   Derived type of #:ARG05 is
;     (VALUES (COMPLEX (INTEGER 3 4)) &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT (NULL (IGNORE-ERRORS (MAX "MIX" 3)))
;     (MAX "MIX" 3)
; --> LET LET IF 
; ==>
;   (>= #:ARG05 SB-C::MAXREST)
; 
; caught WARNING:
;   Derived type of #:ARG05 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: ASSERT (NULL (IGNORE-ERRORS (MAX 3 #'MAX)))
;     (MAX 3 #'MAX)
; --> LET LET MAX LET VALUES PROG1 LET 
; ==>
;   (THE REAL #:ARG06)
; 
; caught WARNING:
;   Derived type of #:ARG06 is
;     (VALUES (FUNCTION (REAL &REST REAL) (VALUES REAL &OPTIONAL)) &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :NUMERIC-INEQUALITY-&REST-ARGUMENTS
::: Success :NUMERIC-INEQUALITY-&REST-ARGUMENTS
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 277986140))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 365109113))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 403159007))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 412463073))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 249825579))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 418932835))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 202810917))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 272223514))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 201354591))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 506296336))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 354364135))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 521672420))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 386068313))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 398121722))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 433100049))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 410567859))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 455737655))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 352904362))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 471852626))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 474059800))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 206613081))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 215952988))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 201989947))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 200838193))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 483031418))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 181279081))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 362892203))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 205851834))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 478004096))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 425757125))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 373337164))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 253374061))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 242062374))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 230790747))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 496701133))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 507375100))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 428460270))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 202240050))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 209874315))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 198370322))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 222965182))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 348090279))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 203065689))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 285831984))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 525827778))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 198304612))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 417177801))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 511395289))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 315498953))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 308822170))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 299911649))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 288190067))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 323076225))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 496451144))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 273779942))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 365970188))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 219972873))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 194132110))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 265740808))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 492909323))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 356435708))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 303165418))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 483479859))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 188871064))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 362344182))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 197030727))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (Y)
;     (LAMBDA (Y)
;       (DECLARE (OPTIMIZE SPEED)
;                (TYPE (INTEGER 0 3) Y))
;       (* Y 247093872))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (A B C D)
;     (LAMBDA (A B C D)
;       (DECLARE (TYPE (INTEGER -1621 -513) A)
;                (TYPE (INTEGER -3 34163) B)
;                (TYPE (INTEGER -9485132993 81272960) C)
;                (TYPE (INTEGER -255340814 519943) D)
;                (IGNORABLE A B C D)
;                (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
;       (TRUNCATE C (MIN -100 4149605)))
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF AND THE <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9485132993), not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER -9485132993), not a (SIGNED-BYTE 32).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (MOD X 0)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (TRUNCATE X 0)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 0)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (FLOOR X 0)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 0)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
::: Running :LOGCOUNT
::: Success :LOGCOUNT
::: Running :ATANH
::: Success :ATANH
::: Running :CONSTANT-INTEGERS
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ X 1))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 1))
; ==>
;   (SETQ Z (+ X 1))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ X 1) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 2 Y))
; ==>
;   (SETQ Z (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (+ X 1))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 1))
; ==>
;   (SETQ Z (+ X 1))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (+ X 1) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 2 Y))
; ==>
;   (SETQ Z (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (+ 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 2))
; ==>
;   (SETQ Z (+ X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 2 Y))
; ==>
;   (SETQ Z (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (+ X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 2))
; ==>
;   (SETQ Z (+ X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (+ X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 2 Y))
; ==>
;   (SETQ Z (+ 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (+ 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2 4294967297) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483647 2147483648) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 2)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 2 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483646 2147483649) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 268435455))
; ==>
;   (SETQ Z (+ X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ X 268435455) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 268435457 Y))
; ==>
;   (SETQ Z (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (+ X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 268435455))
; ==>
;   (SETQ Z (+ X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (+ X 268435455) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 268435457 Y))
; ==>
;   (SETQ Z (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (+ 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 268435457))
; ==>
;   (SETQ Z (+ X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ X 268435457) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 268435457 Y))
; ==>
;   (SETQ Z (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (+ 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (+ X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ X 268435457))
; ==>
;   (SETQ Z (+ X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (+ X 268435457) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (+ 268435457 Y))
; ==>
;   (SETQ Z (+ 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (+ 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741826)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741826)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741826)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741826)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741826)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741826)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741826 5368709121) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741827)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741827)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741827)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741827)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741827)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X 1073741827)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (UNSIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1073741827 5368709122) &OPTIONAL), not a (VALUES
;                                                                                  (SIGNED-BYTE
;                                                                                   32)
;                                                                                  &REST
;                                                                                  T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870909)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870909)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870909)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870909)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870909)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870909)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2684354557 1610612738) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870914)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870914)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870914)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870914)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870914)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ X -536870914)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (+ -536870914 Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354562 1610612733) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- X 1))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 1))
; ==>
;   (SETQ Z (- X 1))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- X 1) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 2 Y))
; ==>
;   (SETQ Z (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (- X 1))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 1))
; ==>
;   (SETQ Z (- X 1))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (- X 1) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 2 Y))
; ==>
;   (SETQ Z (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (- 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 2))
; ==>
;   (SETQ Z (- X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 2 Y))
; ==>
;   (SETQ Z (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (- X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 2))
; ==>
;   (SETQ Z (- X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (- X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 2 Y))
; ==>
;   (SETQ Z (- 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (- 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1 4294967294) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2 4294967293) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967293 2) &OPTIONAL), not a (VALUES
;                                                                          (SIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 2)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483650 2147483645) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 2 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2147483645 2147483650) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 268435455))
; ==>
;   (SETQ Z (- X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- X 268435455) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 268435457 Y))
; ==>
;   (SETQ Z (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (- X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 268435455))
; ==>
;   (SETQ Z (- X 268435455))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (- X 268435455) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 268435457 Y))
; ==>
;   (SETQ Z (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (- 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 268435457))
; ==>
;   (SETQ Z (- X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- X 268435457) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 268435457 Y))
; ==>
;   (SETQ Z (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (- 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (- X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- X 268435457))
; ==>
;   (SETQ Z (- X 268435457))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (- X 268435457) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (- 268435457 Y))
; ==>
;   (SETQ Z (- 268435457 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (- 268435457 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741826)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741826)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741826)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741826)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741826)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741826)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741826 3221225469) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741827)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741827)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741827)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741827)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741827)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X 1073741827)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741827 3221225468) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -3221225468 1073741827) &OPTIONAL), not a (VALUES
;                                                                                   (UNSIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870909)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870909)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870909)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870909)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870909)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870909)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1610612739 2684354556) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870914)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870914)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870914)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870914)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870914)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- X -536870914)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -1610612734 2684354561) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (- -536870914 Y)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES (INTEGER -2684354561 1610612734) &OPTIONAL), not a (VALUES
;                                                                                   (SIGNED-BYTE
;                                                                                    32)
;                                                                                   &REST
;                                                                                   T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (* 2 Y))
; ==>
;   (SETQ Z (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (* 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (* 2 Y))
; ==>
;   (SETQ Z (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (* 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (* X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (* X 2))
; ==>
;   (SETQ Z (* X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (* X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (* 2 Y))
; ==>
;   (SETQ Z (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (* 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (* X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (* X 2))
; ==>
;   (SETQ Z (* X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (* X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (* 2 Y))
; ==>
;   (SETQ Z (* 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE FIXNUM X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (* 2 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 2)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 2 Y)
; ==>
;   (ASH SB-C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435455)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435455)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435455)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435455)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435455)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435455)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115187538984960 144115187270549505)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435457)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435457)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435457)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435457)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435457)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 268435457)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 268435457 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -144115188612726784 144115188344291327)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741826)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741826)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741826)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741826)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741826)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741826)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686025943580671) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741827)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741827)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741827)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741827)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741827)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X 1073741827)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* 1073741827 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (UNSIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4611686030238547966) &OPTIONAL), not a (VALUES
;                                                                            (SIGNED-BYTE
;                                                                             32)
;                                                                            &REST
;                                                                            T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870909)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870909)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870909)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870909)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870909)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870909)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1152921497627525123 1152921498164396032)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870914)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870914)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870914)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870914)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870914)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* X -536870914)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (* -536870914 Y)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES
;                        (INTEGER -1152921508364943358 1152921508901814272)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (UNSIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (TRUNCATE X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (TRUNCATE X 2))
; ==>
;   (SETQ Z (TRUNCATE X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (UNSIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (TRUNCATE X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (UNSIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (TRUNCATE X 2))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (TRUNCATE X 2))
; ==>
;   (SETQ Z (TRUNCATE X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (UNSIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (VALUES (TRUNCATE X 2) X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (TRUNCATE 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (TRUNCATE 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 2)
; --> IF VALUES - SB-KERNEL:%NEGATE THE ASH - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> IF VALUES - SB-KERNEL:%NEGATE THE LOGAND - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> IF VALUES - SB-KERNEL:%NEGATE THE ASH - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: doing signed word to integer coercion (cost 20) from X, for:
;       the first argument of static-fun %Negate

; --> IF VALUES - SB-KERNEL:%NEGATE THE LOGAND - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: doing signed word to integer coercion (cost 20) from X, for:
;       the first argument of static-fun %Negate

; --> IF 
; ==>
;   (VALUES (- (ASH (- SB-C::X) -1)) (- (LOGAND (- SB-C::X) 1)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (VALUES (ASH SB-C::X -1) (LOGAND SB-C::X 1))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 6 notes
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 2)
; --> IF VALUES - SB-KERNEL:%NEGATE THE ASH - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

;     (SETF Z (TRUNCATE X 2))
; ==>
;   (SETQ Z (TRUNCATE X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 2)
; --> IF VALUES - SB-KERNEL:%NEGATE THE ASH - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> IF VALUES 
; ==>
;   SB-C::VAL
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 3 notes
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (TRUNCATE 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 2)
; --> IF VALUES - SB-KERNEL:%NEGATE THE ASH - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> IF VALUES - SB-KERNEL:%NEGATE THE LOGAND - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> IF 
; ==>
;   (VALUES (- (ASH (- SB-C::X) -1)) (- (LOGAND (- SB-C::X) 1)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (VALUES (ASH SB-C::X -1) (LOGAND SB-C::X 1))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 4 notes
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 2)
; --> IF VALUES - SB-KERNEL:%NEGATE THE ASH - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

;     (SETF Z (TRUNCATE X 2))
; ==>
;   (SETQ Z (TRUNCATE X 2))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 2)
; --> IF VALUES - SB-KERNEL:%NEGATE THE ASH - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 1 2147483648) &OPTIONAL), not a (VALUES
;                                                                         (SIGNED-BYTE
;                                                                          32)
;                                                                         &REST T).

; --> IF VALUES 
; ==>
;   SB-C::VAL
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 3 notes
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (TRUNCATE 2 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435455)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435455)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435455)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435455)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435455)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435455)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435457)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435457)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435457)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435457)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435457)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 268435457)
; 
; note: unable to
;   convert integer division to multiplication
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 1073741826)
; --> LET* 
; ==>
;   (VALUES SB-C::QUOT REM)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 1073741826)
; --> LET* 
; ==>
;   (VALUES SB-C::QUOT REM)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 1073741827)
; --> LET* 
; ==>
;   (VALUES SB-C::QUOT REM)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (TRUNCATE X 1073741827)
; --> LET* 
; ==>
;   (VALUES SB-C::QUOT REM)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (TRUNCATE -536870914 Y))
; ==>
;   (SETQ Z (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (TRUNCATE -536870914 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (TRUNCATE -536870914 Y))
; ==>
;   (SETQ Z (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (TRUNCATE -536870914 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (TRUNCATE X -536870914))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (TRUNCATE -536870914 Y))
; ==>
;   (SETQ Z (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (VALUES (TRUNCATE -536870914 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY X)
;       (TRUNCATE X -536870914))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X Y &AUX Z)
;     (SETF Z (TRUNCATE -536870914 Y))
; ==>
;   (SETQ Z (TRUNCATE -536870914 Y))
; 
; note: doing signed word to integer coercion (cost 20) to Z
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y &AUX Z)
;     (LAMBDA (X Y &AUX Z)
;       (DECLARE (TYPE (SIGNED-BYTE 32) X Y)
;                (IGNORABLE X Y Z)
;                (NOTINLINE IDENTITY)
;                (OPTIMIZE SPEED (SAFETY 0)))
;       (IDENTITY Y)
;       (VALUES (TRUNCATE -536870914 Y) Y))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
::: Success :CONSTANT-INTEGERS
::: Running :GCD
::: Success :GCD

; file: /«PKGBUILDDIR»/tests/arith.pure.lisp
; in: WITH-TEST (:NAME :EXPT-ZERO-ZERO)
;     (EXPT 0.0 0.0)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error SB-INT:ARGUMENTS-OUT-OF-DOMAIN-ERROR signalled
;   Operation was EXPT, operands (0.0 0.0).
;   See also:
;     The ANSI Standard, Function EXPT

;     (EXPT 0 0.0)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error SB-INT:ARGUMENTS-OUT-OF-DOMAIN-ERROR signalled
;   Operation was EXPT, operands (0 0.0).
;   See also:
;     The ANSI Standard, Function EXPT
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running :EXPT-ZERO-ZERO
::: Success :EXPT-ZERO-ZERO
::: Running :MULTIPLE-CONSTANT-FOLDING

(:OK (+ #:G674 4 10 -10 -6 1 #:G673) :=> -10) 
(:OK (+ #:G674 4 10 -10 -6 1 #:G673) :=> 6) 
(:OK (+ #:G674 4 10 -10 -6 1 #:G673) :=> 2) 
(:OK (+ #:G678 #:G677 -9 #:G676 #:G675) :=> 12) 
(:OK (+ #:G678 #:G677 -9 #:G676 #:G675) :=> -11) 
(:OK (+ #:G678 #:G677 -9 #:G676 #:G675) :=> 4) 
(:OK (+ #:G684 2 #:G683 #:G682 -9 #:G681 -5 9 #:G680 -2 -2 #:G679) :=> 0) 
(:OK (+ #:G684 2 #:G683 #:G682 -9 #:G681 -5 9 #:G680 -2 -2 #:G679) :=> -11) 
(:OK (+ #:G684 2 #:G683 #:G682 -9 #:G681 -5 9 #:G680 -2 -2 #:G679) :=> -9) 
(:OK (+ #:G686 8 #:G685 -7) :=> -3) 
(:OK (+ #:G686 8 #:G685 -7) :=> -16) 
(:OK (+ #:G686 8 #:G685 -7) :=> 4) 
(:OK (+ -10 -4 #:G688 6 #:G687) :=> 9) 
(:OK (+ -10 -4 #:G688 6 #:G687) :=> 0) 
(:OK (+ -10 -4 #:G688 6 #:G687) :=> -27) 
(:OK (+ 0) :=> 0) 
(:OK (+ 0) :=> 0) 
(:OK (+ 0) :=> 0) 
(:OK (+ #:G690 8 #:G689) :=> 3) 
(:OK (+ #:G690 8 #:G689) :=> 20) 
(:OK (+ #:G690 8 #:G689) :=> -7) 
(:OK (+ #:G695 -5 #:G694 4 9 -8 8 #:G693 -1 #:G692 #:G691 -2) :=> 21) 
(:OK (+ #:G695 -5 #:G694 4 9 -8 8 #:G693 -1 #:G692 #:G691 -2) :=> 25) 
(:OK (+ #:G695 -5 #:G694 4 9 -8 8 #:G693 -1 #:G692 #:G691 -2) :=> -11) 
(:OK (+ 8 #:G699 #:G698 #:G697 #:G696 -7) :=> 5) 
(:OK (+ 8 #:G699 #:G698 #:G697 #:G696 -7) :=> 9) 
(:OK (+ 8 #:G699 #:G698 #:G697 #:G696 -7) :=> 4) 
(:OK (+ -7 9 -10 #:G703 -8 #:G702 -10 #:G701 #:G700 6) :=> 7) 
(:OK (+ -7 9 -10 #:G703 -8 #:G702 -10 #:G701 #:G700 6) :=> -3) 
(:OK (+ -7 9 -10 #:G703 -8 #:G702 -10 #:G701 #:G700 6) :=> -17) 
(:OK (* 10 #:G711 #:G710 #:G709 #:G708 #:G707 #:G706 #:G705 3 #:G704 -2) :=>
 8294400) 
(:OK (* 10 #:G711 #:G710 #:G709 #:G708 #:G707 #:G706 #:G705 3 #:G704 -2) :=> 0) 
(:OK (* 10 #:G711 #:G710 #:G709 #:G708 #:G707 #:G706 #:G705 3 #:G704 -2) :=> 0) 
(:OK (* #:G713 #:G712) :=> 7) 
(:OK (* #:G713 #:G712) :=> -49) 
(:OK (* #:G713 #:G712) :=> 16) 
(:OK (* #:G715 9 #:G714 -7 -2 -8) :=> 9072) 
(:OK (* #:G715 9 #:G714 -7 -2 -8) :=> -18144) 
(:OK (* #:G715 9 #:G714 -7 -2 -8) :=> -40320) 
(:OK (* #:G719 8 #:G718 #:G717 8 -2 -9 -5 #:G716 -1) :=> 345600) 
(:OK (* #:G719 8 #:G718 #:G717 8 -2 -9 -5 #:G716 -1) :=> -16128000) 
(:OK (* #:G719 8 #:G718 #:G717 8 -2 -9 -5 #:G716 -1) :=> -33177600) 
(:OK (* -9 10 #:G720 -2 -8) :=> 1440) 
(:OK (* -9 10 #:G720 -2 -8) :=> 14400) 
(:OK (* -9 10 #:G720 -2 -8) :=> -4320) 
(:OK (* #:G722 #:G721 -4 9 -3 -4) :=> 864) 
(:OK (* #:G722 #:G721 -4 9 -3 -4) :=> -13824) 
(:OK (* #:G722 #:G721 -4 9 -3 -4) :=> -17280) 
(:OK (* #:G723) :=> 1) 
(:OK (* #:G723) :=> 4) 
(:OK (* #:G723) :=> -8) 
(:OK (* -3 5 #:G725 #:G724 0) :=> 0) 
(:OK (* -3 5 #:G725 #:G724 0) :=> 0) 
(:OK (* -3 5 #:G725 #:G724 0) :=> 0) 
(:OK (* #:G727 -3 #:G726 4 10) :=> 1200) 
(:OK (* #:G727 -3 #:G726 4 10) :=> 960) 
(:OK (* #:G727 -3 #:G726 4 10) :=> -4800) 
(:OK (* -1 -10 -7 #:G728) :=> -140) 
(:OK (* -1 -10 -7 #:G728) :=> -700) 
(:OK (* -1 -10 -7 #:G728) :=> -350) 
(:OK (LOGIOR #:G735 -1 #:G734 #:G733 #:G732 9 -9 #:G731 #:G730 1 -8 #:G729) :=>
 -1) 
(:OK (LOGIOR #:G735 -1 #:G734 #:G733 #:G732 9 -9 #:G731 #:G730 1 -8 #:G729) :=>
 -1) 
(:OK (LOGIOR #:G735 -1 #:G734 #:G733 #:G732 9 -9 #:G731 #:G730 1 -8 #:G729) :=>
 -1) 
(:OK (LOGIOR 0 #:G737 0 #:G736 -6) :=> -5) 
(:OK (LOGIOR 0 #:G737 0 #:G736 -6) :=> -6) 
(:OK (LOGIOR 0 #:G737 0 #:G736 -6) :=> -1) 
(:OK (LOGIOR -3 #:G743 -10 #:G742 -10 -7 #:G741 #:G740 #:G739 #:G738) :=> -1) 
(:OK (LOGIOR -3 #:G743 -10 #:G742 -10 -7 #:G741 #:G740 #:G739 #:G738) :=> -1) 
(:OK (LOGIOR -3 #:G743 -10 #:G742 -10 -7 #:G741 #:G740 #:G739 #:G738) :=> -1) 
(:OK (LOGIOR 4 -3 -2 #:G749 #:G748 #:G747 #:G746 #:G745 #:G744 4) :=> -1) 
(:OK (LOGIOR 4 -3 -2 #:G749 #:G748 #:G747 #:G746 #:G745 #:G744 4) :=> -1) 
(:OK (LOGIOR 4 -3 -2 #:G749 #:G748 #:G747 #:G746 #:G745 #:G744 4) :=> -1) 
(:OK (LOGIOR -3 7) :=> -1) 
(:OK (LOGIOR -3 7) :=> -1) 
(:OK (LOGIOR -3 7) :=> -1) 
(:OK (LOGIOR #:G754 #:G753 -6 5 -5 #:G752 -4 #:G751 #:G750) :=> -1) 
(:OK (LOGIOR #:G754 #:G753 -6 5 -5 #:G752 -4 #:G751 #:G750) :=> -1) 
(:OK (LOGIOR #:G754 #:G753 -6 5 -5 #:G752 -4 #:G751 #:G750) :=> -1) 
(:OK (LOGIOR #:G759 #:G758 #:G757 8 -4 0 #:G756 #:G755) :=> -1) 
(:OK (LOGIOR #:G759 #:G758 #:G757 8 -4 0 #:G756 #:G755) :=> -1) 
(:OK (LOGIOR #:G759 #:G758 #:G757 8 -4 0 #:G756 #:G755) :=> -1) 
(:OK (LOGIOR 6 -6) :=> -2) 
(:OK (LOGIOR 6 -6) :=> -2) 
(:OK (LOGIOR 6 -6) :=> -2) 
(:OK (LOGIOR 8 -8 #:G760) :=> -2) 
(:OK (LOGIOR 8 -8 #:G760) :=> -2) 
(:OK (LOGIOR 8 -8 #:G760) :=> -2) 
(:OK (LOGIOR -2 #:G765 #:G764 3 #:G763 #:G762 2 #:G761) :=> -1) 
(:OK (LOGIOR -2 #:G765 #:G764 3 #:G763 #:G762 2 #:G761) :=> -1) 
(:OK (LOGIOR -2 #:G765 #:G764 3 #:G763 #:G762 2 #:G761) :=> -1) 
(:OK (LOGXOR -5 #:G770 #:G769 #:G768 -2 #:G767 2 #:G766) :=> 11) 
(:OK (LOGXOR -5 #:G770 #:G769 #:G768 -2 #:G767 2 #:G766) :=> 2) 
(:OK (LOGXOR -5 #:G770 #:G769 #:G768 -2 #:G767 2 #:G766) :=> 0) 
(:OK (LOGXOR #:G776 #:G775 #:G774 #:G773 1 #:G772 -8 -3 4 -9 #:G771) :=> 15) 
(:OK (LOGXOR #:G776 #:G775 #:G774 #:G773 1 #:G772 -8 -3 4 -9 #:G771) :=> 2) 
(:OK (LOGXOR #:G776 #:G775 #:G774 #:G773 1 #:G772 -8 -3 4 -9 #:G771) :=> -4) 
(:OK (LOGXOR -8 8 10 2 #:G780 #:G779 #:G778 #:G777) :=> -13) 
(:OK (LOGXOR -8 8 10 2 #:G780 #:G779 #:G778 #:G777) :=> -14) 
(:OK (LOGXOR -8 8 10 2 #:G780 #:G779 #:G778 #:G777) :=> 1) 
(:OK (LOGXOR #:G781) :=> 8) 
(:OK (LOGXOR #:G781) :=> 10) 
(:OK (LOGXOR #:G781) :=> -9) 
(:OK (LOGXOR #:G787 #:G786 8 #:G785 -9 #:G784 2 #:G783 3 -9 #:G782) :=> 15) 
(:OK (LOGXOR #:G787 #:G786 8 #:G785 -9 #:G784 2 #:G783 3 -9 #:G782) :=> 8) 
(:OK (LOGXOR #:G787 #:G786 8 #:G785 -9 #:G784 2 #:G783 3 -9 #:G782) :=> 8) 
(:OK (LOGXOR 5 2 -10 #:G789 #:G788) :=> 12) 
(:OK (LOGXOR 5 2 -10 #:G789 #:G788) :=> 2) 
(:OK (LOGXOR 5 2 -10 #:G789 #:G788) :=> 8) 
(:OK (LOGXOR #:G792 #:G791 #:G790) :=> 0) 
(:OK (LOGXOR #:G792 #:G791 #:G790) :=> 11) 
(:OK (LOGXOR #:G792 #:G791 #:G790) :=> 2) 
(:OK (LOGXOR #:G795 #:G794 #:G793) :=> -2) 
(:OK (LOGXOR #:G795 #:G794 #:G793) :=> 12) 
(:OK (LOGXOR #:G795 #:G794 #:G793) :=> -16) 
(:OK (LOGXOR -5 6 8 3 0 #:G797 #:G796) :=> -16) 
(:OK (LOGXOR -5 6 8 3 0 #:G797 #:G796) :=> 15) 
(:OK (LOGXOR -5 6 8 3 0 #:G797 #:G796) :=> 13) 
(:OK (LOGXOR -10 #:G799 8 5 -9 #:G798 -7 10 3) :=> -15) 
(:OK (LOGXOR -10 #:G799 8 5 -9 #:G798 -7 10 3) :=> -16) 
(:OK (LOGXOR -10 #:G799 8 5 -9 #:G798 -7 10 3) :=> -15) 
(:OK (LOGAND -10 -7 #:G801 #:G800) :=> -16) 
(:OK (LOGAND -10 -7 #:G801 #:G800) :=> 0) 
(:OK (LOGAND -10 -7 #:G801 #:G800) :=> 0) 
(:OK (LOGAND #:G802) :=> 2) 
(:OK (LOGAND #:G802) :=> -9) 
(:OK (LOGAND #:G802) :=> 9) 
(:OK (LOGAND 9 -5 #:G807 #:G806 #:G805 -9 #:G804 #:G803) :=> 0) 
(:OK (LOGAND 9 -5 #:G807 #:G806 #:G805 -9 #:G804 #:G803) :=> 0) 
(:OK (LOGAND 9 -5 #:G807 #:G806 #:G805 -9 #:G804 #:G803) :=> 0) 
(:OK (LOGAND #:G808 0) :=> 0) 
(:OK (LOGAND #:G808 0) :=> 0) 
(:OK (LOGAND #:G808 0) :=> 0) 
(:OK (LOGAND -3 #:G810 #:G809 8) :=> 8) 
(:OK (LOGAND -3 #:G810 #:G809 8) :=> 0) 
(:OK (LOGAND -3 #:G810 #:G809 8) :=> 0) 
(:OK (LOGAND 8 #:G811 8 -7) :=> 8) 
(:OK (LOGAND 8 #:G811 8 -7) :=> 8) 
(:OK (LOGAND 8 #:G811 8 -7) :=> 0) 
(:OK (LOGAND -5 6 #:G812 5) :=> 0) 
(:OK (LOGAND -5 6 #:G812 5) :=> 0) 
(:OK (LOGAND -5 6 #:G812 5) :=> 0) 
(:OK (LOGAND #:G816 #:G815 #:G814 10 9 #:G813) :=> 8) 
(:OK (LOGAND #:G816 #:G815 #:G814 10 9 #:G813) :=> 0) 
(:OK (LOGAND #:G816 #:G815 #:G814 10 9 #:G813) :=> 0) 
(:OK (LOGAND 5 0 #:G823 #:G822 #:G821 #:G820 #:G819 #:G818 #:G817) :=> 0) 
(:OK (LOGAND 5 0 #:G823 #:G822 #:G821 #:G820 #:G819 #:G818 #:G817) :=> 0) 
(:OK (LOGAND 5 0 #:G823 #:G822 #:G821 #:G820 #:G819 #:G818 #:G817) :=> 0) 
(:OK (LOGAND 7 8 3 -3 #:G826 #:G825 2 #:G824 10 -5 -4) :=> 0) 
(:OK (LOGAND 7 8 3 -3 #:G826 #:G825 2 #:G824 10 -5 -4) :=> 0) 
(:OK (LOGAND 7 8 3 -3 #:G826 #:G825 2 #:G824 10 -5 -4) :=> 0) 
(:OK (LOGEQV -6 -6 8 #:G829 #:G828 5 #:G827 -3) :=> -14) 
(:OK (LOGEQV -6 -6 8 #:G829 #:G828 5 #:G827 -3) :=> 7) 
(:OK (LOGEQV -6 -6 8 #:G829 #:G828 5 #:G827 -3) :=> 12) 
(:OK (LOGEQV #:G832 #:G831 -5 -7 #:G830) :=> 4) 
(:OK (LOGEQV #:G832 #:G831 -5 -7 #:G830) :=> 0) 
(:OK (LOGEQV #:G832 #:G831 -5 -7 #:G830) :=> -14) 
(:OK (LOGEQV #:G833) :=> 1) 
(:OK (LOGEQV #:G833) :=> 8) 
(:OK (LOGEQV #:G833) :=> -10) 
(:OK (LOGEQV 1 -1 7 9 #:G835 -4 #:G834 4 4 -8) :=> -5) 
(:OK (LOGEQV 1 -1 7 9 #:G835 -4 #:G834 4 4 -8) :=> 10) 
(:OK (LOGEQV 1 -1 7 9 #:G835 -4 #:G834 4 4 -8) :=> -10) 
(:OK (LOGEQV #:G839 7 -10 -3 #:G838 #:G837 -4 #:G836) :=> 7) 
(:OK (LOGEQV #:G839 7 -10 -3 #:G838 #:G837 -4 #:G836) :=> -2) 
(:OK (LOGEQV #:G839 7 -10 -3 #:G838 #:G837 -4 #:G836) :=> -4) 
(:OK (LOGEQV -8 7 #:G840 6 9) :=> -12) 
(:OK (LOGEQV -8 7 #:G840 6 9) :=> 9) 
(:OK (LOGEQV -8 7 #:G840 6 9) :=> 12) 
(:OK (LOGEQV #:G841) :=> 0) 
(:OK (LOGEQV #:G841) :=> 0) 
(:OK (LOGEQV #:G841) :=> 1) 
(:OK (LOGEQV #:G842 2 0 -5 -4 -4 -9) :=> 4) 
(:OK (LOGEQV #:G842 2 0 -5 -4 -4 -9) :=> -12) 
(:OK (LOGEQV #:G842 2 0 -5 -4 -4 -9) :=> -16) 
(:OK (LOGEQV 8 #:G845 10 #:G844 2 #:G843 2) :=> -10) 
(:OK (LOGEQV 8 #:G845 10 #:G844 2 #:G843 2) :=> 10) 
(:OK (LOGEQV 8 #:G845 10 #:G844 2 #:G843 2) :=> 3) 
(:OK (LOGEQV #:G850 4 #:G849 #:G848 8 #:G847 -8 #:G846) :=> 3) 
(:OK (LOGEQV #:G850 4 #:G849 #:G848 8 #:G847 -8 #:G846) :=> 4) 
(:OK (LOGEQV #:G850 4 #:G849 #:G848 8 #:G847 -8 #:G846) :=> -16) 
(:OK (GCD -2) :=> 2) 
(:OK (GCD -2) :=> 2) 
(:OK (GCD -2) :=> 2) 
(:OK (GCD 1 6 7 #:G855 #:G854 #:G853 #:G852 #:G851) :=> 1) 
(:OK (GCD 1 6 7 #:G855 #:G854 #:G853 #:G852 #:G851) :=> 1) 
(:OK (GCD 1 6 7 #:G855 #:G854 #:G853 #:G852 #:G851) :=> 1) 
(:OK (GCD 8 #:G859 0 #:G858 #:G857 1 8 10 1 #:G856) :=> 1) 
(:OK (GCD 8 #:G859 0 #:G858 #:G857 1 8 10 1 #:G856) :=> 1) 
(:OK (GCD 8 #:G859 0 #:G858 #:G857 1 8 10 1 #:G856) :=> 1) 
(:OK (GCD #:G863 #:G862 #:G861 -10 0 8 -7 #:G860 0) :=> 1) 
(:OK (GCD #:G863 #:G862 #:G861 -10 0 8 -7 #:G860 0) :=> 1) 
(:OK (GCD #:G863 #:G862 #:G861 -10 0 8 -7 #:G860 0) :=> 1) 
(:OK (GCD 0 4 3 #:G864) :=> 1) 
(:OK (GCD 0 4 3 #:G864) :=> 1) 
(:OK (GCD 0 4 3 #:G864) :=> 1) 
(:OK (GCD #:G869 1 2 -2 -3 #:G868 -6 #:G867 #:G866 -8 #:G865) :=> 1) 
(:OK (GCD #:G869 1 2 -2 -3 #:G868 -6 #:G867 #:G866 -8 #:G865) :=> 1) 
(:OK (GCD #:G869 1 2 -2 -3 #:G868 -6 #:G867 #:G866 -8 #:G865) :=> 1) 
(:OK (GCD #:G870 -6) :=> 1) 
(:OK (GCD #:G870 -6) :=> 1) 
(:OK (GCD #:G870 -6) :=> 1) 
(:OK (GCD -3 #:G872 #:G871) :=> 1) 
(:OK (GCD -3 #:G872 #:G871) :=> 1) 
(:OK (GCD -3 #:G872 #:G871) :=> 1) 
(:OK (GCD 0 -7 #:G875 -8 #:G874 -3 #:G873 1) :=> 1) 
(:OK (GCD 0 -7 #:G875 -8 #:G874 -3 #:G873 1) :=> 1) 
(:OK (GCD 0 -7 #:G875 -8 #:G874 -3 #:G873 1) :=> 1) 
(:OK (GCD #:G883 #:G882 #:G881 -10 #:G880 6 #:G879 #:G878 #:G877 #:G876 1) :=>
 1) 
(:OK (GCD #:G883 #:G882 #:G881 -10 #:G880 6 #:G879 #:G878 #:G877 #:G876 1) :=>
 1) 
(:OK (GCD #:G883 #:G882 #:G881 -10 #:G880 6 #:G879 #:G878 #:G877 #:G876 1) :=>
 1) 
(:OK (LCM #:G885 #:G884) :=> 0) 
(:OK (LCM #:G885 #:G884) :=> 90) 
(:OK (LCM #:G885 #:G884) :=> 0) 
(:OK (LCM 10 #:G888 #:G887 #:G886) :=> 90) 
(:OK (LCM 10 #:G888 #:G887 #:G886) :=> 0) 
(:OK (LCM 10 #:G888 #:G887 #:G886) :=> 280) 
(:OK (LCM -3 8 -9 10 #:G893 #:G892 #:G891 #:G890 -7 #:G889) :=> 2520) 
(:OK (LCM -3 8 -9 10 #:G893 #:G892 #:G891 #:G890 -7 #:G889) :=> 0) 
(:OK (LCM -3 8 -9 10 #:G893 #:G892 #:G891 #:G890 -7 #:G889) :=> 2520) 
(:OK (LCM 4) :=> 4) 
(:OK (LCM 4) :=> 4) 
(:OK (LCM 4) :=> 4) 
(:OK (LCM 3 #:G897 -4 #:G896 5 -1 #:G895 10 #:G894 -6 0) :=> 0) 
(:OK (LCM 3 #:G897 -4 #:G896 5 -1 #:G895 10 #:G894 -6 0) :=> 0) 
(:OK (LCM 3 #:G897 -4 #:G896 5 -1 #:G895 10 #:G894 -6 0) :=> 0) 
(:OK (LCM #:G898 3) :=> 12) 
(:OK (LCM #:G898 3) :=> 0) 
(:OK (LCM #:G898 3) :=> 21) 
(:OK (LCM 2) :=> 2) 
(:OK (LCM 2) :=> 2) 
(:OK (LCM 2) :=> 2) 
(:OK (LCM -2 #:G905 #:G904 #:G903 #:G902 -9 #:G901 9 0 #:G900 #:G899) :=> 0) 
(:OK (LCM -2 #:G905 #:G904 #:G903 #:G902 -9 #:G901 9 0 #:G900 #:G899) :=> 0) 
(:OK (LCM -2 #:G905 #:G904 #:G903 #:G902 -9 #:G901 9 0 #:G900 #:G899) :=> 0) 
(:OK (LCM -6 #:G907 8 1 -9 #:G906 3) :=> 360) 
(:OK (LCM -6 #:G907 8 1 -9 #:G906 3) :=> 0) 
(:OK (LCM -6 #:G907 8 1 -9 #:G906 3) :=> 72) 
(:OK (LCM -6 #:G911 #:G910 -10 #:G909 -3 #:G908) :=> 90) 
(:OK (LCM -6 #:G911 #:G910 -10 #:G909 -3 #:G908) :=> 90) 
(:OK (LCM -6 #:G911 #:G910 -10 #:G909 -3 #:G908) :=> 210) 
(:OK (- 10 #:G913 #:G912) :=> 23) 
(:OK (- 10 #:G913 #:G912) :=> 16) 
(:OK (- 10 #:G913 #:G912) :=> 25) 
(:OK (- 6 #:G915 8 -3 -4 #:G914 0 -10 5) :=> 9) 
(:OK (- 6 #:G915 8 -3 -4 #:G914 0 -10 5) :=> -3) 
(:OK (- 6 #:G915 8 -3 -4 #:G914 0 -10 5) :=> 7) 
(:OK (- #:G919 7 6 0 -9 #:G918 -8 #:G917 #:G916 4 -10) :=> 24) 
(:OK (- #:G919 7 6 0 -9 #:G918 -8 #:G917 #:G916 4 -10) :=> -5) 
(:OK (- #:G919 7 6 0 -9 #:G918 -8 #:G917 #:G916 4 -10) :=> 0) 
(:OK (- -2 -6 0 #:G922 #:G921 2 1 #:G920) :=> 6) 
(:OK (- -2 -6 0 #:G922 #:G921 2 1 #:G920) :=> -3) 
(:OK (- -2 -6 0 #:G922 #:G921 2 1 #:G920) :=> 13) 
(:OK (- 0 10) :=> -10) 
(:OK (- 0 10) :=> -10) 
(:OK (- 0 10) :=> -10) 
(:OK (- #:G923 -1) :=> -8) 
(:OK (- #:G923 -1) :=> -3) 
(:OK (- #:G923 -1) :=> -5) 
(:OK (- -4 #:G929 -8 #:G928 6 #:G927 -10 #:G926 #:G925 #:G924) :=> 0) 
(:OK (- -4 #:G929 -8 #:G928 6 #:G927 -10 #:G926 #:G925 #:G924) :=> 25) 
(:OK (- -4 #:G929 -8 #:G928 6 #:G927 -10 #:G926 #:G925 #:G924) :=> 16) 
(:OK (- 6 #:G932 8 4 #:G931 #:G930) :=> -3) 
(:OK (- 6 #:G932 8 4 #:G931 #:G930) :=> 14) 
(:OK (- 6 #:G932 8 4 #:G931 #:G930) :=> -7) 
(:OK (- #:G933) :=> -5) 
(:OK (- #:G933) :=> -4) 
(:OK (- #:G933) :=> 7) 
(:OK (- -5 #:G936 #:G935 #:G934) :=> 1) 
(:OK (- -5 #:G936 #:G935 #:G934) :=> 7) 
(:OK (- -5 #:G936 #:G935 #:G934) :=> -8) 
(:OK (/ -1 #:G939 #:G938 -2 5 -9 -6 #:G937 -9) :=> :DIV0) 
(:OK (/ -1 #:G939 #:G938 -2 5 -9 -6 #:G937 -9) :=> :DIV0) 
(:OK (/ -1 #:G939 #:G938 -2 5 -9 -6 #:G937 -9) :=> 1/1312200) 
(:OK (/ #:G942 #:G941 #:G940) :=> 5/72) 
(:OK (/ #:G942 #:G941 #:G940) :=> 1/45) 
(:OK (/ #:G942 #:G941 #:G940) :=> 1/5) 
(:OK (/ 2 #:G948 #:G947 10 #:G946 6 1 -3 2 #:G945 #:G944 #:G943) :=> :DIV0) 
(:OK (/ 2 #:G948 #:G947 10 #:G946 6 1 -3 2 #:G945 #:G944 #:G943) :=> -1/1890000) 
(:OK (/ 2 #:G948 #:G947 10 #:G946 6 1 -3 2 #:G945 #:G944 #:G943) :=> :DIV0) 
(:OK (/ #:G953 9 7 4 9 #:G952 #:G951 #:G950 #:G949) :=> -1/163296) 
(:OK (/ #:G953 9 7 4 9 #:G952 #:G951 #:G950 #:G949) :=> 1/15120) 
(:OK (/ #:G953 9 7 4 9 #:G952 #:G951 #:G950 #:G949) :=> 1/60480) 
(:OK (/ -2 #:G957 #:G956 #:G955 #:G954 3) :=> 1/1764) 
(:OK (/ -2 #:G957 #:G956 #:G955 #:G954 3) :=> 1/216) 
(:OK (/ -2 #:G957 #:G956 #:G955 #:G954 3) :=> 1/360) 
(:OK (/ #:G960 #:G959 -2 -4 #:G958 9) :=> -1/864) 
(:OK (/ #:G960 #:G959 -2 -4 #:G958 9) :=> 1/1296) 
(:OK (/ #:G960 #:G959 -2 -4 #:G958 9) :=> 5/288) 
(:OK (/ -3 8) :=> -3/8) 
(:OK (/ -3 8) :=> -3/8) 
(:OK (/ -3 8) :=> -3/8) 
(:OK (/ #:G965 -9 #:G964 #:G963 10 #:G962 #:G961) :=> 1/1215) 
(:OK (/ #:G965 -9 #:G964 #:G963 10 #:G962 #:G961) :=> -1/58320) 
(:OK (/ #:G965 -9 #:G964 #:G963 10 #:G962 #:G961) :=> 1/2160) 
(:OK (/ 2 #:G969 7 -4 #:G968 8 #:G967 #:G966 -3) :=> -1/100800) 
(:OK (/ 2 #:G969 7 -4 #:G968 8 #:G967 #:G966 -3) :=> 1/145152) 
(:OK (/ 2 #:G969 7 -4 #:G968 8 #:G967 #:G966 -3) :=> 1/403200) 
(:OK (/ -2 9 #:G972 #:G971 #:G970) :=> -1/810) 
(:OK (/ -2 9 #:G972 #:G971 #:G970) :=> -1/2025) 
(:OK (/ -2 9 #:G972 #:G971 #:G970) :=> -1/504) 
::: Success :MULTIPLE-CONSTANT-FOLDING
::: SKIPPED-DISABLED (:INTEGER-DIVISION-USING-MULTIPLICATION :USED)
    Test disabled for this combination of platform and features
::: Running (:INTEGER-DIVISION-USING-MULTIPLICATION :CORRECTNESS)
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (UNSIGNED-BYTE 32) X))
;       (TRUNCATE X 7))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 7)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (VALUES SB-C::TRU REM)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (VALUES (+ SB-C::TRU 1) (- REM SB-C::DIVISOR))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (FLOOR X 7)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (UNSIGNED-BYTE 32) X))
;       (TRUNCATE X 3))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 3)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (VALUES SB-C::TRU REM)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (VALUES (+ SB-C::TRU 1) (- REM SB-C::DIVISOR))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (FLOOR X 3)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (UNSIGNED-BYTE 32) X))
;       (TRUNCATE X 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 4294967295)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* LDB SB-KERNEL:%LDB 
; ==>
;   (- SB-C::X (* SB-C::QUOT 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline (unsigned-byte 32) arithmetic
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (FLOOR X 4294967295)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (UNSIGNED-BYTE 32) X))
;       (MOD X 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 4294967295)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G2) (#:KEEPER3) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (DECLARE (IGNORE #:G2))
;       #:KEEPER3)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (UNSIGNED-BYTE 32) X))
;       (TRUNCATE X 2663808777))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 2663808777)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* LDB SB-KERNEL:%LDB 
; ==>
;   (- SB-C::X (* SB-C::QUOT 2663808777))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline (unsigned-byte 32) arithmetic
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (FLOOR X 2663808777)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (UNSIGNED-BYTE 32) X))
;       (MOD X 2663808777))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 2663808777)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G2) (#:KEEPER3) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (DECLARE (IGNORE #:G2))
;       #:KEEPER3)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (AND FIXNUM UNSIGNED-BYTE) X))
;       (TRUNCATE X 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 4294967295)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* LDB SB-KERNEL:%LDB 
; ==>
;   (- SB-C::X (* SB-C::QUOT 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline (unsigned-byte 32) arithmetic
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (FLOOR X 4294967295)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (AND FIXNUM UNSIGNED-BYTE) X))
;       (MOD X 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 4294967295)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G2) (#:KEEPER3) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (DECLARE (IGNORE #:G2))
;       #:KEEPER3)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (TRUNCATE X 644930562)
; --> LET* 
; ==>
;   (VALUES SB-C::QUOT REM)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 644930562)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (VALUES SB-C::TRU REM)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (VALUES (+ SB-C::TRU 1) (- REM SB-C::DIVISOR))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 3 notes
; in: LAMBDA (X)
;     (FLOOR X 644930562)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (AND FIXNUM UNSIGNED-BYTE) X))
;       (MOD X 644930562))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 644930562)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G2) (#:KEEPER3) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (DECLARE (IGNORE #:G2))
;       #:KEEPER3)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (AND FIXNUM UNSIGNED-BYTE) X))
;       (TRUNCATE X 3987432172))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 3987432172)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET* LDB SB-KERNEL:%LDB 
; ==>
;   (- SB-C::X (* SB-C::QUOT 3987432172))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of inline (unsigned-byte 32) arithmetic
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (FLOOR X 3987432172)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (AND FIXNUM UNSIGNED-BYTE) X))
;       (MOD X 3987432172))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 3987432172)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G2) (#:KEEPER3) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (DECLARE (IGNORE #:G2))
;       #:KEEPER3)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (INTEGER 10000 10100) X))
;       (TRUNCATE X 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 4294967295)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 
; ==>
;   (- REM SB-C::DIVISOR)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg--
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (FLOOR X 4294967295)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (INTEGER 10000 10100) X))
;       (MOD X 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 4294967295)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G2) (#:KEEPER3) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (DECLARE (IGNORE #:G2))
;       #:KEEPER3)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (TRUNCATE X 767118443)
; --> LET* 
; ==>
;   (VALUES SB-C::QUOT REM)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (CEILING X 767118443)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP = 
; --> EQL IF EQL EQ IF 
; ==>
;   (EQ SB-C::Y SB-C::X)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF 
; ==>
;   (VALUES (+ SB-C::TRU 1) (- REM SB-C::DIVISOR))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (FLOOR X 767118443)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (SB-C::TRU) (REM) &REST #:G2)
;       (DECLARE (IGNORE #:G2))
;       (IF (AND (NOT (ZEROP REM))
;                (IF (MINUSP SB-C::DIVISOR)
;                    (PLUSP NUMBER)
;                    (MINUSP NUMBER)))
;           (VALUES (1- SB-C::TRU) (+ REM SB-C::DIVISOR))
;           (VALUES SB-C::TRU REM)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 1) (COMPILATION-SPEED 0))
;                (TYPE (INTEGER 10000 10100) X))
;       (MOD X 767118443))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (REM X 767118443)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G2) (#:KEEPER3) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (DECLARE (IGNORE #:G2))
;       #:KEEPER3)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
::: Success (:INTEGER-DIVISION-USING-MULTIPLICATION :CORRECTNESS)
::: Running :LOGBITP-WIDE-FIXNUM
::: Success :LOGBITP-WIDE-FIXNUM
::: Running (:EXPT :ARGUMENT-TYPE-COMBINATIONS)
(expt 18446744073709551616 2) => 340282366920938463463374607431768211456
(expt 18446744073709551616 3/5) => 3.627036e11
(expt 18446744073709551616 1.2) => 1.3155416e23
(expt 18446744073709551616 2.0d0) => 3.402823669209385d38
(expt 18446744073709551616 #C(3/5 1/7)) => #C(3.6217245e11 1.9634741e10)
(expt 18446744073709551616 #C(1.2 1.3)) => #C(5.717689e22 1.1847939e23)
(expt 18446744073709551616 #C(2.0d0 3.0d0)) => #C(1.4291358820171372d38 3.0881676694218932d38)
(expt 2 2) => 4
(expt 2 3/5) => 1.5157166
(expt 2 1.2) => 2.297397
(expt 2 2.0d0) => 4.0d0
(expt 2 #C(3/5 1/7)) => #C(1.5082918 0.14984268)
(expt 2 #C(1.2 1.3)) => #C(1.4261202 1.8011702)
(expt 2 #C(2.0d0 3.0d0)) => #C(-1.947977671863125d0 3.493620327099486d0)
(expt 3/5 2) => 9/25
(expt 3/5 3/5) => 0.73602194
(expt 3/5 1.2) => 0.54172826
(expt 3/5 2.0d0) => 0.36d0
(expt 3/5 #C(3/5 1/7)) => #C(0.7340629 -0.053663604)
(expt 3/5 #C(1.2 1.3)) => #C(0.42660466 -0.33388317)
(expt 3/5 #C(2.0d0 3.0d0)) => #C(0.013791628173887445d0 -0.35973572382001934d0)
(expt 1.2 2) => 1.44
(expt 1.2 3/5) => 1.1156007
(expt 1.2 1.2) => 1.2445648
(expt 1.2 2.0d0) => 1.4400001144409202d0
(expt 1.2 #C(3/5 1/7)) => #C(1.1152223 0.029053587)
(expt 1.2 #C(1.2 1.3)) => #C(1.2097697 0.29223016)
(expt 1.2 #C(2.0d0 3.0d0)) => #C(1.229914261844296d0 0.748940076442611d0)
(expt 2.0d0 2) => 4.0d0
(expt 2.0d0 3/5) => 1.515716566510398d0
(expt 2.0d0 1.2) => 2.297396785927244d0
(expt 2.0d0 2.0d0) => 4.0d0
(expt 2.0d0 #C(3/5 1/7)) => #C(1.5082917118974701d0 0.14984265686202014d0)
(expt 2.0d0 #C(1.2 1.3)) => #C(1.4261199728315275d0 1.8011701238583309d0)
(expt 2.0d0 #C(2.0d0 3.0d0)) => #C(-1.947977671863125d0 3.493620327099486d0)
(expt #C(3/5 1/7) 2) => #C(416/1225 6/35)
(expt #C(3/5 1/7) 3/5) => #C(0.74095154 0.10460213)
(expt #C(3/5 1/7) 1.2) => #C(0.5380676 0.15501022)
(expt #C(3/5 1/7) 2.0d0) => #C(0.3395918367346939d0 0.17142857142857143d0)
(expt #C(3/5 1/7) #C(3/5 1/7)) => #C(0.72189 0.051492453)
(expt #C(3/5 1/7) #C(1.2 1.3)) => #C(0.38848794 -0.14081497)
(expt #C(3/5 1/7) #C(2.0d0 3.0d0)) => #C(0.10473767043788196d0 -0.15693155662133032d0)
(expt #C(1.2 1.3) 2) => #C(-0.24999976 3.1200001)
(expt #C(1.2 1.3) 3/5) => #C(1.2390177 0.6692182)
(expt #C(1.2 1.3) 1.2) => #C(1.0873119 1.6583463)
(expt #C(1.2 1.3) 2.0d0) => #C(-0.24999976158142082d0 3.120000009536738d0)
(expt #C(1.2 1.3) #C(3/5 1/7)) => #C(1.0491301 0.68246186)
(expt #C(1.2 1.3) #C(1.2 1.3)) => #C(-0.10893197 0.66935545)
(expt #C(1.2 1.3) #C(2.0d0 3.0d0)) => #C(-0.256749507852121d0 -0.05760574233596394d0)
(expt #C(2.0d0 3.0d0) 2) => #C(-4.999999999999999d0 11.999999999999998d0)
(expt #C(2.0d0 3.0d0) 3/5) => #C(1.7941020374756191d0 1.2004100545904708d0)
(expt #C(2.0d0 3.0d0) 1.2) => #C(1.7778177285765675d0 4.307316596214299d0)
(expt #C(2.0d0 3.0d0) 2.0d0) => #C(-5.0d0 12.0d0)
(expt #C(2.0d0 3.0d0) #C(3/5 1/7)) => #C(1.3429492556694314d0 1.309758800857407d0)
(expt #C(2.0d0 3.0d0) #C(1.2 1.3)) => #C(-1.242558052923228d0 0.3776027960108993d0)
(expt #C(2.0d0 3.0d0) #C(2.0d0 3.0d0)) => #C(0.6075666647314785d0 -0.30875601809790204d0)
::: Success (:EXPT :ARGUMENT-TYPE-COMBINATIONS)
::: Running :BUG-741564
Good: (expt 2 #C(-2.5d0 -4.5d0))
got      #C(-0.1767322271978914d0 -0.003964829084954812d0)
expected #C(-0.1767322271978914d0 -0.003964829084954812d0)
Good: (expt 18446744073709551616 #C(-2.5d0 -4.5d0))
got      #C(9.22629752291901d-50 6.779787451469831d-49)
expected #C(9.22629752291901d-50 6.779787451469831d-49)
Good: (expt 3/5 #C(-2.5d0 -4.5d0))
got      #C(-2.385892110170272d0 2.67723759557384d0)
expected #C(-2.385892110170272d0 2.67723759557384d0)
Good: (expt 2.0 #C(-2.5d0 -4.5d0))
got      #C(-0.1767322271978914d0 -0.003964829084954812d0)
expected #C(-0.1767322271978914d0 -0.003964829084954812d0)
Good: (expt #C(2.0 3.0) #C(-2.5d0 -4.5d0))
got      #C(-1.2334518724811734d0 -3.141494484492241d0)
expected #C(-1.2334518724811734d0 -3.141494484492241d0)
Good: (expt #C(2.0 3.0) -2.5d0)
got      #C(-0.031382370143134414d0 -0.025617800161261913d0)
expected #C(-0.031382370143134414d0 -0.025617800161261913d0)
Good: (expt #C(2 3) #C(-2.5d0 -4.5d0))
got      #C(-1.2334518724811734d0 -3.141494484492241d0)
expected #C(-1.2334518724811734d0 -3.141494484492241d0)
Good: (expt #C(2 3) -2.5d0)
got      #C(-0.031382370143134414d0 -0.025617800161261913d0)
expected #C(-0.031382370143134414d0 -0.025617800161261913d0)
Good: (expt #C(18446744073709551616 36893488147419103232) #C(-2.5d0 -4.5d0))
got      #C(3.186640060876119d-48 1.2955728173986237d-47)
expected #C(3.186640060876119d-48 1.2955728173986237d-47)
Good: (expt #C(18446744073709551616 36893488147419103232) -2.5d0)
got      #C(-8.519740794047759d-50 -3.3410162262700684d-50)
expected #C(-8.519740794047759d-50 -3.3410162262700684d-50)
Good: (expt #C(3/5 1/7) #C(-2.5d0 -4.5d0))
got      #C(-0.18680070054544123d0 9.58109991115766d0)
expected #C(-0.18680070054544123d0 9.58109991115766d0)
Good: (expt #C(3/5 1/7) -2.5d0)
got      #C(2.7918261351519043d0 -1.8465554250376495d0)
expected #C(2.7918261351519043d0 -1.8465554250376495d0)
::: Success :BUG-741564
::: Running (:LDB :RLWINM :PPC)
::: Success (:LDB :RLWINM :PPC)
::: Running :ISQRT
::: Success :ISQRT
::: Running :RECURSIVE-CUT-TO-WIDTH
::: Success :RECURSIVE-CUT-TO-WIDTH
::: Running :MORE-RECURSIVE-CUT-TO-WIDTH
::: Success :MORE-RECURSIVE-CUT-TO-WIDTH
::: Running :COMPLICATED-LOGAND-IDENTITY
::: Success :COMPLICATED-LOGAND-IDENTITY
::: Running :COMPLICATED-LOGIOR-IDENTITY
::: Success :COMPLICATED-LOGIOR-IDENTITY
::: Running :LDB-NEGATIVE-INDEX-NO-ERROR
::: Success :LDB-NEGATIVE-INDEX-NO-ERROR
// Running /«PKGBUILDDIR»/tests/array.pure.lisp
; 
; caught WARNING:
;   Too few arguments (0) to ERROR "error not thrown in FUNCALL COMPILE ~S": requires at least 1.
;   See also:
;     The ANSI Standard, Section 22.3.10.2
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-ARRAY 11 :ELEMENT-TYPE 'CHARACTER) 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF X 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-STRING 11) 12)
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE 
; --> SB-KERNEL:HAIRY-DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-ARRAY 11) 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF X 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-ARRAY 11 :INITIAL-ELEMENT NIL) 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-ARRAY 11 :INITIAL-ELEMENT 12) 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-ARRAY 11 :ELEMENT-TYPE '(UNSIGNED-BYTE 4)) 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF X 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-ARRAY 11 :ELEMENT-TYPE '(UNSIGNED-BYTE 4) :INITIAL-ELEMENT 12) 12)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (11)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 12 12) &OPTIONAL),
;   conflicting with its asserted type
;     (MOD 11).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/array.pure.lisp
; in: LET ((A (MAKE-ARRAY '(10 10) :ELEMENT-TYPE 'NIL)))
;     (MAKE-ARRAY '(10 10) :ELEMENT-TYPE 'NIL)
; --> LOCALLY MAKE-ARRAY LET MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY '100 :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/array.pure.lisp
; in: MULTIPLE-VALUE-BIND (FUN WARN FAIL)
;     (MULTIPLE-VALUE-BIND (FUN WARN FAIL)
;         (COMPILE NIL '(LAMBDA () (AREF (MAKE-ARRAY 0) 0)))
;       (ASSERT-ERROR (FUNCALL FUN) TYPE-ERROR))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUN) (WARN) (FAIL) &REST #:G986)
;       (DECLARE (IGNORE #:G986))
;       (ASSERT-ERROR (FUNCALL FUN) TYPE-ERROR))
; 
; caught STYLE-WARNING:
;   The variable WARN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FAIL is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/array.pure.lisp
; in: MULTIPLE-VALUE-BIND (FUN WARN FAIL)
;     (MULTIPLE-VALUE-BIND (FUN WARN FAIL)
;         (COMPILE NIL '(LAMBDA () (AREF (MAKE-ARRAY 1) 1)))
;       (ASSERT FAIL)
;       (ASSERT-ERROR (FUNCALL FUN) TYPE-ERROR))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUN) (WARN) (FAIL) &REST #:G987)
;       (DECLARE (IGNORE #:G987))
;       (ASSERT FAIL)
;       (ASSERT-ERROR (FUNCALL FUN) TYPE-ERROR))
; 
; caught STYLE-WARNING:
;   The variable WARN is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (AREF (MAKE-ARRAY 1) 1)
; --> SB-KERNEL:DATA-VECTOR-REF SB-KERNEL:%CHECK-BOUND 
; ==>
;   (THE (INTEGER 0 (1)) SB-INT:INDEX)
; 
; caught WARNING:
;   Derived type of SB-INT:INDEX is
;     (VALUES (INTEGER 1 1) &OPTIONAL),
;   conflicting with its asserted type
;     (INTEGER 0 0).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/array.pure.lisp
; in: MULTIPLE-VALUE-BIND (FUN WARN FAIL)
;     (MULTIPLE-VALUE-BIND (FUN WARN FAIL)
;         (COMPILE NIL '(LAMBDA () (MAKE-ARRAY 5 :ELEMENT-TYPE 'UNDEFINED-TYPE)))
;       (ASSERT WARN))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUN) (WARN) (FAIL) &REST #:G988)
;       (DECLARE (IGNORE #:G988))
;       (ASSERT WARN))
; 
; caught STYLE-WARNING:
;   The variable FUN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FAIL is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; 
; caught STYLE-WARNING:
;   undefined type: UNDEFINED-TYPE

; in: LAMBDA ()
;     (MAKE-ARRAY 5 :ELEMENT-TYPE 'UNDEFINED-TYPE)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '5 :ELEMENT-TYPE 'UNDEFINED-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNDEFINED-TYPE

; 
; caught STYLE-WARNING:
;   undefined type: UNDEFINED-TYPE
; 
; compilation unit finished
;   Undefined type:
;     UNDEFINED-TYPE
;   caught 3 STYLE-WARNING conditions
; in: LAMBDA (X Y)
;     (LAMBDA (X Y) (LOGNOT X))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (V)
;     ((LAMBDA (X Y) (BIT-NOT X)) V #*0)
; ==>
;   (SB-C::%FUNCALL (LAMBDA (X Y) (BIT-NOT X)) V #*0)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (BIT-NOT X)
; ==>
;   (BIT-NOT SB-C::BIT-ARRAY-1
;            (MAKE-ARRAY (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) :ELEMENT-TYPE
;                        'BIT))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a BIT-VECTOR, not a SIMPLE-BIT-VECTOR.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 1 note
::: Running (ADJUST-ARRAY FILL-POINTER)
::: Success (ADJUST-ARRAY FILL-POINTER)
::: Running (ADJUST-ARRAY :MULTIDIMENSIONAL)
::: Success (ADJUST-ARRAY :MULTIDIMENSIONAL)
::: Running :%SET-FILL-POINTER/ERROR
::: Success :%SET-FILL-POINTER/ERROR
::: Running ARRAY-STORAGE-VECTOR
::: Success ARRAY-STORAGE-VECTOR
::: Running :INVALID-ARRAY-INDEX-ERROR
::: Success :INVALID-ARRAY-INDEX-ERROR
::: Running :OUT-OF-BOUNDS-ERROR-DETAILS
::: Success :OUT-OF-BOUNDS-ERROR-DETAILS
::: Running :ODD-KEYS-FOR-MAKE-ARRAY
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success :ODD-KEYS-FOR-MAKE-ARRAY
::: Running :BUG-1096359
::: Success :BUG-1096359

; file: /«PKGBUILDDIR»/tests/array.pure.lisp
; in: WITH-TEST (:NAME (:MAKE-ARRAY-TRANSFORM-UNKNOWN-TYPE :BUG-1156095))
;     (HANDLER-CASE
;      (COMPILE NIL `(LAMBDA () (MAKE-ARRAY '(1 2) :ELEMENT-TYPE ',(GENSYM))))
;      (STYLE-WARNING NIL T) (:NO-ERROR (&REST ARGS) NIL))
; --> BLOCK MULTIPLE-VALUE-CALL LAMBDA 
; ==>
;   #'(LAMBDA (&REST ARGS) NIL)
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:MAKE-ARRAY-TRANSFORM-UNKNOWN-TYPE :BUG-1156095)
::: Success (:MAKE-ARRAY-TRANSFORM-UNKNOWN-TYPE :BUG-1156095)
::: Running :DONT-MAKE-ARRAY-BAD-KEYWORDS
::: Success :DONT-MAKE-ARRAY-BAD-KEYWORDS
::: Running :MAKE-ARRAY-SANITY-CHECK-DIMS-FIRST
::: Success :MAKE-ARRAY-SANITY-CHECK-DIMS-FIRST
::: Running :MAKE-ARRAY-SIZE-OVERFLOW
::: Success :MAKE-ARRAY-SIZE-OVERFLOW
::: Running :ADJUST-NON-ADJUSTABLE-ARRAY
::: Success :ADJUST-NON-ADJUSTABLE-ARRAY
// Running /«PKGBUILDDIR»/tests/assembler.pure.lisp
::: SKIPPED-DISABLED :ASSEMBLE-MOVTI-INSTRUCTION
    Test disabled for this combination of platform and features
// Running /«PKGBUILDDIR»/tests/case.pure.lisp

; file: /«PKGBUILDDIR»/tests/case.pure.lisp
; in: LOOP FOR
;     (MULTIPLE-VALUE-BIND (FUN WARNINGS-P FAILURE-P)
;         (HANDLER-BIND ((STYLE-WARNING (LAMBDA # # #)))
;           (COMPILE NIL FORM))
;       (ASSERT (FUNCTIONP FUN))
;       (ASSERT (NULL EXPECTED) NIL "~S should have warned ~S, but didn't." FORM
;               EXPECTED)
;       (ASSERT (NOT FAILURE-P)))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUN) (WARNINGS-P) (FAILURE-P) &REST #:G0)
;       (DECLARE (IGNORE #:G0))
;       (ASSERT (FUNCTIONP FUN))
;       (ASSERT (NULL EXPECTED) NIL "~S should have warned ~S, but didn't." FORM
;               EXPECTED)
;       (ASSERT (NOT FAILURE-P)))
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (1 2)
; 
; caught STYLE-WARNING:
;   Duplicate key 1 in CASE form, occurring in the first clause:
;     (1 1), and the second clause:
;     (1 2).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     ((2 3) 2)
; 
; caught STYLE-WARNING:
;   Duplicate key 2 in CASE form, occurring in the first clause:
;     ((1 2) 1), and the second clause:
;     ((2 3) 2).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
// Running /«PKGBUILDDIR»/tests/character.pure.lisp
::: Running :CHAR-INEQUALITY-&REST-ARGUMENTS
::: Success :CHAR-INEQUALITY-&REST-ARGUMENTS
::: Running :CHARACTER-UNTAGGING
::: Success :CHARACTER-UNTAGGING

; file: /«PKGBUILDDIR»/tests/character.pure.lisp
; in: WITH-TEST (:NAME :BUG-841312)
;     (ASSERT-COERCE-TYPE-ERROR #\Nak STANDARD-CHAR)
; --> ASSERT-ERROR ASSERT TAGBODY LET NTH-VALUE MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN 
; ==>
;   (COERCE #\Nak 'STANDARD-CHAR)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   #\Nak can't be converted to type STANDARD-CHAR.

;     (ASSERT-COERCE-TYPE-ERROR #\a EXTENDED-CHAR)
; --> ASSERT-ERROR ASSERT TAGBODY LET NTH-VALUE MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN 
; ==>
;   (COERCE #\a 'EXTENDED-CHAR)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   #\a can't be converted to type EXTENDED-CHAR.

;     (ASSERT-COERCE-TYPE-ERROR (CODE-CHAR 955) BASE-CHAR)
; --> ASSERT-ERROR ASSERT TAGBODY LET NTH-VALUE MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN 
; ==>
;   (COERCE (CODE-CHAR 955) 'BASE-CHAR)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   #\GREEK_SMALL_LETTER_LAMDA can't be converted to type BASE-CHAR.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
::: Running :BUG-841312
::: Success :BUG-841312
::: Running :BUG-994487
::: Success :BUG-994487
::: Running (:CASE-INSENSITIVE-CHAR-COMPARISONS :EACUTE)
::: Success (:CASE-INSENSITIVE-CHAR-COMPARISONS :EACUTE)
::: Running (:CASE-INSENSITIVE-CHAR-COMPARISONS :EXHAUSTIVE)
::: Success (:CASE-INSENSITIVE-CHAR-COMPARISONS :EXHAUSTIVE)
::: Running (LOWER-CASE-P STANDARD-CHAR)
::: Success (LOWER-CASE-P STANDARD-CHAR)
::: Running (UPPER-CASE-P STANDARD-CHAR)
::: Success (UPPER-CASE-P STANDARD-CHAR)
::: Running (DIGIT-CHAR-P STANDARD-CHAR)
::: Success (DIGIT-CHAR-P STANDARD-CHAR)
::: Running (BOTH-CASE-P STANDARD-CHAR)
::: Success (BOTH-CASE-P STANDARD-CHAR)
::: Running (ALPHANUMERICP STANDARD-CHAR)
::: Success (ALPHANUMERICP STANDARD-CHAR)
::: Running :NAME-CHAR-SHORT-STRING
::: Success :NAME-CHAR-SHORT-STRING
// Running /«PKGBUILDDIR»/tests/clos.pure.lisp

NIL 
::: Running :TYPE-OF-SETF-CLASS-NAME
::: Success :TYPE-OF-SETF-CLASS-NAME
::: Running :CHECK-STANDARD-SUPERCLASSES
::: Success :CHECK-STANDARD-SUPERCLASSES
::: Running :SLOT-TABLE-OF-SYMBOL-WORKS
::: Success :SLOT-TABLE-OF-SYMBOL-WORKS
// Running /«PKGBUILDDIR»/tests/coerce.pure.lisp
::: Running (COERCE COMPLEX :NUMERIC-TYPES)
::: Success (COERCE COMPLEX :NUMERIC-TYPES)
::: Running :COERCE-SYMBOL-TO-FUN
::: Success :COERCE-SYMBOL-TO-FUN
// Running /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: LAMBDA ()
;     (TAGBODY TAG (FUN2) (GO TAG))
; 
; note: deleting unreachable code

;     (FUN2)
; 
; note: deleting unreachable code

;     (TAGBODY TAG (FUN1) (GO TAG))
; 
; note: deleting unreachable code

;     (FUN1)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 4 notes
; in: LAMBDA (X)
;     (FROB (MRSTK X))
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 1 {521AB0A1}>.

;     (DOLIST (Y STK) (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T)))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((Y (CAR #:N-LIST5)))
;     (SETQ #:N-LIST5 (CDR #:N-LIST5))
;     (TAGBODY (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T))))
; 
; note: deleting unused function
;   (LET ((Y (CAR #:N-LIST5)))
;     )

; --> BLOCK 
; ==>
;   (LET ((#:N-LIST5 STK))
;     (TAGBODY
;      #:START6
;       (UNLESS (ENDP #:N-LIST5)
;         (LET (#)
;           (SETQ #)
;           (TAGBODY #))
;         (GO #:START6))))
; 
; note: deleting unused function
;   (LET ((#:N-LIST5 STK))
;     )

;     (FROB (MRSTK X))
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE (FLET FROB :IN USED-BY-SOME-Y?))

;     (FROB (RSTK X))
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 1 {521AB0A1}>.

;     (DOLIST (Y STK) (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T)))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((Y (CAR #:N-LIST7)))
;     (SETQ #:N-LIST7 (CDR #:N-LIST7))
;     (TAGBODY (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T))))
; 
; note: deleting unused function
;   (LET ((Y (CAR #:N-LIST7)))
;     )

; --> BLOCK 
; ==>
;   (LET ((#:N-LIST7 STK))
;     (TAGBODY
;      #:START8
;       (UNLESS (ENDP #:N-LIST7)
;         (LET (#)
;           (SETQ #)
;           (TAGBODY #))
;         (GO #:START8))))
; 
; note: deleting unused function
;   (LET ((#:N-LIST7 STK))
;     )

;     (FROB (RSTK X))
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE (FLET FROB :IN USED-BY-SOME-Y?))

; in: LAMBDA (X)
;     (MRSTK X)
; 
; caught STYLE-WARNING:
;   undefined function: MRSTK

;     (REJECTED? Y)
; 
; caught STYLE-WARNING:
;   undefined function: REJECTED?

;     (RSTK X)
; 
; caught STYLE-WARNING:
;   undefined function: RSTK
; 
; compilation unit finished
;   Undefined functions:
;     MRSTK REJECTED? RSTK
;   caught 3 STYLE-WARNING conditions
;   printed 8 notes
; in: LAMBDA ()
;     (LET (X (X 1))
;       (LIST X))
; 
; caught ERROR:
;   The variable X occurs more than once in the LET.
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA (N)
;     (LET ((*X* N))
;       (FUNCALL (SYMBOL-FUNCTION 'X-GETTER))
;       (PRINT *X*))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (COMMON-LISP-USER::*X*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

1 
1 
3 
5 
7 
9 
11 
; in: FUNCALL (LAMBDA (&REST) 12)
;     (LAMBDA (&REST) 12)
; 
; caught ERROR:
;   &REST expects a variable following it
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition


; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :UNDEFINED-FUNCTION-ERROR)
;     (SOME-UNDEFINED-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SOME-UNDEFINED-FUNCTION
; 
; compilation unit finished
;   Undefined function:
;     SOME-UNDEFINED-FUNCTION
;   caught 1 STYLE-WARNING condition
13 
::: Running :UNDEFINED-FUNCTION-ERROR
::: Success :UNDEFINED-FUNCTION-ERROR

; in: WITH-TEST (:NAME :UNBOUND-VARIABLE-ERROR)
;     (HANDLER-CASE *STATE* (UNBOUND-VARIABLE (C) (CELL-ERROR-NAME C)))
; --> SB-INT:DX-FLET FLET 
; ==>
;   (BLOCK #:FORM-FUN-46 *STATE*)
; 
; caught WARNING:
;   undefined variable: *STATE*

;     (HANDLER-CASE XYZZY*%STATE (UNBOUND-VARIABLE (C) (CELL-ERROR-NAME C)))
; --> SB-INT:DX-FLET FLET 
; ==>
;   (BLOCK #:FORM-FUN-30 XYZZY*%STATE)
; 
; caught WARNING:
;   undefined variable: XYZZY*%STATE
; 
; compilation unit finished
;   Undefined variables:
;     *STATE* XYZZY*%STATE
;   caught 2 WARNING conditions
::: Running :UNBOUND-VARIABLE-ERROR
::: Success :UNBOUND-VARIABLE-ERROR
; in: LAMBDA ("foo")
;     (LAMBDA ("foo") 12)
; 
; caught ERROR:
;   Required argument is not a symbol: "foo"
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA (FOO)
;     (LAMBDA (FOO) 12)
; 
; caught STYLE-WARNING:
;   The variable FOO is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (&OPTIONAL 12)
;     (LAMBDA (&OPTIONAL 12) "foo")
; 
; caught ERROR:
;   &OPTIONAL parameter is not a symbol or cons: 12
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA (&OPTIONAL TWELVE)
;     (LAMBDA (&OPTIONAL TWELVE) "foo")
; 
; caught STYLE-WARNING:
;   The variable TWELVE is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (&OPTIONAL (12 12))
;     (LAMBDA (&OPTIONAL (12 12)) "foo")
; 
; caught ERROR:
;   &OPTIONAL parameter name is not a symbol: 12
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA (&OPTIONAL (TWELVE 12))
;     (LAMBDA (&OPTIONAL (TWELVE 12)) "foo")
; 
; caught STYLE-WARNING:
;   The variable TWELVE is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (&KEY #\c)
;     (LAMBDA (&KEY #\c) "foo")
; 
; caught ERROR:
;   &KEY parameter is not a symbol or cons: #\c
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA (&KEY C)
;     (LAMBDA (&KEY C) "foo")
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (&KEY (#\c #\c))
;     (LAMBDA (&KEY (#\c #\c)) "foo")
; 
; caught ERROR:
;   &KEY parameter name is not a symbol: #\c
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA (&KEY (C #\c))
;     (LAMBDA (&KEY (C #\c)) "foo")
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (&KEY ((#\c #\c) #\c))
;     (LAMBDA (&KEY ((#\c #\c) #\c)) "foo")
; 
; caught ERROR:
;   &KEY parameter name is not a symbol: #\c
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA (&KEY ((:C CBYANYOTHERNAME) #\c))
;     (LAMBDA (&KEY ((:C CBYANYOTHERNAME) #\c)) "foo")
; 
; caught STYLE-WARNING:
;   The variable CBYANYOTHERNAME is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (X)
;     (TYPE (0) X)
; 
; caught ERROR:
;   bad thing to be a type specifier: (0)
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA (X)
;     (LAMBDA (X) (MAKE-ARRAY 1 :ELEMENT-TYPE '(0)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LOCALLY (DECLARE (OPTIMIZE (SAFETY 0)))
;     (MAP 'FIXNUM #'IDENTITY NIL)
; ==>
;   (TRULY-THE FIXNUM (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G10))
; 
; caught WARNING:
;   Derived type of (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G10) is
;     (VALUES (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE)
;             &OPTIONAL),
;   
;   conflicting with its asserted type
;     FIXNUM.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LOCALLY (DECLARE (OPTIMIZE (SAFETY 0)))
;     (MERGE 'FIXNUM NIL NIL #'<)
; 
; caught STYLE-WARNING:
;   The return value of MERGE should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (NREVERSE (LIST 1 2))
; 
; caught STYLE-WARNING:
;   The return value of NREVERSE should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (NRECONC (LIST 1 2) (LIST 3 4))
; 
; caught STYLE-WARNING:
;   The return value of NRECONC should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (SORT (LIST 1 2) #'<)
; --> BLOCK LET SB-IMPL::SEQ-DISPATCH IF LET 
; ==>
;   (SB-IMPL::STABLE-SORT-LIST SEQUENCE SB-IMPL::PREDICATE-FUN
;                              (IF SB-IMPL::KEY
;                                  (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;                                   SB-IMPL::KEY)
;                                  #'IDENTITY))
; 
; caught STYLE-WARNING:
;   The return value of STABLE-SORT-LIST should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (DELETE 2 (LIST 1 2))
; 
; caught STYLE-WARNING:
;   The return value of DELETE should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (DELETE-IF #'EVENP (LIST 1 2))
; 
; caught STYLE-WARNING:
;   The return value of DELETE-IF should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (DELETE-IF #'EVENP (VECTOR 1 2))
; 
; caught STYLE-WARNING:
;   The return value of DELETE-IF should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (DELETE-IF-NOT #'EVENP (LIST 1 2))
; 
; caught STYLE-WARNING:
;   The return value of DELETE-IF-NOT should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (DELETE-DUPLICATES (LIST 1 2))
; 
; caught STYLE-WARNING:
;   The return value of DELETE-DUPLICATES should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (MERGE 'LIST (LIST 1 3) (LIST 2 4) #'<)
; 
; caught STYLE-WARNING:
;   The return value of MERGE should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (NRECONC (LIST 1 3) (LIST 2 4))
; 
; caught STYLE-WARNING:
;   The return value of NRECONC should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (NUNION (LIST 1 3) (LIST 2 4))
; 
; caught STYLE-WARNING:
;   The return value of NUNION should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (NINTERSECTION (LIST 1 3) (LIST 2 4))
; 
; caught STYLE-WARNING:
;   The return value of NINTERSECTION should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (NSET-DIFFERENCE (LIST 1 3) (LIST 2 4))
; 
; caught STYLE-WARNING:
;   The return value of NSET-DIFFERENCE should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (NSET-EXCLUSIVE-OR (LIST 1 3) (LIST 2 4))
; 
; caught STYLE-WARNING:
;   The return value of NSET-EXCLUSIVE-OR should not be discarded.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: MULTIPLE-VALUE-BIND (RESULT ERROR)
;     (SPECIAL S)
; 
; caught ERROR:
;   S is a symbol-macro and thus can't be declared special.
; 
; compilation unit finished
;   caught 1 ERROR condition

; in: LAMBDA (X)
;     (FTYPE FUNCTION F)
; 
; caught STYLE-WARNING:
;   undefined function: F
; 
; compilation unit finished
;   Undefined function:
;     F
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: MULTIPLE-VALUE-BIND (RESULT ERROR)
;     (PSETQ (CAR X) 3)
; --> PROGN 
; ==>
;   (SETQ (CAR X) 3)
; 
; caught ERROR:
;   Variable name is not a symbol: (CAR X).
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA (A)
;     (CAR A)
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of A is
;     (VALUES ARRAY &OPTIONAL),
;   conflicting with its asserted type
;     LIST.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note

; in: LAMBDA (KEY TREE COLLECT-PATH-P)
;     (KEY-EQUALP TREE)
; 
; caught STYLE-WARNING:
;   undefined function: KEY-EQUALP

;     (KEY-LESSP TREE)
; 
; caught STYLE-WARNING:
;   undefined function: KEY-LESSP

;     (LEFT-CHILD NODE)
; 
; caught STYLE-WARNING:
;   undefined function: LEFT-CHILD

;     (NODE-KEY NODE)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-KEY

;     (RIGHT-CHILD NODE)
; 
; caught STYLE-WARNING:
;   undefined function: RIGHT-CHILD

;     (ROOT-NODE TREE)
; 
; caught STYLE-WARNING:
;   undefined function: ROOT-NODE
; 
; compilation unit finished
;   Undefined functions:
;     KEY-EQUALP KEY-LESSP LEFT-CHILD NODE-KEY RIGHT-CHILD ROOT-NODE
;   caught 6 STYLE-WARNING conditions
; in: LAMBDA (&OPTIONAL *X*)
;     (LAMBDA (&OPTIONAL *X*) *X*)
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (COMMON-LISP-USER::*X*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (&OPTIONAL *X* &REST Y)
;     (LAMBDA (&OPTIONAL *X* &REST Y) (VALUES *X* Y))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (COMMON-LISP-USER::*X*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in:
;      DOLIST (LL
;          '((X (Z X)) (X Y &OPTIONAL Z X W) (X Y &OPTIONAL Z Z) (X &REST X)
;            (X &REST (Y X)) (X &OPTIONAL (Y NIL X)) (X &OPTIONAL (Y NIL Y))
;            (X &KEY X) (X &KEY (Y NIL X)) (&KEY (Y NIL Z) (Z NIL W))
;            (&WHOLE X &OPTIONAL X) (&ENVIRONMENT X &WHOLE X)))
;     (HANDLER-CASE
;      (COMPILE NIL
;               `(LAMBDA ()
;                  (MACROLET (# #)
;                    (BAR))))
;      (ERROR (C) (VALUES NIL T T)))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-10 ()
;            (COMPILE NIL `(LAMBDA # #)))
;          (#:FUN7 (C)
;            (VALUES NIL T T)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-10) (FUNCTION #:FUN7)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK8
;       (SB-INT:DX-LET ((#:CELL9 #))
;         (DECLARE (IGNORABLE #:CELL9))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG6
;           (RETURN-FROM #:BLOCK8 #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: DEFMACRO #:FOO
;     (RETURN-FROM #:FOO)
; 
; caught ERROR:
;   return for unknown block: #:FOO

;     (DEFMACRO #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO))))
; --> PROGN EVAL-WHEN SB-C::%DEFMACRO FUNCTION LET* 
; ==>
;   (LET* ((X
;           (IF #:SUPPLIEDP-1
;               (CAR #)
;               (RETURN-FROM #:FOO))))
;     (BLOCK #:FOO))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: DEFINE-COMPILER-MACRO #:FOO
;     (RETURN-FROM #:FOO)
; 
; caught ERROR:
;   return for unknown block: #:FOO

;     (DEFINE-COMPILER-MACRO #:FOO
;         (&OPTIONAL (X (RETURN-FROM #:FOO))))
; --> PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* 
; ==>
;   (LET* ((X
;           (IF #:SUPPLIEDP-3
;               (CAR #)
;               (RETURN-FROM #:FOO))))
;     (BLOCK #:FOO))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: DEFTYPE #:FOO
;     (RETURN-FROM #:FOO)
; 
; caught ERROR:
;   return for unknown block: #:FOO

;     (DEFTYPE #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO))))
; --> PROGN EVAL-WHEN SB-IMPL::%COMPILER-DEFTYPE LAMBDA FUNCTION LET* 
; ==>
;   (LET* ((X
;           (IF #:SUPPLIEDP-2
;               (CAR #)
;               (RETURN-FROM #:FOO))))
;     (BLOCK #:FOO))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: DEFINE-SETF-EXPANDER #:FOO
;     (RETURN-FROM #:FOO)
; 
; caught ERROR:
;   return for unknown block: #:FOO

;     (DEFINE-SETF-EXPANDER #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO))))
; --> EVAL-WHEN SB-IMPL::%DEFSETF LAMBDA FUNCTION LET* 
; ==>
;   (LET* ((X
;           (IF #:SUPPLIEDP-3
;               (CAR #)
;               (RETURN-FROM #:FOO))))
;     (BLOCK #:FOO))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: DEFSETF #:FOO
;     (RETURN-FROM #:FOO)
; 
; caught ERROR:
;   return for unknown block: #:FOO

;     (DEFSETF #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO))) NIL)
; --> EVAL-WHEN SB-IMPL::%DEFSETF CONS LAMBDA FUNCTION LET* 
; ==>
;   (LET* ((X
;           (IF #:SUPPLIEDP-1
;               (CAR #:FORM)
;               (RETURN-FROM #:FOO))))
;     (BLOCK #:FOO))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (SVREF (MAKE-ARRAY '(8 9) :ADJUSTABLE T) 1)
; --> LET THE SB-KERNEL:DATA-VECTOR-REF 
; ==>
;   (THE SIMPLE-VECTOR #:N-VECTOR-0)
; 
; caught WARNING:
;   Derived type of #:N-VECTOR-0 is
;     (VALUES (AND (ARRAY T (* *)) (NOT SIMPLE-ARRAY)) &OPTIONAL),
;   conflicting with its asserted type
;     SIMPLE-VECTOR.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (X)
;     (1+ (MAPCAR #'PRINT X))
; ==>
;   (+ (MAPCAR #'PRINT X) 1)
; 
; caught WARNING:
;   Derived type of (TRULY-THE LIST (CDR #:G3)) is
;     (VALUES LIST &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (X)
;     (1+ (MAPC #'PRINT X))
; ==>
;   (+ (MAPC #'PRINT X) 1)
; 
; caught WARNING:
;   Derived type of (TRULY-THE LIST #:G0) is
;     (VALUES LIST &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (X)
;     (1+ (MAPLIST #'PRINT X))
; ==>
;   (+ (MAPLIST #'PRINT X) 1)
; 
; caught WARNING:
;   Derived type of (TRULY-THE LIST (CDR #:G3)) is
;     (VALUES LIST &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (X)
;     (1+ (MAPL #'PRINT X))
; ==>
;   (+ (MAPL #'PRINT X) 1)
; 
; caught WARNING:
;   Derived type of (TRULY-THE LIST #:G0) is
;     (VALUES LIST &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (1+ (MAPCAR #'PRINT '(1 2 3)))
; ==>
;   (+ (MAPCAR #'PRINT '(1 2 3)) 1)
; 
; caught WARNING:
;   Derived type of (MAPCAR #'PRINT '(1 2 3)) is
;     (VALUES LIST &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (N)
;     (THE (INTEGER 0 *) (- I 11))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of (- I 11) is
;     (VALUES (INTEGER -10 -1) &OPTIONAL),
;   conflicting with its asserted type
;     UNSIGNED-BYTE.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
; in: LAMBDA (N)
;     (THE (REAL (-1) *) (- I 11))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of (- I 11) is
;     (VALUES (INTEGER -10 -1) &OPTIONAL),
;   conflicting with its asserted type
;     (OR (SINGLE-FLOAT (-1.0)) (DOUBLE-FLOAT (-1.0d0)) (RATIONAL (-1))).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
; in: LAMBDA (N)
;     (THE FLOAT (- I 11))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of (- I 11) is
;     (VALUES (INTEGER -10) &OPTIONAL),
;   conflicting with its asserted type
;     FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
; in: LAMBDA (N)
;     (THE (REAL * (-10)) (- I 11))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of (- I 11) is
;     (VALUES (INTEGER -10) &OPTIONAL),
;   conflicting with its asserted type
;     (OR (SINGLE-FLOAT * (-10.0)) (DOUBLE-FLOAT * (-10.0d0)) (RATIONAL * (-10))).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in:
;      ASSERT (EQ
;          (BLOCK NIL
;            (HANDLER-CASE (COMPILE NIL '(LAMBDA # # # #))
;                          (COMPILER-NOTE (C) (RETURN :GOOD))))
;          :GOOD)
;     (HANDLER-CASE
;      (COMPILE NIL
;               '(LAMBDA (I)
;                  (DECLARE (OPTIMIZE SPEED))
;                  (DECLARE (TYPE INTEGER I))
;                  (+ I 2)))
;      (COMPILER-NOTE (C) (RETURN :GOOD)))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-4 ()
;            (COMPILE NIL '(LAMBDA # # # #)))
;          (#:FUN1 (C)
;            (RETURN :GOOD)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK2
;       (SB-INT:DX-LET ((#:CELL3 #))
;         (DECLARE (IGNORABLE #:CELL3))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG0
;           (RETURN-FROM #:BLOCK2 #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA ()
;     (LET ((V7 (%F1)))
;       (+ 359749 35728422))
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Running :ANSI-MISC.293A
; in: LAMBDA (A B C)
;     (LAMBDA (A B C)
;       (DECLARE
;        (OPTIMIZE (SPEED 2) (SPACE 3) (SAFETY 1) (DEBUG 2) (COMPILATION-SPEED 2)))
;       (BLOCK B6 (MULTIPLE-VALUE-PROG1 0 B 0 (CATCH 'CT7 (RETURN-FROM B6 #)))))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Success :ANSI-MISC.293A
::: Running :ANSI-MISC.293D
::: Success :ANSI-MISC.293D
::: Running :ANSI-MISC.618
::: Success :ANSI-MISC.618
; in: LAMBDA (A B C)
;     (REM B (MAX 44 (RETURN-FROM B6 A)))
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (FOO (RETURN 14) 2)
; 
; note: deleting unreachable code

;     (PRINT X)
; ==>
;   X
; 
; note: deleting unreachable code

; in: LAMBDA ()
;     (BAR)
; 
; caught STYLE-WARNING:
;   undefined function: BAR
; 
; compilation unit finished
;   Undefined function:
;     BAR
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; in: LAMBDA ()
;     (LET ((A (SMOCK A)) (B (SMOCK B)) (B (SMOCK C)))
;       )
; 
; caught ERROR:
;   The variable B occurs more than once in the LET.

;     (FLET ((TRULY (FN BBD)
;              (LET (R3534)
;                (LET #
;                  #)
;                R3534))
;            (C (PD)
;              (PDC PD)))
;       (LET ((A (SMOCK A)) (B (SMOCK B)) (B (SMOCK C)))
;         ))
; 
; note: deleting unused function
;   (FLET C :IN BBFN)
; 
; note: deleting unused function
;   (FLET TRULY :IN BBFN)

;     (BUBF BBD T)
; 
; caught STYLE-WARNING:
;   undefined function: BUBF

;     (CDEC #'C-3536 (VECTOR BBD))
; 
; caught STYLE-WARNING:
;   undefined function: CDEC

;     (PDC PD)
; 
; caught STYLE-WARNING:
;   undefined function: PDC

;     (WUM #'BBFN "hc3" (LIST))
; 
; caught STYLE-WARNING:
;   undefined function: WUM
; 
; compilation unit finished
;   Undefined functions:
;     BUBF CDEC PDC WUM
;   caught 1 ERROR condition
;   caught 4 STYLE-WARNING conditions
;   printed 2 notes
; in: LAMBDA ()
;     (FLET ((%F ()
;              (UNWIND-PROTECT NIL)))
;       NIL)
; 
; note: deleting unused function
;   (FLET %F :IN "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (A C)
;     (- -554046873252388011622614991634432 (IGNORE-ERRORS C)
;        (UNWIND-PROTECT 2791485))
; --> - 
; ==>
;   (- -554046873252388011622614991634432 (IGNORE-ERRORS C))
; 
; caught WARNING:
;   Derived type of
;   (BLOCK #:BLOCK20
;     (SB-INT:DX-LET ((#:CELL21 (CONS :CONDITION NIL)))
;       (DECLARE (IGNORABLE #:CELL21))
;       (TAGBODY
;         (SB-IMPL::%HANDLER-BIND
;          ((ERROR
;            (LAMBDA (SB-IMPL::TEMP)
;              (SETF (CDR #:CELL21) SB-IMPL::TEMP)
;              (GO #:TAG18))))
;          (RETURN-FROM #:BLOCK20 (#:FORM-FUN-22)))
;        #:TAG18
;         (RETURN-FROM #:BLOCK20 (#:FUN19 (CDR #:CELL21))))))
;   is
;     (VALUES NULL T &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (A B)
;     (ABS
;      (IGNORE-ERRORS
;       (+ (LOGEQV B (BLOCK B6 #))
;          (IF (LOGBITP 1 A)
;              B
;              (SETQ #)))))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of
;   (BLOCK #:BLOCK5
;     (SB-INT:DX-LET ((#:CELL6 (CONS :CONDITION NIL)))
;       (DECLARE (IGNORABLE #:CELL6))
;       (TAGBODY
;         (SB-IMPL::%HANDLER-BIND
;          ((ERROR
;            (LAMBDA (SB-IMPL::TEMP)
;              (SETF (CDR #:CELL6) SB-IMPL::TEMP)
;              (GO #:TAG3))))
;          (RETURN-FROM #:BLOCK5 (#:FORM-FUN-7)))
;        #:TAG3
;         (RETURN-FROM #:BLOCK5 (#:FUN4 (CDR #:CELL6))))))
;   is
;     (VALUES NULL T &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
; in: LAMBDA (B C)
;     (LOGBITP 0 (RETURN-FROM B7 (- -815145138 F1-2)))
; 
; note: The second argument never returns a value.
; 
; note: deleting unreachable code

;     (RETURN-FROM B7 -2611670)
; 
; note: deleting unreachable code

;     (%F1 -2464 (%F1 -1146 C C) -2)
; 
; note: deleting unreachable code

;     (FLET ((%F1 (F1-1 F1-2 F1-3)
;              (IF (LOGBITP 0 #)
;                  (RETURN-FROM B7 -2611670)
;                  99345)))
;       (LET ((V2 (%F1 -2464 # -2)))
;         B))
; 
; caught STYLE-WARNING:
;   The variable F1-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F1-3 is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 4 notes
; in: LAMBDA (B C)
;     (IF (= C 8)
;         B
;         82674)
; ==>
;   B
; 
; note: deleting unreachable code

;     (IGNORE-ERRORS
;      (RETURN-FROM B6
;        (IF (= C 8)
;            B
;            82674)))
; --> HANDLER-CASE SB-INT:DX-FLET FLET 
; ==>
;   (BLOCK #:BLOCK2
;     (SB-INT:DX-LET ((#:CELL3 (CONS :CONDITION NIL)))
;       (DECLARE (IGNORABLE #:CELL3))
;       (TAGBODY
;         (SB-IMPL::%HANDLER-BIND (#) (RETURN-FROM #:BLOCK2 #))
;        #:TAG0
;         (RETURN-FROM #:BLOCK2 (#:FUN1 #)))))
; 
; caught STYLE-WARNING:
;   Result is a (VALUES NULL T &OPTIONAL), not a REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA (A)
;     (ROUND
;      (BLOCK B3
;        (RETURN-FROM B3
;          (IF (= 55957 A)
;              -117
;              (IGNORE-ERRORS #)))))
; ==>
;   (ROUND
;    (BLOCK B3
;      (RETURN-FROM B3
;        (IF (= 55957 A)
;            -117
;            (IGNORE-ERRORS #))))
;    1)
; 
; caught WARNING:
;   Derived type of
;   (BLOCK B3
;     (RETURN-FROM B3
;       (IF (= 55957 A)
;           -117
;           (IGNORE-ERRORS (RETURN-FROM B3 A)))))
;   is
;     (VALUES NULL T &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (A)
;     (*
;      (RETURN-FROM B5
;        (LABELS ((%F11 #
;                   F11-1))
;          (%F11 87246015)))
;      (RETURN-FROM B5
;        (SETQ V1
;                (LABELS #
;                  #))))
; 
; note: The first argument never returns a value.
; 
; note: The second argument never returns a value.

;     (UNWIND-PROTECT A)
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM 
; ==>
;   A
; 
; note: deleting unreachable code

;     (*
;      (RETURN-FROM B5
;        (LABELS ((%F11 #
;                   F11-1))
;          (%F11 87246015)))
;      (RETURN-FROM B5
;        (SETQ V1
;                (LABELS #
;                  #))))
; 
; note: deleting unreachable code

;     (LET ((V8 (UNWIND-PROTECT 9365)))
;       8862008)
; 
; caught STYLE-WARNING:
;   The variable V8 is defined but never used.

;     (%F4)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 5 notes
; in: LAMBDA (A)
;     (LET ((V4 (RETURN-FROM B3 V9)))
;       (- (IGNORE-ERRORS (RETURN-FROM B3 V4))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETQ V9
;             (LET ((V4 #))
;               (- (IGNORE-ERRORS #))))
; 
; note: deleting unreachable code

;     (LET ((V9 (UNWIND-PROTECT 136707)))
;       (BLOCK B3
;         (SETQ V9
;                 (LET #
;                   #))))
; 
; note: deleting unreachable code

;     (BLOCK B3
;       (SETQ V9
;               (LET (#)
;                 (- #))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOGBITP 3
;              (CASE -2
;                ((-96879 -1035 -57680 -106404 -94516 -125088)
;                 (UNWIND-PROTECT 90309179))
;                ((-20811 -86901 -9368 -98520 -71594)
;                 (LET (#)
;                   (BLOCK B3 #)))
;                (T -50)))
; 
; note: deleting unreachable code

;     (LET ((V9 (UNWIND-PROTECT 136707)))
;       (BLOCK B3
;         (SETQ V9
;                 (LET #
;                   #))))
; 
; note: deleting unreachable code

;     (IF (LOGBITP 3
;                  (CASE -2
;                    ((-96879 -1035 -57680 -106404 -94516 -125088)
;                     (UNWIND-PROTECT 90309179))
;                    ((-20811 -86901 -9368 -98520 -71594)
;                     (LET #
;                       #))
;                    (T -50)))
;         -20343
;         A)
; ==>
;   A
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 9 notes
; in: LAMBDA (A B C)
;     (FLET ((%F17
;                (F17-1 F17-2 F17-3
;                 &OPTIONAL (F17-4 185155520) (F17-5 C) (F17-6 37))
;              C))
;       (%F17 -1046 A 1115306 (%F17 B -146330 422) -337817))
; 
; caught STYLE-WARNING:
;   The variable F17-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F17-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F17-3 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F17-4 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F17-5 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F17-6 is defined but never used.

;     (FLET ((%F15 (F15-1 F15-2 F15-3 &OPTIONAL (F15-4 #) (F15-5 A) (F15-6 -40))
;              (RETURN-FROM B3 -16)))
;       (MULTIPLE-VALUE-CALL #'%F15 (VALUES -519354 A 121 C -1905)))
; 
; caught STYLE-WARNING:
;   The variable F15-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F15-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F15-3 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F15-4 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F15-5 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F15-6 is defined but never used.
; 
; compilation unit finished
;   caught 12 STYLE-WARNING conditions
; in: LAMBDA (A B C)
;     (LABELS ((%F2 (F2-1 F2-2)
;                (FLET (#)
;                  (LABELS #
;                    F12-1))))
;       (%F2 B -36582571))
; 
; caught STYLE-WARNING:
;   The variable F2-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F2-2 is defined but never used.

;     (LAMBDA (A B C)
;       (DECLARE (NOTINLINE LIST APPLY))
;       (DECLARE (OPTIMIZE (SAFETY 3)))
;       (DECLARE (OPTIMIZE (SPEED 0)))
;       (DECLARE (OPTIMIZE (DEBUG 0)))
;       (LABELS ((%F12 (F12-1 F12-2)
;                  (LABELS #
;                    #)))
;         (APPLY #'%F12 (LIST 774 -4413))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (LABELS ((%F12 (F12-1 F12-2)
;                (LABELS (#)
;                  (%F2 B -36582571))))
;       (APPLY #'%F12 (LIST 774 -4413)))
; 
; caught STYLE-WARNING:
;   The variable F12-2 is defined but never used.
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
; in: LAMBDA (A B C)
;     (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #))
;              (SETQ C 555910)))
;       (IF (AND NIL (%F11 A A))
;           (IF (%F11 A 421778 4030 1)
;               (LABELS (#)
;                 (%F11 C B -25644))
;               54)
;           -32326608))
; 
; caught STYLE-WARNING:
;   The variable F11-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F11-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F11-3 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F11-4 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F11-5 is defined but never used.

;     (%F11 A A)
; ==>
;   A
; 
; note: deleting unreachable code

;     (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #))
;              (SETQ C 555910)))
;       (IF (AND NIL (%F11 A A))
;           (IF (%F11 A 421778 4030 1)
;               (LABELS (#)
;                 (%F11 C B -25644))
;               54)
;           -32326608))
; 
; note: deleting unreachable code

;     (%F11 A 421778 4030 1)
; ==>
;   A
; 
; note: deleting unreachable code

;     (%F11 C B -25644)
; ==>
;   C
; 
; note: deleting unreachable code

;     (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #))
;              (SETQ C 555910)))
;       (IF (AND NIL (%F11 A A))
;           (IF (%F11 A 421778 4030 1)
;               (LABELS (#)
;                 (%F11 C B -25644))
;               54)
;           -32326608))
; 
; note: deleting unreachable code

;     (MULTIPLE-VALUE-CALL #'%F3 (VALUES (%F3 -30637724 B) C))
; 
; note: deleting unreachable code

;     (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #))
;              (SETQ C 555910)))
;       (IF (AND NIL (%F11 A A))
;           (IF (%F11 A 421778 4030 1)
;               (LABELS (#)
;                 (%F11 C B -25644))
;               54)
;           -32326608))
; 
; note: deleting unreachable code

;     (MULTIPLE-VALUE-CALL #'%F3 (VALUES (%F3 -30637724 B) C))
; 
; note: deleting unreachable code

;     (SETQ C 555910)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 9 notes
; in: LAMBDA (A B C)
;     (LET* ((V8 (%F4)))
;       (SETQ F11-1 (%F4)))
; 
; caught STYLE-WARNING:
;   The variable V8 is defined but never used.

;     (LABELS ((%F3 (F3-1)
;                -162967612))
;       (%F3
;        (LET* ((V8 #))
;          (SETQ F11-1 #))))
; 
; caught STYLE-WARNING:
;   The variable F3-1 is defined but never used.

;     (FLET ((%F11 (F11-1 F11-2)
;              (LABELS (#)
;                (LOGAND F11-1 #))))
;       (%F11 -120429363 (%F11 62362 B)))
; 
; caught STYLE-WARNING:
;   The variable F11-2 is defined but never used.

;     (LOGAND F11-1
;             (LABELS ((%F3 (F3-1)
;                        -162967612))
;               (%F3
;                (LET* (#)
;                  (SETQ #)))))
; 
; 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 T, 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 T, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 1 note
; in: LAMBDA (A B C)
;     (IF NIL
;         (%F4)
;         (FLET ((%F8 (F8-1 &OPTIONAL # #)
;                  F8-3))
;           0))
; 
; note: deleting unreachable code

;     (%F4)
; 
; note: deleting unreachable code

;     (MULTIPLE-VALUE-CALL #'%F15 (VALUES (%F15 C 0) (%F15 0)))
; 
; note: deleting unreachable code

;     (FLET ((%F4 ()
;              (MULTIPLE-VALUE-CALL #'%F15 (VALUES # #))))
;       (IF NIL
;           (%F4)
;           (FLET ((%F8 #
;                    F8-3))
;             0)))
; 
; note: deleting unreachable code

;     #'%F15
; 
; note: deleting unreachable code

;     (MULTIPLE-VALUE-CALL #'%F15 (VALUES (%F15 C 0) (%F15 0)))
; 
; note: deleting unreachable code

;     (LAMBDA (A B C)
;       (DECLARE (TYPE (INTEGER 867934833 3293695878) A))
;       (DECLARE (TYPE (INTEGER -82111 1776797) B))
;       (DECLARE (TYPE (INTEGER -1432413516 54121964) C))
;       (DECLARE (OPTIMIZE (SPEED 3)))
;       (DECLARE (OPTIMIZE (SAFETY 1)))
;       (DECLARE (OPTIMIZE (DEBUG 1)))
;       (IF NIL
;           (FLET ((%F15 #
;                    #))
;             (FLET (#)
;               (IF NIL
;                   #
;                   #)))
;           0))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 6 notes
; in: LAMBDA (A B)
;     (%F9 0 0 B)
; ==>
;   B
; 
; note: deleting unreachable code

;     (DOTIMES (IV4 5 A) (%F9 0 0 B))
; --> DO BLOCK LET TAGBODY RETURN-FROM PROGN 
; ==>
;   A
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (A B C)
;     (FLET ((%F3 (F3-1 F3-2 F3-3)
;              0))
;       (APPLY #'%F3 0 (CATCH 'FOO (RETURN-FROM B7 (%F3 0 B C))) C NIL))
; 
; caught STYLE-WARNING:
;   The variable F3-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-3 is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; in: LAMBDA (A B C)
;     (-
;      (IF (EQUAL A B)
;          B
;          (%F10 C A 0))
;      (CATCH 'CT2 (THROW 'CT2 C)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (LABELS ((%F10 (F10-1 F10-2 F10-3)
;                0))
;       (APPLY #'%F10 0 A
;              (-
;               (IF (EQUAL A B)
;                   B
;                   (%F10 C A 0))
;               (CATCH 'CT2 (THROW 'CT2 C)))
;              NIL))
; 
; caught STYLE-WARNING:
;   The variable F10-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F10-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F10-3 is defined but never used.

;     (FLET ((%F3 (F3-1 F3-2 F3-3 &OPTIONAL (F3-4 A) (F3-5 0) (F3-6 #))
;              0))
;       (%F3 (%F3 (%F3 B 0 0 0) A 0) A B B B C))
; 
; caught STYLE-WARNING:
;   The variable F3-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-3 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-4 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-5 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-6 is defined but never used.

;     (LAMBDA (A B C)
;       (DECLARE (TYPE (INTEGER 5 155656586618) A))
;       (DECLARE (TYPE (INTEGER -15492 196529) B))
;       (DECLARE (TYPE (INTEGER 7 10) C))
;       (DECLARE (OPTIMIZE (SPEED 3)))
;       (DECLARE (OPTIMIZE (SAFETY 1)))
;       (DECLARE (OPTIMIZE (DEBUG 1)))
;       (FLET ((%F3 (F3-1 F3-2 F3-3 &OPTIONAL # # #)
;                0))
;         (%F3 (%F3 (%F3 B 0 0 0) A 0) A B B B C)))
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (-
;      (IF (EQUAL A B)
;          B
;          (%F10 C A 0))
;      (CATCH 'CT2 (THROW 'CT2 C)))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, 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 second argument is a T, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions
;   printed 4 notes
; in: LAMBDA (B C)
;     (LABELS ((%F3 (F3-1 F3-2)
;                F3-1))
;       (APPLY #'%F3 B (CATCH 'CT8 (THROW 'CT8 (LOGEQV #))) NIL))
; 
; caught STYLE-WARNING:
;   The variable F3-2 is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (B C)
;     (LABELS ((%F3 (F3-1 F3-2)
;                F3-1))
;       (APPLY #'%F3 B (CATCH 'CT8 (THROW 'CT8 (LOGEQV #))) NIL))
; 
; caught STYLE-WARNING:
;   The variable F3-2 is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (A B)
;     (LET ((*S7* 0))
;       B)
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (COMMON-LISP-USER::*S7*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables
; 
; caught STYLE-WARNING:
;   The variable *S7* is defined but never used.

;     (LET* ((V1
;             (LET (#)
;               B)))
;       0)
; 
; caught STYLE-WARNING:
;   The variable V1 is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; in: LAMBDA (A B C)
;     (BOOLE BOOLE-AND 0 V9)
; 
; note: deleting unreachable code

;     (DENOMINATOR (PROGV NIL NIL (VALUES (BOOLE BOOLE-AND 0 V9))))
; 
; note: deleting unreachable code

;     (LAMBDA (A B C)
;       (DECLARE (NOTINLINE BOOLE VALUES DENOMINATOR LIST))
;       (DECLARE
;        (OPTIMIZE (SPEED 2) (SPACE 0) (SAFETY 1) (DEBUG 0) (COMPILATION-SPEED 2)))
;       (CATCH 'CT6
;         (PROGV
;             '(*S8*)
;             (LIST 0)
;           (LET (#)
;             (DENOMINATOR #)))))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (BOOLE BOOLE-AND 0 V9)
; 
; caught WARNING:
;   Derived type of
;   (BLOCK #:BLOCK33
;     (SB-INT:DX-LET ((#:CELL34 (CONS :CONDITION NIL)))
;       (DECLARE (IGNORABLE #:CELL34))
;       (TAGBODY
;         (SB-IMPL::%HANDLER-BIND
;          ((ERROR
;            (LAMBDA (SB-IMPL::TEMP)
;              (SETF (CDR #:CELL34) SB-IMPL::TEMP)
;              (GO #:TAG31))))
;          (RETURN-FROM #:BLOCK33 (#:FORM-FUN-35)))
;        #:TAG31
;         (RETURN-FROM #:BLOCK33 (#:FUN32 (CDR #:CELL34))))))
;   is
;     (VALUES NULL T &OPTIONAL),
;   conflicting with its asserted type
;     INTEGER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes
; in: LAMBDA (B G H)
;     (RATIONAL (THROW 'CT5 0))
; 
; note: deleting unreachable code

;     (LIST 0 (%F15 0 G 0))
; 
; note: deleting unreachable code

;     (%F15 0 (APPLY #'%F15 0 H (PROGN (PROGV '(*S2* *S5*) (LIST 0 #) B) 0) NIL) 0)
; 
; note: deleting unreachable code

;     (LABELS ((%F15 (F15-1 F15-2 F15-3)
;                (RATIONAL (THROW 'CT5 0))))
;       (%F15 0 (APPLY #'%F15 0 H (PROGN (PROGV '# # B) 0) NIL) 0))
; 
; caught STYLE-WARNING:
;   The variable F15-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F15-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F15-3 is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 3 notes
; in: LAMBDA (B)
;     (MIN
;      (IF F12-1
;          (MULTIPLE-VALUE-PROG1 B (RETURN-FROM %F12 0))
;          0))
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (X)
;     (SQRT (THE DOUBLE-FLOAT X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES (OR (DOUBLE-FLOAT 0.0d0) (COMPLEX DOUBLE-FLOAT))
;                           &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (A C)
;     (RATIONAL (THROW 'CT7 0))
; 
; note: deleting unreachable code

;     (IF (LDB-TEST (BYTE 0 0) (RATIONAL (THROW 'CT7 0)))
;         0
;         0)
; 
; note: deleting unreachable code

;     (LOGBITP 0
;              (IF (/= 0 A)
;                  C
;                  (IGNORE-ERRORS
;                   (PROGN
;                    (IF #
;                        0
;                        0)
;                    0))))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of
;   (BLOCK #:BLOCK3
;     (SB-INT:DX-LET ((#:CELL4 (CONS :CONDITION NIL)))
;       (DECLARE (IGNORABLE #:CELL4))
;       (TAGBODY
;         (SB-IMPL::%HANDLER-BIND
;          ((ERROR
;            (LAMBDA (SB-IMPL::TEMP)
;              (SETF (CDR #:CELL4) SB-IMPL::TEMP)
;              (GO #:TAG1))))
;          (RETURN-FROM #:BLOCK3 (#:FORM-FUN-5)))
;        #:TAG1
;         (RETURN-FROM #:BLOCK3 (#:FUN2 (CDR #:CELL4))))))
;   is
;     (VALUES NULL T &OPTIONAL),
;   conflicting with its asserted type
;     INTEGER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 3 notes
; in: LAMBDA (X Y)
;     (ASH X Y)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), 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 first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (LOGAND 4294967295 (ASH X Y))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (THE INTEGER
;          (IF NIL
;              14
;              T))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Constant T conflicts with its asserted type INTEGER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
; in: LAMBDA (A B C D)
;     (LAMBDA (A B C D)
;       (DECLARE (NOTINLINE LOGORC1 BYTE MASK-FIELD))
;       (DECLARE
;        (OPTIMIZE (SPEED 1) (SPACE 1) (SAFETY 1) (DEBUG 3) (COMPILATION-SPEED 0)))
;       (MASK-FIELD (BYTE 7 26) (PROGN (TAGBODY (THE INTEGER #) 1) B)))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA (A)
;     (REDUCE #'+ (LIST 0 A))
; 
; note: could not stack allocate: (REDUCE #'+ (LIST 0 A))
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (A B)
;     (LET ((*S5* 0))
;       (DOTIMES (IV1 2 0)
;         (LET ((*S5* #))
;           0)))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (COMMON-LISP-USER::*S5*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

;     (LET ((*S5* (ELT '(1954479092053) (MIN 0 #))))
;       0)
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (COMMON-LISP-USER::*S5*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

;     (LET ((*S5* 0))
;       (DOTIMES (IV1 2 0)
;         (LET ((*S5* #))
;           0)))
; 
; caught STYLE-WARNING:
;   The variable *S5* is defined but never used.

;     (LET ((*S5* (ELT '(1954479092053) (MIN 0 #))))
;       0)
; 
; caught STYLE-WARNING:
;   The variable *S5* is defined but never used.
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
; in: LAMBDA (A B C D)
;     'CT2
; 
; note: deleting unreachable code

;     (AREF V2)
; ==>
;   V2
; 
; note: deleting unreachable code

;     (MAKE-ARRAY NIL :INITIAL-ELEMENT (CATCH 'CT1 (GO TAG2)))
; 
; note: could not stack allocate:
;        (MAKE-ARRAY NIL :INITIAL-ELEMENT (CATCH 'CT1 (GO TAG2)))

;     (LAMBDA (A B C D)
;       (DECLARE (NOTINLINE AREF LOGANDC2 GCD MAKE-ARRAY))
;       (DECLARE
;        (OPTIMIZE (SPACE 0) (SAFETY 0) (COMPILATION-SPEED 3) (SPEED 3) (DEBUG 1)))
;       (PROGN
;        (TAGBODY
;          (LET* (#)
;            (DECLARE #)
;            (GCD # #))
;         TAG2)
;        0))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 3 notes
; in: LAMBDA (A B)
;     (LOOP FOR LV1 BELOW 2
;           COUNT (LOGBITP 0 (1- (ASH B (MIN 8 #)))))
; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF 
; --> PROGN SETQ 
; ==>
;   (THE FIXNUM (1+ #:LOOP-SUM-0))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM
; 
; compilation unit finished
;   printed 1 note

; in: LAMBDA (S EI X Y)
;     (LAMBDA (S EI X Y)
;       (DECLARE (TYPE (SIMPLE-ARRAY FUNCTION (2)) S)
;                (TYPE EI EI))
;       (FUNCALL (AREF S EI) X Y))
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G13 'EI)
; 
; caught STYLE-WARNING:
;   undefined type: EI

;     (TYPE EI EI)
; 
; caught STYLE-WARNING:
;   undefined type: EI
; 
; compilation unit finished
;   Undefined type:
;     EI
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA (A B C D E)
;     (FLET ((%F10
;                (F10-1 F10-2 F10-3
;                 &OPTIONAL (F10-4 #) (F10-5 0)
;                 &KEY &ALLOW-OTHER-KEYS)
;              (IF (OR # T)
;                  0
;                  (IF F10-1
;                      0
;                      0))))
;       (COMPLEX (MULTIPLE-VALUE-CALL #'%F10 (VALUES A C B 0 0)) 0))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (F10-1 F10-2 F10-3 &OPTIONAL
;                                                      (F10-4 (IGNORE-ERRORS 0))
;                                                      (F10-5 0) &KEY
;                                                      &ALLOW-OTHER-KEYS)
; 
; caught STYLE-WARNING:
;   The variable F10-2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F10-3 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F10-4 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F10-5 is defined but never used.

;     (LAMBDA (A B C D E)
;       (DECLARE (NOTINLINE VALUES COMPLEX EQL))
;       (DECLARE
;        (OPTIMIZE (COMPILATION-SPEED 3) (SPEED 3) (DEBUG 1) (SAFETY 1) (SPACE 0)))
;       (FLET ((%F10 (F10-1 F10-2 F10-3 &OPTIONAL # # &KEY &ALLOW-OTHER-KEYS)
;                (IF #
;                    0
;                    #)))
;         (COMPLEX (MULTIPLE-VALUE-CALL #'%F10 (VALUES A C B 0 0)) 0)))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions
::: Running :BUG-351
; in: LAMBDA (X)
;     (LET :BOGUS-LET
;       :OOPS)
; 
; caught ERROR:
;   Malformed LET bindings: :BOGUS-LET.

;     (LAMBDA (X)
;       (LET :BOGUS-LET
;         :OOPS))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (X)
;     (LET* :BOGUS-LET*
;       :OOPS)
; 
; caught ERROR:
;   Malformed LET* bindings: :BOGUS-LET*.

;     (LAMBDA (X)
;       (LET* :BOGUS-LET*
;         :OOPS))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (X)
;     (PUSH X
;           (LET ((Y 0))
;             Y))
; --> LET* CONS 
; ==>
;   (LET #:G0
;     #:Y1)
; 
; caught ERROR:
;   Malformed LET bindings: #:G0.

; --> LET* 
; ==>
;   (CONS #:ITEM
;         (LET #:G0
;           #:Y1))
; 
; note: The second argument never returns a value.

;     ((Y 0))
; 
; caught ERROR:
;   illegal function call

; in: LAMBDA (X)
;     (PUSH X
;           (LET ((Y 0))
;             Y))
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF LET) #:NEW2 #:G0 #:Y1)
; 
; caught WARNING:
;   The function (SETF LET) is undefined, and its name is reserved by ANSI CL so
;   that even if it were defined later, the code doing so would not be portable.

; ==>
;   (LET* ((#:ITEM X)
;          (#:G0 ((Y 0)))
;          (#:Y1 Y)
;          (#:NEW2
;           (CONS #:ITEM
;                 (LET #:G0
;                   #:Y1))))
;     (FUNCALL #'(SETF LET) #:NEW2 #:G0 #:Y1))
; 
; caught WARNING:
;   undefined variable: Y
; 
; compilation unit finished
;   Undefined function:
;     (SETF LET)
;   Undefined variable:
;     Y
;   caught 2 ERROR conditions
;   caught 2 WARNING conditions
;   printed 1 note
Execution of a form compiled with errors.
Form:
  (LET :BOGUS-LET
  :OOPS)
Compile-time error:
  Malformed LET bindings: :BOGUS-LET.
Execution of a form compiled with errors.
Form:
  (LET* :BOGUS-LET*
  :OOPS)
Compile-time error:
  Malformed LET* bindings: :BOGUS-LET*.
Execution of a form compiled with errors.
Form:
  ((Y 0))
Compile-time error:
  illegal function call
::: Success :BUG-351
::: Running :0.8.17.28-SMA.1
::: Success :0.8.17.28-SMA.1

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in:
;      LET ((F (COMPILE NIL '(LAMBDA () (DECLARE #) (WITH-SIMPLE-RESTART # #)))))
;     (HANDLER-BIND ((ERROR (LAMBDA (C) (INVOKE-RESTART 'BLAH))))
;       (ASSERT (EQUAL (MULTIPLE-VALUE-LIST (FUNCALL F)) '(NIL T))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER0 (C)
;            (INVOKE-RESTART 'BLAH))
;          (#:TYPEP1 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER0) (FUNCTION #:TYPEP1)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ASSERT #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :OVERLARGE-IMMEDIATE-IN-ASH-VOP
::: Success :OVERLARGE-IMMEDIATE-IN-ASH-VOP

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: MULTIPLE-VALUE-BIND (FUN WARNINGS FAILURE)
;     (ASSERT (NOT FAILURE))
; --> TAGBODY LET 
; ==>
;   FAILURE
; 
; caught STYLE-WARNING:
;   reading an ignored variable: FAILURE
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (STRUCT FIRST)
;     (LENGTH NODES)
; 
; 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.

;     (FIND N NEW)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET* SB-KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET 
; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN 
; --> IF FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::TEST) SB-C::ITEM
;                   (FUNCALL SB-C::KEY #:ELEMENT25))
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.

; in: LAMBDA (STRUCT FIRST)
;     (BARS STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: BARS

;     (NODE-NEIGHBOURS (AREF NEW J) BARS)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-NEIGHBOURS

;     (NODES STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: NODES
; 
; compilation unit finished
;   Undefined functions:
;     BARS NODE-NEIGHBOURS NODES
;   caught 3 STYLE-WARNING conditions
;   printed 5 notes
; in: LAMBDA (X Y A B C)
;     (LAMBDA (X Y A B C) (- Y (* (SIGNUM X) (SQRT (ABS #)))))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: LET ((COUNT0 0) (COUNT1 0))
;     (HANDLER-BIND ((COMPILER-NOTE (LAMBDA (C) (INCF COUNT1))))
;       (COMPILE NIL
;                '(LAMBDA (X) (DECLARE (OPTIMIZE #)) (CHECK-TYPE X FIXNUM) (1+ X))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER4 (C)
;            (INCF COUNT1))
;          (#:TYPEP5 (CONDITION)
;            (TYPEP CONDITION 'COMPILER-NOTE)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER4) (FUNCTION #:TYPEP5)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (COMPILE NIL '#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (HANDLER-BIND ((COMPILER-NOTE (LAMBDA (C) (INCF COUNT0))))
;       (COMPILE NIL '(LAMBDA (X) (DECLARE (OPTIMIZE #)) (1+ X))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER0 (C)
;            (INCF COUNT0))
;          (#:TYPEP1 (CONDITION)
;            (TYPEP CONDITION 'COMPILER-NOTE)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER0) (FUNCTION #:TYPEP1)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (COMPILE NIL '#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA (X)
;     (1+ X)
; ==>
;   (+ X 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 5 notes
; in: LAMBDA (X)
;     (LAMBDA (X) (DECLARE (OPTIMIZE (SPEED 3))) (CHECK-TYPE X FIXNUM) (1+ X))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
::: Running :SAP-REF-FLOAT
; in: LAMBDA (SAP)
;     (LET ((X (SETF # 1.0d0)))
;       (1+ X))
; 
; note: deleting unreachable code

;     (SETF (SB-SYS:SAP-REF-SINGLE SAP 0) 1.0d0)
; ==>
;   (SB-KERNEL:%SET-SAP-REF-SINGLE SAP 0 1.0d0)
; 
; caught WARNING:
;   Constant 1.0d0 conflicts with its asserted type SINGLE-FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
::: Success :SAP-REF-FLOAT
::: Running :STRING-UNION-TYPES
::: Success :STRING-UNION-TYPES
; in: LAMBDA (A)
;     (FLET ((%F3 (F3-1 F3-2)
;              (LOOP FOR LV2 BELOW 1
;                    COUNT (LOGBITP 29 #))))
;       (%F3 0 A))
; 
; caught STYLE-WARNING:
;   The variable F3-1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-2 is defined but never used.

;     (LET* ((V7
;             (FLET (#)
;               (%F3 0 A))))
;       0)
; 
; caught STYLE-WARNING:
;   The variable V7 is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; in: LAMBDA ()
;     (/ 1 0)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-NON-VAR-1)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-NON-VAR-1)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-NON-VAR-2)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-NON-VAR-2)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-1)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-1)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-2)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-2)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-3 :LP-894498)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-3 :LP-894498)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-4 :LP-894498)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :FLOAT-BOUNDS-4 :LP-894498)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-VAR-1)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-VAR-1)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-VAR-2)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :VAR-EQL-TO-VAR-2)
::: Running (:TYPE-DERIVATION :FLOAT-BOUNDS)
::: Success (:TYPE-DERIVATION :FLOAT-BOUNDS)
::: Running :LOGBITP-VOP
; in: LAMBDA (DAYS SHIFT)
;     (LET* ((RESULT 0)
;            (CANONICALIZED-SHIFT (+ SHIFT 1))
;            (FIRST-WRAPPING-DAY (- 1 CANONICALIZED-SHIFT)))
;       (DECLARE (TYPE FIXNUM RESULT))
;       (DOTIMES (SOURCE-DAY 7)
;         (DECLARE (TYPE (INTEGER 0 6) SOURCE-DAY))
;         (WHEN (LOGBITP SOURCE-DAY DAYS) (SETF RESULT #)))
;       RESULT)
; ==>
;   RESULT
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Success :LOGBITP-VOP
; in: LAMBDA ()
;     (FLET ((%F3 (F3-1 &KEY (KEY1 #))
;              0))
;       (APPLY #'%F3 0 NIL))
; 
; caught STYLE-WARNING:
;   The variable KEY1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable F3-1 is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
STYLE-WARNING:
   Character decoding error in a ;-comment at position 90240 reading source stream #<FORM-TRACKING-STREAM
                                                                                     for "file /«PKGBUILDDIR»/tests/compiler.pure.lisp"
                                                                                     {51B18159}>, resyncing.

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :PROPAGATE-TYPE-THROUGH-ERROR-AND-BINDING)
;     (HANDLER-BIND ((WARNING (LAMBDA (W) (SETF #))))
;       (COMPILE NIL
;                '(LAMBDA (X)
;                   (LIST
;                    (LET #
;                      #
;                      Y)
;                    (INTEGER-LENGTH X)))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER3 (W)
;            (SETF WARNED-P T))
;          (#:TYPEP4 (CONDITION)
;            (TYPEP CONDITION 'WARNING)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER3) (FUNCTION #:TYPEP4)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (COMPILE NIL '#)))))
; 
; caught STYLE-WARNING:
;   The variable W is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :PROPAGATE-TYPE-THROUGH-ERROR-AND-BINDING
; in: LAMBDA (X)
;     (INTEGER-LENGTH X)
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of X is
;     (VALUES FLOAT &OPTIONAL),
;   conflicting with its asserted type
;     INTEGER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
::: Success :PROPAGATE-TYPE-THROUGH-ERROR-AND-BINDING
::: Running :SAFE-DEAD-/
::: Success :SAFE-DEAD-/
::: Running :DEAD-UNBOUND

; in: LAMBDA ()
;     (LAMBDA () #:UNBOUND 42)
; 
; caught WARNING:
;   undefined variable: #:UNBOUND
; 
; compilation unit finished
;   Undefined variable:
;     #:UNBOUND
;   caught 1 WARNING condition
::: Success :DEAD-UNBOUND
::: Running :HIGH-DEBUG-KNOWN-FUNCTION-INLINING
::: Success :HIGH-DEBUG-KNOWN-FUNCTION-INLINING
::: Running :HIGH-DEBUG-KNOWN-FUNCTION-TRANSFORM-WITH-OPTIONAL-ARGUMENTS

; in: LAMBDA (X Y)
;     (SOME-UNKNOWN-FUNCTION (LAMBDA () (RETURN (MEMBER X Y))))
; 
; caught STYLE-WARNING:
;   undefined function: SOME-UNKNOWN-FUNCTION
; 
; compilation unit finished
;   Undefined function:
;     SOME-UNKNOWN-FUNCTION
;   caught 1 STYLE-WARNING condition
::: Success :HIGH-DEBUG-KNOWN-FUNCTION-TRANSFORM-WITH-OPTIONAL-ARGUMENTS

;     (SOME-RANDOM-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: SOME-RANDOM-FUNCTION
; 
; compilation unit finished
;   Undefined function:
;     SOME-RANDOM-FUNCTION
;   caught 1 STYLE-WARNING condition
::: Running :BUG-423
; in: LAMBDA (X)
;     (ARRAYP Z)
; ==>
;   Z
; 
; note: deleting unreachable code

;     (LET ((Q (TRULY-THE VECTOR Z)))
;       (LENGTH Q))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (ERROR "oops")
; ==>
;   "oops"
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 4 notes
; in: LAMBDA (X)
;     (LET ((Q (TRULY-THE LIST Z)))
;       (LENGTH Q))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (ERROR "oops")
; ==>
;   "oops"
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 3 notes
::: Success :BUG-423
; in: LAMBDA (FROB)
;     (%ZIG)
; 
; caught WARNING:
;   function called with zero arguments, but wants exactly one
;   See also:
;     The ANSI Standard, Section 3.2.2.3

;     (LAMBDA (FROB)
;       (LABELS ((%ZIG (FROB)
;                  (TYPECASE FROB # #)))
;         (%ZIG)))
; 
; caught STYLE-WARNING:
;   The variable FROB is defined but never used.

; in: LAMBDA (FROB)
;     (UNKNOWN1)
; 
; caught STYLE-WARNING:
;   undefined function: UNKNOWN1

;     (UNKNOWN2)
; 
; caught STYLE-WARNING:
;   undefined function: UNKNOWN2
; 
; compilation unit finished
;   Undefined functions:
;     UNKNOWN1 UNKNOWN2
;   caught 1 WARNING condition
;   caught 3 STYLE-WARNING conditions
; in: LAMBDA (R P2)
;     (LAMBDA (R P2)
;       (DECLARE (OPTIMIZE SPEED (SAFETY 1))
;                (TYPE (SIMPLE-ARRAY SINGLE-FLOAT NIL) R)
;                (TYPE (INTEGER -9369756340 22717335) P2))
;       (SETF (AREF R) (* 296.3066 (THE # P2)))
;       (VALUES))
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF AND THE <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -9369756340), not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER -9369756340), not a (SIGNED-BYTE 32).
;       etc.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (P2)
;     (LAMBDA (P2)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 3) (SPACE 1))
;                (TYPE (MEMBER 26899.875 #:G5437 CHAR-CODE #:G5438) P2))
;       (* 104102267 P2))
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET OR LET IF OR THE TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> EQL IF 
; ==>
;   (EQL #:OBJECT6 '26899.875)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (P2)
;     (THE (MEMBER 17549.955 #:G35917) P2)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET OR 
; --> LET IF OR THE TYPEP LET SB-C::%TYPEP-WRAPPER EQL IF 
; ==>
;   (EQL #:OBJECT9 '17549.955)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
; 
; compilation unit finished
;   printed 1 note
::: Running :STRING-AREF-TYPE
::: Success :STRING-AREF-TYPE
::: Running :BASE-STRING-AREF-TYPE
::: Success :BASE-STRING-AREF-TYPE
::: Running :DOLIST-CONSTANT-TYPE-DERIVATION
::: Success :DOLIST-CONSTANT-TYPE-DERIVATION
::: Running :DOLIST-SIMPLE-LIST-TYPE-DERIVATION
::: Success :DOLIST-SIMPLE-LIST-TYPE-DERIVATION
::: Running :DOLIST-DOTTED-CONSTANT-LIST-TYPE-DERIVATION
; in: LAMBDA (X)
;     (DOLIST (Y '(1 2 3 . 4) :FOO)
;       (WHEN X (RETURN (COMPILER-TEST-UTIL:COMPILER-DERIVED-TYPE Y))))
; 
; caught STYLE-WARNING:
;   Dotted list (1 2 3 . 4) in DOLIST.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :DOLIST-DOTTED-CONSTANT-LIST-TYPE-DERIVATION
::: Running :CONSTANT-LIST-DESTRUCTURING
::: Success :CONSTANT-LIST-DESTRUCTURING
::: Running :HAIRY-FUNCTION-NAME
::: Success :HAIRY-FUNCTION-NAME
::: Running :PROGV-AND-RESTRICT-COMPILER-POLICY
; in: LAMBDA (X)
;     (PROGV '(I) (LIST (+ I 1)) I)
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (LABELS ((#:UNBIND1 (SB-C::VARS)
;              (DECLARE (OPTIMIZE # #))
;              (LET (#)
;                (DOLIST # # #)))
;            (#:BIND0 (SB-C::VARS SB-C::VALS)
;              (DECLARE (OPTIMIZE # # #))
;              (COND (#) (# #) (T # #))))
;     (#:BIND0 '(I) (LIST (+ I 1))))
; 
; caught STYLE-WARNING:
;   Repeated OPTIMIZE quality. Using (DEBUG 3)
; 
; caught STYLE-WARNING:
;   Repeated OPTIMIZE quality. Using (DEBUG 3)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Success :PROGV-AND-RESTRICT-COMPILER-POLICY
::: Running :LATE-BOUND-PRIMITIVE
; in: LAMBDA ()
;     (FUNCALL 'CONS 1)
; --> SB-C::%FUNCALL 
; ==>
;   (CONS 1)
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly two.
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success :LATE-BOUND-PRIMITIVE
::: Running :HAIRY-ARRAY-ELEMENT-TYPE-DERIVATION
::: Success :HAIRY-ARRAY-ELEMENT-TYPE-DERIVATION
::: Running :REST-LIST-TYPE-DERIVATION
::: Success :REST-LIST-TYPE-DERIVATION
::: Running :REST-LIST-TYPE-DERIVATION2
::: Success :REST-LIST-TYPE-DERIVATION2
::: Running :REST-LIST-TYPE-DERIVATION3
::: Success :REST-LIST-TYPE-DERIVATION3
::: Running :REST-LIST-TYPE-DERIVATION4
::: Success :REST-LIST-TYPE-DERIVATION4
::: Running :BASE-CHAR-TYPEP-ELIMINATION
::: Success :BASE-CHAR-TYPEP-ELIMINATION
::: Running :REGRESSION-1.0.24.37
::: Success :REGRESSION-1.0.24.37
; in: LAMBDA (X Y)
;     (IF (EQL X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (EQL X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (= X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (< X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X Y)
;     (IF (> X Y)
;         0.0d0
;         0.0d0)
; ==>
;   0.0d0
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Running :CAR-AND-CDR-TYPE-DERIVATION-CONSERVATIVE
; in: LAMBDA (Y)
;     (+ (CAR X) (CDR X))
; 
; 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 static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, 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 T, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.
; 
; compilation unit finished
;   printed 3 notes
; in: LAMBDA (Y)
;     (+ (CAR X) (CDR X))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.
; 
; compilation unit finished
;   printed 7 notes
::: Success :CAR-AND-CDR-TYPE-DERIVATION-CONSERVATIVE
::: Running :ARRAY-DIMENSION-DERIVATION-CONSERVATIVE
::: Success :ARRAY-DIMENSION-DERIVATION-CONSERVATIVE
::: Running :WITH-TIMEOUT-CODE-DELETION-NOTE
::: Success :WITH-TIMEOUT-CODE-DELETION-NOTE
::: Running :FULL-WARNING-FOR-UNDEFINED-TYPE-IN-CL
::: Success :FULL-WARNING-FOR-UNDEFINED-TYPE-IN-CL
::: Running :SINGLE-WARNING-FOR-SINGLE-UNDEFINED-TYPE

; in: LAMBDA (X)
;     (THE #:NO-TYPE X)
; 
; caught STYLE-WARNING:
;   undefined type: #:NO-TYPE
; 
; compilation unit finished
;   Undefined type:
;     #:NO-TYPE
;   caught 1 STYLE-WARNING condition

;     (THE 'FIXNUM X)
; 
; caught WARNING:
;   Undefined type 'FIXNUM. The name starts with QUOTE: probably use of a quoted
;   type name in a context where the name is not evaluated.
; 
; compilation unit finished
;   Undefined type:
;     'FIXNUM
;   caught 1 WARNING condition
::: Success :SINGLE-WARNING-FOR-SINGLE-UNDEFINED-TYPE
::: Running :COMPLEX-SUBTYPE-DUMPING-IN-XC
::: Success :COMPLEX-SUBTYPE-DUMPING-IN-XC
::: Running :COMPLEX-SINGLE-FLOAT-FILL
::: Success :COMPLEX-SINGLE-FLOAT-FILL
::: Running :REGRESSION-1.0.28.21
::: Success :REGRESSION-1.0.28.21
::: Running :NO-SILLY-COMPILER-NOTES-FROM-CHARACTER-FUNCTION
::: Success :NO-SILLY-COMPILER-NOTES-FROM-CHARACTER-FUNCTION
::: Running (MAKE-ARRAY :OPEN-CODE-INITIAL-CONTENTS)
::: Success (MAKE-ARRAY :OPEN-CODE-INITIAL-CONTENTS)
::: Running :OPTIMIZE-ARRAY-IN-BOUNDS-P
::: Success :OPTIMIZE-ARRAY-IN-BOUNDS-P
::: Running (EXPT -1 INTEGER)
::: Success (EXPT -1 INTEGER)

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :FLOAT-DIVISION-USING-EXACT-RECIPROCAL)
;     (FLET ((TEST (LAMBDA-FORM ARG RES &KEY (CHECK-INSTS T))
;              (LET* (# #)
;                (ASSERT #)
;                (ASSERT #))))
;       (DOLIST (C '(128 64 32 16 8 4 2 1 1/2 1/4 1/8 1/16 ...))
;         (DOLIST (TYPE '(SINGLE-FLOAT DOUBLE-FLOAT))
;           (LET* (# # # #)
;             (TEST `# ARG R1)
;             (TEST `# ARG R2)
;             (TEST `# ARG R1)
;             (TEST `# ARG R2))))
;       (DOLIST (TYPE '(SINGLE-FLOAT DOUBLE-FLOAT))
;         (LET ((TREY #) (ONE #))
;           (TEST `(LAMBDA # # #) TREY ONE :CHECK-INSTS NIL)
;           (TEST `(LAMBDA # # #) TREY (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable CHECK-INSTS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :FLOAT-DIVISION-USING-EXACT-RECIPROCAL
::: Success :FLOAT-DIVISION-USING-EXACT-RECIPROCAL
::: Running :FLOAT-MULTIPLICATION-BY-ONE
::: Success :FLOAT-MULTIPLICATION-BY-ONE

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :FLOAT-ADDITION-OF-ZERO)
;     (LET* ((FUN1 (COMPILE NIL LAMBDA-FORM))
;            (FUN2 (FUNCALL (COMPILE NIL `#)))
;            (DISASSEMBLY1
;             (WITH-OUTPUT-TO-STRING (S) (DISASSEMBLE FUN1 :STREAM S)))
;            (DISASSEMBLY2
;             (WITH-OUTPUT-TO-STRING (S) (DISASSEMBLE FUN2 :STREAM S))))
;       (ASSERT (EQL RESULT (FUNCALL FUN1 ARG)))
;       (ASSERT (EQL RESULT (FUNCALL FUN2 ARG))))
; 
; caught STYLE-WARNING:
;   The variable DISASSEMBLY1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DISASSEMBLY2 is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running :FLOAT-ADDITION-OF-ZERO
::: Success :FLOAT-ADDITION-OF-ZERO

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :FLOAT-SUBSTRACTION-OF-ZERO)
;     (LET* ((FUN1 (COMPILE NIL LAMBDA-FORM))
;            (FUN2 (FUNCALL (COMPILE NIL `#)))
;            (DISASSEMBLY1
;             (WITH-OUTPUT-TO-STRING (S) (DISASSEMBLE FUN1 :STREAM S)))
;            (DISASSEMBLY2
;             (WITH-OUTPUT-TO-STRING (S) (DISASSEMBLE FUN2 :STREAM S))))
;       (ASSERT (EQL RESULT (FUNCALL FUN1 ARG)))
;       (ASSERT (EQL RESULT (FUNCALL FUN2 ARG))))
; 
; caught STYLE-WARNING:
;   The variable DISASSEMBLY1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DISASSEMBLY2 is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running :FLOAT-SUBSTRACTION-OF-ZERO
::: Success :FLOAT-SUBSTRACTION-OF-ZERO

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :FLOAT-MULTIPLICATION-BY-TWO)
;     (LET* ((FUN1 (COMPILE NIL LAMBDA-FORM))
;            (FUN2 (FUNCALL (COMPILE NIL `#)))
;            (DISASSEMBLY1
;             (WITH-OUTPUT-TO-STRING (S) (DISASSEMBLE FUN1 :STREAM S)))
;            (DISASSEMBLY2
;             (WITH-OUTPUT-TO-STRING (S) (DISASSEMBLE FUN2 :STREAM S))))
;       (ASSERT (EQL RESULT (FUNCALL FUN1 ARG)))
;       (ASSERT (EQL RESULT (FUNCALL FUN2 ARG))))
; 
; caught STYLE-WARNING:
;   The variable DISASSEMBLY1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DISASSEMBLY2 is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running :FLOAT-MULTIPLICATION-BY-TWO
::: Success :FLOAT-MULTIPLICATION-BY-TWO
::: Running :BUG-392203
::: Success :BUG-392203
::: Running :ALLOCATE-CLOSURES-FAILING-AVER
; in: LAMBDA ()
;     (LABELS ((K (&OPTIONAL X) #'K)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :ALLOCATE-CLOSURES-FAILING-AVER
::: Running :FLUSH-VECTOR-CREATION
::: Success :FLUSH-VECTOR-CREATION
::: Running :ARRAY-TYPE-PREDICATES
::: Success :ARRAY-TYPE-PREDICATES
::: Running :TRUNCATE-FLOAT
::: Success :TRUNCATE-FLOAT
::: Running :MAKE-ARRAY-UNNAMED-DIMENSION-LEAF
::: Success :MAKE-ARRAY-UNNAMED-DIMENSION-LEAF
::: Running :FP-DECODING-FUNS-NOT-FLUSHABLE-IN-SAFE-CODE
::: Success :FP-DECODING-FUNS-NOT-FLUSHABLE-IN-SAFE-CODE
::: Running :SAP-REF-16
::: Success :SAP-REF-16
::: Running :COERCE-TYPE-WARNING
::: Success :COERCE-TYPE-WARNING
::: Running :TRUNCATE-DOUBLE-FLOAT
::: Success :TRUNCATE-DOUBLE-FLOAT
::: Running :SET-SLOT-VALUE-NO-WARNING
; in: LAMBDA (X Y)
;     (SETF (SLOT-VALUE X 'BAR) Y)
; ==>
;   (SB-PCL::SET-SLOT-VALUE X 'BAR Y)
; 
; note: unable to optimize because: cannot use optimized accessor in safe code
; 
; compilation unit finished
;   printed 1 note
::: Success :SET-SLOT-VALUE-NO-WARNING
::: Running :CONCATENATE-STRING-OPT
::: Success :CONCATENATE-STRING-OPT
::: Running :SATISFIES-NO-LOCAL-FUN
; in: LAMBDA (ARG)
;     (LABELS ((LOCAL-NOT-GLOBAL-BUG (X)
;                T)
;              (BAR (X)
;                (TYPEP X '(SATISFIES LOCAL-NOT-GLOBAL-BUG))))
;       (BAR ARG))
; 
; note: deleting unused function
;   (LABELS LOCAL-NOT-GLOBAL-BUG :IN "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
; 
; compilation unit finished
;   printed 1 note
::: Success :SATISFIES-NO-LOCAL-FUN
::: Running :BUG-310132
; in: LAMBDA (&OPTIONAL (FOO #P"foo/bar"))
;     (LAMBDA (&OPTIONAL (FOO #P"foo/bar")))
; 
; caught STYLE-WARNING:
;   The variable FOO is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :BUG-310132
::: Running :BUG-309129
; in: LAMBDA (V)
;     (VECTOR-POP V)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Success :BUG-309129
::: Running :UNARY-ROUND-TYPE-DERIVATION
::: Success :UNARY-ROUND-TYPE-DERIVATION
::: Running :BUG-525949
::: Success :BUG-525949
::: Running :%ARRAY-DATA-VECTOR-TYPE-DERIVATION
::: Success :%ARRAY-DATA-VECTOR-TYPE-DERIVATION
::: Running :ARRAY-STORAGE-VECTOR-TYPE-DERIVATION
::: Success :ARRAY-STORAGE-VECTOR-TYPE-DERIVATION
::: Running :BUG-523612
::: Success :BUG-523612
::: Running :BUG-309788
::: Success :BUG-309788
::: Running :BUG-309124
; in: LAMBDA (X)
;     (COND ((TYPEP X 'FIXNUM) "hala") ((TYPEP X 'FIXNUM) "buba")
;           ((TYPEP X 'BIGNUM) "hip") (T "zuz"))
; --> IF COND IF PROGN 
; ==>
;   "buba"
; 
; note: deleting unreachable code

; --> IF COND IF COND IF COND THE PROGN 
; ==>
;   "zuz"
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
::: Success :BUG-309124
::: Running :BUG-316078
::: Success :BUG-316078
::: Running :MULT-BY-ONE-IN-FLOAT-ACC-ZERO
::: Success :MULT-BY-ONE-IN-FLOAT-ACC-ZERO

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :DOTIMES-NON-INTEGER-COUNTER-VALUE)
;     (DOTIMES (I 8.6))
; --> DO BLOCK 
; ==>
;   (LET ((I 0) (#:COUNT18 8.6))
;     (DECLARE (TYPE UNSIGNED-BYTE I)
;              (TYPE INTEGER #:COUNT18))
;     (TAGBODY
;       (GO #:G20)
;      #:G19
;       (TAGBODY)
;       (PSETQ I (1+ I))
;      #:G20
;       (UNLESS (>= I #:COUNT18) (GO #:G19))
;       (RETURN-FROM NIL (PROGN NIL))))
; 
; caught WARNING:
;   Constant 8.6 conflicts with its asserted type INTEGER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :DOTIMES-NON-INTEGER-COUNTER-VALUE
::: Success :DOTIMES-NON-INTEGER-COUNTER-VALUE
::: Running :BUG-454681
; in: LAMBDA ()
;     (MULTIPLE-VALUE-BIND (ITERATOR+977 GETTER+978)
;         (DOES-NOT-EXIST-BUT-DOES-NOT-MATTER)
;       (FLET ((ITERATOR+976 ()
;                (FUNCALL ITERATOR+977)))
;         (DECLARE (INLINE ITERATOR+976))
;         (LET ((ITERATOR+976 #'ITERATOR+976))
;           (FUNCALL ITERATOR+976))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (ITERATOR+977) (GETTER+978) &REST #:G0)
;       (DECLARE (IGNORE #:G0))
;       (FLET ((ITERATOR+976 ()
;                (FUNCALL ITERATOR+977)))
;         (DECLARE (INLINE ITERATOR+976))
;         (LET ((ITERATOR+976 #'ITERATOR+976))
;           (FUNCALL ITERATOR+976))))
; 
; caught STYLE-WARNING:
;   The variable GETTER+978 is defined but never used.

; in: LAMBDA ()
;     (DOES-NOT-EXIST-BUT-DOES-NOT-MATTER)
; 
; caught STYLE-WARNING:
;   undefined function: DOES-NOT-EXIST-BUT-DOES-NOT-MATTER
; 
; compilation unit finished
;   Undefined function:
;     DOES-NOT-EXIST-BUT-DOES-NOT-MATTER
;   caught 2 STYLE-WARNING conditions
::: Success :BUG-454681
::: Running :COMPLEX-FLOAT-LOCAL-FUN-ARGS
::: Success :COMPLEX-FLOAT-LOCAL-FUN-ARGS
::: Running :BUG-309130
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (X)
;     (LIST (FILL-POINTER X) (SVREF X 1))
; 
; note: deleting unreachable code
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   printed 1 note
; in: LAMBDA (X)
;     (VECTOR-PUSH (SVREF X 0) X)
; 
; note: deleting unreachable code
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   printed 1 note
; in: LAMBDA (X)
;     (VECTOR-PUSH-EXTEND (SVREF X 0) X)
; 
; note: deleting unreachable code
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   printed 1 note
::: Success :BUG-309130


; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :BUG-646796)
;     (ASSERT 42 (FUNCALL (COMPILE NIL `(LAMBDA () (LOAD-TIME-VALUE #)))))
; --> TAGBODY SETF LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF COMPILE) #:NEW3 NIL
;                   `(LAMBDA () (LOAD-TIME-VALUE (THE (VALUES FIXNUM) 42))))
; 
; caught WARNING:
;   The function (SETF COMPILE) is undefined, and its name is reserved by ANSI CL
;   so that even if it were defined later, the code doing so would not be portable.

; --> TAGBODY SETF 
; ==>
;   (SETQ FUNCALL (SB-IMPL::ASSERT-PROMPT 'FUNCALL FUNCALL))
; 
; caught WARNING:
;   undefined variable: FUNCALL
; 
; compilation unit finished
;   Undefined function:
;     (SETF COMPILE)
;   Undefined variable:
;     FUNCALL
;   caught 2 WARNING conditions
::: Running :BUG-646796
::: Success :BUG-646796
::: Running :BUG-654289
::: Success :BUG-654289
::: Running :BUG-309063
::: Success :BUG-309063
::: Running :BUG-655872
::: Success :BUG-655872
::: Running :BUG-655203-REGRESSION
::: Success :BUG-655203-REGRESSION

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :CONSTANT-CONCATENATE-COMPILE-TIME)
;     (LET* ((L0 (MAKE-LAMBDA 1))
;            (L1 (MAKE-LAMBDA 10))
;            (L2 (MAKE-LAMBDA 100))
;            (L3 (MAKE-LAMBDA 1000))
;            (T0 (GET-INTERNAL-RUN-TIME))
;            (F0 (COMPILE NIL L0))
;            (T1 (GET-INTERNAL-RUN-TIME))
;            (F1 (COMPILE NIL L1))
;            (T2 (GET-INTERNAL-RUN-TIME))
;            (F2 (COMPILE NIL L2))
;            (T3 (GET-INTERNAL-RUN-TIME))
;            (F3 (COMPILE NIL L3))
;            ...)
;       (ASSERT (AND F1 F2 F3))
;       (ASSERT (< D3 (* 10 SHORT-AVG))))
; 
; caught STYLE-WARNING:
;   The variable F0 is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :CONSTANT-CONCATENATE-COMPILE-TIME
::: Success :CONSTANT-CONCATENATE-COMPILE-TIME
::: Running :BUG-384892
::: Success :BUG-384892
::: Running :BUG-309448
::: Success :BUG-309448
::: Running :REGRESSION-1.0.44.34

; in: LAMBDA (Z &REST ARGS)
;     (CALL #'FOO NIL)
; 
; caught STYLE-WARNING:
;   undefined function: CALL
; 
; compilation unit finished
;   Undefined function:
;     CALL
;   caught 1 STYLE-WARNING condition
::: Success :REGRESSION-1.0.44.34
::: Running :BUG-713626
::: Success :BUG-713626
::: Running :KNOWN-FUN-ALLOWS-OTHER-KEYS
::: Success :KNOWN-FUN-ALLOWS-OTHER-KEYS
::: Running :BUG-551227

; in: LAMBDA (A)
;     (F (MOD A E))
; 
; caught STYLE-WARNING:
;   undefined function: F

;     (G A)
; 
; caught STYLE-WARNING:
;   undefined function: G
; 
; compilation unit finished
;   Undefined functions:
;     F G
;   caught 2 STYLE-WARNING conditions
::: Success :BUG-551227
::: Running :FUNCALL-LAMBDA-INLINED
::: Success :FUNCALL-LAMBDA-INLINED

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :BUG-720382)
;     (HANDLER-BIND (((AND WARNING (NOT STYLE-WARNING)) (LAMBDA (C) (INCF W))))
;       (COMPILE NIL `(LAMBDA (B) ((LAMBDA # B) 1))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER18 (C)
;            (INCF W))
;          (#:TYPEP19 (CONDITION)
;            (TYPEP CONDITION '(AND WARNING #))))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER18) (FUNCTION #:TYPEP19)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (COMPILE NIL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :BUG-720382
; in: LAMBDA (B)
;     ((LAMBDA () B) 1)
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::CLAMBDA
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA ()
;                     :IN
;                     "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
;      :KIND NIL
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS NIL {52116D71}>
;    1)
; 
; caught WARNING:
;   function called with one argument, but wants exactly zero
;   See also:
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success :BUG-720382
::: Running :MULTIPLE-ARGS-TO-FUNCTION
; in: LAMBDA ()
;     (FUNCALL (FUNCTION FOO 42))
; ==>
;   (SB-C::%FUNCALL (FUNCTION FOO 42))
; 
; caught ERROR:
;   error while parsing arguments to FUNCTION:
;     invalid number of elements in
;       (FOO 42)
;     to satisfy lambda list
;       (SB-C::THING):
;     exactly 1 expected, but 2 found
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :MULTIPLE-ARGS-TO-FUNCTION
::: Running :LVAR-FUN-IS
::: Success :LVAR-FUN-IS
::: Running :DELETE-TO-DELQ-OPT
::: Success :DELETE-TO-DELQ-OPT
::: Running :BUG-767959
::: Success :BUG-767959
::: Running :SB-COVER-AND-TYPEP
; in: LAMBDA (X)
;     (LENGTH X)
; ==>
;   X
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Success :SB-COVER-AND-TYPEP
::: Running :MEMBER-ON-LONG-CONSTANT-LIST
::: Success :MEMBER-ON-LONG-CONSTANT-LIST
::: Running :BUG-722734

; in: LAMBDA ()
;     (LIST UNBOUND-VARIABLE-1 UNBOUND-VARIABLE-2)
; 
; caught WARNING:
;   undefined variable: UNBOUND-VARIABLE-1
; 
; caught WARNING:
;   undefined variable: UNBOUND-VARIABLE-2
; 
; compilation unit finished
;   Undefined variables:
;     UNBOUND-VARIABLE-1 UNBOUND-VARIABLE-2
;   caught 2 WARNING conditions
::: Success :BUG-722734
::: Running :BUG-771673
::: Success :BUG-771673
::: Running (:BUG-793771 +)
::: Success (:BUG-793771 +)
::: Running (:BUG-793771 -)
::: Success (:BUG-793771 -)
::: Running (:BUG-793771 *)
::: Success (:BUG-793771 *)
::: Running (:BUG-793771 /)
::: Success (:BUG-793771 /)
::: Running (:BUG-486812 SINGLE-FLOAT)
::: Success (:BUG-486812 SINGLE-FLOAT)
::: Running (:BUG-486812 DOUBLE-FLOAT)
::: Success (:BUG-486812 DOUBLE-FLOAT)
::: Running :BUG-729765
::: Success :BUG-729765
::: Running :CMPPS
::: Success :CMPPS
::: Running :CMPPD
::: Success :CMPPD
::: Running :LVAR-EXTERNALLY-CHECKABLE-TYPE-NIL
::: Success :LVAR-EXTERNALLY-CHECKABLE-TYPE-NIL
::: Running :SIMPLE-TYPE-ERROR-IN-BOUND-PROPAGATION-A
::: Success :SIMPLE-TYPE-ERROR-IN-BOUND-PROPAGATION-A
::: Running :SIMPLE-TYPE-ERROR-IN-BOUND-PROPAGATION-B
::: Success :SIMPLE-TYPE-ERROR-IN-BOUND-PROPAGATION-B
::: Running :FIXED-%MORE-ARG-VALUES
::: Success :FIXED-%MORE-ARG-VALUES
::: Running :BUG-826970
::: Success :BUG-826970
::: Running :BUG-826971
::: Success :BUG-826971
::: Running :BUG-738464
; in: LAMBDA ()
;     (FTYPE NON-FUNCTION-TYPE FOO)
; 
; caught STYLE-WARNING:
;   ignoring declared FTYPE: NON-FUNCTION-TYPE (not a function type)

;     (FTYPE NON-FUNCTION-TYPE FOO)
; 
; caught STYLE-WARNING:
;   undefined type: NON-FUNCTION-TYPE
; 
; compilation unit finished
;   Undefined type:
;     NON-FUNCTION-TYPE
;   caught 2 STYLE-WARNING conditions
::: Success :BUG-738464
::: Running :BUG-832005
::: Success :BUG-832005
::: Running :MEMBER-TYPE-PRIMITIVE-TYPE
::: Success :MEMBER-TYPE-PRIMITIVE-TYPE
::: Running :BUG-883500
::: Success :BUG-883500
::: Running :BUG-883519
::: Success :BUG-883519
::: Running :BUG-887220
::: Success :BUG-887220
::: Running :CATCH-INTERFERES-WITH-DEBUG-NAMES
::: Success :CATCH-INTERFERES-WITH-DEBUG-NAMES
::: Running :INTERVAL-DIV-SIGNED-ZERO
; in: LAMBDA (A)
;     (FFLOOR (THE NUMBER A) -63243.127451934015d0)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FTRUNCATE BLOCK MACROLET 
; --> SB-KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF 
; --> PROGN TYPECASE LET COND IF COND IF COND IF PROGN MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL TRUNCATE 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FTRUNCATE BLOCK MACROLET 
; --> SB-KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF 
; --> COND IF PROGN TYPECASE LET COND IF COND IF PROGN IF LET 
; --> SB-KERNEL:%UNARY-FTRUNCATE 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FTRUNCATE BLOCK MACROLET 
; --> SB-KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF 
; --> COND IF COND IF PROGN TYPECASE LET COND IF COND IF PROGN IF LET 
; --> SB-KERNEL:%UNARY-FTRUNCATE 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FTRUNCATE BLOCK MACROLET 
; --> SB-KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF 
; --> COND IF COND IF COND IF PROGN TYPECASE LET COND IF COND IF COND IF PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FTRUNCATE BLOCK MACROLET 
; --> SB-KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF 
; --> COND IF COND IF COND IF COND IF PROGN TYPECASE LET COND IF COND IF COND 
; --> IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FTRUNCATE BLOCK MACROLET 
; --> SB-KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR LIST 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FTRUNCATE BLOCK MACROLET 
; --> SB-KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR 
; ==>
;   NUMBER
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 7 notes
::: Success :INTERVAL-DIV-SIGNED-ZERO
::: Running :NON-CONSTANT-KEYWORD-TYPECHECK
::: Success :NON-CONSTANT-KEYWORD-TYPECHECK
::: Running :TRUNCATE-WILD-VALUES
::: Success :TRUNCATE-WILD-VALUES
::: Running :BOXED-FP-CONSTANT-FOR-FULL-CALL

; in: LAMBDA (X)
;     (UNKNOWN-FUN 1.0d0 (+ 1.0d0 X))
; 
; caught STYLE-WARNING:
;   undefined function: UNKNOWN-FUN
; 
; compilation unit finished
;   Undefined function:
;     UNKNOWN-FUN
;   caught 1 STYLE-WARNING condition
::: Success :BOXED-FP-CONSTANT-FOR-FULL-CALL
::: Running :ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES

;     (UNKNOWN-FUN 536870912 (+ 536870912 X))
; 
; caught STYLE-WARNING:
;   undefined function: UNKNOWN-FUN
; 
; compilation unit finished
;   Undefined function:
;     UNKNOWN-FUN
;   caught 1 STYLE-WARNING condition
::: Success :ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES
::: Running :FIXNUM+FLOAT-COERCES-FIXNUM
::: Success :FIXNUM+FLOAT-COERCES-FIXNUM
::: Running :BUG-803508
; in: LAMBDA ()
;     (LAMBDA (BAR) (DECLARE (DYNAMIC-EXTENT BAR)) (FOO BAR))
; --> FUNCTION SB-C::%FUNCALL 
; ==>
;   #:G2
; 
; note: could not stack allocate BAR in:
;        (LAMBDA (BAR) (DECLARE (DYNAMIC-EXTENT BAR)) (FOO BAR))

; in: LAMBDA ()
;     (FOO BAR)
; 
; caught STYLE-WARNING:
;   undefined function: FOO
; 
; compilation unit finished
;   Undefined function:
;     FOO
;   caught 1 STYLE-WARNING condition
;   printed 1 note
::: Success :BUG-803508
::: Running :BUG-803508-B
; in: LAMBDA ()
;     (LAMBDA (BAR) (DECLARE (DYNAMIC-EXTENT BAR)) (FOO BAR))
; --> FUNCTION SB-C::%FUNCALL 
; ==>
;   #:G2
; 
; note: could not stack allocate BAR in:
;        (LAMBDA (BAR) (DECLARE (DYNAMIC-EXTENT BAR)) (FOO BAR))
; 
; caught STYLE-WARNING:
;   undefined function: FOO
; 
; compilation unit finished
;   Undefined function:
;     FOO
;   caught 1 STYLE-WARNING condition
;   printed 1 note
::: Success :BUG-803508-B
::: Running :BUG-803508-C
; in: LAMBDA ()
;     (LAMBDA (BAR &OPTIONAL QUUX)
;       (DECLARE (DYNAMIC-EXTENT BAR QUUX))
;       (FOO BAR QUUX))
; --> FUNCTION COND IF COND THE PROGN SB-C::%FUNCALL 
; ==>
;   #:G2
; 
; note: could not stack allocate BAR in:
;        (LAMBDA (BAR &OPTIONAL QUUX)
;          (DECLARE (DYNAMIC-EXTENT BAR QUUX))
;          (FOO BAR QUUX))

; ==>
;   #:G3
; 
; note: could not stack allocate QUUX in:
;        (LAMBDA (BAR &OPTIONAL QUUX)
;          (DECLARE (DYNAMIC-EXTENT BAR QUUX))
;          (FOO BAR QUUX))

;     (FOO BAR QUUX)
; 
; caught STYLE-WARNING:
;   undefined function: FOO
; 
; compilation unit finished
;   Undefined function:
;     FOO
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
::: Success :BUG-803508-C
::: Running :CPROP-WITH-CONSTANT-BUT-ASSIGNED-TO-CLOSURE-VARIABLE
; in: LAMBDA (B C D)
;     (LET ((I (UNWIND-PROTECT 32 (SHIFTF D -1))))
;       (OR
;        (IF (= D C)
;            2
;            (= 3 B))
;        4))
; 
; caught STYLE-WARNING:
;   The variable I is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :CPROP-WITH-CONSTANT-BUT-ASSIGNED-TO-CLOSURE-VARIABLE
::: Running :BUG-913232

; in: LAMBDA (X)
;     (TYPE
;      (OR (AND (OR (INTEGER -100 -50) (INTEGER 100 200)) (SATISFIES FOO))
;          (AND (OR (INTEGER 0 10) (INTEGER 20 30)) A))
;      X)
; 
; caught STYLE-WARNING:
;   undefined type: A
; 
; compilation unit finished
;   Undefined type:
;     A
;   caught 1 STYLE-WARNING condition

;     (TYPE (AND FIXNUM A) X)
; 
; caught STYLE-WARNING:
;   undefined type: A
; 
; compilation unit finished
;   Undefined type:
;     A
;   caught 1 STYLE-WARNING condition
::: Success :BUG-913232
::: Running :BUG-959687
; in: LAMBDA (X)
;     (CASE X (T :ITS-A-T) (OTHERWISE :SOMETHIGN-ELSE))
; 
; caught ERROR:
;   during macroexpansion of (CASE X (T :ITS-A-T) ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Bad CASE clause:
;      (T :ITS-A-T)
;    T allowed as the key designator only in the final otherwise-clause, not in a
;    normal-clause. Use (T) instead, or move the clause the correct position.
;   See also:
;     The ANSI Standard, Macro CASE

;     (LAMBDA (X) (CASE X (T :ITS-A-T) (OTHERWISE :SOMETHIGN-ELSE)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (X)
;     (CASE X (OTHERWISE :ITS-AN-OTHERWISE) (T :SOMETHIGN-ELSE))
; 
; caught ERROR:
;   during macroexpansion of (CASE X (OTHERWISE :ITS-AN-OTHERWISE) ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    Bad CASE clause:
;      (OTHERWISE :ITS-AN-OTHERWISE)
;    OTHERWISE allowed as the key designator only in the final otherwise-clause,
;    not in a normal-clause. Use (OTHERWISE) instead, or move the clause the
;    correct position.
;   See also:
;     The ANSI Standard, Macro CASE

;     (LAMBDA (X) (CASE X (OTHERWISE :ITS-AN-OTHERWISE) (T :SOMETHIGN-ELSE)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
::: Success :BUG-959687
::: Running :BUG-924276
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success :BUG-924276
::: Running :BUG-974406
::: Success :BUG-974406
::: Running :CONSTANT-FIXNUM-MOVE
::: Success :CONSTANT-FIXNUM-MOVE
::: Running (:MALFORMED-IGNORE :LP-1000239)
; in: LAMBDA ()
;     (IGNORE (FUNCTION . A))
; 
; caught ERROR:
;   Malformed function or variable name (FUNCTION . A).
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA ()
;     (IGNORE (FUNCTION A B))
; 
; caught ERROR:
;   Malformed function or variable name (FUNCTION A B).
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA ()
;     (IGNORE (FUNCTION))
; 
; caught ERROR:
;   Malformed function or variable name (FUNCTION).
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA ()
;     (IGNORE (A))
; 
; caught ERROR:
;   Malformed function or variable name (A).
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; in: LAMBDA ()
;     (IGNORABLE (A B))
; 
; caught ERROR:
;   Malformed function or variable name (A B).
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
::: Success (:MALFORMED-IGNORE :LP-1000239)
::: Running :MALFORMED-TYPE-DECLARAIONS
; in: LAMBDA (A)
;     (TYPE (INTEGER 1 2 . 3) A)
; 
; caught ERROR:
;   error while parsing arguments to DESTRUCTURING-BIND:
;     invalid number of elements in
;       (1 2 . 3)
;     to satisfy lambda list
;       (&OPTIONAL (SB-KERNEL::LOW '*) (SB-KERNEL::HIGH '*)):
;     between 0 and 2 expected, but not a proper list found
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :MALFORMED-TYPE-DECLARAIONS
::: Running :COMPILED-PROGRAM-ERROR-ESCAPED-SOURCE
; in: LAMBDA ()
;     (LAMBDA ("foo"))
; ==>
;   #'(LAMBDA ("foo"))
; 
; caught ERROR:
;   Required argument is not a symbol: "foo"
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :COMPILED-PROGRAM-ERROR-ESCAPED-SOURCE
::: Running :ESCAPE-ANALYSIS-FOR-NLXS
; in: LAMBDA (X)
;     (FUNCALL
;      (BLOCK NASTY
;        (FLET ((OOPS #
;                 #))
;          #'OOPS)))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (BLOCK NASTY
;      (FLET ((OOPS #
;               #))
;        #'OOPS)))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (LAMBDA (X)
;       (DECLARE (OPTIMIZE SPEED))
;       (FUNCALL
;        (BLOCK NASTY
;          (FLET (#)
;            #'OOPS))))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.

;     (BLOCK NASTY
;       (FLET ((OOPS ()
;                (RETURN-FROM NASTY T)))
;         #'OOPS))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM NASTY T). Use GO/RETURN-FROM with SAFETY 0, or declare the exit
; function DYNAMIC-EXTENT to avoid.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
; in: LAMBDA (R)
;     (BLOCK OUT
;       (FLET ((EX ()
;                (RETURN-FROM OUT R)))
;         (LAMBDA (X) (TYPECASE X (CONS #) (T #)))))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM OUT R). Use GO/RETURN-FROM with SAFETY 0, or declare the exit
; function DYNAMIC-EXTENT to avoid.
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (FUNCALL (EH X))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (EH X))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (FLET ((EH (X)
;              (FLET (#)
;                (LAMBDA # #))))
;       (FUNCALL (EH X)))
; ==>
;   (BLOCK EH
;     (FLET ((MEH ()
;              (RETURN-FROM EH 'MEH)))
;       (LAMBDA () (TYPECASE X (CONS #) (T #)))))
; 
; note: Allocating a value-cell at runtime for checking possibly out of extent exit via
; (RETURN-FROM EH 'MEH). Use GO/RETURN-FROM with SAFETY 0, or declare the exit
; function DYNAMIC-EXTENT to avoid.
; 
; compilation unit finished
;   printed 2 notes
::: Success :ESCAPE-ANALYSIS-FOR-NLXS
::: Running (:BUG-1050768 :SYMPTOM)
::: Success (:BUG-1050768 :SYMPTOM)
::: Running (:BUG-1050768 :CAUSE)
::: Success (:BUG-1050768 :CAUSE)
::: Running (:SMODULAR64 :WRONG-WIDTH)
::: Success (:SMODULAR64 :WRONG-WIDTH)
::: Running (:SMODULAR32 :WRONG-WIDTH)
::: Success (:SMODULAR32 :WRONG-WIDTH)
::: Running :FIRST-OPEN-CODED
::: Success :FIRST-OPEN-CODED
::: Running :SECOND-OPEN-CODED
::: Success :SECOND-OPEN-CODED
::: Running :SVREF-OF-SYMBOL-MACRO
::: Success :SVREF-OF-SYMBOL-MACRO
::: Running :MODULAR-CUT-CONSTANT-TO-WIDTH
::: Success :MODULAR-CUT-CONSTANT-TO-WIDTH
::: Running :APPEND-TYPE-DERIVATION
::: Success :APPEND-TYPE-DERIVATION
::: Running :BUG-504121
; in: LAMBDA (S)
;     (FUNCALL (LAMBDA (G) (FUNCALL P1 G)))
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::CLAMBDA
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA (G)
;                     :IN
;                     "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
;      :KIND NIL
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS (G) {5365B981}>)
; 
; caught WARNING:
;   function called with zero arguments, but wants exactly one
;   See also:
;     The ANSI Standard, Section 3.2.2.3

;     (LET ((P2 #'(LAMBDA (CHAR) (UPPER-CASE-P CHAR))))
;       (FUNCALL P2 S))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 2 notes
::: Success :BUG-504121
::: Running (:BUG-504121 :OPTIONAL-MISSING)
; in: LAMBDA (S)
;     (FUNCALL (LAMBDA (G &OPTIONAL X) (FUNCALL P1 G)))
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::OPTIONAL-DISPATCH
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA (G &OPTIONAL X)
;                     :IN
;                     "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :ARGLIST (# #)
;      :ALLOWP NIL
;      :KEYP NIL
;      :MIN-ARGS 1
;      :MAX-ARGS 2
;      :ENTRY-POINTS ((NIL . #) #)
;      :MAIN-ENTRY #<SB-C::CLAMBDA
;                    :%SOURCE-NAME SB-C::.ANONYMOUS.
;                    :%DEBUG-NAME #
;                    :KIND :OPTIONAL
;                    :TYPE #
;                    :WHERE-FROM :DEFINED
;                    :VARS # {51B1A141}>
;      {51B1A041}>)
; 
; caught WARNING:
;   function called with zero arguments, but wants at least one
;   See also:
;     The ANSI Standard, Section 3.2.2.3

;     (LET ((P2 #'(LAMBDA (CHAR) (UPPER-CASE-P CHAR))))
;       (FUNCALL P2 S))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 2 notes
::: Success (:BUG-504121 :OPTIONAL-MISSING)
::: Running (:BUG-504121 :OPTIONAL-SUPERFLUOUS)
; in: LAMBDA (S)
;     (FUNCALL (LAMBDA (G &OPTIONAL X) (FUNCALL P1 G)) #\1 2 3)
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::OPTIONAL-DISPATCH
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA (G &OPTIONAL X)
;                     :IN
;                     "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :ARGLIST (# #)
;      :ALLOWP NIL
;      :KEYP NIL
;      :MIN-ARGS 1
;      :MAX-ARGS 2
;      :ENTRY-POINTS ((NIL . #) #)
;      :MAIN-ENTRY #<SB-C::CLAMBDA
;                    :%SOURCE-NAME SB-C::.ANONYMOUS.
;                    :%DEBUG-NAME #
;                    :KIND :OPTIONAL
;                    :TYPE #
;                    :WHERE-FROM :DEFINED
;                    :VARS # {51D4C341}>
;      {51D4C241}>
;    #\1 2 3)
; 
; caught WARNING:
;   function called with three arguments, but wants at most two
;   See also:
;     The ANSI Standard, Section 3.2.2.3

;     (LET ((P2 #'(LAMBDA (CHAR) (UPPER-CASE-P CHAR))))
;       (FUNCALL P2 S))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 2 notes
::: Success (:BUG-504121 :OPTIONAL-SUPERFLUOUS)
::: Running (:BUG-504121 :KEY-ODD)
; in: LAMBDA (S)
;     (FUNCALL (LAMBDA (G &KEY X) (FUNCALL P1 G)) #\1 :X)
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::OPTIONAL-DISPATCH
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA (G &KEY X)
;                     :IN
;                     "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :ARGLIST (# #)
;      :ALLOWP NIL
;      :KEYP T
;      :MIN-ARGS 1
;      :MAX-ARGS 1
;      :ENTRY-POINTS (#)
;      :MORE-ENTRY #<SB-C::CLAMBDA
;                    :%SOURCE-NAME SB-C::.ANONYMOUS.
;                    :%DEBUG-NAME #
;                    :KIND :OPTIONAL
;                    :TYPE #
;                    :WHERE-FROM :DEFINED
;                    :VARS # {51DCEAC9}>
;      :MAIN-ENTRY #<SB-C::CLAMBDA
;                    :%SOURCE-NAME SB-C::.ANONYMOUS.
;                    :%DEBUG-NAME #
;                    :KIND :OPTIONAL
;                    :TYPE #
;                    :WHERE-FROM :DEFINED
;                    :VARS # {51DCD001}>
;      {51DCCE81}>
;    #\1 :X)
; 
; caught WARNING:
;   function called with odd number of arguments in keyword portion

;     (LET ((P2 #'(LAMBDA (CHAR) (UPPER-CASE-P CHAR))))
;       (FUNCALL P2 S))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 2 notes
::: Success (:BUG-504121 :KEY-ODD)
::: Running (:BUG-504121 :KEY-UNKNOWN)
; in: LAMBDA (S)
;     (FUNCALL (LAMBDA (G &KEY X) (FUNCALL P1 G)) #\1 :Y 2)
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::OPTIONAL-DISPATCH
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA (G &KEY X)
;                     :IN
;                     "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :ARGLIST (# #)
;      :ALLOWP NIL
;      :KEYP T
;      :MIN-ARGS 1
;      :MAX-ARGS 1
;      :ENTRY-POINTS (#)
;      :MORE-ENTRY #<SB-C::CLAMBDA
;                    :%SOURCE-NAME SB-C::.ANONYMOUS.
;                    :%DEBUG-NAME #
;                    :KIND :OPTIONAL
;                    :TYPE #
;                    :WHERE-FROM :DEFINED
;                    :VARS # {51E58459}>
;      :MAIN-ENTRY #<SB-C::CLAMBDA
;                    :%SOURCE-NAME SB-C::.ANONYMOUS.
;                    :%DEBUG-NAME #
;                    :KIND :OPTIONAL
;                    :TYPE #
;                    :WHERE-FROM :DEFINED
;                    :VARS # {51E56931}>
;      {51E567B1}>
;    #\1 :Y 2)
; 
; caught WARNING:
;   function called with unknown argument keyword :Y

;     (LET ((P2 #'(LAMBDA (CHAR) (UPPER-CASE-P CHAR))))
;       (FUNCALL P2 S))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 2 notes
::: Success (:BUG-504121 :KEY-UNKNOWN)
::: Running :BUG-1181684
::: Success :BUG-1181684
::: Running (:LOCAL-&OPTIONAL-RECURSIVE-INLINE :BUG-1180992)
; in: LAMBDA ()
;     (RECURSED)
; 
; note: couldn't inline expand because expansion calls this LET-converted local function:
;   (LABELS CALLED :IN "/«PKGBUILDDIR»/tests/compiler.pure.lisp")
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE
;    (LABELS RECURSED :IN "/«PKGBUILDDIR»/tests/compiler.pure.lisp"))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

;     (CALLED)
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

;     (LABELS ((CALLED (&OPTIONAL A)
;                )
;              (RECURSED (&OPTIONAL B)
;                (CALLED)
;                (RECURSED)))
;       (DECLARE (INLINE RECURSED CALLED))
;       (RECURSED))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

;     (RECURSED)
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

;     (CALLED)
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

;     (LABELS ((CALLED (&OPTIONAL A)
;                )
;              (RECURSED (&OPTIONAL B)
;                (CALLED)
;                (RECURSED)))
;       (DECLARE (INLINE RECURSED CALLED))
;       (RECURSED))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions
;   printed 2 notes
::: Success (:LOCAL-&OPTIONAL-RECURSIVE-INLINE :BUG-1180992)
::: Running :CONSTANT-FOLD-LOGTEST
::: Success :CONSTANT-FOLD-LOGTEST
::: Running (:MULTIPLE-USE-LVAR-INTERPRETED-AS-NIL :CAST)
; in: LAMBDA (X Y Z)
;     (AREF
;      (IF X
;          Y
;          Z)
;      0)
; 
; note: deleting unreachable code
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   printed 1 note
::: Success (:MULTIPLE-USE-LVAR-INTERPRETED-AS-NIL :CAST)
::: Running (:MULTIPLE-USE-LVAR-INTERPRETED-AS-NIL CATCH)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success (:MULTIPLE-USE-LVAR-INTERPRETED-AS-NIL CATCH)
::: Running (:ASH/RIGHT-SIGNED)
; in: LAMBDA (X Y)
;     (LAMBDA (X Y)
;       (DECLARE (TYPE (MOD 64) Y)
;                (TYPE SB-VM:SIGNED-WORD X)
;                (OPTIMIZE SPEED))
;       (ASH X (- Y)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
::: Success (:ASH/RIGHT-SIGNED)
::: Running (:ASH/RIGHT-UNSIGNED)
; in: LAMBDA (X Y)
;     (LAMBDA (X Y)
;       (DECLARE (TYPE (MOD 64) Y)
;                (TYPE WORD X)
;                (OPTIMIZE SPEED))
;       (ASH X (- Y)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
::: Success (:ASH/RIGHT-UNSIGNED)
::: Running (:ASH/RIGHT-FIXNUM)
::: Success (:ASH/RIGHT-FIXNUM)
::: Running :FOLD-INDEX-ADDRESSING-POSITIVE-OFFSET
::: Success :FOLD-INDEX-ADDRESSING-POSITIVE-OFFSET
::: Running :FOLD-INDEX-ADDRESSING-POTENTIALLY-NEGATIVE-INDEX
::: Success :FOLD-INDEX-ADDRESSING-POTENTIALLY-NEGATIVE-INDEX
::: Running :CONSTANT-FOLD-ASH/RIGHT-FIXNUM
::: Success :CONSTANT-FOLD-ASH/RIGHT-FIXNUM
::: Running :CONSTANT-FOLD-ASH/RIGHT-WORD
::: Success :CONSTANT-FOLD-ASH/RIGHT-WORD
::: Running :NCONC-DERIVE-TYPE
::: Success :NCONC-DERIVE-TYPE
::: Running :DATA-VECTOR-REF-WITH-OFFSET-SIGNED-INDEX
::: Success :DATA-VECTOR-REF-WITH-OFFSET-SIGNED-INDEX
::: Running :DATA-VECTOR-SET-WITH-OFFSET-SIGNED-INDEX
::: Success :DATA-VECTOR-SET-WITH-OFFSET-SIGNED-INDEX
::: Running :MAYBE-INLINE-REF-TO-DEAD-LAMBDA
::: Success :MAYBE-INLINE-REF-TO-DEAD-LAMBDA
::: Running :NO-OVERFLOW-DURING-ALLOCATION
::: Success :NO-OVERFLOW-DURING-ALLOCATION
::: Running :BUG-1199127
; in: LAMBDA (B)
;     (LOGORC2
;      (IF (>= 0 LV1)
;          (ASH B (MIN 25 LV1))
;          0)
;      -2)
; ==>
;   (LOGIOR
;    (IF (>= 0 LV1)
;        (ASH B (MIN 25 LV1))
;        0)
;    (LOGNOT -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 (OR (INTEGER 0 0)
;                                   (INTEGER -1225923945345 -832450738898)), not a FIXNUM.
;       The result is a (VALUES (OR (INTEGER -1225923945345 -1) (INTEGER 1 1))
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (OR (INTEGER 0 0)
;                                   (INTEGER -1225923945345 -832450738898)), not a (UNSIGNED-BYTE
;                                                                                   32).
;       The result is a (VALUES (OR (INTEGER -1225923945345 -1) (INTEGER 1 1))
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST T).
;       etc.

;     (LOOP FOR LV1 BELOW 3
;           SUM (LOGORC2
;                (IF (>= 0 LV1)
;                    (ASH B (MIN 25 LV1))
;                    0)
;                -2))
; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT LET SB-LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-0
;      (LOGORC2
;       (IF (>= 0 LV1)
;           (ASH B (MIN 25 LV1))
;           0)
;       -2))
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (OR (INTEGER -1225923945345 -1) (INTEGER 1 1)), 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 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a (OR (INTEGER -1225923945345 -1) (INTEGER 1 1)), not a (SIGNED-BYTE
;                                                                                       32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.
; 
; compilation unit finished
;   printed 2 notes
::: Success :BUG-1199127
::: Running :BUG-1199428-1
::: Success :BUG-1199428-1
::: Running :BUG-1199428-2
::: Success :BUG-1199428-2
::: Running :BUG-1072739
::: Success :BUG-1072739
::: Running :EQUAL-EQUALP-TRANSFORMS
::: Success :EQUAL-EQUALP-TRANSFORMS
::: Running (RESTART-CASE OPTIMIZE
              SPEED
              COMPILER-NOTE)
::: Success (RESTART-CASE OPTIMIZE
              SPEED
              COMPILER-NOTE)
::: Running :COPY-MORE-ARG
::: Success :COPY-MORE-ARG

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :APPLY-AREF)
;     (FLET ((TEST (FORM)
;              (LET (WARNING)
;                (HANDLER-BIND #
;                  #)
;                (ASSERT #))))
;       (TEST `(LAMBDA (X Y) (SETF # 21)))
;       (TEST `(LAMBDA (X Y) (SETF # 1)))
;       (TEST `(LAMBDA (X Y) (SETF # 0))))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :APPLY-AREF
::: Success :APPLY-AREF
::: Running :WARN-ON-THE-VALUES-CONSTANT
; in: LAMBDA ()
;     (THE (VALUES FIXNUM FIXNUM) 1)
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Constant 1 conflicts with its asserted type (VALUES FIXNUM FIXNUM &REST T).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note
::: Success :WARN-ON-THE-VALUES-CONSTANT
::: Running :QUANTIFIERS-NO-CONSING
::: Success :QUANTIFIERS-NO-CONSING
::: Running :PROPAGATE-COMPLEX-TYPE-TESTS
::: Success :PROPAGATE-COMPLEX-TYPE-TESTS
::: Running :CONSTANT-FOLD-COMPLEX-TYPE-TESTS
::: Success :CONSTANT-FOLD-COMPLEX-TYPE-TESTS
::: Running :QUIETLY-ROW-MAJOR-INDEX-NO-DIMENSIONS
::: Success :QUIETLY-ROW-MAJOR-INDEX-NO-DIMENSIONS
::: Running :ARRAY-RANK-TRANSFORM

; in: LAMBDA (A)
;     (THE AN-IMAGINARY-TYPE A)
; 
; caught STYLE-WARNING:
;   undefined type: AN-IMAGINARY-TYPE
; 
; compilation unit finished
;   Undefined type:
;     AN-IMAGINARY-TYPE
;   caught 1 STYLE-WARNING condition
::: Success :ARRAY-RANK-TRANSFORM
::: Running (:ARRAY-RANK-FOLD :BUG-1252108)
; in: LAMBDA (A)
;     (ARRAY-DIMENSION A 2)
; ==>
;   A
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Success (:ARRAY-RANK-FOLD :BUG-1252108)
::: Running :XCHG-MISENCODING
::: Success :XCHG-MISENCODING
::: Running :MALFORMED-DECLARE
; in: LAMBDA (X)
;     (UNSIGNED-BYTE (X))
; 
; caught ERROR:
;   Variable name is not a symbol: (X).
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :MALFORMED-DECLARE
::: Running :NO-DUBIOUS-ASTERISK-WARNING
::: Success :NO-DUBIOUS-ASTERISK-WARNING
::: Running :INTERR-TYPE-SPECIFIER-HASHING
::: Success :INTERR-TYPE-SPECIFIER-HASHING
::: Running :SIMPLE-RANK-1-ARRAY-*-P-WORKS
::: Success :SIMPLE-RANK-1-ARRAY-*-P-WORKS
::: SKIPPED-DISABLED :ARRAY-SUBTYPE-TESTS
    Test disabled for this combination of platform and features
::: Running :LOCAL-ARGUMENT-MISMATCH-ERROR-STRING
; in: LAMBDA (X)
;     (FOO X)
; 
; caught WARNING:
;   function called with one argument, but wants exactly zero
;   See also:
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success :LOCAL-ARGUMENT-MISMATCH-ERROR-STRING
::: Running :BUG-1310574-0
; in: LAMBDA (A)
;     (AREF A 1 2)
; ==>
;   A
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Success :BUG-1310574-0
::: Running :BUG-1310574-1
; in: LAMBDA (A)
;     (AREF A 1 2 3)
; ==>
;   A
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Success :BUG-1310574-1

; file: /«PKGBUILDDIR»/tests/compiler.pure.lisp
; in: WITH-TEST (:NAME :BUG-573747)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;         (COMPILE NIL '(LAMBDA (X) (PROGN (DECLARE #) (* X 6))))
;       (ASSERT WARNINGS-P)
;       (ASSERT FAILURE-P))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G3)
;       (DECLARE (IGNORE #:G3))
;       (ASSERT WARNINGS-P)
;       (ASSERT FAILURE-P))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :BUG-573747
; in: LAMBDA (X)
;     (DECLARE (INTEGER X))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (* X 6)
; ==>
;   X
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   caught 1 ERROR condition
;   printed 1 note
::: Success :BUG-573747
::: Running :BUG-1327008
::: Success :BUG-1327008
::: Running :DEAD-CODE-IN-OPTIONAL-DISPATCH
::: Success :DEAD-CODE-IN-OPTIONAL-DISPATCH
::: Running :NTH-VALUE-OF-NON-CONSTANT-N
::: Success :NTH-VALUE-OF-NON-CONSTANT-N
::: Running :POSITION-DERIVE-TYPE-OPTIMIZER
::: Success :POSITION-DERIVE-TYPE-OPTIMIZER
::: Running :OPTIMIZE-QUALITY-MULTIPLY-SPECIFIED
::: Success :OPTIMIZE-QUALITY-MULTIPLY-SPECIFIED
::: Running :TRUNCATE-TYPE-DERIVATION
::: Success :TRUNCATE-TYPE-DERIVATION
::: Running :CONSTANTP-ON-A-LITERAL-FUNCTION-WORKS
::: Success :CONSTANTP-ON-A-LITERAL-FUNCTION-WORKS
::: Running :ARG-COUNT-ERROR
::: Success :ARG-COUNT-ERROR
::: Running :MV-CONVERSION
; in: LAMBDA (A)
;     (UNWIND-PROTECT A)
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM 
; ==>
;   A
; 
; note: deleting unreachable code

;     #'LIST
; 
; note: deleting unreachable code

;     'CT5
; 
; note: deleting unreachable code

;     (MULTIPLE-VALUE-CALL #'LIST (VALUES (CATCH 'CT5 (GO 0))))
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 4 notes
::: Success :MV-CONVERSION
::: Running (:NULL-CLEANUPS-1 :BUG-1416704 :BUG-404441)
::: Success (:NULL-CLEANUPS-1 :BUG-1416704 :BUG-404441)
::: Running (:NULL-CLEANUPS-2 :BUG-1416704 :BUG-404441)
::: Success (:NULL-CLEANUPS-2 :BUG-1416704 :BUG-404441)
::: Running :LOCALL-ALREADY-LET-CONVERTED
::: Success :LOCALL-ALREADY-LET-CONVERTED
::: Running :DEBUG-DUMP-ELSEWHERE
::: Success :DEBUG-DUMP-ELSEWHERE
::: Running :TYPEP-QUASIQUOTED-CONSTANT
::: Success :TYPEP-QUASIQUOTED-CONSTANT
::: Running :LOGIOR-TRANSFORM
; in: LAMBDA (C)
;     (THE INTEGER X)
; 
; note: deleting unreachable code

;     (LOGIOR C (F NIL))
; 
; note: deleting unreachable code

;     (THE INTEGER X)
; 
; caught WARNING:
;   Derived type of X is
;     (VALUES NULL &OPTIONAL),
;   conflicting with its asserted type
;     INTEGER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 2 notes
::: Success :LOGIOR-TRANSFORM
::: Running :EQL/INTEGER-FOLDING
::: Success :EQL/INTEGER-FOLDING
::: Running :POSITION-DERIVE-TYPE
::: Success :POSITION-DERIVE-TYPE
::: Running :COMPILE-FILE-ERROR-POSITION-REPORTING

; compiling file "/«PKGBUILDDIR»/tests/data/wonky1.lisp" (written 30 MAY 2015 05:47:22 AM):
; compilation aborted after 0:00:00.011
; compiling file "/«PKGBUILDDIR»/tests/data/wonky2.lisp" (written 30 MAY 2015 05:47:22 AM):
; compilation aborted after 0:00:00.013
; compiling file "/«PKGBUILDDIR»/tests/data/wonky3.lisp" (written 30 MAY 2015 05:47:22 AM):
; compilation aborted after 0:00:00.010
::: Success :COMPILE-FILE-ERROR-POSITION-REPORTING
// Running /«PKGBUILDDIR»/tests/condition.pure.lisp
printable now: error on file "foo"
::: Running (HANDLER-BIND :SMOKE)
::: Success (HANDLER-BIND :SMOKE)
::: Running (HANDLER-BIND :MALFORMED-BINDINGS)
::: Success (HANDLER-BIND :MALFORMED-BINDINGS)
::: Running (CERROR :CONDITION-OBJECT-AND-FORMAT-ARGUMENTS)
::: Success (CERROR :CONDITION-OBJECT-AND-FORMAT-ARGUMENTS)

; file: /«PKGBUILDDIR»/tests/condition.pure.lisp
; in: WITH-TEST (:NAME (RESTART-CASE :SMOKE))
;     (TEST (FOO (QUUX) :DECLARE NIL) '(NIL))
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RETURN-FROM FUNCALL 
; ==>
;   (SB-C::%FUNCALL (LAMBDA (QUUX) :DECLARE NIL) #:G73)
; 
; caught STYLE-WARNING:
;   The variable QUUX is defined but never used.

;     (TEST (FOO (QUUX) QUUX))
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER15 (C)
;            (INVOKE-RESTART 'FOO :OK))
;          (#:TYPEP16 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER15) (FUNCTION #:TYPEP16)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (TEST (FOO (&OPTIONAL QUUX) QUUX))
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER24 (C)
;            (INVOKE-RESTART 'FOO :OK))
;          (#:TYPEP25 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER24) (FUNCTION #:TYPEP25)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (TEST (FOO (A B) (VALUES A B)) '(1 2) (1 2))
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER37 (C)
;            (INVOKE-RESTART 'FOO 1 2))
;          (#:TYPEP38 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER37) (FUNCTION #:TYPEP38)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (TEST (FOO NIL :REPORT) '(:REPORT) NIL)
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER50 (C)
;            (INVOKE-RESTART 'FOO))
;          (#:TYPEP51 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER50) (FUNCTION #:TYPEP51)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (TEST (FOO NIL :INTERACTIVE) '(:INTERACTIVE) NIL)
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER59 (C)
;            (INVOKE-RESTART 'FOO))
;          (#:TYPEP60 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER59) (FUNCTION #:TYPEP60)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (TEST (FOO NIL :TEST) '(:TEST) NIL)
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER68 (C)
;            (INVOKE-RESTART 'FOO))
;          (#:TYPEP69 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER68) (FUNCTION #:TYPEP69)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (TEST (FOO (QUUX) :DECLARE NIL) '(NIL))
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER77 (C)
;            (INVOKE-RESTART 'FOO :OK))
;          (#:TYPEP78 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER77) (FUNCTION #:TYPEP78)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (TEST (FOO NIL :DECLARE NIL :REPORT "quux") '("quux") NIL)
; --> ASSERT TAGBODY LET MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL RESTART-CASE 
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM HANDLER-BIND 
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER86 (C)
;            (INVOKE-RESTART 'FOO))
;          (#:TYPEP87 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER86) (FUNCTION #:TYPEP87)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (ERROR "foo")))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions
::: Running (RESTART-CASE :SMOKE)
::: Success (RESTART-CASE :SMOKE)
::: Running (RESTART-CASE :MALFORMED-CLAUSES)
::: Success (RESTART-CASE :MALFORMED-CLAUSES)
::: Running :SIMPLE-CONDITION-WITHOUT-ARGS
::: Success :SIMPLE-CONDITION-WITHOUT-ARGS
::: Running :MALFORMED-SIMPLE-CONDITION-PRINTING-TYPE-ERROR
::: Success :MALFORMED-SIMPLE-CONDITION-PRINTING-TYPE-ERROR
::: Running (:PRINTING-UNINTITIALIZED-CONDITION :BUG-1184586)
::: Success (:PRINTING-UNINTITIALIZED-CONDITION :BUG-1184586)
::: Running (:PRINT-UNDEFINED-FUNCTION-CONDITION)
::: Success (:PRINT-UNDEFINED-FUNCTION-CONDITION)
::: Running (READER-ERROR :STREAM-ERROR-POSITION-INFO :OPEN-STREAM :BUG-1264902)
::: Success (READER-ERROR :STREAM-ERROR-POSITION-INFO :OPEN-STREAM :BUG-1264902)
::: Running (READER-ERROR :STREAM-ERROR-POSITION-INFO :CLOSED-STREAM
             :BUG-1264902)
::: Success (READER-ERROR :STREAM-ERROR-POSITION-INFO :CLOSED-STREAM
             :BUG-1264902)
::: Running (MAKE-CONDITION :NON-CONDITION-CLASS)
::: Success (MAKE-CONDITION :NON-CONDITION-CLASS)
::: Running (MAKE-CONDITION :CORRECT-ERROR-FOR-UNDEFINED-CONDITION :BUG-1199223)
::: Success (MAKE-CONDITION :CORRECT-ERROR-FOR-UNDEFINED-CONDITION :BUG-1199223)
::: Running (HANDLER-BIND :UNDEFINED-CONDITION-TYPE
              :BUG-1378939)
::: Success (HANDLER-BIND :UNDEFINED-CONDITION-TYPE
              :BUG-1378939)
::: Running (HANDLER-BIND :UNDEFINED-CONDITION-TYPE
              :COMPILE-TIME-WARNING)
::: Success (HANDLER-BIND :UNDEFINED-CONDITION-TYPE
              :COMPILE-TIME-WARNING)
::: Running (HANDLER-BIND :EMPTY-BINDINGS
              :BUG-1388707)
::: Success (HANDLER-BIND :EMPTY-BINDINGS
              :BUG-1388707)
// Running /«PKGBUILDDIR»/tests/filesys.pure.lisp
::: Running (:PARSE-NATIVE-PATHNAME :AS-DIRECTORY :JUNK-ALLOWED)
::: Success (:PARSE-NATIVE-PATHNAME :AS-DIRECTORY :JUNK-ALLOWED)
::: Running :RANDOM-NATIVE-NAMESTRINGS
::: Success :RANDOM-NATIVE-NAMESTRINGS
::: Running :USER-HOMEDIR-PATHNAME-ROBUSTNESS
::: Success :USER-HOMEDIR-PATHNAME-ROBUSTNESS
::: Running :SBCL-HOMEDIR-PATHNAME-ROBUSTNESS
::: Success :SBCL-HOMEDIR-PATHNAME-ROBUSTNESS
::: Running :FILE-AUTHOR-STRINGP
::: Success :FILE-AUTHOR-STRINGP
::: Running :FILE-WRITE-DATE-INTEGERP
::: Success :FILE-WRITE-DATE-INTEGERP
::: Running :DIRECTORY-/.
::: Success :DIRECTORY-/.
::: Running :DIRECTORY-/..
::: Success :DIRECTORY-/..
::: Running :DIRECTORY-UNSPECIFIC
::: Success :DIRECTORY-UNSPECIFIC
::: Running :OPEN-NEVER-OPENNING
::: Success :OPEN-NEVER-OPENNING
::: Running :OPEN-NEW-VERSION
::: Success :OPEN-NEW-VERSION
// Running /«PKGBUILDDIR»/tests/float.pure.lisp

; file: /«PKGBUILDDIR»/tests/float.pure.lisp
; in:
;      ASSERT (TYPEP (NTH-VALUE 1 (IGNORE-ERRORS (FLOAT-RADIX "notfloat")))
;                'TYPE-ERROR)
;     (FLOAT-RADIX "notfloat")
; 
; caught WARNING:
;   Constant "notfloat" conflicts with its asserted type FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:SCALE-FLOAT-OVERFLOW :BUG-372)
::: UNEXPECTED-FAILURE (:SCALE-FLOAT-OVERFLOW :BUG-372)
    due to #<SIMPLE-ERROR "~@<The assertion ~S failed~:[.~:; ~
                                    with ~:*~{~{~S = ~S~}~^, ~}.~]~:@>"
             {536D92B9}>:
        "The assertion
         (TYPEP
          (NTH-VALUE 1 (IGNORE-ERRORS (SCALE-FLOAT 1.0 MOST-POSITIVE-FIXNUM)))
          'FLOATING-POINT-OVERFLOW)
         failed with
         (NTH-VALUE 1 (IGNORE-ERRORS (SCALE-FLOAT 1.0 MOST-POSITIVE-FIXNUM))) =
         NIL."
STYLE-WARNING:
   Character decoding error in a ;-comment at position 4685 reading source stream #<FORM-TRACKING-STREAM
                                                                                    for "file /«PKGBUILDDIR»/tests/float.pure.lisp"
                                                                                    {53282551}>, resyncing.
::: Running (:ADDITION-OVERFLOW :BUG-372)
::: UNEXPECTED-FAILURE (:ADDITION-OVERFLOW :BUG-372)
    due to #<SIMPLE-ERROR "~@<The assertion ~S failed~:[.~:; ~
                                    with ~:*~{~{~S = ~S~}~^, ~}.~]~:@>"
             {51E67629}>:
        "The assertion
         (TYPEP
          (NTH-VALUE 1
                     (IGNORE-ERRORS
                      (SB-SYS:WITHOUT-INTERRUPTS
                        (SB-INT:SET-FLOATING-POINT-MODES :CURRENT-EXCEPTIONS
                                                         NIL
                                                         :ACCRUED-EXCEPTIONS
                                                         NIL)
                        (LOOP REPEAT 2
                              SUMMING MOST-POSITIVE-DOUBLE-FLOAT)
                        (SLEEP 2))))
          'FLOATING-POINT-OVERFLOW)
         failed with
         (NTH-VALUE 1
                    (IGNORE-ERRORS
                     (SB-SYS:WITHOUT-INTERRUPTS
                       (SB-INT:SET-FLOATING-POINT-MODES :CURRENT-EXCEPTIONS NIL
                                                        :ACCRUED-EXCEPTIONS NIL)
                       (LOOP REPEAT 2
                             SUMMING MOST-POSITIVE-DOUBLE-FLOAT)
                       (SLEEP 2))))
         = NIL."
::: Running (:ADDITION-OVERFLOW :BUG-372 :TAKE-2)
::: UNEXPECTED-FAILURE (:ADDITION-OVERFLOW :BUG-372 :TAKE-2)
    due to #<SIMPLE-ERROR "~@<The assertion ~S failed~:[.~:; ~
                                    with ~:*~{~{~S = ~S~}~^, ~}.~]~:@>"
             {51FA4829}>:
        "The assertion
         (TYPEP
          (NTH-VALUE 1
                     (IGNORE-ERRORS
                      (SB-SYS:WITHOUT-INTERRUPTS
                        (SB-INT:SET-FLOATING-POINT-MODES :CURRENT-EXCEPTIONS
                                                         NIL
                                                         :ACCRUED-EXCEPTIONS
                                                         NIL)
                        (LOOP REPEAT 2
                              SUMMING MOST-POSITIVE-DOUBLE-FLOAT)
                        (SLEEP 2))))
          'FLOATING-POINT-OVERFLOW)
         failed with
         (NTH-VALUE 1
                    (IGNORE-ERRORS
                     (SB-SYS:WITHOUT-INTERRUPTS
                       (SB-INT:SET-FLOATING-POINT-MODES :CURRENT-EXCEPTIONS NIL
                                                        :ACCRUED-EXCEPTIONS NIL)
                       (LOOP REPEAT 2
                             SUMMING MOST-POSITIVE-DOUBLE-FLOAT)
                       (SLEEP 2))))
         = NIL."
::: Running :COMPLEX-FLOAT-STACK
::: Success :COMPLEX-FLOAT-STACK
::: Running :NAN-COMPARISONS
::: Success :NAN-COMPARISONS
::: Running :LOG-INT/DOUBLE-ACCURACY
::: Success :LOG-INT/DOUBLE-ACCURACY
::: Running :LOG-BASE-ZERO-RETURN-TYPE
; in: LAMBDA (X Y)
;     (LOG X Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; compilation unit finished
;   printed 4 notes
::: Success :LOG-BASE-ZERO-RETURN-TYPE
::: Running :EQL-TYPE-CONSTANT-FOLD
::: Success :EQL-TYPE-CONSTANT-FOLD
::: Running :TRUNCATE
::: Success :TRUNCATE
::: SKIPPED-DISABLED :CLEAR-SQRTSD
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :CLEAR-SQRTSD-SINGLE
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :CLEAR-CVTSS2SD
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :CLEAR-CVTSD2SS
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :CLEAR-CVTSI2SD
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :CLEAR-CVTSI2SS
    Test disabled for this combination of platform and features
::: Running :ROUND-TO-BIGNUM
::: Success :ROUND-TO-BIGNUM
::: Running :ROUND-SINGLE-TO-BIGNUM
::: Success :ROUND-SINGLE-TO-BIGNUM
::: Running :SCALED-%HYPOT
::: Success :SCALED-%HYPOT
::: Running :MAKE-SINGLE-FLOAT-CLEAR-IMAGPART
::: Success :MAKE-SINGLE-FLOAT-CLEAR-IMAGPART
// Running /«PKGBUILDDIR»/tests/gcd.pure.lisp
// Running /«PKGBUILDDIR»/tests/hash.pure.lisp
::: Running :MAGIC-HASH-VECTOR-VALUE
::: Success :MAGIC-HASH-VECTOR-VALUE
::: Running (SXHASH ARRAY :INDEPENDENT-OF-CONTENTS)
::: Success (SXHASH ARRAY :INDEPENDENT-OF-CONTENTS)
::: Running (SXHASH :QUALITY :MINIMUM)
::: Success (SXHASH :QUALITY :MINIMUM)
::: Running :ADDRESS-BASED-HASH-COUNTER
::: Success :ADDRESS-BASED-HASH-COUNTER
::: Running (SXHASH :QUALITY BIT-VECTOR :NON-CONSTANT)
::: Success (SXHASH :QUALITY BIT-VECTOR :NON-CONSTANT)
::: Running (SXHASH :QUALITY BIT-VECTOR :DEPENDENT-ON-FINAL-BITS)
::: Success (SXHASH :QUALITY BIT-VECTOR :DEPENDENT-ON-FINAL-BITS)
// Running /«PKGBUILDDIR»/tests/interface.pure.lisp
#0A0
  [simple array]

Element-type: T
Dimensions: NIL
Storage vector: #<(SIMPLE-VECTOR 1) {523F6F8F}>
#(1 2 3)
  [simple-vector]

Element-type: T
Length: 3
#2A((1 2) (3 4))
  [simple array]

Element-type: T
Dimensions: (2 2)
Storage vector: #<(SIMPLE-VECTOR 4) {5249B5AF}>
::: Running :SB-EXT-DOCUMENTATION
::: Success :SB-EXT-DOCUMENTATION
::: Running :CL-DOCUMENTATION
::: Success :CL-DOCUMENTATION
::: Running :WITH-TIMEOUT-FORMS
::: Success :WITH-TIMEOUT-FORMS
::: Running (SLEEP :NON-CONSING)
::: Success (SLEEP :NON-CONSING)
::: Running :BUG-1194673
::: Success :BUG-1194673
::: Running (SLEEP :PRETTY-MUCH-FOREVER)
::: Success (SLEEP :PRETTY-MUCH-FOREVER)
::: Running :BUG-814702
::: Success :BUG-814702
::: Running :DISASSEMBLE-WITHOUT-ADDRESSES
::: Success :DISASSEMBLE-WITHOUT-ADDRESSES
::: Running :DISASSEMBLE-ASSEMBLY-ROUTINE
::: Success :DISASSEMBLE-ASSEMBLY-ROUTINE
::: Running :SLEEP-RATIOS
::: Success :SLEEP-RATIOS
::: Running :VERSION-ASSERT-OK
::: Success :VERSION-ASSERT-OK
::: Running :VERSION-ASSERT-FAILS
::: Success :VERSION-ASSERT-FAILS
::: Running :BUG-1095483
::: Success :BUG-1095483
// Running /«PKGBUILDDIR»/tests/lambda-list.pure.lisp
; in: LAMBDA (&AUX (FOO 1) &AUX (BAR 2))
;     (LAMBDA (&AUX (FOO 1) &AUX (BAR 2)) 'OK)
; 
; caught ERROR:
;   misplaced &AUX in lambda list: (&AUX (FOO 1) &AUX (BAR 2))
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&AUX (FOO 1) &KEY BAR)
;     (LAMBDA (&AUX (FOO 1) &KEY BAR) 'OK)
; 
; caught ERROR:
;   misplaced &KEY in lambda list: (&AUX (FOO 1) &KEY BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&AUX (FOO 1) &OPTIONAL BAR)
;     (LAMBDA (&AUX (FOO 1) &OPTIONAL BAR) 'OK)
; 
; caught ERROR:
;   misplaced &OPTIONAL in lambda list: (&AUX (FOO 1) &OPTIONAL BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&AUX (FOO 1) &REST BAR)
;     (LAMBDA (&AUX (FOO 1) &REST BAR) 'OK)
; 
; caught ERROR:
;   misplaced &REST in lambda list: (&AUX (FOO 1) &REST BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&KEY FOO &ALLOW-OTHER-KEYS &ALLOW-OTHER-KEYS)
;     (LAMBDA (&KEY FOO &ALLOW-OTHER-KEYS &ALLOW-OTHER-KEYS) 'OK)
; 
; caught ERROR:
;   misplaced &ALLOW-OTHER-KEYS in lambda list: (&KEY FOO &ALLOW-OTHER-KEYS
;                                                &ALLOW-OTHER-KEYS)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&KEY FOO &KEY BAR)
;     (LAMBDA (&KEY FOO &KEY BAR) 'OK)
; 
; caught ERROR:
;   misplaced &KEY in lambda list: (&KEY FOO &KEY BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&KEY FOO &OPTIONAL BAR)
;     (LAMBDA (&KEY FOO &OPTIONAL BAR) 'OK)
; 
; caught ERROR:
;   misplaced &OPTIONAL in lambda list: (&KEY FOO &OPTIONAL BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&KEY FOO &REST BAR)
;     (LAMBDA (&KEY FOO &REST BAR) 'OK)
; 
; caught ERROR:
;   misplaced &REST in lambda list: (&KEY FOO &REST BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&OPTIONAL FOO &OPTIONAL BAR)
;     (LAMBDA (&OPTIONAL FOO &OPTIONAL BAR) 'OK)
; 
; caught ERROR:
;   misplaced &OPTIONAL in lambda list: (&OPTIONAL FOO &OPTIONAL BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&REST FOO &REST BAR)
;     (LAMBDA (&REST FOO &REST BAR) 'OK)
; 
; caught ERROR:
;   misplaced &REST in lambda list: (&REST FOO &REST BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; in: LAMBDA (&REST FOO &OPTIONAL BAR)
;     (LAMBDA (&REST FOO &OPTIONAL BAR) 'OK)
; 
; caught ERROR:
;   misplaced &OPTIONAL in lambda list: (&REST FOO &OPTIONAL BAR)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; file: /«PKGBUILDDIR»/tests/lambda-list.pure.lisp
; in: WITH-TEST (:NAME :SUPPLIED-P-ORDER)
;     ((LAMBDA (&KEY (X *) (Y * *)) NIL X) :Y 1)
; ==>
;   (SB-C::%FUNCALL (LAMBDA (&KEY (X *) (Y * *)) NIL X) :Y 1)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     ((LAMBDA (&OPTIONAL (Y * *) (X *)) NIL X) 1)
; ==>
;   (SB-C::%FUNCALL (LAMBDA (&OPTIONAL (Y * *) (X *)) NIL X) 1)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     ((LAMBDA (&KEY (Y * *) (X *)) NIL X) :Y 1)
; ==>
;   (SB-C::%FUNCALL (LAMBDA (&KEY (Y * *) (X *)) NIL X) :Y 1)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (DESTRUCTURING-BIND (&KEY (Y * *) (X *)) '(:Y 1) X)
; --> LET LET* 
; ==>
;   (LET* ((Y
;           (IF #:SUPPLIEDP-75
;               (SB-KERNEL::LOOKUP-KEYWORD ':Y #:KEYWORDS-74)
;               *))
;          (* #:SUPPLIEDP-75)
;          (X
;           (IF #:SUPPLIEDP-76
;               (SB-KERNEL::LOOKUP-KEYWORD ':X #:KEYWORDS-74)
;               *)))
;     X)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (DESTRUCTURING-BIND (&KEY (X *) (Y * *)) '(:Y 1) X)
; --> LET LET* 
; ==>
;   (LET* ((X
;           (IF #:SUPPLIEDP-93
;               (SB-KERNEL::LOOKUP-KEYWORD ':X #:KEYWORDS-92)
;               *))
;          (Y
;           (IF #:SUPPLIEDP-94
;               (SB-KERNEL::LOOKUP-KEYWORD ':Y #:KEYWORDS-92)
;               *))
;          (* #:SUPPLIEDP-94))
;     X)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     ((LAMBDA (&OPTIONAL (X *) (Y * *)) NIL X))
; ==>
;   (SB-C::%FUNCALL (LAMBDA (&OPTIONAL (X *) (Y * *)) NIL X))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (DESTRUCTURING-BIND (&OPTIONAL (Y * *) (X *)) '(1) X)
; --> LET LET* 
; ==>
;   (LET* ((Y
;           (IF #:SUPPLIEDP-125
;               (CAR #:WHOLE123)
;               *))
;          (* #:SUPPLIEDP-125)
;          (X
;           (IF #:SUPPLIEDP-126
;               (CAR #)
;               *)))
;     X)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (DESTRUCTURING-BIND (&OPTIONAL (X *) (Y * *)) NIL X)
; --> LET LET* 
; ==>
;   (LET* ((X
;           (IF #:SUPPLIEDP-136
;               (CAR #:WHOLE134)
;               *))
;          (Y
;           (IF #:SUPPLIEDP-137
;               (CAR #)
;               *))
;          (* #:SUPPLIEDP-137))
;     X)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions
::: Running :SUPPLIED-P-ORDER
::: Success :SUPPLIED-P-ORDER
::: Running :SUPPLIED-P-ORDER
::: Success :SUPPLIED-P-ORDER
// Running /«PKGBUILDDIR»/tests/list.pure.lisp

; file: /«PKGBUILDDIR»/tests/list.pure.lisp
; in: ASSERT (NOT (IGNORE-ERRORS (LDIFF 1 2)))
;     (LDIFF 1 2)
; 
; caught WARNING:
;   Constant 1 conflicts with its asserted type LIST.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/list.pure.lisp
; in:
;      MACROLET ((TEST (EXPECTED FORM)
;             (LET ((NUMBERS '#) (TRICKY '#))
;               `(PROGN (ASSERT #) (ASSERT #) (ASSERT #)))))
;     (TEST (1 A) (ASSOC 1 NUMBERS))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 1 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 1 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (2 B) (ASSOC 2 NUMBERS))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 2 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 2 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (1 A) (ASSOC 1 NUMBERS :KEY 'IDENTITY))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 1 NUMBERS :KEY 'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 1 NUMBERS :KEY 'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (2 B) (ASSOC 2 NUMBERS :KEY #'IDENTITY))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 2 NUMBERS :KEY #'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 2 NUMBERS :KEY #'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (ASSOC 1.0 NUMBERS))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 1.0 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 1.0 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (1 A) (ASSOC 1.0 NUMBERS :TEST #'=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 1.0 NUMBERS :TEST #'=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 1.0 NUMBERS :TEST #'=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (1 A) (ASSOC 1.0 NUMBERS :TEST #'= :KEY NIL))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 1.0 NUMBERS :TEST #'= :KEY NIL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 1.0 NUMBERS :TEST #'= :KEY NIL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (2 B) (ASSOC 2.0 NUMBERS :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 2.0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 2.0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (ASSOC 0 NUMBERS :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (1 A) (ASSOC 0 NUMBERS :TEST-NOT #'>))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 0 NUMBERS :TEST-NOT #'>))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 0 NUMBERS :TEST-NOT #'>))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (2 B) (ASSOC 1 NUMBERS :TEST-NOT 'EQL))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 1 NUMBERS :TEST-NOT 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 1 NUMBERS :TEST-NOT 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (ASSOC 0 NUMBERS :TEST-NOT '<))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN 0 NUMBERS :TEST-NOT '<))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC 0 NUMBERS :TEST-NOT '<))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (1 A) (ASSOC -1 NUMBERS :KEY #'-))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN -1 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC -1 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (2 B) (ASSOC -2 NUMBERS :KEY '-))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN -2 NUMBERS :KEY '-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC -2 NUMBERS :KEY '-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (ASSOC -1.0 NUMBERS :KEY #'-))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN -1.0 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC -1.0 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (1 A) (ASSOC -1.0 NUMBERS :KEY #'- :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN -1.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC -1.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (2 B) (ASSOC -2.0 NUMBERS :KEY #'- :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN -2.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC -2.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (ASSOC -1.0 NUMBERS :KEY #'- :TEST 'EQL))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN -1.0 NUMBERS :KEY #'- :TEST 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC -1.0 NUMBERS :KEY #'- :TEST 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (NIL . C) (ASSOC NIL TRICKY :TEST #'EQ))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (FUNCALL FUN NIL TRICKY :TEST #'EQ))
; 
; caught STYLE-WARNING:
;   The variable NUMBERS is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((1 A) (2 B))) (TRICKY '(NIL (A . B) NIL (NIL . C) (C . D))))
;     (ASSOC NIL TRICKY :TEST #'EQ))
; 
; caught STYLE-WARNING:
;   The variable NUMBERS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable NUMBERS is defined but never used.
; 
; compilation unit finished
;   caught 57 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/list.pure.lisp
; in:
;      MACROLET ((TEST (EXPECTED FORM)
;             (LET ((NUMBERS '#) (TRICKY '#))
;               `(PROGN (ASSERT #) (ASSERT #) (ASSERT #)))))
;     (TEST (A . 1) (RASSOC 1 NUMBERS))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 1 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 1 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (B . 2) (RASSOC 2 NUMBERS))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 2 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 2 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (A . 1) (RASSOC 1 NUMBERS :KEY 'IDENTITY))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 1 NUMBERS :KEY 'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 1 NUMBERS :KEY 'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (B . 2) (RASSOC 2 NUMBERS :KEY #'IDENTITY))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 2 NUMBERS :KEY #'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 2 NUMBERS :KEY #'IDENTITY))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (RASSOC 1.0 NUMBERS))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 1.0 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 1.0 NUMBERS))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (A . 1) (RASSOC 1.0 NUMBERS :TEST #'=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 1.0 NUMBERS :TEST #'=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 1.0 NUMBERS :TEST #'=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (A . 1) (RASSOC 1.0 NUMBERS :TEST #'= :KEY NIL))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 1.0 NUMBERS :TEST #'= :KEY NIL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 1.0 NUMBERS :TEST #'= :KEY NIL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (B . 2) (RASSOC 2.0 NUMBERS :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 2.0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 2.0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (RASSOC 0 NUMBERS :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 0 NUMBERS :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (A . 1) (RASSOC 0 NUMBERS :TEST-NOT #'>))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 0 NUMBERS :TEST-NOT #'>))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 0 NUMBERS :TEST-NOT #'>))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (B . 2) (RASSOC 1 NUMBERS :TEST-NOT 'EQL))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 1 NUMBERS :TEST-NOT 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 1 NUMBERS :TEST-NOT 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (RASSOC 0 NUMBERS :TEST-NOT '<))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN 0 NUMBERS :TEST-NOT '<))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC 0 NUMBERS :TEST-NOT '<))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (A . 1) (RASSOC -1 NUMBERS :KEY #'-))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN -1 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC -1 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (B . 2) (RASSOC -2 NUMBERS :KEY '-))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN -2 NUMBERS :KEY '-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC -2 NUMBERS :KEY '-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (RASSOC -1.0 NUMBERS :KEY #'-))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN -1.0 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC -1.0 NUMBERS :KEY #'-))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (A . 1) (RASSOC -1.0 NUMBERS :KEY #'- :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN -1.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC -1.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (B . 2) (RASSOC -2.0 NUMBERS :KEY #'- :TEST '=))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN -2.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC -2.0 NUMBERS :KEY #'- :TEST '=))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST NIL (RASSOC -1.0 NUMBERS :KEY #'- :TEST 'EQL))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN -1.0 NUMBERS :KEY #'- :TEST 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC -1.0 NUMBERS :KEY #'- :TEST 'EQL))
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRICKY is defined but never used.

;     (TEST (C) (RASSOC NIL TRICKY :TEST #'EQ))
; --> PROGN ASSERT TAGBODY LET 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (FUNCALL FUN NIL TRICKY :TEST #'EQ))
; 
; caught STYLE-WARNING:
;   The variable NUMBERS is defined but never used.

; --> PROGN ASSERT TAGBODY LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (LET ((NUMBERS '((A . 1) (B . 2))) (TRICKY '(NIL (B . A) NIL (C) (D . C))))
;     (RASSOC NIL TRICKY :TEST #'EQ))
; 
; caught STYLE-WARNING:
;   The variable NUMBERS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable NUMBERS is defined but never used.
; 
; compilation unit finished
;   caught 57 STYLE-WARNING conditions
; in: LAMBDA (ELT)
;     (ADJOIN ELT '(:X :Y))
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (ELT)
;     (ADJOIN ELT '(:Y))
; ==>
;   (SB-KERNEL:%ADJOIN SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; 
; compilation unit finished
;   printed 1 note
::: Running :ADJOIN-FOLDING
::: Success :ADJOIN-FOLDING
// Running /«PKGBUILDDIR»/tests/load.pure.lisp
::: Running :LOAD-AS-SOURCE-ERROR-POSITION-REPORTING
::: Success :LOAD-AS-SOURCE-ERROR-POSITION-REPORTING
// Running /«PKGBUILDDIR»/tests/loop.pure.lisp

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in:
;      ASSERT (TYPEP (NTH-VALUE 1 (IGNORE-ERRORS (FUNCALL (LAMBDA # #)))) 'TYPE-ERROR)
;     (LOOP WITH (A . B) OF-TYPE FLOAT = '(5 . 5) RETURN (LIST A B))
; --> BLOCK LET SB-LOOP::LOOP-DESTRUCTURING-BIND DESTRUCTURING-BIND LET LET* 
; ==>
;   (LET* ((A
;           (IF (NOT #)
;               (CAR #:WHOLE12)
;               NIL))
;          (B (CDR #:WHOLE12)))
;     (DECLARE (IGNORE))
;     (DECLARE (TYPE FLOAT B)
;              (TYPE FLOAT A))
;     (SB-LOOP::LOOP-BODY NIL NIL ((RETURN-FROM NIL (LIST A B))) NIL NIL))
; 
; caught WARNING:
;   Derived type of (CAR #:WHOLE12) is
;     (VALUES (INTEGER 5 5) &OPTIONAL),
;   conflicting with its asserted type
;     FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (LOOP WHILE T
;           DO *PRINT-LEVEL* (PRINT T))
; 
; caught ERROR:
;   during macroexpansion of (LOOP WHILE T ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    A compound form was expected, but *PRINT-LEVEL* found.
;   current LOOP context: DO *PRINT-LEVEL* (PRINT T).
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in:
;      ASSERT (TYPEP (NTH-VALUE 1 (IGNORE-ERRORS (FUNCALL (LAMBDA # #))))
;                'PROGRAM-ERROR)
;     (LOOP FOR (A . A) IN '((1 . 2) (3 . 4)) RETURN A)
; 
; caught ERROR:
;   during macroexpansion of (LOOP FOR (A . A) ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Duplicated variable A
;   current LOOP context: FOR (A . A) IN '((1 . 2) (3 . 4)) RETURN.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in: MULTIPLE-VALUE-BIND (RESULT ERROR)
;     (LOOP FOR I IN '(1 2 3)
;           COLLECT I
;           ALWAYS (< I 4))
; 
; caught ERROR:
;   during macroexpansion of (LOOP FOR I ...). Use *BREAK-ON-SIGNALS* to intercept.
;   
;    This LOOP clause is not permitted with anonymous collectors.
;   current LOOP context: ALWAYS (< I 4).
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in: MULTIPLE-VALUE-BIND (RESULT ERROR)
;     (LOOP FOR I IN '(1 2 3)
;           ALWAYS (< I 4)
;           COLLECT I)
; 
; caught ERROR:
;   during macroexpansion of (LOOP FOR I ...). Use *BREAK-ON-SIGNALS* to intercept.
;   
;    This anonymous collection LOOP clause is not permitted with aggregate booleans.
;   current LOOP context: COLLECT I.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in: MULTIPLE-VALUE-BIND (RESULT ERROR)
;     (LOOP FOR I IN '(1 2 3)
;           THEREIS (= I 3)
;           COLLECT I)
; 
; caught ERROR:
;   during macroexpansion of (LOOP FOR I ...). Use *BREAK-ON-SIGNALS* to intercept.
;   
;    This anonymous collection LOOP clause is not permitted with aggregate booleans.
;   current LOOP context: COLLECT I.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in: MULTIPLE-VALUE-BIND (RESULT ERROR)
;     (LOOP WITH I = 1
;           FOR X FROM 1 TO 3
;           COLLECT ...)
; 
; caught ERROR:
;   during macroexpansion of (LOOP WITH I ...). Use *BREAK-ON-SIGNALS* to intercept.
;   
;    Duplicated variable I in INTO clause
;   current LOOP context: COLLECT X INTO I.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in: MULTIPLE-VALUE-BIND (RESULT ERROR)
;     (LOOP WITH I = 1
;           WITH I = (1+ I)
;           FOR X FROM ...)
; 
; caught ERROR:
;   during macroexpansion of (LOOP WITH I ...). Use *BREAK-ON-SIGNALS* to intercept.
;   
;    Duplicated variable I
;   current LOOP context: WITH I = (1+ I) FOR.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in:
;      ASSERT (EQUAL
;          (LOOP FOR NIL FROM 0 TO 2
;                COLLECT NIL)
;          '(NIL NIL NIL))
;     (LOOP FOR NIL FROM 0 TO 2
;           COLLECT NIL)
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY 
; --> TAGBODY WHEN IF > 
; ==>
;   #:LOOP-IGNORE-0
; 
; caught STYLE-WARNING:
;   reading an ignored variable: #:LOOP-IGNORE-0

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY 
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ 
; ==>
;   (SETQ #:LOOP-IGNORE-0 (1+ #:LOOP-IGNORE-0))
; 
; caught STYLE-WARNING:
;   #:LOOP-IGNORE-0 is being set even though it was declared to be ignored.

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY 
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+ + 
; ==>
;   #:LOOP-IGNORE-0
; 
; caught STYLE-WARNING:
;   reading an ignored variable: #:LOOP-IGNORE-0
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in:
;      ASSERT (EQUAL
;          (LOOP FOR NIL TO 2
;                COLLECT NIL)
;          '(NIL NIL NIL))
;     (LOOP FOR NIL TO 2
;           COLLECT NIL)
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY 
; --> TAGBODY WHEN IF > 
; ==>
;   #:LOOP-IGNORE-0
; 
; caught STYLE-WARNING:
;   reading an ignored variable: #:LOOP-IGNORE-0

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY 
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ 
; ==>
;   (SETQ #:LOOP-IGNORE-0 (1+ #:LOOP-IGNORE-0))
; 
; caught STYLE-WARNING:
;   #:LOOP-IGNORE-0 is being set even though it was declared to be ignored.

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY 
; --> TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+ + 
; ==>
;   #:LOOP-IGNORE-0
; 
; caught STYLE-WARNING:
;   reading an ignored variable: #:LOOP-IGNORE-0
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;         (COMPILE NIL
;                  `(LAMBDA ()
;                     (LOOP FOR (I J) FROM 4 TO 6
;                           COLLECT NIL)))
;       (ASSERT FAILURE-P))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G2620)
;       (DECLARE (IGNORE #:G2620))
;       (ASSERT FAILURE-P))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA ()
;     (LOOP FOR (I J) FROM 4 TO 6
;           COLLECT NIL)
; 
; caught ERROR:
;   during macroexpansion of (LOOP FOR (I J) ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Arithmetic index must be an atom.
;   current LOOP context: FOR (I J) FROM 4 TO 6 COLLECT.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;         (COMPILE NIL
;                  `(LAMBDA ()
;                     (LOOP FOR (I J) TO 6
;                           COLLECT NIL)))
;       (ASSERT FAILURE-P))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G2621)
;       (DECLARE (IGNORE #:G2621))
;       (ASSERT FAILURE-P))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA ()
;     (LOOP FOR (I J) TO 6
;           COLLECT NIL)
; 
; caught ERROR:
;   during macroexpansion of (LOOP FOR (I J) ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Arithmetic index must be an atom.
;   current LOOP context: FOR (I J) TO 6 COLLECT.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/loop.pure.lisp
; in:
;      ASSERT (NOT
;          (LOOP WITH FOO OF-TYPE (SINGLE-FLOAT 1.0 2.0) = 1.5
;                DO (RETURN)))
;     (LOOP WITH FOO OF-TYPE (SINGLE-FLOAT 1.0 2.0) = 1.5
;           DO (RETURN))
; --> BLOCK 
; ==>
;   (LET ((FOO 1.5))
;     (DECLARE (TYPE (SINGLE-FLOAT 1.0 2.0) FOO))
;     (SB-LOOP::LOOP-BODY NIL NIL ((RETURN)) NIL NIL))
; 
; caught STYLE-WARNING:
;   The variable FOO is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :BUG-540186
::: Success :BUG-540186
::: Running :BUG-LP613871
::: Success :BUG-LP613871
::: Running :BUG-654220-REGRESSION
::: Success :BUG-654220-REGRESSION
::: Running :OF-TYPE-CHARACTER-INIT
::: Success :OF-TYPE-CHARACTER-INIT
::: Running :TYPE-OF-NILLED-VARS
::: Success :TYPE-OF-NILLED-VARS
::: Running :MISPLACED-DICLARATIONS
::: Success :MISPLACED-DICLARATIONS
::: Running :DUPLICATE-BINDINGS
; in: LAMBDA ()
;     (LOOP WITH (A B) = '(1.0 2.0)
;           AND (C A) = '(3.0 4.0) RETURN (LIST A B C))
; 
; caught ERROR:
;   during macroexpansion of (LOOP WITH (A B) ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Duplicated variable A
;   current LOOP context: WITH (A B) = '(1.0 2.0) AND (C A) = '(3.0 4.0) RETURN.
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA ()
;     (LOOP WITH A = 10
;           WITH ((A) B) = '((1.0) 2.0) RETURN (LIST A B))
; 
; caught ERROR:
;   during macroexpansion of (LOOP WITH A ...). Use *BREAK-ON-SIGNALS* to intercept.
;   
;    Duplicated variable A
;   current LOOP context: WITH ((A) B) = '((1.0) 2.0) RETURN.
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA ()
;     (LOOP WITH (B) = '(10)
;           WITH (A) = '(3)
;           FOR B TO ...)
; 
; caught ERROR:
;   during macroexpansion of (LOOP WITH (B) ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Duplicated variable B
;   current LOOP context: FOR B TO 10 COLLECT.
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA ()
;     (LOOP WITH (A) = '(3)
;           FOR B TO 10
;           COLLECT A INTO ...)
; 
; caught ERROR:
;   during macroexpansion of (LOOP WITH (A) ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Duplicated variable B in INTO clause
;   current LOOP context: COLLECT A INTO B.
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :DUPLICATE-BINDINGS
::: Running :MULTIPLE-MAXIMIZE
::: Success :MULTIPLE-MAXIMIZE
::: Running :DESTRUCTURING-LESS
::: Success :DESTRUCTURING-LESS
::: Running :COUNT-WITH-SUM
::: Success :COUNT-WITH-SUM
::: Running :ITERATE-OVER-COMPLEX
::: Success :ITERATE-OVER-COMPLEX
::: Running :SIDE-EFFECTING-START-FORM
::: Success :SIDE-EFFECTING-START-FORM
::: Running :SUMMING-COMPLEX
::: Success :SUMMING-COMPLEX
::: Running :NEGATIVE-REPEAT
::: Success :NEGATIVE-REPEAT
::: Running :OF-TYPE-CHARACTER
::: Success :OF-TYPE-CHARACTER
::: Running :EMPTY-TYPE
; in: LAMBDA ()
;     (LOOP WITH A OF-TYPE (AND FIXNUM STRING) RETURN A)
; --> BLOCK 
; ==>
;   (LET ((A NIL))
;     (DECLARE (TYPE (AND FIXNUM STRING) A))
;     (SB-LOOP::LOOP-BODY NIL NIL ((RETURN-FROM NIL A)) NIL NIL))
; 
; caught WARNING:
;   The type declarations T and NIL for A conflict.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (LOOP FOR I TO 10
;           SUM I OF-TYPE (AND FIXNUM STRING))
; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT 
; ==>
;   (LET ((#:LOOP-SUM-0 NIL))
;     (DECLARE (TYPE (AND FIXNUM STRING) #:LOOP-SUM-0))
;     (SB-LOOP::LOOP-BODY NIL
;                         (NIL NIL (WHEN (> I '10) (GO SB-LOOP::END-LOOP)) NIL)
;                         ((SETQ #:LOOP-SUM-0 #))
;                         (NIL (SB-LOOP::LOOP-REALLY-DESETQ I (1+ I))
;                          (WHEN (> I '10) (GO SB-LOOP::END-LOOP)) NIL)
;                         ((RETURN-FROM NIL #:LOOP-SUM-0))))
; 
; caught WARNING:
;   The type declarations T and NIL for #:LOOP-SUM-0 conflict.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success :EMPTY-TYPE
::: Running :LOOP-REPEAT-CONST
::: Success :LOOP-REPEAT-CONST
::: Running :LOOP-DEFAULT-INIT-TYPE
::: Success :LOOP-DEFAULT-INIT-TYPE
::: Running :WITH-DESTRUCTURING
::: Success :WITH-DESTRUCTURING
// Running /«PKGBUILDDIR»/tests/mop.pure.lisp
::: Running :STANDARD-DIRECT-SUPERCLASSES
::: Success :STANDARD-DIRECT-SUPERCLASSES
::: Running :BUG-936513
::: Success :BUG-936513
::: Running :BUG-309072
::: Success :BUG-309072
::: Running (:BUG-1332983 :VALIDATE-SUPERCLASS STREAM T)
::: Success (:BUG-1332983 :VALIDATE-SUPERCLASS STREAM T)
::: Running (:BUG-1049423 :DUPLICATE-EFFECTIVE-SLOTS)
::: Success (:BUG-1049423 :DUPLICATE-EFFECTIVE-SLOTS)
::: Running :SANITY-CHECK-FIND-SLOT-CELL
::: Success :SANITY-CHECK-FIND-SLOT-CELL
// Running /«PKGBUILDDIR»/tests/octets.pure.lisp
::: Running (:ASCII :DECODING-ERROR USE-VALUE)
::: Success (:ASCII :DECODING-ERROR USE-VALUE)
::: Running (:ASCII :ENCODING-ERROR USE-VALUE)
::: Success (:ASCII :ENCODING-ERROR USE-VALUE)

; file: /«PKGBUILDDIR»/tests/octets.pure.lisp
; in:
;      ASSERT (EQUALP #()
;                 (STRING-TO-OCTETS (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
;                                   :EXTERNAL-FORMAT :UTF-8))
;     (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '0 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/octets.pure.lisp
; in:
;      ASSERT (EQUALP #()
;                 (STRING-TO-OCTETS (MAKE-ARRAY 5 :ELEMENT-TYPE NIL) :START 3
;                                   :END 3 :EXTERNAL-FORMAT :UTF-8))
;     (MAKE-ARRAY 5 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '5 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/octets.pure.lisp
; in:
;      ASSERT (EQUALP #(0)
;                 (STRING-TO-OCTETS (MAKE-ARRAY 5 :ELEMENT-TYPE NIL) :START 3
;                                   :END 3 :NULL-TERMINATE T :EXTERNAL-FORMAT
;                                   :UTF-8))
;     (MAKE-ARRAY 5 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '5 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:EUC-JP :DECODING-ERRORS)
::: Success (:EUC-JP :DECODING-ERRORS)
::: Running (:UTF-8 :SURROGATES :ENCODING-ERRORS)
::: Success (:UTF-8 :SURROGATES :ENCODING-ERRORS)
::: Running (:UTF-8 :SURROGATES :DECODING-ERRORS)
::: Success (:UTF-8 :SURROGATES :DECODING-ERRORS)
::: Running (:UCS-2 :OUT-OF-RANGE :ENCODING-ERRORS)
::: Success (:UCS-2 :OUT-OF-RANGE :ENCODING-ERRORS)
::: Running (:UCS-4 :OUT-OF-RANGE :DECODING-ERRORS)
::: Success (:UCS-4 :OUT-OF-RANGE :DECODING-ERRORS)
::: Running (:UTF-16LE :ENSURE-ROUNDTRIP)
::: Success (:UTF-16LE :ENSURE-ROUNDTRIP)
::: Running (:UTF-16LE :ENCODING-ERROR)
::: Success (:UTF-16LE :ENCODING-ERROR)
::: Running (:UTF-16BE :ENSURE-ROUNDTRIP)
::: Success (:UTF-16BE :ENSURE-ROUNDTRIP)
::: Running (:UTF-16BE :ENCODING-ERROR)
::: Success (:UTF-16BE :ENCODING-ERROR)
::: Running (:UTF-32LE :ENSURE-ROUNDTRIP)
::: Success (:UTF-32LE :ENSURE-ROUNDTRIP)
::: Running (:UTF-32LE :ENCODING-ERROR)
::: Success (:UTF-32LE :ENCODING-ERROR)
::: Running (:UTF-32BE :ENSURE-ROUNDTRIP)
::: Success (:UTF-32BE :ENSURE-ROUNDTRIP)
::: Running (:UTF-32BE :ENCODING-ERROR)
::: Success (:UTF-32BE :ENCODING-ERROR)
::: Running :COMPILE-FILE-POSITION-WITH-ENCODINGS
::: Success :COMPILE-FILE-POSITION-WITH-ENCODINGS
// Running /«PKGBUILDDIR»/tests/random.pure.lisp
::: Running (:RANDOM :INTEGER :SET-OF-INTEGERS :DISTRIBUTION)
::: Success (:RANDOM :INTEGER :SET-OF-INTEGERS :DISTRIBUTION)
::: Running (:RANDOM :INTEGER :SET-OF-INTEGERS :CHUNK-SIZE)
::: Success (:RANDOM :INTEGER :SET-OF-INTEGERS :CHUNK-SIZE)
::: Running (:RANDOM :INTEGER :ERROR-IF-INVALID-RANDOM-STATE)
; in: LAMBDA (X STATE)
;     (RANDOM X STATE)
; 
; note: unable to
;   Use inline float operations.
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0))
;                               (INTEGER 1)), not a SINGLE-FLOAT.
; 
; note: unable to
;   Use inline float operations.
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0))
;                               (INTEGER 1)), not a DOUBLE-FLOAT.
; 
; compilation unit finished
;   printed 2 notes
::: Success (:RANDOM :INTEGER :ERROR-IF-INVALID-RANDOM-STATE)
::: Running (:RANDOM :INTEGER :DISTRIBUTION)
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 1073741824))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 2147483648))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 4294967296))
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 536870913))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 1073741823))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 1073741824))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 1073741825))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 2147483647))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 2147483648))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 2147483649))
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 4294967295))
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y to "<return value>"
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (LAMBDA () (DECLARE (OPTIMIZE SPEED)) (RANDOM 4294967296))
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y to "<return value>"
; 
; compilation unit finished
;   printed 1 note
::: Success (:RANDOM :INTEGER :DISTRIBUTION)
// Running /«PKGBUILDDIR»/tests/reader.pure.lisp
::: Running :READ-SUPPRESS-CHAR-MACROS
::: Success :READ-SUPPRESS-CHAR-MACROS
::: Running :READ-PRESERVING-WHITESPACE-FILE-POSITION
::: Success :READ-PRESERVING-WHITESPACE-FILE-POSITION
Symbol "DOES-NOT-EXIST" not found in the COMMON-LISP-USER package.

  Line: 1, Column: 21, File-Position: 21

  Stream: #<SB-IMPL::STRING-INPUT-STREAM {52150219}>
::: Running :BUG-309093
::: Success :BUG-309093
::: Running :SET-SYNTAX-FROM-CHAR-DISPATCH-MACRO-CHAR
::: Success :SET-SYNTAX-FROM-CHAR-DISPATCH-MACRO-CHAR
::: Running :READ-IN-PACKAGE-SYNTAX
::: Success :READ-IN-PACKAGE-SYNTAX
::: Running :BUG-309070
::: Success :BUG-309070
::: Running :BUG-1095918
::: Success :BUG-1095918
::: Running :OBSCURE-READER-PACKAGE-USAGE
::: Success :OBSCURE-READER-PACKAGE-USAGE
::: Running :SHARP-LEFT-PAREN-EMPTY-LIST
::: Success :SHARP-LEFT-PAREN-EMPTY-LIST
::: Running :SHARP-STAR-EMPTY-MULTIPLE-ESCAPES
::: Success :SHARP-STAR-EMPTY-MULTIPLE-ESCAPES
::: Running :FAST-READ-BYTE-PACKAGE-LOCK
::: Success :FAST-READ-BYTE-PACKAGE-LOCK
::: Running :SHARP-PLUS-REQUIRES-SUBFORM
::: Success :SHARP-PLUS-REQUIRES-SUBFORM
// Running /«PKGBUILDDIR»/tests/seq.pure.lisp
SEQUENCE-AS-LIST=(1 (12) 1)
SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6)
SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6)
SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6)
SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6)
SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6)
SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6)
SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6)
SEQUENCE-AS-LIST=(0 10 0 11 12)
SEQUENCE-AS-LIST=(0 10 0 11 12)
SEQUENCE-AS-LIST=(0 10 0 11 12)
SEQUENCE-AS-LIST=(0 10 0 11 12)

; file: /«PKGBUILDDIR»/tests/seq.pure.lisp
; in:
;      ASSERT (EQUAL (SORT (LIST 0 0 0) (LAMBDA (X Y) (SORT (LIST 0 0 0) #'<) NIL))
;                '(0 0 0))
;     (SORT (LIST 0 0 0) #'<)
; ==>
;   (SB-IMPL::STABLE-SORT-LIST LIST
;                              (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;                               SB-C::PREDICATE)
;                              (IF SB-C::KEY
;                                  (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::KEY)
;                                  #'IDENTITY))
; 
; caught STYLE-WARNING:
;   The return value of STABLE-SORT-LIST should not be discarded.
; 
; caught STYLE-WARNING:
;   The return value of STABLE-SORT-LIST should not be discarded.

;     (LAMBDA (X Y) (SORT (LIST 0 0 0) #'<) NIL)
; ==>
;   #'(LAMBDA (X Y) (SORT (LIST 0 0 0) #'<) NIL)
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/seq.pure.lisp
; in: LET ((FN (COMPILE NIL '(LAMBDA (X) (POSITION X)))))
;     (LET ((FN (COMPILE NIL '(LAMBDA # #))))
;       (LET* ((X #(1 2 3))
;              (Y (MAKE-ARRAY 2 :DISPLACED-TO X :DISPLACED-INDEX-OFFSET 1)))
;         (ASSERT (= (POSITION 2 Y) 0))))
; 
; caught STYLE-WARNING:
;   The variable FN is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (X)
;     (POSITION X)
; 
; caught WARNING:
;   The function was called with one argument, but wants at least two.
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :BUG-452008
::: Success :BUG-452008
::: Running :BUG-554385
::: Success :BUG-554385
::: Running (:SEARCH :EMPTY-SEQ)
; in: LAMBDA (X)
;     (SEARCH X #(T T T))
; --> BLOCK FLET LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF DO BLOCK LET TAGBODY 
; --> TAGBODY UNLESS IF 
; ==>
;   (EQL (AREF SB-C::PATTERN SB-C::INDEX1) (AREF SB-C::TEXT SB-C::INDEX2))
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; compilation unit finished
;   printed 3 notes
; in: LAMBDA (X)
;     (SEARCH X #(T T T) :KEY NIL)
; --> BLOCK FLET LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF DO BLOCK LET TAGBODY 
; --> TAGBODY UNLESS IF 
; ==>
;   (EQL (AREF SB-C::PATTERN SB-C::INDEX1) (AREF SB-C::TEXT SB-C::INDEX2))
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; compilation unit finished
;   printed 3 notes
; in: LAMBDA (X K)
;     (SEARCH X #(T T T) :KEY K)
; --> BLOCK FLET LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF DO BLOCK LET TAGBODY 
; --> TAGBODY UNLESS IF 
; ==>
;   (EQL
;    (LET ((ELT (AREF SB-C::PATTERN SB-C::INDEX1)))
;      (IF SB-C::KEY
;          (FUNCALL SB-C::KEY ELT)
;          ELT))
;    (LET ((ELT (AREF SB-C::TEXT SB-C::INDEX2)))
;      (IF SB-C::KEY
;          (FUNCALL SB-C::KEY ELT)
;          ELT)))
; 
; 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.

; --> BLOCK FLET LET* WHEN IF PROGN 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::KEY)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

; --> BLOCK FLET LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF DO BLOCK LET TAGBODY 
; --> TAGBODY UNLESS IF 
; ==>
;   (EQL
;    (LET ((ELT (AREF SB-C::PATTERN SB-C::INDEX1)))
;      (IF SB-C::KEY
;          (FUNCALL SB-C::KEY ELT)
;          ELT))
;    (LET ((ELT (AREF SB-C::TEXT SB-C::INDEX2)))
;      (IF SB-C::KEY
;          (FUNCALL SB-C::KEY ELT)
;          ELT)))
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.
; 
; compilation unit finished
;   printed 4 notes
::: Success (:SEARCH :EMPTY-SEQ)
::: Running :SORT-SMOKE-TEST
::: Success :SORT-SMOKE-TEST
::: Running :STABLE-SORT-SMOKE-TEST
::: Success :STABLE-SORT-SMOKE-TEST
::: Running :&MORE-ELT-INDEX-TOO-LARGE
::: Success :&MORE-ELT-INDEX-TOO-LARGE
::: Running :DO-SEQUENCE-ON-LITERALS
::: Success :DO-SEQUENCE-ON-LITERALS
::: Running :SEARCH-TRANSFORM-NOTES
::: Success :SEARCH-TRANSFORM-NOTES
::: Running :CONCATENATE-TWO-CONSTANTS
::: Success :CONCATENATE-TWO-CONSTANTS
::: Running :BUG-330299-MAKE-SEQUENCE-TRANSFORM
; in: LAMBDA (SIZE)
;     (MAKE-SEQUENCE 'BIT-VECTOR SIZE :INITIAL-ELEMENT #\0)
; --> MAKE-ARRAY LOCALLY MAKE-ARRAY TRULY-THE FILL 
; ==>
;   (THE BIT '#\0)
; 
; caught WARNING:
;   Constant #\0 conflicts with its asserted type BIT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (N)
;     (MAKE-SEQUENCE '(VECTOR (INTEGER 1 15) 5) N :INITIAL-ELEMENT #\x)
; 
; caught WARNING:
;   :INITIAL-ELEMENT #\x is not a (INTEGER 1 15)
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA (N)
;     (MAKE-SEQUENCE '(VECTOR (INTEGER 1 15) 5) N)
; 
; caught STYLE-WARNING:
;   The default initial element 0 is not a (INTEGER 1 15).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :BUG-330299-MAKE-SEQUENCE-TRANSFORM
// Running /«PKGBUILDDIR»/tests/serve-event.pure.lisp
::: Running :COMPUTE-POLLFDS
6 handlers, 3 descriptors, 3 non-bogus
(1030 #b101) (1028 #b1) (500 #b101)
#(0 1 2 2 1 0)
12 handlers, 9 descriptors, 8 non-bogus
(91 #b100) (80 #b100) (92 #b1) (2 #b1) (3 #b1) (1 #b1) (9 #b1) (55 #b1)
#(NIL 0 1 2 3 NIL 4 3 5 3 6 7)
::: Success :COMPUTE-POLLFDS
// Running /«PKGBUILDDIR»/tests/stream.pure.lisp

; file: /«PKGBUILDDIR»/tests/stream.pure.lisp
; in:
;      LET* ((STRING (COPY-SEQ "abc")) (STREAM (MAKE-STRING-INPUT-STREAM STRING)))
;     (FILE-POSITION STREAM -1)
; 
; caught WARNING:
;   Constant
;     -1 conflicts with its asserted type
;     (OR UNSIGNED-BYTE (MEMBER :START :END)).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/stream.pure.lisp
; in: LET ((STREAM (MAKE-STRING-OUTPUT-STREAM)))
;     (FILE-POSITION STREAM -1)
; 
; caught WARNING:
;   Constant
;     -1 conflicts with its asserted type
;     (OR UNSIGNED-BYTE (MEMBER :START :END)).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/stream.pure.lisp
; in:
;      LET ((STR
;        (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE NIL :FILL-POINTER T)))
;     (FILE-POSITION STREAM -1)
; 
; caught WARNING:
;   Constant
;     -1 conflicts with its asserted type
;     (OR UNSIGNED-BYTE (MEMBER :START :END)).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/stream.pure.lisp
; in: WITH-TEST (:NAME :WHITESPACE[2]P-IS-TYPE-SAFE)
;     (SB-IMPL::WHITESPACE[2]P :POTATO)
; --> BLOCK SB-IMPL::TEST-ATTRIBUTE = IF = 
; ==>
;   (SB-IMPL::GET-CAT-ENTRY CHAR SB-IMPL::RT)
; 
; caught WARNING:
;   Derived type of CHAR is
;     (VALUES (MEMBER :POTATO) &OPTIONAL),
;   conflicting with its asserted type
;     CHARACTER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :WHITESPACE[2]P-IS-TYPE-SAFE
::: Success :WHITESPACE[2]P-IS-TYPE-SAFE
::: Running (STREAM :LISTEN-VS-SELECT)
::: Success (STREAM :LISTEN-VS-SELECT)
::: Running :BUG-395
::: Success :BUG-395
::: Running :WITH-INPUT-FROM-STRING-END-ONCE-ONLY
::: Success :WITH-INPUT-FROM-STRING-END-ONCE-ONLY
// Running /«PKGBUILDDIR»/tests/string.pure.lisp

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: ASSERT (TYPEP (MAKE-ARRAY 1 :ELEMENT-TYPE NIL) 'STRING)
;     (MAKE-ARRAY 1 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '1 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: ASSERT (NOT (TYPEP (MAKE-ARRAY 2 :ELEMENT-TYPE NIL) 'BASE-STRING))
;     (MAKE-ARRAY 2 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '2 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: ASSERT (TYPEP (MAKE-STRING 3 :ELEMENT-TYPE NIL) 'SIMPLE-STRING)
;     (MAKE-STRING 3 :ELEMENT-TYPE NIL)
; --> THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in:
;      ASSERT (NOT (TYPEP (MAKE-STRING 4 :ELEMENT-TYPE NIL) 'SIMPLE-BASE-STRING))
;     (MAKE-STRING 4 :ELEMENT-TYPE NIL)
; --> THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in:
;      ASSERT (SUBTYPEP (CLASS-OF (MAKE-ARRAY 1 :ELEMENT-TYPE NIL))
;                   (FIND-CLASS 'STRING))
;     (MAKE-ARRAY 1 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '1 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: ASSERT (STRING= "" (MAKE-ARRAY 0 :ELEMENT-TYPE NIL))
;     (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '0 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: ASSERT (STRING/= "a" (MAKE-ARRAY 0 :ELEMENT-TYPE NIL))
;     (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '0 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in:
;      ASSERT (= (SXHASH "") (SXHASH (MAKE-ARRAY 0 :ELEMENT-TYPE NIL))
;            (SXHASH (MAKE-ARRAY 5 :ELEMENT-TYPE NIL :FILL-POINTER 0))
;            (SXHASH (MAKE-STRING 0 :ELEMENT-TYPE NIL)))
;     (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '0 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.

;     (MAKE-STRING 0 :ELEMENT-TYPE NIL)
; --> THE MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in:
;      ASSERT (SUBTYPEP (TYPE-OF (MAKE-ARRAY 2 :ELEMENT-TYPE NIL)) 'SIMPLE-STRING)
;     (MAKE-ARRAY 2 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '2 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: ASSERT (EQ (INTERN "") (INTERN (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)))
;     (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '0 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: ASSERT-ERROR (MAKE-STRING 5 :ELEMENT-TYPE T)
;     (MAKE-STRING 5 :ELEMENT-TYPE T)
; ==>
;   (THE SIMPLE-STRING
;        (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE))
; 
; caught WARNING:
;   Derived type of
;   (TRULY-THE (SIMPLE-ARRAY T (5))
;              (SB-KERNEL:ALLOCATE-VECTOR 214 (THE SB-INT:INDEX LENGTH) 5))
;   is
;     (VALUES (SIMPLE-VECTOR 5) &OPTIONAL),
;   conflicting with its asserted type
;     SIMPLE-STRING.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in:
;      ASSERT-ERROR (LET ()
;                 (MAKE-STRING 5 :ELEMENT-TYPE T))
;     (MAKE-STRING 5 :ELEMENT-TYPE T)
; ==>
;   (THE SIMPLE-STRING
;        (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE))
; 
; caught WARNING:
;   Derived type of
;   (TRULY-THE (SIMPLE-ARRAY T (5))
;              (SB-KERNEL:ALLOCATE-VECTOR 214 (THE SB-INT:INDEX LENGTH) 5))
;   is
;     (VALUES (SIMPLE-VECTOR 5) &OPTIONAL),
;   conflicting with its asserted type
;     SIMPLE-STRING.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :STRING-TRIM.1
::: Success :STRING-TRIM.1
::: Running :STRING-TRIM.FILL-POINTER
::: Success :STRING-TRIM.FILL-POINTER
::: Running :STRING-TRIM.DISPLACED
::: Success :STRING-TRIM.DISPLACED
::: Running :STRING-TRIMG.NOTHING-TO-DO
::: Success :STRING-TRIMG.NOTHING-TO-DO

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: WITH-TEST (:NAME :NIL-VECTOR-ACCESS)
;     (MAKE-ARRAY 10 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '10 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :NIL-VECTOR-ACCESS
; in: LAMBDA ()
;     (MAKE-ARRAY 10 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '10 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (MAKE-ARRAY 10 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '10 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (MAKE-ARRAY 10 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '10 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (MAKE-ARRAY 10 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '10 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :NIL-VECTOR-ACCESS

; file: /«PKGBUILDDIR»/tests/string.pure.lisp
; in: WITH-TEST (:NAME :NIL-ARRAY-ACCESS)
;     (MAKE-ARRAY '(10 10) :ELEMENT-TYPE NIL)
; --> LOCALLY MAKE-ARRAY LET MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY '100 :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :NIL-ARRAY-ACCESS
; in: LAMBDA ()
;     (MAKE-ARRAY '(10 10) :ELEMENT-TYPE NIL)
; --> LOCALLY MAKE-ARRAY LET MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY '100 :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (MAKE-ARRAY '(10 10) :ELEMENT-TYPE NIL)
; --> LOCALLY MAKE-ARRAY LET MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY '100 :ELEMENT-TYPE SB-C::ELEMENT-TYPE)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :NIL-ARRAY-ACCESS
// Running /«PKGBUILDDIR»/tests/symbol.pure.lisp
::: Running (:SYMBOL :NON-SIMPLE-STRING-NAME)
::: Success (:SYMBOL :NON-SIMPLE-STRING-NAME)
::: Running (GENTEMP :PPRINTER)
::: Success (GENTEMP :PPRINTER)
::: Running (GENSYM :FIXNUM-RESTRICTION)
::: Success (GENSYM :FIXNUM-RESTRICTION)
::: Running :SETF-FDEFINITION-NO-MAGIC-FUNCTIONS
::: Success :SETF-FDEFINITION-NO-MAGIC-FUNCTIONS
::: Running :MACRO-GUARD-FUNCTION-NAME
::: Success :MACRO-GUARD-FUNCTION-NAME
// Running /«PKGBUILDDIR»/tests/threads.pure.lisp
::: SKIPPED-DISABLED ATOMIC-UPDATE
    Test disabled for this combination of platform and features
::: Running MUTEX-OWNER
::: Success MUTEX-OWNER
::: SKIPPED-DISABLED :WITHOUT-INTERRUPTS+CONDITION-WAIT
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :WITHOUT-INTERRUPTS+GRAB-MUTEX
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :PARALLEL-FIND-CLASS
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :SEMAPHORE-MULTIPLE-WAITERS
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :WAITQUEUE-CIRCLE-PRINT
    Test disabled for this combination of platform and features
::: Running :SYMBOL-VALUE-IN-THREAD.1
::: Success :SYMBOL-VALUE-IN-THREAD.1
::: SKIPPED-DISABLED :SYMBOL-VALUE-IN-THREAD.2
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :SYMBOL-VALUE-IN-THREAD.3
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :SYMBOL-VALUE-IN-THREAD.4
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :SYMBOL-VALUE-IN-THREAD.5
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :SYMBOL-VALUE-IN-THREAD.6
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :SYMBOL-VALUE-IN-THREAD.7
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :SYMBOL-VALUE-IN-THREAD.8
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :DEADLOCK-DETECTION.1
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :DEADLOCK-DETECTION.2
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :DEADLOCK-DETECTION.3
    Test disabled for this combination of platform and features
::: Running (:WAIT-FOR :BASICS)
::: Success (:WAIT-FOR :BASICS)
::: Running (:WAIT-FOR :DEADLINE)
::: Success (:WAIT-FOR :DEADLINE)
::: Running (:CONDITION-WAIT :TIMEOUT :ONE-THREAD)
::: Success (:CONDITION-WAIT :TIMEOUT :ONE-THREAD)
::: SKIPPED-DISABLED (:CONDITION-WAIT :TIMEOUT :MANY-THREADS)
    Test disabled for this combination of platform and features
::: Running (:WAIT-ON-SEMAPHORE :TIMEOUT :ONE-THREAD)
::: Success (:WAIT-ON-SEMAPHORE :TIMEOUT :ONE-THREAD)
::: SKIPPED-DISABLED (:WAIT-ON-SEMAPHORE :TIMEOUT :MANY-THREADS)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:JOIN-THREAD :TIMEOUT)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:SEMAPHORE-NOTIFICATION :WAIT-ON-SEMAPHORE :LP-1038034)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:SEMAPHORE-NOTIFICATION :WAIT-ON-SEMAPHORE)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:SEMAPHORE-NOTIFICATION :TRY-SEMPAHORE)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:RETURN-FROM-THREAD :NORMAL-THREAD)
    Test disabled for this combination of platform and features
::: Running (:RETURN-FROM-THREAD :MAIN-THREAD)
::: Success (:RETURN-FROM-THREAD :MAIN-THREAD)
::: SKIPPED-DISABLED (:ABORT-THREAD :NORMAL-THREAD)
    Test disabled for this combination of platform and features
::: Running (:ABORT-THREAD :MAIN-THREAD)
::: Success (:ABORT-THREAD :MAIN-THREAD)
::: SKIPPED-DISABLED (MAKE-THREAD :INTERRUPT-WITH MAKE-THREAD :BUG-1180102)
    Test disabled for this combination of platform and features
// Running /«PKGBUILDDIR»/tests/time.pure.lisp
::: Running :TIME/LAMBDAS-CONVERTED
Evaluation took:
  0.003 seconds of real time
  0.004000 seconds of total run time (0.004000 user, 0.000000 system)
  133.33% CPU
  40,544 bytes consed
  
::: Success :TIME/LAMBDAS-CONVERTED
// Running /«PKGBUILDDIR»/tests/type.pure.lisp
ARITHMETIC-ERROR
FUNCTION
SIMPLE-CONDITION
ARRAY
GENERIC-FUNCTION
SIMPLE-ERROR
ATOM
HASH-TABLE
SIMPLE-STRING
BASE-CHAR
INTEGER
SIMPLE-TYPE-ERROR
BASE-STRING
KEYWORD
SIMPLE-VECTOR
BIGNUM
LIST
SIMPLE-WARNING
BIT
LOGICAL-PATHNAME
SINGLE-FLOAT
BIT-VECTOR
LONG-FLOAT
STANDARD-CHAR
BROADCAST-STREAM
METHOD
STANDARD-CLASS
BUILT-IN-CLASS
METHOD-COMBINATION
STANDARD-GENERIC-FUNCTION
CELL-ERROR
NIL
STANDARD-METHOD
CHARACTER
NULL
STANDARD-OBJECT
CLASS
NUMBER
STORAGE-CONDITION
COMPILED-FUNCTION
PACKAGE
STREAM
COMPLEX
PACKAGE-ERROR
STREAM-ERROR
CONCATENATED-STREAM
PARSE-ERROR
STRING
CONDITION
PATHNAME
STRING-STREAM
CONS
PRINT-NOT-READABLE
STRUCTURE-CLASS
CONTROL-ERROR
PROGRAM-ERROR
STRUCTURE-OBJECT
DIVISION-BY-ZERO
RANDOM-STATE
STYLE-WARNING
DOUBLE-FLOAT
RATIO
SYMBOL
ECHO-STREAM
RATIONAL
SYNONYM-STREAM
END-OF-FILE
READER-ERROR
T
ERROR
READTABLE
TWO-WAY-STREAM
EXTENDED-CHAR
REAL
TYPE-ERROR
FILE-ERROR
RESTART
UNBOUND-SLOT
FILE-STREAM
SEQUENCE
UNBOUND-VARIABLE
FIXNUM
SERIOUS-CONDITION
UNDEFINED-FUNCTION
FLOAT
SHORT-FLOAT
UNSIGNED-BYTE
FLOATING-POINT-INEXACT
SIGNED-BYTE
VECTOR
FLOATING-POINT-INVALID-OPERATION
SIMPLE-ARRAY
WARNING
FLOATING-POINT-OVERFLOW
SIMPLE-BASE-STRING
FLOATING-POINT-UNDERFLOW
SIMPLE-BIT-VECTOR
::: Running :COERCE-FUNCTION-ON-MACRO
::: Success :COERCE-FUNCTION-ON-MACRO
::: Running (:TYPE-DERIVATION :LOGICAL-OPERATIONS :CORRECTNESS)
testing type derivation: LOGAND-DERIVE-UNSIGNED-BOUNDS
testing type derivation: LOGIOR-DERIVE-UNSIGNED-BOUNDS
testing type derivation: LOGXOR-DERIVE-UNSIGNED-BOUNDS
::: Success (:TYPE-DERIVATION :LOGICAL-OPERATIONS :CORRECTNESS)
::: Running (:TYPE-DERIVATION :LOGICAL-OPERATIONS :SCALING)
::: Success (:TYPE-DERIVATION :LOGICAL-OPERATIONS :SCALING)
::: Running (:TYPEP :CHARACTER-SET :NEGATION)
::: Success (:TYPEP :CHARACTER-SET :NEGATION)
::: Running (:CHECK-TYPE :STORE-VALUE :COMPLEX-PLACE)
::: Success (:CHECK-TYPE :STORE-VALUE :COMPLEX-PLACE)
::: Running (:TYPEP :FIXNUM-IF-UNSIGNED-BYTE)
::: Success (:TYPEP :FIXNUM-IF-UNSIGNED-BYTE)
::: Running (:TYPEP :MEMBER-USES-EQL)
::: Success (:TYPEP :MEMBER-USES-EQL)
::: Running :OPT+REST+KEY-CANONICALIZATION
::: Success :OPT+REST+KEY-CANONICALIZATION
::: Running :BUG-369
::: Success :BUG-369
::: Running :BUG-485972
::: Success :BUG-485972
::: Running :BUG-883498
::: Success :BUG-883498
::: Running :QUIRKY-INTEGER-RATIONAL-UNION
::: Success :QUIRKY-INTEGER-RATIONAL-UNION
::: Running :SINGLE-VALUE-&OPTIONAL-TYPE
::: Success :SINGLE-VALUE-&OPTIONAL-TYPE
::: Running :ANSILY-REPORT-HAIRY-ARRAY-TYPE
::: Success :ANSILY-REPORT-HAIRY-ARRAY-TYPE
::: Running :BUG-309098
::: Success :BUG-309098
::: Running :BUG-1258716
::: Success :BUG-1258716
::: Running :PARSE-SAFELY
::: Success :PARSE-SAFELY
::: Running :UNPARSE-SAFELY
::: Success :UNPARSE-SAFELY
::: Running :PARTITION-ARRAY-INTO-SIMPLE/HAIRY
::: Success :PARTITION-ARRAY-INTO-SIMPLE/HAIRY
// Running /«PKGBUILDDIR»/tests/unicode-misc.pure.lisp
::: Running (:UNICODE-CASING)
::: Success (:UNICODE-CASING)
::: Running (:CL-CASE-INVERTIBILITY)
::: Success (:CL-CASE-INVERTIBILITY)
::: Running (:BASIC-CONFUSABLE-DETECTION)
::: Success (:BASIC-CONFUSABLE-DETECTION)
// Running /«PKGBUILDDIR»/tests/vector.pure.lisp

; file: /«PKGBUILDDIR»/tests/vector.pure.lisp
; in: WITH-TEST (:NAME :LENGTH)
;     (VECTOR-PUSH-EXTEND #\b SIMPLE-T)
; 
; caught WARNING:
;   Derived type of SIMPLE-T is
;     (VALUES (SIMPLE-VECTOR 35) &OPTIONAL),
;   conflicting with its asserted type
;     (AND VECTOR (NOT SIMPLE-ARRAY)).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :LENGTH
::: Success :LENGTH
::: Running :FILL-POINTER
::: Success :FILL-POINTER
::: Running :SVREF-UNKNOWN-TYPE
; in: LAMBDA (A)
;     (SVREF A 0)
; --> LET 
; ==>
;   (THE UNDEFINED-TYPE
;        (SB-KERNEL:DATA-VECTOR-REF (THE SIMPLE-VECTOR #:N-VECTOR-0)
;                                   (SB-KERNEL:%CHECK-BOUND #:N-VECTOR-0
;                                                           (LENGTH #:N-VECTOR-0)
;                                                           0)))
; 
; caught STYLE-WARNING:
;   undefined type: UNDEFINED-TYPE

;     ((VECTOR UNDEFINED-TYPE) A)
; 
; caught STYLE-WARNING:
;   undefined type: UNDEFINED-TYPE
; 
; compilation unit finished
;   Undefined type:
;     UNDEFINED-TYPE
;   caught 2 STYLE-WARNING conditions

;     (SETF (SVREF A 0) 10)
; --> SB-KERNEL:%SVSET LET 
; ==>
;   (TRULY-THE UNDEFINED-TYPE
;              (SB-KERNEL:DATA-VECTOR-SET (THE SIMPLE-VECTOR #:N-VECTOR-2)
;               (SB-KERNEL:%CHECK-BOUND #:N-VECTOR-2 (LENGTH #:N-VECTOR-2) 0)
;               (THE UNDEFINED-TYPE 10)))
; 
; caught STYLE-WARNING:
;   undefined type: UNDEFINED-TYPE
; 
; compilation unit finished
;   Undefined type:
;     UNDEFINED-TYPE
;   caught 1 STYLE-WARNING condition
::: Success :SVREF-UNKNOWN-TYPE
::: Running :SVREF-NEGATIVE-INDEX
::: Success :SVREF-NEGATIVE-INDEX
// Running pure tests (#<FUNCTION RUN-TESTS::CLOAD-TEST>)
// Running /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp

; compiling file "/«PKGBUILDDIR»/tests/compiler.pure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (IN-PACKAGE :CL-USER)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: LET ((A 1) (B 1))
;     (ERROR "TMP not true")
; ==>
;   "TMP not true"
; 
; note: deleting unreachable code
; compiling (LET (# #) ...)
; compiling (PRINT (SETQ IMPROPERLY-DECLARED-VAR ...))
; compiling (ASSERT (EQUAL # ...))
; compiling (MAKUNBOUND (QUOTE IMPROPERLY-DECLARED-VAR))
; compiling (PRINT (SETQ *PRINT-LEVEL* ...))
; compiling (LET (#) ...)
; compiling (LET (# #) ...)
; compiling (FLET (#) ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: DEFUN #:FOO
;     (> B C)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (>= 0 B)
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> <= OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (LDB-TEST (BYTE 27 4) D)
; --> NOT IF ZEROP = MASK-FIELD SB-KERNEL:%MASK-FIELD LOGAND 
; ==>
;   (LOGAND SB-C::X '2147483632)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 32).
;       etc.

;     (>= 0 B)
; --> <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (LOGIOR C B)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a REAL, 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 3) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.

;     (SIGNUM (LOGIOR C B))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       etc.

;     (> B C)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       etc.

;     (LOGANDC2 C D)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second 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 3) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       The second 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.

;     (> D 224002)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       etc.

;     (LOGXOR
;      (IF (LDB-TEST (BYTE 27 4) D)
;          -1
;          (MAX 55546856 -431))
;      (LOGORC2
;       (IF (>= 0 B)
;           (IF (> B C)
;               (LOGANDC2 C D)
;               (IF #
;                   0
;                   D))
;           (SIGNUM (LOGIOR C B)))
;       (LOGIOR A -1)))
; 
; note: forced to do static-fun Two-arg-xor (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, 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 3) because:
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       etc.
; compiling (DEFUN #:FOO ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: DEFUN #:FOO
;     (DEPOSIT-FIELD 4667947 (BYTE 14 26) B)
; ==>
;   (SB-KERNEL:%DEPOSIT-FIELD 4667947 14 26 B)
; 
; note: unable to
;   convert to inline logical operations
; due to type uncertainty:
;   The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES
;                                                               (UNSIGNED-BYTE
;                                                                32)
;                                                               &REST T).
; 
; note: unable to
;   convert to inline logical operations
; due to type uncertainty:
;   The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES
;                                                               (SIGNED-BYTE 32)
;                                                               &REST T).

;     (DEPOSIT-FIELD B (BYTE 25 27) -30424886)
; ==>
;   (SB-KERNEL:%DEPOSIT-FIELD B 25 27 -30424886)
; 
; note: unable to
;   convert to inline logical operations
; due to type uncertainty:
;   The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES
;                                                               (UNSIGNED-BYTE
;                                                                32)
;                                                               &REST T).
; 
; note: unable to
;   convert to inline logical operations
; due to type uncertainty:
;   The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES
;                                                               (SIGNED-BYTE 32)
;                                                               &REST T).

;     (DPB B (BYTE 23 29) C)
; ==>
;   (SB-KERNEL:%DPB B 23 29 C)
; 
; note: unable to
;   convert to inline logical operations
; due to type uncertainty:
;   The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES
;                                                               (UNSIGNED-BYTE
;                                                                32)
;                                                               &REST T).
; 
; note: unable to
;   convert to inline logical operations
; due to type uncertainty:
;   The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES
;                                                               (SIGNED-BYTE 32)
;                                                               &REST T).

;     (LOGORC2 3 (DEPOSIT-FIELD 4667947 (BYTE 14 26) B))
; --> LOGIOR 
; ==>
;   (LOGNOT (DEPOSIT-FIELD 4667947 (BYTE 14 26) B))
; 
; note: forced to do full call
;       unable to do inline (signed-byte 32) arithmetic (cost 1) because:
;       The first argument is a (SIGNED-BYTE 41), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 41), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).

; ==>
;   (LOGIOR 3 (LOGNOT (DEPOSIT-FIELD 4667947 (BYTE 14 26) B)))
; 
; 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 (SIGNED-BYTE 41), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 41), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (* (LOGORC2 3 (DEPOSIT-FIELD 4667947 (BYTE 14 26) B))
;        (DEPOSIT-FIELD B (BYTE 25 27) -30424886))
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 41), not a FIXNUM.
;       The second argument is a (SIGNED-BYTE 53), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -4951760157141520000084869120
;                         4951760157141521099596496896)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 41), not a (UNSIGNED-BYTE 32).
;       The second argument is a (SIGNED-BYTE 53), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -4951760157141520000084869120
;                         4951760157141521099596496896)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

;     (*
;      (* (LOGORC2 3 (DEPOSIT-FIELD 4667947 (BYTE 14 26) B))
;         (DEPOSIT-FIELD B (BYTE 25 27) -30424886))
;      (DPB B (BYTE 23 29) C))
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -4951760157141520000084869120
;                                4951760157141521099596496896), not a FIXNUM.
;       The second argument is a (SIGNED-BYTE 53), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -22300745198530623141535718272648361505980416
;                         22300745198530618189775561131127261909483520)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4951760157141520000084869120
;                                4951760157141521099596496896), not a (UNSIGNED-BYTE
;                                                                      32).
;       The second argument is a (SIGNED-BYTE 53), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -22300745198530623141535718272648361505980416
;                         22300745198530618189775561131127261909483520)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.
; compiling (DEFUN #:FOO ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: DEFUN #:FOO
;     (* Y X)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -1 1000000000000000000000000), not a FIXNUM.
;       The second argument is a (INTEGER -1 1000000000000000000000000), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -1000000000000000000000000
;                         1000000000000000000000000000000000000000000000000)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -1 1000000000000000000000000), not a (UNSIGNED-BYTE
;                                                                              32).
;       The second argument is a (INTEGER -1 1000000000000000000000000), not a (UNSIGNED-BYTE
;                                                                               32).
;       The result is a (VALUES
;                        (INTEGER -1000000000000000000000000
;                         1000000000000000000000000000000000000000000000000)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

;     (* X (* Y X))
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -1 1000000000000000000000000), not a FIXNUM.
;       The second argument is a (INTEGER -1000000000000000000000000
;                                 1000000000000000000000000000000000000000000000000), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER
;                         -1000000000000000000000000000000000000000000000000
;                         1000000000000000000000000000000000000000000000000000000000000000000000000)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -1 1000000000000000000000000), not a (UNSIGNED-BYTE
;                                                                              32).
;       The second argument is a (INTEGER -1000000000000000000000000
;                                 1000000000000000000000000000000000000000000000000), not a (UNSIGNED-BYTE
;                                                                                            32).
;       The result is a (VALUES
;                        (INTEGER
;                         -1000000000000000000000000000000000000000000000000
;                         1000000000000000000000000000000000000000000000000000000000000000000000000)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

;     (DEFUN #:FOO (X Y)
;       (DECLARE (TYPE (INTEGER -1 1000000000000000000000000) X Y)
;                (OPTIMIZE SPEED))
;       (* X (* Y X)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; compiling (DEFUN #:FOO ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: DEFUN #:FOO
;     (IF (= V3 B)
;         B
;         B)
; ==>
;   B
; 
; note: deleting unreachable code
; compiling (DEFUN #:FOO ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: DEFUN #:FOO
;     (LABELS ((%F7 ()
;                (%F16)))
;       D)
; 
; note: deleting unused function
;   (LABELS %F7 :IN #:FOO)

;     (LET ((V7
;            (FLET (#)
;              (LABELS #
;                D))))
;       132887443)
; 
; caught STYLE-WARNING:
;   The variable V7 is defined but never used.
; compiling (DEFUN #:FOO ...)
; compiling (ASSERT (EQ # ...))
; compiling (ASSERT (EQ # ...))
; compiling (FLET (#) ...)
; compiling (LET (#) ...)
; compiling (FLET (#) ...)
; compiling (LET (#) ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: WITH-TEST (:NAME :SPECIALIZED-ARRAY-DUMPING)
;     (MAKE-TESTS)
; --> PROGN ASSERT TAGBODY LET WHEN IF AND IF AND THE EQUALP MAKE-ARRAY LOCALLY 
; ==>
;   (MAKE-ARRAY '0 :ELEMENT-TYPE 'NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; compiling (WITH-TEST (:NAME :SPECIALIZED-ARRAY-DUMPING) ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: LAMBDA ()
;     (THE STRING (+ 1 X))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of (+ 1 X) is
;     (VALUES NUMBER &OPTIONAL),
;   conflicting with its asserted type
;     STRING.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; compiling (LAMBDA NIL ...)

; file: /«PKGBUILDDIR»/tests/compiler.pure-cload.lisp
; in: LAMBDA ()
;     (LET (A)
;       (DECLARE (TYPE VECTOR A))
;       (X #<FUNCTION LIST>))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Constant NIL conflicts with its asserted type VECTOR.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; in: PRINT (SETQ IMPROPERLY-DECLARED-VAR '(1 2))
;     (SETQ IMPROPERLY-DECLARED-VAR '(1 2))
; 
; caught WARNING:
;   undefined variable: IMPROPERLY-DECLARED-VAR

; in: LAMBDA ()
;     (+ 1 X)
; 
; caught WARNING:
;   undefined variable: X
; 
; compilation unit finished
;   Undefined variables:
;     IMPROPERLY-DECLARED-VAR X
;   caught 4 WARNING conditions
;   caught 2 STYLE-WARNING conditions
;   printed 31 notes
; compiling (LAMBDA NIL ...)

; /«PKGBUILDDIR»/tests/compiler.pure-cload.fasl written
; compilation finished in 0:00:01.606

(1 2) 
; in: DO ((X '(1 2 3) (CDR X)))
;     (GO :LOOP)
; 
; caught ERROR:
;   attempt to GO to nonexistent tag: :LOOP
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: DO* ((X '(1 2 3) (CDR X)))
;     (GO :LOOP)
; 
; caught ERROR:
;   attempt to GO to nonexistent tag: :LOOP
; 
; compilation unit finished
;   caught 1 ERROR condition
NIL 
::: Running :SPECIALIZED-ARRAY-DUMPING
::: Success :SPECIALIZED-ARRAY-DUMPING
// Running impure tests (#<FUNCTION RUN-TESTS::LOAD-TEST>)
// Running /«PKGBUILDDIR»/tests/alien.impure.lisp

; file: /«PKGBUILDDIR»/tests/alien.impure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGSP FAILUREP)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGSP FAILUREP)
;         (COMPILE NIL '(LAMBDA () (FTYPE-CORRECTNESS)))
;       (ASSERT WARNINGSP))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGSP) (FAILUREP) &REST #:G578)
;       (DECLARE (IGNORE #:G578))
;       (ASSERT WARNINGSP))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FAILUREP is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA ()
;     (FTYPE-CORRECTNESS)
; 
; caught WARNING:
;   The function was called with zero arguments, but wants exactly one.
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/alien.impure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGSP FAILUREP)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGSP FAILUREP)
;         (COMPILE NIL '(LAMBDA () (FTYPE-CORRECTNESS "FOO")))
;       (ASSERT (NOT WARNINGSP)))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGSP) (FAILUREP) &REST #:G579)
;       (DECLARE (IGNORE #:G579))
;       (ASSERT (NOT WARNINGSP)))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FAILUREP is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/alien.impure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGSP FAILUREP)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGSP FAILUREP)
;         (COMPILE NIL '(LAMBDA () (FTYPE-CORRECTNESS "FOO" "BAR")))
;       (ASSERT WARNINGSP))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGSP) (FAILUREP) &REST #:G580)
;       (DECLARE (IGNORE #:G580))
;       (ASSERT WARNINGSP))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FAILUREP is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA ()
;     (FTYPE-CORRECTNESS "FOO" "BAR")
; 
; caught WARNING:
;   The function was called with two arguments, but wants exactly one.
; 
; compilation unit finished
;   caught 1 WARNING condition
; compiling file "/«PKGBUILDDIR»/tests/alien-bug-2004-10-11.tmp.lisp" (written 11 JUN 2015 08:53:10 AM):
; compiling (DEFPACKAGE :ALIEN-BUG ...)
; compiling (IN-PACKAGE :ALIEN-BUG)
; compiling (DEFINE-ALIEN-TYPE OBJC-CLASS ...)

; /«PKGBUILDDIR»/tests/alien-bug-2004-10-11.tmp.fasl written
; compilation finished in 0:00:00.028
; compiling file "/«PKGBUILDDIR»/tests/alien-bug-2004-10-11.tmp.lisp" (written 11 JUN 2015 08:53:10 AM):
; compiling (DEFPACKAGE :ALIEN-BUG ...)
; compiling (IN-PACKAGE :ALIEN-BUG)
; compiling (DEFINE-ALIEN-TYPE OBJC-CLASS ...)

; /«PKGBUILDDIR»/tests/alien-bug-2004-10-11.tmp.fasl written
; compilation finished in 0:00:00.024
STYLE-WARNING: The element value 2 is used more than once.
::: Running :UNUSED-LOCAL-ALIEN
::: Success :UNUSED-LOCAL-ALIEN

; file: /«PKGBUILDDIR»/tests/alien.impure.lisp
; in: DEFUN TRY-TO-LEAK-ALIEN-STACK
;     (NEVER)
; 
; caught STYLE-WARNING:
;   undefined function: NEVER
; 
; compilation unit finished
;   Undefined function:
;     NEVER
;   caught 1 STYLE-WARNING condition
::: Running :NLX-CAUSES-ALIEN-STACK-LEAK
::: Success :NLX-CAUSES-ALIEN-STACK-LEAK
::: Running :ALIEN-STRUCT-REDEFINITION
::: Success :ALIEN-STRUCT-REDEFINITION
; 
; caught STYLE-WARNING:
;   Undefined alien: "bug_316075"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :BUG-316075
::: Success :BUG-316075
::: SKIPPED-DISABLED :BUG-316325
    Test disabled for this combination of platform and features
::: Running :BUG-654485
::: Success :BUG-654485
::: Running :BUG-721087
::: Success :BUG-721087
::: Running :MAKE-ALIEN-STRING
::: Success :MAKE-ALIEN-STRING
::: Running :MALLOC-FAILURE
::: Success :MALLOC-FAILURE
::: Running :BUG-985505
::: Success :BUG-985505

; file: /«PKGBUILDDIR»/tests/alien.impure.lisp
; in: WITH-TEST (:NAME :STREAM-TO-C-STRING-DECODING-RESTART-LEAKAGE)
;     (HANDLER-BIND ((SB-INT:CHARACTER-DECODING-ERROR
;                     (LAMBDA (STREAM-CONDITION)
;                       (HANDLER-BIND #
;                         #))))
;       (LET ((NAMESTRING "alien.impure.tmp"))
;         (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE # #) (WITH-OPEN-FILE # #))
;           (DELETE-FILE NAMESTRING))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER5 (STREAM-CONDITION)
;            (HANDLER-BIND (#)
;              (LET #
;                #)))
;          (#:TYPEP6 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:CHARACTER-DECODING-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER5) (FUNCTION #:TYPEP6)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN
;        (PROGN
;         (LET #
;           #)))))
; 
; caught STYLE-WARNING:
;   The variable STREAM-CONDITION is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :STREAM-TO-C-STRING-DECODING-RESTART-LEAKAGE
::: Success :STREAM-TO-C-STRING-DECODING-RESTART-LEAKAGE
::: Running (:ALIEN-STRUCTURE-REDEFINITION :CONDITION-PRINTABLE)
::: Success (:ALIEN-STRUCTURE-REDEFINITION :CONDITION-PRINTABLE)
::: Running (:64-BIT-RETURN-TRUNCATION)
::: Success (:64-BIT-RETURN-TRUNCATION)
// Running /«PKGBUILDDIR»/tests/arith.impure.lisp

; file: /«PKGBUILDDIR»/tests/arith.impure.lisp
; in: DEFINE-COMPILED-FUN MIN
;     (DEFINE-COMPILED-FUN MIN COMPILED-MIN)
; --> BLOCK CASE LET COND IF PROGN 
; ==>
;   (MIN)
; 
; caught WARNING:
;   The function was called with zero arguments, but wants at least one.
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.impure.lisp
; in: DEFINE-COMPILED-FUN MAX
;     (DEFINE-COMPILED-FUN MAX COMPILED-MAX)
; --> BLOCK CASE LET COND IF PROGN 
; ==>
;   (MAX)
; 
; caught WARNING:
;   The function was called with zero arguments, but wants at least one.
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.impure.lisp
; in: ASSERT-ERROR (COERCE (EXPT 10 1000) 'SINGLE-FLOAT)
;     (COERCE (EXPT 10 1000) 'SINGLE-FLOAT)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   Too large to be represented as a SINGLE-FLOAT:
;     10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/arith.impure.lisp
; in: DEFUN PPC-LDB-2
;     (TYPE STREAM SOCKET)
; 
; caught WARNING:
;   undefined variable: SOCKET
; 
; compilation unit finished
;   Undefined variable:
;     SOCKET
;   caught 1 WARNING condition

; in: DEFUN PPC-LDB-1
;     (PPC-LDB-2 FUN
;                (IF PARAM
;                    SIZE
;                    -1))
; 
; caught WARNING:
;   undefined variable: SOCKET
; 
; compilation unit finished
;   Undefined variable:
;     SOCKET
;   caught 1 WARNING condition
// Running /«PKGBUILDDIR»/tests/backq.impure.lisp
::: Running :BACKQ-SMOKE-TEST
::: Success :BACKQ-SMOKE-TEST

`(FOOBAR A B ,C ,'(E F G) D ,@'(E F G) (H I J) ,@FOO) 
::: Running :SHARP-DOT-RESETS-BACKQUOTE-DEPTH
::: Success :SHARP-DOT-RESETS-BACKQUOTE-DEPTH
::: Running :TRIPLE-BACKQUOTE
::: Success :TRIPLE-BACKQUOTE
::: Running :BUG-1063414-UNPRINTABLE-NESTED-BACKQUOTE
::: Success :BUG-1063414-UNPRINTABLE-NESTED-BACKQUOTE
::: Running :PRESERVING-INNER-BACKQUOTES
::: Success :PRESERVING-INNER-BACKQUOTES
::: Running :PRESERVING-BACKQUOTES-DIFFICULT
::: Success :PRESERVING-BACKQUOTES-DIFFICULT
::: Running :BACKQUOTE-PERMISSIBLE-CIRCULARITY
::: Success :BACKQUOTE-PERMISSIBLE-CIRCULARITY
::: Running :READ-BACKQ-MISSING-EXPRESSION
::: Success :READ-BACKQ-MISSING-EXPRESSION
::: Running :READ-BACKQ-VECTOR-ILLEGAL
::: Success :READ-BACKQ-VECTOR-ILLEGAL
::: Running :BACKQ-VECTOR
::: Success :BACKQ-VECTOR
::: Running :BACKQ-STANDARD-LIST-CONSTRUCTORS
::: Success :BACKQ-STANDARD-LIST-CONSTRUCTORS
::: Running :BACKQUOTE-MORE-WEIRDNESS
::: Success :BACKQUOTE-MORE-WEIRDNESS
// Running /«PKGBUILDDIR»/tests/bivalent-stream.impure.lisp
// Running /«PKGBUILDDIR»/tests/break-on-signals.impure.lisp
// Running /«PKGBUILDDIR»/tests/call-into-lisp.impure.lisp
::: Running :UNPARSE-ALIEN-NILADIC-FUNCTION
::: Success :UNPARSE-ALIEN-NILADIC-FUNCTION
// Running /«PKGBUILDDIR»/tests/callback.impure.lisp
; in: LAMBDA (SB-ALIEN::ARGS-POINTER SB-ALIEN::RESULT-POINTER FUNCTION)
;     (FUNCALL FUNCTION #:G586 #:G587)
; --> SB-C::%FUNCALL #:G586 SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* DOUBLE-FLOAT)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-C::%FUNCALL #:G587 SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* DOUBLE-FLOAT)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; compilation unit finished
;   printed 2 notes
::: Running :VOID-RETURN
::: Success :VOID-RETURN
::: Running (:SHORT-RESULT :SIGN-EXTENSION)
::: Success (:SHORT-RESULT :SIGN-EXTENSION)
::: Running (:SHORT-RESULT :UNDERFLOW-DETECTION)
::: Success (:SHORT-RESULT :UNDERFLOW-DETECTION)
::: Running (:INT-RESULT :SIGN-EXTENSION)
::: Success (:INT-RESULT :SIGN-EXTENSION)
::: Running (:INT-RESULT :UNDERFLOW-DETECTION)
::: Success (:INT-RESULT :UNDERFLOW-DETECTION)
::: Running :LONG-LONG-CALLBACK-ARG
::: Success :LONG-LONG-CALLBACK-ARG
::: Running :UNSIGNED-LONG-LONG-CALLBACK-ARG
::: Success :UNSIGNED-LONG-LONG-CALLBACK-ARG
::: Running :DEFINE-2-INT-CALLBACK
::: Success :DEFINE-2-INT-CALLBACK
::: Running :CALL-2-INT-CALLBACK
::: Success :CALL-2-INT-CALLBACK
::: Running :DEFINE-3-INT-CALLBACK
::: Success :DEFINE-3-INT-CALLBACK
::: Running :CALL-3-INT-CALLBACK
::: Success :CALL-3-INT-CALLBACK
::: Running :DEFINE-4-INT-CALLBACK
::: Success :DEFINE-4-INT-CALLBACK
::: Running :CALL-4-INT-CALLBACK
::: Success :CALL-4-INT-CALLBACK
::: Running :DEFINE-5-INT-CALLBACK
::: Success :DEFINE-5-INT-CALLBACK
::: Running :CALL-5-INT-CALLBACK
::: Success :CALL-5-INT-CALLBACK
::: Running :DEFINE-6-INT-CALLBACK
::: Success :DEFINE-6-INT-CALLBACK
::: Running :CALL-6-INT-CALLBACK
::: Success :CALL-6-INT-CALLBACK
::: Running :DEFINE-7-INT-CALLBACK
::: Success :DEFINE-7-INT-CALLBACK
::: Running :CALL-7-INT-CALLBACK
::: Success :CALL-7-INT-CALLBACK
::: Running :DEFINE-8-INT-CALLBACK
::: Success :DEFINE-8-INT-CALLBACK
::: Running :CALL-8-INT-CALLBACK
::: Success :CALL-8-INT-CALLBACK
::: Running :DEFINE-9-INT-CALLBACK
::: Success :DEFINE-9-INT-CALLBACK
::: Running :CALL-9-INT-CALLBACK
::: Success :CALL-9-INT-CALLBACK
::: Running :DEFINE-10-INT-CALLBACK
::: Success :DEFINE-10-INT-CALLBACK
::: Running :CALL-10-INT-CALLBACK
::: Success :CALL-10-INT-CALLBACK
::: Running :DEFINE-11-INT-CALLBACK
::: Success :DEFINE-11-INT-CALLBACK
::: Running :CALL-11-INT-CALLBACK
::: Success :CALL-11-INT-CALLBACK
::: Running :DEFINE-12-INT-CALLBACK
::: Success :DEFINE-12-INT-CALLBACK
::: Running :CALL-12-INT-CALLBACK
::: Success :CALL-12-INT-CALLBACK
::: Running :DEFINE-2-FLOAT-CALLBACK
::: Success :DEFINE-2-FLOAT-CALLBACK
::: Running :CALL-2-FLOAT-CALLBACK
::: Success :CALL-2-FLOAT-CALLBACK
::: Running :DEFINE-3-FLOAT-CALLBACK
::: Success :DEFINE-3-FLOAT-CALLBACK
::: Running :CALL-3-FLOAT-CALLBACK
::: Success :CALL-3-FLOAT-CALLBACK
::: Running :DEFINE-4-FLOAT-CALLBACK
::: Success :DEFINE-4-FLOAT-CALLBACK
::: Running :CALL-4-FLOAT-CALLBACK
::: Success :CALL-4-FLOAT-CALLBACK
::: Running :DEFINE-5-FLOAT-CALLBACK
::: Success :DEFINE-5-FLOAT-CALLBACK
::: Running :CALL-5-FLOAT-CALLBACK
::: Success :CALL-5-FLOAT-CALLBACK
::: Running :DEFINE-6-FLOAT-CALLBACK
::: Success :DEFINE-6-FLOAT-CALLBACK
::: Running :CALL-6-FLOAT-CALLBACK
::: Success :CALL-6-FLOAT-CALLBACK
::: Running :DEFINE-7-FLOAT-CALLBACK
::: Success :DEFINE-7-FLOAT-CALLBACK
::: Running :CALL-7-FLOAT-CALLBACK
::: Success :CALL-7-FLOAT-CALLBACK
::: Running :DEFINE-8-FLOAT-CALLBACK
::: Success :DEFINE-8-FLOAT-CALLBACK
::: Running :CALL-8-FLOAT-CALLBACK
::: Success :CALL-8-FLOAT-CALLBACK
::: Running :DEFINE-9-FLOAT-CALLBACK
::: Success :DEFINE-9-FLOAT-CALLBACK
::: Running :CALL-9-FLOAT-CALLBACK
::: Success :CALL-9-FLOAT-CALLBACK
::: Running :DEFINE-10-FLOAT-CALLBACK
::: Success :DEFINE-10-FLOAT-CALLBACK
::: Running :CALL-10-FLOAT-CALLBACK
::: Success :CALL-10-FLOAT-CALLBACK
::: Running :DEFINE-11-FLOAT-CALLBACK
::: Success :DEFINE-11-FLOAT-CALLBACK
::: Running :CALL-11-FLOAT-CALLBACK
::: Success :CALL-11-FLOAT-CALLBACK
::: Running :DEFINE-12-FLOAT-CALLBACK
::: Success :DEFINE-12-FLOAT-CALLBACK
::: Running :CALL-12-FLOAT-CALLBACK
::: Success :CALL-12-FLOAT-CALLBACK
::: Running :DEFINE-2-DOUBLE-CALLBACK
::: Success :DEFINE-2-DOUBLE-CALLBACK
::: Running :CALL-2-DOUBLE-CALLBACK
::: Success :CALL-2-DOUBLE-CALLBACK
::: Running :DEFINE-3-DOUBLE-CALLBACK
::: Success :DEFINE-3-DOUBLE-CALLBACK
::: Running :CALL-3-DOUBLE-CALLBACK
::: Success :CALL-3-DOUBLE-CALLBACK
::: Running :DEFINE-4-DOUBLE-CALLBACK
::: Success :DEFINE-4-DOUBLE-CALLBACK
::: Running :CALL-4-DOUBLE-CALLBACK
::: Success :CALL-4-DOUBLE-CALLBACK
::: Running :DEFINE-5-DOUBLE-CALLBACK
::: Success :DEFINE-5-DOUBLE-CALLBACK
::: Running :CALL-5-DOUBLE-CALLBACK
::: Success :CALL-5-DOUBLE-CALLBACK
::: Running :DEFINE-6-DOUBLE-CALLBACK
::: Success :DEFINE-6-DOUBLE-CALLBACK
::: Running :CALL-6-DOUBLE-CALLBACK
::: Success :CALL-6-DOUBLE-CALLBACK
::: Running :DEFINE-7-DOUBLE-CALLBACK
::: Success :DEFINE-7-DOUBLE-CALLBACK
::: Running :CALL-7-DOUBLE-CALLBACK
::: Success :CALL-7-DOUBLE-CALLBACK
::: Running :DEFINE-8-DOUBLE-CALLBACK
::: Success :DEFINE-8-DOUBLE-CALLBACK
::: Running :CALL-8-DOUBLE-CALLBACK
::: Success :CALL-8-DOUBLE-CALLBACK
::: Running :DEFINE-9-DOUBLE-CALLBACK
::: Success :DEFINE-9-DOUBLE-CALLBACK
::: Running :CALL-9-DOUBLE-CALLBACK
::: Success :CALL-9-DOUBLE-CALLBACK
::: Running :DEFINE-10-DOUBLE-CALLBACK
::: Success :DEFINE-10-DOUBLE-CALLBACK
::: Running :CALL-10-DOUBLE-CALLBACK
::: Success :CALL-10-DOUBLE-CALLBACK
::: Running :DEFINE-11-DOUBLE-CALLBACK
::: Success :DEFINE-11-DOUBLE-CALLBACK
::: Running :CALL-11-DOUBLE-CALLBACK
::: Success :CALL-11-DOUBLE-CALLBACK
::: Running :DEFINE-12-DOUBLE-CALLBACK
::: Success :DEFINE-12-DOUBLE-CALLBACK
::: Running :CALL-12-DOUBLE-CALLBACK
::: Success :CALL-12-DOUBLE-CALLBACK
::: Running :DEFINE-INT-FLOAT-CALLBACK
::: Success :DEFINE-INT-FLOAT-CALLBACK
::: Running :CALL-INT-FLOAT-CALLBACK
::: Success :CALL-INT-FLOAT-CALLBACK
::: Running :DEFINE-FLOAT-INT-CALLBACK
::: Success :DEFINE-FLOAT-INT-CALLBACK
::: Running :CALL-FLOAT-INT-CALLBACK
::: Success :CALL-FLOAT-INT-CALLBACK
::: Running :DEFINE-INT-DOUBLE-CALLBACK
::: Success :DEFINE-INT-DOUBLE-CALLBACK
::: Running :CALL-INT-DOUBLE-CALLBACK
::: Success :CALL-INT-DOUBLE-CALLBACK
::: Running :DEFINE-DOUBLE-INT-CALLBACK
::: Success :DEFINE-DOUBLE-INT-CALLBACK
::: Running :CALL-DOUBLE-INT-CALLBACK
::: Success :CALL-DOUBLE-INT-CALLBACK
::: Running :DEFINE-DOUBLE-FLOAT-CALLBACK
::: Success :DEFINE-DOUBLE-FLOAT-CALLBACK
::: Running :CALL-DOUBLE-FLOAT-CALLBACK
::: Success :CALL-DOUBLE-FLOAT-CALLBACK
::: Running :DEFINE-FLOAT-DOUBLE-CALLBACK
::: Success :DEFINE-FLOAT-DOUBLE-CALLBACK
::: Running :CALL-DOUBLE-FLOAT-CALLBACK
::: Success :CALL-DOUBLE-FLOAT-CALLBACK
::: Running :DEFINE-DOUBLE-FLOAT-INT-CALLBACK
::: Success :DEFINE-DOUBLE-FLOAT-INT-CALLBACK
::: Running :CALL-DOUBLE-FLOAT-INT-CALLBACK
::: Success :CALL-DOUBLE-FLOAT-INT-CALLBACK
// Running /«PKGBUILDDIR»/tests/clos-1.impure.lisp
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::A-OF.
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::B-OF.
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::C-OF.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::NNM-TESTER.

; file: /«PKGBUILDDIR»/tests/clos-1.impure.lisp
; in: DEFMETHOD NO-NEXT-METHOD ((EQL #'NNM-TESTER) T)
;     (DEFMETHOD NO-NEXT-METHOD
;                ((GF (EQL (FUNCTION NNM-TESTER))) METHOD &REST ARGS)
;       (ASSERT (EQL METHOD *METHOD-WITH-NO-NEXT-METHOD*))
;       (INCF *NNM-COUNT*))
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD NO-NEXT-METHOD
;                           ((EQL #'NNM-TESTER) T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. GF METHOD &REST ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T METHOD))
;       (DECLARE (IGNORABLE METHOD GF))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((GF METHOD)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (GF METHOD) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (NO-NEXT-METHOD :UNKNOWN-SPECIALIZER)
::: Success (NO-NEXT-METHOD :UNKNOWN-SPECIALIZER)
::: Running (NO-NEXT-METHOD :GF-NAME-CHANGED)
::: Success (NO-NEXT-METHOD :GF-NAME-CHANGED)
::: Running :KEYWORDS-SUPPLIED-IN-METHODS-OK-1
::: Success :KEYWORDS-SUPPLIED-IN-METHODS-OK-1

; file: /«PKGBUILDDIR»/tests/clos-1.impure.lisp
; in: WITH-TEST (:NAME :KEYWORDS-SUPPLIED-IN-METHODS-OK-2)
;     #'FOO
; 
; caught STYLE-WARNING:
;   undefined function: FOO
; 
; compilation unit finished
;   Undefined function:
;     FOO
;   caught 1 STYLE-WARNING condition
::: Running :KEYWORDS-SUPPLIED-IN-METHODS-OK-2
; in: LAMBDA ()
;     (FOO (READ) :BAR 10)
; 
; caught STYLE-WARNING:
;   The function was called with three arguments, but wants exactly one.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :KEYWORDS-SUPPLIED-IN-METHODS-OK-2
::: Running :GF-REST-METHOD-KEY
::: Success :GF-REST-METHOD-KEY
::: Running :GF-ALLOW-OTHER-KEYS
::: Success :GF-ALLOW-OTHER-KEYS
::: Running :METHOD-ALLOW-OTHER-KEYS
::: Success :METHOD-ALLOW-OTHER-KEYS

; in: WITH-TEST (:NAME (DEFMETHOD SYMBOL-MACROLET))
;     (FOO T)
; 
; caught STYLE-WARNING:
;   undefined function: FOO
; 
; compilation unit finished
;   Undefined function:
;     FOO
;   caught 1 STYLE-WARNING condition
::: Running (DEFMETHOD SYMBOL-MACROLET)
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::FOO.
::: Success (DEFMETHOD SYMBOL-MACROLET)

; in: WITH-TEST (:NAME (DEFMETHOD DEFINE-SYMBOL-MACRO))
;     (FOO T)
; 
; caught STYLE-WARNING:
;   undefined function: FOO
; 
; compilation unit finished
;   Undefined function:
;     FOO
;   caught 1 STYLE-WARNING condition
::: Running (DEFMETHOD DEFINE-SYMBOL-MACRO)
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::FOO.
::: Success (DEFMETHOD DEFINE-SYMBOL-MACRO)
// Running /«PKGBUILDDIR»/tests/clos-add-remove-method.impure.lisp
// Running /«PKGBUILDDIR»/tests/clos-cache.impure.lisp
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> waiting for permission to run
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> joining the thundering herd
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> done
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> waiting for permission to run
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> joining the thundering herd
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> done
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> waiting for permission to run
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> joining the thundering herd
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> done
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> waiting for permission to run
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> joining the thundering herd
/#<SB-THREAD:THREAD "main thread" RUNNING {51B1F021}> done
// Running /«PKGBUILDDIR»/tests/clos-interrupts.impure.lisp
::: Running :COMPUTE-TEST
/interrupt-self
/interrupt-self
::: Success :COMPUTE-TEST
// Running /«PKGBUILDDIR»/tests/clos-typechecking.impure.lisp
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::SUCCEED/SV.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::FAIL/SV.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::SUCCEED/ACC.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::FAIL/ACC.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::SUCCEED/SV/GF.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::FAIL/SV/GF.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::SUCCEED/ACC/GF.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::FAIL/ACC/GF.
::: Running (:EVALUATOR)
::: Success (:EVALUATOR)
::: Running (:EVALUATOR/GF)
::: Success (:EVALUATOR/GF)
::: Running (:COMPILER)
; in: LAMBDA ()
;     (SB-PCL::WITH-TYPE-CHECKED (FIXNUM T)
;       'T)
; --> LOCALLY 
; ==>
;   (THE FIXNUM (PROGN 'T))
; 
; caught WARNING:
;   Constant T conflicts with its asserted type FIXNUM.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success (:COMPILER)
::: Running (:COMPILER :SETF :SLOT-VALUE)
::: Success (:COMPILER :SETF :SLOT-VALUE)
::: Running (:COMPILER/GF)
; in: LAMBDA ()
;     (SB-PCL::WITH-TYPE-CHECKED (FIXNUM T)
;       'T)
; --> LOCALLY 
; ==>
;   (THE FIXNUM (PROGN 'T))
; 
; caught WARNING:
;   Constant T conflicts with its asserted type FIXNUM.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success (:COMPILER/GF)
::: Running (:COMPILER/GF :SETF :SLOT-VALUE)
::: Success (:COMPILER/GF :SETF :SLOT-VALUE)

; file: /«PKGBUILDDIR»/tests/clos-typechecking.impure.lisp
; in: DEFMETHOD INHERITANCE-TEST (A)
;     (DEFMETHOD INHERITANCE-TEST ((A A)) (SETF (SLOT-VALUE A 'SLOT1) 1.0d0))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER INHERITANCE-TEST NIL ((A A))
;                                ((SETF (SLOT-VALUE A 'SLOT1) 1.0d0)))
; 
; caught STYLE-WARNING:
;   can't find type for specializer A in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; file: /«PKGBUILDDIR»/tests/clos-typechecking.impure.lisp
; in:
;      WITH-TEST (:NAME (:SLOT-INHERITANCE :SLOT-VALUE :FLOAT/SINGLE-FLOAT))
;     (INHERITANCE-TEST (MAKE-INSTANCE 'A))
; 
; caught STYLE-WARNING:
;   undefined function: INHERITANCE-TEST
; 
; compilation unit finished
;   Undefined function:
;     INHERITANCE-TEST
;   caught 2 STYLE-WARNING conditions
::: Running (:SLOT-INHERITANCE :SLOT-VALUE :FLOAT/SINGLE-FLOAT)
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::INHERITANCE-TEST.
::: Success (:SLOT-INHERITANCE :SLOT-VALUE :FLOAT/SINGLE-FLOAT)
::: Running (:SLOT-INHERITANCE :SLOT-VALUE :T/SINGLE-FLOAT)
::: Success (:SLOT-INHERITANCE :SLOT-VALUE :T/SINGLE-FLOAT)

; in: DEFMETHOD INHERITANCE-TEST (A)
;     (SETF (SLOT1-OF A) 1.0d0)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SLOT1-OF) #:NEW9 #:A8)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SLOT1-OF)
; 
; compilation unit finished
;   Undefined function:
;     (SETF SLOT1-OF)
;   caught 1 STYLE-WARNING condition
::: Running (:SLOT-INHERITANCE :WRITER :FLOAT/SINGLE-FLOAT)
::: Success (:SLOT-INHERITANCE :WRITER :FLOAT/SINGLE-FLOAT)
::: Running (:SLOT-INHERITANCE :WRITER :FLOAT/SINGLE-FLOAT)
::: Success (:SLOT-INHERITANCE :WRITER :FLOAT/SINGLE-FLOAT)
::: Running (:SLOT-INHERITANCE :TYPE-INTERSECTION)
; in: LAMBDA ()
;     (SB-PCL::WITH-TYPE-CHECKED ((UNSIGNED-BYTE 29) T)
;       '-1)
; --> LOCALLY 
; ==>
;   (THE (UNSIGNED-BYTE 29) (PROGN '-1))
; 
; caught WARNING:
;   Constant -1 conflicts with its asserted type (UNSIGNED-BYTE 29).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (SB-PCL::WITH-TYPE-CHECKED ((UNSIGNED-BYTE 29) T)
;       '536870912)
; --> LOCALLY 
; ==>
;   (THE (UNSIGNED-BYTE 29) (PROGN '536870912))
; 
; caught WARNING:
;   Constant 536870912 conflicts with its asserted type (UNSIGNED-BYTE 29).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success (:SLOT-INHERITANCE :TYPE-INTERSECTION)
::: Running (:TYPE :FUNCTION)
::: Success (:TYPE :FUNCTION)

; file: /«PKGBUILDDIR»/tests/clos-typechecking.impure.lisp
; in: DEFMETHOD SB-MOP:VALIDATE-SUPERCLASS (MY-ALT-METACLASS T)
;     (DEFMETHOD SB-MOP:VALIDATE-SUPERCLASS ((CLASS MY-ALT-METACLASS) SUPERCLASS) T)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER SB-MOP:VALIDATE-SUPERCLASS NIL
;                                ((CLASS MY-ALT-METACLASS) SUPERCLASS) (T))
; 
; caught STYLE-WARNING:
;   can't find type for specializer MY-ALT-METACLASS in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :ALTERNATE-METACLASS/STANDARD-INSTANCE-STRUCTURE-PROTOCOL
; in: LAMBDA ()
;     (SB-PCL::WITH-TYPE-CHECKED (FIXNUM T)
;       ':NOT-A-FIXNUM)
; --> LOCALLY 
; ==>
;   (THE FIXNUM (PROGN ':NOT-A-FIXNUM))
; 
; caught WARNING:
;   Constant :NOT-A-FIXNUM conflicts with its asserted type FIXNUM.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success :ALTERNATE-METACLASS/STANDARD-INSTANCE-STRUCTURE-PROTOCOL
::: Running :TYPECHECK-CLASS-ALLOCATION
::: Success :TYPECHECK-CLASS-ALLOCATION
// Running /«PKGBUILDDIR»/tests/clos.impure.lisp
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::WIGGLE.
::: Running (DEFMETHOD DEFSTRUCT :SAME-FILE)
::: Success (DEFMETHOD DEFSTRUCT :SAME-FILE)

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD NO-APPLICABLE-METHOD ((EQL #'ZUT-N-A-M))
;     (DEFMETHOD NO-APPLICABLE-METHOD
;                ((CLOS-IMPURE::ZUT-N-A-M (EQL (FUNCTION CLOS-IMPURE::ZUT-N-A-M)))
;                 &REST CLOS-IMPURE::ARGS)
;       :NO-APPLICABLE-METHOD)
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD
;                           ((EQL #'CLOS-IMPURE::ZUT-N-A-M)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::ZUT-N-A-M &REST
;          CLOS-IMPURE::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE CLOS-IMPURE::ZUT-N-A-M))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::ZUT-N-A-M)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::ZUT-N-A-M) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running NO-APPLICABLE-METHOD
::: Success NO-APPLICABLE-METHOD

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO0 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO0 ((CLOS-IMPURE::X T) &REST) NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO0 NIL ((CLOS-IMPURE::X T) &REST)
;                                (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO0 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    in a specialized-lambda-list, excactly one variable must follow &REST.
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC FOO1
;     (DEFGENERIC CLOS-IMPURE::FOO1
;         (CLOS-IMPURE::X &REST))
; 
; caught ERROR:
;   &REST expects a variable following it
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC FOO2
;     (DEFGENERIC CLOS-IMPURE::FOO2
;         (CLOS-IMPURE::X CLOS-IMPURE::A &REST))
; 
; caught ERROR:
;   &REST expects a variable following it
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO3 (T)
;     (DEFMETHOD CLOS-IMPURE::FOO3 ((CLOS-IMPURE::X T) &REST CLOS-IMPURE::Y) NIL)
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD CLOS-IMPURE::FOO3 (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::X &REST
;          CLOS-IMPURE::Y)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::X))
;       (DECLARE (IGNORABLE CLOS-IMPURE::X))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::X)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::X) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO4 (T)
;     (DEFMETHOD CLOS-IMPURE::FOO4
;                ((CLOS-IMPURE::X T) &REST CLOS-IMPURE::Z &KEY CLOS-IMPURE::Y)
;       NIL)
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD CLOS-IMPURE::FOO4 (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::X &REST
;          CLOS-IMPURE::Z &KEY CLOS-IMPURE::Y &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::X))
;       (DECLARE (IGNORABLE CLOS-IMPURE::X))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::X)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::X) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Z is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::FOO4.
STYLE-WARNING: redefining CLOS-IMPURE::FOO4 in DEFGENERIC

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC FOO5
;     (DEFGENERIC CLOS-IMPURE::FOO5
;         (CLOS-IMPURE::X &REST))
; 
; caught ERROR:
;   &REST expects a variable following it
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO6 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO6 (CLOS-IMPURE::X &REST))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO6 NIL (CLOS-IMPURE::X &REST) NIL)
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO6 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    in a specialized-lambda-list, excactly one variable must follow &REST.
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD INVALID "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::INVALID ((CLOS-IMPURE::ARG)) CLOS-IMPURE::ARG)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::INVALID NIL ((CLOS-IMPURE::ARG))
;                                (CLOS-IMPURE::ARG))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER INVALID NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    arg is not a non-NIL symbol or a list of two elements: (ARG)
;   See also:
;     The ANSI Standard, Section 3.4.3

;     (DEFMETHOD CLOS-IMPURE::INVALID (()) 1)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::INVALID NIL (NIL) (1))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER INVALID NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    arg is not a non-NIL symbol or a list of two elements: NIL
;   See also:
;     The ANSI Standard, Section 3.4.3

;     (DEFMETHOD CLOS-IMPURE::INVALID
;                ((CLOS-IMPURE::ARG . CLOS-IMPURE::BUG-525916-1))
;       CLOS-IMPURE::ARG)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::INVALID NIL
;                                ((CLOS-IMPURE::ARG . CLOS-IMPURE::BUG-525916-1))
;                                (CLOS-IMPURE::ARG))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER INVALID NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    arg is not a non-NIL symbol or a list of two elements: (ARG . BUG-525916-1)
;   See also:
;     The ANSI Standard, Section 3.4.3

;     (DEFMETHOD CLOS-IMPURE::INVALID
;                ((CLOS-IMPURE::ARG CLOS-IMPURE::BUG-525916-1
;                  CLOS-IMPURE::BUG-525916-2))
;       CLOS-IMPURE::ARG)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::INVALID NIL
;                                ((CLOS-IMPURE::ARG CLOS-IMPURE::BUG-525916-1
;                                  CLOS-IMPURE::BUG-525916-2))
;                                (CLOS-IMPURE::ARG))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER INVALID NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    arg is not a non-NIL symbol or a list of two elements: (ARG BUG-525916-1
;                                                            BUG-525916-2)
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 4 ERROR conditions
::: Running (DEFMETHOD :SPECIALIZER-SYNTAX :BUG-525916)
::: Success (DEFMETHOD :SPECIALIZER-SYNTAX :BUG-525916)
::: Running (DEFGENERIC :LAMBDA-LIST)
trying ("a" #P"b")
trying NIL
trying (X)
trying (X &OPTIONAL (Y 0))
trying (X &OPTIONAL Y)
trying (X Y &KEY (Z :Z Z-P))
trying (X Y &KEY Z)
trying (X &OPTIONAL (Y 0) &KEY Z)
trying (X &OPTIONAL Y &KEY Z)
trying (X &OPTIONAL Y &KEY (Z :Z))
trying (X &OPTIONAL Y &KEY Z)
trying (&OPTIONAL &KEY (K :K K-P))
trying (&OPTIONAL &KEY K)
trying (X Y Z &OPTIONAL A &AUX G H)
trying (X Y Z &OPTIONAL A)
trying (X &AUX)
trying (X)
trying ((ARG T))
trying (ARG)
::: Success (DEFGENERIC :LAMBDA-LIST)
::: Running (DEFCLASS :METACLASS STRUCTURE-CLASS)
::: Success (DEFCLASS :METACLASS STRUCTURE-CLASS)
::: Running (DEFCLASS :METACLASS STANDARD-CLASS)
::: Success (DEFCLASS :METACLASS STANDARD-CLASS)
::: Running (CHANGE-CLASS :SMOKE)
::: Success (CHANGE-CLASS :SMOKE)
::: Running (CHANGE-CLASS :TYPE-CHECK)
::: Success (CHANGE-CLASS :TYPE-CHECK)
::: Running (CHANGE-CLASS :INITFORMS)
::: Success (CHANGE-CLASS :INITFORMS)
::: Running (CHANGE-CLASS SB-MOP:FORWARD-REFERENCED-CLASS)
::: Success (CHANGE-CLASS SB-MOP:FORWARD-REFERENCED-CLASS)
::: Running (CHANGE-CLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS)
::: Success (CHANGE-CLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS)

#S(TEST-PRINTING-STRUCTURE-CLASS :SLOT 2) 
exploring the CLOS dispatch zoo with COD fins
about to set #<COD {5392DD51}> fin to ALMOST-TRIANG-FIN
done setting #<COD {5392DD51}> fin to ALMOST-TRIANG-FIN

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFINE-METHOD-COMBINATION TEST-MC
;     (DEFINE-METHOD-COMBINATION CLOS-IMPURE::TEST-MC (CLOS-IMPURE::X)
;                                ((CLOS-IMPURE::PRIMARY NIL :REQUIRED T))
;                                `(CALL-METHOD ,(FIRST CLOS-IMPURE::PRIMARY)))
; --> PROGN FUNCTION BLOCK APPLY MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (CLOS-IMPURE::X)
;       (LET (CLOS-IMPURE::PRIMARY #:G744)
;         (DOLIST (SB-PCL::.METHOD. SB-PCL::.APPLICABLE-METHODS.)
;           (LET (# #)
;             (DECLARE #)
;             (COND # #)))
;         (WHEN (NULL CLOS-IMPURE::PRIMARY)
;           (RETURN-FROM SB-PCL::.LONG-METHOD-COMBINATION-FUNCTION.
;             '(ERROR 'SB-PCL::LONG-METHOD-COMBINATION-ERROR :FORMAT-CONTROL
;                     "No ~S methods." :FORMAT-ARGUMENTS #)))
;         (SETQ CLOS-IMPURE::PRIMARY (NREVERSE CLOS-IMPURE::PRIMARY))
;         `(CALL-METHOD ,(FIRST CLOS-IMPURE::PRIMARY))))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO001
;     (DEFCLASS CLOS-IMPURE::FOO001 NIL
;               (CLOS-IMPURE::A CLOS-IMPURE::B CLOS-IMPURE::A))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO001 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Multiple slots named A in DEFCLASS FOO001.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO002
;     (DEFCLASS CLOS-IMPURE::FOO002 NIL (CLOS-IMPURE::A CLOS-IMPURE::B)
;               (:DEFAULT-INITARGS CLOS-IMPURE::X 'CLOS-IMPURE::A CLOS-IMPURE::X
;                'CLOS-IMPURE::B))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO002 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Duplicate initialization argument name X in :DEFAULT-INITARGS of DEFCLASS FOO002.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO003
;     (DEFCLASS CLOS-IMPURE::FOO003 NIL
;               ((CLOS-IMPURE::A :ALLOCATION :CLASS :ALLOCATION :CLASS)))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO003 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Duplicate slot option :ALLOCATION for slot A in DEFCLASS FOO003.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in:
;      MACROLET ((ASSERT-PROGRAM-ERROR (FORM)
;             `(MULTIPLE-VALUE-BIND (VALUE ERROR)
;                  (IGNORE-ERRORS ,FORM)
;                (UNLESS (AND # #)
;                  (ERROR "~S failed: ~S, ~S" ',FORM VALUE ERROR)))))
;     (CLOS-IMPURE::ODD-KEY-ARGS-CHECKING 3)
; 
; caught STYLE-WARNING:
;   undefined function: ODD-KEY-ARGS-CHECKING
; 
; compilation unit finished
;   Undefined function:
;     ODD-KEY-ARGS-CHECKING
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   Implicitly creating new generic function CLOS-IMPURE::ODD-KEY-ARGS-CHECKING.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO005
;     (DEFCLASS CLOS-IMPURE::FOO005 NIL
;               (:METACLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS) (:METACLASS 1))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO005 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    The value of the :metaclass option (1) is not a legal class name.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO006
;     (DEFCLASS CLOS-IMPURE::FOO006 NIL
;               ((CLOS-IMPURE::A :READER (SETF CLOS-IMPURE::A))))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO006 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Slot reader name (SETF A) for slot A in DEFCLASS FOO006 is not a symbol.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO007
;     (DEFCLASS CLOS-IMPURE::FOO007 NIL ((CLOS-IMPURE::A :INITARG 1)))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO007 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Slot initarg name 1 for slot A in DEFCLASS FOO007 is not a symbol.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO008
;     (DEFCLASS CLOS-IMPURE::FOO008 NIL (CLOS-IMPURE::A :INITARG :A)
;               (:DEFAULT-INITARGS :A 1) (:DEFAULT-INITARGS :A 2))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO008 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    Multiple :DEFAULT-INITARGS options in DEFCLASS FOO008.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO009
;     (DEFCLASS CLOS-IMPURE::FOO009 NIL ((:A :INITARG :A)))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO009 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    In DEFCLASS FOO009, the slot name :A is a keyword.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO010
;     (DEFCLASS CLOS-IMPURE::FOO010 NIL (("a" :INITARG :A)))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO010 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    In DEFCLASS FOO010, the slot name "a" is not a symbol.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO011
;     (DEFCLASS CLOS-IMPURE::FOO011 NIL ((#() :INITARG :A)))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO011 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    In DEFCLASS FOO011, the slot name #() is not a symbol.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO012
;     (DEFCLASS CLOS-IMPURE::FOO012 NIL ((T :INITARG :T)))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO012 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    In DEFCLASS FOO012, the slot name T is a constant.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFCLASS FOO013
;     (DEFCLASS CLOS-IMPURE::FOO013 NIL ("a"))
; 
; caught ERROR:
;   during macroexpansion of (DEFCLASS FOO013 NIL ...). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    In DEFCLASS FOO013, the slot name "a" is not a symbol.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO014 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO014 ((CLOS-IMPURE::FOO T) &REST) NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO014 NIL
;                                ((CLOS-IMPURE::FOO T) &REST) (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO014 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    in a specialized-lambda-list, excactly one variable must follow &REST.
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO015 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO015
;                ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X CLOS-IMPURE::Y)
;       NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO015 NIL
;                                ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X
;                                 CLOS-IMPURE::Y)
;                                (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO015 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    in a specialized-lambda-list, excactly one variable must follow &REST.
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO016 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO016 ((CLOS-IMPURE::FOO T) &ALLOW-OTHER-KEYS) NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO016 NIL
;                                ((CLOS-IMPURE::FOO T) &ALLOW-OTHER-KEYS) (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO016 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    misplaced specialized-lambda-list keyword &ALLOW-OTHER-KEYS
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO017 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO017
;                ((CLOS-IMPURE::FOO T)
;                 &OPTIONAL CLOS-IMPURE::X
;                 &OPTIONAL CLOS-IMPURE::Y)
;       NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO017 NIL
;                                ((CLOS-IMPURE::FOO T) &OPTIONAL CLOS-IMPURE::X
;                                 &OPTIONAL CLOS-IMPURE::Y)
;                                (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO017 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    multiple occurrence of specialized-lambda-list keyword &OPTIONAL
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO018 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO018
;                ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X &REST CLOS-IMPURE::Y)
;       NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO018 NIL
;                                ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X &REST
;                                 CLOS-IMPURE::Y)
;                                (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO018 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    multiple occurrence of specialized-lambda-list keyword &REST
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO019 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO019
;                ((CLOS-IMPURE::FOO T)
;                 &REST CLOS-IMPURE::X
;                 &OPTIONAL CLOS-IMPURE::Y)
;       NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO019 NIL
;                                ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X
;                                 &OPTIONAL CLOS-IMPURE::Y)
;                                (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO019 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    misplaced specialized-lambda-list keyword &OPTIONAL
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO020 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO020
;                ((CLOS-IMPURE::FOO T)
;                 &KEY CLOS-IMPURE::X
;                 &OPTIONAL CLOS-IMPURE::Y)
;       NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO020 NIL
;                                ((CLOS-IMPURE::FOO T) &KEY CLOS-IMPURE::X
;                                 &OPTIONAL CLOS-IMPURE::Y)
;                                (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO020 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    misplaced specialized-lambda-list keyword &OPTIONAL
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD FOO021 "<illegal syntax>"
;     (DEFMETHOD CLOS-IMPURE::FOO021
;                ((CLOS-IMPURE::FOO T) &KEY CLOS-IMPURE::X &REST CLOS-IMPURE::Y)
;       NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::FOO021 NIL
;                                ((CLOS-IMPURE::FOO T) &KEY CLOS-IMPURE::X &REST
;                                 CLOS-IMPURE::Y)
;                                (NIL))
; 
; caught ERROR:
;   during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER FOO021 NIL ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    misplaced specialized-lambda-list keyword &REST
;   
;   See also:
;     The ANSI Standard, Section 3.4.3
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Running :DOCUMENTATION-ARGUMENT-PRECEDENCE-ORDER
::: Success :DOCUMENTATION-ARGUMENT-PRECEDENCE-ORDER

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC BOGUS-DECLARATION
;     (DEFGENERIC CLOS-IMPURE::BOGUS-DECLARATION
;         (CLOS-IMPURE::X)
;       (DECLARE (SPECIAL CLOS-IMPURE::Y)))
; 
; caught ERROR:
;   during macroexpansion of
;   (DEFGENERIC BOGUS-DECLARATION
;       (X)
;     ...).
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    The declaration specifier (SPECIAL Y) is not allowed inside DEFGENERIC.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC BOGUS-DECLARATION2
;     (DEFGENERIC CLOS-IMPURE::BOGUS-DECLARATION2
;         (CLOS-IMPURE::X)
;       (DECLARE (NOTINLINE CONCATENATE)))
; 
; caught ERROR:
;   during macroexpansion of
;   (DEFGENERIC BOGUS-DECLARATION2
;       (X)
;     ...).
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    The declaration specifier (NOTINLINE
;                               CONCATENATE) is not allowed inside DEFGENERIC.
; 
; compilation unit finished
;   caught 1 ERROR condition
STYLE-WARNING:
   Implicitly creating new generic function CLOS-IMPURE::NO-NEXT-METHOD-TEST.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD NO-NEXT-METHOD ((EQL #'NO-NEXT-METHOD-TEST) T)
;     (DEFMETHOD NO-NEXT-METHOD
;                ((CLOS-IMPURE::G
;                  (EQL (FUNCTION CLOS-IMPURE::NO-NEXT-METHOD-TEST)))
;                 CLOS-IMPURE::M
;                 &REST CLOS-IMPURE::ARGS)
;       'CLOS-IMPURE::SUCCESS)
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD NO-NEXT-METHOD
;                           ((EQL #'CLOS-IMPURE::NO-NEXT-METHOD-TEST) T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::G CLOS-IMPURE::M
;          &REST CLOS-IMPURE::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::M))
;       (DECLARE (IGNORABLE CLOS-IMPURE::M CLOS-IMPURE::G))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::G CLOS-IMPURE::M)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::G CLOS-IMPURE::M)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (#:G954)
;     #'(SB-INT:NAMED-LAMBDA (SB-PCL::EMF CLOS-IMPURE::WAM-TEST-MC-B)
;           (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.)
;         (DECLARE (IGNORE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.))
;         (ERROR 'SB-PCL::LONG-METHOD-COMBINATION-ERROR :FORMAT-CONTROL #:G954
;                :FORMAT-ARGUMENTS (LIST 'CLOS-IMPURE::PRIMARY)))
; 
; caught STYLE-WARNING:
;   The variable SB-PCL::.ARG0. is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (#:G978)
;     #'(SB-INT:NAMED-LAMBDA (SB-PCL::EMF CLOS-IMPURE::WAM-TEST-MC-C)
;           (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.)
;         (DECLARE (IGNORE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.))
;         (ERROR 'SB-PCL::LONG-METHOD-COMBINATION-ERROR :FORMAT-CONTROL #:G978
;                :FORMAT-ARGUMENTS (LIST 'CLOS-IMPURE::METHODS)))
; 
; caught STYLE-WARNING:
;   The variable SB-PCL::.ARG0. is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   Implicitly creating new generic function CLOS-IMPURE::INCOMPATIBLE-LL-TEST-1.
STYLE-WARNING:
   Implicitly creating new generic function CLOS-IMPURE::INCOMPATIBLE-LL-TEST-2.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: ASSERT-ERROR (INCOMPATIBLE-LL-TEST-2 T 1 2)
;     (CLOS-IMPURE::INCOMPATIBLE-LL-TEST-2 T 1 2)
; 
; caught STYLE-WARNING:
;   1 is not a known argument keyword.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   Implicitly creating new generic function CLOS-IMPURE::INCOMPATIBLE-LL-TEST-3.
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::CALL-NEXT-METHOD-LEXICAL-ARGS.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD CALL-NEXT-METHOD-LEXICAL-ARGS :AROUND (INTEGER)
;     (LET ((CLOS-IMPURE::X (1+ CLOS-IMPURE::X)))
;       (CALL-NEXT-METHOD))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::BUG222.


; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;     (SETQ CLOS-IMPURE::BUG222-B 3)
; 
; caught WARNING:
;   undefined variable: BUG222-B
; 
; compilation unit finished
;   Undefined variable:
;     BUG222-B
;   caught 1 WARNING condition

; in: LAMBDA (#:WHOLE4 #:ENVIRONMENT5)
;     `(PROGN ,CLOS-IMPURE::FORM ,CLOS-IMPURE::BUG222-B)
; ==>
;   (SB-IMPL::|List| 'PROGN CLOS-IMPURE::FORM CLOS-IMPURE::BUG222-B)
; 
; caught WARNING:
;   undefined variable: BUG222-B


; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD BUG222-B (T T)
;     `(PROGN ,CLOS-IMPURE::FORM ,CLOS-IMPURE::BUG222-B)
; ==>
;   (SB-IMPL::|List| 'PROGN CLOS-IMPURE::FORM CLOS-IMPURE::BUG222-B)
; 
; caught WARNING:
;   undefined variable: BUG222-B
; 
; compilation unit finished
;   Undefined variable:
;     BUG222-B
;   caught 2 WARNING conditions
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::BUG222-B.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD SHARED-INITIALIZE :AFTER (CLASS234 T)
;     (DEFMETHOD SHARED-INITIALIZE :AFTER
;                ((CLOS-IMPURE::I CLOS-IMPURE::CLASS234) CLOS-IMPURE::SLOTS
;                 &KEY CLOS-IMPURE::DUMMY)
;       (INCF CLOS-IMPURE::*BUG234*))
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER
;                           (CLOS-IMPURE::CLASS234 T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::I
;          CLOS-IMPURE::SLOTS &KEY CLOS-IMPURE::DUMMY &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::SLOTS))
;       (DECLARE (IGNORABLE CLOS-IMPURE::SLOTS CLOS-IMPURE::I))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::I
;                                                  CLOS-IMPURE::SLOTS)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::I
;                                                  CLOS-IMPURE::SLOTS)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS CLOS-IMPURE::I CLOS-IMPURE::CLASS234))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable DUMMY is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD SLOT-MISSING (T CLASS-WITH-ALL-SLOTS-MISSING T T)
;     (DEFMETHOD SLOT-MISSING
;                (CLASS (CLOS-IMPURE::O CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING)
;                 CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP
;                 &OPTIONAL CLOS-IMPURE::NEW-VALUE)
;       CLOS-IMPURE::OP)
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD SLOT-MISSING
;                           (T CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLASS CLOS-IMPURE::O
;          CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP &OPTIONAL
;          CLOS-IMPURE::NEW-VALUE)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::OP))
;       (DECLARE (TYPE T CLOS-IMPURE::SLOT-NAME))
;       (DECLARE (TYPE T CLASS))
;       (DECLARE
;        (IGNORABLE CLOS-IMPURE::OP CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::O CLASS))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLASS CLOS-IMPURE::O
;                                                  CLOS-IMPURE::SLOT-NAME
;                                                  CLOS-IMPURE::OP)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLASS CLOS-IMPURE::O
;                                                  CLOS-IMPURE::SLOT-NAME
;                                                  CLOS-IMPURE::OP)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE
;            (SB-PCL::%CLASS CLOS-IMPURE::O
;             CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable NEW-VALUE is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::SOMETHING-THAT-SPECIALIZES.
STYLE-WARNING:
   slot names with the same SYMBOL-NAME but different SYMBOL-PACKAGE (possible
   package problem) for class #<STANDARD-CLASS ODD-NAME-CLASS>:
       (CLOS-IMPURE::NAME COMMON-LISP-USER::NAME)
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::WIDTH.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD SHARED-INITIALIZE :AFTER (YET-ANOTHER-OBSOLETION-SUPER T)
;     (DEFMETHOD SHARED-INITIALIZE :AFTER
;                ((CLOS-IMPURE::I CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER)
;                 CLOS-IMPURE::SLOTS
;                 &REST CLOS-IMPURE::INIT)
;       (INCF (CLOS-IMPURE::OBS-OF CLOS-IMPURE::I)))
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER
;                           (CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::I
;          CLOS-IMPURE::SLOTS &REST CLOS-IMPURE::INIT)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::SLOTS))
;       (DECLARE (IGNORABLE CLOS-IMPURE::SLOTS CLOS-IMPURE::I))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::I
;                                                  CLOS-IMPURE::SLOTS)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::I
;                                                  CLOS-IMPURE::SLOTS)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE
;            (SB-PCL::%CLASS CLOS-IMPURE::I
;             CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INIT is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
1 
::: Running (DEFCLASS :REDEFINITION-CLASS->INSTANCE-ALLOCATION)
::: Success (DEFCLASS :REDEFINITION-CLASS->INSTANCE-ALLOCATION)
::: Running (MAKE-INSTANCES-OBSOLETE :RETURN-VALUES)
::: Success (MAKE-INSTANCES-OBSOLETE :RETURN-VALUES)
::: Running (DEFCLASS :SLOT-WITH-DUPLICATE-ACCESSORS)
::: Success (DEFCLASS :SLOT-WITH-DUPLICATE-ACCESSORS)
; in:
;      LAMBDA (SB-PCL::EFFECTIVE-METHOD-GENSYM-0 SB-PCL::EFFECTIVE-METHOD-GENSYM-1)
;     (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE1245))
;            (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE1245)))
;            (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE1245)))
;            (CLOS-IMPURE::EXTRA :EXTRA))
;       (DECLARE (IGNORE SB-PCL::.IGNORE.))
;       NIL
;       (PROGN
;        (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST
;         SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS
;         (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG
;         NIL)
;        (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST
;         SB-PCL::EFFECTIVE-METHOD-GENSYM-1 NIL :REQUIRED-ARGS
;         (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG
;         NIL)))
; 
; caught STYLE-WARNING:
;   The variable ARG1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARG2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EXTRA is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; in:
;      LAMBDA (SB-PCL::EFFECTIVE-METHOD-GENSYM-0 SB-PCL::EFFECTIVE-METHOD-GENSYM-1)
;     (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE1263))
;            (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE1263)))
;            (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE1263)))
;            (CLOS-IMPURE::EXTRA :EXTRA))
;       (DECLARE (IGNORE SB-PCL::.IGNORE.))
;       NIL
;       (PROGN
;        (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST
;         SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS
;         (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG
;         NIL)
;        (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST
;         SB-PCL::EFFECTIVE-METHOD-GENSYM-1 NIL :REQUIRED-ARGS
;         (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG
;         NIL)))
; 
; caught STYLE-WARNING:
;   The variable ARG1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARG2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EXTRA is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; in:
;      LAMBDA (SB-PCL::EFFECTIVE-METHOD-GENSYM-0 SB-PCL::EFFECTIVE-METHOD-GENSYM-1)
;     (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE1289))
;            (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE1289)))
;            (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE1289)))
;            (CLOS-IMPURE::EXTRA :EXTRA))
;       (DECLARE (IGNORE SB-PCL::.IGNORE.))
;       NIL
;       (PROGN
;        (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST
;         SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS
;         (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG
;         NIL)
;        (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST
;         SB-PCL::EFFECTIVE-METHOD-GENSYM-1 NIL :REQUIRED-ARGS
;         (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG
;         NIL)))
; 
; caught STYLE-WARNING:
;   The variable ARG1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARG2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EXTRA is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
; in: LAMBDA (SB-PCL::EFFECTIVE-METHOD-GENSYM-0)
;     (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE1307))
;            (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE1307)))
;            (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE1307)))
;            (CLOS-IMPURE::EXTRA :EXTRA))
;       (DECLARE (IGNORE SB-PCL::.IGNORE.))
;       NIL
;       (PROGN
;        (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST
;         SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS
;         (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG
;         NIL)))
; 
; caught STYLE-WARNING:
;   The variable ARG1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARG2 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EXTRA is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::FEE.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::FUM.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::FII.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::FAA.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::FEX.
; in: LAMBDA ()
;     (FLET ((CLOS-IMPURE::NONSENSE ()
;              NIL))
;       (DEFGENERIC CLOS-IMPURE::NONSENSE
;           NIL))
; 
; note: deleting unused function
;   (FLET NONSENSE :IN "/«PKGBUILDDIR»/tests/clos.impure.lisp")
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (FLET ((CLOS-IMPURE::NONSENSE-2 ()
;              NIL))
;       (DEFGENERIC CLOS-IMPURE::NONSENSE-2
;           NIL
;         (:METHOD NIL T)))
; 
; note: deleting unused function
;   (FLET NONSENSE-2 :IN "/«PKGBUILDDIR»/tests/clos.impure.lisp")
; 
; compilation unit finished
;   printed 1 note
::: Running (:DEFMETHOD (SETF FIND-CLASS) INTEGER)
WARNING:
   redefining DEFTYPE type to be a class: CLOS-IMPURE::DEFINED-TYPE-AND-CLASS
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::METHOD-ON-DEFINED-TYPE-AND-CLASS.
::: Success (:DEFMETHOD (SETF FIND-CLASS) INTEGER)

; in: LET ()
;     (CLOS-IMPURE::BUG-281 1)
; 
; caught STYLE-WARNING:
;   undefined function: BUG-281
; 
; compilation unit finished
;   Undefined function:
;     BUG-281
;   caught 1 STYLE-WARNING condition
WARNING:
   Invalid qualifiers for + method combination in method
   #<STANDARD-METHOD BUG-281 (SYMBOL) {52601941}>:
     NIL.
::: Running (:CTOR :UNNAMED-BEFORE)
::: Success (:CTOR :UNNAMED-BEFORE)
::: Running (:CTOR :UNNAMED-AFTER)
::: Success (:CTOR :UNNAMED-AFTER)
::: Running (:CTOR :UNNAMED-AFTER/SYMBOL)
::: Success (:CTOR :UNNAMED-AFTER/SYMBOL)
::: Running (:CTOR :NON-KEYWORD-INITARG)
::: Success (:CTOR :NON-KEYWORD-INITARG)
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::CLASS-AS-SPECIALIZER-TEST1.
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::CLASS-AS-SPECIALIZER-TEST2.
WARNING:
   Specializing on the second argument to PRINT-OBJECT has unportable effects,
   and also interferes with precomputation of print functions for exceptional
   situations.
See also:
  The ANSI Standard, Function PRINT-OBJECT

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC TEST-MC27
;     (/ 0)
; ==>
;   (/ 1 (THE NUMBER 0))
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was /, operands (1 0).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (#:G1657 #:G1658)
;     #'(SB-INT:NAMED-LAMBDA (SB-PCL::EMF CLOS-IMPURE::TEST-MC27)
;           (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.)
;         (DECLARE (IGNORE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.))
;         (INVALID-METHOD-ERROR #:G1657 #:G1658))
; 
; caught STYLE-WARNING:
;   The variable SB-PCL::.ARG0. is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC TEST-MC27PRIME
;     (/ 0)
; ==>
;   (/ 1 (THE NUMBER 0))
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was /, operands (1 0).
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     #'(SB-INT:NAMED-LAMBDA (SB-PCL::EMF CLOS-IMPURE::TEST-MC27PRIME)
;           (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.)
;         (DECLARE (IGNORE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.))
;         (LIST 'CLOS-IMPURE::RESULT))
; 
; caught STYLE-WARNING:
;   The variable SB-PCL::.ARG0. is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LENGTHOID.
::: Running ((:SETQ :METHOD-PARAMETER) SLOT-VALUE)
::: Success ((:SETQ :METHOD-PARAMETER) SLOT-VALUE)
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD CLIM-STYLE-LAMBDA-LIST-TEST (T T)
;     (DEFMETHOD CLOS-IMPURE::CLIM-STYLE-LAMBDA-LIST-TEST
;                (CLOS-IMPURE::A CLOS-IMPURE::B
;                 &OPTIONAL CLOS-IMPURE::C CLOS-IMPURE::D
;                 &KEY CLOS-IMPURE::X CLOS-IMPURE::Y)
;       (LIST CLOS-IMPURE::A CLOS-IMPURE::B CLOS-IMPURE::C CLOS-IMPURE::D
;             CLOS-IMPURE::X CLOS-IMPURE::Y))
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           CLOS-IMPURE::CLIM-STYLE-LAMBDA-LIST-TEST (T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::A CLOS-IMPURE::B
;          &OPTIONAL CLOS-IMPURE::C CLOS-IMPURE::D &KEY CLOS-IMPURE::X
;          CLOS-IMPURE::Y &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::B))
;       (DECLARE (TYPE T CLOS-IMPURE::A))
;       (DECLARE (IGNORABLE CLOS-IMPURE::B CLOS-IMPURE::A))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::A CLOS-IMPURE::B)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::A CLOS-IMPURE::B)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (SB-PCL::.PV.
;                                                      SB-PCL::.NEXT-METHOD-CALL. A
;                                                      B &OPTIONAL C D &KEY X Y
;                                                      &ALLOW-OTHER-KEYS)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (SB-PCL::.PV.
;                                                      SB-PCL::.NEXT-METHOD-CALL. A
;                                                      B &OPTIONAL C D &KEY X Y
;                                                      &ALLOW-OTHER-KEYS)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::CLIM-STYLE-LAMBDA-LIST-TEST.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LL-METHOD.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD TEST-LONG-FORM-WITH-&REST (T)
;     (DEFMETHOD CLOS-IMPURE::TEST-LONG-FORM-WITH-&REST
;                (CLOS-IMPURE::X &REST CLOS-IMPURE::OTHERS)
;       NIL)
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           CLOS-IMPURE::TEST-LONG-FORM-WITH-&REST (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::X &REST
;          CLOS-IMPURE::OTHERS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::X))
;       (DECLARE (IGNORABLE CLOS-IMPURE::X))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::X)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::X) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable OTHERS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (DEFINE-METHOD-COMBINATION :LONG-FORM-WITH-&REST)
::: Success (DEFINE-METHOD-COMBINATION :LONG-FORM-WITH-&REST)
::: Running (SLOT-MISSING :NON-STANDARD-CLASSES)
::: Success (SLOT-MISSING :NON-STANDARD-CLASSES)
::: Running (SB-KERNEL:LAYOUT-FOR-STD-CLASS-P :BUILTIN)
::: Success (SB-KERNEL:LAYOUT-FOR-STD-CLASS-P :BUILTIN)
::: Running (DEFMETHOD :NON-STANDARD-DECLARATION :BUG-402)
::: Success (DEFMETHOD :NON-STANDARD-DECLARATION :BUG-402)
::: Running (MAKE-INSTANCE :NON-KEYWORD-DEFAULT-INITARGS SHARED-INITIALIZE
                           :BEFORE)
Rock on: (SLOTTO 123)
::: Success (MAKE-INSTANCE :NON-KEYWORD-DEFAULT-INITARGS SHARED-INITIALIZE
                           :BEFORE)

; in: WITH-TEST (:NAME (:DISCRIMINATING-NAME :CODE-DELETION-NOTE))
;     (HANDLER-BIND ((CLOS-IMPURE::COMPILER-NOTE #'ERROR))
;       (CLOS-IMPURE::STREAM-FD SB-SYS:*STDIN* :OUTPUT)
;       (CLOS-IMPURE::STREAM-FD SB-SYS:*STDIN* :OUTPUT))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK 
; ==>
;   (TYPEP CONDITION 'CLOS-IMPURE::COMPILER-NOTE)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; compilation unit finished
;   Undefined type:
;     COMPILER-NOTE
;   caught 1 STYLE-WARNING condition
::: Running (:DISCRIMINATING-NAME :CODE-DELETION-NOTE)
::: Success (:DISCRIMINATING-NAME :CODE-DELETION-NOTE)
::: Running :BUG-380
::: Success :BUG-380
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::FIHFAH.
::: Running :SET-OF-A-METHOD-SPECIALIZER
::: Success :SET-OF-A-METHOD-SPECIALIZER
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::NO-IMPLICIT-DECLARATIONS-FOR-LOCAL-SPECIALS.
::: Running :NO-IMPLICIT-DECLARATIONS-FOR-LOCAL-SPECIALS
::: Success :NO-IMPLICIT-DECLARATIONS-FOR-LOCAL-SPECIALS
::: Running :BUG-357
::: Success :BUG-357
::: Running :CLASS-SLOT-SHARED-INITIALIZE
::: Success :CLASS-SLOT-SHARED-INITIALIZE
STYLE-WARNING:
   Generic function I-DONT-WANT-TO-BE-CLOBBERED-1 clobbers an earlier FTYPE
   proclamation (FUNCTION (T T T) (VALUES SINGLE-FLOAT &OPTIONAL)) for the same
   name with (FUNCTION (T T T) *).
STYLE-WARNING:
   Implicitly creating new generic function
   CLOS-IMPURE::I-DONT-WANT-TO-BE-CLOBBERED-2.
STYLE-WARNING:
   Generic function I-DONT-WANT-TO-BE-CLOBBERED-2 clobbers an earlier FTYPE
   proclamation (FUNCTION (T T T) (VALUES SINGLE-FLOAT &OPTIONAL)) for the same
   name with FUNCTION.
::: Running :DEFGENERIC-SHOULD-CLOBBER-FTYPE
::: Success :DEFGENERIC-SHOULD-CLOBBER-FTYPE
::: Running :BOGUS-PARAMETER-SPECIALIZER-NAME-ERROR
STYLE-WARNING:
   can't find type for specializer "a string" in
   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
::: Success :BOGUS-PARAMETER-SPECIALIZER-NAME-ERROR
::: Running :REMOVE-DEFAULT-INITARGS
::: Success :REMOVE-DEFAULT-INITARGS

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD BUG-485019 (BUG-485019)
;     (DEFMETHOD CLOS-IMPURE::BUG-485019
;                ((CLOS-IMPURE::BUG-485019 CLOS-IMPURE::BUG-485019))
;       (WITH-SLOTS (ARRAY)
;           CLOS-IMPURE::BUG-485019
;         (DECLARE (TYPE (OR NULL SIMPLE-ARRAY) ARRAY))
;         (SETF ARRAY (MAKE-ARRAY 4)))
;       CLOS-IMPURE::BUG-485019)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::BUG-485019 NIL
;                                ((CLOS-IMPURE::BUG-485019
;                                  CLOS-IMPURE::BUG-485019))
;                                ((WITH-SLOTS (ARRAY)
;                                     CLOS-IMPURE::BUG-485019
;                                   (DECLARE (TYPE # ARRAY))
;                                   (SETF ARRAY #))
;                                 CLOS-IMPURE::BUG-485019))
; 
; caught STYLE-WARNING:
;   can't find type for specializer BUG-485019 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; in: WITH-TEST (:NAME :BUG-485019)
;     (CLOS-IMPURE::BUG-485019 (MAKE-INSTANCE 'CLOS-IMPURE::BUG-485019))
; 
; caught STYLE-WARNING:
;   undefined function: BUG-485019
; 
; compilation unit finished
;   Undefined function:
;     BUG-485019
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-485019
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::BUG-485019.
::: Success :BUG-485019
::: Running :BUG-520366
::: Success :BUG-520366
::: Running :NO-APPLICABLE-METHOD/RETRY
::: Success :NO-APPLICABLE-METHOD/RETRY
::: Running :NO-PRIMARY-METHOD/RETRY
::: Success :NO-PRIMARY-METHOD/RETRY
::: Running (MAKE-INSTANCE :INITARGS-CHECKING-BEFORE-REDEFINITION)
::: Success (MAKE-INSTANCE :INITARGS-CHECKING-BEFORE-REDEFINITION)
::: Running (MAKE-INSTANCE :INITARGS-CHECKING-AFTER-REDEFINITION)
::: Success (MAKE-INSTANCE :INITARGS-CHECKING-AFTER-REDEFINITION)

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in:
;      DEFMETHOD INITIALIZE-INSTANCE :AFTER (CACHEING-INITARGS-REDEFINITIONS-CHECK)
;     (DEFMETHOD INITIALIZE-INSTANCE :AFTER
;                ((CLASS CLOS-IMPURE::CACHEING-INITARGS-REDEFINITIONS-CHECK)
;                 &KEY CLOS-IMPURE::SLOT)
;       NIL)
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (CLOS-IMPURE::CACHEING-INITARGS-REDEFINITIONS-CHECK))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLASS &KEY CLOS-IMPURE::SLOT
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE CLASS))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLASS)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLASS) NIL :CALL-NEXT-METHOD-P
;                                                 NIL :SETQ-P NIL
;                                                 :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS CLASS
;             CLOS-IMPURE::CACHEING-INITARGS-REDEFINITIONS-CHECK))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable SLOT is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (MAKE-INSTANCE :INITARGS-CHECKING-NEW-METHOD-INITARGS)
::: Success (MAKE-INSTANCE :INITARGS-CHECKING-NEW-METHOD-INITARGS)
::: Running (DEFMETHOD :SPECIALIZER-BUILTIN-CLASS-ALIAS :BUG-618387)
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::LP-618387.
::: Success (DEFMETHOD :SPECIALIZER-BUILTIN-CLASS-ALIAS :BUG-618387)
::: Running (DEFMETHOD :PCL-SPURIOUS-IGNORE-WARNINGS)
::: Success (DEFMETHOD :PCL-SPURIOUS-IGNORE-WARNINGS)
STYLE-WARNING:
   &OPTIONAL and &KEY found in the same lambda list: (REQ &OPTIONAL OPT &KEY
                                                      KEY)

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFGENERIC GENERIC-FUNCTION-PRETTY-ARGLIST-OPTIONAL-AND-KEY
;     (DEFGENERIC CLOS-IMPURE::GENERIC-FUNCTION-PRETTY-ARGLIST-OPTIONAL-AND-KEY
;         (CLOS-IMPURE::REQ &OPTIONAL CLOS-IMPURE::OPT &KEY CLOS-IMPURE::KEY)
;       (:METHOD
;        (CLOS-IMPURE::REQ &OPTIONAL CLOS-IMPURE::OPT &KEY CLOS-IMPURE::KEY)
;        (LIST CLOS-IMPURE::REQ CLOS-IMPURE::OPT CLOS-IMPURE::KEY)))
; --> PROGN LET* DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           CLOS-IMPURE::GENERIC-FUNCTION-PRETTY-ARGLIST-OPTIONAL-AND-KEY
;                           (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::REQ &OPTIONAL
;          CLOS-IMPURE::OPT &KEY CLOS-IMPURE::KEY &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLOS-IMPURE::REQ))
;       (DECLARE (IGNORABLE CLOS-IMPURE::REQ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLOS-IMPURE::REQ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLOS-IMPURE::REQ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (SB-PCL::.PV.
;                                                      SB-PCL::.NEXT-METHOD-CALL.
;                                                      REQ &OPTIONAL OPT &KEY KEY
;                                                      &ALLOW-OTHER-KEYS)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (SB-PCL::.PV.
;                                                      SB-PCL::.NEXT-METHOD-CALL.
;                                                      REQ &OPTIONAL OPT &KEY KEY
;                                                      &ALLOW-OTHER-KEYS)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: WITH-TEST (:NAME :GENERIC-FUNCTION-PRETTY-ARGLIST-OPTIONAL-AND-KEY)
;     #'CLOS-IMPURE::GENERIC-FUNCTION-PRETTY-ARGLIST-OPTIONAL-AND-KEY
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (REQ &OPTIONAL OPT &KEY KEY)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :GENERIC-FUNCTION-PRETTY-ARGLIST-OPTIONAL-AND-KEY
::: Success :GENERIC-FUNCTION-PRETTY-ARGLIST-OPTIONAL-AND-KEY
::: Running :BUG-894202
::: Success :BUG-894202
::: Running :BUG-898331
::: Success :BUG-898331
::: Running (DEFMETHOD :BUG-1001799)
STYLE-WARNING: Implicitly creating new generic function #:FROB2363.
::: Success (DEFMETHOD :BUG-1001799)

; in: WITH-TEST (:NAME :BUG-1099708)
;     (CLOS-IMPURE::MAKE-1099708-1)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708-1

;     (CLOS-IMPURE::MAKE-1099708-2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708-2
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-1099708-1 MAKE-1099708-2
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-1099708
::: Success :BUG-1099708

; in: WITH-TEST (:NAME :BUG-1099708B-LIST)
;     (CLOS-IMPURE::MAKE-1099708B-LIST-1)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-LIST-1

;     (CLOS-IMPURE::MAKE-1099708B-LIST-2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-LIST-2
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-1099708B-LIST-1 MAKE-1099708B-LIST-2
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-1099708B-LIST
::: Success :BUG-1099708B-LIST

; in: WITH-TEST (:NAME :BUG-1099708B-STRING)
;     (CLOS-IMPURE::MAKE-1099708B-STRING-1)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-STRING-1

;     (CLOS-IMPURE::MAKE-1099708B-STRING-2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-STRING-2
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-1099708B-STRING-1 MAKE-1099708B-STRING-2
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-1099708B-STRING
::: Success :BUG-1099708B-STRING

; in: WITH-TEST (:NAME :BUG-1099708B-BITVECTOR)
;     (CLOS-IMPURE::MAKE-1099708B-BITVECTOR-1)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-BITVECTOR-1

;     (CLOS-IMPURE::MAKE-1099708B-BITVECTOR-2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-BITVECTOR-2
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-1099708B-BITVECTOR-1 MAKE-1099708B-BITVECTOR-2
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-1099708B-BITVECTOR
::: Success :BUG-1099708B-BITVECTOR

; in: WITH-TEST (:NAME :BUG-1099708B-PATHNAME)
;     (CLOS-IMPURE::MAKE-1099708B-PATHNAME-1)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-PATHNAME-1

;     (CLOS-IMPURE::MAKE-1099708B-PATHNAME-2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708B-PATHNAME-2
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-1099708B-PATHNAME-1 MAKE-1099708B-PATHNAME-2
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-1099708B-PATHNAME
::: Success :BUG-1099708B-PATHNAME

; in: WITH-TEST (:NAME :BUG-1099708C-LIST)
;     (CLOS-IMPURE::MAKE-1099708C-LIST-1)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708C-LIST-1

;     (CLOS-IMPURE::MAKE-1099708C-LIST-2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-1099708C-LIST-2
; 
; compilation unit finished
;   Undefined functions:
;     MAKE-1099708C-LIST-1 MAKE-1099708C-LIST-2
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-1099708C-LIST
::: Success :BUG-1099708C-LIST
::: Running (MAKE-INSTANCE :FALLBACK-GENERATOR-INITARG-HANDLING :BUG-1179858)
::: Success (MAKE-INSTANCE :FALLBACK-GENERATOR-INITARG-HANDLING :BUG-1179858)
::: Running (MAKE-INSTANCE :FALLBACK-GENERATOR-NON-KEYWORD-INITARG :BUG-1179858)
::: Success (MAKE-INSTANCE :FALLBACK-GENERATOR-NON-KEYWORD-INITARG :BUG-1179858)
::: Running (:CPL-VIOLATION-SETUP :BUG-309076)
::: Success (:CPL-VIOLATION-SETUP :BUG-309076)

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in:
;      DEFMETHOD SB-MOP:VALIDATE-SUPERCLASS (BUG-309076-CLASS STANDARD-CLASS)
;     (DEFMETHOD SB-MOP:VALIDATE-SUPERCLASS
;                ((CLOS-IMPURE::X CLOS-IMPURE::BUG-309076-CLASS)
;                 (CLOS-IMPURE::Y STANDARD-CLASS))
;       T)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER SB-MOP:VALIDATE-SUPERCLASS NIL
;                                ((CLOS-IMPURE::X CLOS-IMPURE::BUG-309076-CLASS)
;                                 (CLOS-IMPURE::Y STANDARD-CLASS))
;                                (T))
; 
; caught STYLE-WARNING:
;   can't find type for specializer BUG-309076-CLASS in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; in: WITH-TEST (:NAME (:CPL-VIOLATION-IRRELEVANT-CLASS :BUG-309076))
;     (ASSERT
;      (TYPEP (MAKE-INSTANCE 'CLOS-IMPURE::BUG-309076-CLASS)
;             'CLOS-IMPURE::BUG-309076-CLASS))
; --> TAGBODY LET WHEN IF 
; ==>
;   (TYPEP #:TEMP5 'CLOS-IMPURE::BUG-309076-CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: BUG-309076-CLASS
; 
; compilation unit finished
;   Undefined type:
;     BUG-309076-CLASS
;   caught 2 STYLE-WARNING conditions
::: Running (:CPL-VIOLATION-IRRELEVANT-CLASS :BUG-309076)
::: Success (:CPL-VIOLATION-IRRELEVANT-CLASS :BUG-309076)
STYLE-WARNING: Implicitly creating new generic function CLOS-IMPURE::B.
::: Running :MAKE-METHOD-LAMBDA-LEAKAGE
::: Success :MAKE-METHOD-LAMBDA-LEAKAGE
::: Running (DEFMETHOD :UNDEFINED-FUNCTION :BUG-503095)

; compiling file "/«PKGBUILDDIR»/tests/bug-503095.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFMETHOD GF503095 ...)
; compiling (DEFUN F503095 ...)

; /«PKGBUILDDIR»/tests/bug-503095.fasl written
; compilation finished in 0:00:00.033
::: Success (DEFMETHOD :UNDEFINED-FUNCTION :BUG-503095)

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: DEFMETHOD X-633911 (A-633911)
;     (DEFMETHOD CLOS-IMPURE::X-633911 ((CLOS-IMPURE::B CLOS-IMPURE::A-633911)) 10)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER CLOS-IMPURE::X-633911 NIL
;                                ((CLOS-IMPURE::B CLOS-IMPURE::A-633911)) (10))
; 
; caught STYLE-WARNING:
;   can't find type for specializer A-633911 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; file: /«PKGBUILDDIR»/tests/clos.impure.lisp
; in: WITH-TEST (:NAME :ACCESSOR-AND-PLAIN-METHOD)
;     (CLOS-IMPURE::X-633911 (MAKE-INSTANCE 'CLOS-IMPURE::A-633911))
; 
; caught STYLE-WARNING:
;   undefined function: X-633911
; 
; compilation unit finished
;   Undefined function:
;     X-633911
;   caught 2 STYLE-WARNING conditions
::: Running :ACCESSOR-AND-PLAIN-METHOD
::: Success :ACCESSOR-AND-PLAIN-METHOD
::: Running (BUILT-IN-CLASS :SUBCLASS ERROR)
::: Success (BUILT-IN-CLASS :SUBCLASS ERROR)
::: Running :SVUC-WITH-BAD-SLOTD
::: Success :SVUC-WITH-BAD-SLOTD
::: Running :FGENS-SHARING
::: Success :FGENS-SHARING
::: Running (SB-MOP:ENSURE-CLASS :CLASS-IS-DIRECT-SUPERCLASS :BUG-1418883)
::: Success (SB-MOP:ENSURE-CLASS :CLASS-IS-DIRECT-SUPERCLASS :BUG-1418883)
::: Running (SB-MOP:ENSURE-CLASS :SUPERCLASS-CYCLE :BUG-1418883)
::: Success (SB-MOP:ENSURE-CLASS :SUPERCLASS-CYCLE :BUG-1418883)
::: Running (SB-MOP:ENSURE-CLASS :SELF-METACLASS)
::: Success (SB-MOP:ENSURE-CLASS :SELF-METACLASS)
::: Running (SB-PCL::UPDATE-CLASS :CLASS-BECOMES-DIRECT-SUPERCLASS :BUG-1418883)
::: Success (SB-PCL::UPDATE-CLASS :CLASS-BECOMES-DIRECT-SUPERCLASS :BUG-1418883)
::: Running (SB-PCL::UPDATE-CLASS :SUPERCLASSES-BECOME-CYCLIC :BUG-1418883)
::: Success (SB-PCL::UPDATE-CLASS :SUPERCLASSES-BECOME-CYCLIC :BUG-1418883)
::: Running (SB-PCL::UPDATE-CLASS :BECOMSES-OWN-METACLASS)
::: Success (SB-PCL::UPDATE-CLASS :BECOMSES-OWN-METACLASS)
// Running /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in:
;      MACROLET ((TEST (INIT OP)
;             `(WITH-TEST (:NAME (:CAS :BASICS ,#))
;                (LET (# # #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (LET #
;                    #)))))
;     (MACROLET ((TEST (INIT OP)
;                  `(WITH-TEST (:NAME #)
;                     (LET #
;                       #
;                       #
;                       #
;                       #))))
;       (TEST (CONS NIL :NO) CAR)
;       (TEST (CONS NIL :NO) FIRST)
;       (TEST (CONS :NO NIL) CDR)
;       (TEST (CONS :NO NIL) REST)
;       (TEST '.FOO. SYMBOL-PLIST)
;       (TEST (PROGN (SET '.BAR. NIL) '.BAR.) SYMBOL-VALUE)
;       (TEST (MAKE-XXX) XXX-YYY))
; --> PROGN THE PROGN LET BLOCK HANDLER-BIND SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET LET PROGN PROGN PROGN LET LET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN COMPARE-AND-SWAP CAS LET* 
; ==>
;   (SB-KERNEL:%COMPARE-AND-SWAP-CAR #:CONS30 #:OLD31 #:NEW32)
; 
; caught WARNING:
;   Derived type of #:CONS30 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     CONS.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :BASICS :CAR)
::: Success (:CAS :BASICS :CAR)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in:
;      MACROLET ((TEST (INIT OP)
;             `(WITH-TEST (:NAME (:CAS :BASICS ,#))
;                (LET (# # #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (LET #
;                    #)))))
;     (MACROLET ((TEST (INIT OP)
;                  `(WITH-TEST (:NAME #)
;                     (LET #
;                       #
;                       #
;                       #
;                       #))))
;       (TEST (CONS NIL :NO) CAR)
;       (TEST (CONS NIL :NO) FIRST)
;       (TEST (CONS :NO NIL) CDR)
;       (TEST (CONS :NO NIL) REST)
;       (TEST '.FOO. SYMBOL-PLIST)
;       (TEST (PROGN (SET '.BAR. NIL) '.BAR.) SYMBOL-VALUE)
;       (TEST (MAKE-XXX) XXX-YYY))
; --> PROGN THE PROGN LET BLOCK HANDLER-BIND SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET LET PROGN PROGN PROGN LET LET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN COMPARE-AND-SWAP CAS LET* 
; ==>
;   (SB-KERNEL:%COMPARE-AND-SWAP-CAR #:CONS30 #:OLD31 #:NEW32)
; 
; caught WARNING:
;   Derived type of #:CONS30 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     CONS.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :BASICS :FIRST)
::: Success (:CAS :BASICS :FIRST)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in:
;      MACROLET ((TEST (INIT OP)
;             `(WITH-TEST (:NAME (:CAS :BASICS ,#))
;                (LET (# # #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (LET #
;                    #)))))
;     (MACROLET ((TEST (INIT OP)
;                  `(WITH-TEST (:NAME #)
;                     (LET #
;                       #
;                       #
;                       #
;                       #))))
;       (TEST (CONS NIL :NO) CAR)
;       (TEST (CONS NIL :NO) FIRST)
;       (TEST (CONS :NO NIL) CDR)
;       (TEST (CONS :NO NIL) REST)
;       (TEST '.FOO. SYMBOL-PLIST)
;       (TEST (PROGN (SET '.BAR. NIL) '.BAR.) SYMBOL-VALUE)
;       (TEST (MAKE-XXX) XXX-YYY))
; --> PROGN THE PROGN LET BLOCK HANDLER-BIND SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET LET PROGN PROGN PROGN LET LET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN COMPARE-AND-SWAP CAS LET* 
; ==>
;   (SB-KERNEL:%COMPARE-AND-SWAP-CDR #:CONS30 #:OLD31 #:NEW32)
; 
; caught WARNING:
;   Derived type of #:CONS30 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     CONS.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :BASICS :CDR)
::: Success (:CAS :BASICS :CDR)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in:
;      MACROLET ((TEST (INIT OP)
;             `(WITH-TEST (:NAME (:CAS :BASICS ,#))
;                (LET (# # #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (LET #
;                    #)))))
;     (MACROLET ((TEST (INIT OP)
;                  `(WITH-TEST (:NAME #)
;                     (LET #
;                       #
;                       #
;                       #
;                       #))))
;       (TEST (CONS NIL :NO) CAR)
;       (TEST (CONS NIL :NO) FIRST)
;       (TEST (CONS :NO NIL) CDR)
;       (TEST (CONS :NO NIL) REST)
;       (TEST '.FOO. SYMBOL-PLIST)
;       (TEST (PROGN (SET '.BAR. NIL) '.BAR.) SYMBOL-VALUE)
;       (TEST (MAKE-XXX) XXX-YYY))
; --> PROGN THE PROGN LET BLOCK HANDLER-BIND SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET LET PROGN PROGN PROGN LET LET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN COMPARE-AND-SWAP CAS LET* 
; ==>
;   (SB-KERNEL:%COMPARE-AND-SWAP-CDR #:CONS30 #:OLD31 #:NEW32)
; 
; caught WARNING:
;   Derived type of #:CONS30 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     CONS.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :BASICS :REST)
::: Success (:CAS :BASICS :REST)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in:
;      MACROLET ((TEST (INIT OP)
;             `(WITH-TEST (:NAME (:CAS :BASICS ,#))
;                (LET (# # #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (LET #
;                    #)))))
;     (MACROLET ((TEST (INIT OP)
;                  `(WITH-TEST (:NAME #)
;                     (LET #
;                       #
;                       #
;                       #
;                       #))))
;       (TEST (CONS NIL :NO) CAR)
;       (TEST (CONS NIL :NO) FIRST)
;       (TEST (CONS :NO NIL) CDR)
;       (TEST (CONS :NO NIL) REST)
;       (TEST '.FOO. SYMBOL-PLIST)
;       (TEST (PROGN (SET '.BAR. NIL) '.BAR.) SYMBOL-VALUE)
;       (TEST (MAKE-XXX) XXX-YYY))
; --> PROGN THE PROGN LET BLOCK HANDLER-BIND SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET LET PROGN PROGN PROGN LET LET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN COMPARE-AND-SWAP CAS LET* 
; ==>
;   (SB-IMPL::%COMPARE-AND-SWAP-SYMBOL-PLIST #:SYMBOL30 #:OLD31 #:NEW32)
; 
; caught WARNING:
;   Derived type of #:SYMBOL30 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     SYMBOL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :BASICS :SYMBOL-PLIST)
::: Success (:CAS :BASICS :SYMBOL-PLIST)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in:
;      MACROLET ((TEST (INIT OP)
;             `(WITH-TEST (:NAME (:CAS :BASICS ,#))
;                (LET (# # #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (LET #
;                    #)))))
;     (MACROLET ((TEST (INIT OP)
;                  `(WITH-TEST (:NAME #)
;                     (LET #
;                       #
;                       #
;                       #
;                       #))))
;       (TEST (CONS NIL :NO) CAR)
;       (TEST (CONS NIL :NO) FIRST)
;       (TEST (CONS :NO NIL) CDR)
;       (TEST (CONS :NO NIL) REST)
;       (TEST '.FOO. SYMBOL-PLIST)
;       (TEST (PROGN (SET '.BAR. NIL) '.BAR.) SYMBOL-VALUE)
;       (TEST (MAKE-XXX) XXX-YYY))
; --> PROGN THE PROGN LET BLOCK HANDLER-BIND SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET LET PROGN PROGN PROGN LET LET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN COMPARE-AND-SWAP CAS LET* PROGN 
; ==>
;   (SB-INT:ABOUT-TO-MODIFY-SYMBOL-VALUE #:X30 'COMPARE-AND-SWAP #:NEW32)
; 
; caught WARNING:
;   Derived type of #:X30 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     SYMBOL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :BASICS :SYMBOL-VALUE)
::: Success (:CAS :BASICS :SYMBOL-VALUE)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in:
;      MACROLET ((TEST (INIT OP)
;             `(WITH-TEST (:NAME (:CAS :BASICS ,#))
;                (LET (# # #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (ASSERT #)
;                  (LET #
;                    #)))))
;     (MACROLET ((TEST (INIT OP)
;                  `(WITH-TEST (:NAME #)
;                     (LET #
;                       #
;                       #
;                       #
;                       #))))
;       (TEST (CONS NIL :NO) CAR)
;       (TEST (CONS NIL :NO) FIRST)
;       (TEST (CONS :NO NIL) CDR)
;       (TEST (CONS :NO NIL) REST)
;       (TEST '.FOO. SYMBOL-PLIST)
;       (TEST (PROGN (SET '.BAR. NIL) '.BAR.) SYMBOL-VALUE)
;       (TEST (MAKE-XXX) XXX-YYY))
; --> PROGN THE PROGN LET BLOCK HANDLER-BIND SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET LET PROGN PROGN PROGN LET LET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> PROGN COMPARE-AND-SWAP CAS LET* TRULY-THE 
; --> SB-KERNEL:%COMPARE-AND-SWAP-INSTANCE-REF 
; ==>
;   (THE XXX #:INSTANCE30)
; 
; caught WARNING:
;   Derived type of #:INSTANCE30 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     XXX.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :BASICS :XXX-YYY)
::: Success (:CAS :BASICS :XXX-YYY)
::: Running (:CAS :TLS)
::: Success (:CAS :TLS)
::: Running (:CAS :UNBOUND)
::: Success (:CAS :UNBOUND)
::: Running (:CAS :UNBOUND 2)
::: Success (:CAS :UNBOUND 2)
::: Running (:CAS :SVREF)
::: Success (:CAS :SVREF)
::: Running (:CAS :SVREF :BOUNDS)
::: Success (:CAS :SVREF :BOUNDS)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in: WITH-TEST (:NAME (:CAS :SVREF :TYPE))
;     (COMPARE-AND-SWAP (SVREF "foo" 1) 1 2)
; --> CAS LET* LOCALLY SB-KERNEL:%COMPARE-AND-SWAP-SVREF 
; ==>
;   #:V14
; 
; caught WARNING:
;   Derived type of #:V14 is
;     (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL),
;   conflicting with its asserted type
;     (VALUES SIMPLE-VECTOR &OPTIONAL).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :SVREF :TYPE)
::: Success (:CAS :SVREF :TYPE)
::: Running (:CAS :SYMBOL-VALUE :CONSTANT-MODIFICATION)
::: Success (:CAS :SYMBOL-VALUE :CONSTANT-MODIFICATION)

; file: /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp
; in: WITH-TEST (:NAME (:CAS :SYMBOL-VALUE :TYPE-CHECKING))
;     (COMPARE-AND-SWAP (SYMBOL-VALUE '*A-BOOLEAN*) T 42)
; --> CAS LET* SB-KERNEL:%COMPARE-AND-SWAP-SYMBOL-VALUE 
; ==>
;   (THE #<SB-KERNEL:MEMBER-TYPE (MEMBER T NIL)> #:NEW15)
; 
; caught WARNING:
;   Derived type of #:NEW15 is
;     (VALUES (INTEGER 42 42) &OPTIONAL),
;   conflicting with its asserted type
;     (MEMBER T NIL).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:CAS :SYMBOL-VALUE :TYPE-CHECKING)
::: Success (:CAS :SYMBOL-VALUE :TYPE-CHECKING)
::: Running :ATOMIC-INCF/DECF
::: Success :ATOMIC-INCF/DECF
::: Running :ATOMIC-INCF-WRAPAROUND
::: Success :ATOMIC-INCF-WRAPAROUND
::: Running :ATOMIC-DECF-WRAPAROUND
::: Success :ATOMIC-DECF-WRAPAROUND
Unhandled INPUT-ERROR-IN-LOAD: READ error during LOAD:

                                 Symbol "%RAW-INSTANCE-ATOMIC-INCF/WORD" not found in the SB-KERNEL package.

                                   Line: 163, Column: 75, File-Position: 5357

                                   Stream: #<SB-INT:FORM-TRACKING-STREAM
                                             for "file /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp"
                                             {53597001}>
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {53597DB1}>
0: ((LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX))
1: (SB-IMPL::CALL-WITH-SANE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {52154E7D}>)
2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {52154E65}>)
3: (PRINT-BACKTRACE :STREAM NIL :START 0 :FROM :DEBUGGER-FRAME :COUNT NIL :PRINT-THREAD T :PRINT-FRAME-SOURCE NIL :METHOD-FRAME-STYLE NIL)
4: ((FLET #:HANDLER5 :IN #:BLOCK0) #<SB-C::INPUT-ERROR-IN-LOAD {52152A21}>)
5: (SIGNAL #<SB-C::INPUT-ERROR-IN-LOAD {52152A21}>)
6: (ERROR #<SB-C::INPUT-ERROR-IN-LOAD {52152A21}>)
7: (SB-C:COMPILER-ERROR SB-C::INPUT-ERROR-IN-LOAD :CONDITION #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "Symbol ~S not found in the ~A package." {521529A9}> :STREAM #<SB-INT:FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp" {53597001}>)
8: (SB-C::%DO-FORMS-FROM-INFO #<CLOSURE (LAMBDA (SB-KERNEL:FORM &KEY SB-FASL::CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {535971B5}> #<SB-C::SOURCE-INFO {535971C9}> SB-C::INPUT-ERROR-IN-LOAD)
9: (SB-INT:LOAD-AS-SOURCE #<SB-INT:FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp" {53597001}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
10: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-INT:FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp" {53597001}> NIL)
11: (LOAD #P"/«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
12: ((LAMBDA ()))
13: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LET ((RUN-TESTS::FILE #P"/«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp") (RUN-TESTS::*BREAK-ON-ERROR* NIL)) (DECLARE (SPECIAL RUN-TESTS::*BREAK-ON-ERROR*)) (FORMAT T "// Running ~a~%" RUN-TESTS::FILE) (RESTART-CASE (HANDLER-BIND ((ERROR #)) (LOAD #P"/«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp")) (RUN-TESTS::SKIP-FILE NIL (FORMAT T ">>>~a<<<~%" *FAILURES*))) (REPORT-TEST-STATUS) (EXIT :CODE 104)) #<NULL-LEXENV>)
14: (EVAL (LET ((RUN-TESTS::FILE #P"/«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp") (RUN-TESTS::*BREAK-ON-ERROR* NIL)) (DECLARE (SPECIAL RUN-TESTS::*BREAK-ON-ERROR*)) (FORMAT T "// Running ~a~%" RUN-TESTS::FILE) (RESTART-CASE (HANDLER-BIND ((ERROR #)) (LOAD #P"/«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp")) (RUN-TESTS::SKIP-FILE NIL (FORMAT T ">>>~a<<<~%" *FAILURES*))) (REPORT-TEST-STATUS) (EXIT :CODE 104)))
15: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(LOAD \"test-util\")") (:EVAL . "(LOAD \"assertoid\")") (:EVAL . "(DEFPACKAGE :RUN-TESTS
  (:USE :CL :TEST-UTIL :SB-EXT))") (:EVAL . "(IN-PACKAGE :CL-USER)") (:EVAL . "(USE-PACKAGE :TEST-UTIL)") (:EVAL . "(USE-PACKAGE :ASSERTOID)") (:EVAL . "(SETF *BREAK-ON-FAILURE* NIL)") (:EVAL . "(SETF *BREAK-ON-EXPECTED-FAILURE* NIL)") (:EVAL . "(LET ((RUN-TESTS::FILE
       #P\"/«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp\")
      (RUN-TESTS::*BREAK-ON-ERROR* NIL))
  (DECLARE (SPECIAL RUN-TESTS::*BREAK-ON-ERROR*))
  (FORMAT T \"// Running ~a~%\" RUN-TESTS::FILE)
  (RESTART-CASE (HANDLER-BIND ((ERROR
                                (LAMBDA (CONDITION)
                                  (PUSH (LIST :UNHANDLED-ERROR RUN-TESTS::FILE)
                                        *FAILURES*)
                                  (COND
                                   (RUN-TESTS::*BREAK-ON-ERROR*
                                    (REALLY-INVOKE-DEBUGGER CONDITION))
                                   (T
                                    (FORMAT *ERROR-OUTPUT*
                                            \"~&Unhandled ~a: ~a~%\"
                                            (TYPE-OF CONDITION) CONDITION)
                                    (PRINT-BACKTRACE)))
                                  (INVOKE-RESTART 'RUN-TESTS::SKIP-FILE))))
                  (LOAD
                   #P\"/«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp\"))
    (RUN-TESTS::SKIP-FILE NIL (FORMAT T \">>>~a<<<~%\" *FAILURES*)))
  (REPORT-TEST-STATUS)
  (EXIT :CODE 104))")))
16: (SB-IMPL::TOPLEVEL-INIT)
17: ((FLET #:WITHOUT-INTERRUPTS-BODY-71 :IN SAVE-LISP-AND-DIE))
18: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))
>>>((UNHANDLED-ERROR
     /«PKGBUILDDIR»/tests/compare-and-swap.impure.lisp))<<<
// Running /«PKGBUILDDIR»/tests/compiler.impure.lisp
; 
; caught STYLE-WARNING:
;   using 0 of type (INTEGER 0 0) as a catch tag (which tends to be unportable
;   because THROW and CATCH use EQ comparison)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG150-TEST1
;     (EQL (LO FOOMAX 3.2))
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly two.

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG150-TEST1
;     (GLEEP *UUSTK* #'WUFN "#1" (LIST))
; 
; caught WARNING:
;   undefined variable: *UUSTK*

;     (LO FOOMAX 3.2)
; 
; caught WARNING:
;   undefined variable: FOOMAX

;     (GLEEP *UUSTK* #'WUFN "#1" (LIST))
; 
; caught STYLE-WARNING:
;   undefined function: GLEEP

;     (GLORP TABLE1 4.9)
; 
; caught STYLE-WARNING:
;   undefined function: GLORP

;     (LO FOOMAX 3.2)
; 
; caught STYLE-WARNING:
;   undefined function: LO

;     (GLORP TABLE1 4.9)
; 
; caught WARNING:
;   undefined variable: TABLE1
; 
; compilation unit finished
;   Undefined functions:
;     GLEEP GLORP LO
;   Undefined variables:
;     *UUSTK* FOOMAX TABLE1
;   caught 4 WARNING conditions
;   caught 3 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG150-TEST2
;     (<)
; 
; caught WARNING:
;   The function was called with zero arguments, but wants at least one.
; 
; compilation unit finished
;   caught 1 WARNING condition

; in: DEFUN STUPID-INPUT-TO-SMART-ARRAY-DEFTRANSFORMS-0-7-5-12
;     (DEFUN STUPID-INPUT-TO-SMART-ARRAY-DEFTRANSFORMS-0-7-5-12 (V)
;       (DECLARE (TYPE (AND SIMPLE-VECTOR FWD-TYPE-REF) V))
;       (AREF V 0))
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE 
; ==>
;   (TYPEP #:N-OBJ7 'FWD-TYPE-REF)
; 
; caught STYLE-WARNING:
;   undefined type: FWD-TYPE-REF

;     (TYPE (AND SIMPLE-VECTOR FWD-TYPE-REF) V)
; 
; caught STYLE-WARNING:
;   undefined type: FWD-TYPE-REF
; 
; compilation unit finished
;   Undefined type:
;     FWD-TYPE-REF
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: MULTIPLE-VALUE-BIND (FUN WARNINGS-P FAILURE-P)
;     (MULTIPLE-VALUE-BIND (FUN WARNINGS-P FAILURE-P)
;         (COMPILE NIL
;                  '(LAMBDA ()
;                     (LABELS (# # # #)
;                       (VALUES #'A17 #'A11))))
;       (ASSERT FAILURE-P))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUN) (WARNINGS-P) (FAILURE-P) &REST #:G637)
;       (DECLARE (IGNORE #:G637))
;       (ASSERT FAILURE-P))
; 
; caught STYLE-WARNING:
;   The variable FUN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: LAMBDA ()
;     (LABELS ((A1 (A2 A3)
;                (COND (T #)))
;              (A4 (A2 A3 A5 A6)
;                (DECLARE (TYPE # A5 A6))
;                (SOMETHING-KNOWN-TO-BE-A-STRUCT-X A5))
;              (A8 (A2 A3)
;                (A9 #'A1 A10 A2 A3))
;              (A11 (A2 A3)
;                (COND (# #) (T # A16))))
;       (VALUES #'A17 #'A11))
; 
; note: deleting unused function
;   (LABELS A8 :IN "/«PKGBUILDDIR»/tests/compiler.impure.lisp")

;     (A4 A2 A3)
; 
; caught WARNING:
;   function called with two arguments, but wants exactly four
;   See also:
;     The ANSI Standard, Section 3.2.2.3

;     (LET ((A15 (A1 A2 A3)))
;       )
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; in: LAMBDA ()
;     (A9 #'A1 A10 A2 A3)
; 
; caught WARNING:
;   undefined variable: A10

;     (FUNCALL A12 A2)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN A12)
; 
; caught WARNING:
;   undefined variable: A12

;     (FUNCALL A13 A2 A3)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN A13)
; 
; caught WARNING:
;   undefined variable: A13

;     (WHEN A14
;       (LET ((A15 (A1 A2 A3)))
;         ))
; ==>
;   (IF A14
;       (PROGN
;        (LET ((A15 #))
;          ))
;       NIL)
; 
; caught WARNING:
;   undefined variable: A14

;     (COND ((AND (FUNCALL A12 A2) (FUNCALL A12 A3)) (FUNCALL A13 A2 A3))
;           (T
;            (WHEN A14
;              (LET (#)
;                ))
;            A16))
; --> IF COND THE 
; ==>
;   (PROGN
;    (WHEN A14
;      (LET ((A15 #))
;        ))
;    A16)
; 
; caught WARNING:
;   undefined variable: A16

;     #'A17
; 
; caught STYLE-WARNING:
;   undefined function: A17

;     (A9 #'A1 A10 A2 A3)
; 
; caught STYLE-WARNING:
;   undefined function: A9
; 
; compilation unit finished
;   Undefined functions:
;     A17 A9
;   Undefined variables:
;     A10 A12 A13 A14 A16
;   caught 6 WARNING conditions
;   caught 2 STYLE-WARNING conditions
;   printed 3 notes


; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG65-1
;     (BINDINGS-OF-BOUND-TERM (CAR LISTX))
; 
; caught STYLE-WARNING:
;   undefined function: BINDINGS-OF-BOUND-TERM

;     (BOUND-TERMS-OF-TERM TERMX)
; 
; caught STYLE-WARNING:
;   undefined function: BOUND-TERMS-OF-TERM

;     (ENTER-BINDING-PAIRS (BINDINGS-OF-BOUND-TERM (CAR LISTX))
;      (BINDINGS-OF-BOUND-TERM (CAR LISTY)))
; 
; caught STYLE-WARNING:
;   undefined function: ENTER-BINDING-PAIRS

;     (EQUAL-BINDINGS (ID-OF-VARIABLE-TERM TERMX) (ID-OF-VARIABLE-TERM TERMY))
; 
; caught STYLE-WARNING:
;   undefined function: EQUAL-BINDINGS

;     (EQUAL-OPERATORS-P (OPERATOR-OF-TERM TERMX) (OPERATOR-OF-TERM TERMY))
; 
; caught STYLE-WARNING:
;   undefined function: EQUAL-OPERATORS-P

;     (EXIT-BINDING-PAIRS (BINDINGS-OF-BOUND-TERM (CAR LISTX))
;      (BINDINGS-OF-BOUND-TERM (CAR LISTY)))
; 
; caught STYLE-WARNING:
;   undefined function: EXIT-BINDING-PAIRS

;     (ID-OF-VARIABLE-TERM TERMX)
; 
; caught STYLE-WARNING:
;   undefined function: ID-OF-VARIABLE-TERM

;     (OPERATOR-OF-TERM TERMX)
; 
; caught STYLE-WARNING:
;   undefined function: OPERATOR-OF-TERM

;     (TERM-OF-BOUND-TERM (CAR LISTX))
; 
; caught STYLE-WARNING:
;   undefined function: TERM-OF-BOUND-TERM

;     (VARIABLE-P TERMX)
; 
; caught STYLE-WARNING:
;   undefined function: VARIABLE-P

;     (WITH-VARIABLE-INVOCATION (ALPHA-EQUAL-TERMS TERMX TERMY))
; 
; caught STYLE-WARNING:
;   undefined function: WITH-VARIABLE-INVOCATION
; 
; compilation unit finished
;   Undefined functions:
;     BINDINGS-OF-BOUND-TERM BOUND-TERMS-OF-TERM ENTER-BINDING-PAIRS EQUAL-BINDINGS EQUAL-OPERATORS-P EXIT-BINDING-PAIRS ID-OF-VARIABLE-TERM OPERATOR-OF-TERM TERM-OF-BOUND-TERM VARIABLE-P WITH-VARIABLE-INVOCATION
;   caught 11 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG109
;     (LABELS ((EFF (&KEY TROUBLE)
;                (EFF)))
;       (EFF))
; 
; caught STYLE-WARNING:
;   The variable TROUBLE is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      PROGN (MULTIPLE-VALUE-BIND (RESULT ERROR)
;            (IGNORE-ERRORS (MULTIPLE-VALUE-PROG1 (PROGN (THE REAL '#))))
;          (ASSERT (NULL RESULT))
;          (ASSERT (TYPEP ERROR 'TYPE-ERROR)))
;     (THE REAL '(1 2 3))
; 
; caught WARNING:
;   Constant (1 2 3) conflicts with its asserted type REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      PROGN (MULTIPLE-VALUE-BIND (RESULT ERROR)
;            (IGNORE-ERRORS (MULTIPLE-VALUE-PROG1 (PROGN (THE REAL '#))))
;          (ASSERT (NULL RESULT))
;          (ASSERT (TYPEP ERROR 'TYPE-ERROR)))
;     (THE REAL '(1 2 3))
; 
; caught WARNING:
;   Constant (1 2 3) conflicts with its asserted type REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG194D
;     (THE REAL #(1 2 3))
; 
; caught WARNING:
;   Constant #(1 2 3) conflicts with its asserted type REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;         (COMPILE NIL
;                  '(LAMBDA ()
;                     (DECLARE (DISABLE-PACKAGE-LOCKS T))
;                     (SYMBOL-MACROLET (#)
;                       T)))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL FUNCTION) PROGRAM-ERROR))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G648)
;       (DECLARE (IGNORE #:G648))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL FUNCTION) PROGRAM-ERROR))
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (SYMBOL-MACROLET ((T NIL))
;       T)
; 
; caught ERROR:
;   Attempt to bind a constant variable with SYMBOL-MACROLET: T
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;         (COMPILE NIL
;                  '(LAMBDA ()
;                     (DECLARE (DISABLE-PACKAGE-LOCKS *STANDARD-INPUT*))
;                     (SYMBOL-MACROLET (#)
;                       *STANDARD-INPUT*)))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL FUNCTION) PROGRAM-ERROR))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G649)
;       (DECLARE (IGNORE #:G649))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL FUNCTION) PROGRAM-ERROR))
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (SYMBOL-MACROLET ((*STANDARD-INPUT* NIL))
;       *STANDARD-INPUT*)
; 
; caught ERROR:
;   Attempt to bind a special variable with SYMBOL-MACROLET: *STANDARD-INPUT*
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;     (MULTIPLE-VALUE-BIND (FUNCTION WARNINGS-P FAILURE-P)
;         (COMPILE NIL
;                  '(LAMBDA ()
;                     (SYMBOL-MACROLET (#)
;                       (DECLARE #)
;                       S)))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL FUNCTION) PROGRAM-ERROR))
; --> PROGN MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G650)
;       (DECLARE (IGNORE #:G650))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL FUNCTION) PROGRAM-ERROR))
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (SPECIAL S)
; 
; caught ERROR:
;   S is a symbol-macro and thus can't be declared special.
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN DONT-CONSTRAIN-IF-TOO-MUCH
;     (DEFUN DONT-CONSTRAIN-IF-TOO-MUCH (FRAME UP-FRAME)
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
;       (IF (OR (NOT FRAME) T)
;           FRAME
;           "bar"))
; 
; caught STYLE-WARNING:
;   The variable UP-FRAME is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN DONT-CONSTRAIN-IF-TOO-MUCH-AUX
;     (DONT-CONSTRAIN-IF-TOO-MUCH X Y)
; 
; caught STYLE-WARNING:
;   The variable UP-FRAME is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN EXERCISE-0-7-7-24-BUG
;     (THE SINGLE-FLOAT
;          (IF (> X 0)
;              X
;              3.0))
; 
; caught WARNING:
;   Derived type of X is
;     (VALUES INTEGER &OPTIONAL),
;   conflicting with its asserted type
;     SINGLE-FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN NON-INTERSECTING-THE
;     (THE SINGLE-FLOAT (THE INTEGER X))
; 
; caught WARNING:
;   Derived type of (THE INTEGER X) is
;     (VALUES INTEGER &OPTIONAL),
;   conflicting with its asserted type
;     SINGLE-FLOAT.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :NON-INTERSECTING-THE
::: Success :NON-INTERSECTING-THE

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG153-1
;     (SETF (FOO153-BLA FOO) '(1 . 1))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF FOO153-BLA) LET SB-KERNEL:%INSTANCE-SET 
; ==>
;   (THE FIXNUM #:NEW2)
; 
; caught WARNING:
;   Derived type of #:NEW2 is
;     (VALUES CONS &OPTIONAL),
;   conflicting with its asserted type
;     FIXNUM.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG202
;     (DEFUN BUG202 () T)
; 
; caught STYLE-WARNING:
;   The result type from proclamation:
;     (VALUES &OPTIONAL NULL &REST T)
;   conflicts with the definition's result type:
;     (VALUES (MEMBER T) &OPTIONAL)
; 
; caught STYLE-WARNING:
;   The previously declared FTYPE
;     (FUNCTION NIL (VALUES &OPTIONAL NULL &REST T))
;   conflicts with the definition type
;     (FUNCTION NIL (VALUES (MEMBER T) &OPTIONAL))
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running (DECLAIM &OPTIONAL
                     &REST
                     :BOGUS
                     STYLE-WARNING)

; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:55:58 AM):
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.023
::: Success (DECLAIM &OPTIONAL
                     &REST
                     :BOGUS
                     STYLE-WARNING)
; compiling file "/«PKGBUILDDIR»/tests/defmacro-test.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (LET (#) ...)

; /«PKGBUILDDIR»/tests/defmacro-test.fasl written
; compilation finished in 0:00:00.037
STYLE-WARNING:
   DEFMACRO-TEST-AUX is being redefined as a macro when it was previously defined to be a function.
; compiling file "/«PKGBUILDDIR»/tests/bug204-test.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEF :LOAD-TOPLEVEL)

; /«PKGBUILDDIR»/tests/bug204-test.fasl written
; compilation finished in 0:00:00.042
; compiling file "/«PKGBUILDDIR»/tests/symbol-macrolet-test.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling S2

; /«PKGBUILDDIR»/tests/symbol-macrolet-test.fasl written
; compilation finished in 0:00:00.005

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: ASSERT-ERROR (BUG211D :Y 2)
;     (BUG211D :Y 2)
; 
; caught STYLE-WARNING:
;   :Y is not a known argument keyword.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: ASSERT-ERROR (BUG211D :Y 2 :ALLOW-OTHER-KEYS NIL)
;     (BUG211D :Y 2 :ALLOW-OTHER-KEYS NIL)
; 
; caught STYLE-WARNING:
;   :Y is not a known argument keyword.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: LET ((FAILURE-P (NTH-VALUE 3 (COMPILE 'BUG211B '(LAMBDA # #)))))
;     (BUG211B)
; 
; caught STYLE-WARNING:
;   undefined function: BUG211B
; 
; compilation unit finished
;   Undefined function:
;     BUG211B
;   caught 1 STYLE-WARNING condition

; in: LET ((FAILURE-P (NTH-VALUE 3 (COMPILE 'BUG211C '(LAMBDA # #)))))
;     (BUG211C)
; 
; caught STYLE-WARNING:
;   undefined function: BUG211C
; 
; compilation unit finished
;   Undefined function:
;     BUG211C
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      DOLIST (FORM
;          '((TEST :Y 2) (TEST :Y 2 :ALLOW-OTHER-KEYS NIL)
;            (TEST :Y 2 :ALLOW-OTHER-KEYS NIL :ALLOW-OTHER-KEYS T)))
;     (MULTIPLE-VALUE-BIND (RESULT WARNINGS-P FAILURE-P)
;         (COMPILE NIL
;                  `(LAMBDA ()
;                     (FLET (#)
;                       ,FORM)))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL RESULT) PROGRAM-ERROR))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (RESULT) (WARNINGS-P) (FAILURE-P) &REST #:G0)
;       (DECLARE (IGNORE #:G0))
;       (ASSERT FAILURE-P)
;       (ASSERT-ERROR (FUNCALL RESULT) PROGRAM-ERROR))
; 
; caught STYLE-WARNING:
;   The variable WARNINGS-P is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (TEST :Y 2)
; 
; caught WARNING:
;   function called with unknown argument keyword :Y
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (TEST :Y 2 :ALLOW-OTHER-KEYS NIL)
; 
; caught WARNING:
;   function called with unknown argument keyword :Y
; 
; compilation unit finished
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (TEST :Y 2 :ALLOW-OTHER-KEYS NIL :ALLOW-OTHER-KEYS T)
; 
; caught WARNING:
;   function called with unknown argument keyword :Y
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFMACRO BUG172
;     (DEFMACRO BUG172 (&REST REST FOO) `(LIST ,REST ,FOO))
; 
; caught ERROR:
;   during macroexpansion of (DEFMACRO BUG172 (&REST REST FOO) ...). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    illegal or ill-formed required argument after &REST argument in DEFMACRO BUG172
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (F)
;     (FUNCALL F)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function
; 
; compilation unit finished
;   printed 1 note

; in: DEFUN BUG219-B-AUX2
;     (BUG219-B Z)
; 
; caught STYLE-WARNING:
;   undefined function: BUG219-B
; 
; compilation unit finished
;   Undefined function:
;     BUG219-B
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   1 call to COMMON-LISP-USER::BUG219-B was compiled before a compiler-macro
   was defined for it. A declaration of NOTINLINE at the call site will
   eliminate this warning, as will defining the compiler-macro before its first
   potential use.
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code

; in: LAMBDA ()
;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (DECLARE (OPTIMIZE (SAFETY 3)))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.

;     (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3)))
;      (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T)))
; 
; note: deleting unreachable code
; 
; caught STYLE-WARNING:
;   undefined function: #:LOCALY
; 
; compilation unit finished
;   Undefined function:
;     #:LOCALY
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA ()
;     (LIST (ERROR "nih") (EXT) (EXT))
; 
; note: The first argument never returns a value.

;     (EXT)
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (LET ((Y (ERROR "")))
;       (LIST X Y))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes


; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN DEBUG-RETURN-CATCH-BREAK2
;     (SETQ *Y* (THE (UNSIGNED-BYTE 8) (AREF X 4)))
; 
; caught WARNING:
;   undefined variable: *Y*
; 
; compilation unit finished
;   Undefined variable:
;     *Y*
;   caught 1 WARNING condition
; in: SB-C:LAMBDA-WITH-LEXENV ()
;     (1+ X)
; ==>
;   (+ X 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 5 notes

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: ASSERT-ERROR (PROGN (THE REAL (LIST 1)) T)
;     (THE REAL (LIST 1))
; 
; caught WARNING:
;   Derived type of (CONS 1 NIL) is
;     (VALUES CONS &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG249
;     (FLET ((BAR (Y)
;              (DECLARE (FIXNUM Y))
;              (INCF X)))
;       (LIST (BAR X) (BAR X) (BAR X)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; in:
;      LET* ((SOURCE "bug-doug-mcnaught-20030914.lisp")
;        (FASL (COMPILE-FILE-PATHNAME SOURCE)))
;     (ASSERT
;      (TYPEP *BUG-DOUG-MCNAUGHT-20030914* '(SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))))
; --> TAGBODY 
; ==>
;   (LET ((#:TEMP1 *BUG-DOUG-MCNAUGHT-20030914*))
;     (WHEN (TYPEP #:TEMP1 '(SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))) (GO :DONE))
;     (SB-KERNEL:ASSERT-ERROR
;      '(TYPEP *BUG-DOUG-MCNAUGHT-20030914*
;              '(SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)))
;      (LIST (LIST '*BUG-DOUG-MCNAUGHT-20030914* #:TEMP1)) 'NIL NIL))
; 
; caught WARNING:
;   undefined variable: *BUG-DOUG-MCNAUGHT-20030914*
; 
; compilation unit finished
;   Undefined variable:
;     *BUG-DOUG-MCNAUGHT-20030914*
;   caught 1 WARNING condition
11
; compiling file "/«PKGBUILDDIR»/tests/bug-doug-mcnaught-20030914.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (SETQ *READTABLE* ...)
; compiling (SET-MACRO-CHARACTER #\] ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFVAR *BUG-DOUG-MCNAUGHT-20030914* ...)

; /«PKGBUILDDIR»/tests/bug-doug-mcnaught-20030914.fasl written
; compilation finished in 0:00:00.034

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      ASSERT (EQL
;          (BLOCK RETURN
;            (HANDLER-CASE (CATCH 'BREAK (FUNCALL # 1 #) :TEST-BROKEN)
;                          (TYPE-ERROR (C) (RETURN-FROM RETURN :GOOD))))
;          :GOOD)
;     (HANDLER-CASE
;      (CATCH 'BREAK
;        (FUNCALL (EVAL ''PEEK-CHAR) 1 (MAKE-INSTANCE 'BROKEN-INPUT-STREAM))
;        :TEST-BROKEN)
;      (TYPE-ERROR (C) (RETURN-FROM RETURN :GOOD)))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-4 ()
;            (CATCH 'BREAK (FUNCALL # 1 #) :TEST-BROKEN))
;          (#:FUN1 (C)
;            (RETURN-FROM RETURN :GOOD)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK2
;       (SB-INT:DX-LET ((#:CELL3 #))
;         (DECLARE (IGNORABLE #:CELL3))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG0
;           (RETURN-FROM #:BLOCK2 #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (X)
;     (* X -5)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The result is a (VALUES (INTEGER -2684354555 2684354560) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER -2684354555 2684354560) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.
; 
; compilation unit finished
;   printed 1 note

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      HANDLER-CASE (EVAL
;                '(FLET ((%F (&KEY)
;                          NIL))
;                   (%F NIL NIL)))
;     (HANDLER-CASE
;      (EVAL
;       '(FLET ((%F #
;                 NIL))
;          (%F NIL NIL)))
;      (ERROR (C) :GOOD) (:NO-ERROR (VAL) (ERROR "no error: ~S" VAL)))
; --> PROGN BLOCK MULTIPLE-VALUE-CALL BLOCK RETURN-FROM HANDLER-CASE 
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-4 ()
;            (RETURN-FROM #:|normal-return| (EVAL '#)))
;          (#:FUN1 (C)
;            :GOOD))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK2
;       (SB-INT:DX-LET ((#:CELL3 #))
;         (DECLARE (IGNORABLE #:CELL3))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG0
;           (RETURN-FROM #:BLOCK2 #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: FLET ((%F (&KEY) NIL))
;     (%F NIL NIL)
; 
; caught WARNING:
;   function called with unknown argument keyword NIL
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      HANDLER-CASE (EVAL
;                '(LABELS ((%F (&KEY X)
;                            X))
;                   (%F NIL NIL)))
;     (HANDLER-CASE
;      (EVAL
;       '(LABELS ((%F #
;                   X))
;          (%F NIL NIL)))
;      (ERROR (C) :GOOD) (:NO-ERROR (VAL) (ERROR "no error: ~S" VAL)))
; --> PROGN BLOCK MULTIPLE-VALUE-CALL BLOCK RETURN-FROM HANDLER-CASE 
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-4 ()
;            (RETURN-FROM #:|normal-return| (EVAL '#)))
;          (#:FUN1 (C)
;            :GOOD))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK2
;       (SB-INT:DX-LET ((#:CELL3 #))
;         (DECLARE (IGNORABLE #:CELL3))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG0
;           (RETURN-FROM #:BLOCK2 #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LABELS ((%F (&KEY X) X))
;     (%F NIL NIL)
; 
; caught WARNING:
;   function called with unknown argument keyword NIL
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: ASSERT-ERROR (SET PI 3)
;     (SET PI 3)
; 
; caught WARNING:
;   Constant 3.141592653589793d0 conflicts with its asserted type SYMBOL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: ASSERT-ERROR (PROGV '(PI S) '(3 PI) (SYMBOL-VALUE X))
;     (SYMBOL-VALUE X)
; 
; caught WARNING:
;   undefined variable: X
; 
; compilation unit finished
;   Undefined variable:
;     X
;   caught 1 WARNING condition

; in:
;      ASSERT-ERROR (PROGV '(*SPECIAL-CONS*) '("no hope") (CAR *SPECIAL-CONS*))
;     (CAR *SPECIAL-CONS*)
; 
; caught WARNING:
;   undefined variable: *SPECIAL-CONS*
; 
; compilation unit finished
;   Undefined variable:
;     *SPECIAL-CONS*
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN COMPLEX-FUNCTION-SIGNATURE
;     (DEFUN COMPLEX-FUNCTION-SIGNATURE (&OPTIONAL X &REST Y &KEY Z1 Z2) (CONS X Y))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL X &REST Y &KEY Z1
;                                                      Z2)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL X &REST Y &KEY Z1
;                                                      Z2)
; 
; caught STYLE-WARNING:
;   The variable Z1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Z2 is defined but never used.
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
::: Running :COMPLEX-CALL-DOESNT-WARN
::: Success :COMPLEX-CALL-DOESNT-WARN
::: Running :NON-REQUIRED-ARGS-UPDATE-INFO
::: Success :NON-REQUIRED-ARGS-UPDATE-INFO
::: Running :NESTED-INLINE-CALLS
::: Success :NESTED-INLINE-CALLS
::: Running :NESTED-MAYBE-INLINE-CALLS
::: Success :NESTED-MAYBE-INLINE-CALLS
::: Running :INLINE-CALLS
::: Success :INLINE-CALLS
::: Running :MAYBE-INLINE-CALLS
; in: LAMBDA (X)
;     (FOO-MAYBE-INLINE X)
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
; 
; compilation unit finished
;   printed 1 note
::: Success :MAYBE-INLINE-CALLS
::: Running :BUG-405

; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:10 AM):
; compiling (LET (OUTER-LET-VAR) ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: LET (OUTER-LET-VAR)
;     (LAMBDA (A) 'FOO)
; ==>
;   #'(LAMBDA (A) 'FOO)
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.014
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:10 AM):
; compiling (DECLAIM (OPTIMIZE #))
; compiling (DEFSTRUCT BUG-405-FOO ...)
; compiling (LET NIL ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: LET ()
;     (BUG-405-FOO-BAR FOO)
; --> SB-KERNEL:%INSTANCE-REF 
; ==>
;   (THE BUG-405-FOO FOO)
; 
; caught WARNING:
;   undefined variable: FOO

;     (FROB X (BUG-405-FOO-BAR FOO))
; 
; caught STYLE-WARNING:
;   undefined function: FROB
; 
; compilation unit finished
;   Undefined function:
;     FROB
;   Undefined variable:
;     FOO
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.130
::: Success :BUG-405
::: Running :BUG-235A
::: Success :BUG-235A
::: Running :COMPILED-DEBUG-FUNS-LEAK
::: Success :COMPILED-DEBUG-FUNS-LEAK
::: Running :HAIRY-PROGV-TYPE-CHECKING
::: Success :HAIRY-PROGV-TYPE-CHECKING
::: Running :FILL-COMPLEX-SINGLE-FLOAT
::: Success :FILL-COMPLEX-SINGLE-FLOAT
::: Running :MAKE-ARRAY-SYMBOL-AS-INITIAL-ELEMENT
::: Success :MAKE-ARRAY-SYMBOL-AS-INITIAL-ELEMENT
::: Running :REGRESSION-1.0.29.54
::: Success :REGRESSION-1.0.29.54
::: Running :SLOT-VALUE-ON-STRUCTURE
::: Success :SLOT-VALUE-ON-STRUCTURE
::: Running :WITH-SLOTS-THE
::: Success :WITH-SLOTS-THE
::: Running :BUG-458354
::: Success :BUG-458354
::: Running :BUG-542807
::: Success :BUG-542807
::: Running :DEFMACRO-NOT-LIST-LAMBDA-LIST
::: Success :DEFMACRO-NOT-LIST-LAMBDA-LIST
::: Running :BUG-308951
::: Success :BUG-308951

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BUG-308914-STORAGE
;     (BUG-308914-UNKNOWN X)
; 
; caught STYLE-WARNING:
;   undefined function: BUG-308914-UNKNOWN

;     (THE (SIMPLE-ARRAY FLT (*)) (BUG-308914-UNKNOWN X))
; 
; caught STYLE-WARNING:
;   undefined type: FLT
; 
; compilation unit finished
;   Undefined type:
;     FLT
;   Undefined function:
;     BUG-308914-UNKNOWN
;   caught 2 STYLE-WARNING conditions
::: Running :BUG-308914-WORKAROUND
; in: LAMBDA (LUMPS &KEY CG)
;     (LAMBDA (LUMPS &KEY CG)
;       (LET ((NODES (MAP 'LIST # LUMPS)))
;         (SETF (AREF NODES 0) 2)
;         (ASSERT (EVERY #'~= (APPLY #'CONCATENATE 'LIST NODES) '(2 3 6 9)))))
; 
; caught STYLE-WARNING:
;   The variable CG is defined but never used.

;     (BUG-308914-STORAGE LUMP)
; --> BLOCK 
; ==>
;   (THE (SIMPLE-ARRAY FLT (*)) (BUG-308914-UNKNOWN X))
; 
; note: type assertion too complex to check:
;  (VALUES (SIMPLE-ARRAY FLT (*)) &REST T).

;     (ASSERT (EVERY #'~= (APPLY #'CONCATENATE 'LIST NODES) '(2 3 6 9)))
; --> TAGBODY LET WHEN IF EVERY LET BLOCK FLET MAP TRULY-THE 
; ==>
;   (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G33 #:G34)
; 
; note: unable to open code because: can't determine sequence argument type

;     #'~=
; 
; note: deleting unreachable code

;     (SETF (AREF NODES 0) 2)
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF AREF) #:NEW1 #:NODES0 0)
; 
; caught WARNING:
;   Derived type of #:NODES0 is
;     (VALUES LIST &OPTIONAL),
;   conflicting with its asserted type
;     ARRAY.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; in: LAMBDA (LUMPS &KEY CG)
;     (BUG-308914-STORAGE LUMP)
; --> BLOCK THE 
; ==>
;   (BUG-308914-UNKNOWN X)
; 
; caught STYLE-WARNING:
;   undefined function: BUG-308914-UNKNOWN
; 
; caught STYLE-WARNING:
;   undefined type: FLT

;     #'~=
; 
; caught STYLE-WARNING:
;   undefined function: ~=
; 
; compilation unit finished
;   Undefined type:
;     FLT
;   Undefined functions:
;     BUG-308914-UNKNOWN ~=
;   caught 1 WARNING condition
;   caught 4 STYLE-WARNING conditions
;   printed 3 notes
::: Success :BUG-308914-WORKAROUND
::: Running :INLINED-FUNCTION-IN-SOURCE-PATH
::: Success :INLINED-FUNCTION-IN-SOURCE-PATH
::: Running :BUG-795705
::: Success :BUG-795705
::: Running (LOAD-TIME-VALUE :TYPE-DERIVATION)

; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:43 AM):
; compiling (DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST
;     (+ * 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; compilation unit finished
;   printed 5 notes


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.024
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:43 AM):
; compiling (DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST
;     (LENGTH *)
; 
; 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.
; 
; compilation unit finished
;   printed 2 notes


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.016
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:43 AM):
; compiling (DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST ...)

; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:43 AM):
; compiling (DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST ...)

; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.011
::: Success (LOAD-TIME-VALUE :TYPE-DERIVATION)

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: WITH-TEST (:NAME (LOAD-TIME-VALUE :ERRORS))
;     (LOAD-TIME-VALUE-ERROR-TEST-1)
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-TIME-VALUE-ERROR-TEST-1

;     (LOAD-TIME-VALUE-ERROR-TEST-2)
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-TIME-VALUE-ERROR-TEST-2
; 
; compilation unit finished
;   Undefined functions:
;     LOAD-TIME-VALUE-ERROR-TEST-1 LOAD-TIME-VALUE-ERROR-TEST-2
;   caught 2 STYLE-WARNING conditions
::: Running (LOAD-TIME-VALUE :ERRORS)

; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:43 AM):
; compiling (DEFVAR *LOAD-TIME-VALUE-ERROR-VALUE* ...)
; compiling (DECLAIM (FIXNUM *LOAD-TIME-VALUE-ERROR-VALUE*))
; compiling (DEFUN LOAD-TIME-VALUE-ERROR-TEST-1 ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: DEFUN LOAD-TIME-VALUE-ERROR-TEST-1
;     (THE LIST (LOAD-TIME-VALUE *LOAD-TIME-VALUE-ERROR-VALUE*))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of (LOAD-TIME-VALUE *LOAD-TIME-VALUE-ERROR-VALUE*) is
;     (VALUES FIXNUM &OPTIONAL),
;   conflicting with its asserted type
;     LIST.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:43 AM):
; compiling (DEFUN LOAD-TIME-VALUE-ERROR-TEST-2 ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: DEFUN LOAD-TIME-VALUE-ERROR-TEST-2
;     (THE LIST (LOAD-TIME-VALUE 10))
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Derived type of (LOAD-TIME-VALUE 10) is
;     (VALUES (INTEGER 10 10) &OPTIONAL),
;   conflicting with its asserted type
;     LIST.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 1 note


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.017
::: Success (LOAD-TIME-VALUE :ERRORS)
::: Running :UNEXPECTED-COMPILER-OUTPUT
::: Success :UNEXPECTED-COMPILER-OUTPUT

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: WITH-TEST (:NAME :BUG-493380)
;     (LAMBDA (CONDITION IF)
;       (THROW 'DEBUG
;         (IF (TYPEP CONDITION 'SERIOUS-CONDITION)
;             :DEBUG
;             :OOPS)))
; ==>
;   #'(LAMBDA (CONDITION IF)
;       (THROW 'DEBUG
;         (IF (TYPEP CONDITION 'SERIOUS-CONDITION)
;             :DEBUG
;             :OOPS)))
; 
; caught STYLE-WARNING:
;   The variable IF is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :BUG-493380
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:44 AM):
; 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     end of file on #<SB-INT:FORM-TRACKING-STREAM
;                      for "file /«PKGBUILDDIR»/tests/file-compile-tmp.lisp"
;                      {5316F7B1}>
;   
;     (in form starting at line: 1, column: 0, position: 0)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; compilation aborted after 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:44 AM):
; 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     Package NO-PKG does not exist.
;   
;       Line: 1, Column: 18, File-Position: 17
;   
;       Stream: #<SB-INT:FORM-TRACKING-STREAM
;                 for "file /«PKGBUILDDIR»/tests/file-compile-tmp.lisp"
;                 {5317F1A9}>
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; compilation aborted after 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:44 AM):
; 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     Symbol "NO-SUCH-SYM" not found in the COMMON-LISP package.
;   
;       Line: 1, Column: 15, File-Position: 14
;   
;       Stream: #<SB-INT:FORM-TRACKING-STREAM
;                 for "file /«PKGBUILDDIR»/tests/file-compile-tmp.lisp"
;                 {5318EA59}>
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; compilation aborted after 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:44 AM):
; 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     too many dots
;   
;       Line: 2, Column: -1, File-Position: 2
;   
;       Stream: #<SB-INT:FORM-TRACKING-STREAM
;                 for "file /«PKGBUILDDIR»/tests/file-compile-tmp.lisp"
;                 {5319EA59}>
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; compilation aborted after 0:00:00.005
::: Success :BUG-493380
::: Running :CMACRO-SIGNALS-ERROR
; in: LAMBDA ()
;     (CMACRO-SIGNALS-ERROR)
; 
; caught WARNING:
;   Error during compiler-macroexpansion of (CMACRO-SIGNALS-ERROR). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    oops
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success :CMACRO-SIGNALS-ERROR
::: Running (:CMACRO-WITH-SIMPLE-KEY :NO-KEY)
::: Success (:CMACRO-WITH-SIMPLE-KEY :NO-KEY)
::: Running (:CMACRO-WITH-SIMPLE-KEY :CONSTANT-KEY)
::: Success (:CMACRO-WITH-SIMPLE-KEY :CONSTANT-KEY)
::: Running (:CMACRO-WITH-SIMPLE-KEY :VARIABLE-KEY)
; in: LAMBDA (X)
;     (CMACRO-WITH-SIMPLE-KEY X 42)
; 
; note: Argument X in keyword position is not a self-evaluating symbol,
;       preventing compiler-macro expansion.
; 
; note: The first argument (in keyword position) is not a constant, weakening keyword
; argument checking.
; 
; compilation unit finished
;   printed 1 note
::: Success (:CMACRO-WITH-SIMPLE-KEY :VARIABLE-KEY)
::: Running (:CMACRO-WITH-NASTY-KEY :NO-KEY)
::: Success (:CMACRO-WITH-NASTY-KEY :NO-KEY)
::: Running (:CMACRO-WITH-NASTY-KEY :CONSTANT-KEY)
; in: LAMBDA ()
;     (CMACRO-WITH-NASTY-KEY 'NASTY-KEY 42)
; 
; note: Argument 'NASTY-KEY in keyword position is not a self-evaluating
;       symbol, preventing compiler-macro expansion.
::: Success (:CMACRO-WITH-NASTY-KEY :CONSTANT-KEY)
::: Running (:CMACRO-WITH-NASTY-KEY :VARIABLE-KEY)
; in: LAMBDA (NASTY-KEY)
;     (CMACRO-WITH-NASTY-KEY NASTY-KEY 42)
; 
; note: Argument NASTY-KEY in keyword position is not a self-evaluating symbol,
;       preventing compiler-macro expansion.
; 
; note: The first argument (in keyword position) is not a constant, weakening keyword
; argument checking.
; 
; compilation unit finished
;   printed 1 note
::: Success (:CMACRO-WITH-NASTY-KEY :VARIABLE-KEY)
::: Running (:CMACRO-WITH-TRICKY-KEY :NO-KEY)
::: Success (:CMACRO-WITH-TRICKY-KEY :NO-KEY)
::: Running (:CMACRO-WITH-TRICKY-KEY :CONSTANT-QUOTED-KEY)
; in: LAMBDA ()
;     (CMACRO-WITH-TRICKY-KEY 'TRICKY-KEY 42)
; 
; note: Argument 'TRICKY-KEY in keyword position is not a self-evaluating
;       symbol, preventing compiler-macro expansion.
::: Success (:CMACRO-WITH-TRICKY-KEY :CONSTANT-QUOTED-KEY)
::: Running (:CMACRO-WITH-TRICKY-KEY :CONSTANT-UNQUOTED-KEY)
::: Success (:CMACRO-WITH-TRICKY-KEY :CONSTANT-UNQUOTED-KEY)
::: Running (:CMACRO-WITH-TRICKY-KEY :VARIABLE-KEY)
; in: LAMBDA (X)
;     (CMACRO-WITH-TRICKY-KEY X 42)
; 
; note: Argument X in keyword position is not a self-evaluating symbol,
;       preventing compiler-macro expansion.
; 
; note: The first argument (in keyword position) is not a constant, weakening keyword
; argument checking.
; 
; compilation unit finished
;   printed 1 note
::: Success (:CMACRO-WITH-TRICKY-KEY :VARIABLE-KEY)
::: Running :FUNCALL-COMPILER-MACRO
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success :FUNCALL-COMPILER-MACRO
::: Running :SETF-FUNCTION-WITH-SETF-EXPANDER
::: Success :SETF-FUNCTION-WITH-SETF-EXPANDER
::: Running :COMPILE-SETF-FUNCTION
::: Success :COMPILE-SETF-FUNCTION
::: Running :CUT-TO-WIDTH-BAD-CONSTANT
::: Success :CUT-TO-WIDTH-BAD-CONSTANT
::: Running :PROGV-DEBUG-3
; in: LAMBDA (*V*)
;     (PROGV '(*V*) 'NIL)
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (LABELS ((#:UNBIND1 (SB-C::VARS)
;              (DECLARE (OPTIMIZE # #))
;              (LET (#)
;                (DOLIST # # #)))
;            (#:BIND0 (SB-C::VARS SB-C::VALS)
;              (DECLARE (OPTIMIZE # # #))
;              (COND (#) (# #) (T # #))))
;     (#:BIND0 '(*V*) 'NIL))
; 
; caught STYLE-WARNING:
;   Repeated OPTIMIZE quality. Using (DEBUG 3)
; 
; caught STYLE-WARNING:
;   Repeated OPTIMIZE quality. Using (DEBUG 3)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Success :PROGV-DEBUG-3
::: Running :RESTRICT-COMPILER-POLICY-RESULT
::: Success :RESTRICT-COMPILER-POLICY-RESULT
More types than ltypes in FAST-LOGTEST-C/FIXNUM, translating LOGTEST.
More types than ltypes in FAST-LOGTEST/FIXNUM, translating LOGTEST.
More types than ltypes in FAST-LOGTEST-C/SIGNED, translating LOGTEST.
More types than ltypes in FAST-LOGTEST-C/UNSIGNED, translating LOGTEST.
More types than ltypes in FAST-LOGTEST/UNSIGNED, translating LOGTEST.
More types than ltypes in FAST-LOGTEST/SIGNED, translating LOGTEST.
More types than ltypes in >/DOUBLE-FLOAT-ZERO, translating >.
More types than ltypes in >/SINGLE-FLOAT-ZERO, translating >.
More types than ltypes in FAST-IF->-C/FIXNUM, translating >.
More types than ltypes in >/DOUBLE-FLOAT, translating >.
More types than ltypes in >/SINGLE-FLOAT, translating >.
More types than ltypes in FAST-IF->/FIXNUM, translating >.
More types than ltypes in FAST-IF->-C/UNSIGNED, translating >.
More types than ltypes in FAST-IF->-C/SIGNED, translating >.
More types than ltypes in FAST-IF->/SIGNED, translating >.
More types than ltypes in FAST-IF->/UNSIGNED, translating >.
More types than ltypes in FAST-EQL-C/FIXNUM, translating EQL.
More types than ltypes in FAST-EQL/FIXNUM, translating EQL.
More types than ltypes in FAST-IF-EQL-C/UNSIGNED, translating EQL.
More types than ltypes in FAST-IF-EQL-C/SIGNED, translating EQL.
More types than ltypes in GENERIC-EQL-C/FIXNUM, translating EQL.
More types than ltypes in FAST-IF-EQL/SIGNED, translating EQL.
More types than ltypes in FAST-IF-EQL/UNSIGNED, translating EQL.
More types than ltypes in GENERIC-EQL/FIXNUM, translating EQL.
More types than ltypes in FAST-CHAR=/CHARACTER, translating CHAR=.
More types than ltypes in EQL/DOUBLE-FLOAT-ZERO, translating =.
More types than ltypes in EQL/SINGLE-FLOAT-ZERO, translating =.
More types than ltypes in EQL/DOUBLE-FLOAT, translating =.
More types than ltypes in EQL/SINGLE-FLOAT, translating =.
More types than ltypes in FAST-CHAR</CHARACTER, translating CHAR<.
More types than ltypes in FAST-CHAR>/CHARACTER, translating CHAR>.
More types than ltypes in </DOUBLE-FLOAT-ZERO, translating <.
More types than ltypes in </SINGLE-FLOAT-ZERO, translating <.
More types than ltypes in FAST-IF-<-C/FIXNUM, translating <.
More types than ltypes in </DOUBLE-FLOAT, translating <.
More types than ltypes in </SINGLE-FLOAT, translating <.
More types than ltypes in FAST-IF-</FIXNUM, translating <.
More types than ltypes in FAST-IF-<-C/UNSIGNED, translating <.
More types than ltypes in FAST-IF-<-C/SIGNED, translating <.
More types than ltypes in FAST-IF-</SIGNED, translating <.
More types than ltypes in FAST-IF-</UNSIGNED, translating <.
More ltypes than types in UNLINK-UNWIND-PROTECT, translating %UNWIND-PROTECT-BREAKUP.
More ltypes than types in UNLINK-CATCH-BLOCK, translating %CATCH-BREAKUP.
More types than ltypes in TEST-FIXNUM-MOD-POWER-OF-TWO, translating FIXNUM-MOD-P.
More types than ltypes in TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM+1, translating FIXNUM-MOD-P.
More types than ltypes in TEST-FIXNUM-MOD-TAGGED-UNSIGNED-IMM, translating FIXNUM-MOD-P.
More types than ltypes in TEST-FIXNUM-MOD-TAGGED-UNSIGNED, translating FIXNUM-MOD-P.
More types than ltypes in FAST-LOGBITP-C/FIXNUM, translating %LOGBITP.
More types than ltypes in FAST-LOGBITP-C/SIGNED, translating %LOGBITP.
More types than ltypes in FAST-LOGBITP-C/UNSIGNED, translating %LOGBITP.
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; caught STYLE-WARNING:
;   Call to SB-C::BUG-305 could not be inlined because its source code was not
;   saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to
;   save function definitions for inlining.
; in: LAMBDA ()
;     (FTYPE (FUNCTION NIL (INTEGER 0 10)) SB-C::BUG-305)
; 
; caught STYLE-WARNING:
;   undefined function: BUG-305
; 
; compilation unit finished
;   Undefined function:
;     BUG-305
;   caught 2 STYLE-WARNING conditions
; 
; caught STYLE-WARNING:
;   undefined function: BUG-305
; 
; compilation unit finished
;   Undefined function:
;     BUG-305
;   caught 1 STYLE-WARNING condition


; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN BES-JN
;     (SB-C::BES-J0 SB-C::X)
; 
; caught STYLE-WARNING:
;   undefined function: BES-J0

;     (SB-C::BES-J1 SB-C::X)
; 
; caught STYLE-WARNING:
;   undefined function: BES-J1
; 
; compilation unit finished
;   Undefined functions:
;     BES-J0 BES-J1
;   caught 2 STYLE-WARNING conditions
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :REF)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :REF)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :TYPEP)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :TYPEP)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :EQ/EQL)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :EQ/EQL)
::: Running (:COMPILER :CONSTRAINT-PROPAGATION :CAST)
::: Success (:COMPILER :CONSTRAINT-PROPAGATION :CAST)

; in: DEFUN TEST-TARGET-FUN-CALLED
;     #'SB-C::CALLER-FUN-1
; 
; caught STYLE-WARNING:
;   undefined function: CALLER-FUN-1
; 
; compilation unit finished
;   Undefined function:
;     CALLER-FUN-1
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      MACROLET ((FROB (FORM EXPECTED-EXPECTED-TYPE)
;             `(HANDLER-CASE ,FORM (TYPE-ERROR (C) (ASSERT #))
;                            (:NO-ERROR (&REST VALS)
;                             (ERROR "~S returned values: ~S" ',FORM VALS)))))
;     (SB-C::MAKE-TRICKY-DEFAULTS :FUN 3)
; 
; caught WARNING:
;   Constant 3 conflicts with its asserted type FUNCTION.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      MACROLET ((FROB (FORM EXPECTED-EXPECTED-TYPE)
;             `(HANDLER-CASE ,FORM (TYPE-ERROR (C) (ASSERT #))
;                            (:NO-ERROR (&REST VALS)
;                             (ERROR "~S returned values: ~S" ',FORM VALS)))))
;     (SB-C::MAKE-TRICKY-DEFAULTS :NUM #'IDENTITY)
; 
; caught WARNING:
;   Derived type of #'IDENTITY is
;     (VALUES (FUNCTION (T) (VALUES T &OPTIONAL)) &OPTIONAL),
;   conflicting with its asserted type
;     FIXNUM.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      LET ((FUN
;        (COMPILE NIL
;                 '(LAMBDA (&KEY #)
;                    (DECLARE #
;                             #)
;                    KEY))))
;     (HANDLER-CASE (FUNCALL SB-C::FUN :KEY T)
;                   (TYPE-ERROR (SB-C::C)
;                    (ASSERT (EQ (TYPE-ERROR-EXPECTED-TYPE SB-C::C) 'INTEGER)))
;                   (:NO-ERROR (&REST SB-C::VALS) (ERROR "no error")))
; --> BLOCK MULTIPLE-VALUE-CALL LAMBDA 
; ==>
;   #'(LAMBDA (&REST SB-C::VALS) (ERROR "no error"))
; 
; caught STYLE-WARNING:
;   The variable VALS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFINE-COMPILER-MACRO (SETF TEST-CMACRO-4)
;     (DEFINE-COMPILER-MACRO (SETF SB-C::TEST-CMACRO-4)
;         (&WHOLE SB-KERNEL:FORM SB-C::VALUE)
;       ''SB-C::OK)
; --> PROGN FUNCTION LET* 
; ==>
;   (LET* ((SB-KERNEL:FORM #:CMACRO-&WHOLE947)
;          (SB-C::VALUE (CAR (CDR #:WHOLE945))))
;     (BLOCK SB-C::TEST-CMACRO-4 ''SB-C::OK))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VALUE is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: ASSERT (EQ 'OK (FUNCALL (LAMBDA () (SETF # 'ZOT))))
;     (SETF (SB-C::TEST-CMACRO-4) 'SB-C::ZOT)
; ==>
;   (LET* ((#:NEW0 'SB-C::ZOT))
;     (FUNCALL #'(SETF SB-C::TEST-CMACRO-4) #:NEW0))
; 
; caught STYLE-WARNING:
;   The variable #:NEW0 is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (V X)
;     (SVREF SB-C::V (THE FUNCTION SB-C::X))
; --> LET 
; ==>
;   SB-C::V
; 
; note: deleting unreachable code

;     (THE FUNCTION SB-C::X)
; ==>
;   SB-C::X
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN NSU
;     (DEFUN SB-C::NSU (SB-C::VERTICES SB-C::E368)
;       (LET ((SB-C::I368S (SB-C::G368-I368S #)))
;         (LET ((SB-C::FUIS #))
;           (FORMAT T "~&FUIS=~S~%" SB-C::FUIS)
;           (OR SB-C::FUIS (SB-C::H368 0 SB-C::I368S)))))
; 
; caught STYLE-WARNING:
;   The variable VERTICES is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
FUIS=NIL
NSU returned #S(S368 :G368 #S(G368 :I368S #()))
*H368-WAS-CALLED-P*=T

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN FROB-367
;     (DEFUN SB-C::FROB-367 (SB-C::V SB-C::W)
;       (LET ((SB-C::X (SB-C::G367-I367S #)))
;         (LET* ((SB-C::Y #) (SB-C::Z #))
;           (FORMAT T "~&Y=~S Z=~S~%" SB-C::Y SB-C::Z)
;           (SB-C::G367-I367S SB-C::Z))))
; 
; caught STYLE-WARNING:
;   The variable V is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; compiling file "/«PKGBUILDDIR»/tests/circ-tree-test.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (COMPILE NIL ...)

; /«PKGBUILDDIR»/tests/circ-tree-test.fasl written
; compilation finished in 0:00:00.006

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in:
;      ASSERT (EQ :OK
;             (HANDLER-CASE (FUNCALL (LAMBDA (&WHOLE X) (LIST &WHOLE X)))
;                           (PROGRAM-ERROR NIL :OK)))
;     (FUNCALL (LAMBDA (&WHOLE SB-C::X) (LIST &WHOLE SB-C::X)))
; ==>
;   (SB-C::%FUNCALL (LAMBDA (&WHOLE SB-C::X) (LIST &WHOLE SB-C::X)))
; 
; caught ERROR:
;   Bad lambda list keyword &WHOLE in: (&WHOLE X)
; 
; compilation unit finished
;   caught 1 ERROR condition
; disassembly for DISASSEMBLE-SOURCE-FORM-BUG
; Size: 180 bytes. Origin: #x52986AE0
; AE0:       21049AE5         LDR R0, [NULL, #1057]           ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; AE4:       08008BE5         STR R0, [CFP, #8]

;;; [4] (BLOCK DISASSEMBLE-SOURCE-FORM-BUG (LIST X Y Z))

; AE8:       51F48AE5         STR PC, [NULL, #1105]           ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; AEC:       9C709FE5         LDR OCFP, [PC, #156]
; AF0:       001097E5         LDR R1, [OCFP]
; AF4:       047097E5         LDR OCFP, [OCFP, #4]
; AF8:       181081E2         ADD R1, R1, #24
; AFC:       070051E1         CMP R1, OCFP
; B00:       1B00008A         BHI L1
; B04:       84709FE5         LDR OCFP, [PC, #132]
; B08:       001087E5         STR R1, [OCFP]
; B0C:       181041E2         SUB R1, R1, #24
; B10: L0:   031081E3         ORR R1, R1, #3
; B14:       0100A0E1         MOV R0, R1
; B18:       038000E5         STR R8, [R0, #-3]
; B1C:       080080E2         ADD R0, R0, #8
; B20:       070000E5         STR R0, [R0, #-7]
; B24:       033000E5         STR LEXENV, [R0, #-3]
; B28:       080080E2         ADD R0, R0, #8
; B2C:       070000E5         STR R0, [R0, #-7]
; B30:       032000E5         STR R2, [R0, #-3]
; B34:       01A080E5         STR NULL, [R0, #1]
; B38:       51A48AE5         STR NULL, [NULL, #1105]         ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; B3C:       69749AE5         LDR OCFP, [NULL, #1129]         ; SB-VM::*PSEUDO-ATOMIC-INTERRUPTED*
; B40:       0A0057E1         CMP OCFP, NULL
; B44:       2771A0B1         MOVLT OCFP, OCFP, LSR #2
; B48:       000000BF         SWILT #0

; B4C:       0100A0E1         MOV R0, R1
; B50:       00709BE5         LDR OCFP, [CFP]
; B54:       04109BE5         LDR R1, [CFP, #4]
; B58:       09B48AE5         STR CFP, [NULL, #1033]          ; SB-VM::*CONTROL-STACK-POINTER*
; B5C:       07B0A0E1         MOV CFP, OCFP
; B60:       00F028E3         MSR CPSR_f, #0
; B64:       03F041E2         SUB PC, R1, #3
; B68:       F001F0E70A       DEBUG-TRAP 10                   ; Error trap
; B6D:       04               BYTE #X04
; B6E:       19               BYTE #X19                       ; INVALID-ARG-COUNT-ERROR
; B6F:       FE0403           BYTE #XFE, #X04, #X03           ; NARGS
; B72:       .ALIGN           4
; B74: L1:   1810A0E3         MOV R1, 24
; B78:       02402DE9         BYTE #X02, #X40, #X2D, #XE9
; B7C:       08109FE5         LDR R1, [PC, #8]
; B80:       31FF2FE1         BLX R1
; B84:       0240BDE8         BYTE #X02, #X40, #XBD, #XE8
; B88:       E0FFFFEA         B L0
; B8C:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; B90:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
; disassembly for DISASSEMBLE-SOURCE-FORM-BUG
; Size: 180 bytes. Origin: #x529DBDE0
; DE0:       21049AE5         LDR R0, [NULL, #1057]           ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; DE4:       08008BE5         STR R0, [CFP, #8]

;;; [4] (BLOCK DISASSEMBLE-SOURCE-FORM-BUG (LIST X Y Z))

; DE8:       51F48AE5         STR PC, [NULL, #1105]           ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; DEC:       9C709FE5         LDR OCFP, [PC, #156]
; DF0:       001097E5         LDR R1, [OCFP]
; DF4:       047097E5         LDR OCFP, [OCFP, #4]
; DF8:       181081E2         ADD R1, R1, #24
; DFC:       070051E1         CMP R1, OCFP
; E00:       1B00008A         BHI L1
; E04:       84709FE5         LDR OCFP, [PC, #132]
; E08:       001087E5         STR R1, [OCFP]
; E0C:       181041E2         SUB R1, R1, #24
; E10: L0:   031081E3         ORR R1, R1, #3
; E14:       0100A0E1         MOV R0, R1
; E18:       038000E5         STR R8, [R0, #-3]
; E1C:       080080E2         ADD R0, R0, #8
; E20:       070000E5         STR R0, [R0, #-7]
; E24:       033000E5         STR LEXENV, [R0, #-3]
; E28:       080080E2         ADD R0, R0, #8
; E2C:       070000E5         STR R0, [R0, #-7]
; E30:       032000E5         STR R2, [R0, #-3]
; E34:       01A080E5         STR NULL, [R0, #1]
; E38:       51A48AE5         STR NULL, [NULL, #1105]         ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; E3C:       69749AE5         LDR OCFP, [NULL, #1129]         ; SB-VM::*PSEUDO-ATOMIC-INTERRUPTED*
; E40:       0A0057E1         CMP OCFP, NULL
; E44:       2771A0B1         MOVLT OCFP, OCFP, LSR #2
; E48:       000000BF         SWILT #0

; E4C:       0100A0E1         MOV R0, R1
; E50:       00709BE5         LDR OCFP, [CFP]
; E54:       04109BE5         LDR R1, [CFP, #4]
; E58:       09B48AE5         STR CFP, [NULL, #1033]          ; SB-VM::*CONTROL-STACK-POINTER*
; E5C:       07B0A0E1         MOV CFP, OCFP
; E60:       00F028E3         MSR CPSR_f, #0
; E64:       03F041E2         SUB PC, R1, #3
; E68:       F001F0E70A       DEBUG-TRAP 10                   ; Error trap
; E6D:       04               BYTE #X04
; E6E:       19               BYTE #X19                       ; INVALID-ARG-COUNT-ERROR
; E6F:       FE0403           BYTE #XFE, #X04, #X03           ; NARGS
; E72:       .ALIGN           4
; E74: L1:   1810A0E3         MOV R1, 24
; E78:       02402DE9         BYTE #X02, #X40, #X2D, #XE9
; E7C:       08109FE5         LDR R1, [PC, #8]
; E80:       31FF2FE1         BLX R1
; E84:       0240BDE8         BYTE #X02, #X40, #XBD, #XE8
; E88:       E0FFFFEA         B L0
; E8C:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; E90:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
test
; compiling file "/«PKGBUILDDIR»/tests/bug-417.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling NIL
; compiling NIL
; compiling (DEFMETHOD FROB ...)
; file: /«PKGBUILDDIR»/tests/bug-417.lisp
; in: DEFMETHOD FROB (PACKAGE T)
;     (STRING= (PACKAGE-NAME PACKAGE) "FOO")
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SIMPLE-ARRAY CHARACTER (*))
;                               (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;                               NULL), not a STRING.
; 
; compilation unit finished
;   printed 1 note


; /«PKGBUILDDIR»/tests/bug-417.fasl written
; compilation finished in 0:00:00.117
; compiling file "/«PKGBUILDDIR»/tests/compiler-impure-tmp.lisp" (written 11 JUN 2015 08:56:50 AM):
; compiling (SETF *LAMBDA* ...)

; /«PKGBUILDDIR»/tests/compiler-impure-tmp.fasl written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/tests/compiler-impure-tmp.lisp" (written 11 JUN 2015 08:56:50 AM):
; compiling (SETF *LAMBDA* ...)

; /«PKGBUILDDIR»/tests/compiler-impure-tmp.fasl written
; compilation finished in 0:00:00.013
; compiling file "/«PKGBUILDDIR»/tests/compiler-impure-tmp.lisp" (written 11 JUN 2015 08:56:50 AM):
; compiling (SETF *LAMBDA* ...)

; /«PKGBUILDDIR»/tests/compiler-impure-tmp.fasl written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/tests/compiler-impure-tmp.lisp" (written 11 JUN 2015 08:56:50 AM):
; compiling (SETF *LAMBDA* ...)

; /«PKGBUILDDIR»/tests/compiler-impure-tmp.fasl written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/tests/compiler-impure-tmp.lisp" (written 11 JUN 2015 08:56:50 AM):
; compiling (SETF *LAMBDA* ...)

; /«PKGBUILDDIR»/tests/compiler-impure-tmp.fasl written
; compilation finished in 0:00:00.011

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: DEFUN SNEAK-SET-DONT-SET-ME
;     (SETQ SB-C::DONT-SET-ME SB-C::X)
; 
; caught WARNING:
;   undefined variable: DONT-SET-ME
; 
; compilation unit finished
;   Undefined variable:
;     DONT-SET-ME
;   caught 1 WARNING condition

; in: DEFUN SNEAK-SET-DONT-SET-ME2
;     (SETQ SB-C::DONT-SET-ME2 SB-C::X)
; 
; caught WARNING:
;   undefined variable: DONT-SET-ME2
; 
; compilation unit finished
;   Undefined variable:
;     DONT-SET-ME2
;   caught 1 WARNING condition

; compiling file "/«PKGBUILDDIR»/tests/compiler-impure-tmp.lisp" (written 11 JUN 2015 08:56:50 AM):
; compiling (SETF *LAMBDA* ...)

; /«PKGBUILDDIR»/tests/compiler-impure-tmp.fasl written
; compilation finished in 0:00:00.019
; compiling file "/«PKGBUILDDIR»/tests/compiler-impure-tmp.lisp" (written 11 JUN 2015 08:56:50 AM):
; compiling (SETF *LAMBDA* ...)

; /«PKGBUILDDIR»/tests/compiler-impure-tmp.fasl written
; compilation finished in 0:00:00.017
::: Running :PROPAGATE-SINGLETON-TYPES-TO-EQL
::: Success :PROPAGATE-SINGLETON-TYPES-TO-EQL
::: Running :BUG-655581
::: Success :BUG-655581

; file: /«PKGBUILDDIR»/tests/compiler.impure.lisp
; in: TEST-UTIL:WITH-TEST (:NAME :CLEAR-DERIVED-TYPES-ON-SET-FDEFN)
;     (SB-C::CLEAR-DERIVED-TYPES-ON-SET-FDEFN-2)
; 
; caught STYLE-WARNING:
;   undefined function: CLEAR-DERIVED-TYPES-ON-SET-FDEFN-2
; 
; compilation unit finished
;   Undefined function:
;     CLEAR-DERIVED-TYPES-ON-SET-FDEFN-2
;   caught 1 STYLE-WARNING condition
::: Running :CLEAR-DERIVED-TYPES-ON-SET-FDEFN
::: Success :CLEAR-DERIVED-TYPES-ON-SET-FDEFN
::: Running (:BUG-655126 :DERIVE-FUNCTION-TYPES T)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success (:BUG-655126 :DERIVE-FUNCTION-TYPES T)
::: Running (:BUG-655126 :DERIVE-FUNCTION-TYPES NIL)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success (:BUG-655126 :DERIVE-FUNCTION-TYPES NIL)
::: Running :BUG-657499

; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:51 AM):
; compiling (DECLAIM (OPTIMIZE SAFETY))
; compiling (DEFUN BUG-657499-FOO ...)
; compiling (DEFUN BUG-657499-BAR ...)

; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.017
::: Success :BUG-657499
::: Running :SYMBOL-VALUE-TYPE-DERIVATION
::: Success :SYMBOL-VALUE-TYPE-DERIVATION
::: Running :MV-BIND-TO-LET-TYPE-PROPAGATION
::: Success :MV-BIND-TO-LET-TYPE-PROPAGATION
::: Running :BUG-308921
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:51 AM):
; compiling (LET (#) ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: DEFUN HYPERDOC-LOOKUP
;     (ASSOC SYMBOL SB-C::EXPORTED-SYMBOLS-ALIST)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER))
; 
; compilation unit finished
;   printed 1 note


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.064
::: Success :BUG-308921
::: Running :BUG-308941
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:56:51 AM):
; compiling (DEFSTRUCT FOO3)
; compiling (DEFSTRUCT BAR ...)
; file: /«PKGBUILDDIR»/tests/file-compile-tmp.lisp
; in: DEFSTRUCT BAR
;     (DEFSTRUCT SB-C::BAR (SB-C::FOO #S(SB-C::FOO3)))
; --> PROGN 
; ==>
;   (SB-KERNEL::%DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-C::BAR {526F1689}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>)
;    (SB-C:SOURCE-LOCATION))
; 
; caught ERROR:
;   don't know how to dump #S(FOO3) (default MAKE-LOAD-FORM method called).

; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-C::BAR {526F1689}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught ERROR:
;   don't know how to dump #S(FOO3) (default MAKE-LOAD-FORM method called).

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO TRULY-THE 
; --> SB-KERNEL:%MAKE-STRUCTURE-INSTANCE 
; ==>
;   #<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-C::BAR {526F1689}>
; 
; caught ERROR:
;   don't know how to dump #S(FOO3) (default MAKE-LOAD-FORM method called).

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO TRULY-THE 
; ==>
;   (SB-KERNEL:%MAKE-STRUCTURE-INSTANCE
;    #<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-C::BAR {526F1689}> '((:SLOT T . 1))
;    #:FOO)
; 
; note: The first argument never returns a value.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION LOCALLY SB-C::%FUNCALL 
; ==>
;   #S(SB-C::FOO3)
; 
; caught ERROR:
;   don't know how to dump #S(FOO3) (default MAKE-LOAD-FORM method called).

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION LET 
; ==>
;   #S(SB-C::FOO3)
; 
; caught ERROR:
;   don't know how to dump #S(FOO3) (default MAKE-LOAD-FORM method called).

; --> PROGN DEFUN PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-C::MAKE-BAR
;                    (SB-INT:NAMED-LAMBDA SB-C::MAKE-BAR
;                        (&KEY ((:FOO #:FOO) #S(SB-C::FOO3)))
;                      (BLOCK SB-C::MAKE-BAR
;                        (SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO
;                         #<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-C::BAR {526F1689}>
;                         '(#) #:FOO)))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught ERROR:
;   don't know how to dump #S(FOO3) (default MAKE-LOAD-FORM method called).

; --> PROGN 
; ==>
;   (SB-KERNEL::%TARGET-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB-C::BAR {526F1689}>)
; 
; caught ERROR:
;   don't know how to dump #S(FOO3) (default MAKE-LOAD-FORM method called).
; 
; compilation unit finished
;   caught 7 ERROR conditions
;   printed 1 note


; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.285
::: Success :BUG-308941
::: Running :BUG-903821
; in: LAMBDA (X N)
;     (LOGANDC2 SB-C::X (ASH -1 SB-C::N))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -2147483648 -1), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 31) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; 
; note: doing signed word to integer coercion (cost 20)
; 
; compilation unit finished
;   printed 2 notes
::: Success :BUG-903821
::: Running :BUG-997528
::: Success :BUG-997528
::: Running :MANY-CODE-CONSTANTS
::: Success :MANY-CODE-CONSTANTS
::: Running :BUG-943953
; compiling file "/«PKGBUILDDIR»/tests/bug-943953.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/bug-943953.lisp
; in: DEFUN FOO
;     (DEFUN SB-C::FOO (&OPTIONAL COUNT) (DECLARE (FIXNUM COUNT)) COUNT)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::CLAMBDA
;      :%SOURCE-NAME SB-C::FOO
;      :%DEBUG-NAME NIL
;      :KIND :OPTIONAL
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS (COUNT) {5327C891}>
;    'NIL)
; 
; caught WARNING:
;   Constant NIL conflicts with its asserted type FIXNUM.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/bug-943953.fasl written
; compilation finished in 0:00:00.023
::: Success :BUG-943953
::: Running :BUG-1177703
; in: LAMBDA (X)
;     (SB-C::NORM-1177703 (SB-C::VEC-1177703 SB-C::X))
; --> BLOCK SB-C::VEC-1177703 
; ==>
;   (SQRT (SB-C::VEC-1177703-X SB-C::V))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES (OR (DOUBLE-FLOAT 0.0d0) (COMPLEX DOUBLE-FLOAT))
;                           &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: doing float to pointer coercion (cost 13)
; 
; compilation unit finished
;   printed 2 notes
::: Success :BUG-1177703
::: Running :BUG-1035721
::: Success :BUG-1035721
::: Running :EXPT-TYPE-DERIVATION-AND-METHOD-REDEFINITION
STYLE-WARNING:
   Implicitly creating new generic function SB-C::EXPT-TYPE-DERIVATION.
::: Success :EXPT-TYPE-DERIVATION-AND-METHOD-REDEFINITION
::: Running :DEFTRANSFORM-BUG-1066451
::: Success :DEFTRANSFORM-BUG-1066451
::: Running MORE-ARG-FANCY
::: Success MORE-ARG-FANCY
::: Running :MACRO-POLICY
::: Success :MACRO-POLICY
::: Running :MERGE-LAMBDAS-DEAD-RETURN

; file: /«PKGBUILDDIR»/tests/merge-lambdas.lisp
; in: LABELS ((A (X)))
;     'C
; 
; note: deleting unreachable code

;     (A (CATCH 'C))
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes
::: Success :MERGE-LAMBDAS-DEAD-RETURN
::: Running :COERCE-TO-FUNCTION-SMARTER
::: Success :COERCE-TO-FUNCTION-SMARTER
::: Running :DERIVED-FUNCTION-TYPE-CASTS
::: Success :DERIVED-FUNCTION-TYPE-CASTS
::: Running (COMPILE FUNCTION :INVALID-FUNCTION-NAME)
; in: LAMBDA ()
;     #'1
; 
; caught ERROR:
;   1 is not a legal function name.
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA ()
;     #'"foo"
; 
; caught ERROR:
;   "foo" is not a legal function name.
; 
; compilation unit finished
;   caught 1 ERROR condition
; in: LAMBDA ()
;     #'(FOO BAR)
; 
; caught ERROR:
;   (FOO BAR) is not a legal function name.
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success (COMPILE FUNCTION :INVALID-FUNCTION-NAME)
// Running /«PKGBUILDDIR»/tests/compound-cons.impure.lisp
// Running /«PKGBUILDDIR»/tests/condition.impure.lisp
STYLE-WARNING:
   Implicitly creating new generic function
   COMMON-LISP-USER::FROB-COUNTED-CONDITION.
::: Running (:PICKY-CONDITION COMPUTE-RESTARTS)
::: Success (:PICKY-CONDITION COMPUTE-RESTARTS)
::: Running (:PICKY-CONDITION INVOKE-RESTART)
::: Success (:PICKY-CONDITION INVOKE-RESTART)
::: Running :PRINTABLE-CONDITIONS
::: Success :PRINTABLE-CONDITIONS
::: Running :BUG-896379
::: Success :BUG-896379
::: Running :DEFINE-CONDITION-RESULT
::: Success :DEFINE-CONDITION-RESULT
::: Running (SB-MOP:CLASS-DIRECT-DEFAULT-INITARGS :FOR-CONDITION-CLASS
                                                  :BUG-1164970)
::: Success (SB-MOP:CLASS-DIRECT-DEFAULT-INITARGS :FOR-CONDITION-CLASS
                                                  :BUG-1164970)
::: Running (:CONDITION-WITH-CONSTANT-FUNCTION-INITARG :BUG-539517)
::: Success (:CONDITION-WITH-CONSTANT-FUNCTION-INITARG :BUG-539517)
::: Running (:CONDITION-WITH-CONSTANT-FUNCTION-SLOT-INITFORM)
::: Success (:CONDITION-WITH-CONSTANT-FUNCTION-SLOT-INITFORM)
::: Running (:REDEFINING-CONDITION-WITH-NON-CONSTANT-DEFAULT-INITARG
             :BUG-1164969)
::: Success (:REDEFINING-CONDITION-WITH-NON-CONSTANT-DEFAULT-INITARG
             :BUG-1164969)
::: Running (:CONDITION-WITH-CLASS-ALLOCATION :BUG-1049404)
::: Success (:CONDITION-WITH-CLASS-ALLOCATION :BUG-1049404)
::: Running (ASSERT :PRINT-INTERMEDIATE-RESULTS :BUG-789497)
::: Success (ASSERT :PRINT-INTERMEDIATE-RESULTS :BUG-789497)
::: Running (FIND-RESTART :RECHECK-CONDITIONS-AND-TESTS :BUG-774410)
::: Success (FIND-RESTART :RECHECK-CONDITIONS-AND-TESTS :BUG-774410)
::: Running (INVOKE-RESTART :TEST-FUNCTION)
::: Success (INVOKE-RESTART :TEST-FUNCTION)
::: Running (INVOKE-RESTART-INTERACTIVELY :TEST-FUNCTION)
::: Success (INVOKE-RESTART-INTERACTIVELY :TEST-FUNCTION)
::: Running :CASE-FAILURE-REPORT-PPRINT-SILLINESS
::: Success :CASE-FAILURE-REPORT-PPRINT-SILLINESS
::: Running :CONDITION-CLASSOID-REDEF-WITH-CLASS-SLOT
::: Success :CONDITION-CLASSOID-REDEF-WITH-CLASS-SLOT
// Running /«PKGBUILDDIR»/tests/ctor.impure.lisp
::: Running (MAKE-INSTANCE :NON-CONSTANT-CLASS)
::: Success (MAKE-INSTANCE :NON-CONSTANT-CLASS)
::: Running (MAKE-INSTANCE :CONSTANT-CLASS-OBJECT)
::: Success (MAKE-INSTANCE :CONSTANT-CLASS-OBJECT)
::: Running (MAKE-INSTANCE :CONSTANT-NON-STD-CLASS-OBJECT)
::: Success (MAKE-INSTANCE :CONSTANT-NON-STD-CLASS-OBJECT)
::: Running (MAKE-INSTANCE :CONSTANT-NON-STD-CLASS-NAME)
::: Success (MAKE-INSTANCE :CONSTANT-NON-STD-CLASS-NAME)
::: Running (MAKE-INSTANCE :CTOR-INLINE-CACHE-RESIZE)
::: Success (MAKE-INSTANCE :CTOR-INLINE-CACHE-RESIZE)
::: Running (MAKE-INSTANCE :CTOR-DEFAULT-INITARGS-1)
::: Success (MAKE-INSTANCE :CTOR-DEFAULT-INITARGS-1)
::: Running (MAKE-INSTANCE :CTOR-DEFAULT-INITARGS-2)
::: Success (MAKE-INSTANCE :CTOR-DEFAULT-INITARGS-2)
::: Running (MAKE-INSTANCE :NO-COMPILE-NOTE-AT-RUNTIME)
::: Success (MAKE-INSTANCE :NO-COMPILE-NOTE-AT-RUNTIME)
::: Running :CONSTANT-INVALID-CLASS-ARG
::: Success :CONSTANT-INVALID-CLASS-ARG
::: Running :VARIABLE-INVALID-CLASS-ARG
::: Success :VARIABLE-INVALID-CLASS-ARG
::: Running (MAKE-INSTANCE :SETF-SLOT-VALUE-USING-CLASS-HITS-OTHER-SLOTS)
::: Success (MAKE-INSTANCE :SETF-SLOT-VALUE-USING-CLASS-HITS-OTHER-SLOTS)
::: Running :BUG-728650
::: Success :BUG-728650
::: Running :BUG-1397454
::: Success :BUG-1397454
// Running /«PKGBUILDDIR»/tests/deadline.impure.lisp
::: Running (:DEADLINE :RUN-PROGRAM :TRIVIAL)
::: Success (:DEADLINE :RUN-PROGRAM :TRIVIAL)
::: Running (:DEADLINE :DEFER-DEADLINE-1)
::: Success (:DEADLINE :DEFER-DEADLINE-1)
::: Running (:DEADLINE :DEFER-DEADLINE-2)
::: Success (:DEADLINE :DEFER-DEADLINE-2)
::: Running (:DEADLINE :CANCEL-DEADLINE)
::: Success (:DEADLINE :CANCEL-DEADLINE)
::: SKIPPED-DISABLED (:DEADLINE :GRAB-MUTEX)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:DEADLINE :WAIT-ON-SEMAPHORE)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:DEADLINE :JOIN-THREAD)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:DEADLINE :FUTEX-WAIT-EINTR)
    Test disabled for this combination of platform and features
// Running /«PKGBUILDDIR»/tests/debug.impure.lisp

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in: DEFUN ZOOP
;     (DEFUN ZOOP (ZEEP &KEY BEEP) BLURP)
; 
; caught STYLE-WARNING:
;   The variable BEEP is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ZEEP is defined but never used.

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in: DEFUN ZOOP
;     (DEFUN ZOOP (ZEEP &KEY BEEP) BLURP)
; ==>
;   (BLOCK ZOOP BLURP)
; 
; caught WARNING:
;   undefined variable: BLURP
; 
; compilation unit finished
;   Undefined variable:
;     BLURP
;   caught 1 WARNING condition
;   caught 2 STYLE-WARNING conditions
::: Running :PREDEFINED-FUNCTIONS-1
::: Success :PREDEFINED-FUNCTIONS-1
::: Running :PREDEFINED-FUNCTIONS-2
::: Success :PREDEFINED-FUNCTIONS-2

; in:
;      FLET ((OPTIMIZED NIL (DECLARE (OPTIMIZE (SPEED 2) (DEBUG 1)))
;         (#:UNDEFINED-FUNCTION 42))
;        (NOT-OPTIMIZED NIL (DECLARE (OPTIMIZE (SPEED 1) (DEBUG 3)))
;         (#:UNDEFINED-FUNCTION 42))
;        (TEST (FUN) (DECLARE (OPTIMIZE (SPEED 1) (DEBUG 3))) (FUNCALL FUN)))
;     (#:UNDEFINED-FUNCTION 42)
; 
; caught STYLE-WARNING:
;   undefined function: #:UNDEFINED-FUNCTION
; 
; caught STYLE-WARNING:
;   undefined function: #:UNDEFINED-FUNCTION
; 
; compilation unit finished
;   Undefined functions:
;     #:UNDEFINED-FUNCTION #:UNDEFINED-FUNCTION
;   caught 2 STYLE-WARNING conditions
::: Running (:UNDEFINED-FUNCTION :BUG-346)
::: Success (:UNDEFINED-FUNCTION :BUG-346)
::: Running (:UNDEFINED-FUNCTION :BUG-353)
::: Success (:UNDEFINED-FUNCTION :BUG-353)
::: SKIPPED-DISABLED :BACKTRACE-INTERRUPTED-CONDITION-WAIT
    Test disabled for this combination of platform and features

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in:
;      FLET ((OPTIMIZED NIL (DECLARE (OPTIMIZE (SPEED 2) (DEBUG 1))) (/ 42 0))
;        (NOT-OPTIMIZED NIL (DECLARE (OPTIMIZE (SPEED 1) (DEBUG 3))) (/ 42 0))
;        (TEST (FUN) (DECLARE (OPTIMIZE (SPEED 1) (DEBUG 3))) (FUNCALL FUN)))
;     (/ 42 0)
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was /, operands (42 0).
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was /, operands (42 0).
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running (:DIVIDE-BY-ZERO :BUG-346)
::: Success (:DIVIDE-BY-ZERO :BUG-346)
::: Running (:DIVIDE-BY-ZERO :BUG-356)
::: Success (:DIVIDE-BY-ZERO :BUG-356)
::: Running (:THROW :NO-SUCH-TAG)
::: Success (:THROW :NO-SUCH-TAG)

; in: DEFUN BUG-308926
;     (OOPS V Z)
; 
; caught STYLE-WARNING:
;   undefined function: OOPS
; 
; compilation unit finished
;   Undefined function:
;     OOPS
;   caught 1 STYLE-WARNING condition
::: Running :BUG-308926
::: Success :BUG-308926
; in: LAMBDA (#:WHOLE582 #:ENVIRONMENT583)
;     (LET* ((PREDICATE (CAR (CDR #:WHOLE582)))
;            (FUN (CAR (CDR #)))
;            (TWO-ARG
;             (IF #:SUPPLIEDP-585
;                 (CAR #)
;                 (FIND-SYMBOL # "SB-KERNEL"))))
;       (BLOCK TEST
;         (LET ((TEST-NAME #))
;           `(FLET (#)
;              (WITH-TEST #
;                #)))))
; 
; caught STYLE-WARNING:
;   The variable PREDICATE is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:BUG-800343 =)
::: Success (:BUG-800343 =)
::: Running (:BUG-800343 <)
::: Success (:BUG-800343 <)
::: Running (:BUG-800343 >)
::: Success (:BUG-800343 >)
::: Running (:BUG-800343 +)
::: Success (:BUG-800343 +)
::: Running (:BUG-800343 -)
::: Success (:BUG-800343 -)
::: Running (:BUG-800343 *)
::: Success (:BUG-800343 *)
::: Running (:BUG-800343 /)
::: Success (:BUG-800343 /)
::: Running (:BUG-800343 GCD)
::: Success (:BUG-800343 GCD)
::: Running (:BUG-800343 LCM)
::: Success (:BUG-800343 LCM)
::: Running (:BUG-800343 LOGAND)
::: Success (:BUG-800343 LOGAND)
::: Running (:BUG-800343 LOGIOR)
::: Success (:BUG-800343 LOGIOR)
::: Running (:BUG-800343 LOGXOR)
::: Success (:BUG-800343 LOGXOR)

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in: DEFUN OOPS
;     (DEFUN OOPS () (ERROR "oops"))
; 
; caught STYLE-WARNING:
;   (The function was previously called with two arguments, but wants at most zero.)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in: WITH-TEST (:NAME :XEP-TOO-MANY-ARGUMENTS)
;     (OOPS 1 2 3 4 5 6)
; 
; caught STYLE-WARNING:
;   The function was called with six arguments, but wants exactly zero.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :XEP-TOO-MANY-ARGUMENTS
::: Success :XEP-TOO-MANY-ARGUMENTS
; in: DEFUN BT.4.1
;     (LIST (ERROR "error"))
; ==>
;   (CONS (ERROR "error") NIL)
; 
; note: The first argument never returns a value.
; 
; note: The first argument never returns a value.
; 
; note: The first argument never returns a value.

;     (DEFUN BT.4.1 (&OPTIONAL OPT) (LIST (ERROR "error")))
; --> PROGN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BT.4.1
;         (&OPTIONAL OPT)
;       (BLOCK BT.4.1 (LIST (ERROR "error"))))
; 
; caught STYLE-WARNING:
;   The variable OPT is defined but never used.

; in: DEFUN BT.4.2
;     (DEFUN BT.4.2 (&OPTIONAL OPT)
;       (DECLARE (OPTIMIZE (DEBUG 1) (SPEED 3)))
;       (LIST (ERROR "error")))
; --> PROGN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BT.4.2
;         (&OPTIONAL OPT)
;       (DECLARE (OPTIMIZE (DEBUG 1) (SPEED 3)))
;       (BLOCK BT.4.2 (LIST (ERROR "error"))))
; 
; caught STYLE-WARNING:
;   The variable OPT is defined but never used.

; in: DEFUN BT.4.3
;     (DEFUN BT.4.3 (&OPTIONAL OPT)
;       (DECLARE (OPTIMIZE (DEBUG 0)))
;       (LIST (ERROR "error")))
; --> PROGN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BT.4.3
;         (&OPTIONAL OPT)
;       (DECLARE (OPTIMIZE (DEBUG 0)))
;       (BLOCK BT.4.3 (LIST (ERROR "error"))))
; 
; caught STYLE-WARNING:
;   The variable OPT is defined but never used.
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 3 notes
::: Running :BUG-354

(:WANTED (((BUG-354 &REST) (:TL :EXTERNAL)) 354) :GOT ((LAMBDA () :IN #:G596))) 
::: Success :BUG-354
::: Running (:BACKTRACE :TL-XEP)
::: Success (:BACKTRACE :TL-XEP)

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in: WITH-TEST (:NAME (:BACKTRACE :MORE-PROCESSOR))
;     (BT.1.1 :KEY)
; 
; caught STYLE-WARNING:
;   The function has an odd number of arguments in the keyword portion.

;     (BT.1.2 :KEY)
; 
; caught STYLE-WARNING:
;   The function has an odd number of arguments in the keyword portion.

;     (BT.1.1 :KEY)
; 
; caught STYLE-WARNING:
;   The function has an odd number of arguments in the keyword portion.

;     (BT.1.2 :KEY)
; 
; caught STYLE-WARNING:
;   The function has an odd number of arguments in the keyword portion.
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
::: Running (:BACKTRACE :MORE-PROCESSOR)
::: Success (:BACKTRACE :MORE-PROCESSOR)
::: Running (:BACKTRACE :XEP)
::: Success (:BACKTRACE :XEP)
::: Running (:BACKTRACE :VARARGS-ENTRY)
::: Success (:BACKTRACE :VARARGS-ENTRY)
::: Running (:BACKTRACE :HAIRY-ARGS-PROCESSOR)
::: Success (:BACKTRACE :HAIRY-ARGS-PROCESSOR)
::: Running (:BACKTRACE :OPTIONAL-PROCESSOR)
::: Success (:BACKTRACE :OPTIONAL-PROCESSOR)
//compile nil
::: Running (:COMPILE NIL)
::: Success (:COMPILE NIL)
::: Running :CLOS-SLOT-TYPECHECKFUN-NAMED
::: Success :CLOS-SLOT-TYPECHECKFUN-NAMED
::: Running :CLOS-EMF-NAMED
STYLE-WARNING:
   Implicitly creating new generic function
   COMMON-LISP-USER::CLOS-EMF-NAMED-TEST.
::: Success :CLOS-EMF-NAMED
::: Running :BUG-310173
::: Success :BUG-310173
::: Running (TRACE :SIMPLE)
::: Success (TRACE :SIMPLE)
::: Running (TRACE :ENCAPSULATE NIL)
::: UNEXPECTED-FAILURE (TRACE :ENCAPSULATE NIL)
    due to #<SIMPLE-ERROR "~@<The assertion ~S failed~:[.~:; ~
                                    with ~:*~{~{~S = ~S~}~^, ~}.~]~:@>"
             {527B6AA1}>:
        "The assertion (SEARCH "TRACE-THIS" OUT) failed with OUT = ""."
::: Running (:TRACE-RECURSIVE :ENCAPSULATE NIL)
::: UNEXPECTED-FAILURE (:TRACE-RECURSIVE :ENCAPSULATE NIL)
    due to #<SIMPLE-ERROR "~@<The assertion ~S failed~:[.~:; ~
                                    with ~:*~{~{~S = ~S~}~^, ~}.~]~:@>"
             {5286D199}>:
        "The assertion (SEARCH "TRACE-FACT" OUT) failed with OUT = ""."
::: Running :BUG-667657
WARNING: COMMON-LISP-USER::TRACE-AND-FMAKUNBOUND-THIS is undefined, not tracing.
::: Success :BUG-667657
::: Running :BUG-414

; compiling file "/«PKGBUILDDIR»/tests/bug-414.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFUN BUG-414 ...)

; /«PKGBUILDDIR»/tests/bug-414.fasl written
; compilation finished in 0:00:00.015
; disassembly for BUG-414
; Size: 192 bytes. Origin: #x5298851C
; 1C:       21049AE5         LDR R0, [NULL, #1057]            ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; 20:       08008BE5         STR R0, [CFP, #8]

; 24:       0C809BE5         LDR R8, [CFP, #12]
; 28:       10309BE5         LDR LEXENV, [CFP, #16]
; 2C:       14209BE5         LDR R2, [CFP, #20]
; 30:       51F48AE5         STR PC, [NULL, #1105]            ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; 34:       9C709FE5         LDR OCFP, [PC, #156]
; 38:       001097E5         LDR R1, [OCFP]
; 3C:       047097E5         LDR OCFP, [OCFP, #4]
; 40:       181081E2         ADD R1, R1, #24
; 44:       070051E1         CMP R1, OCFP
; 48:       1B00008A         BHI L1
; 4C:       84709FE5         LDR OCFP, [PC, #132]
; 50:       001087E5         STR R1, [OCFP]
; 54:       181041E2         SUB R1, R1, #24
; 58: L0:   031081E3         ORR R1, R1, #3
; 5C:       0100A0E1         MOV R0, R1
; 60:       038000E5         STR R8, [R0, #-3]
; 64:       080080E2         ADD R0, R0, #8
; 68:       070000E5         STR R0, [R0, #-7]
; 6C:       033000E5         STR LEXENV, [R0, #-3]
; 70:       080080E2         ADD R0, R0, #8
; 74:       070000E5         STR R0, [R0, #-7]
; 78:       032000E5         STR R2, [R0, #-3]
; 7C:       01A080E5         STR NULL, [R0, #1]
; 80:       51A48AE5         STR NULL, [NULL, #1105]          ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; 84:       69749AE5         LDR OCFP, [NULL, #1129]          ; SB-VM::*PSEUDO-ATOMIC-INTERRUPTED*
; 88:       0A0057E1         CMP OCFP, NULL
; 8C:       2771A0B1         MOVLT OCFP, OCFP, LSR #2
; 90:       000000BF         SWILT #0

; 94:       0100A0E1         MOV R0, R1
; 98:       00709BE5         LDR OCFP, [CFP]
; 9C:       04109BE5         LDR R1, [CFP, #4]
; A0:       09B48AE5         STR CFP, [NULL, #1033]           ; SB-VM::*CONTROL-STACK-POINTER*
; A4:       07B0A0E1         MOV CFP, OCFP
; A8:       00F028E3         MSR CPSR_f, #0
; AC:       03F041E2         SUB PC, R1, #3
; B0:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; B5:       04               BYTE #X04
; B6:       19               BYTE #X19                        ; INVALID-ARG-COUNT-ERROR
; B7:       FE0403           BYTE #XFE, #X04, #X03            ; NARGS
; BA:       .ALIGN           4
; BC: L1:   1810A0E3         MOV R1, 24
; C0:       02402DE9         BYTE #X02, #X40, #X2D, #XE9
; C4:       08109FE5         LDR R1, [PC, #8]
; C8:       31FF2FE1         BLX R1
; CC:       0240BDE8         BYTE #X02, #X40, #XBD, #XE8
; D0:       E0FFFFEA         B L0
; D4:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; D8:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
::: Success :BUG-414
::: Running :TRACEABLE-KNOWN-FUN
; compiling file "/«PKGBUILDDIR»/tests/bug-414.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFUN BUG-414 ...)

; /«PKGBUILDDIR»/tests/bug-414.fasl written
; compilation finished in 0:00:00.013
::: Success :TRACEABLE-KNOWN-FUN
::: Running :BUG-310175
::: Success :BUG-310175
::: Running :BUG-795245
::: Success :BUG-795245
::: Running :INFINITE-ERROR-PROTECTION
--HARMLESS BUT ALARMING BACKTRACE COMING UP--
Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {5354E7F1}>
--END OF H-B-A-B--
::: Success :INFINITE-ERROR-PROTECTION
::: SKIPPED-DISABLED (:INFINITE-ERROR-PROTECTION :THREAD)
    Test disabled for this combination of platform and features
::: Running (:MAKE-LISP-OBJ :SIMPLE-FUNS)
::: Success (:MAKE-LISP-OBJ :SIMPLE-FUNS)
::: Running (:MAKE-LISP-OBJ :POINTER-VALIDATION)
::: Success (:MAKE-LISP-OBJ :POINTER-VALIDATION)
::: Running (:DEBUGGER :SOURCE 1)
::: Success (:DEBUGGER :SOURCE 1)
::: Running (:DEBUGGER :SOURCE 2)
::: Success (:DEBUGGER :SOURCE 2)
::: Running (DISASSEMBLE :HIGH-DEBUG-EVAL)
::: Success (DISASSEMBLE :HIGH-DEBUG-EVAL)
::: Running (DISASSEMBLE :HIGH-DEBUG-LOAD)
::: Success (DISASSEMBLE :HIGH-DEBUG-LOAD)
::: Running :CLOSURE-RENAMING-REALLY-WORKS
::: Success :CLOSURE-RENAMING-REALLY-WORKS

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in: DEFUN GF-DISPATCH-TEST/F
;     (GF-DISPATCH-TEST/GF Z)
; 
; caught STYLE-WARNING:
;   The function was called with one argument, but wants exactly two.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :GF-DISPATCH-BACKTRACE
::: Success :GF-DISPATCH-BACKTRACE
::: Running (:XEP-ARGLIST-CLEAN-UP :BUG-1192929)
::: Success (:XEP-ARGLIST-CLEAN-UP :BUG-1192929)
::: Running (:PRINT-FRAME-CALL :RESPECT *DEBUG-PRINT-VARIABLE-ALIST*
             *PRINT-LENGTH* :BUG-1261646)
::: Success (:PRINT-FRAME-CALL :RESPECT *DEBUG-PRINT-VARIABLE-ALIST*
             *PRINT-LENGTH* :BUG-1261646)
::: Running (:PRINT-FRAME-CALL :RESPECT *DEBUG-PRINT-VARIABLE-ALIST*
             *PRINT-LEVEL* :BUG-1261646)
::: Success (:PRINT-FRAME-CALL :RESPECT *DEBUG-PRINT-VARIABLE-ALIST*
             *PRINT-LEVEL* :BUG-1261646)
::: Running :TRACE-DEBUG-ARG
  0: (FOO 1)
  0: FOO returned 1
  0: (SETF *X* (ARG 0)) = 1
WARNING: FOO is already TRACE'd, untracing it first.
  0: (FOO 2)
  0: (SETF *X* (ARG 0)) = 2
  0: FOO returned 2
WARNING: FOO is already TRACE'd, untracing it first.
WARNING: FOO is already TRACE'd, untracing it first.
  0: FOO returned 4
WARNING: FOO is already TRACE'd, untracing it first.
  0: (FOO 5)
  0: FOO returned 5
WARNING: FOO is already TRACE'd, untracing it first.
  0: (FOO 6)
  0: FOO returned 6
WARNING: FOO is already TRACE'd, untracing it first.
  0: (FOO 7)
  0: FOO returned 7
::: Success :TRACE-DEBUG-ARG

; file: /«PKGBUILDDIR»/tests/debug.impure.lisp
; in: DEFUN FROBBLEIZE
;     (DEFUN FROBBLEIZE (ARG) (PRINT-BACKTRACE) 'WIN)
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::LOW-DEBUG-METHOD.
::: Running :CLEAN-FAST-METHOD-FRAME-LOSSAGE
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {5354E7F1}>
0: ((LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX))
1: (SB-IMPL::CALL-WITH-SANE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {5241F54D}>)
2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {5241F535}>)
3: (PRINT-BACKTRACE :STREAM NIL :START 0 :FROM :DEBUGGER-FRAME :COUNT NIL :PRINT-THREAD T :PRINT-FRAME-SOURCE NIL :METHOD-FRAME-STYLE NIL)
4: (FROBBLEIZE #<unavailable argument>)
5: ((SB-PCL::FAST-METHOD LOW-DEBUG-METHOD (T)) #<unavailable lambda list>) [fast-method]
6: ((LAMBDA NIL :IN "/«PKGBUILDDIR»/tests/debug.impure.lisp"))
7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COND (T (LET ((TEST-UTIL::*THREADS-TO-JOIN* NIL) (TEST-UTIL::*THREADS-TO-KILL* NIL)) (BLOCK #:G652 (HANDLER-BIND # #))))) #<NULL-LEXENV>)
8: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COND ((TEST-UTIL::SKIPPED-P NIL) (TEST-UTIL::FAIL-TEST :SKIPPED-DISABLED (QUOTE :CLEAN-FAST-METHOD-FRAME-LOSSAGE) "Test disabled for this combination of platform and features")) (T (LET ((TEST-UTIL::*THREADS-TO-JOIN* NIL) (TEST-UTIL::*THREADS-TO-KILL* NIL)) (BLOCK #:G652 (HANDLER-BIND # #))))) #<NULL-LEXENV>)
9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COND ((TEST-UTIL::BROKEN-P NIL) (TEST-UTIL::FAIL-TEST :SKIPPED-BROKEN (QUOTE :CLEAN-FAST-METHOD-FRAME-LOSSAGE) "Test broken on this platform")) ((TEST-UTIL::SKIPPED-P NIL) (TEST-UTIL::FAIL-TEST :SKIPPED-DISABLED (QUOTE :CLEAN-FAST-METHOD-FRAME-LOSSAGE) "Test disabled for this combination of platform and features")) (T (LET ((TEST-UTIL::*THREADS-TO-JOIN* NIL) (TEST-UTIL::*THREADS-TO-KILL* NIL)) (BLOCK #:G652 (HANDLER-BIND # #))))) #<NULL-LEXENV>)
10: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-TEST (:NAME :CLEAN-FAST-METHOD-FRAME-LOSSAGE) (LOW-DEBUG-METHOD 42)) #<NULL-LEXENV>)
11: (EVAL-TLF (WITH-TEST (:NAME :CLEAN-FAST-METHOD-FRAME-LOSSAGE) (LOW-DEBUG-METHOD 42)) 81 #<NULL-LEXENV>)
12: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (WITH-TEST (:NAME :CLEAN-FAST-METHOD-FRAME-LOSSAGE) (LOW-DEBUG-METHOD 42)) 81)
13: ((LAMBDA (SB-KERNEL:FORM &KEY SB-FASL::CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (WITH-TEST (:NAME :CLEAN-FAST-METHOD-FRAME-LOSSAGE) (LOW-DEBUG-METHOD 42)) :CURRENT-INDEX 81)
14: (SB-C::%DO-FORMS-FROM-INFO #<CLOSURE (LAMBDA (SB-KERNEL:FORM &KEY SB-FASL::CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {5354E1B5}> #<SB-C::SOURCE-INFO {5354E1C9}> SB-C::INPUT-ERROR-IN-LOAD)
15: (SB-INT:LOAD-AS-SOURCE #<SB-INT:FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/debug.impure.lisp" {5354E001}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
16: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-INT:FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/debug.impure.lisp" {5354E001}> NIL)
17: (LOAD #P"/«PKGBUILDDIR»/tests/debug.impure.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
18: ((LAMBDA ()))
19: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LET ((RUN-TESTS::FILE #P"/«PKGBUILDDIR»/tests/debug.impure.lisp") (RUN-TESTS::*BREAK-ON-ERROR* NIL)) (DECLARE (SPECIAL RUN-TESTS::*BREAK-ON-ERROR*)) (FORMAT T "// Running ~a~%" RUN-TESTS::FILE) (RESTART-CASE (HANDLER-BIND ((ERROR #)) (LOAD #P"/«PKGBUILDDIR»/tests/debug.impure.lisp")) (RUN-TESTS::SKIP-FILE NIL (FORMAT T ">>>~a<<<~%" *FAILURES*))) (REPORT-TEST-STATUS) (EXIT :CODE 104)) #<NULL-LEXENV>)
20: (EVAL (LET ((RUN-TESTS::FILE #P"/«PKGBUILDDIR»/tests/debug.impure.lisp") (RUN-TESTS::*BREAK-ON-ERROR* NIL)) (DECLARE (SPECIAL RUN-TESTS::*BREAK-ON-ERROR*)) (FORMAT T "// Running ~a~%" RUN-TESTS::FILE) (RESTART-CASE (HANDLER-BIND ((ERROR #)) (LOAD #P"/«PKGBUILDDIR»/tests/debug.impure.lisp")) (RUN-TESTS::SKIP-FILE NIL (FORMAT T ">>>~a<<<~%" *FAILURES*))) (REPORT-TEST-STATUS) (EXIT :CODE 104)))
21: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(LOAD \"test-util\")") (:EVAL . "(LOAD \"assertoid\")") (:EVAL . "(DEFPACKAGE :RUN-TESTS
  (:USE :CL :TEST-UTIL :SB-EXT))") (:EVAL . "(IN-PACKAGE :CL-USER)") (:EVAL . "(USE-PACKAGE :TEST-UTIL)") (:EVAL . "(USE-PACKAGE :ASSERTOID)") (:EVAL . "(SETF *BREAK-ON-FAILURE* NIL)") (:EVAL . "(SETF *BREAK-ON-EXPECTED-FAILURE* NIL)") (:EVAL . "(LET ((RUN-TESTS::FILE
       #P\"/«PKGBUILDDIR»/tests/debug.impure.lisp\")
      (RUN-TESTS::*BREAK-ON-ERROR* NIL))
  (DECLARE (SPECIAL RUN-TESTS::*BREAK-ON-ERROR*))
  (FORMAT T \"// Running ~a~%\" RUN-TESTS::FILE)
  (RESTART-CASE (HANDLER-BIND ((ERROR
                                (LAMBDA (CONDITION)
                                  (PUSH (LIST :UNHANDLED-ERROR RUN-TESTS::FILE)
                                        *FAILURES*)
                                  (COND
                                   (RUN-TESTS::*BREAK-ON-ERROR*
                                    (REALLY-INVOKE-DEBUGGER CONDITION))
                                   (T
                                    (FORMAT *ERROR-OUTPUT*
                                            \"~&Unhandled ~a: ~a~%\"
                                            (TYPE-OF CONDITION) CONDITION)
                                    (PRINT-BACKTRACE)))
                                  (INVOKE-RESTART 'RUN-TESTS::SKIP-FILE))))
                  (LOAD
                   #P\"/«PKGBUILDDIR»/tests/debug.impure.lisp\"))
    (RUN-TESTS::SKIP-FILE NIL (FORMAT T \">>>~a<<<~%\" *FAILURES*)))
  (REPORT-TEST-STATUS)
  (EXIT :CODE 104))")))
22: (SB-IMPL::TOPLEVEL-INIT)
23: ((FLET #:WITHOUT-INTERRUPTS-BODY-71 :IN SAVE-LISP-AND-DIE))
24: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))
::: Success :CLEAN-FAST-METHOD-FRAME-LOSSAGE
::: Running :INDIRECT-CLOSURE-VALUES
::: Success :INDIRECT-CLOSURE-VALUES
::: Running :INDIRECT-CLOSURE-VALUES.2
::: Success :INDIRECT-CLOSURE-VALUES.2
::: Running :NON-TAIL-SELF-CALL-BAD-VARIABLES
::: Success :NON-TAIL-SELF-CALL-BAD-VARIABLES
::: Running :LOCAL-TAIL-CALL
::: Success :LOCAL-TAIL-CALL
::: Running :LOCAL-TAIL-CALL-VARIABLES
::: Success :LOCAL-TAIL-CALL-VARIABLES
::: Running :VARIABLES-SURROUNDING-INLINED-CODE
::: Success :VARIABLES-SURROUNDING-INLINED-CODE
::: Running :VARIABLES-SURROUNDING-INLINED-CODE.2
::: Success :VARIABLES-SURROUNDING-INLINED-CODE.2
// Running /«PKGBUILDDIR»/tests/defglobal.impure.lisp
::: Running :UNBOUND-CANNOT-BE-ALWAYS-BOUND
::: Success :UNBOUND-CANNOT-BE-ALWAYS-BOUND
::: Running :ALWAYS-BOUND-ELIDES-BOUNDNESS-CHECKING
::: Success :ALWAYS-BOUND-ELIDES-BOUNDNESS-CHECKING
::: Running :CANNOT-UNBIND-ALWAYS-BOUND
::: Success :CANNOT-UNBIND-ALWAYS-BOUND
::: Running :CANNOT-PROCLAIM-SPECIAL-GLOBAL
::: Success :CANNOT-PROCLAIM-SPECIAL-GLOBAL
::: Running :CANNOT-PROCLAIM-SYMBOL-MACRO-GLOBAL
::: Success :CANNOT-PROCLAIM-SYMBOL-MACRO-GLOBAL
::: Running :CANNOT-PROCLAIM-CONSTANT-GLOBAL
::: Success :CANNOT-PROCLAIM-CONSTANT-GLOBAL
::: Running :PROCLAIM-GLOBAL
::: Success :PROCLAIM-GLOBAL
::: Running :GLOBAL-DOES-NOT-IMPLY-ALWAYS-BOUND
::: Success :GLOBAL-DOES-NOT-IMPLY-ALWAYS-BOUND
::: Running :SET-GLOBAL
::: Success :SET-GLOBAL
::: Running :CANNOT-BIND-GLOBALS
; in: LAMBDA ()
;     (LET ((.BAR. 5))
;       .BAR.)
; 
; caught ERROR:
;   .BAR. names a global lexical variable, and cannot be used as a local variable.
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :CANNOT-BIND-GLOBALS
::: Running :CANNOT-DEFINE-GLOBALS-AS-SYMMACS
; in: LAMBDA ()
;     (SYMBOL-MACROLET ((.BAR. 11))
;       .BAR.)
; 
; caught ERROR:
;   Attempt to bind a global variable with SYMBOL-MACROLET: .BAR.
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :CANNOT-DEFINE-GLOBALS-AS-SYMMACS
::: Running :CANNOT-DECLARE-GLOBAL-SPECIAL
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success :CANNOT-DECLARE-GLOBAL-SPECIAL
::: Running :DEAD-UNBOUND-GLOBAL
::: Success :DEAD-UNBOUND-GLOBAL
::: Running :DEFCONSTANT-EVALS
; compiling file "/«PKGBUILDDIR»/tests/defglobal-impure-tmp.lisp" (written 11 JUN 2015 08:57:36 AM):
; compiling (DEFGLOBAL .COUNTER-1. ...)

; /«PKGBUILDDIR»/tests/defglobal-impure-tmp.fasl written
; compilation finished in 0:00:00.017
; compiling file "/«PKGBUILDDIR»/tests/defglobal-impure-tmp.lisp" (written 11 JUN 2015 08:57:36 AM):
; compiling (DEFGLOBAL .COUNTER-2. ...)

; /«PKGBUILDDIR»/tests/defglobal-impure-tmp.fasl written
; compilation finished in 0:00:00.014
; compiling file "/«PKGBUILDDIR»/tests/defglobal-impure-tmp.lisp" (written 11 JUN 2015 08:57:36 AM):
; compiling (DEFGLOBAL .COUNTER-3. ...)

; /«PKGBUILDDIR»/tests/defglobal-impure-tmp.fasl written
; compilation finished in 0:00:00.014
::: Success :DEFCONSTANT-EVALS
::: Running :DEFGLOBAL-REFERS-TO-DEFGLOBAL
; compiling file "/«PKGBUILDDIR»/tests/defglobal-impure-tmp.lisp" (written 11 JUN 2015 08:57:36 AM):
; compiling (DEFGLOBAL **GLOBAL-1** ...)
; compiling (DEFGLOBAL **GLOBAL-2** ...)

; /«PKGBUILDDIR»/tests/defglobal-impure-tmp.fasl written
; compilation finished in 0:00:00.020
::: Success :DEFGLOBAL-REFERS-TO-DEFGLOBAL
// Running /«PKGBUILDDIR»/tests/define-compiler-macro.impure.lisp
::: Running :CANNOT-DEFINE-MACRO-FOR-SPECIAL-FORM
::: Success :CANNOT-DEFINE-MACRO-FOR-SPECIAL-FORM
// Running /«PKGBUILDDIR»/tests/defstruct.impure.lisp

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: ASSERT-ERROR (SETF (PERSON-NAME (MAKE-PERSON :NAME "Q")) 1)
;     (SETF (PERSON-NAME (MAKE-PERSON :NAME "Q")) 1)
; --> LET* FUNCALL SB-C::%FUNCALL (SETF PERSON-NAME) LET 
; --> SB-KERNEL:%INSTANCE-SET 
; ==>
;   (THE STRING #:NEW13)
; 
; caught WARNING:
;   Derived type of #:NEW13 is
;     (VALUES (INTEGER 1 1) &OPTIONAL),
;   conflicting with its asserted type
;     STRING.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
; 
; caught STYLE-WARNING:
;   Call to COMMON-LISP-USER::BOA-SAUX-A could not be inlined because no definition
;   for it was seen prior to its first use.

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: WITH-TEST (:NAME :DEFSTRUCT-BOA-TYPECHECK)
;     (SETF (BOA-SAUX-A S) 1)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF BOA-SAUX-A) #:NEW39 #:S38)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF BOA-SAUX-A)

;     (SETF (BOA-SAUX-C S) 5)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF BOA-SAUX-C) #:NEW41 #:S40)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF BOA-SAUX-C)

;     (INLINE BOA-SAUX-A)
; 
; caught STYLE-WARNING:
;   undefined function: BOA-SAUX-A

;     (BOA-SAUX-B S)
; 
; caught STYLE-WARNING:
;   undefined function: BOA-SAUX-B

;     (BOA-SAUX-C S)
; 
; caught STYLE-WARNING:
;   undefined function: BOA-SAUX-C
; 
; compilation unit finished
;   Undefined functions:
;     (SETF BOA-SAUX-A) (SETF BOA-SAUX-C) BOA-SAUX-A BOA-SAUX-B BOA-SAUX-C
;   caught 6 STYLE-WARNING conditions
::: Running :DEFSTRUCT-BOA-TYPECHECK
STYLE-WARNING:
   Previously compiled calls to
   (COMMON-LISP:SETF COMMON-LISP-USER::BOA-SAUX-A),
   COMMON-LISP-USER::BOA-SAUX-B, COMMON-LISP-USER::BOA-SAUX-C and
   (COMMON-LISP:SETF COMMON-LISP-USER::BOA-SAUX-C) could not be inlined because
   the structure definition for COMMON-LISP-USER::BOA-SAUX was not yet seen. To
   avoid this warning, DEFSTRUCT should precede references to the affected
   functions, or they must be declared locally notinline at each call site.
::: Success :DEFSTRUCT-BOA-TYPECHECK
::: Running :DEFSTRUCT-BOA-NO-ERROR
::: Success :DEFSTRUCT-BOA-NO-ERROR
::: Running :DEFSTRUCT-BOA-TYPECHECK.2
::: Success :DEFSTRUCT-BOA-TYPECHECK.2
/beginning PROGN for COLONTYPE=NIL
/done with DEFSTRUCT
/checking constructed structure
/checking no read-only writers
/doing INLINEP=T
/doing INLINEP=NIL
/done with INLINEP loop
/doing tests on PRED-NAME=VANILLA-STRUCT-P
/doing COMPILED-PRED tests
/doing TYPEP tests, COLONTYPE=NIL
/done with PROGN for COLONTYPE=NIL
/beginning PROGN for COLONTYPE=VECTOR
/done with DEFSTRUCT
/checking constructed structure
/checking no read-only writers
/doing INLINEP=T
/doing INLINEP=NIL
/done with INLINEP loop
/done with PROGN for COLONTYPE=VECTOR
/beginning PROGN for COLONTYPE=LIST
/done with DEFSTRUCT
/checking constructed structure
/checking no read-only writers
/doing INLINEP=T
/doing INLINEP=NIL
/done with INLINEP loop
/done with PROGN for COLONTYPE=LIST
/beginning PROGN for COLONTYPE=NIL
STYLE-WARNING:
   &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL
                                                      (OPTIONAL-TEST 2
                                                       OPTIONAL-TEST-P)
                                                      &KEY (HOME NIL HOME-P)
                                                      (NO-HOME-COMMENT
                                                       "Home package CL not provided.")
                                                      (COMMENT
                                                       (IF HOME-P
                                                           ""
                                                           NO-HOME-COMMENT))
                                                      (REFCOUNT
                                                       (IF OPTIONAL-TEST-P
                                                           OPTIONAL-TEST
                                                           NIL))
                                                      HASH WEIGHT)

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: TEST-VARIANT VANILLA-STRUCT
;     (TEST-VARIANT VANILLA-STRUCT :BOA-CONSTRUCTOR-P T)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL
;                                                      (OPTIONAL-TEST 2
;                                                       OPTIONAL-TEST-P)
;                                                      &KEY (HOME NIL HOME-P)
;                                                      (NO-HOME-COMMENT
;                                                       "Home package CL not provided.")
;                                                      (COMMENT
;                                                       (IF HOME-P
;                                                           ""
;                                                           NO-HOME-COMMENT))
;                                                      (REFCOUNT
;                                                       (IF OPTIONAL-TEST-P
;                                                           OPTIONAL-TEST
;                                                           NIL))
;                                                      (HASH 1) (WEIGHT 1.0))

; --> IF IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of REFCOUNT is not a (UNSIGNED-BYTE 29):
;     NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
/done with DEFSTRUCT
/checking constructed structure
/checking no read-only writers
/doing INLINEP=T
/doing INLINEP=NIL
/done with INLINEP loop
/doing tests on PRED-NAME=VANILLA-STRUCT-P
/doing COMPILED-PRED tests
/doing TYPEP tests, COLONTYPE=NIL
/done with PROGN for COLONTYPE=NIL
/beginning PROGN for COLONTYPE=VECTOR
STYLE-WARNING:
   &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL
                                                      (OPTIONAL-TEST 2
                                                       OPTIONAL-TEST-P)
                                                      &KEY (HOME NIL HOME-P)
                                                      (NO-HOME-COMMENT
                                                       "Home package CL not provided.")
                                                      (COMMENT
                                                       (IF HOME-P
                                                           ""
                                                           NO-HOME-COMMENT))
                                                      (REFCOUNT
                                                       (IF OPTIONAL-TEST-P
                                                           OPTIONAL-TEST
                                                           NIL))
                                                      HASH WEIGHT)

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: TEST-VARIANT VECTOR-STRUCT
;     (TEST-VARIANT VECTOR-STRUCT :COLONTYPE VECTOR :BOA-CONSTRUCTOR-P T)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL
;                                                      (OPTIONAL-TEST 2
;                                                       OPTIONAL-TEST-P)
;                                                      &KEY (HOME NIL HOME-P)
;                                                      (NO-HOME-COMMENT
;                                                       "Home package CL not provided.")
;                                                      (COMMENT
;                                                       (IF HOME-P
;                                                           ""
;                                                           NO-HOME-COMMENT))
;                                                      (REFCOUNT
;                                                       (IF OPTIONAL-TEST-P
;                                                           OPTIONAL-TEST
;                                                           NIL))
;                                                      (HASH 1) (WEIGHT 1.0))

; --> IF IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of REFCOUNT is not a (UNSIGNED-BYTE 29):
;     NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
/done with DEFSTRUCT
/checking constructed structure
/checking no read-only writers
/doing INLINEP=T
/doing INLINEP=NIL
/done with INLINEP loop
/done with PROGN for COLONTYPE=VECTOR
/beginning PROGN for COLONTYPE=LIST
STYLE-WARNING:
   &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL
                                                      (OPTIONAL-TEST 2
                                                       OPTIONAL-TEST-P)
                                                      &KEY (HOME NIL HOME-P)
                                                      (NO-HOME-COMMENT
                                                       "Home package CL not provided.")
                                                      (COMMENT
                                                       (IF HOME-P
                                                           ""
                                                           NO-HOME-COMMENT))
                                                      (REFCOUNT
                                                       (IF OPTIONAL-TEST-P
                                                           OPTIONAL-TEST
                                                           NIL))
                                                      HASH WEIGHT)

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: TEST-VARIANT LIST-STRUCT
;     (TEST-VARIANT LIST-STRUCT :COLONTYPE LIST :BOA-CONSTRUCTOR-P T)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL
;                                                      (OPTIONAL-TEST 2
;                                                       OPTIONAL-TEST-P)
;                                                      &KEY (HOME NIL HOME-P)
;                                                      (NO-HOME-COMMENT
;                                                       "Home package CL not provided.")
;                                                      (COMMENT
;                                                       (IF HOME-P
;                                                           ""
;                                                           NO-HOME-COMMENT))
;                                                      (REFCOUNT
;                                                       (IF OPTIONAL-TEST-P
;                                                           OPTIONAL-TEST
;                                                           NIL))
;                                                      (HASH 1) (WEIGHT 1.0))

; --> IF IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of REFCOUNT is not a (UNSIGNED-BYTE 29):
;     NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
/done with DEFSTRUCT
/checking constructed structure
/checking no read-only writers
/doing INLINEP=T
/doing INLINEP=NIL
/done with INLINEP loop
/done with PROGN for COLONTYPE=LIST
Dynamic space usage is:   69,233,872 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,299,840 bytes for    16,988 code objects.
  15,486,976 bytes for 1,935,872 cons objects.
  13,782,328 bytes for   310,483 instance objects.
   9,681,544 bytes for   179,230 simple-vector objects.
  12,987,160 bytes for   481,542 other objects.
  69,237,848 bytes for 2,924,115 dynamic objects (space total.)
Dynamic space usage is:   53,178,624 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,279,072 bytes for    16,955 code objects.
  12,443,936 bytes for 1,555,492 cons objects.
   8,261,872 bytes for   177,761 instance objects.
   7,778,864 bytes for   145,095 simple-vector objects.
   7,418,976 bytes for   218,715 other objects.
  53,182,720 bytes for 2,114,018 dynamic objects (space total.)
Dynamic space usage is:   51,453,128 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,196,832 bytes for 1,524,604 cons objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,196,520 bytes for   154,014 instance objects.
   7,315,128 bytes for   217,024 other objects.
  51,457,216 bytes for 2,049,654 dynamic objects (space total.)
Dynamic space usage is:   51,681,688 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,254,296 bytes for 1,531,787 cons objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,292,600 bytes for   155,016 instance objects.
   7,390,152 bytes for   221,906 other objects.
  51,685,784 bytes for 2,062,721 dynamic objects (space total.)
Dynamic space usage is:   51,908,616 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,310,208 bytes for 1,538,776 cons objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,388,560 bytes for   156,015 instance objects.
   7,465,208 bytes for   226,786 other objects.
  51,912,712 bytes for 2,075,589 dynamic objects (space total.)
Dynamic space usage is:   52,137,360 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,367,584 bytes for 1,545,948 cons objects.
   7,484,720 bytes for   157,018 instance objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,540,416 bytes for   231,660 other objects.
  52,141,456 bytes for 2,088,638 dynamic objects (space total.)
Dynamic space usage is:   52,364,016 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,423,448 bytes for 1,552,931 cons objects.
   7,580,560 bytes for   158,015 instance objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,615,368 bytes for   236,547 other objects.
  52,368,112 bytes for 2,101,505 dynamic objects (space total.)
Dynamic space usage is:   52,592,688 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,480,800 bytes for 1,560,100 cons objects.
   7,676,640 bytes for   159,017 instance objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,690,600 bytes for   241,431 other objects.
  52,596,776 bytes for 2,114,560 dynamic objects (space total.)
Dynamic space usage is:   52,819,824 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,536,912 bytes for 1,567,114 cons objects.
   7,772,680 bytes for   160,018 instance objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,765,592 bytes for   246,308 other objects.
  52,823,920 bytes for 2,127,452 dynamic objects (space total.)
Dynamic space usage is:   53,048,296 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,764 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,268,800 bytes for    16,954 code objects.
  12,594,232 bytes for 1,574,279 cons objects.
   7,868,680 bytes for   161,018 instance objects.
   7,479,936 bytes for   137,058 simple-vector objects.
   7,840,736 bytes for   251,193 other objects.
  53,052,384 bytes for 2,140,502 dynamic objects (space total.)
::: Running :DEFSTRUCT-RAW-SLOT-GC
::: Success :DEFSTRUCT-RAW-SLOT-GC
::: Running (:DEFSTRUCT-RAW-SLOT-GC :FULL)
::: Success (:DEFSTRUCT-RAW-SLOT-GC :FULL)

; compiling file "/«PKGBUILDDIR»/tests/tmp-defstruct.manyraw.lisp" (written 11 JUN 2015 08:58:17 AM):
; compiling (DEFUN DUMPED-MANYRAWS ...)
; compiling (DEFUN DUMPED-HUGE-MANYRAW ...)
; compiling (DEFUN DUMPED-HUGEST-MANYRAW ...)

; /«PKGBUILDDIR»/tests/tmp-defstruct.manyraw.fasl written
; compilation finished in 0:00:04.808
::: Running (:DEFSTRUCT-RAW-SLOT LOAD)
::: Success (:DEFSTRUCT-RAW-SLOT LOAD)

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: WHEN (IGNORE-ERRORS (OR (YA-STRUCT-P) 12))
;     (YA-STRUCT-P)
; 
; caught STYLE-WARNING:
;   The function was called with zero arguments, but wants exactly one.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: WHEN (IGNORE-ERRORS (OR (YA-STRUCT-P 'TOO 'MANY 'ARGUMENTS) 12))
;     (YA-STRUCT-P 'TOO 'MANY 'ARGUMENTS)
; 
; caught STYLE-WARNING:
;   The function was called with three arguments, but wants exactly one.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   Non-overwritten accessor BUG127-A-B-C does not access slot with name C
   (accessing an inherited slot instead).

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: ASSERT-ERROR (BUG127--FOO (MAKE-BUG127-E :FOO 3))
;     (BUG127--FOO (MAKE-BUG127-E :FOO 3))
; --> SB-KERNEL:%INSTANCE-REF 
; ==>
;   (THE BUG127-F (MAKE-BUG127-E :FOO 3))
; 
; caught WARNING:
;   Derived type of (MAKE-BUG127-E :FOO 3) is
;     (VALUES BUG127-E &OPTIONAL),
;   conflicting with its asserted type
;     BUG127-F.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: ASSERT-ERROR (CONC-NAME-NIL-SLOT (MAKE-CONC-NAME-NIL))
;     (CONC-NAME-NIL-SLOT (MAKE-CONC-NAME-NIL))
; 
; caught STYLE-WARNING:
;   undefined function: CONC-NAME-NIL-SLOT
; 
; compilation unit finished
;   Undefined function:
;     CONC-NAME-NIL-SLOT
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-LIST-STRUCT
     (FUNCTION (&KEY (:A-SLOT T)) (VALUES LIST &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION
      (&KEY (:ID T) (:HOME PACKAGE) (:COMMENT SIMPLE-STRING)
       (:WEIGHT SINGLE-FLOAT) (:HASH (INTEGER 1 1610612733))
       (:REFCOUNT (UNSIGNED-BYTE 29)))
      (VALUES LIST &OPTIONAL))
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-VECTOR-STRUCT
     (FUNCTION (&KEY (:A-SLOT T)) (VALUES (SIMPLE-VECTOR 2) &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION
      (&KEY (:ID T) (:HOME PACKAGE) (:COMMENT SIMPLE-STRING)
       (:WEIGHT SINGLE-FLOAT) (:HASH (INTEGER 1 1610612733))
       (:REFCOUNT (UNSIGNED-BYTE 29)))
      (VALUES (SIMPLE-VECTOR 6) &OPTIONAL))

; in: DEFSTRUCT #:G928
;     (TRULY-THE (OR NULL (FUNCTION (INTEGER) (VALUES NUMBER &OPTIONAL FOO)))
;                (SB-KERNEL:%INSTANCE-REF (THE #:G928 SB-KERNEL:INSTANCE) 1))
; 
; caught STYLE-WARNING:
;   undefined type: FOO
; 
; compilation unit finished
;   Undefined type:
;     FOO
;   caught 1 STYLE-WARNING condition

;     (SB-INT:NAMED-LAMBDA G928-X
;         (SB-KERNEL:INSTANCE)
;       (BLOCK G928-X
;         (TRULY-THE (OR NULL (FUNCTION # #))
;                    (SB-KERNEL:%INSTANCE-REF (THE #:G928 SB-KERNEL:INSTANCE) 1))))
; 
; caught STYLE-WARNING:
;   undefined type: FOO
; 
; compilation unit finished
;   Undefined type:
;     FOO
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: DEFUN BUG-IN-0-8-11-8-X
;     (DEFUN BUG-IN-0-8-11-8-X (Z) (PRINT "some unrelated thing"))
; --> PROGN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BUG-IN-0-8-11-8-X
;         (Z)
;       (BLOCK BUG-IN-0-8-11-8-X (PRINT "some unrelated thing")))
; 
; caught STYLE-WARNING:
;   The variable Z is defined but never used.

; in: LET ((DEFSTRUCT-FORM '(DEFSTRUCT BUG-IN-0-8-11-8 X)))
;     (HANDLER-CASE (MACROEXPAND DEFSTRUCT-FORM)
;                   (WARNING (C)
;                    (ERROR "shouldn't warn just from macroexpansion here")))
; --> SB-INT:DX-FLET 
; ==>
;   (FLET ((#:FORM-FUN-4 ()
;            (MACROEXPAND DEFSTRUCT-FORM))
;          (#:FUN1 (C)
;            (ERROR "shouldn't warn just from macroexpansion here")))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1)))
;     (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
;     (BLOCK #:BLOCK2
;       (SB-INT:DX-LET ((#:CELL3 #))
;         (DECLARE (IGNORABLE #:CELL3))
;         (TAGBODY
;           (SB-IMPL::%HANDLER-BIND # #)
;          #:TAG0
;           (RETURN-FROM #:BLOCK2 #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
STYLE-WARNING:
   The new FTYPE proclamation for COPY-FOO
     (FUNCTION (FOO) (VALUES FOO &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (#<SB-KERNEL:STRUCTURE-CLASSOID anonymous {52684C09}>)
      (VALUES #<SB-KERNEL:STRUCTURE-CLASSOID anonymous {52684C09}> &OPTIONAL))
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-FOO
     (FUNCTION (&KEY (:SLOT-1 T)) (VALUES FOO &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:A T))
      (VALUES #<SB-KERNEL:STRUCTURE-CLASSOID anonymous {52684C09}> &OPTIONAL))


; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: WITH-TEST (:NAME :OBSOLETE-DEFSTRUCT/PRINT-OBJECT)
;     (MAKE-BORN-TO-CHANGE)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-BORN-TO-CHANGE
; 
; compilation unit finished
;   Undefined function:
;     MAKE-BORN-TO-CHANGE
;   caught 1 STYLE-WARNING condition
::: Running :OBSOLETE-DEFSTRUCT/PRINT-OBJECT
WARNING: change in instance length of class BORN-TO-CHANGE:
  current length: 1
  new length: 2
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BORN-TO-CHANGE
     (FUNCTION (&KEY (:SLOT T)) (VALUES BORN-TO-CHANGE &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY) (VALUES BORN-TO-CHANGE &OPTIONAL))
::: Success :OBSOLETE-DEFSTRUCT/PRINT-OBJECT

; in: WITH-TEST (:NAME :OBSOLETE-DEFSTRUCT/TYPEP)
;     (MAKE-BORN-TO-CHANGE-2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-BORN-TO-CHANGE-2
; 
; compilation unit finished
;   Undefined function:
;     MAKE-BORN-TO-CHANGE-2
;   caught 1 STYLE-WARNING condition
::: Running :OBSOLETE-DEFSTRUCT/TYPEP
WARNING: change in instance length of class BORN-TO-CHANGE-2:
  current length: 1
  new length: 2
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BORN-TO-CHANGE-2
     (FUNCTION (&KEY (:SLOT T)) (VALUES BORN-TO-CHANGE-2 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY) (VALUES BORN-TO-CHANGE-2 &OPTIONAL))
::: Success :OBSOLETE-DEFSTRUCT/TYPEP
::: Running :RAW-SLOT-EQUALP
::: Success :RAW-SLOT-EQUALP

; in: DEFSTRUCT RAW-SLOT-STRUCT-WITH-UNKNOWN-INIT
;     (#:UNKNOWN-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: #:UNKNOWN-FUNCTION
; 
; compilation unit finished
;   Undefined function:
;     #:UNKNOWN-FUNCTION
;   caught 1 STYLE-WARNING condition
::: Running :DEFSTRUCT/RECKLESSLY
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp"
WARNING: change in instance length of class REDEF-TEST-1:
  current length: 2
  new length: 3
While evaluating the form starting at line 3, column 0
  of #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp":
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-1 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-1-P in DEFUN
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-REDEF-TEST-1
     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-1 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-1 &OPTIONAL))
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-1 in DEFUN
::: Success :DEFSTRUCT/RECKLESSLY
::: Running :DEFSTRUCT/CONTINUE
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp"
WARNING: change in instance length of class REDEF-TEST-2:
  current length: 2
  new length: 3
While evaluating the form starting at line 3, column 0
  of #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp":
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-2 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-2-P in DEFUN
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-REDEF-TEST-2
     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-2 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-2 &OPTIONAL))
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-2 in DEFUN
::: Success :DEFSTRUCT/CONTINUE
::: Running :DEFSTRUCT/COMPILE-FILE-SHOULD-WARN
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"

; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp" (written 11 JUN 2015 08:58:33 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-3 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-3
;     (DEFSTRUCT (REDEF-TEST-3 (:CONSTRUCTOR MAKE-REDEF-TEST-3)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-3 {52A2EF71}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-3:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-3>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-3)
;      MAKE-REDEF-TEST-3)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-3
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-3 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-3 &OPTIONAL))
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl written
; compilation finished in 0:00:00.156
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl"
WARNING: change in instance length of class REDEF-TEST-3:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-3 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-3-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-3 in DEFUN
::: Success :DEFSTRUCT/COMPILE-FILE-SHOULD-WARN
::: Running :DEFSTRUCT/COMPILE-FILE-RECKLESS
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp" (written 11 JUN 2015 08:58:33 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-4 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-4
;     (DEFSTRUCT (REDEF-TEST-4 (:CONSTRUCTOR MAKE-REDEF-TEST-4)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-4 {52DAC1D1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-4:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-4>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-4)
;      MAKE-REDEF-TEST-4)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-4
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-4 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-4 &OPTIONAL))
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl written
; compilation finished in 0:00:00.188
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl"
WARNING: change in instance length of class REDEF-TEST-4:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-4 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-4-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-4 in DEFUN
::: Success :DEFSTRUCT/COMPILE-FILE-RECKLESS
::: Running :DEFSTRUCT/COMPILE-FILE-CONTINUE
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp" (written 11 JUN 2015 08:58:33 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-5 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-5
;     (DEFSTRUCT (REDEF-TEST-5 (:CONSTRUCTOR MAKE-REDEF-TEST-5)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-5 {531271D1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-5:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-5>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-5)
;      MAKE-REDEF-TEST-5)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-5
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-5 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-5 &OPTIONAL))
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl written
; compilation finished in 0:00:00.158
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl"
WARNING: change in instance length of class REDEF-TEST-5:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-5 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-5-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-5 in DEFUN
::: Success :DEFSTRUCT/COMPILE-FILE-CONTINUE
::: Running :DEFSTRUCT/SUBCLASS-RECKLESS
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp" (written 11 JUN 2015 08:58:34 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-6 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-6
;     (DEFSTRUCT (REDEF-TEST-6 (:CONSTRUCTOR MAKE-REDEF-TEST-6)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-6 {535F74D1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-6:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   undeclaring functions for old subclasses of REDEF-TEST-6:
;     (REDEF-TEST-6-SUB)
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-6>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-6)
;      MAKE-REDEF-TEST-6)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-6
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-6 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-6 &OPTIONAL))

; compiling (DEFSTRUCT (REDEF-TEST-6-SUB # ...) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-6-SUB
;     (DEFSTRUCT
;         (REDEF-TEST-6-SUB (:CONSTRUCTOR MAKE-REDEF-TEST-6-SUB)
;          (:INCLUDE REDEF-TEST-6))
;       Z)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-6-SUB {5373BB69}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for REDEF-TEST-6 {5361E6B1}>))
; 
; caught WARNING:
;   in class REDEF-TEST-6-SUB:
;     The current definition of superclass REDEF-TEST-6 is incompatible with
;     the most recently loaded definition.
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-6-SUB>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T) (:Z T)) REDEF-TEST-6-SUB)
;      MAKE-REDEF-TEST-6-SUB)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-6-SUB
;     (FUNCTION (&KEY (:A T) (:B T) (:Z T)) (VALUES REDEF-TEST-6-SUB &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T) (:Z T)) (VALUES REDEF-TEST-6-SUB &OPTIONAL))
; 
; compilation unit finished
;   caught 5 WARNING conditions
;   caught 2 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl written
; compilation finished in 0:00:00.642
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl"
WARNING: change in instance length of class REDEF-TEST-6:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-6 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-6-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-6 in DEFUN
WARNING: change in instance length of class REDEF-TEST-6-SUB:
  current length: 3
  new length: 4
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-6-SUB in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-6-SUB-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-6-SUB in DEFUN
::: Success :DEFSTRUCT/SUBCLASS-RECKLESS
::: Running :DEFSTRUCT/SUBCLASS-CONTINUE
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp" (written 11 JUN 2015 08:58:35 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-7 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-7
;     (DEFSTRUCT (REDEF-TEST-7 (:CONSTRUCTOR MAKE-REDEF-TEST-7)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-7 {5223C379}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-7:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   undeclaring functions for old subclasses of REDEF-TEST-7:
;     (REDEF-TEST-7-SUB)
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-7>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-7)
;      MAKE-REDEF-TEST-7)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-7
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-7 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-7 &OPTIONAL))

; compiling (DEFSTRUCT (REDEF-TEST-7-SUB # ...) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-7-SUB
;     (DEFSTRUCT
;         (REDEF-TEST-7-SUB (:CONSTRUCTOR MAKE-REDEF-TEST-7-SUB)
;          (:INCLUDE REDEF-TEST-7))
;       Z)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-7-SUB {5237FCB1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for REDEF-TEST-7 {52263391}>))
; 
; caught WARNING:
;   in class REDEF-TEST-7-SUB:
;     The current definition of superclass REDEF-TEST-7 is incompatible with
;     the most recently loaded definition.
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-7-SUB>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T) (:Z T)) REDEF-TEST-7-SUB)
;      MAKE-REDEF-TEST-7-SUB)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-7-SUB
;     (FUNCTION (&KEY (:A T) (:B T) (:Z T)) (VALUES REDEF-TEST-7-SUB &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T) (:Z T)) (VALUES REDEF-TEST-7-SUB &OPTIONAL))
; 
; compilation unit finished
;   caught 5 WARNING conditions
;   caught 2 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl written
; compilation finished in 0:00:00.310
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl"
WARNING: change in instance length of class REDEF-TEST-7:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-7 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-7-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-7 in DEFUN
WARNING: in class REDEF-TEST-7-SUB:
  Current definition of superclass REDEF-TEST-7 is incompatible with
  new definition.
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-7-SUB in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-7-SUB-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-7-SUB in DEFUN
::: Success :DEFSTRUCT/SUBCLASS-CONTINUE
::: Running :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-RECKLESS
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp"
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp" (written 11 JUN 2015 08:58:35 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-8 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp
; in: DEFSTRUCT REDEF-TEST-8
;     (DEFSTRUCT (REDEF-TEST-8 (:CONSTRUCTOR MAKE-REDEF-TEST-8)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-8 {528E40E1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-8:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   undeclaring functions for old subclasses of REDEF-TEST-8:
;     (REDEF-TEST-8-SUB)
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-8>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-8)
;      MAKE-REDEF-TEST-8)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-8
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-8 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-8 &OPTIONAL))
; 
; compilation unit finished
;   caught 3 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-2.fasl written
; compilation finished in 0:00:00.153
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-2.fasl"
WARNING: change in instance length of class REDEF-TEST-8:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-8 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-8-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-8 in DEFUN
::: Success :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-RECKLESS

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in:
;      WITH-DEFSTRUCT-REDEFINITION-TEST :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-CONTINUE
;     (FUNCALL PRED2 INSTANCE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN PRED2)
; 
; caught WARNING:
;   undefined variable: PRED2
; 
; compilation unit finished
;   Undefined variable:
;     PRED2
;   caught 1 WARNING condition
::: Running :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-CONTINUE
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp"

; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp" (written 11 JUN 2015 08:58:36 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-9 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp
; in: DEFSTRUCT REDEF-TEST-9
;     (DEFSTRUCT (REDEF-TEST-9 (:CONSTRUCTOR MAKE-REDEF-TEST-9)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-9 {52E84271}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-9:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   undeclaring functions for old subclasses of REDEF-TEST-9:
;     (REDEF-TEST-9-SUB)
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-9>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-9)
;      MAKE-REDEF-TEST-9)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-9
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-9 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-9 &OPTIONAL))
; 
; compilation unit finished
;   caught 3 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-2.fasl written
; compilation finished in 0:00:00.158
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-2.fasl"
WARNING: change in instance length of class REDEF-TEST-9:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-9 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-9-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-9 in DEFUN
The variable PRED2 is unbound.
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp"
WARNING: in class REDEF-TEST-9-SUB:
  Current definition of superclass REDEF-TEST-9 is incompatible with
  new definition.
While evaluating the form starting at line 3, column 0
  of #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp":
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-REDEF-TEST-9-SUB
     (FUNCTION (&KEY (:A T) (:B T) (:Z T)) (VALUES REDEF-TEST-9-SUB &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:A T) (:Z T)) (VALUES REDEF-TEST-9-SUB &OPTIONAL))
::: Success :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-CONTINUE
::: Running :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-FUNNY-OPERATION-ORDER-CONTINUE
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp"
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp" (written 11 JUN 2015 08:58:37 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-10 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp
; in: DEFSTRUCT REDEF-TEST-10
;     (DEFSTRUCT (REDEF-TEST-10 (:CONSTRUCTOR MAKE-REDEF-TEST-10)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-10 {535482C9}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-10:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   undeclaring functions for old subclasses of REDEF-TEST-10:
;     (REDEF-TEST-10-SUB)
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-10>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-10)
;      MAKE-REDEF-TEST-10)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-10
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-10 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-10 &OPTIONAL))
; 
; compilation unit finished
;   caught 3 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-2.fasl written
; compilation finished in 0:00:00.163
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp" (written 11 JUN 2015 08:58:37 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-10-SUB # ...) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp
; in: DEFSTRUCT REDEF-TEST-10-SUB
;     (DEFSTRUCT
;         (REDEF-TEST-10-SUB (:CONSTRUCTOR MAKE-REDEF-TEST-10-SUB)
;          (:INCLUDE REDEF-TEST-10))
;       Z)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-10-SUB {536A3E79}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>
;       #<SB-KERNEL:LAYOUT for REDEF-TEST-10 {5356F391}>))
; 
; caught WARNING:
;   in class REDEF-TEST-10-SUB:
;     The current definition of superclass REDEF-TEST-10 is incompatible with
;     the most recently loaded definition.
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-10-SUB>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T) (:Z T)) REDEF-TEST-10-SUB)
;      MAKE-REDEF-TEST-10-SUB)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-10-SUB
;     (FUNCTION (&KEY (:A T) (:B T) (:Z T)) (VALUES REDEF-TEST-10-SUB &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T) (:Z T)) (VALUES REDEF-TEST-10-SUB &OPTIONAL))
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl written
; compilation finished in 0:00:00.410
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-2.fasl"
WARNING: change in instance length of class REDEF-TEST-10:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-REDEF-TEST-10 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::REDEF-TEST-10-P in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-REDEF-TEST-10 in DEFUN
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl"
WARNING: in class REDEF-TEST-10-SUB:
  Current definition of superclass REDEF-TEST-10 is incompatible with
  new definition.
::: Success :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-FUNNY-OPERATION-ORDER-CONTINUE
::: Running :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-FUNNY-OPERATION-ORDER-CONTINUE
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-0.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.lisp"
; compiling file "/«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp" (written 11 JUN 2015 08:58:37 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFSTRUCT (REDEF-TEST-11 #) ...)
; file: /«PKGBUILDDIR»/tests/defstruct-redef-test-2.lisp
; in: DEFSTRUCT REDEF-TEST-11
;     (DEFSTRUCT (REDEF-TEST-11 (:CONSTRUCTOR MAKE-REDEF-TEST-11)) A B)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION REDEF-TEST-11 {521D9489}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class REDEF-TEST-11:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   undeclaring functions for old subclasses of REDEF-TEST-11:
;     (REDEF-TEST-11-SUB)
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of
;   #<STRUCTURE-CLASSOID REDEF-TEST-11>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:A T) (:B T)) REDEF-TEST-11)
;      MAKE-REDEF-TEST-11)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-REDEF-TEST-11
;     (FUNCTION (&KEY (:A T) (:B T)) (VALUES REDEF-TEST-11 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:A T)) (VALUES REDEF-TEST-11 &OPTIONAL))
; 
; compilation unit finished
;   caught 3 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/defstruct-redef-test-2.fasl written
; compilation finished in 0:00:00.155
;; loading #P"/«PKGBUILDDIR»/tests/defstruct-redef-test-1.fasl"
::: Success :DEFSTRUCT/SUBCLASS-IN-OTHER-FILE-FUNNY-OPERATION-ORDER-CONTINUE

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: WITH-TEST (:NAME :RAW-SLOT/CIRCLE-SUBST)
;     (RAW-SLOT/CIRCLE-SUBST-P STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: RAW-SLOT/CIRCLE-SUBST-P

;     (RAW-SLOT/CIRCLE-SUBST-X STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: RAW-SLOT/CIRCLE-SUBST-X
; 
; compilation unit finished
;   Undefined functions:
;     RAW-SLOT/CIRCLE-SUBST-P RAW-SLOT/CIRCLE-SUBST-X
;   caught 2 STYLE-WARNING conditions
::: Running :RAW-SLOT/CIRCLE-SUBST
STYLE-WARNING:
   Previously compiled calls to COMMON-LISP-USER::RAW-SLOT/CIRCLE-SUBST-P and
   COMMON-LISP-USER::RAW-SLOT/CIRCLE-SUBST-X could not be inlined because the
   structure definition for COMMON-LISP-USER::RAW-SLOT/CIRCLE-SUBST was not yet
   seen. To avoid this warning, DEFSTRUCT should precede references to the
   affected functions, or they must be declared locally notinline at each call
   site.
::: Success :RAW-SLOT/CIRCLE-SUBST
::: Running :BUG-3B
::: Success :BUG-3B
::: Running :DEFSTRUCT-COPIER-TYPECHECKS-ARGUMENT
::: Success :DEFSTRUCT-COPIER-TYPECHECKS-ARGUMENT
::: Running :BUG-528807
::: Success :BUG-528807
::: Running :BUG-520607
::: Success :BUG-520607

; in: WITH-TEST (:NAME (:BOA-SUPPLIED-P &OPTIONAL))
;     (BOA-SUPPLIED-P.1-BAR B1)
; 
; caught STYLE-WARNING:
;   undefined function: BOA-SUPPLIED-P.1-BAR

;     (BOA-SUPPLIED-P.1-BARP B1)
; 
; caught STYLE-WARNING:
;   undefined function: BOA-SUPPLIED-P.1-BARP

;     (MAKE-BOA-SUPPLIED-P.1)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-BOA-SUPPLIED-P.1
; 
; compilation unit finished
;   Undefined functions:
;     BOA-SUPPLIED-P.1-BAR BOA-SUPPLIED-P.1-BARP MAKE-BOA-SUPPLIED-P.1
;   caught 3 STYLE-WARNING conditions
::: Running (:BOA-SUPPLIED-P &OPTIONAL)
::: Success (:BOA-SUPPLIED-P &OPTIONAL)

; in: WITH-TEST (:NAME (:BOA-SUPPLIED-P &KEY))
;     (BOA-SUPPLIED-P.2-BAR B1)
; 
; caught STYLE-WARNING:
;   undefined function: BOA-SUPPLIED-P.2-BAR

;     (BOA-SUPPLIED-P.2-BARP B1)
; 
; caught STYLE-WARNING:
;   undefined function: BOA-SUPPLIED-P.2-BARP

;     (MAKE-BOA-SUPPLIED-P.2)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-BOA-SUPPLIED-P.2
; 
; compilation unit finished
;   Undefined functions:
;     BOA-SUPPLIED-P.2-BAR BOA-SUPPLIED-P.2-BARP MAKE-BOA-SUPPLIED-P.2
;   caught 3 STYLE-WARNING conditions
::: Running (:BOA-SUPPLIED-P &KEY)
::: Success (:BOA-SUPPLIED-P &KEY)
::: Running (:STRUCT-PREDICATE :OBSOLETE-INSTANCE)
::: Success (:STRUCT-PREDICATE :OBSOLETE-INSTANCE)
::: Running (:DEFSTRUCT :NOT-TOPLEVEL-SILENT)
::: Success (:DEFSTRUCT :NOT-TOPLEVEL-SILENT)
::: Running :BUG-941102

; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:58:39 AM):
; compiling (DEFSTRUCT BUG-941102)
; compiling (SETF (FIND-CLASS #) ...)
; compiling (SETF (FIND-CLASS #) ...)

; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.099
;; loading #P"/«PKGBUILDDIR»/tests/file-compile-tmp.fasl"
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 08:58:39 AM):
; compiling (DEFSTRUCT BUG-941102)
; compiling (SETF (FIND-CLASS #) ...)
; compiling (SETF (FIND-CLASS #) ...)

; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.099
::: Success :BUG-941102

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in:
;      DEFSTRUCT-CONSTANT-SLOT-NAMES-T (MAKE-DEFSTRUCT-CONSTANT-SLOT-NAMES :T 3)
;     (DEFSTRUCT-CONSTANT-SLOT-NAMES-T (MAKE-DEFSTRUCT-CONSTANT-SLOT-NAMES :T 3))
; 
; caught STYLE-WARNING:
;   undefined function: DEFSTRUCT-CONSTANT-SLOT-NAMES-T
; 
; compilation unit finished
;   Undefined function:
;     DEFSTRUCT-CONSTANT-SLOT-NAMES-T
;   caught 1 STYLE-WARNING condition
::: Running (:DEFSTRUCT :CONSTANT-SLOT-NAMES)
STYLE-WARNING:
   Previously compiled call to
   COMMON-LISP-USER::DEFSTRUCT-CONSTANT-SLOT-NAMES-T could not be inlined
   because the structure definition for
   COMMON-LISP-USER::DEFSTRUCT-CONSTANT-SLOT-NAMES was not yet seen. To avoid
   this warning, DEFSTRUCT should precede references to the affected functions,
   or they must be declared locally notinline at each call site.
::: Success (:DEFSTRUCT :CONSTANT-SLOT-NAMES)
::: Running (:DEFSTRUCT :BOGUS-INHERITED-SLOT-SPECS)
::: Success (:DEFSTRUCT :BOGUS-INHERITED-SLOT-SPECS)

; file: /«PKGBUILDDIR»/tests/defstruct.impure.lisp
; in: DEFSTRUCT BOGUS-AUX.1
;     (DEFSTRUCT BOGUS-AUX.1 (:CONSTRUCTOR MAKE-BOGUS-AUX.1 (&AUX (A B C))))
; 
; caught ERROR:
;   during macroexpansion of
;   (DEFSTRUCT BOGUS-AUX.1 (:CONSTRUCTOR MAKE-BOGUS-AUX.1 #)). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    error while parsing arguments to DESTRUCTURING-BIND:
;      odd number of elements in keyword/value list: ((&AUX (A B C)))
; 
; compilation unit finished
;   caught 1 ERROR condition

; in: WITH-TEST (:NAME (:DEFSTRUCT :LEXICAL-DEFAULT))
;     (LEXICAL-DEFAULT-A (MAKE-LEXICAL-DEFAULT))
; 
; caught STYLE-WARNING:
;   undefined function: LEXICAL-DEFAULT-A
; 
; compilation unit finished
;   Undefined function:
;     LEXICAL-DEFAULT-A
;   caught 1 STYLE-WARNING condition
::: Running (:DEFSTRUCT :LEXICAL-DEFAULT)
STYLE-WARNING:
   Previously compiled call to COMMON-LISP-USER::LEXICAL-DEFAULT-A could not be
   inlined because the structure definition for
   COMMON-LISP-USER::LEXICAL-DEFAULT was not yet seen. To avoid this warning,
   DEFSTRUCT should precede references to the affected functions, or they must
   be declared locally notinline at each call site.
::: Success (:DEFSTRUCT :LEXICAL-DEFAULT)
::: Running (:DEFSTRUCT :FIND-DEFSTRUCT-DESCRIPTION)
::: Success (:DEFSTRUCT :FIND-DEFSTRUCT-DESCRIPTION)
::: Running (:DEFSTRUCT :NAMED-TYPED-STRUCT-SUBTYPE-PRED)
::: Success (:DEFSTRUCT :NAMED-TYPED-STRUCT-SUBTYPE-PRED)
::: Running :DEFSTRUCT-PARSE-STRICTLY
::: Success :DEFSTRUCT-PARSE-STRICTLY
// Running /«PKGBUILDDIR»/tests/deftype.impure.lisp
WARNING: The class FOO is being redefined to be a DEFTYPE.
WARNING: redefining DEFTYPE type to be a class: COMMON-LISP-USER::BAR
::: Running :DEFTYPE-NOT-LIST-LAMBDA-LIST
::: Success :DEFTYPE-NOT-LIST-LAMBDA-LIST
// Running /«PKGBUILDDIR»/tests/deprecation.impure.lisp
::: Running (SB-INT:DEFINE-DEPRECATED-VARIABLE :EARLY)
::: Success (SB-INT:DEFINE-DEPRECATED-VARIABLE :EARLY)
::: Running (SB-INT:DEFINE-DEPRECATED-VARIABLE :LATE)
::: Success (SB-INT:DEFINE-DEPRECATED-VARIABLE :LATE)
::: Running (SB-INT:DEFINE-DEPRECATED-VARIABLE :FINAL)
::: Success (SB-INT:DEFINE-DEPRECATED-VARIABLE :FINAL)
::: Running (SB-INT:DEFINE-DEPRECATED-FUNCTION :EARLY)
::: Success (SB-INT:DEFINE-DEPRECATED-FUNCTION :EARLY)
::: Running (SB-INT:DEFINE-DEPRECATED-FUNCTION :LATE)
::: Success (SB-INT:DEFINE-DEPRECATED-FUNCTION :LATE)
::: Running (SB-INT:DEFINE-DEPRECATED-FUNCTION :FINAL)
::: Success (SB-INT:DEFINE-DEPRECATED-FUNCTION :FINAL)
::: Running (SB-INT:DEFINE-DEPRECATED-FUNCTION :TWO-REPLACEMENTS)
::: Success (SB-INT:DEFINE-DEPRECATED-FUNCTION :TWO-REPLACEMENTS)
::: Running (SB-INT:DEFINE-DEPRECATED-FUNCTION :THREE-REPLACEMENTS)
::: Success (SB-INT:DEFINE-DEPRECATED-FUNCTION :THREE-REPLACEMENTS)
::: Running :INTROSPECT-DEPRECATION-STAGE
::: Success :INTROSPECT-DEPRECATION-STAGE
::: Running :LATE-DEPRECATED-FUN-DOC
::: Success :LATE-DEPRECATED-FUN-DOC
::: Running :LOAD-TIME-DEPRECATION-WARNING
STYLE-WARNING: Reference to deprecated function (QUIT) from A
WARNING:
   Reference to deprecated functions (REALLY-DONT-DO-IT
                                      PLEASE-DONT-USE-THIS) from B
WARNING: Reference to deprecated function (YOU-CANT-USE-THIS) from C
::: Success :LOAD-TIME-DEPRECATION-WARNING
// Running /«PKGBUILDDIR»/tests/destructure.impure.lisp
The value 1 is not of type LIST.// Running /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
::: Running (:DX-&REST :BASICS)
::: Success (:DX-&REST :BASICS)
::: Running (:DX-&REST :PASS-DOWN-TO-CALLEE :TAIL-CALL)
::: Success (:DX-&REST :PASS-DOWN-TO-CALLEE :TAIL-CALL)
::: Running (:DX-&REST :PASS-DOWN-TO-CALLEE :NON-TAIL-CALL)
::: Success (:DX-&REST :PASS-DOWN-TO-CALLEE :NON-TAIL-CALL)
::: Running (:NIP-VALUES)
::: Success (:NIP-VALUES)
::: Running (:LET-VARIABLE-SUBSTITUTION)
::: Success (:LET-VARIABLE-SUBSTITUTION)
::: Running (:LET-VARIABLE-SUBSTITUTION-2)
::: Success (:LET-VARIABLE-SUBSTITUTION-2)
::: Running (:DX-PROPAGATION-THROUGH-LET-RETURN)
::: Success (:DX-PROPAGATION-THROUGH-LET-RETURN)
::: Running (:DX-LIST :ALIGNMENT)
::: Success (:DX-LIST :ALIGNMENT)
::: Running (:DX-CLOSURE)
::: Success (:DX-CLOSURE)

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX DX-VALUE-CELL
;     (DEFUN-WITH-DX DX-VALUE-CELL
;         (X))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX DX-VALUE-CELL
;     (DEFUN-WITH-DX DX-VALUE-CELL
;         (X))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-1.1
;     (DEFUN-WITH-DX TEST-FP-STRUCT-1.1
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-1 :S S)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL S (FP-STRUCT-1-S FP)))
;         (ASSERT (EQL 0.0d0 (FP-STRUCT-1-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-1.1
;     (DEFUN-WITH-DX TEST-FP-STRUCT-1.1
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-1 :S S)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL S (FP-STRUCT-1-S FP)))
;         (ASSERT (EQL 0.0d0 (FP-STRUCT-1-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-1.2
;     (DEFUN-WITH-DX TEST-FP-STRUCT-1.2
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-1 :D D)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL 0.0 (FP-STRUCT-1-S FP)))
;         (ASSERT (EQL D (FP-STRUCT-1-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-1.2
;     (DEFUN-WITH-DX TEST-FP-STRUCT-1.2
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-1 :D D)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL 0.0 (FP-STRUCT-1-S FP)))
;         (ASSERT (EQL D (FP-STRUCT-1-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:TEST-FP-STRUCT-1.1)
::: Success (:TEST-FP-STRUCT-1.1)
::: Running (:TEST-FP-STRUCT-1.2)
::: Success (:TEST-FP-STRUCT-1.2)
::: Running (:TEST-FP-STRUCT-1.3)
::: Success (:TEST-FP-STRUCT-1.3)
::: Running (:TEST-FP-STRUCT-1.4)
::: Success (:TEST-FP-STRUCT-1.4)

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-2.1
;     (DEFUN-WITH-DX TEST-FP-STRUCT-2.1
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-2 :S S)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL S (FP-STRUCT-2-S FP)))
;         (ASSERT (EQL 0.0d0 (FP-STRUCT-2-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-2.1
;     (DEFUN-WITH-DX TEST-FP-STRUCT-2.1
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-2 :S S)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL S (FP-STRUCT-2-S FP)))
;         (ASSERT (EQL 0.0d0 (FP-STRUCT-2-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-2.2
;     (DEFUN-WITH-DX TEST-FP-STRUCT-2.2
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-2 :D D)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL 0.0 (FP-STRUCT-2-S FP)))
;         (ASSERT (EQL D (FP-STRUCT-2-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-FP-STRUCT-2.2
;     (DEFUN-WITH-DX TEST-FP-STRUCT-2.2
;         (S D)
;       (LET ((FP (MAKE-FP-STRUCT-2 :D D)))
;         (DECLARE (DYNAMIC-EXTENT FP))
;         (ASSERT (EQL 0.0 (FP-STRUCT-2-S FP)))
;         (ASSERT (EQL D (FP-STRUCT-2-D FP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:TEST-FP-STRUCT-2.1)
::: Success (:TEST-FP-STRUCT-2.1)
::: Running (:TEST-FP-STRUCT-2.2)
::: Success (:TEST-FP-STRUCT-2.2)
::: Running (:TEST-FP-STRUCT-2.3)
::: Success (:TEST-FP-STRUCT-2.3)
::: Running (:TEST-FP-STRUCT-2.4)
::: Success (:TEST-FP-STRUCT-2.4)

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-1.1
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-1.1
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-1 :S S)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL S (CFP-STRUCT-1-S CFP)))
;         (ASSERT (EQL (COMPLEX 0.0d0) (CFP-STRUCT-1-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-1.1
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-1.1
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-1 :S S)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL S (CFP-STRUCT-1-S CFP)))
;         (ASSERT (EQL (COMPLEX 0.0d0) (CFP-STRUCT-1-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-1.2
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-1.2
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-1 :D D)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL (COMPLEX 0.0) (CFP-STRUCT-1-S CFP)))
;         (ASSERT (EQL D (CFP-STRUCT-1-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-1.2
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-1.2
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-1 :D D)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL (COMPLEX 0.0) (CFP-STRUCT-1-S CFP)))
;         (ASSERT (EQL D (CFP-STRUCT-1-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:TEST-CFP-STRUCT-1.1)
::: Success (:TEST-CFP-STRUCT-1.1)
::: Running (:TEST-CFP-STRUCT-1.2)
::: Success (:TEST-CFP-STRUCT-1.2)
::: Running (:TEST-CFP-STRUCT-1.3)
::: Success (:TEST-CFP-STRUCT-1.3)
::: Running (:TEST-CFP-STRUCT-1.4)
::: Success (:TEST-CFP-STRUCT-1.4)

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-2.1
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-2.1
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-2 :S S)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL S (CFP-STRUCT-2-S CFP)))
;         (ASSERT (EQL (COMPLEX 0.0d0) (CFP-STRUCT-2-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-2.1
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-2.1
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-2 :S S)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL S (CFP-STRUCT-2-S CFP)))
;         (ASSERT (EQL (COMPLEX 0.0d0) (CFP-STRUCT-2-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable D is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-2.2
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-2.2
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-2 :D D)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL (COMPLEX 0.0) (CFP-STRUCT-2-S CFP)))
;         (ASSERT (EQL D (CFP-STRUCT-2-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX TEST-CFP-STRUCT-2.2
;     (DEFUN-WITH-DX TEST-CFP-STRUCT-2.2
;         (S D)
;       (LET ((CFP (MAKE-CFP-STRUCT-2 :D D)))
;         (DECLARE (DYNAMIC-EXTENT CFP))
;         (ASSERT (EQL (COMPLEX 0.0) (CFP-STRUCT-2-S CFP)))
;         (ASSERT (EQL D (CFP-STRUCT-2-D CFP)))))
; 
; caught STYLE-WARNING:
;   The variable S is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:TEST-CFP-STRUCT-2.1)
::: Success (:TEST-CFP-STRUCT-2.1)
::: Running (:TEST-CFP-STRUCT-2.2)
::: Success (:TEST-CFP-STRUCT-2.2)
::: Running (:TEST-CFP-STRUCT-2.3)
::: Success (:TEST-CFP-STRUCT-2.3)
::: Running (:TEST-CFP-STRUCT-2.4)
::: Success (:TEST-CFP-STRUCT-2.4)

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX MAKE-FOO2-ON-STACK
;     (DEFUN-WITH-DX MAKE-FOO2-ON-STACK
;         (X Y)
;       (LET ((FOO (MAKE-FOO2 :Y Y :C 'C)))
;         (DECLARE (DYNAMIC-EXTENT FOO))
;         (ASSERT (EQL 0.0 (FOO2-X FOO)))
;         (ASSERT (EQL Y (FOO2-Y FOO)))
;         (ASSERT (EQL 'C (FOO2-C FOO)))
;         (ASSERT (EQL NIL (FOO2-B FOO)))))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN-WITH-DX MAKE-FOO2-ON-STACK
;     (DEFUN-WITH-DX MAKE-FOO2-ON-STACK
;         (X Y)
;       (LET ((FOO (MAKE-FOO2 :Y Y :C 'C)))
;         (DECLARE (DYNAMIC-EXTENT FOO))
;         (ASSERT (EQL 0.0 (FOO2-X FOO)))
;         (ASSERT (EQL Y (FOO2-Y FOO)))
;         (ASSERT (EQL 'C (FOO2-C FOO)))
;         (ASSERT (EQL NIL (FOO2-B FOO)))))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :CONSERVATIVE-NESTED-DX
::: Success :CONSERVATIVE-NESTED-DX

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN LIST-DELETE-SOME-STUFF
;     (DELETE 'A (OPAQUE-IDENTITY '(X Y)))
; 
; caught STYLE-WARNING:
;   The return value of DELETE should not be discarded.

;     (DELETE 'A (OPAQUE-IDENTITY '(X Y)) :FROM-END T)
; 
; caught STYLE-WARNING:
;   The return value of DELETE should not be discarded.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running (:NO-CONSING :DX-CLOSURES)
::: Success (:NO-CONSING :DX-CLOSURES)
::: Running (:NO-CONSING :DX-LISTS)
::: Success (:NO-CONSING :DX-LISTS)
::: Running (:NO-CONSING :DX-VALUE-CELL)
::: Success (:NO-CONSING :DX-VALUE-CELL)
::: Running (:NO-CONSING :DX-FIXED-OBJECTS)
::: Success (:NO-CONSING :DX-FIXED-OBJECTS)
::: Running (:NO-CONSING :DX-VECTORS)
::: Success (:NO-CONSING :DX-VECTORS)
::: SKIPPED-DISABLED (:NO-CONSING :SPECIALIZED-DX-VECTORS)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:NO-CONSING :DX-RAW-INSTANCES)
    Test disabled for this combination of platform and features
::: Running (:NO-CONSING :HASH-TABLES)
::: Success (:NO-CONSING :HASH-TABLES)
::: Running (:NO-CONSING :WITHOUT-GCING)
::: Success (:NO-CONSING :WITHOUT-GCING)
::: Running (:NO-CONSING :WITH-PINNED-OBJECTS)
::: Success (:NO-CONSING :WITH-PINNED-OBJECTS)
::: SKIPPED-DISABLED (:NO-CONSING :MUTEX)
    Test disabled for this combination of platform and features
::: Running (:DX-BUG-MISC :PFDIETZ)
; in: LAMBDA (A B)
;     (LET* ((V5 (CONS B B)))
;       (DECLARE (DYNAMIC-EXTENT V5))
;       A)
; 
; caught STYLE-WARNING:
;   The variable V5 is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success (:DX-BUG-MISC :PFDIETZ)
::: Running (:DX-BUGS-MISC :SVEIN-2005-II-07)
::: Success (:DX-BUGS-MISC :SVEIN-2005-II-07)
::: Running (:DX-BUG-MISC :BDOWNING-2005-IV-16)
::: Success (:DX-BUG-MISC :BDOWNING-2005-IV-16)
::: Running :REST-STOPS-THE-BUCK
::: Success :REST-STOPS-THE-BUCK
::: Running :LET-CONVERTED-VARS-DX-ALLOCATED-BUG
::: Success :LET-CONVERTED-VARS-DX-ALLOCATED-BUG
::: Running (:DX-BUG-MISC :BUG419)
::: Success (:DX-BUG-MISC :BUG419)
::: Running (:DX-FLET-TEST 0)
::: Success (:DX-FLET-TEST 0)
::: Running (:DX-FLET-TEST 1)
::: Success (:DX-FLET-TEST 1)
::: Running (:DX-FLET-TEST 2)
::: Success (:DX-FLET-TEST 2)
::: Running (:UPDATE-UVL-LIVE-SETS)
::: Success (:UPDATE-UVL-LIVE-SETS)
::: Running :REGRESSION-1.0.23.38
; in: LAMBDA ()
;     (FLET ((MAKE (X Y)
;              (LET (#)
;                (SETF #)
;                RES)))
;       (DECLAIM (INLINE MAKE))
;       (LET ((Z (MAKE 1 2)))
;         (DECLARE (DYNAMIC-EXTENT Z))
;         (PRINT Z)
;         T))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended

;     (LET ((RES (CONS X X)))
;       (SETF (CDR RES) Y)
;       RES)
; ==>
;   RES
; 
; note: could not stack allocate RES in:
;        (LET ((RES (CONS X X)))
;          (SETF (CDR RES) Y)
;          RES)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 1 note
; in: LAMBDA ()
;     (FLET ((MAKE (X Y)
;              (LET (#)
;                (SETF #)
;                (IF X
;                    RES
;                    Y))))
;       (DECLAIM (INLINE MAKE))
;       (LET ((Z (MAKE 1 2)))
;         (DECLARE (DYNAMIC-EXTENT Z))
;         (PRINT Z)
;         T))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended

;     (IF X
;         RES
;         Y)
; ==>
;   Y
; 
; note: deleting unreachable code

; ==>
;   RES
; 
; note: could not stack allocate RES in:
;        (IF X
;            RES
;            Y)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 2 notes
::: Success :REGRESSION-1.0.23.38
::: Running :LENGTH-AND-WORDS-PACKED-IN-SAME-TN
::: Success :LENGTH-AND-WORDS-PACKED-IN-SAME-TN
::: Running :HANDLER-CASE-BOGUS-COMPILER-NOTE
; in: LAMBDA (FILES FASL-DIR LOAD)
;     (BINARY-PATHNAME SRC FASL-DIR)
; 
; caught STYLE-WARNING:
;   undefined function: BINARY-PATHNAME

;     (FILE-NEWER-P SRC DEST)
; 
; caught STYLE-WARNING:
;   undefined function: FILE-NEWER-P

;     (HANDLE-LOADTIME-ERROR C DEST)
; 
; caught STYLE-WARNING:
;   undefined function: HANDLE-LOADTIME-ERROR
; 
; compilation unit finished
;   Undefined functions:
;     BINARY-PATHNAME FILE-NEWER-P HANDLE-LOADTIME-ERROR
;   caught 3 STYLE-WARNING conditions
::: Success :HANDLER-CASE-BOGUS-COMPILER-NOTE
::: Running :DX-COMPILER-NOTES
; in: LAMBDA (X)
;     (MAKE-ARRAY X)
; --> LOCALLY MAKE-ARRAY 
; ==>
;   (SB-KERNEL:%MAKE-ARRAY SB-C::DIMS 214 32)
; 
; note: could not stack allocate: (MAKE-ARRAY X)
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA (X)
;     (TRUE X)
; 
; note: could not stack allocate: (TRUE X)

;     (TRUE (- X))
; 
; note: could not stack allocate: (TRUE (- X))
; 
; compilation unit finished
;   printed 2 notes
; in: LAMBDA (X)
;     (FOOVECTOR X X X)
; --> BLOCK LET 
; ==>
;   V
; 
; note: could not stack allocate V in: (FOOVECTOR X X X)
; 
; compilation unit finished
;   printed 1 note
::: Success :DX-COMPILER-NOTES

; file: /«PKGBUILDDIR»/tests/dynamic-extent.impure.lisp
; in: DEFUN HANDLER-CASE-EATING-STACK
;     (MULTIPLE-VALUE-BIND (VALUE ERROR)
;         (IGNORE-ERRORS)
;       (WHEN (AND VALUE ERROR) NIL))
; ==>
;   (MULTIPLE-VALUE-CALL
;       #'(LAMBDA (&OPTIONAL (VALUE) (ERROR) &REST #:G2)
;           (DECLARE (IGNORE #:G2))
;           (WHEN (AND VALUE ERROR) NIL))
;     (IGNORE-ERRORS))
; 
; caught WARNING:
;   dead code detected at the end of SB-C::IR1-PHASES

;     (IGNORE-ERRORS)
; --> HANDLER-CASE SB-INT:DX-FLET FLET 
; ==>
;   (BLOCK #:BLOCK7
;     (SB-INT:DX-LET ((#:CELL8 (CONS :CONDITION NIL)))
;       (DECLARE (IGNORABLE #:CELL8))
;       (TAGBODY
;         (SB-IMPL::%HANDLER-BIND (#) (RETURN-FROM #:BLOCK7 #))
;        #:TAG5
;         (RETURN-FROM #:BLOCK7 (#:FUN6 #)))))
; 
; caught WARNING:
;   dead code detected at the end of SB-C::IR1-PHASES

; --> HANDLER-CASE SB-INT:DX-FLET FLET BLOCK VALUES THE 
; ==>
;   #<SB-C::GLOBAL-VAR
;     :%SOURCE-NAME VALUES
;     :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;     :DEFINED-TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;     :WHERE-FROM :DECLARED
;     :KIND :GLOBAL-FUNCTION {52D39269}>
; 
; caught WARNING:
;   dead code detected at the end of SB-C::IR1-PHASES

; --> HANDLER-CASE SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> RETURN-FROM #:FUN6 CDR THE 
; ==>
;   #<SB-C::GLOBAL-VAR
;     :%SOURCE-NAME CDR
;     :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (LIST) (VALUES T &OPTIONAL))>
;     :DEFINED-TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (LIST) (VALUES T &OPTIONAL))>
;     :WHERE-FROM :DECLARED
;     :KIND :GLOBAL-FUNCTION {52D3DAC9}>
; 
; caught WARNING:
;   dead code detected at the end of SB-C::IR1-PHASES
; 
; compilation unit finished
;   caught 4 WARNING conditions
::: Running :HANDLER-CASE-EATING-STACK
::: Success :HANDLER-CASE-EATING-STACK
::: Running :RECHECK-NESTED-DX-BUG
::: Success :RECHECK-NESTED-DX-BUG
::: Running :BUG-497321
; in: LAMBDA ()
;     (DYNAMIC-EXTENT #'BAR)
; 
; caught STYLE-WARNING:
;   Unbound function declared DYNAMIC-EXTENT: #'BAR
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (DYNAMIC-EXTENT BAR)
; 
; caught STYLE-WARNING:
;   Unbound variable declared DYNAMIC-EXTENT: BAR
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA (BAR)
;     (DYNAMIC-EXTENT BAR)
; 
; note: Ignoring free DYNAMIC-EXTENT declaration: BAR
; 
; compilation unit finished
;   printed 1 note
; in: LAMBDA ()
;     (DYNAMIC-EXTENT #'BAR)
; 
; note: Ignoring free DYNAMIC-EXTENT declaration: #'BAR
; 
; compilation unit finished
;   printed 1 note
::: Success :BUG-497321
::: Running :BUG-586105
::: Success :BUG-586105
::: Running :BUG-681092
::: Success :BUG-681092
::: Running :REST-STOPS-DYNAMIC-EXTENT
::: Success :REST-STOPS-DYNAMIC-EXTENT
::: Running :REST-TO-MORE-CONVERSION
; in: LAMBDA (F &OPTIONAL X &REST ARGS &KEY Y &ALLOW-OTHER-KEYS)
;     (LAMBDA (F &OPTIONAL X &REST ARGS &KEY Y &ALLOW-OTHER-KEYS)
;       (APPLY F Y X ARGS))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (F &OPTIONAL X &REST ARGS
;                                                      &KEY Y &ALLOW-OTHER-KEYS)
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :REST-TO-MORE-CONVERSION
::: Running :IMPLICIT-VALUE-CELLS
::: Success :IMPLICIT-VALUE-CELLS
::: Running :SAP-IMPLICIT-VALUE-CELLS
::: Success :SAP-IMPLICIT-VALUE-CELLS
::: Running :&MORE-BOUNDS
::: Success :&MORE-BOUNDS
// Running /«PKGBUILDDIR»/tests/enc-cn.impure.lisp
STYLE-WARNING:
   Character decoding error in a ;-comment at position 135 reading source stream #<FORM-TRACKING-STREAM
                                                                                   for "file /«PKGBUILDDIR»/tests/enc-cn.impure.lisp"
                                                                                   {5248C029}>, resyncing.
// Running /«PKGBUILDDIR»/tests/enc-jpn.impure.lisp
STYLE-WARNING:
   Character decoding error in a ;-comment at position 64 reading source stream #<FORM-TRACKING-STREAM
                                                                                  for "file /«PKGBUILDDIR»/tests/enc-jpn.impure.lisp"
                                                                                  {5248C1A1}>, resyncing.
// Running /«PKGBUILDDIR»/tests/eval.impure.lisp
; in: PROGN (PRINC ".")
;     (LET ((X 42))
;       T)
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/eval.impure.lisp
; in: DEFUN TAGBODY-DUAL-GO-TAGS
;     (TAGBODY :A :A)
; 
; caught ERROR:
;   The tag :A appears more than once in a tagbody.
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Running :TAGBODY-DUAL-GO-TAGS
::: Success :TAGBODY-DUAL-GO-TAGS
::: Running :TAGBODY-NIL-IS-VALID-TAG
::: Success :TAGBODY-NIL-IS-VALID-TAG
::: Running :TOPLEVEL-DECLARE
; in: DECLARE (TYPE PATHNAME *SCRATCH*)
;     (DECLARE (TYPE PATHNAME *SCRATCH*))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success :TOPLEVEL-DECLARE
::: Running (EVAL :NO-COMPILER-NOTES)
::: Success (EVAL :NO-COMPILER-NOTES)
::: Running :BUG-238
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::BUG-238.
::: Success :BUG-238
::: Running :BUG-524707
::: Success :BUG-524707
::: Running (EVAL :SOURCE-CONTEXT-IN-COMPILER)
::: Success (EVAL :SOURCE-CONTEXT-IN-COMPILER)


; file: /«PKGBUILDDIR»/tests/eval.impure.lisp
; in: WITH-TEST (:NAME (EVAL :EMPTY-LET-IS-NOT-TOPLEVEL))
;     (EMPTY-LET-IS-NOT-TOPLEVEL-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: EMPTY-LET-IS-NOT-TOPLEVEL-FUN
; 
; compilation unit finished
;   Undefined function:
;     EMPTY-LET-IS-NOT-TOPLEVEL-FUN
;   caught 1 STYLE-WARNING condition
::: Running (EVAL :EMPTY-LET-IS-NOT-TOPLEVEL)

; in: DEFUN EMPTY-LET-IS-NOT-TOPLEVEL-FUN
;     (EMPTY-LET-IS-NOT-TOPLEVEL-X)
; 
; caught STYLE-WARNING:
;   undefined function: EMPTY-LET-IS-NOT-TOPLEVEL-X
; 
; compilation unit finished
;   Undefined function:
;     EMPTY-LET-IS-NOT-TOPLEVEL-X
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   EMPTY-LET-IS-NOT-TOPLEVEL-X is being redefined as a macro when it was previously assumed to be a function.
; in: DEFUN EMPTY-LET-IS-NOT-TOPLEVEL-X
;     (SB-INT:NAMED-LAMBDA EMPTY-LET-IS-NOT-TOPLEVEL-X
;         NIL
;       (BLOCK EMPTY-LET-IS-NOT-TOPLEVEL-X :FUN))
; 
; caught STYLE-WARNING:
;   EMPTY-LET-IS-NOT-TOPLEVEL-X was previously defined as a macro.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: redefining COMMON-LISP-USER::EMPTY-LET-IS-NOT-TOPLEVEL-X in DEFUN
STYLE-WARNING:
   EMPTY-LET-IS-NOT-TOPLEVEL-X is being redefined as a macro when it was previously defined to be a function.
STYLE-WARNING:
   redefining COMMON-LISP-USER::EMPTY-LET-IS-NOT-TOPLEVEL-X in DEFMACRO
STYLE-WARNING:
   redefining COMMON-LISP-USER::EMPTY-LET-IS-NOT-TOPLEVEL-FUN in DEFUN
STYLE-WARNING: EMPTY-LET-IS-NOT-TOPLEVEL-X was previously defined as a macro.
STYLE-WARNING: redefining COMMON-LISP-USER::EMPTY-LET-IS-NOT-TOPLEVEL-X in DEFUN
::: Success (EVAL :EMPTY-LET-IS-NOT-TOPLEVEL)
::: Running (EVAL FUNCTION-LAMBDA-EXPRESSION)
::: Success (EVAL FUNCTION-LAMBDA-EXPRESSION)
::: Running (:BUG-573747 EVAL :COMPILE)
; in: DECLARE (PRINT "foo" *OUT*)
;     (DECLARE (PRINT "foo" *OUT*))
; 
; caught ERROR:
;   There is no function named DECLARE.  References to DECLARE in some contexts
;   (like starts of blocks) are unevaluated expressions, but here the expression is
;   being evaluated, which invokes undefined behaviour.
; 
; compilation unit finished
;   caught 1 ERROR condition
::: Success (:BUG-573747 EVAL :COMPILE)
::: Running (:BUG-573747 EVAL :INTERPRET)
::: Success (:BUG-573747 EVAL :INTERPRET)
// Running /«PKGBUILDDIR»/tests/exhaust.impure.lisp
::: Running (:EXHAUST :BASIC)
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
::: Success (:EXHAUST :BASIC)
::: Running (:EXHAUST :NON-LOCAL-CONTROL)
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
::: Success (:EXHAUST :NON-LOCAL-CONTROL)
::: Running (:EXHAUST :RESTARTS)
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
INFO: Control stack guard page reprotected
INFO: Control stack guard page unprotected
Control stack guard page temporarily disabled: proceed with caution
::: Success (:EXHAUST :RESTARTS)
::: Running (:EXHAUST :BINDING-STACK)
INFO: Control stack guard page reprotected
INFO: Binding stack guard page unprotected
Binding stack guard page temporarily disabled: proceed with caution
INFO: Binding stack guard page reprotected
::: Success (:EXHAUST :BINDING-STACK)
::: SKIPPED-DISABLED (:EXHAUST :ALIEN-STACK)
    Test disabled for this combination of platform and features
// Running /«PKGBUILDDIR»/tests/extended-sequences.impure.lisp
::: Running (MAKE-SEQUENCE DEFTYPE :BUG-1315846)
::: Success (MAKE-SEQUENCE DEFTYPE :BUG-1315846)
// Running /«PKGBUILDDIR»/tests/external-format.impure.lisp

; file: /«PKGBUILDDIR»/tests/external-format.impure.lisp
; in: DEFMACRO DO-EXTERNAL-FORMATS
;     (DEFMACRO DO-EXTERNAL-FORMATS ((XF &OPTIONAL RESULT) &BODY BODY)
;       (LET ((NXF (GENSYM)))
;         `(LOOP FOR ,NXF BEING THE HASH-VALUES OF SB-IMPL::*EXTERNAL-FORMATS*
;                DO (LET (#)
;                     ,@BODY))))
; --> PROGN FUNCTION LET* 
; ==>
;   (LET* ((XF (CAR #:REQUIRED-577))
;          (RESULT
;           (IF (NOT #)
;               (CAR #)
;               NIL))
;          (BODY (CDR (CDR #:.WHOLE.))))
;     (BLOCK DO-EXTERNAL-FORMATS
;       (LET ((NXF #))
;         `(LOOP FOR ,NXF BEING THE HASH-VALUES OF SB-IMPL::*EXTERNAL-FORMATS*
;                DO (LET #
;                     ,@BODY)))))
; 
; caught STYLE-WARNING:
;   The variable RESULT is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :END-OF-FILE
::: Success :END-OF-FILE
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-32BE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-32BE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-32LE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-32LE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-16BE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-16BE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-16LE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-16LE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-4BE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-4BE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-4LE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-4LE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-2BE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-2BE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-2LE)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UCS-2LE)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :SHIFT_JIS)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :SHIFT_JIS)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :EUC-JP)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :EUC-JP)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :GBK)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :GBK)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :MAC-ROMAN)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :MAC-ROMAN)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1258)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1258)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1257)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1257)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1256)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1256)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1255)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1255)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1254)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1254)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1253)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1253)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1252)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1252)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1251)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1251)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1250)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP1250)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :LATIN-9)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :LATIN-9)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-14)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-14)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-13)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-13)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-11)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-11)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-10)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-10)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-9)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-9)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-8)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-8)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-7)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-7)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-6)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-6)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-5)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-5)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-4)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-4)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-3)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-3)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-2)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ISO-8859-2)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP874)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP874)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP869)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP869)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP866)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP866)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP865)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP865)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP864)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP864)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP863)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP863)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP862)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP862)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP861)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP861)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP860)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP860)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP857)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP857)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP855)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP855)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP852)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP852)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP850)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP850)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP437)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :CP437)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :X-MAC-CYRILLIC)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :X-MAC-CYRILLIC)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :KOI8-U)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :KOI8-U)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :KOI8-R)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :KOI8-R)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :EBCDIC-US)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :EBCDIC-US)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-8)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :UTF-8)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :LATIN-1)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :LATIN-1)
::: Running (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ASCII)
::: Success (:STANDARD-CHARACTER :READ-WRITE-EQUIVALENCY :ASCII)
::: Running (:CHARACTER-DECODE-LARGE :ATTEMPT-RESYNC)
::: Success (:CHARACTER-DECODE-LARGE :ATTEMPT-RESYNC)
::: Running (:CHARACTER-DECODE-LARGE :FORCE-END-OF-FILE)
::: Success (:CHARACTER-DECODE-LARGE :FORCE-END-OF-FILE)
; compiling file "/«PKGBUILDDIR»/tests/external-format-test.lisp" (written 11 JUN 2015 08:59:23 AM):
; 
; caught STYLE-WARNING:
;   Character decoding error in a ;-comment at position 1 reading source stream #<FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/external-format-test.lisp" {52A841B9}>, resyncing.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; /«PKGBUILDDIR»/tests/external-format-test.fasl written
; compilation finished in 0:00:00.010

; file: /«PKGBUILDDIR»/tests/external-format.impure.lisp
; in:
;      LET* ((KOI8-R-CODES
;         (COERCE '(240 210 201 215 197 212 33) '(VECTOR (UNSIGNED-BYTE 8))))
;        (UNI-CODES #(1055 1088 1080 1074 1077 1090 33))
;        (STRING (OCTETS-TO-STRING KOI8-R-CODES :EXTERNAL-FORMAT :KOI8-R))
;        (UNI-DECODED (MAP 'VECTOR #'CHAR-CODE STRING)))
;     (LET* ((KOI8-R-CODES (COERCE '(240 210 201 215 197 212 33) '(VECTOR #)))
;            (UNI-CODES #(1055 1088 1080 1074 1077 1090 33))
;            (STRING (OCTETS-TO-STRING KOI8-R-CODES :EXTERNAL-FORMAT :KOI8-R))
;            (UNI-DECODED (MAP 'VECTOR #'CHAR-CODE STRING)))
;       (ASSERT
;        (EQUALP
;         (MAP 'VECTOR #'CHAR-CODE
;              (OCTETS-TO-STRING KOI8-R-CODES :EXTERNAL-FORMAT :KOI8-R))
;         UNI-CODES))
;       (ASSERT
;        (EQUALP
;         (STRING-TO-OCTETS (MAP 'STRING #'CODE-CHAR UNI-CODES) :EXTERNAL-FORMAT
;                           :KOI8-R)
;         KOI8-R-CODES)))
; 
; caught STYLE-WARNING:
;   The variable UNI-DECODED is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:FILE-POSITION :UTF-8)
read character with code 228 successfully from file position 1
set file position back to 1, trying to read-char again
::: Success (:FILE-POSITION :UTF-8)
::: Running (:CHARACTER-CODING-ERROR-STREAM-EXTERNAL-FORMAT)
::: Success (:CHARACTER-CODING-ERROR-STREAM-EXTERNAL-FORMAT)
::: Running (:SB-ALIEN :VANILLA)
::: Success (:SB-ALIEN :VANILLA)
::: Running (:SB-ALIEN :UTF-8 :UTF-8)
::: Success (:SB-ALIEN :UTF-8 :UTF-8)
::: Running (:SB-ALIEN :LATIN-1 :UTF-8)
::: Success (:SB-ALIEN :LATIN-1 :UTF-8)
::: Running (:SB-ALIEN :UTF-8 :LATIN-1)
::: Success (:SB-ALIEN :UTF-8 :LATIN-1)
::: Running (:SB-ALIEN :EBCDIC :EBCDIC)
::: Success (:SB-ALIEN :EBCDIC :EBCDIC)
::: Running (:SB-ALIEN :LATIN-1 :EBCDIC)
::: Success (:SB-ALIEN :LATIN-1 :EBCDIC)
::: Running (:SB-ALIEN :SIMPLE-BASE-STRING)
::: Success (:SB-ALIEN :SIMPLE-BASE-STRING)

; file: /«PKGBUILDDIR»/tests/external-format.impure.lisp
; in: WITH-TEST (:NAME (:INPUT-REPLACEMENT :AT-END-OF-FILE))
;     (HANDLER-BIND ((SB-INT:CHARACTER-DECODING-ERROR
;                     (LAMBDA (C)
;                       (INVOKE-RESTART 'SB-IMPL::INPUT-REPLACEMENT #\?))))
;       (WITH-OPEN-FILE (S *TEST-PATH* :EXTERNAL-FORMAT :UTF-8)
;         (COND ((CHAR= # #\?) (ASSERT #)) (T (ASSERT #)))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER15 (C)
;            (INVOKE-RESTART 'SB-IMPL::INPUT-REPLACEMENT #\?))
;          (#:TYPEP16 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:CHARACTER-DECODING-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER15) (FUNCTION #:TYPEP16)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (WITH-OPEN-FILE # #)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:INPUT-REPLACEMENT :AT-END-OF-FILE)
::: Success (:INPUT-REPLACEMENT :AT-END-OF-FILE)

; file: /«PKGBUILDDIR»/tests/external-format.impure.lisp
; in: WITH-TEST (:NAME (:UNIBYTE-INVALID-CODEPOINTS :CP857))
;     (HANDLER-CASE (READ-CHAR S) (ERROR NIL (ASSERT (MEMBER I '(213 231 242))))
;                   (:NO-ERROR (CHAR) (ASSERT (NOT (MEMBER I '#)))))
; --> BLOCK MULTIPLE-VALUE-CALL LAMBDA 
; ==>
;   #'(LAMBDA (CHAR) (ASSERT (NOT (MEMBER I '(213 231 242)))))
; 
; caught STYLE-WARNING:
;   The variable CHAR is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:UNIBYTE-INVALID-CODEPOINTS :CP857)
::: Success (:UNIBYTE-INVALID-CODEPOINTS :CP857)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :CP857)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :CP857)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :CP857)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :CP857)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :ASCII)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :ASCII)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :ASCII)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :ASCII)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-1)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-1)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-1)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-1)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-2)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-2)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-2)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-2)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-3)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-3)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-3)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-3)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-4)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-4)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-4)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-4)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-5)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-5)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-5)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-5)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-6)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-6)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-6)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-6)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-7)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-7)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-7)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-7)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-8)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-8)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-8)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-8)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-5)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-5)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-5)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-5)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-6)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-6)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-6)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-6)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-11)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :ISO-8859-11)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-11)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :ISO-8859-11)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-7)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-7)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-7)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-7)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-8)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-8)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-8)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-8)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :LATIN-9)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :LATIN-9)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-9)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :LATIN-9)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :KOI8-R)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :KOI8-R)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :KOI8-R)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :KOI8-R)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :KOI8-U)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :KOI8-U)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :KOI8-U)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :KOI8-U)
::: Running (:UNIBYTE-INPUT-REPLACEMENT :X-MAC-CYRILLIC)
::: Success (:UNIBYTE-INPUT-REPLACEMENT :X-MAC-CYRILLIC)
::: Running (:UNIBYTE-OUTPUT-REPLACEMENT :X-MAC-CYRILLIC)
::: Success (:UNIBYTE-OUTPUT-REPLACEMENT :X-MAC-CYRILLIC)
::: Running (:MULTIBYTE :UCS2LE)
::: Success (:MULTIBYTE :UCS2LE)
::: Running (:MULTIBYTE :UCS2BE)
::: Success (:MULTIBYTE :UCS2BE)
::: Running (:MULTIBYTE :OUTPUT-REPLACEMENT :UCS2LE)
::: Success (:MULTIBYTE :OUTPUT-REPLACEMENT :UCS2LE)
::: Running (:MULTIBYTE :OUTPUT-REPLACEMENT :UCS2BE)
::: Success (:MULTIBYTE :OUTPUT-REPLACEMENT :UCS2BE)
::: Running (:MULTIBYTE :INPUT-REPLACEMENT :UCS4LE)
::: Success (:MULTIBYTE :INPUT-REPLACEMENT :UCS4LE)
::: Running (:MULTIBYTE :INPUT-REPLACEMENT :UCS4LE)
::: Success (:MULTIBYTE :INPUT-REPLACEMENT :UCS4LE)
::: Running (:UTF-16LE :ROUNDTRIP)
::: Success (:UTF-16LE :ROUNDTRIP)
::: Running (:UTF-16BE :ROUNDTRIP)
::: Success (:UTF-16BE :ROUNDTRIP)
::: Running (:UTF-16LE :ENCODING-ERROR)
::: Success (:UTF-16LE :ENCODING-ERROR)
::: Running (:UTF-16BE :ENCODING-ERROR)
::: Success (:UTF-16BE :ENCODING-ERROR)
::: Running (:UTF-32LE :ROUNDTRIP)
::: Success (:UTF-32LE :ROUNDTRIP)
::: Running (:UTF-32BE :ROUNDTRIP)
::: Success (:UTF-32BE :ROUNDTRIP)
::: Running (:UTF-32LE :ENCODING-ERROR)
::: Success (:UTF-32LE :ENCODING-ERROR)
::: Running (:UTF-32BE :ENCODING-ERROR)
::: Success (:UTF-32BE :ENCODING-ERROR)
::: Running :INVALID-EXTERNAL-FORMAT
::: Success :INVALID-EXTERNAL-FORMAT
::: Running :LP713063
::: Success :LP713063
// Running /«PKGBUILDDIR»/tests/float.impure.lisp
::: SKIPPED-DISABLED (:RANGE-REDUCTION :X87)
    Test disabled for this combination of platform and features

; file: /«PKGBUILDDIR»/tests/float.impure.lisp
; in: DEFUN PI-GAUSS-LEGENDRE
;     (ISQRT (EXPT 2 (1- (* N-BITS 2))))
; 
; caught WARNING:
;   Derived type of (SB-KERNEL:%MAKE-RATIO 1 SB-KERNEL:%DENOMINATOR) is
;     (VALUES (AND (NOT INTEGER) (RATIONAL 0)) &OPTIONAL),
;   conflicting with its asserted type
;     UNSIGNED-BYTE.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:RANGE-REDUCTION :PRECISE-PI)
::: Success (:RANGE-REDUCTION :PRECISE-PI)
// Running /«PKGBUILDDIR»/tests/fopcompiler.impure.lisp
::: Running :FOPCOMPILER-UNDEFINED-WARNING
; compiling file "/«PKGBUILDDIR»/tests/fopcompile-test.tmp" (written 11 JUN 2015 08:59:47 AM):
; compiling (DEFVAR *FOO* ...)

; /«PKGBUILDDIR»/tests/fopcompile-test.fasl written
; compilation finished in 0:00:00.008
::: Success :FOPCOMPILER-UNDEFINED-WARNING
::: Running :FOPCOMPILER-DEPRECATED-VAR-WARNING
; compiling file "/«PKGBUILDDIR»/tests/fopcompile-test.tmp" (written 11 JUN 2015 08:59:47 AM):
; compiling (DEFVAR *FROB* ...)

; /«PKGBUILDDIR»/tests/fopcompile-test.fasl written
; compilation finished in 0:00:00.006
::: Success :FOPCOMPILER-DEPRECATED-VAR-WARNING
// Running /«PKGBUILDDIR»/tests/foreign-stack-alignment.impure.lisp
::: Running :REGULAR
::: Success :REGULAR
::: Running :CALLBACK
::: Success :CALLBACK
// Running /«PKGBUILDDIR»/tests/full-eval.impure.lisp
; in: LAMBDA (FUN FORM ENV)
;     (SETF (GETHASH FORM #<HASH-TABLE :TEST EQUAL :COUNT 0 {5249B869}>) T)
; --> LET* 
; ==>
;   (SB-KERNEL:%PUTHASH #:KEY #<HASH-TABLE :TEST EQUAL :COUNT 0 {5249B869}>
;                       #:NEW1)
; 
; caught WARNING:
;   Destructive function SB-KERNEL:%PUTHASH called on constant data.
;   See also:
;     The ANSI Standard, Special Operator QUOTE
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:FULL-EVAL :REDEFINITION-WARNINGS)
::: Success (:FULL-EVAL :REDEFINITION-WARNINGS)
::: Running (LET* :NESTED-ENVIRONMENTS
              )
::: Success (LET* :NESTED-ENVIRONMENTS
              )
::: Running (LET* :NESTED-ENVIRONMENT-AGAIN
              )
::: Success (LET* :NESTED-ENVIRONMENT-AGAIN
              )
// Running /«PKGBUILDDIR»/tests/gc.impure.lisp
::: Running :MAP-REFERENCING-OBJS
::: Success :MAP-REFERENCING-OBJS
::: Running :BUG-529014
::: Success :BUG-529014
::: Running :BUG-936304
Evaluation took:
  196.370 seconds of real time
  196.128000 seconds of total run time (180.148000 user, 15.980000 system)
  [ Run times consist of 186.272 seconds GC time, and 9.856 seconds non-GC time. ]
  99.88% CPU
  5,368,710,184 bytes consed
  
::: Success :BUG-936304
::: Running :BUG-981106
Evaluation took:
  228.518 seconds of real time
  228.412000 seconds of total run time (218.044000 user, 10.368000 system)
  [ Run times consist of 8.664 seconds GC time, and 219.748 seconds non-GC time. ]
  99.95% CPU
  3,262,138,304 bytes consed
  
::: Success :BUG-981106
::: Running :GC-LOGFILE
::: Success :GC-LOGFILE
// Running /«PKGBUILDDIR»/tests/gray-streams.impure.lisp
STYLE-WARNING:
   Generic function OPEN-STREAM-P clobbers an earlier FTYPE proclamation
   (FUNCTION (STREAM) (VALUES (MEMBER T NIL) &OPTIONAL)) for the same name with
   (FUNCTION (T) *).
STYLE-WARNING:
   Generic function CLOSE clobbers an earlier FTYPE proclamation
   (FUNCTION (STREAM &KEY (:ABORT T)) (VALUES (MEMBER T) &OPTIONAL)) for the
   same name with (FUNCTION (T &KEY (:ABORT T)) *).
::: Running :READ-CHAR/READ-BYTE-CHECK-TYPES
::: Success :READ-CHAR/READ-BYTE-CHECK-TYPES
// Running /«PKGBUILDDIR»/tests/hash.impure.lisp
::: Running (:HASH-TABLE :WEAKNESS :EQL :NUMBERS)
::: Success (:HASH-TABLE :WEAKNESS :EQL :NUMBERS)
::: Running (:HASH-TABLE :WEAKNESS :REMOVAL)
test: EQ
weakness: KEY
0. count: 117
1. count: 0
weakness: VALUE
0. count: 117
1. count: 0
weakness: KEY-AND-VALUE
0. count: 117
1. count: 0
weakness: KEY-OR-VALUE
0. count: 117
1. count: 0
test: EQL
weakness: KEY
0. count: 117
1. count: 0
weakness: VALUE
0. count: 117
1. count: 0
weakness: KEY-AND-VALUE
0. count: 117
1. count: 0
weakness: KEY-OR-VALUE
0. count: 117
1. count: 0
test: EQUAL
weakness: KEY
0. count: 117
1. count: 0
weakness: VALUE
0. count: 117
1. count: 0
weakness: KEY-AND-VALUE
0. count: 117
1. count: 0
weakness: KEY-OR-VALUE
0. count: 117
1. count: 0
test: EQUALP
weakness: KEY
0. count: 117
1. count: 0
weakness: VALUE
0. count: 117
1. count: 0
weakness: KEY-AND-VALUE
0. count: 117
1. count: 0
weakness: KEY-OR-VALUE
0. count: 117
1. count: 0
::: Success (:HASH-TABLE :WEAKNESS :REMOVAL)
::: Running (:HASH-TABLE :WEAKNESS :STRING-INTERNING)
::: Success (:HASH-TABLE :WEAKNESS :STRING-INTERNING)
::: Running (:HASH-TABLE :WEAKNESS :EQ)
::: Success (:HASH-TABLE :WEAKNESS :EQ)
::: Running (:HASH-TABLE :WEAKNESS :KEEP)
::: Success (:HASH-TABLE :WEAKNESS :KEEP)
::: Running :DEFINE-HASH-TABLE-TEST.1
::: Success :DEFINE-HASH-TABLE-TEST.1
::: Running :DEFINE-HASH-TABLE-TEST.2
::: Success :DEFINE-HASH-TABLE-TEST.2
::: Running :MAKE-HASH-TABLE/HASH-FUN
::: Success :MAKE-HASH-TABLE/HASH-FUN
// Running /«PKGBUILDDIR»/tests/info.impure.lisp
::: Running :NO-META-INFO
; in: LAMBDA (X)
;     (SB-INT:INFO :TYPE :NOKIND X)
; 
; caught STYLE-WARNING:
;   (INFO :TYPE :NOKIND) will fail at runtime.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :NO-META-INFO
::: Running :GLOBALDB-SXHASHOID-DISCRIMINATION
::: Success :GLOBALDB-SXHASHOID-DISCRIMINATION
::: Running :BUG-458015
::: Success :BUG-458015
::: Running :FIND-CLASSOID-SIGNAL-ERROR
::: Success :FIND-CLASSOID-SIGNAL-ERROR
::: Running :SET-INFO-VALUE-TYPE-CHECK
::: Success :SET-INFO-VALUE-TYPE-CHECK
::: Running :UNRECOGNIZE-RECOGNIZED-DECLARATION
::: Success :UNRECOGNIZE-RECOGNIZED-DECLARATION
::: Running :RECOGNIZED-DECL-NOT-ALSO-TYPE
::: Success :RECOGNIZED-DECL-NOT-ALSO-TYPE
::: Running :INFO-ENV-CLEAR
::: Success :INFO-ENV-CLEAR
::: Running :GLOBALDB-INFO-ITERATE
*
  :FUNCTION :DEFINITION = #<FDEFINITION for *>
  :TYPE :KIND = :PRIMITIVE
  :TYPE :BUILTIN = #<NAMED-TYPE *>
  :SOURCE-LOCATION :DECLARATION = (DEFKNOWN #)
  :VARIABLE :KIND = :SPECIAL
  :VARIABLE :DOCUMENTATION = "the value of the most recent top level EVAL"
  :SOURCE-LOCATION :VARIABLE = #S(DEFINITION-SOURCE-LOCATION
                                  :NAMESTRING "SYS:SRC;CODE;TOPLEVEL.LISP"
                                  :TOPLEVEL-FORM-NUMBER 26
                                  :PLIST NIL)
  :ALIEN-TYPE :KIND = :PRIMITIVE
  :ALIEN-TYPE :TRANSLATOR = #<FUNCTION SB-ALIEN::ALIEN-*-TYPE-TRANSLATOR>
  :FUNCTION :TYPE = #<FUN-TYPE (FUNCTION # #)>
  :FUNCTION :WHERE-FROM = :DECLARED
  :FUNCTION :KIND = :FUNCTION
  :FUNCTION :INFO = #
  :FUNCTION :SOURCE-TRANSFORM = #<FUNCTION (LAMBDA #
                                             :IN
                                             "SYS:SRC;COLD;COMPILE-COLD-SBCL.LISP") {4F07BE35}>
  :VARIABLE :TYPE = #<NAMED-TYPE T>
  :VARIABLE :WHERE-FROM = :DECLARED
::: Success :GLOBALDB-INFO-ITERATE
::: Running :FIND-FDEFN-AGREEMENT
::: Success :FIND-FDEFN-AGREEMENT
::: Running :QUICK-PACKED-INFO-INSERT
::: Success :QUICK-PACKED-INFO-INSERT
STYLE-WARNING: redefining SB-KERNEL::MAKE-CLASSOID-CELL in DEFUN
::: SKIPPED-DISABLED :GET-INFO-VALUE-INITIALIZING
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED :GET-INFO-VALUE-UPDATING
    Test disabled for this combination of platform and features
// Running /«PKGBUILDDIR»/tests/interface.impure.lisp
::: Running :DISASSEMBLE
; disassembly for DISASSEMBLE-FUN
; Size: 48 bytes. Origin: #x52B0B0D4
; 0D4:       21049AE5         LDR R0, [NULL, #1057]           ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; 0D8:       08008BE5         STR R0, [CFP, #8]
; 0DC:       0100A0E1         MOV R0, R1
; 0E0:       00709BE5         LDR OCFP, [CFP]
; 0E4:       04109BE5         LDR R1, [CFP, #4]
; 0E8:       09B48AE5         STR CFP, [NULL, #1033]          ; SB-VM::*CONTROL-STACK-POINTER*
; 0EC:       07B0A0E1         MOV CFP, OCFP
; 0F0:       00F028E3         MSR CPSR_f, #0
; 0F4:       03F041E2         SUB PC, R1, #3
; 0F8:       F001F0E70A       DEBUG-TRAP 10                   ; Error trap
; 0FD:       04               BYTE #X04
; 0FE:       19               BYTE #X19                       ; INVALID-ARG-COUNT-ERROR
; 0FF:       FE0403           BYTE #XFE, #X04, #X03           ; NARGS
; 102:       .ALIGN           4
::: Success :DISASSEMBLE
::: Running :DISASSEMBLE-CLOSURE
; disassembly for DISASSEMBLE-CLOSURE
; Size: 56 bytes. Origin: #x52B8B7E4
; 7E4:       21249AE5         LDR R2, [NULL, #1057]           ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; 7E8:       18208BE5         STR R2, [CFP, #24]
; 7EC:       0A0051E1         CMP R1, NULL
; 7F0:       0600001A         BNE L1
; 7F4:       030010E5         LDR R0, [R0, #-3]
; 7F8: L0:   00709BE5         LDR OCFP, [CFP]
; 7FC:       04209BE5         LDR R2, [CFP, #4]
; 800:       09B48AE5         STR CFP, [NULL, #1033]          ; SB-VM::*CONTROL-STACK-POINTER*
; 804:       07B0A0E1         MOV CFP, OCFP
; 808:       00F028E3         MSR CPSR_f, #0
; 80C:       03F042E2         SUB PC, R2, #3
; 810: L1:   031000E5         STR R1, [R0, #-3]
; 814:       0100A0E1         MOV R0, R1
; 818:       F6FFFFEA         B L0
::: Success :DISASSEMBLE-CLOSURE

; file: /«PKGBUILDDIR»/tests/interface.impure.lisp
; in: WITH-TEST (:NAME :DISASSEMBLE-INTERPRETED)
;     #'DISASSEMBLE-EVAL
; 
; caught STYLE-WARNING:
;   undefined function: DISASSEMBLE-EVAL
; 
; compilation unit finished
;   Undefined function:
;     DISASSEMBLE-EVAL
;   caught 1 STYLE-WARNING condition
::: Running :DISASSEMBLE-INTERPRETED
; disassembly for DISASSEMBLE-EVAL
; Size: 48 bytes. Origin: #x52C33394
; 94:       21049AE5         LDR R0, [NULL, #1057]            ; SB-VM::*BINDING-STACK-POINTER*
                                                              ; no-arg-parsing entry point
; 98:       08008BE5         STR R0, [CFP, #8]
; 9C:       0100A0E1         MOV R0, R1
; A0:       00709BE5         LDR OCFP, [CFP]
; A4:       04109BE5         LDR R1, [CFP, #4]
; A8:       09B48AE5         STR CFP, [NULL, #1033]           ; SB-VM::*CONTROL-STACK-POINTER*
; AC:       07B0A0E1         MOV CFP, OCFP
; B0:       00F028E3         MSR CPSR_f, #0
; B4:       03F041E2         SUB PC, R1, #3
; B8:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; BD:       04               BYTE #X04
; BE:       19               BYTE #X19                        ; INVALID-ARG-COUNT-ERROR
; BF:       FE0403           BYTE #XFE, #X04, #X03            ; NARGS
; C2:       .ALIGN           4
::: Success :DISASSEMBLE-INTERPRETED
::: Running :DISASSEMBLE-GENERIC
; disassembly for (LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::MAKE-INITIAL-DFUN)
; Size: 144 bytes. Origin: #x4F512568
; 68:       0810A0E1         MOV R1, R8                       ; no-arg-parsing entry point
; 6C:       3D3095E5         LDR LEXENV, [CODE, #61]          ; #<FDEFINITION for SB-PCL::INITIAL-DFUN>
; 70:       08C0A0E3         MOV NARGS, 8
; 74:       052093E5         LDR R2, [LEXENV, #5]
; 78:       17F082E2         ADD PC, R2, #23
; 7C:       00000000         ANDEQ R0, R0, R0
; 80:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; 85:       04               BYTE #X04
; 86:       19               BYTE #X19                        ; INVALID-ARG-COUNT-ERROR
; 87:       FE0403           BYTE #XFE, #X04, #X03            ; NARGS
; 8A:       .ALIGN           4
; 8C:       1080A0E3         MOV R8, 16
; 90:       00412DE9         BYTE #X00, #X41, #X2D, #XE9
; 94:       08809FE5         LDR R8, [PC, #8]
; 98:       38FF2FE1         BLX R8
; 9C:       0041BDE8         BYTE #X00, #X41, #XBD, #XE8
; A0:       C2FEFFEA         B #x4F5120B0
; A4:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; A8:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
; AC:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; B1:       02               BYTE #X02
; B2:       1B               BYTE #X1B                        ; UNBOUND-SYMBOL-ERROR
; B3:       05               BYTE #X05                        ; R0
; B4:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; B9:       02               BYTE #X02
; BA:       01               BYTE #X01                        ; OBJECT-NOT-FUNCTION-ERROR
; BB:       05               BYTE #X05                        ; R0
; BC:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; C1:       02               BYTE #X02
; C2:       71               BYTE #X71                        ; OBJECT-NOT-SIMPLE-VECTOR-ERROR
; C3:       05               BYTE #X05                        ; R0
; C4:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; C9:       06               BYTE #X06
; CA:       23               BYTE #X23                        ; INVALID-ARRAY-INDEX-ERROR
; CB:       05               BYTE #X05                        ; R0
; CC:       C4               BYTE #XC4                        ; LEXENV
; CD:       FEC401           BYTE #XFE, #XC4, #X01            ; OCFP
; D0:       F001F0E70A       DEBUG-TRAP 10                    ; Error trap
; D5:       04               BYTE #X04
; D6:       19               BYTE #X19                        ; INVALID-ARG-COUNT-ERROR
; D7:       FE0403           BYTE #XFE, #X04, #X03            ; NARGS
; DA:       .ALIGN           4
; DC:       08402DE9         BYTE #X08, #X40, #X2D, #XE9
; E0:       08109FE5         LDR R1, [PC, #8]
; E4:       31FF2FE1         BLX R1
; E8:       0240BDE8         BYTE #X02, #X40, #XBD, #XE8
; EC:       CCFFFFEA         B #x4F512524
; F0:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; F4:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
; disassembly for (LAMBDA (&REST SB-PCL::ARGS)
                    :IN
                    SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE)
; Size: 304 bytes. Origin: #x50B6E4B4 (segment 1 of 2)
; 4B4:       51F48AE5         STR PC, [NULL, #1105]           ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
                                                              ; :OPTIONAL entry point
; 4B8:       20719FE5         LDR OCFP, [PC, #288]
; 4BC:       003097E5         LDR LEXENV, [OCFP]
; 4C0:       047097E5         LDR OCFP, [OCFP, #4]
; 4C4:       083083E2         ADD LEXENV, LEXENV, #8
; 4C8:       070053E1         CMP LEXENV, OCFP
; 4CC:       3C00008A         BHI L1
; 4D0:       08719FE5         LDR OCFP, [PC, #264]
; 4D4:       003087E5         STR LEXENV, [OCFP]
; 4D8:       083043E2         SUB LEXENV, LEXENV, #8
; 4DC: L0:   033083E3         ORR LEXENV, LEXENV, #3
; 4E0:       51A48AE5         STR NULL, [NULL, #1105]         ; SB-VM::*PSEUDO-ATOMIC-ATOMIC*
; 4E4:       69749AE5         LDR OCFP, [NULL, #1129]         ; SB-VM::*PSEUDO-ATOMIC-INTERRUPTED*
; 4E8:       0A0057E1         CMP OCFP, NULL
; 4EC:       2771A0B1         MOVLT OCFP, OCFP, LSR #2
; 4F0:       000000BF         SWILT #0
; 4F4:       030003E5         STR R0, [LEXENV, #-3]
; 4F8:       0A00A0E1         MOV R0, NULL
; 4FC:       010083E5         STR R0, [LEXENV, #1]
; 500:       09949AE5         LDR NFP, [NULL, #1033]          ; SB-VM::*CONTROL-STACK-POINTER*
; 504:       147089E2         ADD OCFP, NFP, #20
; 508:       09748AE5         STR OCFP, [NULL, #1033]         ; SB-VM::*CONTROL-STACK-POINTER*
; 50C:       00B089E5         STR CFP, [NFP]
; 510:       350095E5         LDR R0, [CODE, #53]             ; 'SB-PCL::UNSET-FUNCALLABLE-INSTANCE-FUNCTION
; 514:       391095E5         LDR R1, [CODE, #57]             ; :FORMAT-CONTROL
; 518:       3D2095E5         LDR R2, [CODE, #61]             ; "~@<The function of funcallable instance ~
                                                              ;                                  ~S has not been set.~@:>"
; 51C:       418095E5         LDR R8, [CODE, #65]             ; :FORMAT-ARGUMENTS
; 520:       0C8089E5         STR R8, [NFP, #12]
; 524:       103089E5         STR LEXENV, [NFP, #16]
; 528:       2D3095E5         LDR LEXENV, [CODE, #45]         ; #<FDEFINITION for ERROR>
; 52C:       14C0A0E3         MOV NARGS, 20
; 530:       058093E5         LDR R8, [LEXENV, #5]
; 534:       13E08FE2         ADD LR, PC, #19
; 538:       04E089E5         STR LR, [NFP, #4]
; 53C:       09B0A0E1         MOV CFP, NFP
; 540:       17F088E2         ADD PC, R8, #23
; 544:       00000000         ANDEQ R0, R0, R0
; 548:       36520100         ANDEQ CODE, R1, NL3, LSR R2     ; possible LRA header
; 54C:       05E04FE2         SUB LR, PC, #5
; 550:       07401EE5         LDR NL2, [LR, #-7]
; 554:       24534EE0         SUB CODE, LR, NL2, LSR #6
; 558:       09748A05         STREQ OCFP, [NULL, #1033]       ; SB-VM::*CONTROL-STACK-POINTER*
; Origin #x50B6E55C (segment 2 of 2)
; 55C:       10008BE5         STR R0, [CFP, #16]              ; :OPTIONAL entry point
; 560:       0A00A0E1         MOV R0, NULL
; 564:       14008BE5         STR R0, [CFP, #20]
; 568:       0A00A0E1         MOV R0, NULL
; 56C:       18008BE5         STR R0, [CFP, #24]
; 570:       CEFEFFEA         B #x50B6E0B0
; 574:       00000000         ANDEQ R0, R0, R0
; 578:       F001F0E70A       DEBUG-TRAP 10                   ; Error trap
; 57D:       04               BYTE #X04
; 57E:       19               BYTE #X19                       ; INVALID-ARG-COUNT-ERROR
; 57F:       FE0403           BYTE #XFE, #X04, #X03           ; NARGS
; 582:       .ALIGN           4
; 584:       1010A0E3         MOV R1, 16
; 588:       02402DE9         BYTE #X02, #X40, #X2D, #XE9
; 58C:       08109FE5         LDR R1, [PC, #8]
; 590:       31FF2FE1         BLX R1
; 594:       0240BDE8         BYTE #X02, #X40, #XBD, #XE8
; 598:       F8FEFFEA         B #x50B6E180
; 59C:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; 5A0:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
; 5A4:       F001F0E70A       DEBUG-TRAP 10                   ; Error trap
; 5A9:       04               BYTE #X04
; 5AA:       01               BYTE #X01                       ; OBJECT-NOT-FUNCTION-ERROR
; 5AB:       FE0502           BYTE #XFE, #X05, #X02           ; R8
; 5AE:       .ALIGN           4
; 5B0:       30010004         STREQ R0, [R0], #-304
; 5B4:       30010004         STREQ R0, [R0], #-304
; 5B8:       F001F0E70A       DEBUG-TRAP 10                   ; Error trap
; 5BD:       04               BYTE #X04
; 5BE:       19               BYTE #X19                       ; INVALID-ARG-COUNT-ERROR
; 5BF:       FE0403           BYTE #XFE, #X04, #X03           ; NARGS
; 5C2:       .ALIGN           4
; 5C4: L1:   0830A0E3         MOV LEXENV, 8
; 5C8:       08402DE9         BYTE #X08, #X40, #X2D, #XE9
; 5CC:       08309FE5         LDR LEXENV, [PC, #8]
; 5D0:       33FF2FE1         BLX LEXENV
; 5D4:       0840BDE8         BYTE #X08, #X40, #XBD, #XE8
; 5D8:       BFFFFFEA         B L0
; 5DC:       3C3E0300         ANDEQ LEXENV, LEXENV, NARGS, LSR LR
; 5E0:       F4EE0400         BYTE #XF4, #XEE, #X04, #X00
::: Success :DISASSEMBLE-GENERIC

; in: WITH-TEST (:NAME :FUNCTION-LAMBDA-EXPRESSION)
;     #'FLE-EVAL
; 
; caught STYLE-WARNING:
;   undefined function: FLE-EVAL
; 
; compilation unit finished
;   Undefined function:
;     FLE-EVAL
;   caught 1 STYLE-WARNING condition
::: Running :FUNCTION-LAMBDA-EXPRESSION
::: Success :FUNCTION-LAMBDA-EXPRESSION
::: Running :DESCRIBE-EMPTY-GF
#<GENERIC-FUNCTION {531780C5}>
  [generic-function]

Lambda-list: (&REST ARGS)
Derived type: (FUNCTION (&REST T) NIL)
Source file: SYS:SRC;PCL;BRAID.LISP.NEWEST
#<STANDARD-GENERIC-FUNCTION NIL (0) {532CBA9D}>
  [generic-function]
WARNING:
   no way to determine the lambda list for #<STANDARD-GENERIC-FUNCTION
                                             NIL (0) {532CBA9D}>

Lambda-list: ()
Derived type: (FUNCTION (&REST T) NIL)
Method-combination: STANDARD
No methods.
Source file: SYS:SRC;PCL;BRAID.LISP.NEWEST
::: Success :DESCRIBE-EMPTY-GF
::: Running (DESCRIBE :NO-ERROR)
#S(TO-BE-DESCRIBED :A NIL :B NIL)
  [structure-object]

Slots with :INSTANCE allocation:
  A  = NIL
  B  = NIL
12
  [fixnum]
"a string"
  [simple-string]

Element-type: CHARACTER
Length: 8
COMMON-LISP-USER::SYMBOLISM
  [symbol]
#<PACKAGE "COMMON-LISP">
  [package]

Documentation:
  public: home of symbols defined by the ANSI language specification
Locked.
Nicknames: CL
Used-by-list: ASSERTOID, COMMON-LISP-USER, RUN-TESTS, SB-ALIEN,
              SB-ALIEN-INTERNALS, SB-ASSEM, SB-BIGNUM, SB-C, SB-DEBUG,
              SB-DI, SB-DISASSEM, SB-EVAL, SB-EXT, SB-FASL, SB-FORMAT,
              SB-GRAY, SB-IMPL, SB-INT, SB-KERNEL, SB-LOOP, SB-MOP,
              SB-PCL, SB-POSIX, SB-PRETTY, SB-PROFILE, SB-REGALLOC,
              SB-SYS, SB-THREAD, SB-UNICODE, SB-UNIX, SB-VM, SB-WALKER,
              TEST-UTIL
Exports: &ALLOW-OTHER-KEYS, &AUX, &BODY, &ENVIRONMENT, &KEY, &OPTIONAL,
         &REST, &WHOLE, *, **, ***, *BREAK-ON-SIGNALS*,
         *COMPILE-FILE-PATHNAME*, *COMPILE-FILE-TRUENAME*,
         *COMPILE-PRINT*, *COMPILE-VERBOSE*, *DEBUG-IO*,
         *DEBUGGER-HOOK*, *DEFAULT-PATHNAME-DEFAULTS*, *ERROR-OUTPUT*,
         *FEATURES*, *GENSYM-COUNTER*, *LOAD-PATHNAME*, *LOAD-PRINT*,
         *LOAD-TRUENAME*, *LOAD-VERBOSE*, *MACROEXPAND-HOOK*, *MODULES*,
         *PACKAGE*, *PRINT-ARRAY*, *PRINT-BASE*, *PRINT-CASE*,
         *PRINT-CIRCLE*, *PRINT-ESCAPE*, *PRINT-GENSYM*, *PRINT-LENGTH*,
         *PRINT-LEVEL*, *PRINT-LINES*, *PRINT-MISER-WIDTH*,
         *PRINT-PPRINT-DISPATCH*, *PRINT-PRETTY*, *PRINT-RADIX*,
         *PRINT-READABLY*, *PRINT-RIGHT-MARGIN*, *QUERY-IO*,
         *RANDOM-STATE*, *READ-BASE*, *READ-DEFAULT-FLOAT-FORMAT*,
         *READ-EVAL*, *READ-SUPPRESS*, *READTABLE*, *STANDARD-INPUT*,
         *STANDARD-OUTPUT*, *TERMINAL-IO*, *TRACE-OUTPUT*, +, ++, +++,
         -, /, //, ///, /=, 1+, 1-, <, <=, =, >, >=, ABORT, ABS, ACONS,
         ACOS, ACOSH, ADD-METHOD, ADJOIN, ADJUST-ARRAY,
         ADJUSTABLE-ARRAY-P, ALLOCATE-INSTANCE, ALPHA-CHAR-P,
         ALPHANUMERICP, AND, APPEND, APPLY, APROPOS, APROPOS-LIST, AREF,
         ARITHMETIC-ERROR, ARITHMETIC-ERROR-OPERANDS,
         ARITHMETIC-ERROR-OPERATION, ARRAY, ARRAY-DIMENSION,
         ARRAY-DIMENSION-LIMIT, ARRAY-DIMENSIONS, ARRAY-DISPLACEMENT,
         ARRAY-ELEMENT-TYPE, ARRAY-HAS-FILL-POINTER-P,
         ARRAY-IN-BOUNDS-P, ARRAY-RANK, ARRAY-RANK-LIMIT,
         ARRAY-ROW-MAJOR-INDEX, ARRAY-TOTAL-SIZE,
         ARRAY-TOTAL-SIZE-LIMIT, ARRAYP, ASH, ASIN, ASINH, ASSERT,
         ASSOC, ASSOC-IF, ASSOC-IF-NOT, ATAN, ATANH, ATOM, BASE-CHAR,
         BASE-STRING, BIGNUM, BIT, BIT-AND, BIT-ANDC1, BIT-ANDC2,
         BIT-EQV, BIT-IOR, BIT-NAND, BIT-NOR, BIT-NOT, BIT-ORC1,
         BIT-ORC2, BIT-VECTOR, BIT-VECTOR-P, BIT-XOR, BLOCK, BOOLE,
         BOOLE-1, BOOLE-2, BOOLE-AND, BOOLE-ANDC1, BOOLE-ANDC2,
         BOOLE-C1, BOOLE-C2, BOOLE-CLR, BOOLE-EQV, BOOLE-IOR,
         BOOLE-NAND, BOOLE-NOR, BOOLE-ORC1, BOOLE-ORC2, BOOLE-SET,
         BOOLE-XOR, BOOLEAN, BOTH-CASE-P, BOUNDP, BREAK,
         BROADCAST-STREAM, BROADCAST-STREAM-STREAMS, BUILT-IN-CLASS,
         BUTLAST, BYTE, BYTE-POSITION, BYTE-SIZE, CAAAAR, CAAADR, CAAAR,
         CAADAR, CAADDR, CAADR, CAAR, CADAAR, CADADR, CADAR, CADDAR,
         CADDDR, CADDR, CADR, CALL-ARGUMENTS-LIMIT, CALL-METHOD,
         CALL-NEXT-METHOD, CAR, CASE, CATCH, CCASE, CDAAAR, CDAADR,
         CDAAR, CDADAR, CDADDR, CDADR, CDAR, CDDAAR, CDDADR, CDDAR,
         CDDDAR, CDDDDR, CDDDR, CDDR, CDR, CEILING, CELL-ERROR,
         CELL-ERROR-NAME, CERROR, CHANGE-CLASS, CHAR, CHAR-CODE,
         CHAR-CODE-LIMIT, CHAR-DOWNCASE, CHAR-EQUAL, CHAR-GREATERP,
         CHAR-INT, CHAR-LESSP, CHAR-NAME, CHAR-NOT-EQUAL,
         CHAR-NOT-GREATERP, CHAR-NOT-LESSP, CHAR-UPCASE, CHAR/=, CHAR<,
         CHAR<=, CHAR=, CHAR>, CHAR>=, CHARACTER, CHARACTERP,
         CHECK-TYPE, CIS, CLASS, CLASS-NAME, CLASS-OF, CLEAR-INPUT,
         CLEAR-OUTPUT, CLOSE, CLRHASH, CODE-CHAR, COERCE,
         COMPILATION-SPEED, COMPILE, COMPILE-FILE,
         COMPILE-FILE-PATHNAME, COMPILED-FUNCTION, COMPILED-FUNCTION-P,
         COMPILER-MACRO, COMPILER-MACRO-FUNCTION, COMPLEMENT, COMPLEX,
         COMPLEXP, COMPUTE-APPLICABLE-METHODS, COMPUTE-RESTARTS,
         CONCATENATE, CONCATENATED-STREAM, CONCATENATED-STREAM-STREAMS,
         COND, CONDITION, CONJUGATE, CONS, CONSP, CONSTANTLY, CONSTANTP,
         CONTINUE, CONTROL-ERROR, COPY-ALIST, COPY-LIST,
         COPY-PPRINT-DISPATCH, COPY-READTABLE, COPY-SEQ, COPY-STRUCTURE,
         COPY-SYMBOL, COPY-TREE, COS, COSH, COUNT, COUNT-IF,
         COUNT-IF-NOT, CTYPECASE, DEBUG, DECF, DECLAIM, DECLARATION,
         DECLARE, DECODE-FLOAT, DECODE-UNIVERSAL-TIME, DEFCLASS,
         DEFCONSTANT, DEFGENERIC, DEFINE-COMPILER-MACRO,
         DEFINE-CONDITION, DEFINE-METHOD-COMBINATION,
         DEFINE-MODIFY-MACRO, DEFINE-SETF-EXPANDER, DEFINE-SYMBOL-MACRO,
         DEFMACRO, DEFMETHOD, DEFPACKAGE, DEFPARAMETER, DEFSETF,
         DEFSTRUCT, DEFTYPE, DEFUN, DEFVAR, DELETE, DELETE-DUPLICATES,
         DELETE-FILE, DELETE-IF, DELETE-IF-NOT, DELETE-PACKAGE,
         DENOMINATOR, DEPOSIT-FIELD, DESCRIBE, DESCRIBE-OBJECT,
         DESTRUCTURING-BIND, DIGIT-CHAR, DIGIT-CHAR-P, DIRECTORY,
         DIRECTORY-NAMESTRING, DISASSEMBLE, DIVISION-BY-ZERO, DO, DO*,
         DO-ALL-SYMBOLS, DO-EXTERNAL-SYMBOLS, DO-SYMBOLS, DOCUMENTATION,
         DOLIST, DOTIMES, DOUBLE-FLOAT, DOUBLE-FLOAT-EPSILON,
         DOUBLE-FLOAT-NEGATIVE-EPSILON, DPB, DRIBBLE, DYNAMIC-EXTENT,
         ECASE, ECHO-STREAM, ECHO-STREAM-INPUT-STREAM,
         ECHO-STREAM-OUTPUT-STREAM, ED, EIGHTH, ELT,
         ENCODE-UNIVERSAL-TIME, END-OF-FILE, ENDP, ENOUGH-NAMESTRING,
         ENSURE-DIRECTORIES-EXIST, ENSURE-GENERIC-FUNCTION, EQ, EQL,
         EQUAL, EQUALP, ERROR, ETYPECASE, EVAL, EVAL-WHEN, EVENP, EVERY,
         EXP, EXPORT, EXPT, EXTENDED-CHAR, FBOUNDP, FCEILING,
         FDEFINITION, FFLOOR, FIFTH, FILE-AUTHOR, FILE-ERROR,
         FILE-ERROR-PATHNAME, FILE-LENGTH, FILE-NAMESTRING,
         FILE-POSITION, FILE-STREAM, FILE-STRING-LENGTH,
         FILE-WRITE-DATE, FILL, FILL-POINTER, FIND, FIND-ALL-SYMBOLS,
         FIND-CLASS, FIND-IF, FIND-IF-NOT, FIND-METHOD, FIND-PACKAGE,
         FIND-RESTART, FIND-SYMBOL, FINISH-OUTPUT, FIRST, FIXNUM, FLET,
         FLOAT, FLOAT-DIGITS, FLOAT-PRECISION, FLOAT-RADIX, FLOAT-SIGN,
         FLOATING-POINT-INEXACT, FLOATING-POINT-INVALID-OPERATION,
         FLOATING-POINT-OVERFLOW, FLOATING-POINT-UNDERFLOW, FLOATP,
         FLOOR, FMAKUNBOUND, FORCE-OUTPUT, FORMAT, FORMATTER, FOURTH,
         FRESH-LINE, FROUND, FTRUNCATE, FTYPE, FUNCALL, FUNCTION,
         FUNCTION-KEYWORDS, FUNCTION-LAMBDA-EXPRESSION, FUNCTIONP, GCD,
         GENERIC-FUNCTION, GENSYM, GENTEMP, GET, GET-DECODED-TIME,
         GET-DISPATCH-MACRO-CHARACTER, GET-INTERNAL-REAL-TIME,
         GET-INTERNAL-RUN-TIME, GET-MACRO-CHARACTER,
         GET-OUTPUT-STREAM-STRING, GET-PROPERTIES, GET-SETF-EXPANSION,
         GET-UNIVERSAL-TIME, GETF, GETHASH, GO, GRAPHIC-CHAR-P,
         HANDLER-BIND, HANDLER-CASE, HASH-TABLE, HASH-TABLE-COUNT,
         HASH-TABLE-P, HASH-TABLE-REHASH-SIZE,
         HASH-TABLE-REHASH-THRESHOLD, HASH-TABLE-SIZE, HASH-TABLE-TEST,
         HOST-NAMESTRING, IDENTITY, IF, IGNORABLE, IGNORE,
         IGNORE-ERRORS, IMAGPART, IMPORT, IN-PACKAGE, INCF,
         INITIALIZE-INSTANCE, INLINE, INPUT-STREAM-P, INSPECT, INTEGER,
         INTEGER-DECODE-FLOAT, INTEGER-LENGTH, INTEGERP,
         INTERACTIVE-STREAM-P, INTERN, INTERNAL-TIME-UNITS-PER-SECOND,
         INTERSECTION, INVALID-METHOD-ERROR, INVOKE-DEBUGGER,
         INVOKE-RESTART, INVOKE-RESTART-INTERACTIVELY, ISQRT, KEYWORD,
         KEYWORDP, LABELS, LAMBDA, LAMBDA-LIST-KEYWORDS,
         LAMBDA-PARAMETERS-LIMIT, LAST, LCM, LDB, LDB-TEST, LDIFF,
         LEAST-NEGATIVE-DOUBLE-FLOAT, LEAST-NEGATIVE-LONG-FLOAT,
         LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT,
         LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT,
         LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT,
         LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT,
         LEAST-NEGATIVE-SHORT-FLOAT, LEAST-NEGATIVE-SINGLE-FLOAT,
         LEAST-POSITIVE-DOUBLE-FLOAT, LEAST-POSITIVE-LONG-FLOAT,
         LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT,
         LEAST-POSITIVE-NORMALIZED-LONG-FLOAT,
         LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT,
         LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT,
         LEAST-POSITIVE-SHORT-FLOAT, LEAST-POSITIVE-SINGLE-FLOAT,
         LENGTH, LET, LET*, LISP-IMPLEMENTATION-TYPE,
         LISP-IMPLEMENTATION-VERSION, LIST, LIST*, LIST-ALL-PACKAGES,
         LIST-LENGTH, LISTEN, LISTP, LOAD,
         LOAD-LOGICAL-PATHNAME-TRANSLATIONS, LOAD-TIME-VALUE, LOCALLY,
         LOG, LOGAND, LOGANDC1, LOGANDC2, LOGBITP, LOGCOUNT, LOGEQV,
         LOGICAL-PATHNAME, LOGICAL-PATHNAME-TRANSLATIONS, LOGIOR,
         LOGNAND, LOGNOR, LOGNOT, LOGORC1, LOGORC2, LOGTEST, LOGXOR,
         LONG-FLOAT, LONG-FLOAT-EPSILON, LONG-FLOAT-NEGATIVE-EPSILON,
         LONG-SITE-NAME, LOOP, LOOP-FINISH, LOWER-CASE-P,
         MACHINE-INSTANCE, MACHINE-TYPE, MACHINE-VERSION,
         MACRO-FUNCTION, MACROEXPAND, MACROEXPAND-1, MACROLET,
         MAKE-ARRAY, MAKE-BROADCAST-STREAM, MAKE-CONCATENATED-STREAM,
         MAKE-CONDITION, MAKE-DISPATCH-MACRO-CHARACTER,
         MAKE-ECHO-STREAM, MAKE-HASH-TABLE, MAKE-INSTANCE,
         MAKE-INSTANCES-OBSOLETE, MAKE-LIST, MAKE-LOAD-FORM,
         MAKE-LOAD-FORM-SAVING-SLOTS, MAKE-METHOD, MAKE-PACKAGE,
         MAKE-PATHNAME, MAKE-RANDOM-STATE, MAKE-SEQUENCE, MAKE-STRING,
         MAKE-STRING-INPUT-STREAM, MAKE-STRING-OUTPUT-STREAM,
         MAKE-SYMBOL, MAKE-SYNONYM-STREAM, MAKE-TWO-WAY-STREAM,
         MAKUNBOUND, MAP, MAP-INTO, MAPC, MAPCAN, MAPCAR, MAPCON,
         MAPHASH, MAPL, MAPLIST, MASK-FIELD, MAX, MEMBER, MEMBER-IF,
         MEMBER-IF-NOT, MERGE, MERGE-PATHNAMES, METHOD,
         METHOD-COMBINATION, METHOD-COMBINATION-ERROR,
         METHOD-QUALIFIERS, MIN, MINUSP, MISMATCH, MOD,
         MOST-NEGATIVE-DOUBLE-FLOAT, MOST-NEGATIVE-FIXNUM,
         MOST-NEGATIVE-LONG-FLOAT, MOST-NEGATIVE-SHORT-FLOAT,
         MOST-NEGATIVE-SINGLE-FLOAT, MOST-POSITIVE-DOUBLE-FLOAT,
         MOST-POSITIVE-FIXNUM, MOST-POSITIVE-LONG-FLOAT,
         MOST-POSITIVE-SHORT-FLOAT, MOST-POSITIVE-SINGLE-FLOAT,
         MUFFLE-WARNING, MULTIPLE-VALUE-BIND, MULTIPLE-VALUE-CALL,
         MULTIPLE-VALUE-LIST, MULTIPLE-VALUE-PROG1, MULTIPLE-VALUE-SETQ,
         MULTIPLE-VALUES-LIMIT, NAME-CHAR, NAMESTRING, NBUTLAST, NCONC,
         NEXT-METHOD-P, NIL, NINTERSECTION, NINTH, NO-APPLICABLE-METHOD,
         NO-NEXT-METHOD, NOT, NOTANY, NOTEVERY, NOTINLINE, NRECONC,
         NREVERSE, NSET-DIFFERENCE, NSET-EXCLUSIVE-OR,
         NSTRING-CAPITALIZE, NSTRING-DOWNCASE, NSTRING-UPCASE, NSUBLIS,
         NSUBST, NSUBST-IF, NSUBST-IF-NOT, NSUBSTITUTE, NSUBSTITUTE-IF,
         NSUBSTITUTE-IF-NOT, NTH, NTH-VALUE, NTHCDR, NULL, NUMBER,
         NUMBERP, NUMERATOR, NUNION, ODDP, OPEN, OPEN-STREAM-P,
         OPTIMIZE, OR, OTHERWISE, OUTPUT-STREAM-P, PACKAGE,
         PACKAGE-ERROR, PACKAGE-ERROR-PACKAGE, PACKAGE-NAME,
         PACKAGE-NICKNAMES, PACKAGE-SHADOWING-SYMBOLS, PACKAGE-USE-LIST,
         PACKAGE-USED-BY-LIST, PACKAGEP, PAIRLIS, PARSE-ERROR,
         PARSE-INTEGER, PARSE-NAMESTRING, PATHNAME, PATHNAME-DEVICE,
         PATHNAME-DIRECTORY, PATHNAME-HOST, PATHNAME-MATCH-P,
         PATHNAME-NAME, PATHNAME-TYPE, PATHNAME-VERSION, PATHNAMEP,
         PEEK-CHAR, PHASE, PI, PLUSP, POP, POSITION, POSITION-IF,
         POSITION-IF-NOT, PPRINT, PPRINT-DISPATCH,
         PPRINT-EXIT-IF-LIST-EXHAUSTED, PPRINT-FILL, PPRINT-INDENT,
         PPRINT-LINEAR, PPRINT-LOGICAL-BLOCK, PPRINT-NEWLINE,
         PPRINT-POP, PPRINT-TAB, PPRINT-TABULAR, PRIN1, PRIN1-TO-STRING,
         PRINC, PRINC-TO-STRING, PRINT, PRINT-NOT-READABLE,
         PRINT-NOT-READABLE-OBJECT, PRINT-OBJECT,
         PRINT-UNREADABLE-OBJECT, PROBE-FILE, PROCLAIM, PROG, PROG*,
         PROG1, PROG2, PROGN, PROGRAM-ERROR, PROGV, PROVIDE, PSETF,
         PSETQ, PUSH, PUSHNEW, QUOTE, RANDOM, RANDOM-STATE,
         RANDOM-STATE-P, RASSOC, RASSOC-IF, RASSOC-IF-NOT, RATIO,
         RATIONAL, RATIONALIZE, RATIONALP, READ, READ-BYTE, READ-CHAR,
         READ-CHAR-NO-HANG, READ-DELIMITED-LIST, READ-FROM-STRING,
         READ-LINE, READ-PRESERVING-WHITESPACE, READ-SEQUENCE,
         READER-ERROR, READTABLE, READTABLE-CASE, READTABLEP, REAL,
         REALP, REALPART, REDUCE, REINITIALIZE-INSTANCE, REM, REMF,
         REMHASH, REMOVE, REMOVE-DUPLICATES, REMOVE-IF, REMOVE-IF-NOT,
         REMOVE-METHOD, REMPROP, RENAME-FILE, RENAME-PACKAGE, REPLACE,
         REQUIRE, REST, RESTART, RESTART-BIND, RESTART-CASE,
         RESTART-NAME, RETURN, RETURN-FROM, REVAPPEND, REVERSE, ROOM,
         ROTATEF, ROUND, ROW-MAJOR-AREF, RPLACA, RPLACD, SAFETY,
         SATISFIES, SBIT, SCALE-FLOAT, SCHAR, SEARCH, SECOND, SEQUENCE,
         SERIOUS-CONDITION, SET, SET-DIFFERENCE,
         SET-DISPATCH-MACRO-CHARACTER, SET-EXCLUSIVE-OR,
         SET-MACRO-CHARACTER, SET-PPRINT-DISPATCH, SET-SYNTAX-FROM-CHAR,
         SETF, SETQ, SEVENTH, SHADOW, SHADOWING-IMPORT,
         SHARED-INITIALIZE, SHIFTF, SHORT-FLOAT, SHORT-FLOAT-EPSILON,
         SHORT-FLOAT-NEGATIVE-EPSILON, SHORT-SITE-NAME, SIGNAL,
         SIGNED-BYTE, SIGNUM, SIMPLE-ARRAY, SIMPLE-BASE-STRING,
         SIMPLE-BIT-VECTOR, SIMPLE-BIT-VECTOR-P, SIMPLE-CONDITION,
         SIMPLE-CONDITION-FORMAT-ARGUMENTS,
         SIMPLE-CONDITION-FORMAT-CONTROL, SIMPLE-ERROR, SIMPLE-STRING,
         SIMPLE-STRING-P, SIMPLE-TYPE-ERROR, SIMPLE-VECTOR,
         SIMPLE-VECTOR-P, SIMPLE-WARNING, SIN, SINGLE-FLOAT,
         SINGLE-FLOAT-EPSILON, SINGLE-FLOAT-NEGATIVE-EPSILON, SINH,
         SIXTH, SLEEP, SLOT-BOUNDP, SLOT-EXISTS-P, SLOT-MAKUNBOUND,
         SLOT-MISSING, SLOT-UNBOUND, SLOT-VALUE, SOFTWARE-TYPE,
         SOFTWARE-VERSION, SOME, SORT, SPACE, SPECIAL,
         SPECIAL-OPERATOR-P, SPEED, SQRT, STABLE-SORT, STANDARD,
         STANDARD-CHAR, STANDARD-CHAR-P, STANDARD-CLASS,
         STANDARD-GENERIC-FUNCTION, STANDARD-METHOD, STANDARD-OBJECT,
         STEP, STORAGE-CONDITION, STORE-VALUE, STREAM,
         STREAM-ELEMENT-TYPE, STREAM-ERROR, STREAM-ERROR-STREAM,
         STREAM-EXTERNAL-FORMAT, STREAMP, STRING, STRING-CAPITALIZE,
         STRING-DOWNCASE, STRING-EQUAL, STRING-GREATERP,
         STRING-LEFT-TRIM, STRING-LESSP, STRING-NOT-EQUAL,
         STRING-NOT-GREATERP, STRING-NOT-LESSP, STRING-RIGHT-TRIM,
         STRING-STREAM, STRING-TRIM, STRING-UPCASE, STRING/=, STRING<,
         STRING<=, STRING=, STRING>, STRING>=, STRINGP, STRUCTURE,
         STRUCTURE-CLASS, STRUCTURE-OBJECT, STYLE-WARNING, SUBLIS,
         SUBSEQ, SUBSETP, SUBST, SUBST-IF, SUBST-IF-NOT, SUBSTITUTE,
         SUBSTITUTE-IF, SUBSTITUTE-IF-NOT, SUBTYPEP, SVREF, SXHASH,
         SYMBOL, SYMBOL-FUNCTION, SYMBOL-MACROLET, SYMBOL-NAME,
         SYMBOL-PACKAGE, SYMBOL-PLIST, SYMBOL-VALUE, SYMBOLP,
         SYNONYM-STREAM, SYNONYM-STREAM-SYMBOL, T, TAGBODY, TAILP, TAN,
         TANH, TENTH, TERPRI, THE, THIRD, THROW, TIME, TRACE,
         TRANSLATE-LOGICAL-PATHNAME, TRANSLATE-PATHNAME, TREE-EQUAL,
         TRUENAME, TRUNCATE, TWO-WAY-STREAM,
         TWO-WAY-STREAM-INPUT-STREAM, TWO-WAY-STREAM-OUTPUT-STREAM,
         TYPE, TYPE-ERROR, TYPE-ERROR-DATUM, TYPE-ERROR-EXPECTED-TYPE,
         TYPE-OF, TYPECASE, TYPEP, UNBOUND-SLOT, UNBOUND-SLOT-INSTANCE,
         UNBOUND-VARIABLE, UNDEFINED-FUNCTION, UNEXPORT, UNINTERN,
         UNION, UNLESS, UNREAD-CHAR, UNSIGNED-BYTE, UNTRACE,
         UNUSE-PACKAGE, UNWIND-PROTECT,
         UPDATE-INSTANCE-FOR-DIFFERENT-CLASS,
         UPDATE-INSTANCE-FOR-REDEFINED-CLASS,
         UPGRADED-ARRAY-ELEMENT-TYPE, UPGRADED-COMPLEX-PART-TYPE,
         UPPER-CASE-P, USE-PACKAGE, USE-VALUE, USER-HOMEDIR-PATHNAME,
         VALUES, VALUES-LIST, VARIABLE, VECTOR, VECTOR-POP, VECTOR-PUSH,
         VECTOR-PUSH-EXTEND, VECTORP, WARN, WARNING, WHEN,
         WILD-PATHNAME-P, WITH-ACCESSORS, WITH-COMPILATION-UNIT,
         WITH-CONDITION-RESTARTS, WITH-HASH-TABLE-ITERATOR,
         WITH-INPUT-FROM-STRING, WITH-OPEN-FILE, WITH-OPEN-STREAM,
         WITH-OUTPUT-TO-STRING, WITH-PACKAGE-ITERATOR,
         WITH-SIMPLE-RESTART, WITH-SLOTS, WITH-STANDARD-IO-SYNTAX,
         WRITE, WRITE-BYTE, WRITE-CHAR, WRITE-LINE, WRITE-SEQUENCE,
         WRITE-STRING, WRITE-TO-STRING, Y-OR-N-P, YES-OR-NO-P, ZEROP
0 internal symbols.
(A LIST)
  [list]
#(A VECTOR)
  [simple-vector]

Element-type: T
Length: 2
COMMON-LISP-USER::CLOSURE-TO-DESCRIBE
  [symbol]

CLOSURE-TO-DESCRIBE names a compiled function:
  Lambda-list: ()
  Derived type: (FUNCTION NIL (VALUES NUMBER &OPTIONAL))
  Source file: /«PKGBUILDDIR»/tests/interface.impure.lisp
::: Success (DESCRIBE :NO-ERROR)
::: Running (DOCUMENTATION PACKAGE)
::: Success (DOCUMENTATION PACKAGE)
::: Running (DOCUMENTATION CLASS STANDARD-CLASS)
::: Success (DOCUMENTATION CLASS STANDARD-CLASS)
::: Running (DOCUMENTATION CLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS)
::: Success (DOCUMENTATION CLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS)
::: Running (DOCUMENTATION STRUCT 1)
::: Success (DOCUMENTATION STRUCT 1)
::: Running (DOCUMENTATION CONDITION)
::: Success (DOCUMENTATION CONDITION)
::: Running (DOCUMENTATION STRUCT 2)
::: Success (DOCUMENTATION STRUCT 2)
::: Running (DOCUMENTATION TYPE)
::: Success (DOCUMENTATION TYPE)
::: Running (DOCUMENTATION COMPILER-MACRO)
::: Success (DOCUMENTATION COMPILER-MACRO)
::: Running (DOCUMENTATION FUNCTION SETF)
::: Success (DOCUMENTATION FUNCTION SETF)
::: Running (DOCUMENTATION LAMBDA)
::: Success (DOCUMENTATION LAMBDA)
::: Running (DOCUMENTATION FLET)
::: Success (DOCUMENTATION FLET)
::: Running (DOCUMENTATION LABELS)
::: Success (DOCUMENTATION LABELS)
::: Running (DOCUMENTATION :CLOSURE)
::: Success (DOCUMENTATION :CLOSURE)
::: Running (DOCUMENTATION :BUILT-IN-MACRO)
::: Success (DOCUMENTATION :BUILT-IN-MACRO)
::: Running (DOCUMENTATION :BUILT-IN-FUNCTION)
::: Success (DOCUMENTATION :BUILT-IN-FUNCTION)
::: Running (DOCUMENTATION VARIABLE)
::: Success (DOCUMENTATION VARIABLE)
::: Running (DOCUMENTATION :MISMATCH-FOR-FUNCTION)
::: Success (DOCUMENTATION :MISMATCH-FOR-FUNCTION)
::: Running (DOCUMENTATION SETF :ON NIL)
::: Success (DOCUMENTATION SETF :ON NIL)

; in: WITH-TEST (:NAME :DESCRIBE-GENERIC-FUNCTION-WITH-ASSUMED-TYPE)
;     (GOGO)
; 
; caught STYLE-WARNING:
;   undefined function: GOGO
; 
; compilation unit finished
;   Undefined function:
;     GOGO
;   caught 1 STYLE-WARNING condition
::: Running :DESCRIBE-GENERIC-FUNCTION-WITH-ASSUMED-TYPE
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::GOGO.
COMMON-LISP-USER::GOGO
  [symbol]

GOGO names a generic function:
  Lambda-list: ()
  Derived type: FUNCTION
  Method-combination: STANDARD
  Methods:
    (GOGO ())
  Source file: SYS:SRC;PCL;DFUN.LISP.NEWEST
::: Success :DESCRIBE-GENERIC-FUNCTION-WITH-ASSUMED-TYPE
::: Running :BUG-643958
::: Success :BUG-643958
::: Running :DESCRIBE-SUPPRESSES-PRINT-ERRORS
::: Success :DESCRIBE-SUPPRESSES-PRINT-ERRORS
::: Running :BACKTRACE-SUPPRESSES-PRINT-ERRORS
::: Success :BACKTRACE-SUPPRESSES-PRINT-ERRORS
::: Running :BACKTRACE-AND-CIRCLES
::: Success :BACKTRACE-AND-CIRCLES
::: Running :ENDIANNESS-IN-FEATURES
::: Success :ENDIANNESS-IN-FEATURES

; in: WITH-TEST (:NAME (TRACE GENERIC-FUNCTION))
;     (TRACED-GF 3)
; 
; caught STYLE-WARNING:
;   undefined function: TRACED-GF
; 
; compilation unit finished
;   Undefined function:
;     TRACED-GF
;   caught 1 STYLE-WARNING condition
::: Running (TRACE GENERIC-FUNCTION)
::: Success (TRACE GENERIC-FUNCTION)
::: Running (APROPOS :INHERITED :BUG-1364413)
::: Success (APROPOS :INHERITED :BUG-1364413)
::: Running (APROPOS :INHERITED :EXTERNAL-ONLY :BUG-1364413)
::: Success (APROPOS :INHERITED :EXTERNAL-ONLY :BUG-1364413)
::: Running (APROPOS :ONCE-ONLY)
::: Success (APROPOS :ONCE-ONLY)
// Running /«PKGBUILDDIR»/tests/kill-non-lisp-thread.impure.lisp
// Running /«PKGBUILDDIR»/tests/load.impure.lisp
; compiling file "/«PKGBUILDDIR»/tests/load-test.tmp" (written 11 JUN 2015 09:08:01 AM):
; compiling (SETQ *ARRAY* ...)

; /«PKGBUILDDIR»/tests/load-test.fasl written
; compilation finished in 0:00:00.006

; file: /«PKGBUILDDIR»/tests/load.impure.lisp
; in: DOLIST (EF '(:DEFAULT :ASCII :LATIN-1 :UTF-8))
;     (FOO 1)
; 
; caught STYLE-WARNING:
;   undefined function: FOO
; 
; compilation unit finished
;   Undefined function:
;     FOO
;   caught 1 STYLE-WARNING condition

; compiling file "/«PKGBUILDDIR»/tests/load-test.tmp" (written 11 JUN 2015 09:08:01 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/load-test.fasl written
; compilation finished in 0:00:00.034
; compiling file "/«PKGBUILDDIR»/tests/load-test.tmp" (written 11 JUN 2015 09:08:01 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/load-test.fasl written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/tests/load-test.tmp" (written 11 JUN 2015 09:08:01 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/load-test.fasl written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/tests/load-test.tmp" (written 11 JUN 2015 09:08:01 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/load-test.fasl written
; compilation finished in 0:00:00.015
;; loading stuff from #<SB-IMPL::STRING-INPUT-STREAM {52786DC1}>
;; 1
;; NIL
;; NIL
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; 2
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:01 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.006
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; 3
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; loading stuff from #<LOAD-IMPURE-GRAY-STREAM {52A46769}>
;; 4
;; NIL
;; NIL
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; 5
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; 6
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test"
;; 7
;; #P"/«PKGBUILDDIR»/tests/load-impure-test"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test"
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:01 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.007
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; 8
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:02 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.006
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; 9
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:02 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test written
; compilation finished in 0:00:00.007
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test"
;; 10
;; #P"/«PKGBUILDDIR»/tests/load-impure-test"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test"
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:02 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.compiled-lisp written
; compilation finished in 0:00:00.006
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.compiled-lisp"
;; 11
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.compiled-lisp"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.compiled-lisp"
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:02 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:02 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.008
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:02 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:03 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.009
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; 12
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.lisp"
; compiling file "/«PKGBUILDDIR»/tests/load-impure-test.lisp" (written 11 JUN 2015 09:08:04 AM):
; compiling (INCF *COUNTER*)
; compiling (SETF *LOADED-PATHNAME* ...)
; compiling (SETF *LOADED-TRUENAME* ...)

; /«PKGBUILDDIR»/tests/load-impure-test.fasl written
; compilation finished in 0:00:00.007
;; loading #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; 13
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
;; #P"/«PKGBUILDDIR»/tests/load-impure-test.fasl"
::: Running :BUG-332
; compiling file "/«PKGBUILDDIR»/tests/bug-332.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFSTRUCT BUG-332 ...)
; compiling (DEFSTRUCT BUG-332 ...)
; file: /«PKGBUILDDIR»/tests/bug-332.lisp
; in: DEFSTRUCT BUG-332
;     (DEFSTRUCT BUG-332 FOO BAR)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION BUG-332 {534CFB49}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class BUG-332:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of #<STRUCTURE-CLASSOID BUG-332>.

; --> PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'COPY-BUG-332 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for COPY-BUG-332 found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'BUG-332-P 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for BUG-332-P found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'BUG-332-FOO 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for BUG-332-FOO found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL)
;     (SB-C:%COMPILER-DEFUN '(SETF BUG-332-FOO) 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for (SETF BUG-332-FOO) found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:FOO T) (:BAR T)) BUG-332) MAKE-BUG-332)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-BUG-332
;     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))

; --> PROGN DEFUN PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'MAKE-BUG-332 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for MAKE-BUG-332 found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 7 WARNING conditions
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/bug-332.fasl written
; compilation finished in 0:00:00.682
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BUG-332
     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
WARNING: change in instance length of class BUG-332:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-BUG-332 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::BUG-332-P in DEFUN
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BUG-332
     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-BUG-332 in DEFUN
; compiling file "/«PKGBUILDDIR»/tests/bug-332.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFSTRUCT BUG-332 ...)
; file: /«PKGBUILDDIR»/tests/bug-332.lisp
; in: DEFSTRUCT BUG-332
;     (DEFSTRUCT BUG-332 FOO)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION BUG-332 {51C3AF01}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class BUG-332:
;     The most recently compiled length: 3
;     the most recently loaded length: 2
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of #<STRUCTURE-CLASSOID BUG-332>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:FOO T)) BUG-332) MAKE-BUG-332)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-BUG-332
;     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))

; compiling (DEFSTRUCT BUG-332 ...)
; file: /«PKGBUILDDIR»/tests/bug-332.lisp
; in: DEFSTRUCT BUG-332
;     (DEFSTRUCT BUG-332 FOO BAR)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION BUG-332 {51D3F249}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class BUG-332:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of #<STRUCTURE-CLASSOID BUG-332>.

; --> PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'COPY-BUG-332 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for COPY-BUG-332 found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'BUG-332-P 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for BUG-332-P found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'BUG-332-FOO 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for BUG-332-FOO found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL)
;     (SB-C:%COMPILER-DEFUN '(SETF BUG-332-FOO) 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for (SETF BUG-332-FOO) found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:FOO T) (:BAR T)) BUG-332) MAKE-BUG-332)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-BUG-332
;     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))

; --> PROGN DEFUN PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'MAKE-BUG-332 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for MAKE-BUG-332 found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 9 WARNING conditions
;   caught 2 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/bug-332.fasl written
; compilation finished in 0:00:00.324
WARNING: change in instance length of class BUG-332:
  current length: 3
  new length: 2
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BUG-332
     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
WARNING: change in instance length of class BUG-332:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-BUG-332 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::BUG-332-P in DEFUN
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BUG-332
     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-BUG-332 in DEFUN
; compiling file "/«PKGBUILDDIR»/tests/bug-332.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFSTRUCT BUG-332 ...)
; file: /«PKGBUILDDIR»/tests/bug-332.lisp
; in: DEFSTRUCT BUG-332
;     (DEFSTRUCT BUG-332 FOO)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION BUG-332 {51EFBF01}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class BUG-332:
;     The most recently compiled length: 3
;     the most recently loaded length: 2
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of #<STRUCTURE-CLASSOID BUG-332>.

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:FOO T)) BUG-332) MAKE-BUG-332)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-BUG-332
;     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))

; compiling (DEFSTRUCT BUG-332 ...)
; file: /«PKGBUILDDIR»/tests/bug-332.lisp
; in: DEFSTRUCT BUG-332
;     (DEFSTRUCT BUG-332 FOO BAR)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION BUG-332 {51FFFCB1}>
;    '#(#<SB-KERNEL:LAYOUT for T {4F077BF9}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {4F077C39}>))
; 
; caught WARNING:
;   change in instance length of class BUG-332:
;     The most recently compiled length: 2
;     the most recently loaded length: 3
; 
; caught WARNING:
;   Clobbering the compiler's idea of the layout of #<STRUCTURE-CLASSOID BUG-332>.

; --> PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'COPY-BUG-332 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for COPY-BUG-332 found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'BUG-332-P 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for BUG-332-P found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'BUG-332-FOO 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for BUG-332-FOO found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL)
;     (SB-C:%COMPILER-DEFUN '(SETF BUG-332-FOO) 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for (SETF BUG-332-FOO) found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(FTYPE (SB-INT:SFUNCTION (&KEY (:FOO T) (:BAR T)) BUG-332) MAKE-BUG-332)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The new FTYPE proclamation for MAKE-BUG-332
;     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
;   does not match the old FTYPE proclamation
;     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))

; --> PROGN DEFUN PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'MAKE-BUG-332 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for MAKE-BUG-332 found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 9 WARNING conditions
;   caught 2 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/bug-332.fasl written
; compilation finished in 0:00:00.387
WARNING: change in instance length of class BUG-332:
  current length: 3
  new length: 2
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BUG-332
     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
WARNING: change in instance length of class BUG-332:
  current length: 2
  new length: 3
STYLE-WARNING: redefining COMMON-LISP-USER::COPY-BUG-332 in DEFUN
STYLE-WARNING: redefining COMMON-LISP-USER::BUG-332-P in DEFUN
STYLE-WARNING:
   The new FTYPE proclamation for MAKE-BUG-332
     (FUNCTION (&KEY (:FOO T) (:BAR T)) (VALUES BUG-332 &OPTIONAL))
   does not match the old FTYPE proclamation
     (FUNCTION (&KEY (:FOO T)) (VALUES BUG-332 &OPTIONAL))
STYLE-WARNING: redefining COMMON-LISP-USER::MAKE-BUG-332 in DEFUN
::: Success :BUG-332
::: Running (LOAD :EMPTY.LISP)
::: Success (LOAD :EMPTY.LISP)
::: Running (LOAD :EMPTY.FASL)
::: Success (LOAD :EMPTY.FASL)
::: Running :PARALLEL-FASL-LOAD
::: Success :PARALLEL-FASL-LOAD
::: Running :FASLOADER-PRINT
; compiling file "/«PKGBUILDDIR»/tests/load-test.tmp" (written 11 JUN 2015 09:08:07 AM):
; compiling (DEFMACRO SOME-FANCY-MACRO ...)
; compiling (DEFVAR *SOME-VAR* ...)
; compiling (DEFTYPE MY-FAVORITE-TYPE ...)
; compiling (DEFUN FRED ...)
; compiling (PUSH (SOME-FANCY-MACRO #) ...)

; /«PKGBUILDDIR»/tests/load-test.fasl written
; compilation finished in 0:00:00.054
::: Success :FASLOADER-PRINT
::: Running :LOAD-READER-ERROR
::: Success :LOAD-READER-ERROR
// Running /«PKGBUILDDIR»/tests/loop.impure.lisp
// Running /«PKGBUILDDIR»/tests/macroexpand.impure.lisp
::: Running :BINDING*-EXPANDER
::: Success :BINDING*-EXPANDER
// Running /«PKGBUILDDIR»/tests/map-tests.impure.lisp
::: Running :MAP
::: Success :MAP
::: Running :MAP-INTO
::: Success :MAP-INTO
::: Running :MAP-NIL
::: Success :MAP-NIL
::: Running :MAPTEST
::: Success :MAPTEST
::: Running :MAP-INTO-VECTOR-FROM-LIST
::: Success :MAP-INTO-VECTOR-FROM-LIST
// Running /«PKGBUILDDIR»/tests/mop-23.impure.lisp
// Running /«PKGBUILDDIR»/tests/mop-24.impure.lisp
// Running /«PKGBUILDDIR»/tests/mop-25.impure.lisp

; file: /«PKGBUILDDIR»/tests/mop-25.impure.lisp
; in: DEFMETHOD READER-METHOD-CLASS (TYPECHECKING-READER-CLASS T)
;     (DEFMETHOD SB-MOP:READER-METHOD-CLASS
;                ((CLASS MOP-25::TYPECHECKING-READER-CLASS) MOP-25::DIRECT-SLOT
;                 &REST MOP-25::ARGS)
;       (FIND-CLASS 'MOP-25::TYPECHECKING-READER-METHOD))
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD SB-MOP:READER-METHOD-CLASS
;                           (MOP-25::TYPECHECKING-READER-CLASS T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLASS MOP-25::DIRECT-SLOT
;          &REST MOP-25::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T MOP-25::DIRECT-SLOT))
;       (DECLARE (IGNORABLE MOP-25::DIRECT-SLOT CLASS))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLASS MOP-25::DIRECT-SLOT)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLASS MOP-25::DIRECT-SLOT) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS CLASS MOP-25::TYPECHECKING-READER-CLASS))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
// Running /«PKGBUILDDIR»/tests/mop-26.impure.lisp
// Running /«PKGBUILDDIR»/tests/mop-27.impure.lisp

; file: /«PKGBUILDDIR»/tests/mop-27.impure.lisp
; in: DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION (PATTERN-GF/1)
;     (MOP-27::METHOD-INTERPRETING-FUNCTION MOP-27::METHODS GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: METHOD-INTERPRETING-FUNCTION
; 
; compilation unit finished
;   Undefined function:
;     METHOD-INTERPRETING-FUNCTION
;   caught 1 STYLE-WARNING condition

; in: DEFUN METHOD-INTERPRETING-FUNCTION
;     (MOP-27::MATCHESP MOP-27::ARG
;      (MOP-27::PATTERN (CAR (SB-MOP:METHOD-SPECIALIZERS METHOD))))
; 
; caught STYLE-WARNING:
;   undefined function: MATCHESP
; 
; compilation unit finished
;   Undefined function:
;     MATCHESP
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   can't find type for specializer #<PATTERN-SPECIALIZER {52731271}> in
   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
STYLE-WARNING:
   can't find type for specializer #<PATTERN-SPECIALIZER {527C24B9}> in
   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
STYLE-WARNING:
   can't find type for specializer #<PATTERN-SPECIALIZER {5280BD11}> in
   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
// Running /«PKGBUILDDIR»/tests/mop-28.impure.lisp
STYLE-WARNING:
   can't find type for specializer #<OR-SPECIALIZER {52B7F279}> in
   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
// Running /«PKGBUILDDIR»/tests/mop-29.impure.lisp
// Running /«PKGBUILDDIR»/tests/mop-30.impure.lisp
::: Running :STANDARD-INSTANCE-ACCESS
::: Success :STANDARD-INSTANCE-ACCESS
::: Running :STANDARD-INSTANCE-ACCESS/SETF
::: Success :STANDARD-INSTANCE-ACCESS/SETF
::: Running :STANDARD-INSTANCE-ACCESS/UPDATED
::: Success :STANDARD-INSTANCE-ACCESS/UPDATED
::: Running :STANDARD-INSTANCE-ACCESS/SLOT-UNBOUND
::: Success :STANDARD-INSTANCE-ACCESS/SLOT-UNBOUND
// Running /«PKGBUILDDIR»/tests/mop.impure.lisp
#<AUTOMETHOD-CLASS AUTOMETHOD-OBJECT> #<AUTOMETHOD-CLASS AUTOMETHOD-OBJECT>
STYLE-WARNING:
   Implicitly creating new generic function MOP-TEST::EQL-SPECIALIZED-METHOD.

; file: /«PKGBUILDDIR»/tests/mop.impure.lisp
; in: DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS (AUTO-ACCESSORS-CLASS)
;     (DEFMETHOD SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
;                ((CLASS MOP-TEST::AUTO-ACCESSORS-CLASS) &REST MOP-TEST::INITARGS)
;       (LET ((MOP-TEST::DSD-CLASS-NAME (GENSYM)))
;         (SB-MOP:ENSURE-CLASS MOP-TEST::DSD-CLASS-NAME :METACLASS
;                              'MOP-TEST::AUTO-ACCESSORS-DIRECT-SLOT-DEFINITION-CLASS
;                              :DIRECT-SUPERCLASSES
;                              (LIST
;                               (FIND-CLASS
;                                'SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION))
;                              :CONTAINING-CLASS-NAME (CLASS-NAME CLASS))
;         (EVAL
;          `(DEFMETHOD INITIALIZE-INSTANCE :AFTER (# &REST MOP-TEST::ARGS)
;             (WHEN # #)))
;         (FIND-CLASS MOP-TEST::DSD-CLASS-NAME)))
; --> PROGN LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
;                           (MOP-TEST::AUTO-ACCESSORS-CLASS))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLASS &REST MOP-TEST::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE CLASS))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLASS)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLASS) NIL :CALL-NEXT-METHOD-P
;                                                 NIL :SETQ-P NIL
;                                                 :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS CLASS MOP-TEST::AUTO-ACCESSORS-CLASS))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (#:G751)
;     (SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (#:G751))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST
;          MOP-TEST::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE MOP-TEST::DSD))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((MOP-TEST::DSD)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (MOP-TEST::DSD) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G751))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (#:G751))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST
;          MOP-TEST::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE MOP-TEST::DSD))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((MOP-TEST::DSD)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (MOP-TEST::DSD) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G751))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (#:G762)
;     (SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (#:G762))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST
;          MOP-TEST::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE MOP-TEST::DSD))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((MOP-TEST::DSD)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (MOP-TEST::DSD) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G762))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (#:G762))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST
;          MOP-TEST::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE MOP-TEST::DSD))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((MOP-TEST::DSD)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (MOP-TEST::DSD) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G762))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (ALLOCATE-INSTANCE BUILT-IN-CLASS ERROR)
::: Success (ALLOCATE-INSTANCE BUILT-IN-CLASS ERROR)
STYLE-WARNING:
   Implicitly creating new generic function MOP-TEST::METHOD-ON-ANONYMOUS-CLASS.
::: Running :MAKE-METHOD-LAMBDA-WRAPPING+RETURN-FROM
::: Success :MAKE-METHOD-LAMBDA-WRAPPING+RETURN-FROM
::: Running :SLOW-METHOD-IS-FBOUNDP
::: Success :SLOW-METHOD-IS-FBOUNDP
::: Running :SBUC-MIO-TEST
::: Success :SBUC-MIO-TEST

; file: /«PKGBUILDDIR»/tests/mop.impure.lisp
; in: WITH-TEST (:NAME :CLASS-REDEFINITION-CHANGES-CUSTOM-SLOT-TYPE)
;     (MOP-TEST::FOOFOO
;      (MAKE-INSTANCE 'MOP-TEST::FUNC-SLOT-OBJECT :FOO MOP-TEST::X))
; 
; caught STYLE-WARNING:
;   undefined function: FOOFOO
; 
; compilation unit finished
;   Undefined function:
;     FOOFOO
;   caught 1 STYLE-WARNING condition
::: Running :CLASS-REDEFINITION-CHANGES-CUSTOM-SLOT-TYPE
::: Success :CLASS-REDEFINITION-CHANGES-CUSTOM-SLOT-TYPE
::: Running :CLASS-REDEFINITION-CHANGES-CUSTOM-SLOT-TYPE-MIO
::: Success :CLASS-REDEFINITION-CHANGES-CUSTOM-SLOT-TYPE-MIO
::: Running :CLASS-REDEFINITION-REMOVES-CLASS-SLOT
::: Success :CLASS-REDEFINITION-REMOVES-CLASS-SLOT
::: Running :CLASS-REDEFINITION-ADDS-CLASS-SLOT
::: Success :CLASS-REDEFINITION-ADDS-CLASS-SLOT

; file: /«PKGBUILDDIR»/tests/mop.impure.lisp
; in: WITH-TEST (:NAME (SET-FUNCALLABLE-INSTANCE-FUNCTION :TYPECHECKING))
;     (LAMBDA (MOP-TEST::Y) NIL)
; ==>
;   #'(LAMBDA (MOP-TEST::Y) NIL)
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (SET-FUNCALLABLE-INSTANCE-FUNCTION :TYPECHECKING)
::: Success (SET-FUNCALLABLE-INSTANCE-FUNCTION :TYPECHECKING)

; file: /«PKGBUILDDIR»/tests/mop.impure.lisp
; in: DEFSTRUCT NIL-SLOT-NAME
;     (DEFSTRUCT MOP-TEST::NIL-SLOT-NAME NIL)
; 
; caught WARNING:
;   slot name of NIL indicates probable syntax error in DEFSTRUCT
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (DEFSTRUCT :NIL-SLOT-NAME :BUG-633911)
::: Success (DEFSTRUCT :NIL-SLOT-NAME :BUG-633911)
// Running /«PKGBUILDDIR»/tests/package-locks.impure.lisp

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: WITH-TEST (:NAME :UNLOCKED-PACKAGE)
;     (WITH-ERROR-INFO ("Unlocked form: ~S~%" FORM)
;       (EVAL FORM))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER5 (E)
;            (FORMAT T "Unlocked form: ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP6 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER5) (FUNCTION #:TYPEP6)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :UNLOCKED-PACKAGE
; in: DEFINE-COMPILER-MACRO TEST:UNUSED
;     (LET* ((FORM #:CMACRO-&WHOLE632) (ARG (CAR (CDR #:WHOLE630))))
;       (BLOCK TEST:UNUSED FORM))
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFINE-SETF-EXPANDER TEST:CAR
;     (MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
;         (GET-SETF-EXPANSION PLACE)
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0)
;       (DECLARE (IGNORE #:G0))
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; 
; caught STYLE-WARNING:
;   The variable NEWVAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SETTER is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Success :UNLOCKED-PACKAGE

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: WITH-TEST (:NAME :LOCKED-PACKAGE/LEGAL-FORMS)
;     (WITH-ERROR-INFO ("locked legal form: ~S~%" FORM)
;       (EVAL FORM))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER5 (E)
;            (FORMAT T "locked legal form: ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP6 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER5) (FUNCTION #:TYPEP6)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :LOCKED-PACKAGE/LEGAL-FORMS
::: Success :LOCKED-PACKAGE/LEGAL-FORMS

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: WITH-TEST (:NAME :LOCKED-PACKAGE/ILLEGAL-RUNTIME-FORMS)
;     (WITH-ERROR-INFO ("locked illegal runtime form: ~S~%" FORM)
;       (LET ((FUN (COMPILE NIL `#)))
;         (ASSERT-ERROR (FUNCALL FUN) PACKAGE-LOCK-VIOLATION))
;       (ASSERT-ERROR (EVAL FORM) PACKAGE-LOCK-VIOLATION))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER5 (E)
;            (FORMAT T "locked illegal runtime form: ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP6 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER5) (FUNCTION #:TYPEP6)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN # #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :LOCKED-PACKAGE/ILLEGAL-RUNTIME-FORMS
; in: DEFINE-COMPILER-MACRO TEST:UNUSED
;     (DEFINE-COMPILER-MACRO TEST:UNUSED
;         (&WHOLE FORM ARG)
;       FORM)
; --> PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* 
; ==>
;   (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0))))
;     (BLOCK TEST:UNUSED FORM))
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFINE-COMPILER-MACRO TEST:UNUSED
;     (LET* ((FORM #:CMACRO-&WHOLE672) (ARG (CAR (CDR #:WHOLE670))))
;       (BLOCK TEST:UNUSED FORM))
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (LAMBDA () (DECLAIM (SPECIAL TEST:NOSPECIAL)))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (LAMBDA () (DECLAIM (TYPE FIXNUM TEST:NUM)))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (LAMBDA () (DECLAIM (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN)))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFINE-SETF-EXPANDER TEST:CAR
;     (MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
;         (GET-SETF-EXPANSION PLACE)
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; 
; caught STYLE-WARNING:
;   The variable NEWVAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SETTER is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; in: DEFINE-SETF-EXPANDER TEST:CAR
;     (MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
;         (GET-SETF-EXPANSION PLACE)
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0)
;       (DECLARE (IGNORE #:G0))
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; 
; caught STYLE-WARNING:
;   The variable NEWVAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SETTER is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Success :LOCKED-PACKAGE/ILLEGAL-RUNTIME-FORMS

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: WITH-TEST (:NAME :LOCKED-PACKAGE/ILLEGAL-LEXICAL-FORMS)
;     (WITH-ERROR-INFO ("compile locked illegal lexical form: ~S~%" FORM)
;       (LET ((FUN (COMPILE NIL `#)))
;         (ASSERT-ERROR (FUNCALL FUN) PROGRAM-ERROR))
;       (ASSERT-ERROR (EVAL FORM) PROGRAM-ERROR))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER5 (E)
;            (FORMAT T "compile locked illegal lexical form: ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP6 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER5) (FUNCTION #:TYPEP6)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN # #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :LOCKED-PACKAGE/ILLEGAL-LEXICAL-FORMS
; in: LAMBDA ()
;     (FLET ((TEST:FUNCTION ()
;              :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: FLET ((TEST:FUNCTION NIL :SHITE))
;     (FLET ((TEST:FUNCTION ()
;              :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (LABELS ((TEST:FUNCTION ()
;                :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LABELS ((TEST:FUNCTION NIL :SHITE))
;     (LABELS ((TEST:FUNCTION ()
;                :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FLET ((TEST:MACRO ()
;              :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: FLET ((TEST:MACRO NIL :SHITE))
;     (FLET ((TEST:MACRO ()
;              :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (LABELS ((TEST:MACRO ()
;                :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LABELS ((TEST:MACRO NIL :SHITE))
;     (LABELS ((TEST:MACRO ()
;                :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (MACROLET ((TEST:FUNCTION ()
;                  :YUK))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local macro while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local macro while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (MACROLET ((TEST:MACRO ()
;                  :YUK))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local macro while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local macro while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FLET (((SETF TEST:FUNCTION) (OBJ)
;              OBJ))
;       (SETF (TEST:FUNCTION) 1))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when
;     binding (SETF FUNCTION) as a local function while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding (SETF FUNCTION) as a local function
;   while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: FLET (((SETF TEST:FUNCTION) (OBJ) OBJ))
;     (FLET (((SETF TEST:FUNCTION) (OBJ)
;              OBJ))
;       (SETF (TEST:FUNCTION) 1))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when
;     binding (SETF FUNCTION) as a local function while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding (SETF FUNCTION) as a local function
;   while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FTYPE FUNCTION TEST:FUNCTION)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring the ftype of FUNCTION while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring the ftype of FUNCTION while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (TYPE FIXNUM TEST:NUM)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring the type of NUM while in package
;     COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring the type of NUM while in package
;   COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (SPECIAL TEST:NOSPECIAL)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring NOSPECIAL special while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring NOSPECIAL special while in package
;   COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring the ftype of NUMFUN while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring the ftype of NUMFUN while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
::: Success :LOCKED-PACKAGE/ILLEGAL-LEXICAL-FORMS

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: DOLIST (FORM *ILLEGAL-RUNTIME-FORMS*)
;     (WITH-ERROR-INFO ("without-package-locks illegal runtime form: ~S~%" FORM)
;       (FUNCALL
;        (COMPILE NIL
;                 `(LAMBDA ()
;                    (WITHOUT-PACKAGE-LOCKS
;                      ,FORM)))))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER0 (E)
;            (FORMAT T "without-package-locks illegal runtime form: ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP1 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER0) (FUNCTION #:TYPEP1)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFINE-COMPILER-MACRO TEST:UNUSED
;     (DEFINE-COMPILER-MACRO TEST:UNUSED
;         (&WHOLE FORM ARG)
;       FORM)
; --> PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* 
; ==>
;   (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0))))
;     (BLOCK TEST:UNUSED FORM))
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (WITHOUT-PACKAGE-LOCKS
;       (DECLAIM (SPECIAL TEST:NOSPECIAL)))
; ==>
;   (LET ((SB-IMPL::*IGNORED-PACKAGE-LOCKS* T))
;     (DECLAIM (SPECIAL TEST:NOSPECIAL)))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (WITHOUT-PACKAGE-LOCKS
;       (DECLAIM (TYPE FIXNUM TEST:NUM)))
; ==>
;   (LET ((SB-IMPL::*IGNORED-PACKAGE-LOCKS* T))
;     (DECLAIM (TYPE FIXNUM TEST:NUM)))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: LAMBDA ()
;     (WITHOUT-PACKAGE-LOCKS
;       (DECLAIM (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN)))
; ==>
;   (LET ((SB-IMPL::*IGNORED-PACKAGE-LOCKS* T))
;     (DECLAIM (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN)))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFINE-SETF-EXPANDER TEST:CAR
;     (MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
;         (GET-SETF-EXPANSION PLACE)
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; 
; caught STYLE-WARNING:
;   The variable NEWVAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SETTER is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: DOLIST (PAIR *ILLEGAL-LEXICAL-FORMS-ALIST*)
;     (WITH-ERROR-INFO ("disable-package-locks on illegal form: ~S~%" FORM)
;       (FUNCALL (COMPILE NIL `(LAMBDA () (DECLARE #) ,FORM)))
;       (EVAL `(LOCALLY (DECLARE (DISABLE-PACKAGE-LOCKS ,SYM)) ,FORM)))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER3 (E)
;            (FORMAT T "disable-package-locks on illegal form: ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP4 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER3) (FUNCTION #:TYPEP4)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN # #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: DOLIST (FORM *ILLEGAL-RUNTIME-FORMS*)
;     (WITH-ERROR-INFO ("one error per form ~S~%" FORM)
;       (LET ((ERRORP NIL))
;         (HANDLER-BIND ((PACKAGE-LOCK-VIOLATION #))
;           (EVAL FORM))))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER0 (E)
;            (FORMAT T "one error per form ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP1 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER0) (FUNCTION #:TYPEP1)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFINE-COMPILER-MACRO TEST:UNUSED
;     (LET* ((FORM #:CMACRO-&WHOLE722) (ARG (CAR (CDR #:WHOLE720))))
;       (BLOCK TEST:UNUSED FORM))
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFINE-SETF-EXPANDER TEST:CAR
;     (MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
;         (GET-SETF-EXPANSION PLACE)
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0)
;       (DECLARE (IGNORE #:G0))
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; 
; caught STYLE-WARNING:
;   The variable NEWVAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SETTER is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in: DOLIST (FORM *ILLEGAL-DOUBLE-FORMS*)
;     (CONTINUE X)
; ==>
;   X
; 
; caught STYLE-WARNING:
;   reading an ignored variable: X

;     (WITH-ERROR-INFO ("two errors per form: ~S~%" FORM)
;       (LET ((ERROR-COUNT 0))
;         (HANDLER-BIND ((PACKAGE-LOCK-VIOLATION #))
;           (EVAL FORM)
;           (UNLESS (= 2 ERROR-COUNT)
;             (ERROR "expected 2 errors per form, got ~A for ~A" ERROR-COUNT
;                    FORM)))))
; --> HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER0 (E)
;            (FORMAT T "two errors per form: ~S~%" FORM)
;            (FINISH-OUTPUT))
;          (#:TYPEP1 (CONDITION)
;            (TYPEP CONDITION 'ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER0) (FUNCTION #:TYPEP1)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (PROGN #)))))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; file: /«PKGBUILDDIR»/tests/package-locks.impure.lisp
; in:
;      LET* ((TMP "package-locks.tmp.lisp") (FASL (COMPILE-FILE-PATHNAME TMP)) (N 0))
;     (LET* ((TMP "package-locks.tmp.lisp")
;            (FASL (COMPILE-FILE-PATHNAME TMP))
;            (N 0))
;       (DOLIST (FORM *ILLEGAL-RUNTIME-FORMS*)
;         (UNWIND-PROTECT
;             (WITH-SIMPLE-RESTART (NEXT "~S failed, continue with next test" FORM)
;               (RESET-TEST NIL)
;               (WITH-OPEN-FILE # #)
;               (MULTIPLE-VALUE-BIND # # # #))
;           (WHEN (PROBE-FILE TMP) (DELETE-FILE TMP))
;           (WHEN (PROBE-FILE FASL) (DELETE-FILE FASL)))))
; 
; caught STYLE-WARNING:
;   The variable N is defined but never used.

;     (MULTIPLE-VALUE-BIND (FILE WARNINGS FAILURE-P)
;         (COMPILE-FILE TMP)
;       (SET-TEST-LOCKS T)
;       (ASSERT-ERROR (LOAD FASL) PACKAGE-LOCK-VIOLATION))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (FILE) (WARNINGS) (FAILURE-P) &REST #:G25)
;       (DECLARE (IGNORE #:G25))
;       (SET-TEST-LOCKS T)
;       (ASSERT-ERROR (LOAD FASL) PACKAGE-LOCK-VIOLATION))
; 
; caught STYLE-WARNING:
;   The variable FILE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WARNINGS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FAILURE-P is defined but never used.
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (INTERN *UNINTERNED* ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (IMPORT (QUOTE NOT-FROM-TEST) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (EXPORT (QUOTE TEST::INTERNAL) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (UNEXPORT (QUOTE TEST:EXTERNAL) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (SHADOWING-IMPORT (QUOTE NOT-FROM-TEST) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (LET (#) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (USE-PACKAGE :TEST-UNUSED ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (UNUSE-PACKAGE :TEST-USED ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.003
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (SHADOW (QUOTE NOT-FROM-TEST) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.003
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (UNINTERN (OR # ...) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (DELETE-PACKAGE :TEST-DELETE)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (DEFUN TEST:FUNCTION ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.009
STYLE-WARNING: redefining TEST:FUNCTION in DEFUN
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:49 AM):
; compiling (SETF (FDEFINITION #) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (SETF (SYMBOL-FUNCTION #) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.008
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (TMP-FMAKUNBOUND (QUOTE TEST:FUNCTION))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.004
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFMACRO TEST:UNUSED ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.021
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (SETF (MACRO-FUNCTION #) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFINE-COMPILER-MACRO TEST:UNUSED ...)
; file: /«PKGBUILDDIR»/tests/package-locks.tmp.lisp
; in: DEFINE-COMPILER-MACRO TEST:UNUSED
;     (DEFINE-COMPILER-MACRO TEST:UNUSED
;         (&WHOLE FORM ARG)
;       FORM)
; --> PROGN FUNCTION LET* 
; ==>
;   (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0))))
;     (BLOCK TEST:UNUSED FORM))
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.

; file: /«PKGBUILDDIR»/tests/package-locks.tmp.lisp
; in: DEFINE-COMPILER-MACRO TEST:UNUSED
;     (DEFINE-COMPILER-MACRO TEST:UNUSED
;         (&WHOLE FORM ARG)
;       FORM)
; --> PROGN EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO SB-C::%DEFINE-COMPILER-MACRO 
; --> FUNCTION LET* 
; ==>
;   (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0))))
;     (BLOCK TEST:UNUSED FORM))
; 
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.047
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (SETF (COMPILER-MACRO-FUNCTION #) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFSTRUCT TEST:NOSTRUCT ...)
; compiling (MAKE-NOSTRUCT :NOSTRUCT-SLOT ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.110
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFCLASS TEST:NOCLASS ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.007
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFTYPE TEST:NOTYPE ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFINE-CONDITION TEST:NOCONDITION ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFINE-SYMBOL-MACRO TEST:NOSYMBOL-MACRO ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DECLAIM (SPECIAL TEST:NOSPECIAL))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DECLAIM (TYPE FIXNUM ...))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DECLAIM (FTYPE # ...))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (PROCLAIM (QUOTE #))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFSETF TEST:CAR ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFSETF TEST:CAR ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.025
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFINE-SETF-EXPANDER TEST:CAR ...)
; file: /«PKGBUILDDIR»/tests/package-locks.tmp.lisp
; in: DEFINE-SETF-EXPANDER TEST:CAR
;     (MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
;         (GET-SETF-EXPANSION PLACE)
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0)
;       (DECLARE (IGNORE #:G0))
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; 
; caught STYLE-WARNING:
;   The variable NEWVAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SETTER is defined but never used.

; file: /«PKGBUILDDIR»/tests/package-locks.tmp.lisp
; in: DEFINE-SETF-EXPANDER TEST:CAR
;     (MULTIPLE-VALUE-BIND (DUMMIES VALS NEWVAL SETTER GETTER)
;         (GET-SETF-EXPANSION PLACE)
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G4)
;       (DECLARE (IGNORE #:G4))
;       (LET ((STORE (GENSYM)))
;         (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE)
;                 `(CAR ,GETTER))))
; 
; caught STYLE-WARNING:
;   The variable NEWVAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SETTER is defined but never used.
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.065
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFUN (SETF TEST:FUNCTION) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.008
STYLE-WARNING: redefining (COMMON-LISP:SETF TEST:FUNCTION) in DEFUN
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (TMP-FMAKUNBOUND (QUOTE #))

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.003
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (DEFINE-METHOD-COMBINATION TEST:UNUSED)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.018
; compiling file "/«PKGBUILDDIR»/tests/package-locks.tmp.lisp" (written 11 JUN 2015 09:08:50 AM):
; compiling (SETF (FIND-CLASS #) ...)

; /«PKGBUILDDIR»/tests/package-locks.tmp.fasl written
; compilation finished in 0:00:00.020
; in: LAMBDA ()
;     (FLET ((TEST:FUNCTION ()
;              :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LOCALLY (DECLARE (DISABLE-PACKAGE-LOCKS TEST:FUNCTION))
;     (FLET ((TEST:FUNCTION ()
;              :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (LABELS ((TEST:FUNCTION ()
;                :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LOCALLY (DECLARE (DISABLE-PACKAGE-LOCKS TEST:FUNCTION))
;     (LABELS ((TEST:FUNCTION ()
;                :SHITE))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local function while
;     in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local function while
;   in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FLET ((TEST:MACRO ()
;              :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LOCALLY (DECLARE (DISABLE-PACKAGE-LOCKS TEST:MACRO))
;     (FLET ((TEST:MACRO ()
;              :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (LABELS ((TEST:MACRO ()
;                :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LOCALLY (DECLARE (DISABLE-PACKAGE-LOCKS TEST:MACRO))
;     (LABELS ((TEST:MACRO ()
;                :SHITE))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local function while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local function while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (MACROLET ((TEST:FUNCTION ()
;                  :YUK))
;       (TEST:FUNCTION))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding FUNCTION as a local macro while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding FUNCTION as a local macro while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (MACROLET ((TEST:MACRO ()
;                  :YUK))
;       (TEST:MACRO))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when binding MACRO as a local macro while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding MACRO as a local macro while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FLET (((SETF TEST:FUNCTION) (OBJ)
;              OBJ))
;       (SETF (TEST:FUNCTION) 1))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when
;     binding (SETF FUNCTION) as a local function while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding (SETF FUNCTION) as a local function
;   while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LOCALLY (DECLARE (DISABLE-PACKAGE-LOCKS TEST:FUNCTION))
;     (FLET (((SETF TEST:FUNCTION) (OBJ)
;              OBJ))
;       (SETF (TEST:FUNCTION) 1))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when
;     binding (SETF FUNCTION) as a local function while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when binding (SETF FUNCTION) as a local function
;   while in package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FTYPE FUNCTION TEST:FUNCTION)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring the ftype of FUNCTION while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring the ftype of FUNCTION while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (TYPE FIXNUM TEST:NUM)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring the type of NUM while in package
;     COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring the type of NUM while in package
;   COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (SPECIAL TEST:NOSPECIAL)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring NOSPECIAL special while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring NOSPECIAL special while in package
;   COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
; in: LAMBDA ()
;     (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring the ftype of NUMFUN while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring the ftype of NUMFUN while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
STYLE-WARNING:
   Implicitly creating new generic function
   COMMON-LISP-USER::PCL-TYPE-DECLARATION-METHOD-BUG.
; in: DEFMETHOD PCL-TYPE-DECLARATION-METHOD-BUG (STREAM)
;     (TYPE STREAM TEST:*SPECIAL*)
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package TEST violated when declaring the type of *SPECIAL* while in
;     package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; caught ERROR:
;   Lock on package TEST violated when declaring the type of *SPECIAL* while in
;   package COMMON-LISP-USER.
;   See also:
;     The SBCL Manual, Node "Package Locks"
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
::: Running :BUG-576637
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success :BUG-576637
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 09:08:51 AM):
; compiling (IN-PACKAGE :MACRO-KILLING-MACRO-1)
; compiling (DEFMACRO TO-DIE-FOR ...)

; /«PKGBUILDDIR»/tests/file-compile-tmp.fasl written
; compilation finished in 0:00:00.029
::: Running :DEFMACRO-KILLING-MACRO
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 09:08:51 AM):
; compiling (IN-PACKAGE :MACRO-KILLING-MACRO-2)
; compiling (DEFMACRO TO-DIE-FOR ...); 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; compilation aborted after 0:00:00.018
::: Success :DEFMACRO-KILLING-MACRO
::: Running :SETF-MACRO-FUNCTION-KILLING-MACRO
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 09:08:51 AM):
; compiling (IN-PACKAGE :MACRO-KILLING-MACRO-2); 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; compilation aborted after 0:00:00.013
::: Success :SETF-MACRO-FUNCTION-KILLING-MACRO
::: Running :COMPILE-TIME-DEFUN-PACKAGE-LOCKED
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 09:08:51 AM):
; compiling (DEFUN FILL-POINTER ...); 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; compilation aborted after 0:00:00.005
::: Success :COMPILE-TIME-DEFUN-PACKAGE-LOCKED
::: Running :COMPILE-TIME-DEFCLASS-PACKAGE-LOCKED
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 09:08:51 AM):
; compiling (DEFCLASS FTYPE ...); 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; compilation aborted after 0:00:00.005
; compiling file "/«PKGBUILDDIR»/tests/file-compile-tmp.lisp" (written 11 JUN 2015 09:08:51 AM):
; compiling (DEFCLASS FOO ...); 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; compilation aborted after 0:00:00.005
::: Success :COMPILE-TIME-DEFCLASS-PACKAGE-LOCKED
::: Running :ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
::: Success :ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
// Running /«PKGBUILDDIR»/tests/packages.impure.lisp
::: Running :PACKAGES-SANELY-NICKNAMED
::: Success :PACKAGES-SANELY-NICKNAMED
These symbols are not accessible in the COMMON-LISP-USER package:(:FOO)
::: Running :USE-PACKAGE.1
::: Success :USE-PACKAGE.1
::: Running :USE-PACKAGE.2
::: Success :USE-PACKAGE.2
::: Running :USE-PACKAGE.2A
::: Success :USE-PACKAGE.2A
::: Running :USE-PACKAGE-CONFLICT-SET
::: EXPECTED-FAILURE :USE-PACKAGE-CONFLICT-SET
    due to #<SIMPLE-ERROR "Wanted ~S, got ~S:~% ~S" {52BBA071}>:
        "Wanted (BAR::SYM FOO:SYM QUX:SYM), got (BAR::SYM FOO:SYM):
 (EQUAL (LIST (SYM "BAR" "SYM") (SYM "FOO" "SYM") (SYM "QUX" "SYM"))
        CONFLICT-SET)"
::: Running :EXPORT.1
::: Success :EXPORT.1
::: Running :EXPORT.1A
::: Success :EXPORT.1A
::: Running :EXPORT.ENSURE-EXPORTED
::: Success :EXPORT.ENSURE-EXPORTED
::: Running :EXPORT.3.INTERN
::: Success :EXPORT.3.INTERN
::: Running :EXPORT.3A.INTERN
::: Success :EXPORT.3A.INTERN
::: Running :IMPORT-NIL.1
::: Success :IMPORT-NIL.1
::: Running :IMPORT-NIL.2
::: Success :IMPORT-NIL.2
::: Running :IMPORT-SINGLE-CONFLICT
::: EXPECTED-FAILURE :IMPORT-SINGLE-CONFLICT
    due to #<SIMPLE-ERROR "Wanted ~S, got ~S:~% ~S" {532C9491}>:
        "Wanted 1, got 2:
 (EQL 1 (LENGTH CONFLICT-SETS))"
::: Running :IMPORT-CONFLICT-RESOLUTION
::: Success :IMPORT-CONFLICT-RESOLUTION
::: Running :UNINTERN.1
::: Success :UNINTERN.1
::: Running :UNINTERN.2
::: Success :UNINTERN.2
::: Running :WITH-PACKAGE-ITERATOR.ERROR
::: Success :WITH-PACKAGE-ITERATOR.ERROR
::: Running :WITH-PACKAGE-ITERATOR-NIL-LIST

NIL 
::: Success :WITH-PACKAGE-ITERATOR-NIL-LIST
::: SKIPPED-DISABLED :BUG-511072
    Test disabled for this combination of platform and features

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME :QUICK-NAME-CONFLICT-RESOLUTION-IMPORT)
;     (HANDLER-BIND ((NAME-CONFLICT
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::DONT-IMPORT-IT))))
;       (IMPORT (INTERN "FOO" P2) P1))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::DONT-IMPORT-IT))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'NAME-CONFLICT)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (IMPORT # P1)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (HANDLER-BIND ((NAME-CONFLICT
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::SHADOWING-IMPORT-IT))))
;       (IMPORT (INTERN "FOO" P2) P1))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER16 (C)
;            (INVOKE-RESTART 'SB-IMPL::SHADOWING-IMPORT-IT))
;          (#:TYPEP17 (CONDITION)
;            (TYPEP CONDITION 'NAME-CONFLICT)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER16) (FUNCTION #:TYPEP17)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (IMPORT # P1)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running :QUICK-NAME-CONFLICT-RESOLUTION-IMPORT
::: Success :QUICK-NAME-CONFLICT-RESOLUTION-IMPORT

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME :QUICK-NAME-CONFLICT-RESOLUTION-EXPORT.1)
;     (HANDLER-BIND ((NAME-CONFLICT
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::KEEP-OLD))))
;       (EXPORT (INTERN "FOO" P2) P2))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::KEEP-OLD))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'NAME-CONFLICT)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EXPORT # P2)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :QUICK-NAME-CONFLICT-RESOLUTION-EXPORT.1
::: Success :QUICK-NAME-CONFLICT-RESOLUTION-EXPORT.1

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME :QUICK-NAME-CONFLICT-RESOLUTION-EXPORT.2)
;     (HANDLER-BIND ((NAME-CONFLICT
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::TAKE-NEW))))
;       (EXPORT (INTERN "FOO" P2) P2))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::TAKE-NEW))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'NAME-CONFLICT)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EXPORT # P2)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :QUICK-NAME-CONFLICT-RESOLUTION-EXPORT.2
::: Success :QUICK-NAME-CONFLICT-RESOLUTION-EXPORT.2

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME :QUICK-NAME-CONFLICT-RESOLUTION-USE-PACKAGE.1)
;     (HANDLER-BIND ((NAME-CONFLICT
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::KEEP-OLD))))
;       (USE-PACKAGE P2 P1))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::KEEP-OLD))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'NAME-CONFLICT)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (USE-PACKAGE P2 P1)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :QUICK-NAME-CONFLICT-RESOLUTION-USE-PACKAGE.1
::: Success :QUICK-NAME-CONFLICT-RESOLUTION-USE-PACKAGE.1

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME :QUICK-NAME-CONFLICT-RESOLUTION-USE-PACKAGE.2)
;     (HANDLER-BIND ((NAME-CONFLICT
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::TAKE-NEW))))
;       (USE-PACKAGE P2 P1))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::TAKE-NEW))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'NAME-CONFLICT)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (USE-PACKAGE P2 P1)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :QUICK-NAME-CONFLICT-RESOLUTION-USE-PACKAGE.2
::: Success :QUICK-NAME-CONFLICT-RESOLUTION-USE-PACKAGE.2

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME (:PACKAGE-AT-VARIANCE-RESTARTS :SHADOW))
;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))))
;       (EVAL
;        `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.1
;           (:USE :CL))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::DROP-THEM))))
;       (EVAL
;        `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.1
;           (:USE :CL))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER16 (C)
;            (INVOKE-RESTART 'SB-IMPL::DROP-THEM))
;          (#:TYPEP17 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER16) (FUNCTION #:TYPEP17)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running (:PACKAGE-AT-VARIANCE-RESTARTS :SHADOW)
::: Success (:PACKAGE-AT-VARIANCE-RESTARTS :SHADOW)

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME (:PACKAGE-AT-VARIANCE-RESTARTS :USE))
;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))))
;       (EVAL
;        `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.2
;           (:USE))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::DROP-THEM))))
;       (EVAL
;        `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.2
;           (:USE))))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER16 (C)
;            (INVOKE-RESTART 'SB-IMPL::DROP-THEM))
;          (#:TYPEP17 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER16) (FUNCTION #:TYPEP17)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running (:PACKAGE-AT-VARIANCE-RESTARTS :USE)
::: Success (:PACKAGE-AT-VARIANCE-RESTARTS :USE)

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME (:PACKAGE-AT-VARIANCE-RESTARTS :EXPORT))
;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))))
;       (EVAL `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.4)))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::DROP-THEM))))
;       (EVAL `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.4)))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER24 (C)
;            (INVOKE-RESTART 'SB-IMPL::DROP-THEM))
;          (#:TYPEP25 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER24) (FUNCTION #:TYPEP25)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running (:PACKAGE-AT-VARIANCE-RESTARTS :EXPORT)
::: Success (:PACKAGE-AT-VARIANCE-RESTARTS :EXPORT)

; file: /«PKGBUILDDIR»/tests/packages.impure.lisp
; in: WITH-TEST (:NAME (:PACKAGE-AT-VARIANCE-RESTARTS :IMPLEMENT))
;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))))
;       (EVAL `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.5)))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER12 (C)
;            (INVOKE-RESTART 'SB-IMPL::KEEP-THEM))
;          (#:TYPEP13 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER12) (FUNCTION #:TYPEP13)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (HANDLER-BIND ((SB-INT:PACKAGE-AT-VARIANCE-ERROR
;                     (LAMBDA (C) (INVOKE-RESTART 'SB-IMPL::DROP-THEM))))
;       (EVAL `(DEFPACKAGE :PACKAGE-AT-VARIANCE-RESTARTS.5)))
; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET 
; ==>
;   (FLET ((#:HANDLER17 (C)
;            (INVOKE-RESTART 'SB-IMPL::DROP-THEM))
;          (#:TYPEP18 (CONDITION)
;            (TYPEP CONDITION 'SB-INT:PACKAGE-AT-VARIANCE-ERROR)))
;     (DECLARE
;      (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:HANDLER17) (FUNCTION #:TYPEP18)))
;     (LET ((SB-KERNEL:*HANDLER-CLUSTERS* (LIST* # SB-KERNEL:*HANDLER-CLUSTERS*)))
;       (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT SB-KERNEL:*HANDLER-CLUSTERS*))
;       (PROGN (PROGN (EVAL `#)))))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running (:PACKAGE-AT-VARIANCE-RESTARTS :IMPLEMENT)
::: Success (:PACKAGE-AT-VARIANCE-RESTARTS :IMPLEMENT)
::: Running (:DELETE-PACKAGE :IMPLEMENTATION-PACKAGE)
::: Success (:DELETE-PACKAGE :IMPLEMENTATION-PACKAGE)
::: Running (:DELETE-PACKAGE :IMPLEMENTATED-PACKAGE)
::: Success (:DELETE-PACKAGE :IMPLEMENTATED-PACKAGE)
::: Running :PACKAGE-LOCAL-NICKNAMES
::: Success :PACKAGE-LOCAL-NICKNAMES
::: Running (:DELETE-PACKAGE :LOCALLY-NICKNAMES-OTHERS)
::: Success (:DELETE-PACKAGE :LOCALLY-NICKNAMES-OTHERS)
::: Running (:DELETE-PACKAGE :LOCALLY-NICKNAMED-BY-OTHERS)
::: Success (:DELETE-PACKAGE :LOCALLY-NICKNAMED-BY-OTHERS)
::: Running :OWN-NAME-AS-LOCAL-NICKNAME
::: Success :OWN-NAME-AS-LOCAL-NICKNAME
::: Running :OWN-NICKNAME-AS-LOCAL-NICKNAME
::: Success :OWN-NICKNAME-AS-LOCAL-NICKNAME
::: Running :DELETE-PACKAGE-RESTART
::: Success :DELETE-PACKAGE-RESTART
::: Running :WITH-PACKAGE-ITERATOR
::: Success :WITH-PACKAGE-ITERATOR
::: Running :WITH-PACKAGE-ITERATOR-AND-MUTATION
::: Success :WITH-PACKAGE-ITERATOR-AND-MUTATION
::: Running :DO-SYMBOLS-BLOCK-SCOPE
::: Success :DO-SYMBOLS-BLOCK-SCOPE
::: Running :EXPORT-INACCESSIBLE-LOOKALIKE
::: Success :EXPORT-INACCESSIBLE-LOOKALIKE
::: SKIPPED-DISABLED :CONCURRENT-FIND-SYMBOL
    Test disabled for this combination of platform and features
// Running /«PKGBUILDDIR»/tests/pathnames.impure.lisp
::: Running (:LOGICAL-PATHNAME 1)
::: Success (:LOGICAL-PATHNAME 1)
::: Running (:LOGICAL-PATHNAME 2)
::: Success (:LOGICAL-PATHNAME 2)
::: Running (:LOGICAL-PATHNAME 3)
::: Success (:LOGICAL-PATHNAME 3)
::: Running (:LOGICAL-PATHNAME 4)
::: Success (:LOGICAL-PATHNAME 4)
::: Running (:LOGICAL-PATHNAME 5)
::: Success (:LOGICAL-PATHNAME 5)
::: Running (:LOGICAL-PATHNAME 6)
::: Success (:LOGICAL-PATHNAME 6)
::: Running (:LOGICAL-PATHNAME 7)
::: Success (:LOGICAL-PATHNAME 7)
::: Running (:LOGICAL-PATHNAME 8)
::: Success (:LOGICAL-PATHNAME 8)
::: Running (:LOGICAL-PATHNAME 9)
::: Success (:LOGICAL-PATHNAME 9)
::: Running (:LOGICAL-PATHNAME 10)
::: Success (:LOGICAL-PATHNAME 10)
::: Running (:LOGICAL-PATHNAME 11)
::: Success (:LOGICAL-PATHNAME 11)
::: Running (:LOGICAL-PATHNAME 12)
::: Success (:LOGICAL-PATHNAME 12)
::: Running (:LOGICAL-PATHNAME 13)
::: Success (:LOGICAL-PATHNAME 13)
::: Running (:LOGICAL-PATHNAME 14)
::: Success (:LOGICAL-PATHNAME 14)
::: Running (:LOGICAL-PATHNAME 15)
::: Success (:LOGICAL-PATHNAME 15)
::: Running (:MERGE-PATHNAME 1)
::: Success (:MERGE-PATHNAME 1)
::: Running :HOST-NAMESTRING
::: Success :HOST-NAMESTRING
::: Running (:LOGICAL-PATHNAME 16)
::: Success (:LOGICAL-PATHNAME 16)

; file: /«PKGBUILDDIR»/tests/pathnames.impure.lisp
; in: WITH-TEST (:NAME (:STRING-STREAMS-AS-PATHNAMES 1))
;     (MERGE-PATHNAMES (MAKE-STRING-OUTPUT-STREAM))
; 
; caught WARNING:
;   Derived type of (MAKE-STRING-OUTPUT-STREAM) is
;     (VALUES SB-IMPL::STRING-OUTPUT-STREAM &OPTIONAL),
;   conflicting with its asserted type
;     (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME FILE-STREAM).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running (:STRING-STREAMS-AS-PATHNAMES 1)
::: Success (:STRING-STREAMS-AS-PATHNAMES 1)
::: Running :PRINT/READ-CONSISTENCY

#P"foo.txt" 
#P"foo.txt" 
#<PATHNAME (with no namestring)
           :HOST #<SB-IMPL::UNIX-HOST {4F361169}>
           :DEVICE NIL
           :DIRECTORY NIL
           :NAME "foo"
           :TYPE ".txt"
           :VERSION NIL> 
#P"foo..txt" 
#P"\\\\.txt" 
#P"^.txt" 
#P"foo\\*.txt" 
#P"foo\\[.txt" 
#P"SCRATCH:FOO.TXT.1" 
#P"SCRATCH:FOO.TXT.NEWEST" 
#P"SCRATCH:FOO.TXT" 
::: Success :PRINT/READ-CONSISTENCY
::: Running :PARSE-NAMESTRING/STREAM
::: Success :PARSE-NAMESTRING/STREAM
::: Running :ENOUGH-NAMESTRING
::: Success :ENOUGH-NAMESTRING
::: Running :UNPARSE-WILD
::: Success :UNPARSE-WILD
::: Running :PRINT-AS-NAMESTRINGS
::: Success :PRINT-AS-NAMESTRINGS
::: Running :ROOT-TRUENAME
::: Success :ROOT-TRUENAME
::: Running :UNPARSE-LOGICAL-WILD
::: Success :UNPARSE-LOGICAL-WILD
::: Running :MERGE-BACK
::: Success :MERGE-BACK
::: Running :NATIVE-NAMESTRING
::: Success :NATIVE-NAMESTRING
::: Running :DONT-FLUSH-PATHNAMES
::: Success :DONT-FLUSH-PATHNAMES
::: Running :DPD-OUTPUT-FILE
::: Success :DPD-OUTPUT-FILE
::: Running :WILD-ENOUGH
::: Success :WILD-ENOUGH
::: Running :TRANSLATED-WILD-VERSION
::: Success :TRANSLATED-WILD-VERSION
::: Running :ENOUGH-RELATIVE-TO-ROOT
::: Success :ENOUGH-RELATIVE-TO-ROOT
::: Running (:NATIVE-NAMESTRING 2)
::: Success (:NATIVE-NAMESTRING 2)
::: Running :DELETE-FILE-LOGICAL-PATHNAME
::: Success :DELETE-FILE-LOGICAL-PATHNAME
::: Running :LOGICAL-PATHNAME-TYPE-ERROR
::: Success :LOGICAL-PATHNAME-TYPE-ERROR
::: SKIPPED-DISABLED :BUG-489698
    Test disabled for this combination of platform and features
::: Running :LOAD-LOGICAL-PATHNAME-TRANSLATIONS
::: Success :LOAD-LOGICAL-PATHNAME-TRANSLATIONS
::: Running :TILDE-EXPANSION
::: Success :TILDE-EXPANSION
::: Running :PATHNAME-ESCAPE-FIRST-DIRECTORY-COMPONENT
::: Success :PATHNAME-ESCAPE-FIRST-DIRECTORY-COMPONENT
::: Running :ENSURE-DIRECTORIES-EXIST-WITH-ODD-D-P-D
::: Success :ENSURE-DIRECTORIES-EXIST-WITH-ODD-D-P-D
::: SKIPPED-DISABLED :LONG-FILE-NAME
    Test disabled for this combination of platform and features
::: Running :SIMPLIFY-NAMESTRING
::: Success :SIMPLIFY-NAMESTRING
::: Running :BACK-AND-TRUENAME
::: Success :BACK-AND-TRUENAME
// Running /«PKGBUILDDIR»/tests/pprint.impure.lisp
::: Running :PPRINT-DISPATCH-ORDER-PRESERVING
::: Success :PPRINT-DISPATCH-ORDER-PRESERVING
::: Running :PPRINT-CLHS-EXAMPLE
::: Success :PPRINT-CLHS-EXAMPLE
::: Running (:PPRINT :BUG-99)
::: Success (:PPRINT :BUG-99)
::: Running :PPRINT-LOGICAL-BLOCK-ARGUMENTS-COMPLEX-STRINGS
::: Success :PPRINT-LOGICAL-BLOCK-ARGUMENTS-COMPLEX-STRINGS
::: Running :PPRINT-BACKQUOTE-MAGIC
::: Success :PPRINT-BACKQUOTE-MAGIC
::: Running :PPRINT-LEAKING-BACKQ-COMMA
::: Success :PPRINT-LEAKING-BACKQ-COMMA
::: Running :PPRINT-MORE-BACKQUOTE-BROKENESS
::: Success :PPRINT-MORE-BACKQUOTE-BROKENESS
::: Running (:SET-PPRINT-DISPATCH :NO-FUNCTION-COERCE)
::: Success (:SET-PPRINT-DISPATCH :NO-FUNCTION-COERCE)
::: Running :PPRINT-CIRCULAR-DETECTION
::: Success :PPRINT-CIRCULAR-DETECTION
::: Running :PPRINT-CIRCULAR-IMPROPER-LISTS-INSIDE-LOGICAL-BLOCKS
::: Success :PPRINT-CIRCULAR-IMPROPER-LISTS-INSIDE-LOGICAL-BLOCKS
::: Running :PPRINT-DEFPACKAGE
::: Success :PPRINT-DEFPACKAGE
::: Running :STANDARD-PPRINT-DISPATCH-MODIFIED
::: Success :STANDARD-PPRINT-DISPATCH-MODIFIED
::: Running :PPRINT-DEFMETHOD-LAMBDA-LIST-FUNCTION
::: Success :PPRINT-DEFMETHOD-LAMBDA-LIST-FUNCTION
::: Running (:PPRINT-UNREADABLE-OBJECT :NO-UGLINESS-WHEN-TYPE=NIL)
::: Success (:PPRINT-UNREADABLE-OBJECT :NO-UGLINESS-WHEN-TYPE=NIL)
::: Running :PPRINT-LOGICAL-BLOCK-CODE-DELETION-NODE
::: Success :PPRINT-LOGICAL-BLOCK-CODE-DELETION-NODE
::: Running :PPRINT-LOGICAL-BLOCK-MULTIPLE-PER-LINE-PREFIX-EVAL
; in: LAMBDA ()
;     (ERROR "oops")
; ==>
;   "oops"
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note
::: Success :PPRINT-LOGICAL-BLOCK-MULTIPLE-PER-LINE-PREFIX-EVAL
::: Running :CAN-RESTORE-ORIG-PPRINT-DISPATCH-TABLE
::: Success :CAN-RESTORE-ORIG-PPRINT-DISPATCH-TABLE
::: Running :PPRINT-IMPROPER-LIST
::: Success :PPRINT-IMPROPER-LIST
::: Running :PPRINT-CIRCULAR-BACKQ-COMMA
::: Success :PPRINT-CIRCULAR-BACKQ-COMMA
::: Running :PPRINT-DOTTED-SETF
::: Success :PPRINT-DOTTED-SETF
::: Running :LITERAL-FUN-NESTED-LISTS
::: Success :LITERAL-FUN-NESTED-LISTS
::: Running :PPRINT-LOGICAL-BLOCK-EVAL-ORDER
{FOO}
::: Success :PPRINT-LOGICAL-BLOCK-EVAL-ORDER
::: Running (:PPRINT-DISPATCH :SET-PPD-UNKNOWN-TYPE)
::: Success (:PPRINT-DISPATCH :SET-PPD-UNKNOWN-TYPE)
::: Running (:PPRINT-DISPATCH :UNKNOWN-TYPE-1A)
::: Success (:PPRINT-DISPATCH :UNKNOWN-TYPE-1A)
::: Running (:PPRINT-DISPATCH :UNKNOWN-TYPE-1B)
::: Success (:PPRINT-DISPATCH :UNKNOWN-TYPE-1B)
::: Running (:PPRINT-DISPATCH :UNKNOWN-TYPE-2A)
::: Success (:PPRINT-DISPATCH :UNKNOWN-TYPE-2A)
::: Running (:PPRINT-DISPATCH :UNKNOWN-TYPE-2B)
::: Success (:PPRINT-DISPATCH :UNKNOWN-TYPE-2B)
::: Running (:PPRINT-DISPATCH :KNOWN-CONS-TYPE)
::: Success (:PPRINT-DISPATCH :KNOWN-CONS-TYPE)
// Running /«PKGBUILDDIR»/tests/print.impure.lisp
; 
; caught WARNING:
;   error in FORMAT: parameters found after #\: or #\@ modifier
;     ~:2T
;       ^
;   See also:
;     The ANSI Standard, Section 22.3


; file: /«PKGBUILDDIR»/tests/print.impure.lisp
; in: ASSERT-ERROR (FORMAT NIL "~:2T")
;     (FORMAT NIL "~:2T")
; 
; caught ERROR:
;   during macroexpansion of (FORMATTER "~:2T"). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    error in FORMAT: parameters found after #\: or #\@ modifier
;     ~:2T
;       ^
;   See also:
;     The ANSI Standard, Section 22.3
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition

; file: /«PKGBUILDDIR»/tests/print.impure.lisp
; in: ASSERT-ERROR (FORMAT NIL "~/cl-user:::print-foo/" 2)
;     (FORMAT NIL "~/cl-user:::print-foo/" 2)
; 
; caught STYLE-WARNING:
;   undefined function: |:PRINT-FOO|
; 
; compilation unit finished
;   Undefined function:
;     |:PRINT-FOO|
;   caught 1 STYLE-WARNING condition

; in: ASSERT-ERROR (FORMAT NIL "~/cl-user:a:print-foo/" 2)
;     (FORMAT NIL "~/cl-user:a:print-foo/" 2)
; 
; caught STYLE-WARNING:
;   undefined function: |A:PRINT-FOO|
; 
; compilation unit finished
;   Undefined function:
;     |A:PRINT-FOO|
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/print.impure.lisp
; in: ASSERT-ERROR (FORMAT NIL "~/a:cl-user:print-foo/" 2)
;     (FORMAT NIL "~/a:cl-user:print-foo/" 2)
; 
; caught ERROR:
;   during macroexpansion of (FORMATTER "~/a:cl-user:print-foo/"). Use
;   *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: no package named "A"
;     ~/a:cl-user:print-foo/
;                          ^
; 
; compilation unit finished
;   caught 1 ERROR condition

; in: ASSERT-ERROR (FORMAT NIL "~/cl-user:print-foo:print-foo/" 2)
;     (FORMAT NIL "~/cl-user:print-foo:print-foo/" 2)
; 
; caught STYLE-WARNING:
;   undefined function: |PRINT-FOO:PRINT-FOO|
; 
; compilation unit finished
;   Undefined function:
;     |PRINT-FOO:PRINT-FOO|
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/print.impure.lisp
; in: ASSERT-ERROR (FORMAT NIL "~<~W~>" 'FOO)
;     (FORMAT NIL "~<~W~>" 'FOO)
; 
; caught ERROR:
;   during macroexpansion of (FORMATTER "~<~W~>"). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    error in FORMAT: 1 illegal directive found inside justification block
;     ~<~W~>
;      ^
;   See also:
;     The ANSI Standard, Section 22.3.5.2
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/print.impure.lisp
; in: ASSERT-ERROR (FORMAT NIL "~<~<~A~:>~>" '(FOO))
;     (FORMAT NIL "~<~<~A~:>~>" '(FOO))
; 
; caught ERROR:
;   during macroexpansion of (FORMATTER "~<~<~A~:>~>"). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    error in FORMAT: 1 illegal directive found inside justification block
;     ~<~<~A~:>~>
;      ^
;   See also:
;     The ANSI Standard, Section 22.3.5.2
; 
; compilation unit finished
;   caught 1 ERROR condition

; file: /«PKGBUILDDIR»/tests/print.impure.lisp
; in: WITH-TEST (:NAME (:FORMAT :JUSTIFICATION-ATSIGN-CHECK))
;     (FORMAT NIL "~<~@>")
; 
; caught ERROR:
;   during macroexpansion of (FORMATTER "~<~@>"). Use *BREAK-ON-SIGNALS* to
;   intercept.
;   
;    error in FORMAT: @ modifier not allowed in close directive of justification block (i.e. ~<...~@>.
;     ~<~@>
;         ^
;   See also:
;     The ANSI Standard, Section 22.3.6.2
; 
; compilation unit finished
;   caught 1 ERROR condition
foo
::: Running (:FORMAT :JUSTIFICATION-ATSIGN-CHECK)
::: Success (:FORMAT :JUSTIFICATION-ATSIGN-CHECK)

; file: /«PKGBUILDDIR»/tests/print.impure.lisp
; in:
;      DOLIST (ARRAY
;          (LIST (MAKE-ARRAY '(1 0 1)) (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
;                (MAKE-ARRAY 1 :ELEMENT-TYPE 'BASE-CHAR)
;                (MAKE-ARRAY 1 :ELEMENT-TYPE 'CHARACTER)))
;     (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)
; --> LOCALLY 
; ==>
;   (MAKE-ARRAY '0 :ELEMENT-TYPE NIL)
; 
; caught STYLE-WARNING:
;   The default initial element #:MU is not a NIL.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
#(1 2 3)33
; 
; caught WARNING:
;   error in FORMAT: no corresponding close brace
;     ~{
;      ^

; in: LAMBDA ()
;     (FORMAT NIL "~{")
; 
; caught ERROR:
;   during macroexpansion of (FORMATTER "~{"). Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: no corresponding close brace
;     ~{
;      ^

; ==>
;   (FORMAT SB-C::DEST (FORMATTER "~{"))
; 
; note: The second argument never returns a value.
; 
; compilation unit finished
;   caught 1 ERROR condition
;   caught 1 WARNING condition
;   printed 1 note
1.e-4 #S(WEXERCISER-0-8-7)#S(WEXERCISER-0-8-7)#S(WEXERCISER-0-8-7)#S(WEXERCISER-0-8-7)
::: Running :BUG-350

TIMEOUT! 
::: Success :BUG-350
#S(RANDOM-STATE :STATE #.(MAKE-ARRAY 627 :ELEMENT-TYPE (QUOTE (UNSIGNED-BYTE 32)) :INITIAL-CONTENTS (QUOTE (0 2567483615 624 5489 1301868182 2938499221 2950281878 1875628136 751856242 944701696 2243192071 694061057 219885934 2066767472 3182869408 485472502 2336857883 1071588843 3418470598 951210697 3693558366 2923482051 1793174584 2982310801 1586906132 1951078751 1808158765 1733897588 431328322 4202539044 530658942 1714810322 3025256284 3342585396 1937033938 2640572511 1654299090 3692403553 4233871309 3497650794 862629010 2943236032 2426458545 1603307207 1133453895 3099196360 2208657629 2747653927 931059398 761573964 3157853227 785880413 730313442 124945756 2937117055 3295982469 1724353043 3021675344 3884886417 4010150098 4056961966 699635835 2681338818 1339167484 720757518 2800161476 2376097373 1532957371 3902664099 1238982754 3725394514 3449176889 3570962471 4287636090 4087307012 3603343627 202242161 2995682783 1620962684 3704723357 371613603 2814834333 2111005706 624778151 2094172212 4284947003 1211977835 991917094 1570449747 2962370480 1259410321 170182696 146300961 2836829791 619452428 2723670296 1881399711 1161269684 1675188680 4132175277 780088327 3409462821 1036518241 1834958505 3048448173 161811569 618488316 44795092 3918322701 1924681712 3239478144 383254043 4042306580 2146983041 3992780527 3518029708 3545545436 3901231469 1896136409 2028528556 2339662006 501326714 2060962201 2502746480 561575027 581893337 3393774360 1778912547 3626131687 2175155826 319853231 986875531 819755096 2915734330 2688355739 3482074849 2736559 2296975761 1029741190 2876812646 690154749 579200347 4027461746 1285330465 2701024045 4117700889 759495121 3332270341 2313004527 2277067795 4131855432 2722057515 1264804546 3848622725 2211267957 4100593547 959123777 2130745407 3194437393 486673947 1377371204 17472727 352317554 3955548058 159652094 1232063192 3835177280 49423123 3083993636 733092 2120519771 2573409834 1112952433 3239502554 761045320 1087580692 2540165110 641058802 1792435497 2261799288 1579184083 627146892 2165744623 2200142389 2167590760 2381418376 1793358889 3081659520 1663384067 2009658756 2689600308 739136266 2304581039 3529067263 591360555 525209271 3131882996 294230224 2076220115 3113580446 1245621585 1386885462 3203270426 123512128 12350217 354956375 4282398238 3356876605 3888857667 157639694 2616064085 1563068963 2762125883 4045394511 4180452559 3294769488 1684529556 1002945951 3181438866 22506664 691783457 2685221343 171579916 3878728600 2475806724 2030324028 3331164912 1708711359 1970023127 2859691344 2588476477 2748146879 136111222 2967685492 909517429 2835297809 3206906216 3186870716 341264097 2542035121 3353277068 548223577 3170936588 1678403446 297435620 2337555430 466603495 1132321815 1208589219 696392160 894244439 2562678859 470224582 3306867480 201364898 2075966438 1767227936 2929737987 3674877796 2654196643 3692734598 3528895099 2796780123 3048728353 842329300 191554730 2922459673 3489020079 3979110629 1022523848 2202932467 3583655201 3565113719 587085778 4176046313 3013713762 950944241 396426791 3784844662 3477431613 3594592395 2782043838 3392093507 3106564952 2829419931 1358665591 2206918825 3170783123 31522386 2988194168 1782249537 1105080928 843500134 1225290080 1521001832 3605886097 2802786495 2728923319 3996284304 903417639 1171249804 1020374987 2824535874 423621996 1988534473 2493544470 1008604435 1756003503 1488867287 1386808992 732088248 1780630732 2482101014 976561178 1543448953 2602866064 2021139923 1952599828 2360242564 2117959962 2753061860 2388623612 4138193781 2962920654 2284970429 766920861 3457264692 2879611383 815055854 2332929068 1254853997 3740375268 3799380844 4091048725 2006331129 1982546212 686850534 1907447564 2682801776 2780821066 998290361 1342433871 4195430425 607905174 3902331779 2454067926 1708133115 1170874362 2008609376 3260320415 2211196135 433538229 2728786374 2189520818 262554063 1182318347 3710237267 1221022450 715966018 2417068910 2591870721 2870691989 3418190842 4238214053 1540704231 1575580968 2095917976 4078310857 2313532447 2110690783 4056346629 4061784526 1123218514 551538993 597148360 4120175196 3581618160 3181170517 422862282 3227524138 1713114790 662317149 1230418732 928171837 1324564878 1928816105 1786535431 2878099422 3290185549 539474248 1657512683 552370646 1671741683 3655312128 1552739510 2605208763 1441755014 181878989 3124053868 1447103986 3183906156 1728556020 3502241336 3055466967 1013272474 818402132 1715099063 2900113506 397254517 4194863039 1009068739 232864647 2540223708 2608288560 2415367765 478404847 3455100648 3182600021 2115988978 434269567 4117179324 3461774077 887256537 3545801025 286388911 3451742129 1981164769 786667016 3310123729 3097811076 2224235657 2959658883 3370969234 2514770915 3345656436 2677010851 2206236470 271648054 2342188545 4292848611 3646533909 3754009956 3803931226 4160647125 1477814055 4043852216 1876372354 3133294443 3871104810 3177020907 2074304428 3479393793 759562891 164128153 1839069216 2114162633 3989947309 3611054956 1333547922 835429831 494987340 171987910 1252001001 370809172 3508925425 2535703112 1276855041 1922855120 835673414 3030664304 613287117 171219893 3423096126 3376881639 2287770315 1658692645 1262815245 3957234326 1168096164 2968737525 2655813712 2132313144 3976047964 326516571 353088456 3679188938 3205649712 2654036126 1249024881 880166166 691800469 2229503665 1673458056 4032208375 1851778863 2563757330 376742205 1794655231 340247333 1505873033 396524441 879666767 3335579166 3260764261 3335999539 506221798 4214658741 975887814 2080536343 3360539560 571586418 138896374 4234352651 2737620262 3928362291 1516365296 38056726 3599462320 3585007266 3850961033 471667319 1536883193 2310166751 1861637689 2530999841 4139843801 2710569485 827578615 2012334720 2907369459 3029312804 2820112398 1965028045 35518606 2478379033 643747771 1924139484 4123405127 3811735531 3429660832 3285177704 1948416081 1311525291 1183517742 1739192232 3979815115 2567840007 4116821529 213304419 4125718577 1473064925 2442436592 1893310111 4195361916 3747569474 828465101 2991227658 750582866 1205170309 1409813056 678418130 1171531016 3821236156 354504587 4202874632 3882511497 1893248677 1903078632 26340130 2069166240 3657122492 3725758099 831344905 811453383 3447711422 2434543565 4166886888 3358210805 4142984013 2988152326 3527824853 982082992 2809155763 190157081 3340214818 2365432395 2548636180 2894533366 3474657421 2372634704 2845748389 43024175 2774226648 1987702864 3186502468 453610222 4204736567 1392892630 2471323686 2470534280 3541393095 4269885866 3909911300 759132955 1482612480 667715263 1795580598 2337923983 3390586366 581426223 1515718634 476374295 705213300 363062054 2084697697 2407503428 2292957699 2426213835 2199989172 1987356470 4026755612 2147252133 270400031 1367820199 2369854699 2844269403 79981964))))..........................................
::: Running (:PRINT-READABLE :CHARACTER :UTF-8)
::: Success (:PRINT-READABLE :CHARACTER :UTF-8)
::: Running (:PRINT-READABLE :CHARACTER :ISO-8859-1)
::: Success (:PRINT-READABLE :CHARACTER :ISO-8859-1)
::: Running (:WITH-STANDARD-IO-SYNTAX :BIND-PRINT-PPRINT-DISPATCH)
::: Success (:WITH-STANDARD-IO-SYNTAX :BIND-PRINT-PPRINT-DISPATCH)
::: Running :PRINT-RANDOM-STATE
::: Success :PRINT-RANDOM-STATE
::: Running :WRITE-RETURN-VALUE
123
::: Success :WRITE-RETURN-VALUE
::: Running :WRITE/WRITE-TO-STRING-COMPILER-MACRO-LP/598374+581564
::: Success :WRITE/WRITE-TO-STRING-COMPILER-MACRO-LP/598374+581564
::: Running (:FORMAT :COMPILE-LITERAL-DEST-STRING)
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
::: Success (:FORMAT :COMPILE-LITERAL-DEST-STRING)
::: Running :BUG-308961
::: Success :BUG-308961
::: Running (:FP-PRINT-READ-CONSISTENCY SINGLE-FLOAT)
::: Success (:FP-PRINT-READ-CONSISTENCY SINGLE-FLOAT)
::: Running (:FP-PRINT-READ-CONSISTENCY DOUBLE-FLOAT)
::: Success (:FP-PRINT-READ-CONSISTENCY DOUBLE-FLOAT)
::: Running :BUG-811386
::: Success :BUG-811386
::: Running :BUG-867684
::: Success :BUG-867684
::: Running :PRINT-UNREADABLY-FUNCTION
::: Success :PRINT-UNREADABLY-FUNCTION
::: Running :PRINTING-SPECIALIZED-ARRAYS-READABLY
::: Success :PRINTING-SPECIALIZED-ARRAYS-READABLY
::: Running (:FORMAT :NEGATIVE-COLINC-AND-MINCOL)
::: Success (:FORMAT :NEGATIVE-COLINC-AND-MINCOL)
::: Running :BUG-905817
::: Success :BUG-905817
::: Running :FORMAT-TYPE-CHECK
::: Success :FORMAT-TYPE-CHECK
::: Running (PRINT-OBJECT :IMPROPER-CLASS-NAME)
::: Success (PRINT-OBJECT :IMPROPER-CLASS-NAME)
::: Running :FORMAT-READABLY
::: Success :FORMAT-READABLY
::: Running :FORMAT-PRINT-BASE
::: Success :FORMAT-PRINT-BASE
::: Running :FORMAT-CONCATENATE
::: Success :FORMAT-CONCATENATE
// Running /«PKGBUILDDIR»/tests/profile.impure.lisp
::: Running (PROFILE :THREADS)
measuring PROFILE overhead..done
WARNING:
   Function PROFILE-TEST::WASTE-CPU-CYCLES has been redefined, so times may be inaccurate.
PROFILE it again to record calls to the new definition.
WARNING:
   Function PROFILE-TEST::RANDOM-OF-BIT-SIZE has been redefined, so times may be inaccurate.
PROFILE it again to record calls to the new definition.
WARNING:
   Function PROFILE-TEST::PRIME-OF-BIT-SIZE has been redefined, so times may be inaccurate.
PROFILE it again to record calls to the new definition.
WARNING:
   Function PROFILE-TEST::MILLER-RABIN-PRIME-P has been redefined, so times may be inaccurate.
PROFILE it again to record calls to the new definition.
  seconds  |     gc     |    consed   | calls |  sec/call  |  name  
---------------------------------------------------------
     9.720 |      0.868 | 185,727,080 |   933 |   0.010419 | PROFILE-TEST::MILLER-RABIN-PRIME-P
     0.000 |      0.000 |           0 |     1 |   0.000000 | PROFILE-TEST::WASTE-CPU-CYCLES
     0.000 |      0.000 |     126,496 |   933 |   0.000000 | PROFILE-TEST::RANDOM-OF-BIT-SIZE
     0.000 |      0.000 |     204,688 |    10 |   0.000000 | PROFILE-TEST::PRIME-OF-BIT-SIZE
---------------------------------------------------------
     9.720 |      0.868 | 186,058,264 | 1,877 |            | Total

estimated total profiling overhead: 0.02 seconds
overhead estimation parameters:
  1.04e-7s/call, 1.056e-5s total profiling, 3.776e-6s internal profiling
::: Success (PROFILE :THREADS)
::: Running :PROFILING-COUNTER
::: Success :PROFILING-COUNTER
// Running /«PKGBUILDDIR»/tests/properties.impure.lisp
// Running /«PKGBUILDDIR»/tests/raw-slots-interleaved.impure.lisp
>>>NIL<<<
// Running /«PKGBUILDDIR»/tests/reader.impure.lisp
::: Running (:NORMALIZING-READER)
::: Success (:NORMALIZING-READER)
STYLE-WARNING:
   in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: A.
See also:
  The ANSI Standard, Section 2.4.8.13
STYLE-WARNING:
   in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: "A".
See also:
  The ANSI Standard, Section 2.4.8.13
STYLE-WARNING:
   in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: #\A.
See also:
  The ANSI Standard, Section 2.4.8.13
STYLE-WARNING:
   in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: #\A.
See also:
  The ANSI Standard, Section 2.4.8.13
STYLE-WARNING:
   in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: #\A.
See also:
  The ANSI Standard, Section 2.4.8.13
::: Running :BAD-RECURSIVE-READ
::: Success :BAD-RECURSIVE-READ
::: Running :STANDARD-READTABLE-MODIFIED
::: Success :STANDARD-READTABLE-MODIFIED
::: Running :READER-PACKAGE-ERRORS
::: Success :READER-PACKAGE-ERRORS
::: Running :SET-MACRO-CHAR-LAZY-COERCE-TO-FUN
::: Success :SET-MACRO-CHAR-LAZY-COERCE-TO-FUN
::: Running :READER-PACKAGE-IN-CONDITIONAL
; loading stuff from #<SB-IMPL::STRING-INPUT-STREAM {51F08E01}>
; #<PACKAGE "COMMON-LISP-USER">
OKEY-DOKEY
; OKEY-DOKEY
::: Success :READER-PACKAGE-IN-CONDITIONAL
::: Running :UNICODE-DISPATCH-MACROS
::: Success :UNICODE-DISPATCH-MACROS
::: Running :COPY-DISPATCHING-MACRO
::: Success :COPY-DISPATCHING-MACRO
::: Running :SET-MACRO-CHARACTER-NIL
::: Success :SET-MACRO-CHARACTER-NIL
// Running /«PKGBUILDDIR»/tests/run-program.impure.lisp
::: Running :RUN-PROGRAM-CAT-1
::: Success :RUN-PROGRAM-CAT-1
::: SKIPPED-DISABLED :RUN-PROGRAM-CAT-2
    Test disabled for this combination of platform and features
::: Running :RUN-PROGRAM-CAT-3
::: Success :RUN-PROGRAM-CAT-3
::: Running :RUN-PROGRAM-CAT-4
::: Success :RUN-PROGRAM-CAT-4
::: Running :RUN-PROGRAM-CAT-5
::: Success :RUN-PROGRAM-CAT-5
::: Running :IS-/BIN/ED-INSTALLED?
::: UNEXPECTED-FAILURE :IS-/BIN/ED-INSTALLED?
    due to #<SIMPLE-ERROR "~@<The assertion ~S failed~:[.~:; ~
                                    with ~:*~{~{~S = ~S~}~^, ~}.~]~:@>"
             {52AECDE1}>:
        "The assertion (PROBE-FILE "/bin/ed") failed."
::: Running :RUN-PROGRAM-/BIN/ED
::: UNEXPECTED-FAILURE :RUN-PROGRAM-/BIN/ED
    due to #<SIMPLE-ERROR "Couldn't execute ~S: ~A" {52C721E9}>:
        "Couldn't execute "/bin/ed": No such file or directory"
Foo
::: Running (:RUN-PROGRAM :STRESS)
::: Success (:RUN-PROGRAM :STRESS)
::: Running (:RUN-PROGRAM :PTY-STREAM)
::: Success (:RUN-PROGRAM :PTY-STREAM)
::: Running (:RUN-PROGRAM :INHERIT-STDIN)
::: UNEXPECTED-FAILURE (:RUN-PROGRAM :INHERIT-STDIN)
    due to #<SIMPLE-ERROR "Couldn't execute ~S: ~A" {52F11319}>:
        "Couldn't execute "/bin/ed": No such file or directory"
::: Running (:RUN-PROGRAM :CLEAN-EXIT-AFTER-ENCODING-ERROR)
::: Success (:RUN-PROGRAM :CLEAN-EXIT-AFTER-ENCODING-ERROR)
::: Running (:RUN-PROGRAM :NO-SUCH-THING)
::: Success (:RUN-PROGRAM :NO-SUCH-THING)
::: Running (:RUN-PROGRAM :NOT-EXECUTABLE)
::: Success (:RUN-PROGRAM :NOT-EXECUTABLE)
::: Running (:RUN-PROGRAM :IF-INPUT-DOES-NOT-EXIST)
::: Success (:RUN-PROGRAM :IF-INPUT-DOES-NOT-EXIST)
::: Running (:RUN-PROGRAM :SET-DIRECTORY)
::: Success (:RUN-PROGRAM :SET-DIRECTORY)
::: Running (:RUN-PROGRAM :DIRECTORY-NIL)
::: Success (:RUN-PROGRAM :DIRECTORY-NIL)
// Running /«PKGBUILDDIR»/tests/seq.impure.lisp
::: Running SB-SEQUENCE:EMPTYP
::: Success SB-SEQUENCE:EMPTYP
::: Running :SUBSEQ
::: Success :SUBSEQ
::: Running :SEQUENCE-FUNCTIONS
(SIMPLE-VECTOR)
(VECTOR *)
(VECTOR (SIGNED-BYTE 8))
(VECTOR (UNSIGNED-BYTE 16))
(VECTOR (SIGNED-BYTE 32))
(SIMPLE-BIT-VECTOR)
::: Success :SEQUENCE-FUNCTIONS
::: Running (CONCATENATE :RESULT-TYPE-NULL :BUG-1162301)
::: Success (CONCATENATE :RESULT-TYPE-NULL :BUG-1162301)
::: Running :MERGE-USER-TYPES
::: Success :MERGE-USER-TYPES

; file: /«PKGBUILDDIR»/tests/seq.impure.lisp
; in: WITH-TEST (:NAME :SEQUENCE-FUNCTIONS-LIST-TYPES)
;     (COERCE #() 'NIL)
; --> THE 
; ==>
;   (SB-KERNEL:%DOUBLE-FLOAT SB-C::X)
; 
; caught WARNING:
;   Derived type of SB-C::X is
;     (VALUES (SIMPLE-VECTOR 0) &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Running :SEQUENCE-FUNCTIONS-LIST-TYPES
::: Success :SEQUENCE-FUNCTIONS-LIST-TYPES
/Accessor SUBSEQ... BASE-CHAR
/Accessor SUBSEQ... CHARACTER
/Function COUNT, COUNT-IF, COUNT-IF-NOT... BASE-CHAR
/Function COUNT, COUNT-IF, COUNT-IF-NOT... CHARACTER
/Function FILL... BASE-CHAR
/Function FILL... CHARACTER
/Function FIND, FIND-IF, FIND-IF-NOT... BASE-CHAR
/Function FIND, FIND-IF, FIND-IF-NOT... CHARACTER
/Function MISMATCH... BASE-CHAR
/Function MISMATCH... CHARACTER
/Function PARSE-INTEGER... BASE-CHAR
/Function PARSE-INTEGER... CHARACTER
/Function PARSE-NAMESTRING... BASE-CHAR
/Function PARSE-NAMESTRING... CHARACTER
/Function POSITION, POSITION-IF, POSITION-IF-NOT... BASE-CHAR
/Function POSITION, POSITION-IF, POSITION-IF-NOT... CHARACTER
/Function READ-FROM-STRING... BASE-CHAR
/Function READ-FROM-STRING... CHARACTER
/Function REDUCE... BASE-CHAR
/Function REDUCE... CHARACTER
/Function REMOVE, REMOVE-IF, REMOVE-IF-NOT, ...... BASE-CHAR
/Function REMOVE, REMOVE-IF, REMOVE-IF-NOT, ...... CHARACTER
/... DELETE, DELETE-IF, DELETE-IF-NOT... BASE-CHAR
/... DELETE, DELETE-IF, DELETE-IF-NOT... CHARACTER
/Function REMOVE-DUPLICATES, DELETE-DUPLICATES... BASE-CHAR
/Function REMOVE-DUPLICATES, DELETE-DUPLICATES... CHARACTER
/Function REPLACE... BASE-CHAR
/Function REPLACE... CHARACTER
/Function SEARCH... BASE-CHAR
/Function SEARCH... CHARACTER
/Function STRING-UPCASE, STRING-DOWNCASE, STRING-CAPITALIZE, ...... BASE-CHAR
/... NSTRING-UPCASE, NSTRING-DOWNCASE, NSTRING-CAPITALIZE
/Function STRING-UPCASE, STRING-DOWNCASE, STRING-CAPITALIZE, ...... CHARACTER
/... NSTRING-UPCASE, NSTRING-DOWNCASE, NSTRING-CAPITALIZE
/Function STRING=, STRING/=, STRING<, STRING>, STRING<=, STRING>=, ...... BASE-CHAR
/Function STRING=, STRING/=, STRING<, STRING>, STRING<=, STRING>=, ...... CHARACTER
/... STRING-EQUAL, STRING-NOT-EQUAL, STRING-LESSP, ...... BASE-CHAR
/... STRING-EQUAL, STRING-NOT-EQUAL, STRING-LESSP, ...... CHARACTER
/... STRING-GREATERP, STRING-NOT-GREATERP, STRING-NOT-LESSP... BASE-CHAR
/... STRING-GREATERP, STRING-NOT-GREATERP, STRING-NOT-LESSP... CHARACTER
/Function SUBSTITUTE, SUBSTITUTE-IF, SUBSTITUTE-IF-NOT, ...... BASE-CHAR
/Function SUBSTITUTE, SUBSTITUTE-IF, SUBSTITUTE-IF-NOT, ...... CHARACTER
/... NSUBSTITUTE, NSUBSTITUTE-IF, NSUBSTITUTE-IF-NOT... BASE-CHAR
/... NSUBSTITUTE, NSUBSTITUTE-IF, NSUBSTITUTE-IF-NOT... CHARACTER
/Function WRITE-STRING, WRITE-LINE... BASE-CHARaaaaaaaaaaaaaaa
aaaaa
/Function WRITE-STRING, WRITE-LINE... CHARACTERaaaaaaaaaaaaaaa
aaaaa
/Macro WITH-INPUT-FROM-STRING... BASE-CHAR
/Macro WITH-INPUT-FROM-STRING... CHARACTER
/Function UB1-BASH-FILL...
Evaluation took:
  0.086 seconds of real time
  0.084000 seconds of total run time (0.084000 user, 0.000000 system)
  97.67% CPU
  49,064 bytes consed
  
/Function UB1-BASH-COPY...
Evaluation took:
  1.990 seconds of real time
  1.992000 seconds of total run time (1.992000 user, 0.000000 system)
  100.10% CPU
  204,168 bytes consed
  
/Function UB2-BASH-FILL...
Evaluation took:
  0.167 seconds of real time
  0.168000 seconds of total run time (0.168000 user, 0.000000 system)
  100.60% CPU
  98,280 bytes consed
  
/Function UB2-BASH-COPY...
Evaluation took:
  3.946 seconds of real time
  3.944000 seconds of total run time (3.944000 user, 0.000000 system)
  99.95% CPU
  403,952 bytes consed
  
/Function UB4-BASH-FILL...
Evaluation took:
  0.165 seconds of real time
  0.164000 seconds of total run time (0.164000 user, 0.000000 system)
  99.39% CPU
  81,824 bytes consed
  
/Function UB4-BASH-COPY...
Evaluation took:
  3.953 seconds of real time
  3.952000 seconds of total run time (3.952000 user, 0.000000 system)
  99.97% CPU
  403,984 bytes consed
  
/Function UB8-BASH-FILL...
Evaluation took:
  0.159 seconds of real time
  0.160000 seconds of total run time (0.160000 user, 0.000000 system)
  100.63% CPU
  85,800 bytes consed
  
/Function UB8-BASH-COPY...
Evaluation took:
  3.881 seconds of real time
  3.880000 seconds of total run time (3.876000 user, 0.004000 system)
  99.97% CPU
  403,920 bytes consed
  
/Function UB16-BASH-FILL...
Evaluation took:
  0.159 seconds of real time
  0.160000 seconds of total run time (0.160000 user, 0.000000 system)
  100.63% CPU
  81,824 bytes consed
  
/Function UB16-BASH-COPY...
Evaluation took:
  3.854 seconds of real time
  3.852000 seconds of total run time (3.852000 user, 0.000000 system)
  99.95% CPU
  403,992 bytes consed
  
/Function UB32-BASH-FILL...
Evaluation took:
  0.236 seconds of real time
  0.236000 seconds of total run time (0.236000 user, 0.000000 system)
  100.00% CPU
  8,363,640 bytes consed
  
/Function UB32-BASH-COPY...
Evaluation took:
  6.532 seconds of real time
  6.528000 seconds of total run time (6.348000 user, 0.180000 system)
  [ Run times consist of 1.192 seconds GC time, and 5.336 seconds non-GC time. ]
  99.94% CPU
  134,954,488 bytes consed
  
::: Running :TEST-AND-TEST-NOT-TO-ADJOIN
; in: LAMBDA (ITEM TEST TEST-NOT)
;     (ADJOIN SEQ-TEST::ITEM '(1 2 3 :FOO) :TEST SEQ-TEST::TEST :TEST-NOT
;             SEQ-TEST::TEST-NOT)
; 
; caught WARNING:
;   Both :TEST and :TEST-NOT supplied to ADJOIN.
; 
; compilation unit finished
;   caught 1 WARNING condition
::: Success :TEST-AND-TEST-NOT-TO-ADJOIN
::: Running :USER-DEFINED-STRING-TYPES-MAP-ETC
::: Success :USER-DEFINED-STRING-TYPES-MAP-ETC
::: Running :USER-DEFINED-STRING-TYPES-MAP-ETC-ERROR
::: Success :USER-DEFINED-STRING-TYPES-MAP-ETC-ERROR
::: Running :BIT-POSITION
::: Success :BIT-POSITION
::: Running (:BIT-POSITION :RANDOM-TEST)
::: Success (:BIT-POSITION :RANDOM-TEST)
::: Running :GENERIC-SEQUENCE-REVERSE
::: Success :GENERIC-SEQUENCE-REVERSE
::: Running :ABSTRACT-BASE-SEQUENCE-SATISFIES-SEQUENCEP
::: Success :ABSTRACT-BASE-SEQUENCE-SATISFIES-SEQUENCEP
::: Running :MAPFOO-ADMITS-COMPILER-MACROS
::: Success :MAPFOO-ADMITS-COMPILER-MACROS
// Running /«PKGBUILDDIR»/tests/setf.impure.lisp
::: Running :SETF-EXPANDER-RETURNS-ATOM
::: Success :SETF-EXPANDER-RETURNS-ATOM
::: Running :CONSTANTP-AWARE-GET-SETF-EXPANSION
::: Success :CONSTANTP-AWARE-GET-SETF-EXPANSION
::: Running :UPDATE-FN-SHOULD-BE-A-SYMBOL-IN-DEFSETF
::: Success :UPDATE-FN-SHOULD-BE-A-SYMBOL-IN-DEFSETF
::: Running :GETF-UNUSED-DEFAULT-VARIABLE
::: Success :GETF-UNUSED-DEFAULT-VARIABLE
::: Running :SETF-FUN-AND-MACRO-FULL-WARN
::: Success :SETF-FUN-AND-MACRO-FULL-WARN
::: Running :SETF-FUN-AND-MACRO-STYLE-1
::: Success :SETF-FUN-AND-MACRO-STYLE-1
::: Running :SETF-FUN-AND-MACRO-STYLE-2
; compiling file "/«PKGBUILDDIR»/tests/setf-tmp.lisp" (written 11 JUN 2015 09:14:38 AM):
; compiling (DEFUN (SETF SHOE-COUNT) ...)
; compiling (DEFSETF SHOE-COUNT ...)
; file: /«PKGBUILDDIR»/tests/setf-tmp.lisp
; in: DEFSETF SHOE-COUNT
;     (DEFSETF SHOE-COUNT SET-SHOE-COUNT)
; --> EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFSETF 'SHOE-COUNT NIL NIL 'SET-SHOE-COUNT 'NIL)
; 
; caught STYLE-WARNING:
;   defining setf macro for SHOE-COUNT when (SETF SHOE-COUNT) is also defined
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/setf-tmp.fasl written
; compilation finished in 0:00:00.021
::: Success :SETF-FUN-AND-MACRO-STYLE-2
::: Running :SETF-INVERSE-CLEARS-EXPANDER-AND-VICE-VERSA
::: Success :SETF-INVERSE-CLEARS-EXPANDER-AND-VICE-VERSA
::: Running :CAR+CDR-COMPOSITIONS-LP1450968
::: Success :CAR+CDR-COMPOSITIONS-LP1450968
::: Running :PSETF-EXPANSION-MAXIMALLY-CONCISE
::: Success :PSETF-EXPANSION-MAXIMALLY-CONCISE
::: Running :DEFSETF-SYNTAX-ERRORS
::: Success :DEFSETF-SYNTAX-ERRORS
::: Running :SETF-OF-SYMBOL-MACRO
::: Success :SETF-OF-SYMBOL-MACRO
::: Running :SETF-OF-MACRO
::: Success :SETF-OF-MACRO
::: Running :SETF-OF-SYMBOL-MACRO-TYPECHECK
::: Success :SETF-OF-SYMBOL-MACRO-TYPECHECK
::: Running :COMPILED-SETQ-MACROEXPAND-HOOK
::: Success :COMPILED-SETQ-MACROEXPAND-HOOK
::: Running :REMF-BASIC-CORRECTNESS
::: Success :REMF-BASIC-CORRECTNESS
::: Running :INCF-ARGUMENT-EVAL-ORDER
::: Success :INCF-ARGUMENT-EVAL-ORDER
::: Running :DEFSETF-SUBSEQ-CONSTANT-INDICES
::: Success :DEFSETF-SUBSEQ-CONSTANT-INDICES
::: Running :DEFSETF-GETHASH
::: Success :DEFSETF-GETHASH
::: Running :SETF-OF-APPLY-AREF
::: Success :SETF-OF-APPLY-AREF
::: Running :DEFINE-MODIFY-MACRO-ARG-EVAL-ORDER
::: Success :DEFINE-MODIFY-MACRO-ARG-EVAL-ORDER
::: Running :INCF-AVOID-TEMP-VARS
::: Success :INCF-AVOID-TEMP-VARS
::: Running :PUSH-GETF-AVOID-TEMP-VARS
::: Success :PUSH-GETF-AVOID-TEMP-VARS
::: Running :POP-EVAL-ORDER-BUG-1454021
::: Success :POP-EVAL-ORDER-BUG-1454021
// Running /«PKGBUILDDIR»/tests/signals.impure.lisp
::: Running (:ASYNC-UNWIND :SPECIALS)
**********
::: Success (:ASYNC-UNWIND :SPECIALS)
::: Running (:SIGNAL :ERRNO)
::: Success (:SIGNAL :ERRNO)
::: Running :HANDLE-INTERACTIVE-INTERRUPT
::: Success :HANDLE-INTERACTIVE-INTERRUPT
::: Running :BUG-640516
::: Success :BUG-640516
// Running /«PKGBUILDDIR»/tests/simd-pack.impure.lisp
// Running /«PKGBUILDDIR»/tests/smoke.impure.lisp
Dynamic space usage is:   54,807,216 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,704 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,203,328 bytes for    16,946 code objects.
  13,207,096 bytes for 1,650,887 cons objects.
   7,996,056 bytes for   145,760 simple-vector objects.
   7,225,544 bytes for   162,818 instance objects.
   9,179,232 bytes for   306,912 other objects.
  54,811,256 bytes for 2,283,323 dynamic objects (space total.)
Dynamic space usage is:   54,827,560 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,704 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  17,203,328 bytes for    16,946 code objects.
  13,210,728 bytes for 1,651,341 cons objects.
   7,997,128 bytes for   145,764 simple-vector objects.
   7,230,112 bytes for   162,912 instance objects.
   9,190,232 bytes for   307,073 other objects.
  54,831,528 bytes for 2,284,036 dynamic objects (space total.)
Dynamic space usage is:   54,847,832 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        2,672 bytes.
Binding stack usage is:          344 bytes.
Garbage collection is currently enabled.
measuring PROFILE overhead..done
WARNING: Function PROFILED-FUN has been redefined, so times may be inaccurate.
PROFILE it again to record calls to the new definition.
  seconds  |     gc     |   consed  |  calls  |  sec/call  |  name  
---------------------------------------------------------
     0.006 |      0.000 | 3,837,952 | 100,000 |   0.000000 | PROFILED-FUN
---------------------------------------------------------
     0.006 |      0.000 | 3,837,952 | 100,000 |            | Total

estimated total profiling overhead: 1.12 seconds
overhead estimation parameters:
  1.12e-7s/call, 1.1152e-5s total profiling, 4.4959997e-6s internal profiling

; file: /«PKGBUILDDIR»/tests/smoke.impure.lisp
; in: LET ((FN (LAMBDA (&FOO &REST &BAR) (CONS &FOO &BAR))))
;     (LAMBDA (&FOO &REST &BAR) (CONS &FOO &BAR))
; ==>
;   #'(LAMBDA (&FOO &REST &BAR) (CONS &FOO &BAR))
; 
; caught STYLE-WARNING:
;   suspicious variable in lambda list: &FOO.
; 
; caught STYLE-WARNING:
;   suspicious variable in lambda list: &BAR.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
::: Running :SAVE-LISP-AND-DIE-ERROR
/: Is a directory
/: Is a directory
::: Success :SAVE-LISP-AND-DIE-ERROR
// Running /«PKGBUILDDIR»/tests/static-alloc.impure.lisp
// Running /«PKGBUILDDIR»/tests/step.impure.lisp
::: Running :STEP-INTO
::: Success :STEP-INTO
::: Running :STEP-NEXT
::: Success :STEP-NEXT
::: Running :STEP-OUT
::: Success :STEP-OUT
::: Running :STEP-START-FROM-BREAK
::: Success :STEP-START-FROM-BREAK
::: Running :STEP-FRAME
::: Success :STEP-FRAME
::: Running :STEP-BACKTRACE
::: Success :STEP-BACKTRACE
::: Running :STEP-NEXT/2

1 
2 
3 
4 
::: Success :STEP-NEXT/2
::: Running :STEP-OUT/2

1 
2 
3 
4 
::: Success :STEP-OUT/2
// Running /«PKGBUILDDIR»/tests/stream.impure.lisp
::: Running :TEST-FILE-FOR-CLOSE-SHOULD-NOT-DELETE
::: Success :TEST-FILE-FOR-CLOSE-SHOULD-NOT-DELETE
..................
::: Running :BUG-425
::: Success :BUG-425
::: Running :REGRESSION-1.0.12.22
::: Success :REGRESSION-1.0.12.22
::: Running :DELETE-FILE-ON-STREAMS
::: Success :DELETE-FILE-ON-STREAMS
::: Running :READ-CHAR-NO-HANG-AFTER-UNREAD-CHAR
::: Success :READ-CHAR-NO-HANG-AFTER-UNREAD-CHAR
::: Running :INTERRUPT-OPEN
::: Success :INTERRUPT-OPEN
::: Running :OVEREAGER-CHARACTER-BUFFERING
trying ASCII
trying US-ASCII
trying ANSI_X3.4-1968
trying ISO-646
trying ISO-646-US
trying 646
trying LATIN-1
trying LATIN1
trying ISO-8859-1
trying ISO8859-1
trying UTF-8
trying UTF8
trying EBCDIC-US
trying CP037
trying cp037
trying IBM-037
trying IBM037
trying KOI8-R
trying koi8-r
trying KOI8-U
trying koi8-u
trying X-MAC-CYRILLIC
trying x-mac-cyrillic
trying CP437
trying cp437
trying CP850
trying cp850
trying CP852
trying cp852
trying CP855
trying cp855
trying CP857
trying cp857
trying CP860
trying cp860
trying CP861
trying cp861
trying CP862
trying cp862
trying CP863
trying cp863
trying CP864
trying cp864
trying CP865
trying cp865
trying CP866
trying cp866
trying CP869
trying cp869
trying CP874
trying cp874
trying ISO-8859-2
trying iso-8859-2
trying LATIN-2
trying latin-2
trying ISO-8859-3
trying iso-8859-3
trying LATIN-3
trying latin-3
trying ISO-8859-4
trying iso-8859-4
trying LATIN-4
trying latin-4
trying ISO-8859-5
trying iso-8859-5
trying ISO-8859-6
trying iso-8859-6
trying ISO-8859-7
trying iso-8859-7
trying ISO-8859-8
trying iso-8859-8
trying ISO-8859-9
trying iso-8859-9
trying LATIN-5
trying latin-5
trying ISO-8859-10
trying iso-8859-10
trying LATIN-6
trying latin-6
trying ISO-8859-11
trying iso-8859-11
trying ISO-8859-13
trying iso-8859-13
trying LATIN-7
trying latin-7
trying ISO-8859-14
trying iso-8859-14
trying LATIN-8
trying latin-8
trying LATIN-9
trying LATIN9
trying ISO-8859-15
trying ISO8859-15
trying CP1250
trying cp1250
trying WINDOWS-1250
trying windows-1250
trying CP1251
trying cp1251
trying WINDOWS-1251
trying windows-1251
trying CP1252
trying cp1252
trying WINDOWS-1252
trying windows-1252
trying CP1253
trying cp1253
trying WINDOWS-1253
trying windows-1253
trying CP1254
trying cp1254
trying CP1255
trying cp1255
trying WINDOWS-1255
trying windows-1255
trying CP1256
trying cp1256
trying WINDOWS-1256
trying windows-1256
trying CP1257
trying cp1257
trying WINDOWS-1257
trying windows-1257
trying CP1258
trying cp1258
trying WINDOWS-1258
trying windows-1258
trying MAC-ROMAN
trying mac-roman
trying MacRoman
trying MAC
trying mac
trying MACINTOSH
trying macintosh
trying GBK
trying CP936
trying EUC-JP
trying EUCJP
trying eucJP
trying SHIFT_JIS
trying SJIS
trying Shift_JIS
trying CP932
trying UCS-2LE
trying UCS2LE
trying UCS-2BE
trying UCS2BE
trying UCS-4LE
trying UCS4LE
trying UCS-4BE
trying UCS4BE
trying UTF-16LE
trying UTF16LE
trying UTF-16BE
trying UTF16BE
trying UTF-32LE
trying UTF32LE
trying UTF-32BE
trying UTF32BE
::: Success :OVEREAGER-CHARACTER-BUFFERING
::: Running :BUG-657183
::: Success :BUG-657183
::: Running :BUG-561642
::: Success :BUG-561642
::: Running :READ-CHUNK-FROM-FRC-BUFFER
::: Success :READ-CHUNK-FROM-FRC-BUFFER
// Running /«PKGBUILDDIR»/tests/style-warnings.impure.lisp
::: Running :COMPILER-MACRO-ORDER-BUG
STYLE-WARNING:
   1 call to COMMON-LISP-USER::F-WITH-MACRO was compiled before a
   compiler-macro was defined for it. A declaration of NOTINLINE at the call
   site will eliminate this warning, as will defining the compiler-macro before
   its first potential use.
STYLE-WARNING:
   2 calls to COMMON-LISP-USER::F2-WITH-MACRO were compiled before a
   compiler-macro was defined for it. A declaration of NOTINLINE at the call
   sites will eliminate this warning, as will defining the compiler-macro
   before its first potential use.
::: Success :COMPILER-MACRO-ORDER-BUG
::: Running :INLINE-FAILURE-1
STYLE-WARNING:
   Proclaiming COMMON-LISP-USER::G to be INLINE, but 1 call to it was
   previously compiled. A declaration of NOTINLINE at the call site will
   eliminate this warning, as will proclaiming and defining the function before
   its first potential use.
STYLE-WARNING:
   Proclaiming COMMON-LISP-USER::H to be INLINE, but 2 calls to it were
   previously compiled. A declaration of NOTINLINE at the call sites will
   eliminate this warning, as will proclaiming and defining the function before
   its first potential use.
::: Success :INLINE-FAILURE-1
::: Running :INLINE-FAILURE-2A
; 
; caught STYLE-WARNING:
;   Call to COMMON-LISP-USER::FAST-GUY could not be inlined because no definition
;   for it was seen prior to its first use.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Success :INLINE-FAILURE-2A
; 
; caught STYLE-WARNING:
;   Call to COMMON-LISP-USER::ZIPPY could not be inlined because its source code
;   was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
;   effect to save function definitions for inlining.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :INLINE-FAILURE-2B
::: Success :INLINE-FAILURE-2B
::: Running :STRUCTURE-PRED-INLINE-FAILURE
STYLE-WARNING:
   Previously compiled call to COMMON-LISP-USER::SOMESTRUCT-P could not be
   inlined because the structure definition for COMMON-LISP-USER::SOMESTRUCT
   was not yet seen. To avoid this warning, DEFSTRUCT should precede references
   to the affected functions, or they must be declared locally notinline at
   each call site.
::: Success :STRUCTURE-PRED-INLINE-FAILURE
::: Running :REDEF-MACRO-SAME-FILE
::: Success :REDEF-MACRO-SAME-FILE
// Running /«PKGBUILDDIR»/tests/swap-lispobjs.impure.lisp
// Running /«PKGBUILDDIR»/tests/symbol.impure.lisp

; file: /«PKGBUILDDIR»/tests/symbol.impure.lisp
; in: WITH-TEST (:NAME :DEFVAR-TYPE-ERROR)
;     (LET ((STRING (PRINC-TO-STRING E)))
;       :OK)
; 
; caught STYLE-WARNING:
;   The variable STRING is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running :DEFVAR-TYPE-ERROR
::: Success :DEFVAR-TYPE-ERROR
// Running /«PKGBUILDDIR»/tests/system.impure.lisp
// Running /«PKGBUILDDIR»/tests/threads.impure.lisp
::: Running (:THREADS :TRIVIA)
::: Success (:THREADS :TRIVIA)
::: Running (:WITH-MUTEX :BASICS)
::: Success (:WITH-MUTEX :BASICS)
::: Running (:INTERRUPT-THREAD :BASICS :NO-UNWINDING)
::: Success (:INTERRUPT-THREAD :BASICS :NO-UNWINDING)
::: Running (:INTERRUPT-THREAD :DEFERRABLES-BLOCKED)
::: Success (:INTERRUPT-THREAD :DEFERRABLES-BLOCKED)
::: Running (:INTERRUPT-THREAD :DEFERRABLES-UNBLOCKED)
::: Success (:INTERRUPT-THREAD :DEFERRABLES-UNBLOCKED)
::: Running (:INTERRUPT-THREAD :NLX)
::: Success (:INTERRUPT-THREAD :NLX)
// Running /«PKGBUILDDIR»/tests/timer.impure.lisp
::: Running :HEAP
::: Success :HEAP
::: Running (:TIMER :DEFERRABLES-BLOCKED)
::: Success (:TIMER :DEFERRABLES-BLOCKED)
::: Running (:TIMER :DEFERRABLES-UNBLOCKED)
::: Success (:TIMER :DEFERRABLES-UNBLOCKED)
::: Running (:TIMER :DEFERRABLES-UNBLOCKED :UNWIND)
::: Success (:TIMER :DEFERRABLES-UNBLOCKED :UNWIND)
::: Running (:TIMER :RELATIVE)
::: Success (:TIMER :RELATIVE)
::: Running (:TIMER :ABSOLUTE)
::: Success (:TIMER :ABSOLUTE)
::: SKIPPED-DISABLED (:TIMER :OTHER-THREAD)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:TIMER :NEW-THREAD)
    Test disabled for this combination of platform and features
::: Running (:TIMER :REPEAT-AND-UNSCHEDULE)
::: Success (:TIMER :REPEAT-AND-UNSCHEDULE)
::: Running (:TIMER :RESCHEDULE)
::: Success (:TIMER :RESCHEDULE)
::: Running (:TIMER :STRESS)
::: Success (:TIMER :STRESS)
::: Running (:TIMER :STRESS2)
::: Success (:TIMER :STRESS2)
::: Running (:WITH-TIMEOUT :TIMEOUT)
::: Success (:WITH-TIMEOUT :TIMEOUT)
::: Running (:WITH-TIMEOUT :FALL-THROUGH)
::: Success (:WITH-TIMEOUT :FALL-THROUGH)
::: Running (:WITH-TIMEOUT :NESTED-TIMEOUT-SMALLER)
::: Success (:WITH-TIMEOUT :NESTED-TIMEOUT-SMALLER)
::: Running (:WITH-TIMEOUT :NESTED-TIMEOUT-BIGGER)
::: Success (:WITH-TIMEOUT :NESTED-TIMEOUT-BIGGER)
::: SKIPPED-DISABLED (:WITH-TIMEOUT :MANY-AT-THE-SAME-TIME)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:WITH-TIMEOUT :DEAD-THREAD)
    Test disabled for this combination of platform and features
::: Running (:HASH-CACHE :INTERRUPT)
::: Success (:HASH-CACHE :INTERRUPT)
::: SKIPPED-DISABLED (:TIMER :PARALLEL-UNSCHEDULE)
    Test disabled for this combination of platform and features
::: Running (:TIMER :SCHEDULE-STRESS)
::: Success (:TIMER :SCHEDULE-STRESS)
::: SKIPPED-DISABLED (:TIMER :THREADED-STRESS)
    Test disabled for this combination of platform and features
::: SKIPPED-DISABLED (:TIMER :DISPATCH-THREAD :MAKE-THREAD :BUG-1180102)
    Test disabled for this combination of platform and features
// Running /«PKGBUILDDIR»/tests/type.impure.lisp

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP #(11) '(SIMPLE-ARRAY UNDEF-TYPE 1))
;     (TYPEP #(11) '(SIMPLE-ARRAY UNDEF-TYPE 1))
; 
; caught STYLE-WARNING:
;   undefined type: UNDEF-TYPE
; 
; compilation unit finished
;   Undefined type:
;     UNDEF-TYPE
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP 11 'AND)
;     (TYPEP 11 'AND)
; 
; caught WARNING:
;   illegal type specifier for TYPEP: AND
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   The symbol AND is not valid as a type specifier.
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP 11 'OR)
;     (TYPEP 11 'OR)
; 
; caught WARNING:
;   illegal type specifier for TYPEP: OR
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   The symbol OR is not valid as a type specifier.
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP 11 'MEMBER)
;     (TYPEP 11 'MEMBER)
; 
; caught WARNING:
;   illegal type specifier for TYPEP: MEMBER
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   The symbol MEMBER is not valid as a type specifier.
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP 11 'VALUES)
;     (TYPEP 11 'VALUES)
; 
; caught WARNING:
;   illegal type specifier for TYPEP: VALUES
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   The symbol VALUES is not valid as a type specifier.
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP 11 'EQL)
;     (TYPEP 11 'EQL)
; 
; caught WARNING:
;   illegal type specifier for TYPEP: EQL
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   error while parsing arguments to DEFTYPE EQL:
;     invalid number of elements in
;       ()
;     to satisfy lambda list
;       (SB-KERNEL::N):
;     exactly 1 expected, but 0 found
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP 11 'SATISFIES)
;     (TYPEP 11 'SATISFIES)
; 
; caught WARNING:
;   illegal type specifier for TYPEP: SATISFIES
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   The symbol SATISFIES is not valid as a type specifier.
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition

; file: /«PKGBUILDDIR»/tests/type.impure.lisp
; in: ASSERT-ERROR (TYPEP 11 'NOT)
;     (TYPEP 11 'NOT)
; 
; caught WARNING:
;   illegal type specifier for TYPEP: NOT
; 
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   The symbol NOT is not valid as a type specifier.
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition
::: Running :MEMBER-TYPE-AND-NUMERIC
::: Success :MEMBER-TYPE-AND-NUMERIC
/setting up *TESTS-OF-INLINE-TYPE-TESTS*
/done with interpreted *TESTS-OF-INLINE-TYPE-TESTS*
/done with compiled (TESTS-OF-INLINE-TYPE-TESTS)

; in: DEFUN FOO
;     (TYPE (VECTOR BAR) X)
; 
; caught STYLE-WARNING:
;   undefined type: BAR
; 
; compilation unit finished
;   Undefined type:
;     BAR
;   caught 1 STYLE-WARNING condition
::: Running (:CTOR :TYPEP-FUNCTION)
::: Success (:CTOR :TYPEP-FUNCTION)
::: Running (:CTOR :FUNCTIONP)
::: Success (:CTOR :FUNCTIONP)
::: Running (:CTOR-ALLOCATE-INSTANCE :TYPEP-FUNCTION)
::: Success (:CTOR-ALLOCATE-INSTANCE :TYPEP-FUNCTION)
::: Running (:CTOR-ALLOCATE-INSTANCE :FUNCTIONP)
::: Success (:CTOR-ALLOCATE-INSTANCE :FUNCTIONP)
::: Running :TYPEXPAND-1
::: Success :TYPEXPAND-1
::: Running :TYPEXPAND.1
::: Success :TYPEXPAND.1
::: Running :TYPEXPAND.2
::: Success :TYPEXPAND.2
::: Running :TYPEXPAND-ALL
::: Success :TYPEXPAND-ALL
WARNING: redefining DEFTYPE type to be a class: COMMON-LISP-USER::A-DEFTYPE
::: Running (:TYPEXPAND-1 :AFTER-TYPE-REDEFINITION-TO-CLASS)
::: Success (:TYPEXPAND-1 :AFTER-TYPE-REDEFINITION-TO-CLASS)
::: Running :DEFINED-TYPE-NAME-P
::: Success :DEFINED-TYPE-NAME-P
::: Running :VALID-TYPE-SPECIFIER-P
::: Success :VALID-TYPE-SPECIFIER-P
::: Running (:VALID-TYPE-SPECIFIER-P :INTROSPECTION-TEST)
::: Success (:VALID-TYPE-SPECIFIER-P :INTROSPECTION-TEST)
::: Running (:BUG-309128 1)
::: Success (:BUG-309128 1)
::: Running (:BUG-309128 2)
::: Success (:BUG-309128 2)
::: Running (:BUG-309128 3)
::: Success (:BUG-309128 3)
::: Running :UNKNOWN-TYPE-NOT=-FOR-SURE
::: Success :UNKNOWN-TYPE-NOT=-FOR-SURE
::: Running (:SUBTYPEP :FORWARD-REFERENCED-CLASSES)
::: Success (:SUBTYPEP :FORWARD-REFERENCED-CLASSES)
::: Running (:ARRAY-TYPE-UNION :BASIC)
::: Success (:ARRAY-TYPE-UNION :BASIC)
::: Running (:ARRAY-TYPE-UNION :DIMENSIONAL-COMPATABILITY :WILD)
::: Success (:ARRAY-TYPE-UNION :DIMENSIONAL-COMPATABILITY :WILD)
::: Running (:ARRAY-TYPE-UNION :DIMENSIONAL-COMPATABILITY :INCOMPATIBLE 1)
::: Success (:ARRAY-TYPE-UNION :DIMENSIONAL-COMPATABILITY :INCOMPATIBLE 1)
::: Running (:ARRAY-TYPE-UNION :DIMENSIONAL-COMPATABILITY :INCOMPATIBLE 2)
::: Success (:ARRAY-TYPE-UNION :DIMENSIONAL-COMPATABILITY :INCOMPATIBLE 2)
::: Running (:ARRAY-TYPE-UNION :DIMENSIONAL-UNITY :ONLY-ONE-DIMENSION-PER-UNION)
::: Success (:ARRAY-TYPE-UNION :DIMENSIONAL-UNITY :ONLY-ONE-DIMENSION-PER-UNION)
::: Running (:ARRAY-TYPE-UNION :COMPLEXP-UNITY :MOVES-TOWARDS-MAYBE)
::: Success (:ARRAY-TYPE-UNION :COMPLEXP-UNITY :MOVES-TOWARDS-MAYBE)
::: Running (:ARRAY-TYPE-UNION :COMPLEXP-AND-DIMENSIONS-DONT-UNITE 1)
::: Success (:ARRAY-TYPE-UNION :COMPLEXP-AND-DIMENSIONS-DONT-UNITE 1)
::: Running (:ARRAY-TYPE-UNION :COMPLEXP-AND-DIMENSIONS-DONT-UNITE 2)
::: Success (:ARRAY-TYPE-UNION :COMPLEXP-AND-DIMENSIONS-DONT-UNITE 2)
::: Running (:ARRAY-TYPE-UNION :ELEMENT-SUBTYPES :UNITE-WITHIN-SAETP)
::: Success (:ARRAY-TYPE-UNION :ELEMENT-SUBTYPES :UNITE-WITHIN-SAETP)
::: Running (:ARRAY-TYPE-UNION :ELEMENT-SUBTYPES :DONT-UNITE-ACROSS-SAETP)
::: Success (:ARRAY-TYPE-UNION :ELEMENT-SUBTYPES :DONT-UNITE-ACROSS-SAETP)
::: Running (:ARRAY-TYPE-UNION :DISJOINT-ELEMENT-TYPES :DONT-UNITE)
::: Success (:ARRAY-TYPE-UNION :DISJOINT-ELEMENT-TYPES :DONT-UNITE)
::: Running (:ARRAY-TYPE-UNION :WILD-ELEMENT-TYPE :UNITES)
::: Success (:ARRAY-TYPE-UNION :WILD-ELEMENT-TYPE :UNITES)
::: Running (:ARRAY-TYPE-UNION :ELEMENT-TYPE-AND-DIMENSIONS-DONT-UNITE)
::: Success (:ARRAY-TYPE-UNION :ELEMENT-TYPE-AND-DIMENSIONS-DONT-UNITE)
::: Running (:ARRAY-TYPE-UNION :ELEMENT-TYPE-AND-COMPLEXP-DONT-UNITE)
::: Success (:ARRAY-TYPE-UNION :ELEMENT-TYPE-AND-COMPLEXP-DONT-UNITE)
::: Running :UNION-OF-ALL-ARRAYS-IS-ARRAY-OF-WILD
::: Success :UNION-OF-ALL-ARRAYS-IS-ARRAY-OF-WILD
::: Running :SOURCE-TRANSFORM-UNION-OF-ARRAYS-TYPEP
::: Success :SOURCE-TRANSFORM-UNION-OF-ARRAYS-TYPEP
::: Running :INTERNED-TYPE-SPECIFIERS
::: Success :INTERNED-TYPE-SPECIFIERS
// Running /«PKGBUILDDIR»/tests/unicode-breaking.impure.lisp
::: Running (:GRAPHEME-BREAKING)
::: Success (:GRAPHEME-BREAKING)
::: Running (:WORD-BREAKING)
::: Success (:WORD-BREAKING)
::: Running (:SENTENCE-BREAKING)
::: Success (:SENTENCE-BREAKING)
::: Running (:LINE-BREAKING)
::: Success (:LINE-BREAKING)
// Running /«PKGBUILDDIR»/tests/unicode-collation.impure.lisp
::: Running (:COLLATION)
::: Success (:COLLATION)
// Running /«PKGBUILDDIR»/tests/unicode-normalization.impure.lisp
::: Running (:UNICODE-NORMALIZATION :PART0)
::: Success (:UNICODE-NORMALIZATION :PART0)
::: Running (:UNICODE-NORMALIZATION :PART1)
::: Success (:UNICODE-NORMALIZATION :PART1)
::: Running (:UNICODE-NORMALIZATION :PART2)
::: Success (:UNICODE-NORMALIZATION :PART2)
::: Running (:UNICODE-NORMALIZATION :PART3)
::: Success (:UNICODE-NORMALIZATION :PART3)
// Running /«PKGBUILDDIR»/tests/unicode-properties.impure.lisp
::: Running (:UNICODE-PROPERTIES)
::: Success (:UNICODE-PROPERTIES)
::: Running (:BIDI-CLASS)
::: Success (:BIDI-CLASS)
::: Running (:HANGUL-SYLLABLE-TYPE)
::: Success (:HANGUL-SYLLABLE-TYPE)
::: Running (:EAST-ASIAN-WIDTH)
::: Success (:EAST-ASIAN-WIDTH)
::: Running (:SCRIPT)
::: Success (:SCRIPT)
::: Running (:BLOCK)
::: Success (:BLOCK)
::: Running (:PROPLIST)
::: Success (:PROPLIST)
::: Running (:BIDI-MIRRORING-GLYPH)
::: Success (:BIDI-MIRRORING-GLYPH)
::: Running (:AGE)
::: Success (:AGE)
::: Running (:GRAPHEME-BREAK-CLASS)
::: Success (:GRAPHEME-BREAK-CLASS)
::: Running (:WORD-BREAK-CLASS)
::: Success (:WORD-BREAK-CLASS)
::: Running (:SENTENCE-BREAK-CLASS)
::: Success (:SENTENCE-BREAK-CLASS)
::: Running (:LINE-BREAK-CLASS)
::: Success (:LINE-BREAK-CLASS)
// Running /«PKGBUILDDIR»/tests/unwind-to-frame-and-call.impure.lisp
::: Running (:RESTART-FRAME :SPECIAL)
::: Success (:RESTART-FRAME :SPECIAL)
::: Running (:RESTART-FRAME :OPTIONAL-SPECIAL)
::: Success (:RESTART-FRAME :OPTIONAL-SPECIAL)
::: Running (:RESTART-FRAME :NORMAL)
::: Success (:RESTART-FRAME :NORMAL)
::: Running (:RETURN-FROM-FRAME :SPECIAL)
::: Success (:RETURN-FROM-FRAME :SPECIAL)
::: Running (:RETURN-FROM-FRAME :OPTIONAL-SPECIAL)
::: Success (:RETURN-FROM-FRAME :OPTIONAL-SPECIAL)
::: Running (:RETURN-FROM-FRAME :NORMAL)
::: Success (:RETURN-FROM-FRAME :NORMAL)
::: Running :CURRENT-CATCH-BLOCK-RESTORED
::: Success :CURRENT-CATCH-BLOCK-RESTORED
::: Running (:RETURN-FROM-FRAME :LOCAL-FUNCTION)
::: Success (:RETURN-FROM-FRAME :LOCAL-FUNCTION)
::: Running (:RETURN-FROM-FRAME :HAIRY-LOCAL-FUNCTION)
::: Success (:RETURN-FROM-FRAME :HAIRY-LOCAL-FUNCTION)
::: Running (:RETURN-FROM-FRAME :ANONYMOUS :TOPLEVEL)
::: Success (:RETURN-FROM-FRAME :ANONYMOUS :TOPLEVEL)
::: Running (:RETURN-FROM-FRAME :ANONYMOUS :TOPLEVEL-SPECIAL)
::: Success (:RETURN-FROM-FRAME :ANONYMOUS :TOPLEVEL-SPECIAL)
::: Running (:RETURN-FROM-FRAME :ANONYMOUS)
::: Success (:RETURN-FROM-FRAME :ANONYMOUS)
::: Running (:RETURN-FROM-FRAME :ANONYMOUS :SPECIAL)
::: Success (:RETURN-FROM-FRAME :ANONYMOUS :SPECIAL)
::: Running :TEST-UNWIND-1
::: Success :TEST-UNWIND-1
::: Running :TEST-UNWIND-2
::: Success :TEST-UNWIND-2

; file: /«PKGBUILDDIR»/tests/unwind-to-frame-and-call.impure.lisp
; in: DEFUN TEST
;     (LET ((BLAH (FOO #'INLINE-FUN)))
;       (INLINE-FUN 3))
; 
; caught STYLE-WARNING:
;   The variable BLAH is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
::: Running (:DEBUG-INSTRUMENTATION :INLINE/XEP)
::: Success (:DEBUG-INSTRUMENTATION :INLINE/XEP)
// Running /«PKGBUILDDIR»/tests/vector.impure.lisp
// Running /«PKGBUILDDIR»/tests/walk.impure.lisp
::: Running (:WALK LIST)
::: Success (:WALK LIST)
::: Running (:WALK LIST CONS)
::: Success (:WALK LIST CONS)
::: Running (:WALK PROGN 1)
::: Success (:WALK PROGN 1)
::: Running (:WALK BLOCK)
::: Success (:WALK BLOCK)
::: Running (:WALK BLOCK LIST)
::: Success (:WALK BLOCK LIST)
::: Running (:WALK CATCH LIST)
::: Success (:WALK CATCH LIST)
::: Running (:WALK MACROLET)
::: Success (:WALK MACROLET)
::: Running (:WALK FLET 1)
::: Success (:WALK FLET 1)
::: Running (:WALK LET FLET)
::: Success (:WALK LET FLET)
::: Running (:WALK LABELS)
::: Success (:WALK LABELS)
::: Running (:WALK FLET 2)
::: Success (:WALK FLET 2)
::: Running (:WALK FLET 3)
::: Success (:WALK FLET 3)
::: Running (:WALK PROGN SPECIAL)
::: Success (:WALK PROGN SPECIAL)
::: Running (:WALK LET SPECIAL 1)
::: Success (:WALK LET SPECIAL 1)
::: Running (:WALK LET SPECIAL 2)
::: Success (:WALK LET SPECIAL 2)
::: Running (:WALK LET SPECIAL 3)
::: Success (:WALK LET SPECIAL 3)
::: Running (:WALK LET SPECIAL 4)
::: Success (:WALK LET SPECIAL 4)
::: Running (:WALK EVAL-WHEN 1)
::: Success (:WALK EVAL-WHEN 1)
::: Running (:WALK EVAL-WHEN 2)
::: Success (:WALK EVAL-WHEN 2)
::: Running (:WALK MULTIPLE-VALUE-BIND)
::: Success (:WALK MULTIPLE-VALUE-BIND)
::: Running (:WALK MULTIPLE-VALUE-BIND SPECIAL)
::: Success (:WALK MULTIPLE-VALUE-BIND SPECIAL)
::: Running (:WALK PROGN FUNCTION)
::: Success (:WALK PROGN FUNCTION)
::: Running (:WALK PROGN GO)
::: Success (:WALK PROGN GO)
::: Running (:WALK IF 1)
::: Success (:WALK IF 1)
::: Running (:WALK IF 2)
::: Success (:WALK IF 2)
::: Running (:WALK LAMBDA)
::: Success (:WALK LAMBDA)
::: Running (:WALK LAMBDA SPECIAL)
::: Success (:WALK LAMBDA SPECIAL)
::: Running (:WALK LET LIST)
::: Success (:WALK LET LIST)
::: Running (:WALK LET* LIST)
::: Success (:WALK LET* LIST)
::: Running (:WALK LET SPECIAL LIST)
::: Success (:WALK LET SPECIAL LIST)
::: Running (:WALK LET* SPECIAL LIST :HAIRY-SPECIALS)
::: Success (:WALK LET* SPECIAL LIST :HAIRY-SPECIALS)
::: Running (:WALK LET SPECIAL 5)
::: Success (:WALK LET SPECIAL 5)
::: Running (:WALK MULTIPLE-VALUE-CALL)
::: Success (:WALK MULTIPLE-VALUE-CALL)
::: Running (:WALK MULTIPLE-VALUE-PROG1)
::: Success (:WALK MULTIPLE-VALUE-PROG1)
::: Running (:WALK PROGN 2)
::: Success (:WALK PROGN 2)
::: Running (:WALK PROGV)
::: Success (:WALK PROGV)
::: Running (:WALK QUOTE)
::: Success (:WALK QUOTE)
::: Running (:WALK RETURN-FROM)
::: Success (:WALK RETURN-FROM)
::: Running (:WALK SETQ 1)
::: Success (:WALK SETQ 1)
::: Running (:WALK SETQ 2)
::: Success (:WALK SETQ 2)
::: Running (:WALK TAGBODY)
::: Success (:WALK TAGBODY)
::: Running (:WALK THE)
::: Success (:WALK THE)
::: Running (:WALK THROW)
::: Success (:WALK THROW)
::: Running (:WALK UNWIND-PROTECT)
::: Success (:WALK UNWIND-PROTECT)
::: Running (:WALK FLET DEFMACRO)
::: Success (:WALK FLET DEFMACRO)
::: Running (:WALK LABELS DEFMACRO)
::: Success (:WALK LABELS DEFMACRO)
::: Running (:WALK MACROLET 1)
::: Success (:WALK MACROLET 1)
::: Running (:WALK MACROLET 2)
::: Success (:WALK MACROLET 2)
::: Running (:WALK MACROLET PROGN 1)
::: Success (:WALK MACROLET PROGN 1)
::: Running (:WALK MACROLET PROGN 2)
::: Success (:WALK MACROLET PROGN 2)
::: Running (:WALK COND)
::: Success (:WALK COND)
::: Running (:WALK LET LAMBDA)
::: Success (:WALK LET LAMBDA)
::: Running (:WALK SETQ :MACRO)
::: Success (:WALK SETQ :MACRO)
::: Running (:WALK LET* SPECIAL LIST :HAIRIER-SPECIALS)
::: Success (:WALK LET* SPECIAL LIST :HAIRIER-SPECIALS)
STYLE-WARNING: Implicitly creating new generic function #:FOO.
// Running /«PKGBUILDDIR»/tests/win32-foreign-stack-unwind.impure.lisp
// Running /«PKGBUILDDIR»/tests/with-compilation-unit.impure.lisp
::: Running (:WITH-COMPILATION-UNIT :FUNCTION)
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.011
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.fasl written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)
; compilation aborted after 0:00:00.008
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.009
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)
; compilation aborted after 0:00:00.008
::: Success (:WITH-COMPILATION-UNIT :FUNCTION)
::: Running (:WITH-COMPILATION-UNIT :GENERIC-FUNCTION)
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFMETHOD BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.022
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFGENERIC FOO ...)
; compiling (DEFMETHOD FOO ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.fasl written
; compilation finished in 0:00:00.023
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFMETHOD BAR ...)
; compilation aborted after 0:00:00.014
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFMETHOD BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.015
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFMETHOD BAR ...)
; compilation aborted after 0:00:00.014
::: Success (:WITH-COMPILATION-UNIT :GENERIC-FUNCTION)
::: Running (:WITH-COMPILATION-UNIT :VARIABLE)
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFVAR *A* ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)
; compilation aborted after 0:00:00.009
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.010
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)
; compilation aborted after 0:00:00.009
::: Success (:WITH-COMPILATION-UNIT :VARIABLE)
::: Running (:WITH-COMPILATION-UNIT :TYPE)
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFTYPE A-TYPE ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-b.fasl written
; compilation finished in 0:00:00.006
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)
; compilation aborted after 0:00:00.011
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.fasl written
; compilation finished in 0:00:00.012
; compiling file "/«PKGBUILDDIR»/tests/with-compilation-unit-temp-a.lisp" (written 11 JUN 2015 09:18:50 AM):
; compiling (DEFUN BAR ...)
; compilation aborted after 0:00:00.011
::: Success (:WITH-COMPILATION-UNIT :TYPE)
// Running impure tests (#<FUNCTION RUN-TESTS::CLOAD-TEST>)
// Running /«PKGBUILDDIR»/tests/backq.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/backq.impure-cload.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFUN LIST-BACKQ-EXPR ...)
; compiling (DEFUN OBVIOUSLY-CONSTANT-LIST ...)
; compiling (DEFUN VECTOR-BACKQ-EXPR ...)
; compiling (DEFUN OBVIOUSLY-CONSTANT-VECTOR ...)
; compiling (DEFUN LIST-FUN-REFERENCED-CONSTANTS ...)
; compiling (WITH-TEST (:NAME :BACKQUOTE-IR1-SIMPLIFIER) ...)

; /«PKGBUILDDIR»/tests/backq.impure-cload.fasl written
; compilation finished in 0:00:00.128
::: Running :BACKQUOTE-IR1-SIMPLIFIER
::: Success :BACKQUOTE-IR1-SIMPLIFIER
// Running /«PKGBUILDDIR»/tests/bit-vector.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/bit-vector.impure-cload.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN TEST-SMALL-BIT-VECTORS ...)
; compiling (DEFUN INFORM ...)
; compiling (DEFUN TEST-BIG-BIT-VECTORS ...)
; compiling (TEST-SMALL-BIT-VECTORS)
; compiling (TEST-BIG-BIT-VECTORS)
; compiling (WITH-TEST (:NAME :FIND-NON-BIT-FROM-BIT-VECTOR) ...)

; /«PKGBUILDDIR»/tests/bit-vector.impure-cload.fasl written
; compilation finished in 0:00:01.062

:MAKE-ARRAY-1 
:MAKE-ARRAY-2 
:BIT-NOT 
:AREF-1 
:AREF-2 
:BIT-AND 
:AREF-3 
:AREF-4 
::: Running :FIND-NON-BIT-FROM-BIT-VECTOR
::: Success :FIND-NON-BIT-FROM-BIT-VECTOR
// Running /«PKGBUILDDIR»/tests/clos.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/clos.impure-cload.lisp" (written 30 MAY 2015 05:47:21 AM):
; compiling (DEFCLASS MIO-TEST ...)
; compiling (DEFUN MIO-DEMO ...)
; compiling (DEFUN MIO-TEST ...)
; compiling (MIO-TEST)
; compiling (DEFVAR *D-I-S-E-COUNT* ...)
; compiling (DEFCLASS DEFAULT-INITARGS-SIDE-EFFECT ...)
; compiling (DEFUN DEFAULT-INITARGS-SIDE-EFFECT ...)
; compiling (ASSERT (= *D-I-S-E-COUNT* ...))
; compiling (DEFAULT-INITARGS-SIDE-EFFECT)
; compiling (ASSERT (= *D-I-S-E-COUNT* ...))
; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-SIDE-EFFECT))
; compiling (ASSERT (= *D-I-S-E-COUNT* ...))
; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-SIDE-EFFECT) ...)
; compiling (ASSERT (= *D-I-S-E-COUNT* ...))
; compiling (DEFCLASS CLASS-ALLOCATION ...)
; compiling (DEFUN CLASS-ALLOCATION-READER ...)
; compiling (DEFUN CLASS-ALLOCATION-WRITER ...)
; compiling (ASSERT (= # ...))
; compiling (CLASS-ALLOCATION-WRITER 4)
; compiling (ASSERT (= # ...))
; compiling (DEFCLASS SPECIALIZER1 ...)
; compiling (DEFCLASS SPECIALIZER2 ...)
; compiling (DEFMETHOD BAZ ...)
; compiling (DEFMETHOD BAZ ...)
; compiling (ASSERT (TYPEP # ...))
; compiling (DEFCLASS SPECIALIZER1A ...)
; compiling (DEFCLASS SPECIALIZER2A ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (SB-MOP:ENSURE-CLASS (QUOTE UNKNOWN-TYPE))
; compiling (DEFMETHOD METHOD-ON-UNKNOWN ...)
; file: /«PKGBUILDDIR»/tests/clos.impure-cload.lisp
; in: DEFMETHOD METHOD-ON-UNKNOWN (UNKNOWN-TYPE)
;     (DEFMETHOD METHOD-ON-UNKNOWN ((X UNKNOWN-TYPE)) X)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER METHOD-ON-UNKNOWN NIL ((X UNKNOWN-TYPE)) (X))
; 
; caught STYLE-WARNING:
;   can't find type for specializer UNKNOWN-TYPE in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; compiling (DEFCLASS DINITARGS-CLASS1 ...)
; compiling (ASSERT (= # ...))
; compiling (DEFCLASS DINITARGS-CLASS2 ...)
; compiling (ASSERT (= # ...))
; compiling (DEFVAR *DEFINITARGS-COUNTER* ...)
; compiling (DEFCLASS DEFINITARGS-CLASS ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= *DEFINITARGS-COUNTER* ...))
; compiling (DEFCLASS SHARED-TO-LOCAL-INITFORM-SUPER ...)
; compiling (DEFCLASS SHARED-TO-LOCAL-INITFORM-SUB ...)
; compiling (ASSERT (SLOT-BOUNDP # ...))
; compiling (ASSERT (EQ # ...))
; compiling (DEFGENERIC NO-IGNORED-WARNINGS ...)
; compiling (HANDLER-CASE (EVAL #) ...)
; compiling (HANDLER-CASE (EVAL #) ...)
; compiling (HANDLER-CASE (EVAL #) ...)
; compiling (DEFCLASS INVALID-DEFAULT-INITARGS ...)
; compiling (MULTIPLE-VALUE-BIND (RESULT CONDITION) ...)
; compiling (DEFCLASS DEFAULT-INITARGS-WITH-METHOD ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-WITH-METHOD))
; compiling (DEFVAR *D-I-W-M-2* ...)
; compiling (DEFCLASS DEFAULT-INITARGS-WITH-METHOD2 ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-WITH-METHOD2))
; compiling (ASSERT (= *D-I-W-M-2* ...))
; compiling (DEFCLASS CLASS-WITH-SYMBOL-INITARG ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN MAKE-THING ...)
; compiling (DEFUN MAKE-OTHER-THING ...)
; file: /«PKGBUILDDIR»/tests/clos.impure-cload.lisp
; in: DEFUN MAKE-OTHER-THING
;     (MAKE-INSTANCE 'CLASS-WITH-SYMBOL-INITARG SLOT ARG)
; 
; note: The second argument (in keyword position) is not a constant, weakening keyword
; argument checking.

; compiling (ASSERT (EQL # ...))
; compiling (ASSERT (EQL # ...))
; compiling (DEFUN CTOR-LITERAL-CLASS ...)
; compiling (DEFUN CTOR-LITERAL-CLASS2 ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (DEFMETHOD JUST-CALL-NEXT-METHOD ...)
; file: /«PKGBUILDDIR»/tests/clos.impure-cload.lisp
; in: DEFMETHOD JUST-CALL-NEXT-METHOD (T)
;     (DEFMETHOD JUST-CALL-NEXT-METHOD (THING) (CALL-NEXT-METHOD))
; --> PROGN 
; ==>
;   (EVAL-WHEN (:EXECUTE)
;     (SB-PCL::%DEFMETHOD-EXPANDER JUST-CALL-NEXT-METHOD NIL (THING)
;                                  ((CALL-NEXT-METHOD))))
; 
; caught STYLE-WARNING:
;   Implicitly creating new generic function
;   COMMON-LISP-USER::JUST-CALL-NEXT-METHOD.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 1 note


; /«PKGBUILDDIR»/tests/clos.impure-cload.fasl written
; compilation finished in 0:00:01.259
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::BAZ.
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::METHOD-ON-UNKNOWN.
::: Running (:CTOR :LITERAL-CLASS-UNQUOTED)
::: Success (:CTOR :LITERAL-CLASS-UNQUOTED)
::: Running (:CTOR :LITERAL-CLASS-QUOTED)
::: Success (:CTOR :LITERAL-CLASS-QUOTED)
// Running /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (LOAD "assertoid")
; compiling (USE-PACKAGE "ASSERTOID")
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN EMPTYVALUES ...)
; compiling (DEFSTRUCT FOO ...)
; compiling (DEFUN BAR ...)
; compiling (ASSERT (EQ # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VALUESIFY ...)
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: DEFUN VALUESIFY
;     (COERCE X 'SINGLE-FLOAT)
; --> THE 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.

;     (ROUND X)
; --> ROUND LET 
; ==>
;   (SB-KERNEL:%UNARY-ROUND SB-C::X)
; 
; note: forced to do full call
;       unable to do inline float truncate (cost 5) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).
;       unable to do inline float truncate (cost 5) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (SIGNED-BYTE 32) &REST
;                                                          T).

;     (COERCE X 'SINGLE-FLOAT)
; --> THE 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::X)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;       etc.

; compiling (DEFUN EXERCISE-VALUESIFY ...)
; compiling (ASSERT (= # ...))
; compiling (DECLAIM (FTYPE FUNCTION ...))
; compiling (DEFUN I-AM-JUST-A-FUNCTION ...)
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: DEFUN I-AM-JUST-A-FUNCTION
;     (+ X Y 1)
; --> + 
; ==>
;   (+ X Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second 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 SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second 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).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; ==>
;   (+ (+ X Y) 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

; --> + 
; ==>
;   (+ X Y)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

; ==>
;   (+ (+ X Y) 1)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

; compiling (DEFVAR +TIME-ZONES+ ...)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN FOO ...)
; compiling (EVAL (QUOTE #))
; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: ASSERT (EQL (BAR 11) :REAL)
;     (BAR 11)
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly zero.

; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: ASSERT (EQL (BAR -11) :FIXNUM)
;     (BAR -11)
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly zero.

; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: ASSERT (EQL (BAR 11) :FIXNUM)
;     (BAR 11)
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly zero.

; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: ASSERT (EQL (BAR -11.0) :REAL)
;     (BAR -11.0)
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly zero.

; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: ASSERT (EQL (BAR "this is a test") :STRING)
;     (BAR "this is a test")
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly zero.

; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: ASSERT (EQL (BAR (MAKE-HASH-TABLE)) :T)
;     (BAR (MAKE-HASH-TABLE))
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly zero.

; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...)
; compiling (ASSERT (EQL 1 ...))
; compiling (DEFUN ARRAY-ELEMENT-TYPE-HANDLING ...)
; compiling (ASSERT-ERROR (ARRAY-ELEMENT-TYPE-HANDLING #) ...)
; compiling (DEFUN BUG220-HELPER ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN BUG221 ...)
; compiling (DEFSTRUCT BUG166S)
; compiling (DEFMETHOD PERMANENTIZE ...)
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: DEFMETHOD PERMANENTIZE (BUG166S)
;     (FLET ((FROB (HASH-TABLE TEST-FOR-DELETION)
;              )
;            (OBJ-ENTRY.STALE? (OE)
;              (DESTRUCTURING-BIND
;                  (KEY . DATUM)
;                  OE
;                (DECLARE #)
;                (DENY0 #)
;                (SOME #'STALE? KEY))))
;       (DECLARE (INLINE FROB OBJ-ENTRY.STALE?))
;       (FROB (UUSTK.ARGS-HASH->OBJ-ALIST UUSTK) #'OBJ-ENTRY.STALE?)
;       (FROB (UUSTK.HASH->MEMOIZED-OBJS-LIST UUSTK) #'OBJS.STALE?))
; 
; caught STYLE-WARNING:
;   The variable HASH-TABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TEST-FOR-DELETION is defined but never used.

;     (FROB (UUSTK.HASH->MEMOIZED-OBJS-LIST UUSTK) #'OBJS.STALE?)
; 
; caught STYLE-WARNING:
;   The variable HASH-TABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TEST-FOR-DELETION is defined but never used.

; compiling (DEFUN BUG115-1 ...)
; compiling (DEFUN BUG115-2 ...)
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: DEFUN BUG115-2
;     (FOO)
; 
; caught WARNING:
;   The function was called with zero arguments, but wants exactly one.

;     (BAR
;      (IF (FOO)
;          1
;          2))
; 
; caught WARNING:
;   The function was called with one argument, but wants exactly zero.

;     (FOO)
; 
; caught WARNING:
;   The function was called with zero arguments, but wants exactly one.

;     (BAR X (LIST X))
; 
; caught WARNING:
;   The function was called with two arguments, but wants exactly zero.

; compiling (DEFUN BUG226 ...)
; compiling (DEFUN BUG231A-1 ...)
; compiling (ASSERT-ERROR (BUG231A-1 8) ...)
; compiling (DEFUN BUG231A-2 ...)
; compiling (DESTRUCTURING-BIND (SET GET) ...)
; compiling (DEFUN BUG231B ...)
; compiling (ASSERT-ERROR (BUG231B NIL ...) ...)
; compiling (ASSERT-ERROR (BUG231B 0 ...) ...)
; compiling (ASSERT-ERROR (BUG231B 0 ...) ...)
; compiling (DEFUN BUG239 ...)
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: DEFUN BUG239
;     (LAMBDA (DATA3 START3) (DECLARE (IGNORE START3)) (PRINT (LIST DATA1 DATA2)))
; ==>
;   #'(LAMBDA (DATA3 START3) (DECLARE (IGNORE START3)) (PRINT (LIST DATA1 DATA2)))
; 
; caught STYLE-WARNING:
;   The variable DATA3 is defined but never used.

;     (LAMBDA (DATA2 START2)
;       (MULTIPLE-VALUE-CALL
;           (LAMBDA (DATA3 START3)
;             (DECLARE (IGNORE START3))
;             (PRINT (LIST DATA1 DATA2)))
;         (VALUES 0 0)))
; ==>
;   #'(LAMBDA (DATA2 START2)
;       (MULTIPLE-VALUE-CALL
;           (LAMBDA (DATA3 START3)
;             (DECLARE (IGNORE START3))
;             (PRINT (LIST DATA1 DATA2)))
;         (VALUES 0 0)))
; 
; caught STYLE-WARNING:
;   The variable START2 is defined but never used.

;     (LAMBDA (DATA1 START1)
;       (MULTIPLE-VALUE-CALL
;           (LAMBDA (DATA2 START2)
;             (MULTIPLE-VALUE-CALL (LAMBDA # # #) (VALUES 0 0)))
;         (VALUES BIT-ARRAY-2 0)))
; ==>
;   #'(LAMBDA (DATA1 START1)
;       (MULTIPLE-VALUE-CALL
;           (LAMBDA (DATA2 START2)
;             (MULTIPLE-VALUE-CALL (LAMBDA # # #) (VALUES 0 0)))
;         (VALUES BIT-ARRAY-2 0)))
; 
; caught STYLE-WARNING:
;   The variable START1 is defined but never used.

;     (DEFUN BUG239 (BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY)
;       (DECLARE (TYPE (ARRAY BIT) BIT-ARRAY-2)
;                (TYPE (OR (ARRAY BIT) (MEMBER T NIL)) RESULT-BIT-ARRAY))
;       (UNLESS (SIMPLE-BIT-VECTOR-P BIT-ARRAY-2)
;         (MULTIPLE-VALUE-CALL (LAMBDA (DATA1 START1) (MULTIPLE-VALUE-CALL # #))
;           (VALUES 444 0))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BUG239
;         (BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY)
;       (DECLARE (TYPE (ARRAY BIT) BIT-ARRAY-2)
;                (TYPE (OR (ARRAY BIT) (MEMBER T NIL)) RESULT-BIT-ARRAY))
;       (BLOCK BUG239
;         (UNLESS (SIMPLE-BIT-VECTOR-P BIT-ARRAY-2)
;           (MULTIPLE-VALUE-CALL (LAMBDA # #) (VALUES 444 0)))))
; 
; caught STYLE-WARNING:
;   The variable RESULT-BIT-ARRAY is defined but never used.

; compiling (ASSERT (EQUAL # ...))
; compiling (DEFSTRUCT SOME-STRUCTURE ...)
; compiling (ASSERT (TYPEP # ...))
; compiling (DEFUN F1 ...)
; compiling (PRINT (MULTIPLE-VALUE-LIST #))
; compiling (DEFUN TRYTHIS ...)
; compiling (DEFUN GET-FOO-VAL ...)
; compiling (ASSERT (NOT #))
; compiling (LET (# #) ...)
; file: /«PKGBUILDDIR»/tests/compiler-1.impure-cload.lisp
; in: DEFUN BUG226
;     (TYPEP CONDITION RESULT)
; 
; caught WARNING:
;   undefined variable: CONDITION

; in: DEFMETHOD PERMANENTIZE (BUG166S)
;     (DENY0 (VOID? DATUM))
; 
; caught STYLE-WARNING:
;   undefined function: DENY0

; in: DEFUN BUG226
;     (EQ MY-RESULT :ERROR)
; 
; caught WARNING:
;   undefined variable: MY-RESULT

; in: DEFMETHOD PERMANENTIZE (BUG166S)
;     #'OBJS.STALE?
; 
; caught STYLE-WARNING:
;   undefined function: OBJS.STALE?

; in: DEFUN BUG226
;     (TYPEP CONDITION RESULT)
; 
; caught WARNING:
;   undefined variable: RESULT

; in: DEFMETHOD PERMANENTIZE (BUG166S)
;     (SOME #'STALE? KEY)
; --> LET BLOCK FLET BLOCK LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'STALE? #:G291)
; 
; caught STYLE-WARNING:
;   undefined function: STALE?

;     (UUSTK.ARGS-HASH->OBJ-ALIST UUSTK)
; 
; caught STYLE-WARNING:
;   undefined function: UUSTK.ARGS-HASH->OBJ-ALIST

;     (UUSTK.HASH->MEMOIZED-OBJS-LIST UUSTK)
; 
; caught STYLE-WARNING:
;   undefined function: UUSTK.HASH->MEMOIZED-OBJS-LIST

;     (VOID? DATUM)
; 
; caught STYLE-WARNING:
;   undefined function: VOID?
; 
; compilation unit finished
;   Undefined functions:
;     DENY0 OBJS.STALE? STALE? UUSTK.ARGS-HASH->OBJ-ALIST UUSTK.HASH->MEMOIZED-OBJS-LIST VOID?
;   Undefined variables:
;     CONDITION MY-RESULT RESULT
;   caught 13 WARNING conditions
;   caught 14 STYLE-WARNING conditions
;   printed 15 notes


; /«PKGBUILDDIR»/tests/compiler-1.impure-cload.fasl written
; compilation finished in 0:00:02.458
STYLE-WARNING: redefining COMMON-LISP-USER::BAR in DEFUN
STYLE-WARNING:
   Implicitly creating new generic function COMMON-LISP-USER::PERMANENTIZE.

(444 #*0000) 
(NIL T F1) 
Hi! (9 #<UNPRINTABLE instance of #<SB-KERNEL::UNDEFINED-CLASSOID MY-AWESOME-STRUCT> {52012CB1}>)
// Running /«PKGBUILDDIR»/tests/compiler-2.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/compiler-2.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DECLAIM (OPTIMIZE SPEED))
; compiling (LET (# # ...) ...)
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-2.impure-cload.lisp
; in: DEFUN FOO
;     (<= N 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (1- N)
; ==>
;   (- N 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN BAR ...)
; file: /«PKGBUILDDIR»/tests/compiler-2.impure-cload.lisp
; in: DEFUN BAR
;     (<= N 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (1- N)
; ==>
;   (- N 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN QUUX ...)
; file: /«PKGBUILDDIR»/tests/compiler-2.impure-cload.lisp
; in: DEFUN QUUX
;     (<= N 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> OR LET IF OR THE = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

;     (1- N)
; ==>
;   (- N 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN FROB ...)
; compiling (DEFUN TEST ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (ASSERT (EQUAL # ...))
; compiling (DEFUN BUBBLESORT ...)
; compiling (ASSERT-ERROR (BUBBLESORT # ...))
; compiling (DEFINE-SYMBOL-MACRO %TRASH% ...)
; compiling (ASSERT (EQ # ...))
; compiling (ASSERT (EQ # ...))
; compiling (ASSERT (SB-INT:INFO :SOURCE-LOCATION ...))
; compiling (LET NIL ...); 
; compilation unit finished
;   printed 15 notes


; /«PKGBUILDDIR»/tests/compiler-2.impure-cload.fasl written
; compilation finished in 0:00:00.279

WARNING: redefining macro %TRASH% to be a constant
3 // Running /«PKGBUILDDIR»/tests/compiler-3.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/compiler-3.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFUN MORE-FOO ...)
; compiling (DECLAIM (INLINE THING))
; compiling (DEFUN THING ...)
; compiling (DEFMACRO MORE-RANDOMNESS ...)
; compiling (DEFUN BORK ...)
; compiling (DEFUN COMPILE-FILE-POS-SHARP-DOT ...)
; compiling (DEFUN COMPILE-FILE-POS-EVAL-IN-MACRO ...)
; compiling (WITH-TEST (:NAME :COMPILE-FILE-LINE) ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFUN FOO-CHAR-MACRO ...)
; compiling (WITH-TEST (:NAME :COMPILE-FILE-STREAM-LINE-COLUMN) ...)

; /«PKGBUILDDIR»/tests/compiler-3.impure-cload.fasl written
; compilation finished in 0:00:00.346
::: Running :COMPILE-FILE-LINE
::: Success :COMPILE-FILE-LINE
::: Running :COMPILE-FILE-STREAM-LINE-COLUMN
::: Success :COMPILE-FILE-STREAM-LINE-COLUMN
// Running /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/compiler.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (LOAD "assertoid.lisp")
; compiling (LOAD "compiler-test-util.lisp")
; compiling (LOAD "test-util.lisp")
; compiling (USE-PACKAGE "ASSERTOID")
; compiling (DEFPACKAGE :BUG254 ...)
; compiling (IN-PACKAGE :BUG254)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFSTRUCT FOO ...); in: LAMBDA (#:WHOLE123 #:ENVIRONMENT124)
;     (LET* ((BUG254::VARIANT (CAR (CDR #:WHOLE123)))
;            (BUG254::LEXPR
;             (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :LEXPR #:KEYWORDS-126)
;                 (SB-KERNEL::LOOKUP-KEYWORD :LEXPR #:KEYWORDS-126)
;                 NIL))
;            (BUG254::EEXPR
;             (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :EEXPR #:KEYWORDS-126)
;                 (SB-KERNEL::LOOKUP-KEYWORD :EEXPR #:KEYWORDS-126)
;                 NIL)))
;       (BLOCK BUG254::DEFPROJECTION
;         (LET ()
;           `(DEFMETHOD BUG254::UU (#)
;              (LET #
;                #)))))
; 
; caught STYLE-WARNING:
;   The variable VARIANT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EEXPR is defined but never used.

; compiling (DEFPROJECTION H ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFPROJECTION H
;     (LENGTH REST)
; 
; 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.

;     (SETF (AREF BUG254::AVECNAME 0) (BUG254::BD (BUG254::H BUG254::SOUTH)))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
;                                    (SB-KERNEL:%CHECK-BOUND ARRAY
;                                                            (ARRAY-DIMENSION
;                                                             ARRAY 0)
;                                                            SB-INT:INDEX)
;                                    (THE T SB-C::NEW-VALUE))
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR T), not a SIMPLE-ARRAY.

;     (SETF (AREF BUG254::AVECNAME 1) (BUG254::BD (BUG254::H BUG254::EAST)))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; --> SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS TRULY-THE 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
;                                    (SB-KERNEL:%CHECK-BOUND ARRAY
;                                                            (ARRAY-DIMENSION
;                                                             ARRAY 0)
;                                                            SB-INT:INDEX)
;                                    (THE T SB-C::NEW-VALUE))
; 
; note: unable to
;   avoid runtime dispatch on array element type
; due to type uncertainty:
;   The first argument is a (VECTOR T), not a SIMPLE-ARRAY.

;     (FLET ((BUG254::BD (BUG254::X)
;              (BUG254::BREF BUG254::X BUG254::SCHED)))
;       (LET ((BUG254::AVECNAME (BUG254::GAFP)))
;         (DECLARE (TYPE (VECTOR T) BUG254::AVECNAME))
;         (MULTIPLE-VALUE-PROG1
;             (PROGN (SETF #) (SETF #) (SETF #) (BUG254::STUB BUG254::AVECNAME))
;           (BUG254::PAIP BUG254::AVECNAME))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; compiling (IN-PACKAGE :CL-USER)
; compiling (DELETE-PACKAGE :BUG254)
; compiling (DEFPACKAGE :BUG255 ...)
; compiling (IN-PACKAGE :BUG255)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *1*)
; compiling (DEFVAR *2*)
; compiling (DEFSTRUCT V ...)
; compiling (DEFSTRUCT W)
; compiling (DEFSTRUCT YAM ...)
; compiling (DEFSTRUCT UN ...)
; compiling (DEFSTRUCT (BOD #) ...)
; compiling (DEFSTRUCT (BAD #) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %UFM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %PU ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN %PU
;     (DEFUN BUG255::%PU (BUG255::PDS) BUG255::*2*)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BUG255::%PU
;         (BUG255::PDS)
;       (BLOCK BUG255::%PU BUG255::*2*))
; 
; caught STYLE-WARNING:
;   The variable PDS is defined but never used.

; compiling (DEFUN UU ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN UU
;     (FLET ((BUG255::PROJECT (BUG255::X)
;              (BUG255::FROB BUG255::X 0)))
;       (LET ((BUG255::AVECNAME BUG255::*1*))
;         (MULTIPLE-VALUE-PROG1 (PROGN (BUG255::%PU BUG255::AVECNAME))
;           (BUG255::FROB))))
; 
; note: deleting unused function
;   (FLET PROJECT :IN UU)

;     (BUG255::%UFM BUG255::V
;      (FLET ((BUG255::PROJECT (BUG255::X)
;               (BUG255::FROB BUG255::X 0)))
;        (LET ((BUG255::AVECNAME BUG255::*1*))
;          (MULTIPLE-VALUE-PROG1 (PROGN #) (BUG255::FROB)))))
; 
; note: deleting unreachable code

;     (DEFUN BUG255::UU (BUG255::YAM)
;       (LET ((BUG255::V (BUG255::YAM-V BUG255::AZ)))
;         (BUG255::%UFM BUG255::V
;          (FLET (#)
;            (LET #
;              #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BUG255::UU
;         (BUG255::YAM)
;       (BLOCK BUG255::UU
;         (LET ((BUG255::V #))
;           (BUG255::%UFM BUG255::V
;            (FLET #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable YAM is defined but never used.

;     (BUG255::%UFM BUG255::V
;      (FLET ((BUG255::PROJECT (BUG255::X)
;               (BUG255::FROB BUG255::X 0)))
;        (LET ((BUG255::AVECNAME BUG255::*1*))
;          (MULTIPLE-VALUE-PROG1 (PROGN #) (BUG255::FROB)))))
; 
; caught WARNING:
;   Derived type of V is
;     (VALUES (OR V NULL) &OPTIONAL),
;   conflicting with its asserted type
;     (OR W BAD).
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; compiling (IN-PACKAGE :CL-USER)
; compiling (DELETE-PACKAGE :BUG255)
; compiling (DEFPACKAGE :BUG148 ...)
; compiling (IN-PACKAGE :BUG148)
; compiling (DEFVAR *THING*)
; compiling (DEFVAR *ZOOM*)
; compiling (DEFSTRUCT FOO ...)
; compiling (DEFUN %ZEEP ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN %ZEEP
;     (LABELS ((BUG148::KIDIFY1 (BUG148::KID)
;                )
;              (BUG148::KID-FROB (BUG148::KID)
;                (IF BUG148::*THING*
;                    (SETF #)
;                    (BUG148::KIDIFY1 BUG148::KID))))
;       (DECLARE (INLINE BUG148::KID-FROB))
;       (MAP NIL #'BUG148::KID-FROB
;            (THE SIMPLE-VECTOR (BUG148::FOO-BAR BUG148::PERD))))
; 
; caught STYLE-WARNING:
;   The variable KID is defined but never used.

; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFVAR *FOO*)
; compiling (DEFVAR *BAR*)
; compiling (DEFUN U-B-SRA ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN U-B-SRA
;     (BUG148::AD.FROB BUG148::AD0)
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

;     (MAP NIL #'BUG148::AD.FROB (THE (VECTOR T) BUG148::*BAR*))
; --> TRULY-THE SB-KERNEL:%MAP LET SB-KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION DO BLOCK LET TAGBODY 
; --> TAGBODY LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::FUN)
;                   (LOCALLY
;                    (DECLARE (OPTIMIZE (SB-C::INSERT-ARRAY-BOUNDS-CHECKS 0)))
;                    (AREF #:DATA710
;                          (TRULY-THE SB-INT:INDEX (+ SB-INT:INDEX #:START711)))))
; 
; note: couldn't inline expand because expansion calls this LET-converted local function:
;   (LABELS C.FROB :IN U-B-SRA)

;     (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB BUG148::B))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((BUG148::B (CAR #:N-LIST730)))
;     (SETQ #:N-LIST730 (CDR #:N-LIST730))
;     (TAGBODY (BUG148::C.FROB BUG148::B)))
; 
; note: deleting unused function
;   (LET ((B (CAR #:N-LIST730)))
;     )

; --> BLOCK 
; ==>
;   (LET ((#:N-LIST730 BUG148::*BAR*))
;     (TAGBODY
;      #:START731
;       (UNLESS (ENDP #:N-LIST730)
;         (LET (#)
;           (SETQ #)
;           (TAGBODY #))
;         (GO #:START731))))
; 
; note: deleting unused function
;   (LET ((#:N-LIST730 *BAR*))
;     )

;     (MAP NIL #'BUG148::AD.FROB (THE (VECTOR T) BUG148::*BAR*))
; --> TRULY-THE SB-KERNEL:%MAP LET SB-KERNEL:WITH-ARRAY-DATA LET LET LET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION DO BLOCK LET TAGBODY 
; --> TAGBODY LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::FUN)
;                   (LOCALLY
;                    (DECLARE (OPTIMIZE (SB-C::INSERT-ARRAY-BOUNDS-CHECKS 0)))
;                    (AREF #:DATA710
;                          (TRULY-THE SB-INT:INDEX (+ SB-INT:INDEX #:START711)))))
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE (LABELS AD.FROB :IN U-B-SRA))

;     (DEFUN BUG148::U-B-SRA
;            (BUG148::X BUG148::R BUG148::AD0
;             &OPTIONAL BUG148::AD1
;             &REST BUG148::AD-LIST)
;       (LABELS ((BUG148::C.FROB (BUG148::C0)
;                  (LET #
;                    #))
;                (BUG148::AD.FROB (BUG148::AD)
;                  (IF BUG148::*FOO*
;                      #
;                      #)))
;         (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB))
;         (BUG148::AD.FROB BUG148::AD0)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BUG148::U-B-SRA
;         (BUG148::X BUG148::R BUG148::AD0 &OPTIONAL BUG148::AD1 &REST
;          BUG148::AD-LIST)
;       (BLOCK BUG148::U-B-SRA
;         (LABELS ((BUG148::C.FROB #
;                    #)
;                  (BUG148::AD.FROB #
;                    #))
;           (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB))
;           (BUG148::AD.FROB BUG148::AD0))))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable R is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AD1 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AD-LIST is defined but never used.

;     (LABELS ((BUG148::C.FROB (BUG148::C0)
;                (LET ()
;                  (WHEN BUG148::*FOO* #)))
;              (BUG148::AD.FROB (BUG148::AD)
;                (IF BUG148::*FOO*
;                    (MAP NIL #'BUG148::AD.FROB #)
;                    (DOLIST # #))))
;       (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB))
;       (BUG148::AD.FROB BUG148::AD0))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; compiling (DEFUN BUG148-3 ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN BUG148-3
;     (BUG148::C.FROB)
; 
; note: *INLINE-EXPANSION-LIMIT* (200) was exceeded, probably trying to
;   inline a recursive function.

;     (BUG148::AD.FROB BUG148::AD0)
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

;     (MAPC #'BUG148::AD.FROB BUG148::*BAR*)
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY FUNCALL 
; --> SB-C::%FUNCALL 
; ==>
;   (BUG148::AD.FROB (CAR #:G781))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G802))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G809))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G830))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G837))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G858))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G865))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G886))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G893))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G914))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G921))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G942))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G949))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G970))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G977))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G998))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1005))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1026))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1033))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1054))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1061))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1082))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1089))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1110))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1117))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1138))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1145))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1166))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1173))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1194))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1201))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1222))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1229))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1250))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1257))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1278))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1285))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1306))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1313))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1334))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1341))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1362))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1369))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1390))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1397))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1418))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1425))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1446))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1453))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

;     (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1478)))
;     (SETQ #:N-LIST1478 (CDR #:N-LIST1478))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1457)))
;     (SETQ #:N-LIST1457 (CDR #:N-LIST1457))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1450)))
;     (SETQ #:N-LIST1450 (CDR #:N-LIST1450))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1429)))
;     (SETQ #:N-LIST1429 (CDR #:N-LIST1429))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1422)))
;     (SETQ #:N-LIST1422 (CDR #:N-LIST1422))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1401)))
;     (SETQ #:N-LIST1401 (CDR #:N-LIST1401))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1394)))
;     (SETQ #:N-LIST1394 (CDR #:N-LIST1394))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1373)))
;     (SETQ #:N-LIST1373 (CDR #:N-LIST1373))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1366)))
;     (SETQ #:N-LIST1366 (CDR #:N-LIST1366))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1345)))
;     (SETQ #:N-LIST1345 (CDR #:N-LIST1345))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1338)))
;     (SETQ #:N-LIST1338 (CDR #:N-LIST1338))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1317)))
;     (SETQ #:N-LIST1317 (CDR #:N-LIST1317))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1310)))
;     (SETQ #:N-LIST1310 (CDR #:N-LIST1310))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1289)))
;     (SETQ #:N-LIST1289 (CDR #:N-LIST1289))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1282)))
;     (SETQ #:N-LIST1282 (CDR #:N-LIST1282))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1261)))
;     (SETQ #:N-LIST1261 (CDR #:N-LIST1261))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1254)))
;     (SETQ #:N-LIST1254 (CDR #:N-LIST1254))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1233)))
;     (SETQ #:N-LIST1233 (CDR #:N-LIST1233))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1226)))
;     (SETQ #:N-LIST1226 (CDR #:N-LIST1226))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1205)))
;     (SETQ #:N-LIST1205 (CDR #:N-LIST1205))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1198)))
;     (SETQ #:N-LIST1198 (CDR #:N-LIST1198))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1177)))
;     (SETQ #:N-LIST1177 (CDR #:N-LIST1177))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1170)))
;     (SETQ #:N-LIST1170 (CDR #:N-LIST1170))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1149)))
;     (SETQ #:N-LIST1149 (CDR #:N-LIST1149))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1142)))
;     (SETQ #:N-LIST1142 (CDR #:N-LIST1142))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1121)))
;     (SETQ #:N-LIST1121 (CDR #:N-LIST1121))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1114)))
;     (SETQ #:N-LIST1114 (CDR #:N-LIST1114))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1093)))
;     (SETQ #:N-LIST1093 (CDR #:N-LIST1093))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1086)))
;     (SETQ #:N-LIST1086 (CDR #:N-LIST1086))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1065)))
;     (SETQ #:N-LIST1065 (CDR #:N-LIST1065))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1058)))
;     (SETQ #:N-LIST1058 (CDR #:N-LIST1058))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1037)))
;     (SETQ #:N-LIST1037 (CDR #:N-LIST1037))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1030)))
;     (SETQ #:N-LIST1030 (CDR #:N-LIST1030))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1009)))
;     (SETQ #:N-LIST1009 (CDR #:N-LIST1009))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1002)))
;     (SETQ #:N-LIST1002 (CDR #:N-LIST1002))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST981)))
;     (SETQ #:N-LIST981 (CDR #:N-LIST981))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST974)))
;     (SETQ #:N-LIST974 (CDR #:N-LIST974))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST953)))
;     (SETQ #:N-LIST953 (CDR #:N-LIST953))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST946)))
;     (SETQ #:N-LIST946 (CDR #:N-LIST946))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST925)))
;     (SETQ #:N-LIST925 (CDR #:N-LIST925))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST918)))
;     (SETQ #:N-LIST918 (CDR #:N-LIST918))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST897)))
;     (SETQ #:N-LIST897 (CDR #:N-LIST897))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST890)))
;     (SETQ #:N-LIST890 (CDR #:N-LIST890))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST869)))
;     (SETQ #:N-LIST869 (CDR #:N-LIST869))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST862)))
;     (SETQ #:N-LIST862 (CDR #:N-LIST862))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST841)))
;     (SETQ #:N-LIST841 (CDR #:N-LIST841))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST834)))
;     (SETQ #:N-LIST834 (CDR #:N-LIST834))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST813)))
;     (SETQ #:N-LIST813 (CDR #:N-LIST813))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST806)))
;     (SETQ #:N-LIST806 (CDR #:N-LIST806))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST785)))
;     (SETQ #:N-LIST785 (CDR #:N-LIST785))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

;     (MAPC #'BUG148::AD.FROB BUG148::*BAR*)
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY FUNCALL 
; --> SB-C::%FUNCALL 
; ==>
;   (BUG148::AD.FROB (CAR #:G772))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G788))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G795))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G816))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G823))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G844))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G851))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G872))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G879))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G900))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G907))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G928))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G935))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G956))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G963))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G984))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G991))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1012))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1019))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1040))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1047))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1068))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1075))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1096))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1103))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1124))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1131))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1152))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1159))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1180))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1187))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1208))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1215))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1236))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1243))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1264))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1271))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1292))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1299))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1320))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1327))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1348))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1355))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1376))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1383))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1404))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1411))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1432))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1439))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; ==>
;   (BUG148::AD.FROB (CAR #:G1460))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

;     (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1471)))
;     (SETQ #:N-LIST1471 (CDR #:N-LIST1471))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1464)))
;     (SETQ #:N-LIST1464 (CDR #:N-LIST1464))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1443)))
;     (SETQ #:N-LIST1443 (CDR #:N-LIST1443))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1436)))
;     (SETQ #:N-LIST1436 (CDR #:N-LIST1436))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1415)))
;     (SETQ #:N-LIST1415 (CDR #:N-LIST1415))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1408)))
;     (SETQ #:N-LIST1408 (CDR #:N-LIST1408))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1387)))
;     (SETQ #:N-LIST1387 (CDR #:N-LIST1387))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1380)))
;     (SETQ #:N-LIST1380 (CDR #:N-LIST1380))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1359)))
;     (SETQ #:N-LIST1359 (CDR #:N-LIST1359))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1352)))
;     (SETQ #:N-LIST1352 (CDR #:N-LIST1352))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1331)))
;     (SETQ #:N-LIST1331 (CDR #:N-LIST1331))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1324)))
;     (SETQ #:N-LIST1324 (CDR #:N-LIST1324))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1303)))
;     (SETQ #:N-LIST1303 (CDR #:N-LIST1303))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1296)))
;     (SETQ #:N-LIST1296 (CDR #:N-LIST1296))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1275)))
;     (SETQ #:N-LIST1275 (CDR #:N-LIST1275))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1268)))
;     (SETQ #:N-LIST1268 (CDR #:N-LIST1268))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1247)))
;     (SETQ #:N-LIST1247 (CDR #:N-LIST1247))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1240)))
;     (SETQ #:N-LIST1240 (CDR #:N-LIST1240))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1219)))
;     (SETQ #:N-LIST1219 (CDR #:N-LIST1219))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1212)))
;     (SETQ #:N-LIST1212 (CDR #:N-LIST1212))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1191)))
;     (SETQ #:N-LIST1191 (CDR #:N-LIST1191))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1184)))
;     (SETQ #:N-LIST1184 (CDR #:N-LIST1184))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1163)))
;     (SETQ #:N-LIST1163 (CDR #:N-LIST1163))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1156)))
;     (SETQ #:N-LIST1156 (CDR #:N-LIST1156))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1135)))
;     (SETQ #:N-LIST1135 (CDR #:N-LIST1135))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1128)))
;     (SETQ #:N-LIST1128 (CDR #:N-LIST1128))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1107)))
;     (SETQ #:N-LIST1107 (CDR #:N-LIST1107))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1100)))
;     (SETQ #:N-LIST1100 (CDR #:N-LIST1100))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1079)))
;     (SETQ #:N-LIST1079 (CDR #:N-LIST1079))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1072)))
;     (SETQ #:N-LIST1072 (CDR #:N-LIST1072))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1051)))
;     (SETQ #:N-LIST1051 (CDR #:N-LIST1051))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1044)))
;     (SETQ #:N-LIST1044 (CDR #:N-LIST1044))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1023)))
;     (SETQ #:N-LIST1023 (CDR #:N-LIST1023))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST1016)))
;     (SETQ #:N-LIST1016 (CDR #:N-LIST1016))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST995)))
;     (SETQ #:N-LIST995 (CDR #:N-LIST995))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST988)))
;     (SETQ #:N-LIST988 (CDR #:N-LIST988))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST967)))
;     (SETQ #:N-LIST967 (CDR #:N-LIST967))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST960)))
;     (SETQ #:N-LIST960 (CDR #:N-LIST960))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST939)))
;     (SETQ #:N-LIST939 (CDR #:N-LIST939))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST932)))
;     (SETQ #:N-LIST932 (CDR #:N-LIST932))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST911)))
;     (SETQ #:N-LIST911 (CDR #:N-LIST911))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST904)))
;     (SETQ #:N-LIST904 (CDR #:N-LIST904))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST883)))
;     (SETQ #:N-LIST883 (CDR #:N-LIST883))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST876)))
;     (SETQ #:N-LIST876 (CDR #:N-LIST876))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST855)))
;     (SETQ #:N-LIST855 (CDR #:N-LIST855))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST848)))
;     (SETQ #:N-LIST848 (CDR #:N-LIST848))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST827)))
;     (SETQ #:N-LIST827 (CDR #:N-LIST827))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST820)))
;     (SETQ #:N-LIST820 (CDR #:N-LIST820))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST799)))
;     (SETQ #:N-LIST799 (CDR #:N-LIST799))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST792)))
;     (SETQ #:N-LIST792 (CDR #:N-LIST792))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; ==>
;   (LET ((BUG148::B (CAR #:N-LIST776)))
;     (SETQ #:N-LIST776 (CDR #:N-LIST776))
;     (TAGBODY (BUG148::C.FROB)))
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

;     (LABELS ((BUG148::C.FROB ()
;                )
;              (BUG148::AD.FROB (BUG148::AD)
;                (IF BUG148::*FOO*
;                    (MAPC #'BUG148::AD.FROB BUG148::*BAR*)
;                    (DOLIST # #))))
;       (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB))
;       (BUG148::AD.FROB BUG148::AD0))
; 
; caught STYLE-WARNING:
;   The variable AD is defined but never used.

; compiling (DEFUN BUG148-4 ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN BUG148-4
;     (* 7 BUG148::X)
; 
; 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
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to
;   associate */* of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate *// of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     #'PRINT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (ASSERT (EQUAL # ...))
; compiling (IN-PACKAGE :CL-USER)
; compiling (DELETE-PACKAGE :BUG148)
; compiling (DEFPACKAGE :BUG258 ...)
; compiling (IN-PACKAGE :BUG258)
; compiling (DEFUN U-B-SRA ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN U-B-SRA
;     (1- BUG258::X)
; ==>
;   (- BUG258::X 1)
; 
; 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 static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     #'PRINT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (ASSERT (EQUAL # ...))
; compiling (IN-PACKAGE :CL-USER)
; compiling (DELETE-PACKAGE :BUG258)
; compiling (DEFUN BUG233A ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN BUG233A
;     (FUNCALL (EVAL ''LIST) Y (+ Y 2.0d0) (* Y 3.0d0))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (EVAL ''LIST))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (+ X 1.0d0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic

;     (FUNCALL (EVAL ''LIST) Y (+ Y 2.0d0) (* Y 3.0d0))
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (EVAL ''LIST)) Y
;                   (+ Y 2.0d0) (* Y 3.0d0))
; 
; note: doing float to pointer coercion (cost 13)
; 
; note: doing float to pointer coercion (cost 13)

; compiling (ASSERT-ERROR (BUG233A 4) ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: ASSERT-ERROR (BUG233A 4)
;     (ASSERT-ERROR (BUG233A 4) TYPE-ERROR)
; --> ASSERT TAGBODY TAGBODY LET NTH-VALUE MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL IGNORE-ERRORS HANDLER-CASE SB-INT:DX-FLET FLET BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER EQL IF 
; ==>
;   (EQL #:OBJECT1537 '3.0d0)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.

; compiling (DEFUN BUG145B ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN BUG145B
;     (SQRT (LOG (RANDOM 1.0d0)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR (DOUBLE-FLOAT 0.0d0 0.0d0) (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (+ X (SQRT (LOG (RANDOM 1.0d0))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR (DOUBLE-FLOAT 0.0d0 0.0d0)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The second argument is a (OR (DOUBLE-FLOAT 0.0d0 0.0d0)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0))
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

;     (SQRT (LOG (RANDOM 1.0d0)))
; 
; note: doing float to pointer coercion (cost 13)

; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (ABS C)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (- (LOGIOR (ABS (- (+ B #))) (LOGCOUNT (LOGEQV (MAX # 0) -4))) D)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (LOGANDC1 A 250775)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       etc.

;     (ABS C)
; 
; note: forced to do full call
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                  &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                  &REST T).

;     (- (LOGIOR (ABS (- (+ B #))) (LOGCOUNT (LOGEQV (MAX # 0) -4))) D)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, 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 second argument is a T, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; compiling (DEFUN #:FOO ...)
; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (1+ X)
; ==>
;   (+ X 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (LABELS ((%F14 ()
;                (MOD A (MAX 76 8))))
;       B)
; 
; note: deleting unused function
;   (LABELS %F14 :IN #:FOO)

;     (IF T
;         (RETURN-FROM B2 1582)
;         B)
; ==>
;   B
; 
; note: deleting unreachable code

;     (MOD C
;          (MIN -49
;               (IF T
;                   (RETURN-FROM B2 1582)
;                   B)))
; 
; note: deleting unreachable code

;     (LOGANDC1
;      (BLOCK B2
;        (MOD C
;             (MIN -49
;                  (IF T
;                      #
;                      B))))
;      (LABELS ((%F14 ()
;                 (MOD A #)))
;        B))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (INTEGER -5029571274946 48793670), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 44) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The second argument is a (INTEGER -5029571274946 48793670), not a (UNSIGNED-BYTE
;                                                                          32).
;       The result is a (VALUES (SIGNED-BYTE 44) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (- (MOD 1020122 (MIN -49 -420))
;        (LOGANDC1 (BLOCK B2 (MOD C (MIN -49 #)))
;                  (LABELS ((%F14 #
;                             #))
;                    B)))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (SIGNED-BYTE 44), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8796093022265 8796093022150) &OPTIONAL), not a (VALUES
;                                                                                         FIXNUM
;                                                                                         &REST
;                                                                                         T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (SIGNED-BYTE 44), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8796093022265 8796093022150) &OPTIONAL), not a (VALUES
;                                                                                         (SIGNED-BYTE
;                                                                                          32)
;                                                                                         &REST
;                                                                                         T).

;     (DEFUN #:FOO (A B C)
;       (DECLARE (TYPE (INTEGER -5498929 389890) A)
;                (TYPE (INTEGER -5029571274946 48793670) B)
;                (TYPE (INTEGER 9221496 260169518304) C)
;                (IGNORABLE A B C)
;                (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
;       (- (MOD 1020122 (MIN -49 -420))
;          (LOGANDC1 (BLOCK B2 (MOD C #))
;                    (LABELS (#)
;                      B))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF AND THE <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -5029571274946), not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER -5029571274946), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       etc.

; compiling (DEFSTRUCT LINE ...)
; compiling (DEFUN UPDATE-WINDOW-IMAG ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN UPDATE-WINDOW-IMAG
;     #'(LAMBDA (&OPTIONAL G2740 G2741 &REST G2742)
;         (DECLARE (IGNORE G2742))
;         (CATCH 'FOO (VALUES (SETQ STRING G2740) (SETQ UNDERHANG G2741))))
; 
; note: deleting unreachable code

;     'FOO
; 
; note: deleting unreachable code

;     (SETF (DIS-LINE-OLD-CHARS CC) CHARS)
; --> LET* 
; ==>
;   CHARS
; 
; note: deleting unreachable code

;     (LINE-%CHARS LINE)
; --> SB-KERNEL:%INSTANCE-REF 
; ==>
;   (THE LINE LINE)
; 
; caught WARNING:
;   Derived type of LINE is
;     (VALUES NULL &OPTIONAL),
;   conflicting with its asserted type
;     LINE.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (FLET ((%F7 ()
;              B))
;       -1)
; 
; note: deleting unused function
;   (FLET %F7 :IN #:FOO)

;     (FLET ((%F11 ()
;              (BLOCK B6
;                (LET #
;                  #))))
;       A)
; 
; note: deleting unused function
;   (FLET %F11 :IN #:FOO)

; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (FLET ((%F15 ()
;              (BLOCK B8
;                (LET #
;                  #))))
;       C)
; 
; note: deleting unused function
;   (FLET %F15 :IN #:FOO)

; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (* C 12)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -5945502333 12668542), not a FIXNUM.
;       The result is a (VALUES (INTEGER -71346027996 152022504) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -5945502333 12668542), not a FIXNUM.
;       The result is a (VALUES (INTEGER -71346027996 152022504) &OPTIONAL), not a (VALUES
;                                                                                   FIXNUM
;                                                                                   &REST
;                                                                                   T).
;       etc.

;     (DEFUN #:FOO (C)
;       (DECLARE (TYPE (INTEGER -5945502333 12668542) C)
;                (OPTIMIZE (SPEED 3)))
;       (LET ((V2 (* C 12)))
;         (-
;          (MAX
;           (IF #
;               -26479
;               V2)
;           (DEPOSIT-FIELD 311 # #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND IF AND THE <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -5945502333), not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER -5945502333), not a (SIGNED-BYTE 32).
;       etc.

; compiling (DEFUN #:FOO ...)
; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (%F8)
; 
; note: deleting unreachable code

;     (%F5)
; 
; note: deleting unreachable code

;     (FLET ((%F5 ()
;              (IF (< C A)
;                  (RETURN-FROM %F5 #)
;                  C)))
;       (IF (<= 11 C)
;           (%F5)
;           C))
; 
; note: deleting unreachable code

;     (< C A)
; ==>
;   C
; 
; note: deleting unreachable code

;     (= -4857 A)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (IF (< C A)
;         (RETURN-FROM %F5
;           (IF (= -4857 A)
;               (%F8)
;               (%F8)))
;         C)
; ==>
;   C
; 
; note: deleting unreachable code

;     (FLET ((%F8 ()
;              C))
;       (FLET ((%F5 ()
;                (IF #
;                    #
;                    C)))
;         (IF (<= 11 C)
;             (%F5)
;             C)))
; --> BLOCK 
; ==>
;   C
; 
; note: deleting unreachable code

; compiling (DEFUN LISP-ERROR-ERROR-HANDLER ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN LISP-ERROR-ERROR-HANDLER
;     (INVOKE-DEBUGGER CONDITION)
; ==>
;   CONDITION
; 
; note: deleting unreachable code

; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (BLOCK U
;       (LABELS ((BAR (X &OPTIONAL #)
;                  (LIST X Y #)))
;         (LIST (BAR 1) (BAR 1 2))))
; 
; note: deleting unreachable code

;     (LABELS ((BAR (X &OPTIONAL (Y #))
;                (LIST X Y (APPLY #'BAR #))))
;       (LIST (BAR 1) (BAR 1 2)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (1+ X)
; --> + 
; ==>
;   X
; 
; note: deleting unreachable code

; compiling (DEFUN #:FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN #:FOO
;     (%F2)
; 
; note: deleting unreachable code

; compiling (DEFUN BUG214A1 ...)
; compiling (DEFUN BUG214A2 ...)
; compiling (DEFUN |214B| ...)
; compiling (DEFUN #:FAILURE-TESTCASE ...)
; compiling (DEFUN VALUES-PRODUCER ...)
; compiling (DEFUN VALUES-CONSUMER ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN VALUES-CONSUMER
;     (FUNCALL FN)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FN)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

; compiling (LET (#) ...)
; compiling (DEFUN LOTSO-VALUES ...)
; compiling (DEFUN SRCTRAN-LISP1-1 ...)
; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: ASSERT (EQL (FUNCALL (EVAL #'SRCTRAN-LISP1-1) #'IDENTITY) 1)
;     (FUNCALL (EVAL #'SRCTRAN-LISP1-1) #'IDENTITY)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (EVAL #'SRCTRAN-LISP1-1))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

; compiling (WITHOUT-PACKAGE-LOCKS (DEFVAR CAAR))
; compiling (DEFUN SRCTRAN-LISP1-2 ...)
; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: ASSERT (EQL (FUNCALL (EVAL #'SRCTRAN-LISP1-2) #'IDENTITY) 1)
;     (FUNCALL (EVAL #'SRCTRAN-LISP1-2) #'IDENTITY)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (EVAL #'SRCTRAN-LISP1-2))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

; compiling (DEFUN BUG262-RETURN-FROM ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN BUG262-RETURN-FROM
;     (LABELS ((FOO-A (Z)
;                (RETURN-FROM BUG262-RETURN-FROM Z))
;              (FOO-B (Z)
;                (FOO-A Z)))
;       (DECLARE (INLINE FOO-A))
;       (FOO-A X))
; 
; note: deleting unused function
;   (LABELS FOO-B :IN BUG262-RETURN-FROM)

;     (FOO-A X)
; 
; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #<SB-C::CTRAN 1 {51FF5999}>.
; 
; note: deleting unused function
;   (SB-C::LOCAL-INLINE (LABELS FOO-A :IN BUG262-RETURN-FROM))

;     (DEFUN BUG262-RETURN-FROM (X &AUX (Y NIL))
;       (LABELS ((FOO-A (Z)
;                  (RETURN-FROM BUG262-RETURN-FROM Z))
;                (FOO-B (Z)
;                  (FOO-A Z)))
;         (DECLARE (INLINE FOO-A))
;         (FOO-A X)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BUG262-RETURN-FROM
;         (X &AUX (Y NIL))
;       (BLOCK BUG262-RETURN-FROM
;         (LABELS ((FOO-A #
;                    #)
;                  (FOO-B #
;                    #))
;           (DECLARE (INLINE FOO-A))
;           (FOO-A X))))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

; compiling (DEFUN ISIEVE ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN ISIEVE
;     (= (SVREF VEC I) 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.

;     (INCF ACC)
; --> SETQ THE 
; ==>
;   (+ 1 ACC)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (* I I)
; 
; note: forced to do static-fun Two-arg-* (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES (INTEGER 4 288230370783002649) &OPTIONAL), not a (VALUES
;                                                                                 FIXNUM
;                                                                                 &REST
;                                                                                 T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The result is a (VALUES (INTEGER 4 288230370783002649) &OPTIONAL), not a (VALUES
;                                                                                 (UNSIGNED-BYTE
;                                                                                  32)
;                                                                                 &REST
;                                                                                 T).
;       etc.

;     (>= J NUM)
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER 4 288230370783002649), not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a (INTEGER 4 288230370783002649), not a (SIGNED-BYTE
;                                                                      32).
;       etc.

;     (INCF ACC)
; --> SETQ THE 
; ==>
;   (+ 1 ACC)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) 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 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).
;       etc.

;     (DO ((J (* I I) (+ J I))) ((>= J NUM) 'DONE) (SETF (SVREF VEC J) 1))
; --> BLOCK LET TAGBODY PSETQ PROGN 
; ==>
;   (SETQ J (+ J I))
; 
; note: doing signed word to integer coercion (cost 20) to J

; compiling (ASSERT (= # ...))
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: ASSERT (= (ISIEVE 46349) 4792)
;     (ASSERT (= (ISIEVE 46349) 4792))
; --> TAGBODY TAGBODY LET WHEN IF 
; ==>
;   (= #:TEMP1903 4792)
; 
; 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.

; compiling (LET (#) ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: LET ((F (GENSYM)))
;     (1+ X)
; ==>
;   (+ X 1)
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (LET (#) ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: LET ((X (COERCE '(1 11) 'VECTOR)))
;     (INCF (AREF X 0))
; --> LET* 
; ==>
;   (+ 1 (AREF #:X1930 0))
; 
; 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
;   associate +/+ of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/- of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (LOOP WITH ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: LOOP WITH
;     (FUNCALL F V1 V2)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN F)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (AREF (FUNCALL F V1 V2) 0)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (- 1 (AREF (FUNCALL F V1 V2) 0))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (ASSERT (EQUAL COMPILED-RES REAL-RES))
; --> TAGBODY LET WHEN IF EQUAL EQL IF 
; ==>
;   (EQL SB-C::X SB-C::Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, 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 NUMBER, not a DOUBLE-FLOAT.

;     (- 1 (AREF (FUNCALL F V1 V2) 0))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, 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 second argument is a T, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (ASSERT (EQUAL COMPILED-RES REAL-RES))
; --> TAGBODY LET WHEN IF EQUAL EQL IF 
; ==>
;   (EQL SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Eql (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; compiling (LET* (# # ...) ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in:
;      LET* ((V #*0011)
;        (FORM
;         `(LAMBDA ()
;            (LET (#)
;              (SETF #)
;              (AREF V 0))))
;        (COMPILED-RES (FUNCALL (COMPILE NIL FORM)))
;        (REAL-RES (- 1 (AREF (FUNCALL # V) 0))))
;     (FUNCALL (EVAL #'BIT-NOT) V)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (EVAL #'BIT-NOT))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; because:
;   not known to be a function

;     (AREF (FUNCALL (EVAL #'BIT-NOT) V) 0)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (- 1 (AREF (FUNCALL (EVAL #'BIT-NOT) V) 0))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (ASSERT (EQUAL COMPILED-RES REAL-RES))
; --> TAGBODY LET WHEN IF EQUAL EQL IF 
; ==>
;   (EQL SB-C::X SB-C::Y)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, 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 NUMBER, not a DOUBLE-FLOAT.

;     (- 1 (AREF (FUNCALL (EVAL #'BIT-NOT) V) 0))
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, 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 second argument is a T, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (ASSERT (EQUAL COMPILED-RES REAL-RES))
; --> TAGBODY LET WHEN IF EQUAL EQL IF 
; ==>
;   (EQL SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Eql (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; compiling (DEFVAR *HANNU-TRAP* ...)
; compiling (PROGV (QUOTE #) ...)
; compiling (ASSERT (NOT *HANNU-TRAP*))
; compiling (LET* (# # ...) ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN GENERATE-PRIMES
;     (> CANDIDATE REQUIRED)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

; in: DEFUN PRIME-P
;     (SQRT N)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The result is a (VALUES
;                    (OR (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0))
;                        (SINGLE-FLOAT (0.0)) (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The result is a (VALUES
;                    (OR (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0))
;                        (SINGLE-FLOAT (0.0)) (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (TRUNCATE (SQRT N))
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT (0.0)) (MEMBER 0.0d0 0.0)
;                               (DOUBLE-FLOAT (0.0d0))), not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT (0.0)) (MEMBER 0.0d0 0.0)
;                               (DOUBLE-FLOAT (0.0d0))), not a DOUBLE-FLOAT.

;     (> PRIME SQRT-N)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (MOD N PRIME)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a SINGLE-FLOAT.
;   The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.
;   The second argument is a REAL, not a (OR DOUBLE-FLOAT SINGLE-FLOAT INTEGER).
; 
; note: unable to
;   convert division by 2^k to shift
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.
;   The second argument is a REAL, not a INTEGER.

; --> LET IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB-C::DIVISOR 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (ZEROP (MOD N PRIME))
; ==>
;   (= (MOD N PRIME) 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN NEXT-CANDIDATE
;     (+ CANDIDATE INCREMENT)
; 
; 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).

; in: DEFUN LARGEST-PRIME-SO-FAR
;     (1- COUNT)
; ==>
;   (- COUNT 1)
; 
; note: forced to do static-fun Two-arg-- (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

; in: DEFUN ADD-PRIME
;     (INCF COUNT)
; --> SETQ THE 
; ==>
;   (+ 1 COUNT)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       etc.

; in: DEFUN NEXT-CANDIDATE
;     (+ CANDIDATE INCREMENT)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, 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 T, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; in: DEFUN PRIME-P
;     (DOTIMES (I COUNT)
;       (LET ((PRIME (AREF PRIME-TABLE I)))
;         (WHEN (> PRIME SQRT-N) (RETURN-FROM PRIME-P T))
;         (WHEN (ZEROP (MOD N PRIME)) (RETURN-FROM PRIME-P NIL))))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (> PRIME SQRT-N)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (MOD N PRIME)
; --> LET IF AND IF AND THE IF MINUSP 
; ==>
;   (< SB-C::DIVISOR 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

; ==>
;   (< NUMBER 0)
; 
; note: forced to do static-fun Two-arg-< (cost 53)
;       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.

; --> LET IF AND IF AND THE IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       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.

; --> LET IF 
; ==>
;   (+ REM SB-C::DIVISOR)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       etc.

; in: DEFUN GENERATE-PRIMES
;     (> CANDIDATE REQUIRED)
; 
; note: forced to do static-fun Two-arg-> (cost 53)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       etc.

; compiling (DEFVAR *A* ...)
; compiling (SETF *A* ...)
; compiling (DEFVAR *FOO-1* ...)
; compiling (DEFVAR *FOO-2* ...)
; compiling (DEFUN FOO ...)
; compiling (FOO)
; compiling (DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST-1 ...)
; compiling (DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST-2 ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN LOAD-TIME-VALUE-TYPE-DERIVATION-TEST-2
;     (+ (OR *PRINT-LENGTH* 0) 10)
; 
; note: forced to do static-fun Two-arg-+ (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 10) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 10) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

; compiling (DEFUN LOAD-TIME-VALUE-AUTO-READ-ONLY-P ...)
; compiling (DEFUN LOAD-TIME-VALUE-BORING ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (DEFUN REGRESSION-1.0.29.54 ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: DEFUN REGRESSION-1.0.29.54
;     (THE FIXNUM (EVAL 1))
; 
; note: type assertion too complex to check:
;  (VALUES FIXNUM &REST T).

;     (DEFUN REGRESSION-1.0.29.54 ()
;       (LOGIOR (1+ MOST-POSITIVE-FIXNUM)
;               (LOAD-TIME-VALUE (THE FIXNUM (EVAL 1)) T)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA REGRESSION-1.0.29.54
;         NIL
;       (BLOCK REGRESSION-1.0.29.54
;         (LOGIOR (1+ MOST-POSITIVE-FIXNUM) (LOAD-TIME-VALUE (THE FIXNUM #) T))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (WITH-TEST (:NAME :REGRESSION-1.0.29.54) ...)
; compiling (DEFUN MV-CALL-REGRESSION-1.0.43.57-FOO ...)
; compiling (DEFUN MV-CALL-REGRESSION-1.0.43.57-BAR ...)
; compiling (DEFUN MV-CALL-REGRESSION-1.0.43.57-QUUX ...)
; compiling (WITH-TEST (:NAME :MV-CALL-REGRESSION-1.0.43.57) ...)
; compiling (DEFUN ETYPECASE-FAILURE-TEST ...)
; compiling (DEFUN ECASE-FAILURE-TEST ...)
; compiling (WITH-TEST (:NAME :CASE-FAILURES) ...)
; compiling (DEFPARAMETER *CIRCULAR-CONS-WITH-A-VECTOR-CDR* ...)
; file: /«PKGBUILDDIR»/tests/compiler.impure-cload.lisp
; in: BUG254::DEFPROJECTION BUG254::H
;     (SETF (BUG254::AVEC.COUNT BUG254::AVECNAME) (LENGTH REST))
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF BUG254::AVEC.COUNT) #:NEW138 #:AVECNAME137)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF BUG254::AVEC.COUNT)

; in: DEFUN UPDATE-WINDOW-IMAG
;     (SETF (DIS-LINE-OLD-CHARS CC) CHARS)
; --> LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF DIS-LINE-OLD-CHARS) #:NEW1718 #:CC1717)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF DIS-LINE-OLD-CHARS)

; in: DEFUN BUG255::UU
;     (BUG255::YAM-V BUG255::AZ)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF 
; ==>
;   (THE BUG255::YAM BUG255::AZ)
; 
; caught WARNING:
;   undefined variable: BUG255::AZ

; in: BUG254::DEFPROJECTION BUG254::H
;     (BUG254::DEFPROJECTION BUG254::H :LEXPR
;      (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;        (FLET ((BUG254::BD #
;                 #))
;          (LET (#)
;            (DECLARE #)
;            (MULTIPLE-VALUE-PROG1 # #))))
;      :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET 
; ==>
;   (BUG254::FOO.UHW2 BUG254::BAR)
; 
; caught WARNING:
;   undefined variable: BUG254::BAR

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET BUG254::U-FLUNT 
; ==>
;   (BUG254::BAZ
;    (FUNCALL
;     (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;       (FLET (#)
;         (LET #
;           #
;           #)))
;     BUG254::SOUTH BUG254::EAST 1))
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::BAZ

;     (BUG254::BREF BUG254::X BUG254::SCHED)
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::BREF

; in: DEFUN UPDATE-WINDOW-IMAG
;     (EQ CURRENT THE-SENTINEL)
; 
; caught WARNING:
;   undefined variable: CURRENT

; in: DEFUN LISP-ERROR-ERROR-HANDLER
;     (DEVICE)
; 
; caught STYLE-WARNING:
;   undefined function: DEVICE

; in: DEFUN UPDATE-WINDOW-IMAG
;     (DIS-LINE-LINE CC)
; 
; caught STYLE-WARNING:
;   undefined function: DIS-LINE-LINE

; in: BUG254::DEFPROJECTION BUG254::H
;     (BUG254::DEFPROJECTION BUG254::H :LEXPR
;      (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;        (FLET ((BUG254::BD #
;                 #))
;          (LET (#)
;            (DECLARE #)
;            (MULTIPLE-VALUE-PROG1 # #))))
;      :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET BUG254::U-FLUNT BUG254::BAZ FUNCALL 
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::CLAMBDA
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;                     :IN
;                     BUG254::UU)
;      :KIND NIL
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS (BUG254::SOUTH BUG254::EAST BUG254::SCHED) {5315F961}>
;    BUG254::SOUTH BUG254::EAST 1)
; 
; caught WARNING:
;   undefined variable: BUG254::EAST

; in: DEFUN #:FOO
;     (FEE)
; 
; caught STYLE-WARNING:
;   undefined function: FEE

; in: BUG254::DEFPROJECTION BUG254::H
;     (BUG254::DEFPROJECTION BUG254::H :LEXPR
;      (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;        (FLET ((BUG254::BD #
;                 #))
;          (LET (#)
;            (DECLARE #)
;            (MULTIPLE-VALUE-PROG1 # #))))
;      :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET 
; ==>
;   (BUG254::FOO.UHW2 BUG254::BAR)
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::FOO.UHW2

; in: DEFUN #:FAILURE-TESTCASE
;     (FOOBAR-1 SESSION)
; 
; caught STYLE-WARNING:
;   undefined function: FOOBAR-1

;     (FOOBAR-2 CONTINUATION-3)
; 
; caught STYLE-WARNING:
;   undefined function: FOOBAR-2

; in: DEFUN BUG255::UU
;     (BUG255::FROB BUG255::X 0)
; 
; caught STYLE-WARNING:
;   undefined function: BUG255::FROB

; in: DEFUN BUG148::%ZEEP
;     (BUG148::FROBNICATE BUG148::KID)
; 
; caught STYLE-WARNING:
;   undefined function: BUG148::FROBNICATE

; in: DEFUN BUG255::%UFM
;     (BUG255::FROJ BUG255::BASE BUG255::BOUND BUG255::*1*)
; 
; caught STYLE-WARNING:
;   undefined function: BUG255::FROJ

; in: BUG254::DEFPROJECTION BUG254::H
;     (BUG254::GAFP)
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::GAFP

;     (BUG254::H BUG254::SOUTH)
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::H

; in: DEFUN BUG148::%ZEEP
;     (BUG148::M+ (BUG148::FROBNICATE BUG148::KID) BUG148::SWEPTM)
; 
; caught STYLE-WARNING:
;   undefined function: BUG148::M+

; in: BUG254::DEFPROJECTION BUG254::H
;     (BUG254::PAIP BUG254::AVECNAME)
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::PAIP

; in: DEFUN BUG148::%ZEEP
;     (BUG148::FOO-BAR BUG148::PERD)
; --> SB-KERNEL:%INSTANCE-REF 
; ==>
;   (THE BUG148::FOO BUG148::PERD)
; 
; caught WARNING:
;   undefined variable: BUG148::PERD

; in: BUG254::DEFPROJECTION BUG254::H
;     (LENGTH REST)
; 
; caught WARNING:
;   undefined variable: REST

;     (BUG254::DEFPROJECTION BUG254::H :LEXPR
;      (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;        (FLET ((BUG254::BD #
;                 #))
;          (LET (#)
;            (DECLARE #)
;            (MULTIPLE-VALUE-PROG1 # #))))
;      :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET BUG254::U-FLUNT BUG254::BAZ FUNCALL 
; --> SB-C::%FUNCALL 
; ==>
;   (#<SB-C::CLAMBDA
;      :%SOURCE-NAME SB-C::.ANONYMOUS.
;      :%DEBUG-NAME (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;                     :IN
;                     BUG254::UU)
;      :KIND NIL
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS (BUG254::SOUTH BUG254::EAST BUG254::SCHED) {5315F961}>
;    BUG254::SOUTH BUG254::EAST 1)
; 
; caught WARNING:
;   undefined variable: BUG254::SOUTH

; in: DEFUN UPDATE-WINDOW-IMAG
;     (SETQ STRING G2740)
; 
; caught WARNING:
;   undefined variable: STRING

; in: BUG254::DEFPROJECTION BUG254::H
;     (BUG254::STUB BUG254::AVECNAME)
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::STUB

; in: DEFUN BUG148::%ZEEP
;     (SETF BUG148::SWEPTM
;             (BUG148::M+ (BUG148::FROBNICATE BUG148::KID) BUG148::SWEPTM))
; ==>
;   (SETQ BUG148::SWEPTM
;           (BUG148::M+ (BUG148::FROBNICATE BUG148::KID) BUG148::SWEPTM))
; 
; caught WARNING:
;   undefined variable: BUG148::SWEPTM

; in: DEFUN UPDATE-WINDOW-IMAG
;     (EQ CURRENT THE-SENTINEL)
; 
; caught WARNING:
;   undefined variable: THE-SENTINEL

; in: BUG254::DEFPROJECTION BUG254::H
;     (BUG254::DEFPROJECTION BUG254::H :LEXPR
;      (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;        (FLET ((BUG254::BD #
;                 #))
;          (LET (#)
;            (DECLARE #)
;            (MULTIPLE-VALUE-PROG1 # #))))
;      :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET 
; ==>
;   (BUG254::U-FLUNT BUG254::UHW2
;    (BUG254::BAZ
;     (FUNCALL
;      (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED)
;        (FLET #
;          #))
;      BUG254::SOUTH BUG254::EAST 1)))
; 
; caught STYLE-WARNING:
;   undefined function: BUG254::U-FLUNT

; in: DEFUN UPDATE-WINDOW-IMAG
;     (SETQ UNDERHANG G2741)
; 
; caught WARNING:
;   undefined variable: UNDERHANG
; 
; compilation unit finished
;   Undefined functions:
;     (SETF BUG254::AVEC.COUNT) (SETF DIS-LINE-OLD-CHARS) BUG254::BAZ BUG254::BREF DEVICE DIS-LINE-LINE FEE BUG254::FOO.UHW2 FOOBAR-1 FOOBAR-2 BUG255::FROB BUG148::FROBNICATE BUG255::FROJ BUG254::GAFP BUG254::H BUG148::M+ BUG254::PAIP BUG254::STUB BUG254::U-FLUNT
;   Undefined variables:
;     BUG255::AZ BUG254::BAR CURRENT BUG254::EAST BUG148::PERD REST BUG254::SOUTH STRING BUG148::SWEPTM THE-SENTINEL UNDERHANG
;   caught 13 WARNING conditions
;   caught 233 STYLE-WARNING conditions
;   printed 155 notes


; /«PKGBUILDDIR»/tests/compiler.impure-cload.fasl written
; compilation finished in 0:00:40.708
STYLE-WARNING: Implicitly creating new generic function BUG254::UU.
; in: LAMBDA ()
;     (BIT-NOR #*0011 #*0101)
; --> BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY RETURN-FROM PROGN SETF 
; --> SB-KERNEL:%SET-VECTOR-RAW-BITS SB-KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB-C::X SB-C::Y)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 -1) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &REST
;                                                                           T).

; --> BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY RETURN-FROM PROGN SETF 
; --> SB-KERNEL:%SET-VECTOR-RAW-BITS SB-KERNEL:WORD-LOGICAL-NOR 
; ==>
;   (LOGAND (LOGNOR SB-C::X SB-C::Y) 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967296 -1), not a (SIGNED-BYTE 32).

; --> BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY SETF 
; --> SB-KERNEL:%SET-VECTOR-RAW-BITS SB-KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB-C::X SB-C::Y)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967296 -1) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &REST
;                                                                           T).

; --> BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY SETF 
; --> SB-KERNEL:%SET-VECTOR-RAW-BITS SB-KERNEL:WORD-LOGICAL-NOR 
; ==>
;   (LOGAND (LOGNOR SB-C::X SB-C::Y) 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -4294967296 -1), not a (SIGNED-BYTE 32).

; --> BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY TAGBODY SETF 
; --> SB-KERNEL:%SET-VECTOR-RAW-BITS SB-KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB-C::X SB-C::Y)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> BIT-NOR PROGN LET IF DO BLOCK LET TAGBODY RETURN-FROM PROGN SETF 
; --> SB-KERNEL:%SET-VECTOR-RAW-BITS SB-KERNEL:WORD-LOGICAL-NOR LOGAND 
; ==>
;   (LOGNOR SB-C::X SB-C::Y)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; compilation unit finished
;   printed 8 notes
foo-2
foo-1
foo-0
::: Running (LOAD-TIME-VALUE :TYPE-SMARTNESS/CLOAD)
::: Success (LOAD-TIME-VALUE :TYPE-SMARTNESS/CLOAD)
::: Running :REGRESSION-1.0.29.54
::: Success :REGRESSION-1.0.29.54
::: Running :MV-CALL-REGRESSION-1.0.43.57
::: Success :MV-CALL-REGRESSION-1.0.43.57
::: Running :CASE-FAILURES
::: Success :CASE-FAILURES
// Running /«PKGBUILDDIR»/tests/defglobal.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/defglobal.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFVAR *BREADCRUMBS* ...)
; compiling (DEFGLOBAL **A-GLOBAL** ...)
; compiling (DEFINE-LOAD-TIME-GLOBAL **A-LOAD-TIME-GLOBAL** ...)
; compiling (DEFUN TEST-USE-LTG ...)
; compiling (WITH-TEST (:NAME :LOAD-TIME-GLOBAL-1) ...)
; compiling (DEFGLOBAL **ANOTHERONE** ...)
; compiling (DEFINE-LOAD-TIME-GLOBAL **ANOTHERONE** ...)
; compiling (WITH-TEST (:NAME :LOAD-TIME-GLOBAL-2) ...)

; /«PKGBUILDDIR»/tests/defglobal.impure-cload.fasl written
; compilation finished in 0:00:00.242
::: Running :LOAD-TIME-GLOBAL-1
::: Success :LOAD-TIME-GLOBAL-1
::: Running :LOAD-TIME-GLOBAL-2
::: Success :LOAD-TIME-GLOBAL-2
// Running /«PKGBUILDDIR»/tests/dump.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/dump.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFPARAMETER *CIRCULAR-2D-ARRAY* ...)
; compiling (DEFUN Q-DG1999-1 ...)
; compiling (DEFUN Q-DG1999-2 ...)
; compiling (DEFUN Q-DG1999-3 ...)
; compiling (DEFUN Q-DG1999-4 ...)
; compiling (DEFUN USEFUL-DG1999 ...)
; compiling (FORMAT T ...)
; compiling (DEFSTRUCT FOO ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFPARAMETER *FOO* ...)
; compiling (ASSERT (EQUALP # ...))
; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/dump.impure-cload.lisp
; in: ASSERT (EQL (FOO-Y *FOO*) *FOO*)
;     (ASSERT (EQL (FOO-Y *FOO*) *FOO*))
; --> TAGBODY TAGBODY LET WHEN IF 
; ==>
;   (EQL #:TEMP168 #:TEMP169)
; 
; 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.
; 
; note: forced to do static-fun Eql (cost 53)
;       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.
;       unable to do inline (signed-byte 32) comparison (cost 6) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a T, not a (SIGNED-BYTE 32).
;       etc.

; compiling (SETF (LOGICAL-PATHNAME-TRANSLATIONS "MY-LOGICAL-HOST") ...)
; compiling (DEFPARAMETER *PATH* ...)
; compiling (DEFPARAMETER *STRING* ...)
; compiling (DEFPARAMETER *NUMBERS* ...)
; compiling (DEFSTRUCT SAVABLE-STRUCTURE ...)
; file: /«PKGBUILDDIR»/tests/dump.impure-cload.lisp
; in: DEFSTRUCT SAVABLE-STRUCTURE
;     (DEFSTRUCT SAVABLE-STRUCTURE
;       (A NIL :TYPE SYMBOL)
;       (B NIL :TYPE SYMBOL :READ-ONLY T)
;       (C NIL :READ-ONLY T)
;       (D 0 :TYPE FIXNUM)
;       (E 17 :TYPE (UNSIGNED-BYTE 32) :READ-ONLY T))
; --> PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SAVABLE-STRUCTURE-E
;         (SB-KERNEL:INSTANCE)
;       (BLOCK SAVABLE-STRUCTURE-E
;         (TRULY-THE (UNSIGNED-BYTE 32)
;                    (SB-KERNEL:%RAW-INSTANCE-REF/WORD
;                     (THE SAVABLE-STRUCTURE SB-KERNEL:INSTANCE) 0))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFPARAMETER *SAVABLE-STRUCTURE* ...)
; compiling (ASSERT (EQL # ...))
; compiling (ASSERT (EQL # ...))
; compiling (ASSERT (EQL # ...))
; compiling (ASSERT (EQL # ...))
; compiling (ASSERT (EQL # ...))
; file: /«PKGBUILDDIR»/tests/dump.impure-cload.lisp
; in: ASSERT (EQL (SAVABLE-STRUCTURE-E *SAVABLE-STRUCTURE*) 19)
;     (ASSERT (EQL (SAVABLE-STRUCTURE-E *SAVABLE-STRUCTURE*) 19))
; --> TAGBODY TAGBODY 
; ==>
;   (LET ((#:TEMP297 (SAVABLE-STRUCTURE-E *SAVABLE-STRUCTURE*)))
;     (WHEN (EQL #:TEMP297 19) (GO :DONE))
;     (SB-KERNEL:ASSERT-ERROR '(EQL (SAVABLE-STRUCTURE-E *SAVABLE-STRUCTURE*) 19)
;                             (LIST
;                              (LIST '(SAVABLE-STRUCTURE-E *SAVABLE-STRUCTURE*)
;                                    #:TEMP297))
;                             'NIL NIL))
; 
; note: doing unsigned word to integer coercion (cost 20) to #:TEMP297

; compiling (DEFCLASS SAVABLE-CLASS ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFPARAMETER *SAVABLE-CLASS* ...)
; compiling (ASSERT (NOT #))
; compiling (DEFVAR *1-BIT* ...)
; compiling (DEFVAR *2-BIT* ...)
; compiling (DEFVAR *4-BIT* ...)
; compiling (DEFVAR *CHARACTER-STRING-1* ...)
; compiling (DEFVAR *CHARACTER-STRING-2* ...)
; compiling (ASSERT (EQ *CHARACTER-STRING-1* ...))
; compiling (ASSERT (TYPEP *CHARACTER-STRING-1* ...))
; compiling (DEFVAR *BASE-STRING-1* ...)
; compiling (DEFVAR *BASE-STRING-2* ...)
; compiling (ASSERT (EQ *BASE-STRING-1* ...))
; compiling (ASSERT (TYPEP *BASE-STRING-1* ...))
; compiling (DEFVAR *BASE-STRING* ...)
; compiling (DEFVAR *CHARACTER-STRING* ...)
; compiling (ASSERT (NOT #))
; compiling (ASSERT (TYPEP *BASE-STRING* ...))
; compiling (ASSERT (TYPEP *CHARACTER-STRING* ...))
; compiling (DEFSTRUCT AIRPORT ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFUN COMPUTE-AIRPORTS ...)
; compiling (DEFSTRUCT S1 ...)
; compiling (DEFSTRUCT S2 ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFUN COMPUTE-TANGLED-STUFF ...)
; compiling (WITH-TEST (:NAME :LOAD-FORM-CANONICAL-P) ...)
; compiling (DEFPARAMETER *AIRPORT-VECTOR* ...)
; compiling (DEFPARAMETER *METADATA* ...)
; compiling (WITH-TEST (:NAME :MAKE-LOAD-FORM-HUGE-VECTOR) ...)
; compiling (WITH-TEST (:NAME :MAKE-LOAD-FORM-CIRCULAR-HAIR) ...)
; compiling (DEFCLASS TWP ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFUN MAKE-TREE-FROM-SPEC ...)
; compiling (DEFUN VERIFY-TREE ...)
; compiling (DEFVAR *X* ...)
; compiling (WITH-TEST (:NAME :TREE-WITH-PARENT-HAND-MADE-LOAD-FORM) ...)
; compiling (DEFCLASS TWP2 ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFVAR *CALL-TRACKER* ...)
; compiling (DEFUN CALL-TRACKER ...)
; compiling (DEFVAR *TRACK-FUNS* ...)
; compiling (DOLIST (F *TRACK-FUNS*) ...)
; compiling (DEFVAR *Y* ...)
; compiling (WITH-TEST (:NAME :TREE-WITH-PARENT-M-L-F-S-S) ...); 
; compilation unit finished
;   printed 5 notes


; /«PKGBUILDDIR»/tests/dump.impure-cload.fasl written
; compilation finished in 0:00:05.959
Now the compiler can dump pathnames again: #P"" #P"/x/y/z"
::: Running :LOAD-FORM-CANONICAL-P
::: Success :LOAD-FORM-CANONICAL-P
::: Running :MAKE-LOAD-FORM-HUGE-VECTOR
::: Success :MAKE-LOAD-FORM-HUGE-VECTOR
::: Running :MAKE-LOAD-FORM-CIRCULAR-HAIR
::: Success :MAKE-LOAD-FORM-CIRCULAR-HAIR
::: Running :TREE-WITH-PARENT-HAND-MADE-LOAD-FORM
::: Success :TREE-WITH-PARENT-HAND-MADE-LOAD-FORM
::: Running :TREE-WITH-PARENT-M-L-F-S-S
::: Success :TREE-WITH-PARENT-M-L-F-S-S
// Running /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFUN ASSERT* ...)
; compiling (DEFMACRO FOPCOMPILE-TEST ...)
; compiling (FOPCOMPILE-TEST T ...)
; compiling (FOPCOMPILE-TEST T ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in:
;     (LET ((A 3))
;       (LET ((A 4))
;         (ASSERT* (EQL A 4))))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

; compiling (FOPCOMPILE-TEST T ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in:
;     (LET* ((A 5))
;       (LET* ((A 6))
;         (ASSERT* (EQL A 6))))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

; compiling (FOPCOMPILE-TEST NIL ...)
; compiling (FOPCOMPILE-TEST NIL ...)
; compiling (FOPCOMPILE-TEST T ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in:
;     (LET ((A 8) (B (LAMBDA () 1)))
;       NIL)
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

; compiling (FOPCOMPILE-TEST T ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in:
;     (LET* ((A (LAMBDA () 1)))
;       NIL)
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

; compiling (FOPCOMPILE-TEST NIL ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in: FOPCOMPILE-TEST ()
;     (LET* ((A 8) (B (LAMBDA () 1)))
;       NIL)
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

; compiling (FOPCOMPILE-TEST NIL ...)
; compiling (FOPCOMPILE-TEST T ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in:
;     (LET ((A 11) (B A))
;       (ASSERT* (EQL B 10)))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

; compiling (FOPCOMPILE-TEST T ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in:
;     (LET ((A 12))
;       (LET* ((A 13) (B A))
;         (ASSERT* (EQL B 13))))
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.

; compiling (SETF (SYMBOL-VALUE #) ...)
; compiling (ASSERT* (EQL FOPCOMPILE-TEST-FOO ...))
; compiling (DEFMACRO BAR ...)
; compiling (LET* (# #) ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in:
;     (LET* ((X (BAR (FOO))) (Y (BAR (X FOO))))
;       (BAR (Y X FOO)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.

; compiling (DEFVAR *CMACRO-RESULT* ...)
; compiling (DEFUN BAZ ...)
; compiling (DEFUN FFOO ...)
; compiling (DEFINE-COMPILER-MACRO FFOO ...)
; compiling (DEFMACRO MFOO ...)
; compiling (DEFINE-COMPILER-MACRO MFOO ...)
; compiling (DEFUN GET-S ...)
; compiling (FFOO 1)
; compiling (MFOO 1)
; compiling (BAZ (FFOO 2))
; compiling (BAZ (MFOO 2))
; compiling (FFOO (LET # ...))
; compiling (MFOO (LET # ...))
; compiling (WITH-TEST (:NAME :COMPILER-MACROS-AT-TOPLEVEL) ...)
; file: /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.lisp
; in: ASSERT* (EQL FOPCOMPILE-TEST-FOO 1)
;     (ASSERT* (EQL FOPCOMPILE-TEST-FOO 1))
; 
; caught WARNING:
;   undefined variable: FOPCOMPILE-TEST-FOO
; 
; compilation unit finished
;   Undefined variable:
;     FOPCOMPILE-TEST-FOO
;   caught 1 WARNING condition
;   caught 11 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/fopcompiler.impure-cload.fasl written
; compilation finished in 0:00:00.488
::: Running :COMPILER-MACROS-AT-TOPLEVEL
::: Success :COMPILER-MACROS-AT-TOPLEVEL
// Running /«PKGBUILDDIR»/tests/mop-1.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-1.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "TEST" ...)
; compiling (IN-PACKAGE "TEST")
; compiling (DEFCLASS DYNAMIC-SLOT-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFUN DYNAMIC-SLOT-P ...)
; compiling (LET (#) ...)
; compiling (DEFMETHOD ALLOCATE-INSTANCE ...)
; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...)
; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...)
; compiling (DEFCLASS TEST-CLASS-1 ...)
; compiling (DEFCLASS TEST-CLASS-2 ...)
; compiling (DEFVAR *ONE* ...)
; compiling (DEFVAR *TWO* ...)
; compiling (ASSERT (NOT #))
; compiling (ASSERT (NULL #))
; compiling (ASSERT (EQ T ...))
; compiling (ASSERT (= 1 ...))

; /«PKGBUILDDIR»/tests/mop-1.impure-cload.fasl written
; compilation finished in 0:00:00.983
// Running /«PKGBUILDDIR»/tests/mop-10.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-10.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-10" ...)
; compiling (IN-PACKAGE "MOP-10")
; compiling (DEFCLASS MY-GENERIC-FUNCTION ...)
; compiling (DEFGENERIC FOO ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (REINITIALIZE-INSTANCE (FUNCTION FOO))
; compiling (ASSERT (EQUAL # ...))

; /«PKGBUILDDIR»/tests/mop-10.impure-cload.fasl written
; compilation finished in 0:00:00.351
// Running /«PKGBUILDDIR»/tests/mop-11.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-11.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-11" ...)
; compiling (IN-PACKAGE "MOP-11")
; compiling (DEFCLASS GF1-CLASS ...)
; compiling (DEFGENERIC GF1 ...)
; compiling (ASSERT (= # ...))
; compiling (DEFCLASS GF2-CLASS ...)
; compiling (DEFGENERIC GF2 ...)
; compiling (ASSERT (= # ...))
; compiling (DEFGENERIC GF1A ...)
; compiling (ASSERT (STRING= # ...))
; compiling (DEFCLASS GF3-CLASS ...)
; compiling (DEFGENERIC GF3 ...)
; compiling (ASSERT (= # ...))

; /«PKGBUILDDIR»/tests/mop-11.impure-cload.fasl written
; compilation finished in 0:00:00.306
// Running /«PKGBUILDDIR»/tests/mop-12.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-12.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-12" ...)
; compiling (IN-PACKAGE "MOP-12")
; compiling (DEFCLASS SUPER-METHOD ...)
; compiling (DEFCLASS SUB-GENERIC-FUNCTION1 ...)
; compiling (DEFCLASS SUB-METHOD1 ...)
; compiling (DEFGENERIC MYFUN1 ...)
; compiling (DEFVAR *COUNT1* ...)
; compiling (DEFMETHOD MYFUN1 ...)
; compiling (MYFUN1 2 ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (MYFUN1 T ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (DEFMETHOD MYFUN1 ...)
; compiling (MYFUN1 2 ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (MYFUN1 T ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (DEFCLASS SUB-GENERIC-FUNCTION2 ...)
; compiling (DEFCLASS SUB-METHOD2 ...)
; compiling (DEFGENERIC MYFUN2 ...)
; compiling (DEFVAR *COUNT2* ...)
; compiling (DEFMETHOD MYFUN2 ...)
; compiling (MYFUN2 2 ...)
; compiling (ASSERT (= *COUNT2* ...))
; compiling (MYFUN2 T ...)
; compiling (ASSERT (= *COUNT2* ...))
; compiling (DEFMETHOD MYFUN2 ...)
; compiling (MYFUN2 2 ...)
; compiling (ASSERT (= *COUNT2* ...))
; compiling (MYFUN2 T ...)
; compiling (ASSERT (= *COUNT2* ...))

; /«PKGBUILDDIR»/tests/mop-12.impure-cload.fasl written
; compilation finished in 0:00:00.376
// Running /«PKGBUILDDIR»/tests/mop-13.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-13.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-13" ...)
; compiling (IN-PACKAGE "MOP-13")
; compiling (DEFCLASS SUPER-FUNCALLABLE-MIXIN ...)
; compiling (DEFCLASS SUB-GENERIC-FUNCTION1 ...)
; compiling (DEFCLASS SUB-METHOD1 ...)
; compiling (DEFGENERIC MYFUN1 ...)
; compiling (DEFVAR *COUNT1* ...)
; compiling (DEFMETHOD MYFUN1 ...)
; compiling (MYFUN1 2 ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (MYFUN1 T ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (DEFMETHOD MYFUN1 ...)
; compiling (MYFUN1 2 ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (MYFUN1 T ...)
; compiling (ASSERT (= *COUNT1* ...))
; compiling (DEFCLASS SUB-GENERIC-FUNCTION2 ...)
; compiling (DEFCLASS SUB-METHOD2 ...)
; compiling (DEFGENERIC MYFUN2 ...)
; compiling (DEFVAR *COUNT2* ...)
; compiling (DEFMETHOD MYFUN2 ...)
; compiling (MYFUN2 2 ...)
; compiling (ASSERT (= *COUNT2* ...))
; compiling (MYFUN2 T ...)
; compiling (ASSERT (= *COUNT2* ...))
; compiling (DEFMETHOD MYFUN2 ...)
; compiling (MYFUN2 2 ...)
; compiling (ASSERT (= *COUNT2* ...))
; compiling (MYFUN2 T ...)
; compiling (ASSERT (= *COUNT2* ...))

; /«PKGBUILDDIR»/tests/mop-13.impure-cload.fasl written
; compilation finished in 0:00:00.378
// Running /«PKGBUILDDIR»/tests/mop-14.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-14.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; 
; caught STYLE-WARNING:
;   Character decoding error in a ;-comment at position 744 reading source stream #<FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/mop-14.impure-cload.lisp" {524F81B9}>, resyncing.

; 
; caught STYLE-WARNING:
;   Character decoding error in a ;-comment at position 764 reading source stream #<FORM-TRACKING-STREAM for "file /«PKGBUILDDIR»/tests/mop-14.impure-cload.lisp" {524F81B9}>, resyncing.

; compiling (DEFPACKAGE :DC ...)
; compiling (IN-PACKAGE :DC)
; compiling (DEFCLASS DWIM-SLOT-DEFINITION ...)
; compiling (DEFCLASS DWIM-DIRECT-SLOT-DEFINITION ...)
; compiling (DEFCLASS DWIM-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFCLASS DWIM-ATTRIBUTE-SLOT-DEFINITION ...)
; compiling (DEFCLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFCLASS DWIM-ATTRIBUTE-DIRECT-SLOT-DEFINITION ...)
; compiling (DEFCLASS EXTRA-EFFECTIVE-SLOT-DEFINITION ...); 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/mop-14.impure-cload.fasl written
; compilation finished in 0:00:00.047
// Running /«PKGBUILDDIR»/tests/mop-15.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-15.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-15" ...)
; compiling (IN-PACKAGE "MOP-15")
; compiling (DEFCLASS MOP-15-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFVAR *COUNT* ...)
; compiling (DEFVAR *MAX-COUNT* ...)
; compiling (DEFMETHOD FINALIZE-INHERITANCE ...)
; compiling (DEFCLASS SUB ...)
; compiling (DEFCLASS SUPER ...)
; compiling (FINALIZE-INHERITANCE (FIND-CLASS #))
; compiling (FINALIZE-INHERITANCE (FIND-CLASS #))
; compiling (ASSERT (= *MAX-COUNT* ...))

; /«PKGBUILDDIR»/tests/mop-15.impure-cload.fasl written
; compilation finished in 0:00:00.257
// Running /«PKGBUILDDIR»/tests/mop-16.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-16.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-16" ...)
; compiling (IN-PACKAGE "MOP-16")
; compiling (DEFCLASS FOO-CLASS ...)
; compiling (DEFCLASS FOO-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (MULTIPLE-VALUE-BIND (VALUE CONDITION) ...)

; /«PKGBUILDDIR»/tests/mop-16.impure-cload.fasl written
; compilation finished in 0:00:00.184
// Running /«PKGBUILDDIR»/tests/mop-17.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-17.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-17" ...)
; compiling (IN-PACKAGE "MOP-17")
; compiling (DEFUN MAKE-PROGRAMMATIC-INSTANCE ...)
; compiling (DEFUN FIND-PROGRAMMATIC-CLASS ...)
; compiling (DEFUN MAKE-PROGRAMMATIC-CLASS ...)
; compiling (DEFCLASS SHAPE ...)
; compiling (DEFCLASS CIRCLE ...)
; compiling (DEFCLASS COLOR ...)
; compiling (DEFCLASS ORANGE ...)
; compiling (DEFCLASS MAGENTA ...)
; compiling (DEFCLASS LABEL-TYPE ...)
; compiling (DEFCLASS TOP-LABELED ...)
; compiling (DEFCLASS BOTTOM-LABELED ...)
; compiling (ASSERT (NULL #))
; compiling (DEFVAR *I1* ...)
; compiling (DEFVAR *I2* ...)
; compiling (DEFVAR *I3* ...)
; compiling (ASSERT (NOT #))
; compiling (ASSERT (= # ...))

; /«PKGBUILDDIR»/tests/mop-17.impure-cload.fasl written
; compilation finished in 0:00:00.180
// Running /«PKGBUILDDIR»/tests/mop-18.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-18.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-18" ...)
; compiling (IN-PACKAGE "MOP-18")
; compiling (DEFVAR *IN-REINITIALIZE-INSTANCE* ...)
; compiling (DEFVAR *FINALIZED-CLASS* ...)
; compiling (DEFCLASS TEST-STANDARD-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD FINALIZE-INHERITANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFCLASS TEST-STANDARD-OBJECT ...)
; compiling (UNLESS (CLASS-FINALIZED-P #) ...)
; compiling (ASSERT (CLASS-SLOTS #))
; compiling (ASSERT (NULL *FINALIZED-CLASS*))
; compiling (REINITIALIZE-INSTANCE (FIND-CLASS #) ...)
; compiling (ASSERT (EQ *FINALIZED-CLASS* ...))
; compiling (ASSERT (NULL #))
; compiling (DEFCLASS TEST-FUNCALLABLE-STANDARD-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD FINALIZE-INHERITANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFCLASS TEST-FUNCALLABLE-STANDARD-OBJECT ...)
; compiling (UNLESS (CLASS-FINALIZED-P #) ...)
; compiling (ASSERT (CLASS-SLOTS #))
; compiling (ASSERT (EQ *FINALIZED-CLASS* ...))
; compiling (REINITIALIZE-INSTANCE (FIND-CLASS #) ...)
; compiling (ASSERT (EQ *FINALIZED-CLASS* ...))
; compiling (ASSERT (NULL #))

; /«PKGBUILDDIR»/tests/mop-18.impure-cload.fasl written
; compilation finished in 0:00:00.738
// Running /«PKGBUILDDIR»/tests/mop-19.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-19.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-19" ...)
; compiling (IN-PACKAGE "MOP-19")
; compiling (DEFCLASS MY-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFCLASS MY-READER ...)
; compiling (DEFCLASS MY-WRITER ...)
; compiling (DEFVAR *CALLS* ...)
; compiling (DEFMETHOD READER-METHOD-CLASS ...)
; file: /«PKGBUILDDIR»/tests/mop-19.impure-cload.lisp
; in: DEFMETHOD READER-METHOD-CLASS (MY-CLASS T)
;     (DEFMETHOD SB-MOP:READER-METHOD-CLASS
;                ((MOP-19::C MOP-19::MY-CLASS) MOP-19::S &REST MOP-19::INITARGS)
;       (PUSH (CONS (SB-MOP:SLOT-DEFINITION-NAME MOP-19::S) 'MOP-19::READER)
;             MOP-19::*CALLS*)
;       (FIND-CLASS 'MOP-19::MY-READER))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD SB-MOP:READER-METHOD-CLASS
;                           (MOP-19::MY-CLASS T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. MOP-19::C MOP-19::S &REST
;          MOP-19::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T MOP-19::S))
;       (DECLARE (IGNORABLE MOP-19::S MOP-19::C))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((MOP-19::C MOP-19::S)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (MOP-19::C MOP-19::S) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS MOP-19::C MOP-19::MY-CLASS))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.

; compiling (DEFMETHOD WRITER-METHOD-CLASS ...)
; file: /«PKGBUILDDIR»/tests/mop-19.impure-cload.lisp
; in: DEFMETHOD WRITER-METHOD-CLASS (MY-CLASS T)
;     (DEFMETHOD SB-MOP:WRITER-METHOD-CLASS
;                ((MOP-19::C MOP-19::MY-CLASS) MOP-19::S &REST MOP-19::INITARGS)
;       (PUSH (CONS (SB-MOP:SLOT-DEFINITION-NAME MOP-19::S) 'MOP-19::WRITER)
;             MOP-19::*CALLS*)
;       (FIND-CLASS 'MOP-19::MY-WRITER))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD SB-MOP:WRITER-METHOD-CLASS
;                           (MOP-19::MY-CLASS T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. MOP-19::C MOP-19::S &REST
;          MOP-19::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T MOP-19::S))
;       (DECLARE (IGNORABLE MOP-19::S MOP-19::C))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((MOP-19::C MOP-19::S)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (MOP-19::C MOP-19::S) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS MOP-19::C MOP-19::MY-CLASS))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.

; compiling (DEFCLASS FOO ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (LET (#) ...)
; compiling (LET (#) ...)
; compiling (DEFCLASS MY-OTHER-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFCLASS MY-OTHER-READER ...)
; compiling (DEFCLASS MY-DIRECT-SLOT-DEFINITION ...)
; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...)
; file: /«PKGBUILDDIR»/tests/mop-19.impure-cload.lisp
; in: DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS (MY-OTHER-CLASS)
;     (DEFMETHOD SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
;                ((MOP-19::C MOP-19::MY-OTHER-CLASS) &REST MOP-19::ARGS)
;       (FIND-CLASS 'MOP-19::MY-DIRECT-SLOT-DEFINITION))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
;                           (MOP-19::MY-OTHER-CLASS))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. MOP-19::C &REST MOP-19::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (IGNORABLE MOP-19::C))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((MOP-19::C)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (MOP-19::C) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS MOP-19::C MOP-19::MY-OTHER-CLASS))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; compiling (DEFMETHOD READER-METHOD-CLASS ...)
; file: /«PKGBUILDDIR»/tests/mop-19.impure-cload.lisp
; in: DEFMETHOD READER-METHOD-CLASS :AROUND (T MY-DIRECT-SLOT-DEFINITION)
;     (DEFMETHOD SB-MOP:READER-METHOD-CLASS :AROUND
;                (CLASS (MOP-19::S MOP-19::MY-DIRECT-SLOT-DEFINITION)
;                 &REST MOP-19::INITARGS)
;       (FIND-CLASS 'MOP-19::MY-OTHER-READER))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD SB-MOP:READER-METHOD-CLASS
;                           :AROUND (T MOP-19::MY-DIRECT-SLOT-DEFINITION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CLASS MOP-19::S &REST
;          MOP-19::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (TYPE T CLASS))
;       (DECLARE (IGNORABLE MOP-19::S CLASS))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CLASS MOP-19::S)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CLASS MOP-19::S) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS MOP-19::S MOP-19::MY-DIRECT-SLOT-DEFINITION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.

; compiling (DEFCLASS BAR ...)
; compiling (LET (#) ...)
; compiling (LET (#) ...); 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/mop-19.impure-cload.fasl written
; compilation finished in 0:00:00.751
// Running /«PKGBUILDDIR»/tests/mop-2.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-2.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (UNTRACE)
; compiling (DEFPACKAGE "TEST" ...)
; compiling (IN-PACKAGE "TEST")
; compiling (DEFCLASS DYNAMIC-SLOT-CLASS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFUN DYNAMIC-SLOT-P ...)
; compiling (LET (#) ...)
; compiling (DEFMETHOD ALLOCATE-INSTANCE ...)
; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...)
; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...)
; compiling (DEFCLASS TEST-CLASS-1 ...)
; compiling (DEFCLASS TEST-CLASS-2 ...)
; compiling (DEFVAR *ONE* ...)
; compiling (DEFVAR *TWO* ...)
; compiling (ASSERT (NOT #))
; compiling (ASSERT (NULL #))
; compiling (ASSERT (EQ T ...))
; compiling (ASSERT (= 1 ...))
; compiling (DEFCLASS DYNAMIC-SLOT-SUBCLASS ...)
; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...)
; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...)
; compiling (DEFCLASS TEST-CLASS-3 ...)
; compiling (DEFVAR *THREE* ...)
; compiling (ASSERT (NOT #))
; compiling (ASSERT (EQ # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFMETHOD SLOT-MISSING ...)
; compiling (DEFCLASS TEST-CLASS-3 ...)
; compiling (ASSERT (= 42 ...))
; compiling (TEST-UTIL:WITH-TEST (:NAME :SLOT-EXISTS-P-BEFORE-REMOVAL) ...)
; compiling (DEFCLASS TEST-CLASS-3 ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (TEST-UTIL:WITH-TEST (:NAME :SLOT-EXISTS-P-AFTER-REMOVAL) ...)
; compiling (DEFCLASS TEST-CLASS-3 ...)
; compiling (LET* (# #) ...)
; compiling (DEFCLASS TEST-CLASS-3 ...)
; compiling (LET* (# #) ...)
; compiling (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...)
; compiling (DEFCLASS TEST-CLASS-3 ...)
; compiling (LET* (# #) ...)
; compiling (DEFCLASS TEST-CLASS-3 ...)
; compiling (LET* (# #) ...)

; /«PKGBUILDDIR»/tests/mop-2.impure-cload.fasl written
; compilation finished in 0:00:02.067
::: Running :SLOT-EXISTS-P-BEFORE-REMOVAL
::: Success :SLOT-EXISTS-P-BEFORE-REMOVAL
::: Running :SLOT-EXISTS-P-AFTER-REMOVAL
::: Success :SLOT-EXISTS-P-AFTER-REMOVAL
// Running /«PKGBUILDDIR»/tests/mop-20.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-20.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-20" ...)
; compiling (IN-PACKAGE "MOP-20")
; compiling (DEFGENERIC TEST ...)
; compiling (DEFUN DEFINE-AROUND-TEST ...)
; compiling (DEFUN RUN-TEST ...)
; compiling (ASSERT (STRING= # ...))
; compiling (DEFCLASS USER-METHOD ...)
; compiling (DEFMACRO DEF-USER-METHOD ...)
; compiling (DEFGENERIC TEST-UM03 ...)
; compiling (DEFMETHOD TEST-UM03 ...)
; compiling (DEF-USER-METHOD TEST-UM03 ...)
; compiling (DEFMETHOD TEST-UM03 ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (DEFGENERIC TEST-UM10 ...)
; compiling (DEFMETHOD TEST-UM10 ...)
; compiling (DEFMETHOD TEST-UM10 ...)
; compiling (DEFMETHOD TEST-UM10 ...)
; compiling (DEFMETHOD TEST-UM10 ...)
; compiling (DEF-USER-METHOD TEST-UM10 ...)
; compiling (DEFMETHOD TEST-UM10 ...)
; compiling (DEFMETHOD TEST-UM10 ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (DEFGENERIC TEST-UM12 ...)
; compiling (DEFMETHOD TEST-UM12 ...)
; compiling (DEFMETHOD TEST-UM12 ...)
; compiling (DEFMETHOD TEST-UM12 ...)
; compiling (DEFMETHOD TEST-UM12 ...)
; compiling (DEFMETHOD TEST-UM12 ...)
; compiling (DEFMETHOD TEST-UM12 ...)
; compiling (DEF-USER-METHOD TEST-UM12 ...)
; compiling (ASSERT (EQUAL # ...))

; /«PKGBUILDDIR»/tests/mop-20.impure-cload.fasl written
; compilation finished in 0:00:01.836
// Running /«PKGBUILDDIR»/tests/mop-21.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-21.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-21" ...)
; compiling (IN-PACKAGE "MOP-21")
; compiling (DEFCLASS BETA-GENERIC-FUNCTION ...)
; compiling (DEFCLASS BETA-METHOD ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN COLLECT-RUNS ...)
; compiling (DEFINE-METHOD-COMBINATION BETA ...)
; compiling (DEFMETHOD MAKE-METHOD-LAMBDA ...)
; compiling (DEFMACRO DEFINE-BETA-FUNCTION ...)
; compiling (DEFCLASS TOP ...)
; compiling (DEFCLASS MIDDLE ...)
; compiling (DEFCLASS BOTTOM ...)
; compiling (DEFINE-BETA-FUNCTION TEST ...)
; compiling (MAPCAR (FUNCTION EVAL) ...)
; compiling (ASSERT (EQUAL # ...))
; compiling (ASSERT (EQUAL # ...))
; compiling (ASSERT (NULL #))

; /«PKGBUILDDIR»/tests/mop-21.impure-cload.fasl written
; compilation finished in 0:00:00.703
; in: DEFMETHOD TEST (TOP)
;     (LAMBDA (MOP-21::OBJECT) 'MOP-21::TOP)
; ==>
;   #'(LAMBDA (MOP-21::OBJECT) 'MOP-21::TOP)
; 
; caught STYLE-WARNING:
;   The variable OBJECT is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFMETHOD TEST :BETA (MIDDLE)
;     (LAMBDA (MOP-21::OBJECT)
;       (LIST 'MOP-21::MIDDLE (MOP-21::CALL-INNER-METHOD) (CALL-NEXT-METHOD)))
; ==>
;   #'(LAMBDA (MOP-21::OBJECT)
;       (LIST 'MOP-21::MIDDLE (MOP-21::CALL-INNER-METHOD) (CALL-NEXT-METHOD)))
; 
; caught STYLE-WARNING:
;   The variable OBJECT is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; in: DEFMETHOD TEST :BETA (BOTTOM)
;     (LAMBDA (MOP-21::OBJECT) 'MOP-21::BOTTOM)
; ==>
;   #'(LAMBDA (MOP-21::OBJECT) 'MOP-21::BOTTOM)
; 
; caught STYLE-WARNING:
;   The variable OBJECT is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
// Running /«PKGBUILDDIR»/tests/mop-22.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-22.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-22" ...)
; compiling (IN-PACKAGE "MOP-22")
; compiling (DEFCLASS INCOMPLETE ...)
; compiling (DEFGENERIC INCOMPLETE/1 ...)
; compiling (DEFGENERIC FORWARD/1 ...)
; file: /«PKGBUILDDIR»/tests/mop-22.impure-cload.lisp
; in: DEFGENERIC FORWARD/1
;     (DEFGENERIC MOP-22::FORWARD/1
;         (MOP-22::X)
;       (:METHOD ((MOP-22::X MOP-22::FORWARD)) 'MOP-22::FORWARD))
; --> PROGN PUSH 
; ==>
;   (LET* ((#:ITEM (DEFMETHOD MOP-22::FORWARD/1 (#) 'MOP-22::FORWARD))
;          (#:G11 (FDEFINITION 'MOP-22::FORWARD/1))
;          (#:NEW12
;           (CONS #:ITEM (SB-PCL::GENERIC-FUNCTION-INITIAL-METHODS #:G11))))
;     (FUNCALL #'(SETF SB-PCL::GENERIC-FUNCTION-INITIAL-METHODS) #:NEW12 #:G11))
; 
; caught STYLE-WARNING:
;   can't find type for specializer FORWARD in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; --> PROGN PUSH LET* LET* DEFMETHOD PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER MOP-22::FORWARD/1 NIL
;                                ((MOP-22::X MOP-22::FORWARD)) ('MOP-22::FORWARD))
; 
; caught STYLE-WARNING:
;   can't find type for specializer FORWARD in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; compiling (DEFGENERIC INCOMPLETE/7 ...)
; file: /«PKGBUILDDIR»/tests/mop-22.impure-cload.lisp
; in: DEFGENERIC INCOMPLETE/7
;     (DEFGENERIC MOP-22::INCOMPLETE/7
;         (MOP-22::A MOP-22::B MOP-22::C MOP-22::D MOP-22::E MOP-22::F MOP-22::G)
;       (:METHOD
;        ((MOP-22::A MOP-22::INCOMPLETE) (MOP-22::B MOP-22::FORWARD) MOP-22::C
;         (MOP-22::D INTEGER) (MOP-22::E CONDITION) (MOP-22::F CLASS) MOP-22::G)
;        T))
; --> PROGN PUSH 
; ==>
;   (LET* ((#:ITEM
;           (DEFMETHOD MOP-22::INCOMPLETE/7 (# # MOP-22::C # # # MOP-22::G) T))
;          (#:G22 (FDEFINITION 'MOP-22::INCOMPLETE/7))
;          (#:NEW23
;           (CONS #:ITEM (SB-PCL::GENERIC-FUNCTION-INITIAL-METHODS #:G22))))
;     (FUNCALL #'(SETF SB-PCL::GENERIC-FUNCTION-INITIAL-METHODS) #:NEW23 #:G22))
; 
; caught STYLE-WARNING:
;   can't find type for specializer FORWARD in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; --> PROGN PUSH LET* LET* DEFMETHOD PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER MOP-22::INCOMPLETE/7 NIL
;                                ((MOP-22::A MOP-22::INCOMPLETE)
;                                 (MOP-22::B MOP-22::FORWARD) MOP-22::C
;                                 (MOP-22::D INTEGER) (MOP-22::E CONDITION)
;                                 (MOP-22::F CLASS) MOP-22::G)
;                                (T))
; 
; caught STYLE-WARNING:
;   can't find type for specializer FORWARD in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; compiling (DEFCLASS FORWARD ...)
; compiling (ASSERT (EQ # ...))
; compiling (ASSERT (EQ # ...))
; compiling (ASSERT (EQ # ...)); 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/mop-22.impure-cload.fasl written
; compilation finished in 0:00:00.387
STYLE-WARNING:
   Defining a method using #<FORWARD-REFERENCED-CLASS FORWARD> as a specializer.
STYLE-WARNING:
   Defining a method using #<FORWARD-REFERENCED-CLASS FORWARD> as a specializer.
// Running /«PKGBUILDDIR»/tests/mop-3.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-3.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-3" ...)
; compiling (IN-PACKAGE "MOP-3")
; compiling (DEFCLASS MSL-GENERIC-FUNCTION ...)
; compiling (DEFUN REVERSE-METHOD-LIST ...)
; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS ...)
; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...)
; compiling (DEFGENERIC TESTGF07 ...)
; compiling (ASSERT (EQUALP # ...))
; compiling (DEFCLASS NONUMBER-GENERIC-FUNCTION ...)
; compiling (DEFUN NONUMBER-METHOD-LIST ...)
; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS ...)
; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...)
; compiling (DEFGENERIC TESTGF08 ...)
; compiling (ASSERT (EQUALP # ...))

; /«PKGBUILDDIR»/tests/mop-3.impure-cload.fasl written
; compilation finished in 0:00:01.465
// Running /«PKGBUILDDIR»/tests/mop-4.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-4.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-4" ...)
; compiling (IN-PACKAGE "MOP-4")
; compiling (DEFCLASS MY-GENERIC-FUNCTION1 ...)
; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...)
; compiling (DEFGENERIC FOO ...)
; compiling (DEFMETHOD FOO ...)
; compiling (ASSERT (= # ...))
; compiling (DEFCLASS MY-GENERIC-FUNCTION-PCL1 ...)
; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...)
; compiling (DEFGENERIC PCL1 ...)
; compiling (DEFMETHOD PCL1 ...)
; compiling (LET (#) ...)
; compiling (DEFCLASS TRACED-GENERIC-FUNCTION ...)
; compiling (DEFVAR *LAST-TRACED-ARGUMENTS* ...)
; compiling (DEFVAR *LAST-TRACED-VALUES* ...)
; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...)
; compiling (DEFGENERIC TESTGF15 ...)
; compiling (TESTGF15 5)
; compiling (ASSERT (EQUAL # ...))

; /«PKGBUILDDIR»/tests/mop-4.impure-cload.fasl written
; compilation finished in 0:00:00.613

=> TESTGF15 arguments: (5)
<= TESTGF15 values: (5 -5 25 1/5)// Running /«PKGBUILDDIR»/tests/mop-5.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-5.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFCLASS FN ...)
; compiling (DEFVAR *FN*)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (LET (#) ...)
; compiling (DEFCLASS COUNTER ...)
; compiling (DEFUN MAKE-COUNTER ...)
; compiling (DEFPARAMETER *COUNTER* ...)
; compiling (ASSERT (EQ # ...))

; /«PKGBUILDDIR»/tests/mop-5.impure-cload.fasl written
; compilation finished in 0:00:00.209

#<COUNTER {526B7915}> // Running /«PKGBUILDDIR»/tests/mop-6.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-6.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-6" ...)
; compiling (IN-PACKAGE "MOP-6")
; compiling (DEFCLASS SLOT-REARRANGEMENT-CLASS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFCLASS REARRANGED-CLASS ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (DEFCLASS FUNCALLABLE-SLOT-REARRANGEMENT-CLASS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFCLASS FUNCALLABLE-REARRANGED-CLASS ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (WITH-TEST (:NAME #) ...)

; /«PKGBUILDDIR»/tests/mop-6.impure-cload.fasl written
; compilation finished in 0:00:00.812
::: Running (:COMPUTE-SLOTS :STANDARD-CLASS :ORDER)
::: Success (:COMPUTE-SLOTS :STANDARD-CLASS :ORDER)
::: Running (:COMPUTE-SLOTS :STANDARD-CLASS :SLOTS)
::: Success (:COMPUTE-SLOTS :STANDARD-CLASS :SLOTS)
::: Running (:COMPUTE-SLOTS :FUNCALLABLE-STANDARD-CLASS :ORDER)
::: Success (:COMPUTE-SLOTS :FUNCALLABLE-STANDARD-CLASS :ORDER)
::: Running (:COMPUTE-SLOTS :FUNCALLABLE-STANDARD-CLASS :SLOTS)
::: Success (:COMPUTE-SLOTS :FUNCALLABLE-STANDARD-CLASS :SLOTS)
::: Running (:COMPUTE-SLOTS :FUNCALLABLE-STANDARD-CLAS :FUNCTION)
::: Success (:COMPUTE-SLOTS :FUNCALLABLE-STANDARD-CLAS :FUNCTION)
// Running /«PKGBUILDDIR»/tests/mop-7.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-7.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-7" ...)
; compiling (IN-PACKAGE "MOP-7")
; compiling (DEFCLASS G1 ...)
; compiling (DEFCLASS G2 ...)
; compiling (DEFGENERIC F1 ...)
; compiling (DEFGENERIC F2 ...)
; compiling (PRINT (FUNCTION F1))
; compiling (PRINT (FUNCTION F2))

; /«PKGBUILDDIR»/tests/mop-7.impure-cload.fasl written
; compilation finished in 0:00:00.027

#<G1 F1 (0)> 
#<G2 F2 (0)> // Running /«PKGBUILDDIR»/tests/mop-8.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-8.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-8" ...)
; compiling (IN-PACKAGE "MOP-8")
; compiling (DEFCLASS DEPENDENT-HISTORY ...)
; compiling (DEFMETHOD UPDATE-DEPENDENT ...)
; compiling (DEFMETHOD UPDATE-DEPENDENT ...)
; compiling (DEFVAR *HISTORY* ...)
; compiling (DEFGENERIC UPD1 ...)
; compiling (ADD-DEPENDENT (FUNCTION UPD1) ...)
; compiling (DEFMETHOD UPD1 ...)
; compiling (LET (#) ...)
; compiling (DEFCLASS FOO ...)
; compiling (ADD-DEPENDENT (FIND-CLASS #) ...)
; compiling (DEFCLASS FOO ...)
; compiling (LET (#) ...)

; /«PKGBUILDDIR»/tests/mop-8.impure-cload.fasl written
; compilation finished in 0:00:00.300
// Running /«PKGBUILDDIR»/tests/mop-9.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop-9.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-9" ...)
; compiling (IN-PACKAGE "MOP-9")
; compiling (DEFCLASS METACLASS/RI ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFCLASS CLASS/RI ...)
; compiling (DEFVAR *CLASS/RI-ARGS* ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (DEFCLASS DEPENDENT ...)
; compiling (DEFCLASS CLASS/DEPENDENT ...)
; compiling (DEFVAR *DEPENDENT* ...)
; compiling (DEFMETHOD UPDATE-DEPENDENT ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (DEFCLASS GFC/RI ...)
; compiling (DEFGENERIC GF/RI ...)
; compiling (DEFVAR *GF/RI-ARGS* ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (WITH-TEST (:NAME #) ...)
; compiling (DEFGENERIC GF/DEPENDENT ...)
; compiling (DEFMETHOD UPDATE-DEPENDENT ...)
; compiling (WITH-TEST (:NAME #) ...)

; /«PKGBUILDDIR»/tests/mop-9.impure-cload.fasl written
; compilation finished in 0:00:00.639
::: Running ((SETF CLASS-NAME) REINITIALIZE-INSTANCE)
::: Success ((SETF CLASS-NAME) REINITIALIZE-INSTANCE)
::: Running ((SETF CLASS-NAME) UPDATE-DEPENDENT)
::: Success ((SETF CLASS-NAME) UPDATE-DEPENDENT)
::: Running ((SETF GENERIC-FUNCTION-NAME) REINITIALIZE-INSTANCE)
::: Success ((SETF GENERIC-FUNCTION-NAME) REINITIALIZE-INSTANCE)
::: Running ((SETF GENERIC-FUNCTION-NAME) UPDATE-DEPENDENT)
::: Success ((SETF GENERIC-FUNCTION-NAME) UPDATE-DEPENDENT)
// Running /«PKGBUILDDIR»/tests/mop.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/mop.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (DEFPACKAGE "MOP-TEST" ...)
; compiling (IN-PACKAGE "MOP-TEST")
; compiling (DEFCLASS HYPEROBJECT-CLASS ...)
; compiling (DEFCLASS HYPEROBJECT-DSD ...)
; compiling (DEFCLASS HYPEROBJECT-ESD ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFCLASS HYPEROBJECT ...)
; compiling (DEFCLASS PERSON ...)
; compiling (EVAL (QUOTE #))

; /«PKGBUILDDIR»/tests/mop.impure-cload.fasl written
; compilation finished in 0:00:00.318
#<HYPEROBJECT-CLASS PERSON> #<PERSON {52A81B99}> #<HYPEROBJECT-ESD NAME>
// Running /«PKGBUILDDIR»/tests/stream.impure-cload.lisp
; compiling file "/«PKGBUILDDIR»/tests/stream.impure-cload.lisp" (written 30 MAY 2015 05:47:22 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPARAMETER *SCRATCH-FILE-NAME* ...)
; compiling (DEFVAR *SCRATCH-FILE-STREAM*)
; compiling (DOLIST (SCRATCH-FILE-LENGTH #) ...)
; compiling (WITH-OPEN-FILE (S *SCRATCH-FILE-NAME* ...) ...)
; compiling (ASSERT (STRING= # ...))
; compiling (DELETE-FILE *SCRATCH-FILE-NAME*)

; /«PKGBUILDDIR»/tests/stream.impure-cload.fasl written
; compilation finished in 0:00:00.236
/SCRATCH-FILE-LENGTH=1
/WRAP-NAMED-STREAM-FN=#<FUNCTION (LAMBDA (WRAPPED-STREAM-NAME)
                                   :IN
                                   "/«PKGBUILDDIR»/tests/stream.impure-cload.lisp") {526A316D}>
/WRAP-NAMED-STREAM-FN=#<FUNCTION (LAMBDA (WRAPPED-STREAM-NAME)
                                   :IN
                                   "/«PKGBUILDDIR»/tests/stream.impure-cload.lisp") {526A33A5}>
/WRAP-NAMED-STREAM-FN=#<FUNCTION (LAMBDA (WRAPPED-STREAM-NAME)
                                   :IN
                                   "/«PKGBUILDDIR»/tests/stream.impure-cload.lisp") {526A36B5}>
/SCRATCH-FILE-LENGTH=200123
/WRAP-NAMED-STREAM-FN=#<FUNCTION (LAMBDA (WRAPPED-STREAM-NAME)
                                   :IN
                                   "/«PKGBUILDDIR»/tests/stream.impure-cload.lisp") {526A316D}>
/WRAP-NAMED-STREAM-FN=#<FUNCTION (LAMBDA (WRAPPED-STREAM-NAME)
                                   :IN
                                   "/«PKGBUILDDIR»/tests/stream.impure-cload.lisp") {526A33A5}>
/WRAP-NAMED-STREAM-FN=#<FUNCTION (LAMBDA (WRAPPED-STREAM-NAME)
                                   :IN
                                   "/«PKGBUILDDIR»/tests/stream.impure-cload.lisp") {526A36B5}>
// Running impure tests (#<FUNCTION RUN-TESTS::SH-TEST>)
// Running /«PKGBUILDDIR»/tests/clocc-ansi.test.sh
//punting clocc ansi-test because SBCL_CLOCC_ANSI_TEST is undefined
// Running /«PKGBUILDDIR»/tests/clos.test.sh
; compiling file "/«PKGBUILDDIR»/tests/clos-test-23990/clos-test.lisp" (written 11 JUN 2015 09:21:12 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFMETHOD ZUT ...)
; compiling (ZUT 1)

; /«PKGBUILDDIR»/tests/clos-test-23990/clos-test.fasl written
; compilation finished in 0:00:00.090
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::ZUT.
WARNING:
   Invalid qualifiers for standard method combination in method
   #<STANDARD-METHOD ZUT PROGN :AROUND (INTEGER) {51C34AC9}>:
     (PROGN :AROUND).
VALUE1=#<SIMPLE-ERROR "~@<invalid method error for ~2I~_~S ~I~_method: ~2I~_~?~:>" {51C376D9}> (invalid method error for
                                                                                                  #<STANDARD-METHOD
                                                                                                    ZUT PROGN :AROUND (INTEGER)
                                                                                                    {51C34AC9}>
                                                                                                method:
                                                                                                  The method #<STANDARD-METHOD
                                                                                                               ZUT PROGN :AROUND (INTEGER)
                                                                                                               {51C34AC9}> on #<STANDARD-GENERIC-FUNCTION
                                                                                                                                ZUT (1)> has too many qualifiers.
Standard method combination requires all methods to have one
of the single qualifiers :AROUND, :BEFORE and :AFTER or to
have no qualifier at all.)
test compile-and-load ok
STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::ZUT.
WARNING:
   Invalid qualifiers for standard method combination in method
   #<STANDARD-METHOD ZUT PROGN :AROUND (INTEGER) {51C063B1}>:
     (PROGN :AROUND).
While evaluating the form starting at line 5, column 4
VALUE1=#<SIMPLE-ERROR "~@<invalid method error for ~2I~_~S ~I~_method: ~2I~_~?~:>" {51C091D1}> (invalid method error for
                                                                                                  #<STANDARD-METHOD
                                                                                                    ZUT PROGN :AROUND (INTEGER)
                                                                                                    {51C063B1}>
                                                                                                method:
                                                                                                  The method #<STANDARD-METHOD
                                                                                                               ZUT PROGN :AROUND (INTEGER)
                                                                                                               {51C063B1}> on #<STANDARD-GENERIC-FUNCTION
                                                                                                                                ZUT (1)> has too many qualifiers.
Standard method combination requires all methods to have one
of the single qualifiers :AROUND, :BEFORE and :AFTER or to
have no qualifier at all.)
  of #P"/«PKGBUILDDIR»/tests/clos-test-23990/clos-test.lisp":test load-into-interpreter ok
; compiling file "/«PKGBUILDDIR»/tests/clos-test-23990/clos-test.lisp" (written 11 JUN 2015 09:21:13 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFGENERIC ZUT ...)
; compiling (DEFMETHOD ZUT ...)
; compiling (ZUT 1)

; /«PKGBUILDDIR»/tests/clos-test-23990/clos-test.fasl written
; compilation finished in 0:00:00.090
WARNING:
   Invalid qualifiers for PROGN method combination in method
   #<STANDARD-METHOD ZUT (INTEGER) {51C35A01}>:
     NIL.
VALUE1=#<SIMPLE-ERROR "~@<invalid method error for ~2I~_~S ~I~_method: ~2I~_~?~:>" {51CF9B91}> (invalid method error for
                                                                                                  #<STANDARD-METHOD
                                                                                                    ZUT (INTEGER)
                                                                                                    {51C35A01}>
                                                                                                method:
                                                                                                  The method #<STANDARD-METHOD
                                                                                                               ZUT (INTEGER)
                                                                                                               {51C35A01}> on #<STANDARD-GENERIC-FUNCTION
                                                                                                                                ZUT (1)> has no qualifiers.
The method combination type PROGN was defined with the
short form of DEFINE-METHOD-COMBINATION and so requires
all methods have either the single qualifier PROGN or the
single qualifier :AROUND.)
test compile-and-load ok
WARNING:
   Invalid qualifiers for PROGN method combination in method
   #<STANDARD-METHOD ZUT (INTEGER) {51C066B1}>:
     NIL.
While evaluating the form starting at line 6, column 4
VALUE1=#<SIMPLE-ERROR "~@<invalid method error for ~2I~_~S ~I~_method: ~2I~_~?~:>" {51CCBFC1}> (invalid method error for
                                                                                                  #<STANDARD-METHOD
                                                                                                    ZUT (INTEGER)
                                                                                                    {51C066B1}>
                                                                                                method:
                                                                                                  The method #<STANDARD-METHOD
                                                                                                               ZUT (INTEGER)
                                                                                                               {51C066B1}> on #<STANDARD-GENERIC-FUNCTION
                                                                                                                                ZUT (1)> has no qualifiers.
The method combination type PROGN was defined with the
short form of DEFINE-METHOD-COMBINATION and so requires
all methods have either the single qualifier PROGN or the
single qualifier :AROUND.)
  of #P"/«PKGBUILDDIR»/tests/clos-test-23990/clos-test.lisp":test load-into-interpreter ok
; compiling file "/«PKGBUILDDIR»/tests/clos-test-23990/clos-test.lisp" (written 11 JUN 2015 09:21:13 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFGENERIC ZUT ...)
; compiling (DEFMETHOD ZUT ...)
; compiling (ZUT 1)

; /«PKGBUILDDIR»/tests/clos-test-23990/clos-test.fasl written
; compilation finished in 0:00:00.094
WARNING:
   Invalid qualifiers for PROGN method combination in method
   #<STANDARD-METHOD ZUT PROGN :AROUND (INTEGER) {51C36A81}>:
     (PROGN :AROUND).
VALUE1=#<SIMPLE-ERROR "~@<invalid method error for ~2I~_~S ~I~_method: ~2I~_~?~:>" {51CF9B91}> (invalid method error for
                                                                                                  #<STANDARD-METHOD
                                                                                                    ZUT PROGN :AROUND (INTEGER)
                                                                                                    {51C36A81}>
                                                                                                method:
                                                                                                  The method #<STANDARD-METHOD
                                                                                                               ZUT PROGN :AROUND (INTEGER)
                                                                                                               {51C36A81}> on #<STANDARD-GENERIC-FUNCTION
                                                                                                                                ZUT (1)> has too many qualifiers.
The method combination type PROGN was defined with the
short form of DEFINE-METHOD-COMBINATION and so requires
all methods have either the single qualifier PROGN or the
single qualifier :AROUND.)
test compile-and-load ok
WARNING:
   Invalid qualifiers for PROGN method combination in method
   #<STANDARD-METHOD ZUT PROGN :AROUND (INTEGER) {51C059B9}>:
     (PROGN :AROUND).
While evaluating the form starting at line 6, column 4
VALUE1=#<SIMPLE-ERROR "~@<invalid method error for ~2I~_~S ~I~_method: ~2I~_~?~:>" {51CCAFC1}> (invalid method error for
                                                                                                  #<STANDARD-METHOD
                                                                                                    ZUT PROGN :AROUND (INTEGER)
                                                                                                    {51C059B9}>
                                                                                                method:
                                                                                                  The method #<STANDARD-METHOD
                                                                                                               ZUT PROGN :AROUND (INTEGER)
                                                                                                               {51C059B9}> on #<STANDARD-GENERIC-FUNCTION
                                                                                                                                ZUT (1)> has too many qualifiers.
The method combination type PROGN was defined with the
short form of DEFINE-METHOD-COMBINATION and so requires
all methods have either the single qualifier PROGN or the
single qualifier :AROUND.)
  of #P"/«PKGBUILDDIR»/tests/clos-test-23990/clos-test.lisp":test load-into-interpreter ok
; compiling file "/«PKGBUILDDIR»/tests/clos-test-23990/clos-test.lisp" (written 11 JUN 2015 09:21:14 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFCLASS ANOTHER-CLASS-WITH-SLOTS ...)
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/clos-test-23990/clos-test.fasl written
; compilation finished in 0:00:00.046
test clean-compile ok
// Running /«PKGBUILDDIR»/tests/compiler.test.sh
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:16 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN BAR
;     (1+ (FOO X))
; ==>
;   (+ (FOO X) 1)
; 
; caught WARNING:
;   Derived type of (+ (FOO X) 1) is
;     (VALUES CONS &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.051
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:16 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (FOO X X)
; 
; caught WARNING:
;   The function was called with two arguments, but wants exactly one.
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.036
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:16 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (DEFUN FOO (X) (CONS X X))
; --> PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'FOO 'NIL T))
; 
; caught WARNING:
;   Duplicate definition for FOO found in  one file.
;   See also:
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.047
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:17 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.035
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:17 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.029
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:17 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.031
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:17 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; compiling (DECLAIM (NOTINLINE FOO))
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.037
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:17 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DECLAIM (INLINE FOO))
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.053
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:17 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.035
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:18 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN BAR
;     (1+ (FOO X))
; ==>
;   (+ (FOO X) 1)
; 
; caught WARNING:
;   Derived type of (+ (FOO X) 1) is
;     (VALUES &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.051
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:18 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.033
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:18 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (1+ (LIST X))
; ==>
;   (+ (LIST X) 1)
; 
; caught WARNING:
;   Derived type of (LIST X) is
;     (VALUES CONS &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.040
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:18 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (DEFUN FOO (X) (WHEN X (ERROR "~S")))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOO
;                    (SB-INT:NAMED-LAMBDA FOO
;                        (X)
;                      (BLOCK FOO (WHEN X (ERROR "~S"))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught WARNING:
;   Too few arguments (0) to ERROR "~S": requires at least 1.
;   See also:
;     The ANSI Standard, Section 22.3.10.2
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.044
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:18 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.023
test fail-on-condition_sb-ext:compiler-note ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:19 AM):
; compiling (DEFSTRUCT BUFFER-STATE ...)
; compiling (DEFCLASS BUFFERED-STREAM-MIXIN ...)
; compiling (DEFGENERIC FROB ...)
; compiling (DEFMETHOD FROB ...)
; compiling (DEFMETHOD FROB ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.500
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:19 AM):
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (DEFUN FOO () X)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (BLOCK FOO X)
; 
; caught WARNING:
;   undefined variable: X
; 
; compilation unit finished
;   Undefined variable:
;     X
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.027
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:19 AM):
; compiling (DECLAIM (SPECIAL *X*))
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.022
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:20 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.019
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:20 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.018
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:20 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.018
test fail-on-condition_sb-ext:compiler-note ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:20 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.024
test fail-on-condition_sb-ext:compiler-note ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:20 AM):
; compiling (DECLAIM (MUFFLE-CONDITIONS COMPILER-NOTE))
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.050
test fail-on-condition_sb-ext:compiler-note ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:20 AM):
; compiling (DECLAIM (MUFFLE-CONDITIONS COMPILER-NOTE))
; compiling (DEFUN FOO ...); 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; compilation aborted after 0:00:00.018
test expect-condition_sb-ext:compiler-note ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:21 AM):
; compiling (DECLAIM (MUFFLE-CONDITIONS WARNING))
; compiling (DECLAIM (UNMUFFLE-CONDITIONS STYLE-WARNING))
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.021
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:21 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.017
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:21 AM):
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN BAR
;     (DEFUN BAR () X)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (BLOCK BAR X)
; 
; caught WARNING:
;   undefined variable: X
; 
; compilation unit finished
;   Undefined variable:
;     X
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.031
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:21 AM):
; compiling (DEFMACRO MACRO-WITH-UNBOUND-VARIABLES ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFMACRO MACRO-WITH-UNBOUND-VARIABLES
;     (DEFMACRO MACRO-WITH-UNBOUND-VARIABLES (FOO) `(PRINT ,BAR))
; --> PROGN FUNCTION LET* 
; ==>
;   (LET* ((FOO (CAR (CDR #:.WHOLE.))))
;     (BLOCK MACRO-WITH-UNBOUND-VARIABLES `(PRINT ,BAR)))
; 
; caught STYLE-WARNING:
;   The variable FOO is defined but never used.

; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFMACRO MACRO-WITH-UNBOUND-VARIABLES
;     (DEFMACRO MACRO-WITH-UNBOUND-VARIABLES (FOO) `(PRINT ,BAR))
; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET* 
; ==>
;   (LET* ((FOO (CAR (CDR #:.WHOLE.))))
;     (BLOCK MACRO-WITH-UNBOUND-VARIABLES `(PRINT ,BAR)))
; 
; caught STYLE-WARNING:
;   The variable FOO is defined but never used.

; compiling (MACRO-WITH-UNBOUND-VARIABLES (QUOTE XXX))
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: MACRO-WITH-UNBOUND-VARIABLES 'XXX
;     (MACRO-WITH-UNBOUND-VARIABLES 'XXX)
; 
; caught ERROR:
;   (during macroexpansion of (MACRO-WITH-UNBOUND-VARIABLES 'XXX))
;   The variable BAR is unbound.

; in: DEFMACRO MACRO-WITH-UNBOUND-VARIABLES
;     `(PRINT ,BAR)
; ==>
;   (SB-IMPL::|List| 'PRINT BAR)
; 
; caught WARNING:
;   undefined variable: BAR
; 
; compilation unit finished
;   Undefined variable:
;     BAR
;   caught 1 ERROR condition
;   caught 1 WARNING condition
;   caught 2 STYLE-WARNING conditions


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.085
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:21 AM):
; compiling (DEFVAR *OOPS* ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFVAR *OOPS*
;     (DEFVAR *OOPS* #<CONDITION {51B519C9}>)
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFVAR '*OOPS* (UNLESS (BOUNDP '*OOPS*) #<CONDITION {51B519C9}>)
;                     'T NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught ERROR:
;   don't know how to dump #<CONDITION {51B519C9}> (default MAKE-LOAD-FORM method called).
; 
; compilation unit finished
;   caught 1 ERROR condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.022
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:21 AM):
; compiling (DEFVAR *OOPS* ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFVAR *OOPS*
;     (DEFVAR *OOPS* #<STANDARD-OBJECT {51B519D1}>)
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFVAR '*OOPS*
;                     (UNLESS (BOUNDP '*OOPS*) #<STANDARD-OBJECT {51B519D1}>) 'T
;                     NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught ERROR:
;   don't know how to dump #<STANDARD-OBJECT {51B519D1}> (default MAKE-LOAD-FORM method called).
; 
; compilation unit finished
;   caught 1 ERROR condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.027
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:22 AM):
; compiling (DEFVAR *STRING* ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.012
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:22 AM):
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (DEFUN FOO (A B) (FORMAT NIL "abc~~def" A B))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOO
;                    (SB-INT:NAMED-LAMBDA FOO
;                        (A B)
;                      (BLOCK FOO (FORMAT NIL "abc~~def" A B)))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Too many arguments (2) to FORMAT "abc~~def": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.044
test warn-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:22 AM):
; compiling (LET (#) ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.026
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:22 AM):
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.019
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:22 AM):
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.016
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:23 AM):
; compiling (LET (#) ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (REPLACE STRING "bar")
; 
; caught WARNING:
;   Destructive function REPLACE called on constant data.
;   See also:
;     The ANSI Standard, Special Operator QUOTE
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.029
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:23 AM):
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (SETF (CHAR "bar" 0) #\1)
; --> SB-KERNEL:%CHARSET SETF LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF AREF) #:NEW1 (THE STRING "bar") 0)
; 
; caught WARNING:
;   Destructive function (SETF AREF) called on constant data.
;   See also:
;     The ANSI Standard, Special Operator QUOTE
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.025
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:23 AM):
; compiling (LET (#) ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (NCONC FOO FOO)
; 
; caught WARNING:
;   Destructive function NCONC called on constant data.
;   See also:
;     The ANSI Standard, Special Operator QUOTE
;     The ANSI Standard, Section 3.2.2.3
; 
; compilation unit finished
;   caught 1 WARNING condition


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.027
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:23 AM):
; compiling X
; compiling Y
; compiling Z
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in:
;     X
; 
; caught WARNING:
;   undefined variable: X

;     Y
; 
; caught WARNING:
;   undefined variable: Y

;     Z
; 
; caught WARNING:
;   undefined variable: Z
; 
; compilation unit finished
;   Undefined variables:
;     X Y Z
;   caught 3 WARNING conditions


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.346
test fail-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:23 AM):
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.018
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:24 AM):
; compiling (DEFSTRUCT FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.141
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:24 AM):
; compiling (DEFSTRUCT FOOX)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFSTRUCT BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.384
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:24 AM):
; compiling (DEFUN SOMETHING ...); 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     too many dots
;   
;       Line: 3, Column: -1, File-Position: 26
;   
;       Stream: #<SB-INT:FORM-TRACKING-STREAM
;                 for "file /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp"
;                 {51B746D1}>
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition

; compilation aborted after 0:00:00.024
test abort-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:25 AM):
; compiling (IF T ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.007
test clean-compile ok
test load-compiled ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:25 AM):
; compiling (DEFCONSTANT CL-PACKAGE ...)
; compiling (DEFUN CL-SYMBOL-P ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.023
test clean-compile ok
test load-compiled ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:25 AM):
; compiling (AND (EVAL-WHEN # ...))
; compiling (OR (EVAL-WHEN # ...))
; compiling (COND (T #))

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.016
test clean-compile ok
test load-compiled ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:25 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFSTRUCT MY-STRUCT ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFCLASS MY-CLASS ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFUN BAR1 ...)
; compiling (DEFUN BAR2 ...)
; compiling (DEFUN BAR3 ...)
; compiling (ASSERT (TYPEP # ...))
; compiling (ASSERT (TYPEP # ...))
; compiling (ASSERT (EQ # ...))

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.563
test clean-compile ok
test load-compiled ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:26 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFMACRO FOO ...)
; compiling (DEFUN BAR ...); 
; compilation unit aborted
;   caught 1 fatal ERROR condition

; compilation aborted after 0:00:00.039
test expect-condition_sb-c:compiler-error ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:27 AM):
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
; compilation aborted after 0:00:00.007
test expect-condition_simple-error ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:27 AM):
; compiling (DEFUN SLOT-NAME-INCF ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.033
test clean-compile ok
test load-compiled ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:27 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)
; file: /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp
; in: DEFUN FOO
;     (DOTIMES (I 42) (SETF EM (FLOAT (1+ I))))
; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ + 
; ==>
;   I
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note


; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.053
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:27 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.029
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:27 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN FOO ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.042
test clean-compile ok
; compiling file "/«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.lisp" (written 11 JUN 2015 09:21:28 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DECLAIM (NOTINLINE FOO))
; compiling (LET (#) ...)
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/compiler-test-24484/compiler-test.fasl written
; compilation finished in 0:00:00.031
test fail-on-condition_sb-ext:compiler-note ok
// Running /«PKGBUILDDIR»/tests/core.test.sh
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45576192 bytes from the dynamic space at 0x4f000000
done]
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
test SAVE-LISP-AND-DIE :TOPLEVEL ok (saved core ran)
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45645824 bytes from the dynamic space at 0x4f000000
done]
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* test Basic SAVE-LISP-AND-DIE ok (saved core ran)
STYLE-WARNING: redefining COMMON-LISP-USER::BAR in DEFUN
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1544 bytes from the static space at 0x8000000
writing 46051328 bytes from the dynamic space at 0x4f000000
done]
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
* test Callbacks after SAVE-LISP-AND-DIE ok (callback function ran)
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45490176 bytes from the dynamic space at 0x4f000000
done]
/Executable suppressed banner, good.
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45490176 bytes from the dynamic space at 0x4f000000
done]
* [undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45449216 bytes from the dynamic space at 0x4f000000
done]
* [undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
compressed 4096 bytes into 539 at level -1
writing 1448 bytes from the static space at 0x8000000
compressed 4096 bytes into 803 at level -1
writing 45613056 bytes from the dynamic space at 0x4f000000
compressed 45613056 bytes into 12116338 at level -1
done]
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
test SAVE-LISP-AND-DIE :COMPRESS ok (compressed saved core ran)
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into core-test.core:
writing 1160 bytes from the read-only space at 0x4000000
compressed 4096 bytes into 539 at level -1
writing 1448 bytes from the static space at 0x8000000
compressed 4096 bytes into 803 at level -1
writing 45613056 bytes from the dynamic space at 0x4f000000
compressed 45613056 bytes into 12115956 at level -1
done]
test SAVE-LISP-AND-DIE :EXECUTABLE-COMPRESS ok (executable compressed saved core ran)
// Running /«PKGBUILDDIR»/tests/filesys.test.sh
TRUENAMES=(#P"/«PKGBUILDDIR»/tests/filesys-test-26377/"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-3"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-4"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-5"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-6"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/test-1.tmp"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/test-2.tmp"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/wild\\?test.tmp")
test DIRECTORY/TRUENAME part 1 ok
TRUENAMES=(#P"/«PKGBUILDDIR»/tests/filesys-test-26377/"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-3"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-4"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-5"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/link-6"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/test-1.tmp"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/test-2.tmp"
           #P"/«PKGBUILDDIR»/tests/filesys-test-26377/wild\\?test.tmp")
test DIRECTORY/TRUENAME part 2 ok
test DIRECTORY/TRUENAME part 3 ok
test DIRECTORY/PATTERNS ok
test ENSURE-DIRECTORIES-EXIST part 1 ok (directory exists)
test ENSURE-DIRECTORIES-EXIST part 2 ok (directory exists)
test delete-file via d-p-d ok ok
test rename-file ok ok
test rename-file via d-p-d ok ok
test rename-file + symlink ok ok
; in: HANDLER-CASE (DELETE-DIRECTORY "will_fail")
;     (LAMBDA (X) (EXIT :CODE 1))
; ==>
;   #'(LAMBDA (X) (EXIT :CODE 1))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
test delete-directory symlink ok ok
test delete-directory symlink 2 ok ok
test delete-directory 1 ok deleted
test delete-directory 2 ok deleted
test delete-directory 3 ok deleted
test delete-directory 4 ok didn't follow link
test delete-directory 5 ok didn't follow link
test delete-directory via d-p-d ok ok
// Running /«PKGBUILDDIR»/tests/finalize.test.sh
//entering finalize.test.sh
Waiting for SBCL to finish stress-testing finalizers
OK
// Running /«PKGBUILDDIR»/tests/foreign.test.sh
//entering foreign.test.sh
building foreign-test.so
/ cc  -fPIC -shared foreign-test.c -o foreign-test.so
building foreign-test-b.so
/ cc  -fPIC -shared foreign-test-b.c -o foreign-test-b.so
building foreign-test-b2.so
/ cc  -fPIC -shared foreign-test-b2.c -o foreign-test-b2.so
building foreign-test-c.so
/ cc  -fPIC -shared foreign-test-c.c -o foreign-test-c.so
; compiling file "/«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp" (written 11 JUN 2015 09:24:47 AM):
; compiling (DECLAIM (OPTIMIZE SPEED))
; compiling (DEFINE-ALIEN-VARIABLE ENVIRON ...)
; compiling (DEFVAR *ENVIRON* ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFVAR *ENVIRON*
;     (DEFVAR *ENVIRON* ENVIRON)
; --> PROGN SB-IMPL::%DEFVAR SB-IMPL::%DEFVAR UNLESS IF PROGN ENVIRON 
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (HANDLER-CASE (PROGN # ...) ...)
; compiling (DEFINE-ALIEN-ROUTINE SUMMISH ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE SUMMISH
;     (DEFINE-ALIEN-ROUTINE SUMMISH INT (X INT) (Y INT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SUMMISH
;         (X Y)
;       (BLOCK SUMMISH
;         (WITH-ALIEN ((SUMMISH # :EXTERN "summish"))
;           (VALUES (ALIEN-FUNCALL SUMMISH X Y)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-VARIABLE NUMBERISH ...)
; compiling (DEFINE-ALIEN-ROUTINE NUMMISH ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE NUMMISH
;     (DEFINE-ALIEN-ROUTINE NUMMISH INT (X INT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NUMMISH
;         (X)
;       (BLOCK NUMMISH
;         (WITH-ALIEN ((NUMMISH # :EXTERN "nummish"))
;           (VALUES (ALIEN-FUNCALL NUMMISH X)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-VARIABLE "foo" ...)
; compiling (DEFINE-ALIEN-ROUTINE "bar" ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE "bar"
;     (DEFINE-ALIEN-ROUTINE "bar" INT)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BAR
;         NIL
;       (BLOCK BAR
;         (WITH-ALIEN ((BAR #'INT :EXTERN "bar"))
;           (VALUES (ALIEN-FUNCALL BAR)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE "negative_short" ...)
; compiling (DEFINE-ALIEN-ROUTINE "negative_int" ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE "negative_int"
;     (DEFINE-ALIEN-ROUTINE "negative_int" INT)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NEGATIVE-INT
;         NIL
;       (BLOCK NEGATIVE-INT
;         (WITH-ALIEN ((NEGATIVE-INT #'INT :EXTERN "negative_int"))
;           (VALUES (ALIEN-FUNCALL NEGATIVE-INT)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE "negative_long" ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE "negative_long"
;     (DEFINE-ALIEN-ROUTINE "negative_long" LONG)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NEGATIVE-LONG
;         NIL
;       (BLOCK NEGATIVE-LONG
;         (WITH-ALIEN ((NEGATIVE-LONG #'LONG :EXTERN "negative_long"))
;           (VALUES (ALIEN-FUNCALL NEGATIVE-LONG)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE RETURN9TH ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE RETURN9TH
;     (DEFINE-ALIEN-ROUTINE RETURN9TH FLOAT (INPUT1 FLOAT) (INPUT2 FLOAT)
;                           (INPUT3 FLOAT) (INPUT4 FLOAT) (INPUT5 FLOAT)
;                           (INPUT6 FLOAT) (INPUT7 FLOAT) (INPUT8 FLOAT)
;                           (INPUT9 FLOAT) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA RETURN9TH
;         (INPUT1 INPUT2 INPUT3 INPUT4 INPUT5 INPUT6 INPUT7 INPUT8 INPUT9 INPUT10
;          INPUT11 INPUT12)
;       (BLOCK RETURN9TH
;         (WITH-ALIEN ((RETURN9TH # :EXTERN "return9th"))
;           (VALUES
;            (ALIEN-FUNCALL RETURN9TH INPUT1 INPUT2 INPUT3 INPUT4 INPUT5 INPUT6
;                           INPUT7 INPUT8 INPUT9 INPUT10 ...)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE RETURN9THD ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE RETURN9THD
;     (DEFINE-ALIEN-ROUTINE RETURN9THD DOUBLE (F1 DOUBLE) (F2 DOUBLE) (F3 DOUBLE)
;                           (F4 DOUBLE) (F5 DOUBLE) (F6 DOUBLE) (F7 DOUBLE)
;                           (F8 DOUBLE) (F9 DOUBLE) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA RETURN9THD
;         (F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12)
;       (BLOCK RETURN9THD
;         (WITH-ALIEN ((RETURN9THD # :EXTERN "return9thd"))
;           (VALUES
;            (ALIEN-FUNCALL RETURN9THD F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 ...)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST8 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-TEST8
;     (DEFINE-ALIEN-ROUTINE LONG-TEST8 INT (INT1 INT) (INT2 INT) (INT3 INT)
;                           (INT4 INT) (INT5 INT) (INT6 INT) (INT7 INT)
;                           (LONG1 (INTEGER 64)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE LET LET LET 
; --> LET LET LET LET LET SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN 
; --> SB-C:%ALIEN-FUNCALL SB-C:%ALIEN-FUNCALL 
; ==>
;   (LOGAND #:G135 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH #:G135 -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-TEST8
;         (INT1 INT2 INT3 INT4 INT5 INT6 INT7 LONG1)
;       (BLOCK LONG-TEST8
;         (WITH-ALIEN ((LONG-TEST8 # :EXTERN "long_test8"))
;           (VALUES
;            (ALIEN-FUNCALL LONG-TEST8 INT1 INT2 INT3 INT4 INT5 INT6 INT7
;                           LONG1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST9 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-TEST9
;     (DEFINE-ALIEN-ROUTINE LONG-TEST9 INT (INT1 INT) (INT2 INT) (INT3 INT)
;                           (INT4 INT) (INT5 INT) (INT6 INT) (INT7 INT)
;                           (LONG1 (INTEGER 64)) (INT8 INT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE LET LET LET 
; --> LET LET LET LET LET LET SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS 
; --> PROGN SB-C:%ALIEN-FUNCALL SB-C:%ALIEN-FUNCALL 
; ==>
;   (LOGAND #:G191 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH #:G191 -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-TEST9
;         (INT1 INT2 INT3 INT4 INT5 INT6 INT7 LONG1 INT8)
;       (BLOCK LONG-TEST9
;         (WITH-ALIEN ((LONG-TEST9 # :EXTERN "long_test9"))
;           (VALUES
;            (ALIEN-FUNCALL LONG-TEST9 INT1 INT2 INT3 INT4 INT5 INT6 INT7 LONG1
;                           INT8)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST2 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-TEST2
;     (DEFINE-ALIEN-ROUTINE LONG-TEST2 INT (INT1 INT) (INT2 INT) (INT3 INT)
;                           (INT4 INT) (INT5 INT) (INT6 INT) (INT7 INT) (INT8 INT)
;                           (INT9 INT) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE LET LET LET 
; --> LET LET LET LET LET LET LET LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; --> SB-C:%ALIEN-FUNCALL 
; ==>
;   (LOGAND #:G257 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH #:G257 -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (LOGAND #:G258 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH #:G258 -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-TEST2
;         (INT1 INT2 INT3 INT4 INT5 INT6 INT7 INT8 INT9 LONG1 LONG2)
;       (BLOCK LONG-TEST2
;         (WITH-ALIEN ((LONG-TEST2 # :EXTERN "long_test2"))
;           (VALUES
;            (ALIEN-FUNCALL LONG-TEST2 INT1 INT2 INT3 INT4 INT5 INT6 INT7 INT8
;                           INT9 LONG1 ...)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST1 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-SAP-TEST1
;     (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST1 INT (PTR1 INT :COPY)
;                           (LONG1 (INTEGER 64)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET VALUES PROG1 LET 
; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE LET LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; --> SB-C:%ALIEN-FUNCALL 
; ==>
;   (LOGAND #:G319 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH #:G319 -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-SAP-TEST1
;         (PTR1 LONG1)
;       (BLOCK LONG-SAP-TEST1
;         (WITH-ALIEN ((LONG-SAP-TEST1 # :EXTERN "long_sap_test1")
;                      (PTR1 INT PTR1))
;           (VALUES (ALIEN-FUNCALL LONG-SAP-TEST1 # LONG1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST2 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-SAP-TEST2
;     (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST2 INT (PTR1 INT :COPY) (INT1 INT)
;                           (LONG1 (INTEGER 64)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET MULTIPLE-VALUE-PROG1 PROGN LET SYMBOL-MACROLET VALUES PROG1 LET 
; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE LET LET LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; --> SB-C:%ALIEN-FUNCALL 
; ==>
;   (LOGAND #:G354 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; ==>
;   (ASH #:G354 -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-SAP-TEST2
;         (PTR1 INT1 LONG1)
;       (BLOCK LONG-SAP-TEST2
;         (WITH-ALIEN ((LONG-SAP-TEST2 # :EXTERN "long_sap_test2")
;                      (PTR1 INT PTR1))
;           (VALUES (ALIEN-FUNCALL LONG-SAP-TEST2 # INT1 LONG1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE RETURN-LONG-LONG ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in: DEFINE-ALIEN-ROUTINE RETURN-LONG-LONG
;     (DEFINE-ALIEN-ROUTINE RETURN-LONG-LONG (INTEGER 64))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOGIOR 
; ==>
;   (ASH SB-VM::HIGH 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (LOGIOR SB-VM::LOW (ASH SB-VM::HIGH 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a T, not a (SIGNED-BYTE 32).
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C:%ALIEN-FUNCALL FUNCTION
;    '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE
;       (FUNCTION (VALUES (UNSIGNED 32) (SIGNED 32)))>)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFVAR *EXTERN* ...)
; compiling (ASSERT (= # ...))
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.lisp
; in:
;      ASSERT (= (SB-SYS:SAP-INT (ALIEN-SAP *ENVIRON*))
;            (SB-SYS:SAP-INT (ALIEN-SAP ENVIRON)))
;     (ASSERT
;      (= (SB-SYS:SAP-INT (ALIEN-SAP *ENVIRON*))
;         (SB-SYS:SAP-INT (ALIEN-SAP ENVIRON))))
; --> TAGBODY TAGBODY LET SB-KERNEL:ASSERT-ERROR LIST 
; ==>
;   (LIST '(SB-SYS:SAP-INT (ALIEN-SAP *ENVIRON*)) #:TEMP373)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (LIST '(SB-SYS:SAP-INT (ALIEN-SAP ENVIRON)) #:TEMP374)
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (SETF *INVOKE-DEBUGGER-HOOK* ...); 
; compilation unit finished
;   printed 32 notes


; /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.fast.fasl written
; compilation finished in 0:00:01.028
test compile fast ok
; compiling file "/«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp" (written 11 JUN 2015 09:24:47 AM):
; compiling (DECLAIM (OPTIMIZE SPACE))
; compiling (DEFINE-ALIEN-VARIABLE ENVIRON ...)
; compiling (DEFVAR *ENVIRON* ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFVAR *ENVIRON*
;     (DEFVAR *ENVIRON* ENVIRON)
; --> PROGN SB-IMPL::%DEFVAR SB-IMPL::%DEFVAR UNLESS IF PROGN ENVIRON 
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:%ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* C-STRING)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (HANDLER-CASE (PROGN # ...) ...)
; compiling (DEFINE-ALIEN-ROUTINE SUMMISH ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE SUMMISH
;     (DEFINE-ALIEN-ROUTINE SUMMISH INT (X INT) (Y INT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SUMMISH
;         (X Y)
;       (BLOCK SUMMISH
;         (WITH-ALIEN ((SUMMISH # :EXTERN "summish"))
;           (VALUES (ALIEN-FUNCALL SUMMISH X Y)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-VARIABLE NUMBERISH ...)
; compiling (DEFINE-ALIEN-ROUTINE NUMMISH ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE NUMMISH
;     (DEFINE-ALIEN-ROUTINE NUMMISH INT (X INT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NUMMISH
;         (X)
;       (BLOCK NUMMISH
;         (WITH-ALIEN ((NUMMISH # :EXTERN "nummish"))
;           (VALUES (ALIEN-FUNCALL NUMMISH X)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-VARIABLE "foo" ...)
; compiling (DEFINE-ALIEN-ROUTINE "bar" ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE "bar"
;     (DEFINE-ALIEN-ROUTINE "bar" INT)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA BAR
;         NIL
;       (BLOCK BAR
;         (WITH-ALIEN ((BAR #'INT :EXTERN "bar"))
;           (VALUES (ALIEN-FUNCALL BAR)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE "negative_short" ...)
; compiling (DEFINE-ALIEN-ROUTINE "negative_int" ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE "negative_int"
;     (DEFINE-ALIEN-ROUTINE "negative_int" INT)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NEGATIVE-INT
;         NIL
;       (BLOCK NEGATIVE-INT
;         (WITH-ALIEN ((NEGATIVE-INT #'INT :EXTERN "negative_int"))
;           (VALUES (ALIEN-FUNCALL NEGATIVE-INT)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE "negative_long" ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE "negative_long"
;     (DEFINE-ALIEN-ROUTINE "negative_long" LONG)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA NEGATIVE-LONG
;         NIL
;       (BLOCK NEGATIVE-LONG
;         (WITH-ALIEN ((NEGATIVE-LONG #'LONG :EXTERN "negative_long"))
;           (VALUES (ALIEN-FUNCALL NEGATIVE-LONG)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE RETURN9TH ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE RETURN9TH
;     (DEFINE-ALIEN-ROUTINE RETURN9TH FLOAT (INPUT1 FLOAT) (INPUT2 FLOAT)
;                           (INPUT3 FLOAT) (INPUT4 FLOAT) (INPUT5 FLOAT)
;                           (INPUT6 FLOAT) (INPUT7 FLOAT) (INPUT8 FLOAT)
;                           (INPUT9 FLOAT) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA RETURN9TH
;         (INPUT1 INPUT2 INPUT3 INPUT4 INPUT5 INPUT6 INPUT7 INPUT8 INPUT9 INPUT10
;          INPUT11 INPUT12)
;       (BLOCK RETURN9TH
;         (WITH-ALIEN ((RETURN9TH # :EXTERN "return9th"))
;           (VALUES
;            (ALIEN-FUNCALL RETURN9TH INPUT1 INPUT2 INPUT3 INPUT4 INPUT5 INPUT6
;                           INPUT7 INPUT8 INPUT9 INPUT10 ...)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE RETURN9THD ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE RETURN9THD
;     (DEFINE-ALIEN-ROUTINE RETURN9THD DOUBLE (F1 DOUBLE) (F2 DOUBLE) (F3 DOUBLE)
;                           (F4 DOUBLE) (F5 DOUBLE) (F6 DOUBLE) (F7 DOUBLE)
;                           (F8 DOUBLE) (F9 DOUBLE) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA RETURN9THD
;         (F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12)
;       (BLOCK RETURN9THD
;         (WITH-ALIEN ((RETURN9THD # :EXTERN "return9thd"))
;           (VALUES
;            (ALIEN-FUNCALL RETURN9THD F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 ...)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST8 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-TEST8
;     (DEFINE-ALIEN-ROUTINE LONG-TEST8 INT (INT1 INT) (INT2 INT) (INT3 INT)
;                           (INT4 INT) (INT5 INT) (INT6 INT) (INT7 INT)
;                           (LONG1 (INTEGER 64)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-TEST8
;         (INT1 INT2 INT3 INT4 INT5 INT6 INT7 LONG1)
;       (BLOCK LONG-TEST8
;         (WITH-ALIEN ((LONG-TEST8 # :EXTERN "long_test8"))
;           (VALUES
;            (ALIEN-FUNCALL LONG-TEST8 INT1 INT2 INT3 INT4 INT5 INT6 INT7
;                           LONG1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST9 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-TEST9
;     (DEFINE-ALIEN-ROUTINE LONG-TEST9 INT (INT1 INT) (INT2 INT) (INT3 INT)
;                           (INT4 INT) (INT5 INT) (INT6 INT) (INT7 INT)
;                           (LONG1 (INTEGER 64)) (INT8 INT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-TEST9
;         (INT1 INT2 INT3 INT4 INT5 INT6 INT7 LONG1 INT8)
;       (BLOCK LONG-TEST9
;         (WITH-ALIEN ((LONG-TEST9 # :EXTERN "long_test9"))
;           (VALUES
;            (ALIEN-FUNCALL LONG-TEST9 INT1 INT2 INT3 INT4 INT5 INT6 INT7 LONG1
;                           INT8)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST2 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-TEST2
;     (DEFINE-ALIEN-ROUTINE LONG-TEST2 INT (INT1 INT) (INT2 INT) (INT3 INT)
;                           (INT4 INT) (INT5 INT) (INT6 INT) (INT7 INT) (INT8 INT)
;                           (INT9 INT) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-TEST2
;         (INT1 INT2 INT3 INT4 INT5 INT6 INT7 INT8 INT9 LONG1 LONG2)
;       (BLOCK LONG-TEST2
;         (WITH-ALIEN ((LONG-TEST2 # :EXTERN "long_test2"))
;           (VALUES
;            (ALIEN-FUNCALL LONG-TEST2 INT1 INT2 INT3 INT4 INT5 INT6 INT7 INT8
;                           INT9 LONG1 ...)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST1 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-SAP-TEST1
;     (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST1 INT (PTR1 INT :COPY)
;                           (LONG1 (INTEGER 64)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-SAP-TEST1
;         (PTR1 LONG1)
;       (BLOCK LONG-SAP-TEST1
;         (WITH-ALIEN ((LONG-SAP-TEST1 # :EXTERN "long_sap_test1")
;                      (PTR1 INT PTR1))
;           (VALUES (ALIEN-FUNCALL LONG-SAP-TEST1 # LONG1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST2 ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE LONG-SAP-TEST2
;     (DEFINE-ALIEN-ROUTINE LONG-SAP-TEST2 INT (PTR1 INT :COPY) (INT1 INT)
;                           (LONG1 (INTEGER 64)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LONG-SAP-TEST2
;         (PTR1 INT1 LONG1)
;       (BLOCK LONG-SAP-TEST2
;         (WITH-ALIEN ((LONG-SAP-TEST2 # :EXTERN "long_sap_test2")
;                      (PTR1 INT PTR1))
;           (VALUES (ALIEN-FUNCALL LONG-SAP-TEST2 # INT1 LONG1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-ALIEN-ROUTINE RETURN-LONG-LONG ...)
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in: DEFINE-ALIEN-ROUTINE RETURN-LONG-LONG
;     (DEFINE-ALIEN-ROUTINE RETURN-LONG-LONG (INTEGER 64))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C:%ALIEN-FUNCALL FUNCTION
;    '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE
;       (FUNCTION (VALUES (UNSIGNED 32) (SIGNED 32)))>)
; 
; note: doing unsigned word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFVAR *EXTERN* ...)
; compiling (ASSERT (= # ...))
; file: /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.lisp
; in:
;      ASSERT (= (SB-SYS:SAP-INT (ALIEN-SAP *ENVIRON*))
;            (SB-SYS:SAP-INT (ALIEN-SAP ENVIRON)))
;     (SB-SYS:SAP-INT (ALIEN-SAP *ENVIRON*))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of SAP-INT

;     (SB-SYS:SAP-INT (ALIEN-SAP ENVIRON))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first result of SAP-INT

; compiling (SETF *INVOKE-DEBUGGER-HOOK* ...); 
; compilation unit finished
;   printed 18 notes


; /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.small.fasl written
; compilation finished in 0:00:00.723
test compile small ok
/initial assertions
/initial assertions ok
/original definitions ok
/reloading ok
/redefined versions ok
/renamed back to originals
/starting linkage table tests
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_bar"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_foo"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: Undefined alien: "late_bar"
STYLE-WARNING: Undefined alien: "late_foo"
/linkage table ok
test use small ok
/initial assertions
/initial assertions ok
/original definitions ok
/reloading ok
/redefined versions ok
/renamed back to originals
/starting linkage table tests
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_bar"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_foo"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: Undefined alien: "late_bar"
STYLE-WARNING: Undefined alien: "late_foo"
/linkage table ok
test use fast ok
testing save small
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into foreign-test.small.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45617152 bytes from the dynamic space at 0x4f000000
done]
test save small ok (successful save)
testing save fast
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into foreign-test.fast.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45617152 bytes from the dynamic space at 0x4f000000
done]
test save fast ok (successful save)
testing start fast
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
/initial assertions
/initial assertions ok
/original definitions ok
/reloading ok
/redefined versions ok
/renamed back to originals
/starting linkage table tests
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_bar"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_foo"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: Undefined alien: "late_bar"
STYLE-WARNING: Undefined alien: "late_foo"
/linkage table ok
test start fast ok
testing start small
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
/initial assertions
/initial assertions ok
/original definitions ok
/reloading ok
/redefined versions ok
/renamed back to originals
/starting linkage table tests
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_bar"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; 
; caught STYLE-WARNING:
;   Undefined alien: "late_foo"
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
STYLE-WARNING: Undefined alien: "late_bar"
STYLE-WARNING: Undefined alien: "late_foo"
/linkage table ok
test start small ok
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
Error opening shared object "/«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test-b.so":
  /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test-b.so: cannot open shared object file: No such file or directory.
* 
NIL
* STYLE-WARNING: Undefined alien: "foo"

NIL
* 
NIL
* test missing-so ok
building foreign-test.addr.heap.so
/ cc  -fPIC -shared foreign-test.addr.heap.c -o foreign-test.addr.heap.so
; in: LAMBDA ()
;     (SETQ B (ADDR A))
; --> SB-ALIEN-INTERNALS:%SET-HEAP-ALIEN SETF LET* FUNCALL SB-C::%FUNCALL 
; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (*
;                                      (STRUCT FOO (X # :OFFSET 0)
;                                       (Y # :OFFSET 32)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; compilation unit finished
;   printed 1 note
test ADDR of a heap-allocated object ok
test struct offsets ok
; compiling file "/«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.alien.enum.lisp" (written 11 JUN 2015 09:25:28 AM):
; compiling (DEFINE-ALIEN-TYPE FOO-FLAG ...)
; compiling (DEFINE-ALIEN-TYPE BAR ...)
; compiling (DEFINE-ALIEN-TYPE BARP ...)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)

; /«PKGBUILDDIR»/tests/foreign-test-26503/foreign-test.alien.enum.fasl written
; compilation finished in 0:00:00.059
test clean-compile ok
// Running /«PKGBUILDDIR»/tests/init.test.sh
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into init-test.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 46075904 bytes from the dynamic space at 0x4f000000
done]
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
/loading custom sysinit
/loading custom userinit
* 
NIL
* test userinit and sysinit loading ok (loading worked)
// Running /«PKGBUILDDIR»/tests/interface.test.sh
test simple exit ok ok
test exit with code ok ok
test exit with code ok ok
test exit with abort ok ok
test exit with abort and code 0 ok ok
test exit with abort and code 0 ok ok
// Running /«PKGBUILDDIR»/tests/room.test.sh
Dynamic space usage is:   45,396,120 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,364,992 bytes for 1,420,624 cons objects.
   6,808,128 bytes for   125,798 simple-vector objects.
   4,131,328 bytes for    91,117 instance objects.
   6,378,352 bytes for   180,396 other objects.
  45,403,552 bytes for 1,834,362 dynamic objects (space total.)
Dynamic space usage is:   45,415,464 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,368,536 bytes for 1,421,067 cons objects.
   6,809,056 bytes for   125,801 simple-vector objects.
   4,135,680 bytes for    91,206 instance objects.
   6,389,000 bytes for   180,543 other objects.
  45,423,024 bytes for 1,835,044 dynamic objects (space total.)
Dynamic space usage is:   45,434,936 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,372,080 bytes for 1,421,510 cons objects.
   6,809,984 bytes for   125,804 simple-vector objects.
   4,140,032 bytes for    91,295 instance objects.
   6,399,648 bytes for   180,690 other objects.
  45,442,496 bytes for 1,835,726 dynamic objects (space total.)
Dynamic space usage is:   45,454,408 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,375,624 bytes for 1,421,953 cons objects.
   6,810,912 bytes for   125,807 simple-vector objects.
   4,144,384 bytes for    91,384 instance objects.
   6,410,296 bytes for   180,837 other objects.
  45,461,968 bytes for 1,836,408 dynamic objects (space total.)
Dynamic space usage is:   45,473,880 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,379,168 bytes for 1,422,396 cons objects.
   6,811,840 bytes for   125,810 simple-vector objects.
   4,148,736 bytes for    91,473 instance objects.
   6,420,944 bytes for   180,984 other objects.
  45,481,440 bytes for 1,837,090 dynamic objects (space total.)
Dynamic space usage is:   45,493,352 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,382,712 bytes for 1,422,839 cons objects.
   6,812,768 bytes for   125,813 simple-vector objects.
   4,153,088 bytes for    91,562 instance objects.
   6,431,592 bytes for   181,131 other objects.
  45,500,912 bytes for 1,837,772 dynamic objects (space total.)
Dynamic space usage is:   45,512,824 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,386,256 bytes for 1,423,282 cons objects.
   6,813,696 bytes for   125,816 simple-vector objects.
   4,157,440 bytes for    91,651 instance objects.
   6,442,240 bytes for   181,278 other objects.
  45,520,384 bytes for 1,838,454 dynamic objects (space total.)
Dynamic space usage is:   45,532,296 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,389,800 bytes for 1,423,725 cons objects.
   6,814,624 bytes for   125,819 simple-vector objects.
   4,161,792 bytes for    91,740 instance objects.
   6,452,888 bytes for   181,425 other objects.
  45,539,856 bytes for 1,839,136 dynamic objects (space total.)
Dynamic space usage is:   45,551,768 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,393,344 bytes for 1,424,168 cons objects.
   6,815,552 bytes for   125,822 simple-vector objects.
   4,166,144 bytes for    91,829 instance objects.
   6,463,536 bytes for   181,572 other objects.
  45,559,328 bytes for 1,839,818 dynamic objects (space total.)
Dynamic space usage is:   45,571,240 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,396,888 bytes for 1,424,611 cons objects.
   6,816,480 bytes for   125,825 simple-vector objects.
   4,170,496 bytes for    91,918 instance objects.
   6,474,184 bytes for   181,719 other objects.
  45,578,800 bytes for 1,840,500 dynamic objects (space total.)
Dynamic space usage is:   45,590,712 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,400,432 bytes for 1,425,054 cons objects.
   6,817,408 bytes for   125,828 simple-vector objects.
   4,174,848 bytes for    92,007 instance objects.
   6,484,832 bytes for   181,866 other objects.
  45,598,272 bytes for 1,841,182 dynamic objects (space total.)
Dynamic space usage is:   45,610,184 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,403,976 bytes for 1,425,497 cons objects.
   6,818,336 bytes for   125,831 simple-vector objects.
   4,179,200 bytes for    92,096 instance objects.
   6,495,480 bytes for   182,013 other objects.
  45,617,744 bytes for 1,841,864 dynamic objects (space total.)
Dynamic space usage is:   45,629,656 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,407,520 bytes for 1,425,940 cons objects.
   6,819,264 bytes for   125,834 simple-vector objects.
   4,183,552 bytes for    92,185 instance objects.
   6,506,128 bytes for   182,160 other objects.
  45,637,216 bytes for 1,842,546 dynamic objects (space total.)
Dynamic space usage is:   45,649,128 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,411,064 bytes for 1,426,383 cons objects.
   6,820,192 bytes for   125,837 simple-vector objects.
   4,187,904 bytes for    92,274 instance objects.
   6,516,776 bytes for   182,307 other objects.
  45,656,688 bytes for 1,843,228 dynamic objects (space total.)
Dynamic space usage is:   45,668,600 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,414,608 bytes for 1,426,826 cons objects.
   6,821,120 bytes for   125,840 simple-vector objects.
   4,192,256 bytes for    92,363 instance objects.
   6,527,424 bytes for   182,454 other objects.
  45,676,160 bytes for 1,843,910 dynamic objects (space total.)
Dynamic space usage is:   45,688,072 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,418,152 bytes for 1,427,269 cons objects.
   6,822,048 bytes for   125,843 simple-vector objects.
   4,196,608 bytes for    92,452 instance objects.
   6,538,072 bytes for   182,601 other objects.
  45,695,632 bytes for 1,844,592 dynamic objects (space total.)
Dynamic space usage is:   45,707,544 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,421,696 bytes for 1,427,712 cons objects.
   6,822,976 bytes for   125,846 simple-vector objects.
   4,200,960 bytes for    92,541 instance objects.
   6,548,720 bytes for   182,748 other objects.
  45,715,104 bytes for 1,845,274 dynamic objects (space total.)
Dynamic space usage is:   45,727,016 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,425,240 bytes for 1,428,155 cons objects.
   6,823,904 bytes for   125,849 simple-vector objects.
   4,205,312 bytes for    92,630 instance objects.
   6,559,368 bytes for   182,895 other objects.
  45,734,576 bytes for 1,845,956 dynamic objects (space total.)
Dynamic space usage is:   45,746,488 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,428,784 bytes for 1,428,598 cons objects.
   6,824,832 bytes for   125,852 simple-vector objects.
   4,209,664 bytes for    92,719 instance objects.
   6,570,016 bytes for   183,042 other objects.
  45,754,048 bytes for 1,846,638 dynamic objects (space total.)
Dynamic space usage is:   45,765,960 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,432,328 bytes for 1,429,041 cons objects.
   6,825,760 bytes for   125,855 simple-vector objects.
   4,214,016 bytes for    92,808 instance objects.
   6,580,664 bytes for   183,189 other objects.
  45,773,520 bytes for 1,847,320 dynamic objects (space total.)
Dynamic space usage is:   45,785,432 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,435,872 bytes for 1,429,484 cons objects.
   6,826,688 bytes for   125,858 simple-vector objects.
   4,218,368 bytes for    92,897 instance objects.
   6,591,312 bytes for   183,336 other objects.
  45,792,992 bytes for 1,848,002 dynamic objects (space total.)
Dynamic space usage is:   45,804,904 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,439,416 bytes for 1,429,927 cons objects.
   6,827,616 bytes for   125,861 simple-vector objects.
   4,222,720 bytes for    92,986 instance objects.
   6,601,960 bytes for   183,483 other objects.
  45,812,464 bytes for 1,848,684 dynamic objects (space total.)
Dynamic space usage is:   45,824,376 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,442,960 bytes for 1,430,370 cons objects.
   6,828,544 bytes for   125,864 simple-vector objects.
   4,227,072 bytes for    93,075 instance objects.
   6,612,608 bytes for   183,630 other objects.
  45,831,936 bytes for 1,849,366 dynamic objects (space total.)
Dynamic space usage is:   45,843,848 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,446,504 bytes for 1,430,813 cons objects.
   6,829,472 bytes for   125,867 simple-vector objects.
   4,231,424 bytes for    93,164 instance objects.
   6,623,256 bytes for   183,777 other objects.
  45,851,408 bytes for 1,850,048 dynamic objects (space total.)
Dynamic space usage is:   45,863,320 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,450,048 bytes for 1,431,256 cons objects.
   6,830,400 bytes for   125,870 simple-vector objects.
   4,235,776 bytes for    93,253 instance objects.
   6,633,904 bytes for   183,924 other objects.
  45,870,880 bytes for 1,850,730 dynamic objects (space total.)
Dynamic space usage is:   45,882,792 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,453,592 bytes for 1,431,699 cons objects.
   6,831,328 bytes for   125,873 simple-vector objects.
   4,240,128 bytes for    93,342 instance objects.
   6,644,552 bytes for   184,071 other objects.
  45,890,352 bytes for 1,851,412 dynamic objects (space total.)
Dynamic space usage is:   45,902,264 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,457,136 bytes for 1,432,142 cons objects.
   6,832,256 bytes for   125,876 simple-vector objects.
   4,244,480 bytes for    93,431 instance objects.
   6,655,200 bytes for   184,218 other objects.
  45,909,824 bytes for 1,852,094 dynamic objects (space total.)
Dynamic space usage is:   45,921,736 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,460,680 bytes for 1,432,585 cons objects.
   6,833,184 bytes for   125,879 simple-vector objects.
   4,248,832 bytes for    93,520 instance objects.
   6,665,848 bytes for   184,365 other objects.
  45,929,296 bytes for 1,852,776 dynamic objects (space total.)
Dynamic space usage is:   45,941,208 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,464,224 bytes for 1,433,028 cons objects.
   6,834,112 bytes for   125,882 simple-vector objects.
   4,253,184 bytes for    93,609 instance objects.
   6,676,496 bytes for   184,512 other objects.
  45,948,768 bytes for 1,853,458 dynamic objects (space total.)
Dynamic space usage is:   45,960,680 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,467,768 bytes for 1,433,471 cons objects.
   6,835,040 bytes for   125,885 simple-vector objects.
   4,257,536 bytes for    93,698 instance objects.
   6,687,144 bytes for   184,659 other objects.
  45,968,240 bytes for 1,854,140 dynamic objects (space total.)
Dynamic space usage is:   45,980,152 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,471,312 bytes for 1,433,914 cons objects.
   6,835,968 bytes for   125,888 simple-vector objects.
   4,261,888 bytes for    93,787 instance objects.
   6,697,792 bytes for   184,806 other objects.
  45,987,712 bytes for 1,854,822 dynamic objects (space total.)
Dynamic space usage is:   45,999,624 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,474,856 bytes for 1,434,357 cons objects.
   6,836,896 bytes for   125,891 simple-vector objects.
   4,266,240 bytes for    93,876 instance objects.
   6,708,440 bytes for   184,953 other objects.
  46,007,184 bytes for 1,855,504 dynamic objects (space total.)
Dynamic space usage is:   46,019,096 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,478,400 bytes for 1,434,800 cons objects.
   6,837,824 bytes for   125,894 simple-vector objects.
   4,270,592 bytes for    93,965 instance objects.
   6,719,088 bytes for   185,100 other objects.
  46,026,656 bytes for 1,856,186 dynamic objects (space total.)
Dynamic space usage is:   46,038,568 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,481,944 bytes for 1,435,243 cons objects.
   6,838,752 bytes for   125,897 simple-vector objects.
   4,274,944 bytes for    94,054 instance objects.
   6,729,736 bytes for   185,247 other objects.
  46,046,128 bytes for 1,856,868 dynamic objects (space total.)
Dynamic space usage is:   46,058,040 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,485,488 bytes for 1,435,686 cons objects.
   6,839,680 bytes for   125,900 simple-vector objects.
   4,279,296 bytes for    94,143 instance objects.
   6,740,384 bytes for   185,394 other objects.
  46,065,600 bytes for 1,857,550 dynamic objects (space total.)
Dynamic space usage is:   46,077,512 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,489,032 bytes for 1,436,129 cons objects.
   6,840,608 bytes for   125,903 simple-vector objects.
   4,283,648 bytes for    94,232 instance objects.
   6,751,032 bytes for   185,541 other objects.
  46,085,072 bytes for 1,858,232 dynamic objects (space total.)
Dynamic space usage is:   46,096,984 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,492,576 bytes for 1,436,572 cons objects.
   6,841,536 bytes for   125,906 simple-vector objects.
   4,288,000 bytes for    94,321 instance objects.
   6,761,680 bytes for   185,688 other objects.
  46,104,544 bytes for 1,858,914 dynamic objects (space total.)
Dynamic space usage is:   46,116,456 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,496,120 bytes for 1,437,015 cons objects.
   6,842,464 bytes for   125,909 simple-vector objects.
   4,292,352 bytes for    94,410 instance objects.
   6,772,328 bytes for   185,835 other objects.
  46,124,016 bytes for 1,859,596 dynamic objects (space total.)
Dynamic space usage is:   46,135,928 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,499,664 bytes for 1,437,458 cons objects.
   6,843,392 bytes for   125,912 simple-vector objects.
   4,296,704 bytes for    94,499 instance objects.
   6,782,976 bytes for   185,982 other objects.
  46,143,488 bytes for 1,860,278 dynamic objects (space total.)
Dynamic space usage is:   46,155,400 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,503,208 bytes for 1,437,901 cons objects.
   6,844,320 bytes for   125,915 simple-vector objects.
   4,301,056 bytes for    94,588 instance objects.
   6,793,624 bytes for   186,129 other objects.
  46,162,960 bytes for 1,860,960 dynamic objects (space total.)
Dynamic space usage is:   46,174,872 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,506,752 bytes for 1,438,344 cons objects.
   6,845,248 bytes for   125,918 simple-vector objects.
   4,305,408 bytes for    94,677 instance objects.
   6,804,272 bytes for   186,276 other objects.
  46,182,432 bytes for 1,861,642 dynamic objects (space total.)
Dynamic space usage is:   46,194,344 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,510,296 bytes for 1,438,787 cons objects.
   6,846,176 bytes for   125,921 simple-vector objects.
   4,309,760 bytes for    94,766 instance objects.
   6,814,920 bytes for   186,423 other objects.
  46,201,904 bytes for 1,862,324 dynamic objects (space total.)
Dynamic space usage is:   46,213,816 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,513,840 bytes for 1,439,230 cons objects.
   6,847,104 bytes for   125,924 simple-vector objects.
   4,314,112 bytes for    94,855 instance objects.
   6,825,568 bytes for   186,570 other objects.
  46,221,376 bytes for 1,863,006 dynamic objects (space total.)
Dynamic space usage is:   46,233,288 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,517,384 bytes for 1,439,673 cons objects.
   6,848,032 bytes for   125,927 simple-vector objects.
   4,318,464 bytes for    94,944 instance objects.
   6,836,216 bytes for   186,717 other objects.
  46,240,848 bytes for 1,863,688 dynamic objects (space total.)
Dynamic space usage is:   46,252,760 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,520,928 bytes for 1,440,116 cons objects.
   6,848,960 bytes for   125,930 simple-vector objects.
   4,322,816 bytes for    95,033 instance objects.
   6,846,864 bytes for   186,864 other objects.
  46,260,320 bytes for 1,864,370 dynamic objects (space total.)
Dynamic space usage is:   46,272,232 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,524,472 bytes for 1,440,559 cons objects.
   6,849,888 bytes for   125,933 simple-vector objects.
   4,327,168 bytes for    95,122 instance objects.
   6,857,512 bytes for   187,011 other objects.
  46,279,792 bytes for 1,865,052 dynamic objects (space total.)
Dynamic space usage is:   46,291,704 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,528,016 bytes for 1,441,002 cons objects.
   6,850,816 bytes for   125,936 simple-vector objects.
   4,331,520 bytes for    95,211 instance objects.
   6,868,160 bytes for   187,158 other objects.
  46,299,264 bytes for 1,865,734 dynamic objects (space total.)
Dynamic space usage is:   46,311,176 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,531,560 bytes for 1,441,445 cons objects.
   6,851,744 bytes for   125,939 simple-vector objects.
   4,335,872 bytes for    95,300 instance objects.
   6,878,808 bytes for   187,305 other objects.
  46,318,736 bytes for 1,866,416 dynamic objects (space total.)
Dynamic space usage is:   46,330,648 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,535,104 bytes for 1,441,888 cons objects.
   6,852,672 bytes for   125,942 simple-vector objects.
   4,340,224 bytes for    95,389 instance objects.
   6,889,456 bytes for   187,452 other objects.
  46,338,208 bytes for 1,867,098 dynamic objects (space total.)
Dynamic space usage is:   46,350,120 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,538,648 bytes for 1,442,331 cons objects.
   6,853,600 bytes for   125,945 simple-vector objects.
   4,344,576 bytes for    95,478 instance objects.
   6,900,104 bytes for   187,599 other objects.
  46,357,680 bytes for 1,867,780 dynamic objects (space total.)
Dynamic space usage is:   46,369,592 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,542,192 bytes for 1,442,774 cons objects.
   6,854,528 bytes for   125,948 simple-vector objects.
   4,348,928 bytes for    95,567 instance objects.
   6,910,752 bytes for   187,746 other objects.
  46,377,152 bytes for 1,868,462 dynamic objects (space total.)
Dynamic space usage is:   46,389,064 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,545,736 bytes for 1,443,217 cons objects.
   6,855,456 bytes for   125,951 simple-vector objects.
   4,353,280 bytes for    95,656 instance objects.
   6,921,400 bytes for   187,893 other objects.
  46,396,624 bytes for 1,869,144 dynamic objects (space total.)
Dynamic space usage is:   46,408,536 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,549,280 bytes for 1,443,660 cons objects.
   6,856,384 bytes for   125,954 simple-vector objects.
   4,357,632 bytes for    95,745 instance objects.
   6,932,048 bytes for   188,040 other objects.
  46,416,096 bytes for 1,869,826 dynamic objects (space total.)
Dynamic space usage is:   46,428,008 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,552,824 bytes for 1,444,103 cons objects.
   6,857,312 bytes for   125,957 simple-vector objects.
   4,361,984 bytes for    95,834 instance objects.
   6,942,696 bytes for   188,187 other objects.
  46,435,568 bytes for 1,870,508 dynamic objects (space total.)
Dynamic space usage is:   46,447,480 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,556,368 bytes for 1,444,546 cons objects.
   6,858,240 bytes for   125,960 simple-vector objects.
   4,366,336 bytes for    95,923 instance objects.
   6,953,344 bytes for   188,334 other objects.
  46,455,040 bytes for 1,871,190 dynamic objects (space total.)
Dynamic space usage is:   46,466,952 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,559,912 bytes for 1,444,989 cons objects.
   6,859,168 bytes for   125,963 simple-vector objects.
   4,370,688 bytes for    96,012 instance objects.
   6,963,992 bytes for   188,481 other objects.
  46,474,512 bytes for 1,871,872 dynamic objects (space total.)
Dynamic space usage is:   46,486,424 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,563,456 bytes for 1,445,432 cons objects.
   6,860,096 bytes for   125,966 simple-vector objects.
   4,375,040 bytes for    96,101 instance objects.
   6,974,640 bytes for   188,628 other objects.
  46,493,984 bytes for 1,872,554 dynamic objects (space total.)
Dynamic space usage is:   46,505,896 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,567,000 bytes for 1,445,875 cons objects.
   6,861,024 bytes for   125,969 simple-vector objects.
   4,379,392 bytes for    96,190 instance objects.
   6,985,288 bytes for   188,775 other objects.
  46,513,456 bytes for 1,873,236 dynamic objects (space total.)
Dynamic space usage is:   46,525,368 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,570,544 bytes for 1,446,318 cons objects.
   6,861,952 bytes for   125,972 simple-vector objects.
   4,383,744 bytes for    96,279 instance objects.
   6,995,936 bytes for   188,922 other objects.
  46,532,928 bytes for 1,873,918 dynamic objects (space total.)
Dynamic space usage is:   46,544,840 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,574,088 bytes for 1,446,761 cons objects.
   6,862,880 bytes for   125,975 simple-vector objects.
   4,388,096 bytes for    96,368 instance objects.
   7,006,584 bytes for   189,069 other objects.
  46,552,400 bytes for 1,874,600 dynamic objects (space total.)
Dynamic space usage is:   46,564,312 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,577,632 bytes for 1,447,204 cons objects.
   6,863,808 bytes for   125,978 simple-vector objects.
   4,392,448 bytes for    96,457 instance objects.
   7,017,232 bytes for   189,216 other objects.
  46,571,872 bytes for 1,875,282 dynamic objects (space total.)
Dynamic space usage is:   46,583,784 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,581,176 bytes for 1,447,647 cons objects.
   6,864,736 bytes for   125,981 simple-vector objects.
   4,396,800 bytes for    96,546 instance objects.
   7,027,880 bytes for   189,363 other objects.
  46,591,344 bytes for 1,875,964 dynamic objects (space total.)
Dynamic space usage is:   46,603,256 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,584,720 bytes for 1,448,090 cons objects.
   6,865,664 bytes for   125,984 simple-vector objects.
   4,401,152 bytes for    96,635 instance objects.
   7,038,528 bytes for   189,510 other objects.
  46,610,816 bytes for 1,876,646 dynamic objects (space total.)
Dynamic space usage is:   46,622,728 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,588,264 bytes for 1,448,533 cons objects.
   6,866,592 bytes for   125,987 simple-vector objects.
   4,405,504 bytes for    96,724 instance objects.
   7,049,176 bytes for   189,657 other objects.
  46,630,288 bytes for 1,877,328 dynamic objects (space total.)
Dynamic space usage is:   46,642,200 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,591,808 bytes for 1,448,976 cons objects.
   6,867,520 bytes for   125,990 simple-vector objects.
   4,409,856 bytes for    96,813 instance objects.
   7,059,824 bytes for   189,804 other objects.
  46,649,760 bytes for 1,878,010 dynamic objects (space total.)
Dynamic space usage is:   46,661,672 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,595,352 bytes for 1,449,419 cons objects.
   6,868,448 bytes for   125,993 simple-vector objects.
   4,414,208 bytes for    96,902 instance objects.
   7,070,472 bytes for   189,951 other objects.
  46,669,232 bytes for 1,878,692 dynamic objects (space total.)
Dynamic space usage is:   46,681,144 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,598,896 bytes for 1,449,862 cons objects.
   6,869,376 bytes for   125,996 simple-vector objects.
   4,418,560 bytes for    96,991 instance objects.
   7,081,120 bytes for   190,098 other objects.
  46,688,704 bytes for 1,879,374 dynamic objects (space total.)
Dynamic space usage is:   46,700,616 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,602,440 bytes for 1,450,305 cons objects.
   6,870,304 bytes for   125,999 simple-vector objects.
   4,422,912 bytes for    97,080 instance objects.
   7,091,768 bytes for   190,245 other objects.
  46,708,176 bytes for 1,880,056 dynamic objects (space total.)
Dynamic space usage is:   46,720,088 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,605,984 bytes for 1,450,748 cons objects.
   6,871,232 bytes for   126,002 simple-vector objects.
   4,427,264 bytes for    97,169 instance objects.
   7,102,416 bytes for   190,392 other objects.
  46,727,648 bytes for 1,880,738 dynamic objects (space total.)
Dynamic space usage is:   46,739,560 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,609,528 bytes for 1,451,191 cons objects.
   6,872,160 bytes for   126,005 simple-vector objects.
   4,431,616 bytes for    97,258 instance objects.
   7,113,064 bytes for   190,539 other objects.
  46,747,120 bytes for 1,881,420 dynamic objects (space total.)
Dynamic space usage is:   46,759,032 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,613,072 bytes for 1,451,634 cons objects.
   6,873,088 bytes for   126,008 simple-vector objects.
   4,435,968 bytes for    97,347 instance objects.
   7,123,712 bytes for   190,686 other objects.
  46,766,592 bytes for 1,882,102 dynamic objects (space total.)
Dynamic space usage is:   46,778,504 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,616,616 bytes for 1,452,077 cons objects.
   6,874,016 bytes for   126,011 simple-vector objects.
   4,440,320 bytes for    97,436 instance objects.
   7,134,360 bytes for   190,833 other objects.
  46,786,064 bytes for 1,882,784 dynamic objects (space total.)
Dynamic space usage is:   46,797,976 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,620,160 bytes for 1,452,520 cons objects.
   6,874,944 bytes for   126,014 simple-vector objects.
   4,444,672 bytes for    97,525 instance objects.
   7,145,008 bytes for   190,980 other objects.
  46,805,536 bytes for 1,883,466 dynamic objects (space total.)
Dynamic space usage is:   46,817,448 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,623,704 bytes for 1,452,963 cons objects.
   6,875,872 bytes for   126,017 simple-vector objects.
   4,449,024 bytes for    97,614 instance objects.
   7,155,656 bytes for   191,127 other objects.
  46,825,008 bytes for 1,884,148 dynamic objects (space total.)
Dynamic space usage is:   46,836,920 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,627,248 bytes for 1,453,406 cons objects.
   6,876,800 bytes for   126,020 simple-vector objects.
   4,453,376 bytes for    97,703 instance objects.
   7,166,304 bytes for   191,274 other objects.
  46,844,480 bytes for 1,884,830 dynamic objects (space total.)
Dynamic space usage is:   46,856,392 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,630,792 bytes for 1,453,849 cons objects.
   6,877,728 bytes for   126,023 simple-vector objects.
   4,457,728 bytes for    97,792 instance objects.
   7,176,952 bytes for   191,421 other objects.
  46,863,952 bytes for 1,885,512 dynamic objects (space total.)
Dynamic space usage is:   46,875,864 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,634,336 bytes for 1,454,292 cons objects.
   6,878,656 bytes for   126,026 simple-vector objects.
   4,462,080 bytes for    97,881 instance objects.
   7,187,600 bytes for   191,568 other objects.
  46,883,424 bytes for 1,886,194 dynamic objects (space total.)
Dynamic space usage is:   46,895,336 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,637,880 bytes for 1,454,735 cons objects.
   6,879,584 bytes for   126,029 simple-vector objects.
   4,466,432 bytes for    97,970 instance objects.
   7,198,248 bytes for   191,715 other objects.
  46,902,896 bytes for 1,886,876 dynamic objects (space total.)
Dynamic space usage is:   46,914,808 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,641,424 bytes for 1,455,178 cons objects.
   6,880,512 bytes for   126,032 simple-vector objects.
   4,470,784 bytes for    98,059 instance objects.
   7,208,896 bytes for   191,862 other objects.
  46,922,368 bytes for 1,887,558 dynamic objects (space total.)
Dynamic space usage is:   46,934,280 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,644,968 bytes for 1,455,621 cons objects.
   6,881,440 bytes for   126,035 simple-vector objects.
   4,475,136 bytes for    98,148 instance objects.
   7,219,544 bytes for   192,009 other objects.
  46,941,840 bytes for 1,888,240 dynamic objects (space total.)
Dynamic space usage is:   46,953,752 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,648,512 bytes for 1,456,064 cons objects.
   6,882,368 bytes for   126,038 simple-vector objects.
   4,479,488 bytes for    98,237 instance objects.
   7,230,192 bytes for   192,156 other objects.
  46,961,312 bytes for 1,888,922 dynamic objects (space total.)
Dynamic space usage is:   46,973,224 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,652,056 bytes for 1,456,507 cons objects.
   6,883,296 bytes for   126,041 simple-vector objects.
   4,483,840 bytes for    98,326 instance objects.
   7,240,840 bytes for   192,303 other objects.
  46,980,784 bytes for 1,889,604 dynamic objects (space total.)
Dynamic space usage is:   46,992,696 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,655,600 bytes for 1,456,950 cons objects.
   6,884,224 bytes for   126,044 simple-vector objects.
   4,488,192 bytes for    98,415 instance objects.
   7,251,488 bytes for   192,450 other objects.
  47,000,256 bytes for 1,890,286 dynamic objects (space total.)
Dynamic space usage is:   47,012,168 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,659,144 bytes for 1,457,393 cons objects.
   6,885,152 bytes for   126,047 simple-vector objects.
   4,492,544 bytes for    98,504 instance objects.
   7,262,136 bytes for   192,597 other objects.
  47,019,728 bytes for 1,890,968 dynamic objects (space total.)
Dynamic space usage is:   47,031,640 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,662,688 bytes for 1,457,836 cons objects.
   6,886,080 bytes for   126,050 simple-vector objects.
   4,496,896 bytes for    98,593 instance objects.
   7,272,784 bytes for   192,744 other objects.
  47,039,200 bytes for 1,891,650 dynamic objects (space total.)
Dynamic space usage is:   47,051,112 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,666,232 bytes for 1,458,279 cons objects.
   6,887,008 bytes for   126,053 simple-vector objects.
   4,501,248 bytes for    98,682 instance objects.
   7,283,432 bytes for   192,891 other objects.
  47,058,672 bytes for 1,892,332 dynamic objects (space total.)
Dynamic space usage is:   47,070,584 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,669,776 bytes for 1,458,722 cons objects.
   6,887,936 bytes for   126,056 simple-vector objects.
   4,505,600 bytes for    98,771 instance objects.
   7,294,080 bytes for   193,038 other objects.
  47,078,144 bytes for 1,893,014 dynamic objects (space total.)
Dynamic space usage is:   47,090,056 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,673,320 bytes for 1,459,165 cons objects.
   6,888,864 bytes for   126,059 simple-vector objects.
   4,509,952 bytes for    98,860 instance objects.
   7,304,728 bytes for   193,185 other objects.
  47,097,616 bytes for 1,893,696 dynamic objects (space total.)
Dynamic space usage is:   47,109,528 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,676,864 bytes for 1,459,608 cons objects.
   6,889,792 bytes for   126,062 simple-vector objects.
   4,514,304 bytes for    98,949 instance objects.
   7,315,376 bytes for   193,332 other objects.
  47,117,088 bytes for 1,894,378 dynamic objects (space total.)
Dynamic space usage is:   47,129,000 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,680,408 bytes for 1,460,051 cons objects.
   6,890,720 bytes for   126,065 simple-vector objects.
   4,518,656 bytes for    99,038 instance objects.
   7,326,024 bytes for   193,479 other objects.
  47,136,560 bytes for 1,895,060 dynamic objects (space total.)
Dynamic space usage is:   47,148,472 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,683,952 bytes for 1,460,494 cons objects.
   6,891,648 bytes for   126,068 simple-vector objects.
   4,523,008 bytes for    99,127 instance objects.
   7,336,672 bytes for   193,626 other objects.
  47,156,032 bytes for 1,895,742 dynamic objects (space total.)
Dynamic space usage is:   47,167,944 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,687,496 bytes for 1,460,937 cons objects.
   6,892,576 bytes for   126,071 simple-vector objects.
   4,527,360 bytes for    99,216 instance objects.
   7,347,320 bytes for   193,773 other objects.
  47,175,504 bytes for 1,896,424 dynamic objects (space total.)
Dynamic space usage is:   47,187,416 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,691,040 bytes for 1,461,380 cons objects.
   6,893,504 bytes for   126,074 simple-vector objects.
   4,531,712 bytes for    99,305 instance objects.
   7,357,968 bytes for   193,920 other objects.
  47,194,976 bytes for 1,897,106 dynamic objects (space total.)
Dynamic space usage is:   47,206,888 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,694,584 bytes for 1,461,823 cons objects.
   6,894,432 bytes for   126,077 simple-vector objects.
   4,536,064 bytes for    99,394 instance objects.
   7,368,616 bytes for   194,067 other objects.
  47,214,448 bytes for 1,897,788 dynamic objects (space total.)
Dynamic space usage is:   47,226,360 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,698,128 bytes for 1,462,266 cons objects.
   6,895,360 bytes for   126,080 simple-vector objects.
   4,540,416 bytes for    99,483 instance objects.
   7,379,264 bytes for   194,214 other objects.
  47,233,920 bytes for 1,898,470 dynamic objects (space total.)
Dynamic space usage is:   47,245,832 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,701,672 bytes for 1,462,709 cons objects.
   6,896,288 bytes for   126,083 simple-vector objects.
   4,544,768 bytes for    99,572 instance objects.
   7,389,912 bytes for   194,361 other objects.
  47,253,392 bytes for 1,899,152 dynamic objects (space total.)
Dynamic space usage is:   47,265,304 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,705,216 bytes for 1,463,152 cons objects.
   6,897,216 bytes for   126,086 simple-vector objects.
   4,549,120 bytes for    99,661 instance objects.
   7,400,560 bytes for   194,508 other objects.
  47,272,864 bytes for 1,899,834 dynamic objects (space total.)
Dynamic space usage is:   47,284,776 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,708,760 bytes for 1,463,595 cons objects.
   6,898,144 bytes for   126,089 simple-vector objects.
   4,553,472 bytes for    99,750 instance objects.
   7,411,208 bytes for   194,655 other objects.
  47,292,336 bytes for 1,900,516 dynamic objects (space total.)
Dynamic space usage is:   47,304,248 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,712,304 bytes for 1,464,038 cons objects.
   6,899,072 bytes for   126,092 simple-vector objects.
   4,557,824 bytes for    99,839 instance objects.
   7,421,856 bytes for   194,802 other objects.
  47,311,808 bytes for 1,901,198 dynamic objects (space total.)
Dynamic space usage is:   47,323,720 bytes.
Read-only space usage is:      1,160 bytes.
Static space usage is:         1,448 bytes.
Control stack usage is:        1,408 bytes.
Binding stack usage is:          400 bytes.
Garbage collection is currently enabled.

Breakdown for dynamic space:
  16,720,752 bytes for    16,427 code objects.
  11,715,848 bytes for 1,464,481 cons objects.
   6,900,000 bytes for   126,095 simple-vector objects.
   4,562,176 bytes for    99,928 instance objects.
   7,432,504 bytes for   194,949 other objects.
  47,331,280 bytes for 1,901,880 dynamic objects (space total.)
test room test ok
// Running /«PKGBUILDDIR»/tests/run-program.test.sh
test run program tests ok
// Running /«PKGBUILDDIR»/tests/script.test.sh
test --script exit status from EXIT ok (status good)
test --script exit status from ERROR ok (error implies 1)
test --script backtrace not to stdout ok (ok)
test --script backtrace to stderr ok (ok)
test --script exit status from normal exit ok (everything ok)
test --script exit status from QUIT when standard-output closed ok (as given)
test --load exit status from QUIT when standard-output closed ok (as given)
test --script exit status from QUIT when original standard-output closed ok (as given)
test --load exit status from QUIT when original standard-output closed ok (as given)
test --script exit status from EXIT when stdout closed ok (as given)
test --load exit status from EXIT when stdout closed ok (as given)
test --script exit status when stdin closed ok (as given)
test --script exit status when stdout closed ok (as given)
test --script exit status from stdin ok (ok)
test --script exit status from fasl ok (ok)
// Running /«PKGBUILDDIR»/tests/side-effectful-pathnames.test.sh
/translations=(("**;*.*.*"
                "/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/**/*.*"))
; in:
;      LET* ((UNTRANSLATED "test:Load-Test.lisp")
;        (IGNORE-ME (FORMAT T "untranslated=~S~%" UNTRANSLATED))
;        (TRANSLATION (NAMESTRING (TRANSLATE-LOGICAL-PATHNAME UNTRANSLATED)))
;        (EXPECTED-TRANSLATION
;         "/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/load-test.lisp"))
;     (LET* ((UNTRANSLATED "test:Load-Test.lisp")
;            (IGNORE-ME (FORMAT T "untranslated=~S~%" UNTRANSLATED))
;            (TRANSLATION (NAMESTRING (TRANSLATE-LOGICAL-PATHNAME UNTRANSLATED)))
;            (EXPECTED-TRANSLATION
;             "/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/load-test.lisp"))
;       (FORMAT T "translation=~S~%" TRANSLATION)
;       (FORMAT T "expected-translation=~S~%" EXPECTED-TRANSLATION)
;       (ASSERT (STRING= TRANSLATION EXPECTED-TRANSLATION)))
; 
; caught STYLE-WARNING:
;   The variable IGNORE-ME is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
untranslated="test:Load-Test.lisp"
translation="/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/load-test.lisp"
expected-translation="/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/load-test.lisp"
about to LOAD "TEST:Load-Test"
; compiling file "/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/load-test.lisp" (written 11 JUN 2015 09:27:24 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPARAMETER *LOADED* ...)

; TEST:LOAD-TEST.FASL.NEWEST written
; compilation finished in 0:00:00.013
compiled-file-name="/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/load-test.fasl"
expected-file-name="/«PKGBUILDDIR»/tests/side-effectful-pathnames-test-26702/load-test.fasl"
test LOAD/COMPILE ok
test ENSURE-DIRECTORIES-EXIST ok
// Running /«PKGBUILDDIR»/tests/stream.test.sh
test bivalent-standard-input ok
test bivalent-standard-output ok
test bivalent-error-output ok
// Running /«PKGBUILDDIR»/tests/threads.test.sh
test return from main thread ok ok
test abort main thread ok ok
test exit from normal thread ok ok
/waiting
// Running /«PKGBUILDDIR»/tests/toplevel.test.sh
// Running /«PKGBUILDDIR»/tests/undefined-classoid-bug.test.sh

; file: /«PKGBUILDDIR»/tests/undefined-classoid-bug-test-26774/undefined-classoid-bug-1.lisp
; in: DEFUN A-STRUCT-REFERENCER-1
;     (A-STRUCT-SLOT STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: A-STRUCT-SLOT
; 
; compilation unit finished
;   Undefined function:
;     A-STRUCT-SLOT
;   caught 1 STYLE-WARNING condition

; in: DEFUN A-CLASS-TYPEP-2
;     (TYPEP X 'A-CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: A-CLASS
; 
; compilation unit finished
;   Undefined type:
;     A-CLASS
;   caught 1 STYLE-WARNING condition


; file: /«PKGBUILDDIR»/tests/undefined-classoid-bug-test-26774/undefined-classoid-bug-2.lisp
; in: DEFUN A-STRUCT-REFERENCER-2
;     (A-STRUCT-SLOT STRUCT)
; 
; caught STYLE-WARNING:
;   undefined function: A-STRUCT-SLOT
; 
; compilation unit finished
;   Undefined function:
;     A-STRUCT-SLOT
;   caught 1 STYLE-WARNING condition

; in: DEFUN A-CLASS-TYPEP
;     (TYPEP X 'A-CLASS)
; 
; caught STYLE-WARNING:
;   undefined type: A-CLASS
; 
; compilation unit finished
;   Undefined type:
;     A-CLASS
;   caught 1 STYLE-WARNING condition
STYLE-WARNING:
   Previously compiled call to COMMON-LISP-USER::A-STRUCT-SLOT could not be
   inlined because the structure definition for COMMON-LISP-USER::A-STRUCT was
   not yet seen. To avoid this warning, DEFSTRUCT should precede references to
   the affected functions, or they must be declared locally notinline at each
   call site.

; compiling file "/«PKGBUILDDIR»/tests/undefined-classoid-bug-test-26774/undefined-classoid-bug-1.lisp" (written 11 JUN 2015 09:27:35 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFUN A-STRUCT-REFERENCER-1 ...)
; compiling (DEFUN A-CLASS-TYPEP-2 ...)

; /«PKGBUILDDIR»/tests/undefined-classoid-bug-test-26774/undefined-classoid-bug-1.fasl written
; compilation finished in 0:00:00.040
; compiling file "/«PKGBUILDDIR»/tests/undefined-classoid-bug-test-26774/undefined-classoid-bug-2.lisp" (written 11 JUN 2015 09:27:35 AM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFUN A-STRUCT-REFERENCER-2 ...)
; compiling (DEFUN A-CLASS-TYPEP ...)
; compiling (DEFSTRUCT A-STRUCT ...)
; compiling (DEFCLASS A-CLASS ...)

; /«PKGBUILDDIR»/tests/undefined-classoid-bug-test-26774/undefined-classoid-bug-2.fasl written
; compilation finished in 0:00:00.140
test undefined-classoid-bug ok

Finished running tests.
Status:
 Failure:            float.pure.lisp / (SCALE-FLOAT-OVERFLOW BUG-372)
 Failure:            float.pure.lisp / (ADDITION-OVERFLOW BUG-372)
 Failure:            float.pure.lisp / (ADDITION-OVERFLOW BUG-372 TAKE-2)
 Unhandled Error     compare-and-swap.impure.lisp
 Failure:            debug.impure.lisp / (TRACE ENCAPSULATE NIL)
 Failure:            debug.impure.lisp / (TRACE-RECURSIVE ENCAPSULATE NIL)
 Expected failure:   packages.impure.lisp / USE-PACKAGE-CONFLICT-SET
 Expected failure:   packages.impure.lisp / IMPORT-SINGLE-CONFLICT
 Failure:            run-program.impure.lisp / IS-/BIN/ED-INSTALLED?
 Failure:            run-program.impure.lisp / RUN-PROGRAM-/BIN/ED
 Failure:            run-program.impure.lisp / (RUN-PROGRAM INHERIT-STDIN)
 (60 tests skipped for this combination of platform and features)
test failed, expected 104 return code, got 1
the tests failed
src/runtime/sbcl --core output/sbcl.core --eval '(sb-ext:set-sbcl-source-location "/usr/share/sbcl-source/")' \
                 --eval '(sb-ext:save-lisp-and-die "output/sbcl.core")'
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into output/sbcl.core:
writing 1160 bytes from the read-only space at 0x4000000
writing 1448 bytes from the static space at 0x8000000
writing 45506560 bytes from the dynamic space at 0x4f000000
done]
touch build-arch-stamp
 fakeroot debian/rules binary-arch
dh_testdir
cd doc/manual && make docstrings && make
make[1]: Entering directory '/«PKGBUILDDIR»/doc/manual'
touch tempfiles-stamp
for module in :sb-md5 :sb-queue :sb-concurrency :sb-rotate-byte :sb-grovel :sb-sprof :sb-bsd-sockets :sb-cover :sb-posix; do \
	test -f "../../obj/asdf-cache/"/`echo $module | tr -d :`/test-passed.test-report \
	|| { echo "The documented contrib $module seems \
                           to have failed its tests." && exit 1; } \
done
DOCSTRINGDIR="docstrings/" \
PACKAGES=":COMMON-LISP :SB-ALIEN :SB-DEBUG :SB-EXT :SB-GRAY :SB-MOP :SB-PCL :SB-SYS :SB-SEQUENCE :SB-UNICODE :SB-PROFILE :SB-THREAD :SB-MD5 :SB-QUEUE :SB-ROTATE-BYTE :SB-SPROF :SB-BSD-SOCKETS :SB-COVER :SB-POSIX :SB-CONCURRENCY" \
MODULES=':sb-md5 :sb-queue :sb-concurrency :sb-rotate-byte :sb-grovel :sb-sprof :sb-bsd-sockets :sb-cover :sb-posix' \
sh make-tempfiles.sh "" && touch "docstrings/"
/creating docstring snippets from SBCL='/«PKGBUILDDIR»/doc/manual/../../src/runtime/sbcl --core /«PKGBUILDDIR»/doc/manual/../../output/sbcl.core' for packages ':COMMON-LISP :SB-ALIEN :SB-DEBUG :SB-EXT :SB-GRAY :SB-MOP :SB-PCL :SB-SYS :SB-SEQUENCE :SB-UNICODE :SB-PROFILE :SB-THREAD :SB-MD5 :SB-QUEUE :SB-ROTATE-BYTE :SB-SPROF :SB-BSD-SOCKETS :SB-COVER :SB-POSIX :SB-CONCURRENCY'

; file: /«PKGBUILDDIR»/doc/manual/docstrings.lisp
; in: DEFMETHOD NAME-USING-KIND/NAME (T SYMBOL T)
;     (SB-TEXINFO::GET-PACKAGE SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-PACKAGE
; 
; compilation unit finished
;   Undefined function:
;     GET-PACKAGE
;   caught 1 STYLE-WARNING condition

; in: DEFMETHOD NAME-USING-KIND/NAME (T LIST T)
;     (SB-TEXINFO::GET-PACKAGE SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-PACKAGE
; 
; compilation unit finished
;   Undefined function:
;     GET-PACKAGE
;   caught 1 STYLE-WARNING condition

; in: DEFUN NODE-NAME
;     (SB-TEXINFO::GET-KIND SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-KIND

;     (SB-TEXINFO::GET-NAME SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-NAME
; 
; compilation unit finished
;   Undefined functions:
;     GET-KIND GET-NAME
;   caught 2 STYLE-WARNING conditions

; in: DEFMETHOD TITLE-USING-KIND/NAME (T SYMBOL T)
;     (SB-TEXINFO::GET-PACKAGE SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-PACKAGE
; 
; compilation unit finished
;   Undefined function:
;     GET-PACKAGE
;   caught 1 STYLE-WARNING condition

; in: DEFMETHOD TITLE-USING-KIND/NAME (T LIST T)
;     (SB-TEXINFO::GET-PACKAGE SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-PACKAGE
; 
; compilation unit finished
;   Undefined function:
;     GET-PACKAGE
;   caught 1 STYLE-WARNING condition

; in: DEFUN TITLE-NAME
;     (SB-TEXINFO::GET-KIND SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-KIND

;     (SB-TEXINFO::GET-NAME SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-NAME
; 
; compilation unit finished
;   Undefined functions:
;     GET-KIND GET-NAME
;   caught 2 STYLE-WARNING conditions

; in: DEFUN INCLUDE-PATHNAME
;     (SB-TEXINFO::GET-KIND SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-KIND

;     (SB-TEXINFO::GET-NAME SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-NAME

;     (SB-TEXINFO::GET-PACKAGE SB-TEXINFO::DOC)
; 
; caught STYLE-WARNING:
;   undefined function: GET-PACKAGE
; 
; compilation unit finished
;   Undefined functions:
;     GET-KIND GET-NAME GET-PACKAGE
;   caught 3 STYLE-WARNING conditions

; in: DEFMETHOD MAKE-DOCUMENTATION (T (EQL 'FUNCTION) T)
;     (SB-TEXINFO::COLLECT-GF-DOCUMENTATION SB-TEXINFO::FDEF)
; 
; caught STYLE-WARNING:
;   undefined function: COLLECT-GF-DOCUMENTATION
; 
; compilation unit finished
;   Undefined function:
;     COLLECT-GF-DOCUMENTATION
;   caught 1 STYLE-WARNING condition

; in: DEFUN WRITE-PACKAGE-MACRO
;     (SB-TEXINFO::WRITE-PACKAGEISH-MACRO PACKAGE-NAME SB-TEXINFO::MACRO-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: WRITE-PACKAGEISH-MACRO
; 
; compilation unit finished
;   Undefined function:
;     WRITE-PACKAGEISH-MACRO
;   caught 1 STYLE-WARNING condition
/creating package-locks.texi-temp
/creating encodings.texi-temp
; in:
;      WITH-OPEN-FILE (S "encodings.texi-temp" :DIRECTION :OUTPUT :IF-EXISTS
;                  :SUPERSEDE)
;     (SB-INT:DOHASH ((KEY VAL) SB-IMPL::*EXTERNAL-FORMATS*)
;       (PUSHNEW (SB-IMPL::EF-NAMES VAL) RESULT :TEST #'EQUAL))
; --> LET WITH-HASH-TABLE-ITERATOR LET MACROLET LOOP BLOCK TAGBODY PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:N-MORE-10) (KEY) (VAL) &REST #:G17)
;       (DECLARE (IGNORE #:G17))
;       (UNLESS #:N-MORE-10 (RETURN NIL))
;       (PUSHNEW (SB-IMPL::EF-NAMES VAL) RESULT :TEST #'EQUAL))
; 
; caught STYLE-WARNING:
;   The variable KEY is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
make[1]: Entering directory '/«PKGBUILDDIR»/doc/manual'
rm -f asdf.texinfo
ln -s ../../contrib/asdf/asdf.texinfo
texi2dvi -I "docstrings/" -I "../../contrib/" sbcl.texinfo
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=etex)
 restricted \write18 enabled.
entering extended mode
(./sbcl.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.)
(./texinfo-macros.texinfo (./docstrings/package-macros.texinfo))
(./variables.texinfo) [1] [2] [-1] (./support-and-bugs.texinfo Chapter 1
Cross reference values unknown; you must run TeX again. [1]
Underfull \hbox (badness 10000) in paragraph at lines 115--120
 @texttt expr[]@textrm ) and change @texttt #define QSHOW_SIGNAL 0[] @textrm to
 @texttt #define QSHOW_SIGNAL 1[] @textrm in
) (./intro.texinfo Chapter 2 [2] [3] [4] [5] [6] [7] [8]) (./start-stop.texinfo
 Chapter 3 [9]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-exit.texinfo
[10])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-save-lisp-and-
die.texinfo [11])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-save-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-sysinit-p
athname-function-star.texinfo [12])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-userinit-
pathname-function-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-core-path
name-star.texinfo) [13] [14] [15]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-init-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-exit-hook
s-star.texinfo)) (./compiler.texinfo Chapter 4 [16]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-compiler-
print-variable-alist-star.texinfo) [17]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-compiler
-note.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-code-del
etion-note.texinfo)
Overfull \hbox (13.58342pt too wide) in paragraph at lines 211--211
 []@texttt ;   Asserted type NUMBER conflicts with derived type (VALUES SYMBOL 
&OPTIONAL).[] |
[18]
Underfull \hbox (badness 10000) in paragraph at lines 268--276
 []@textrm `@texttt caught WARNING: Asserted type NUMBER conflicts with derived
 type (VALUES SYMBOL
[19] [20] [21] [22] [23]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-describe-compi
ler-policy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-restrict-compi
ler-policy.texinfo [24])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-with-co
mpilation-unit.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 43--46
 []@textrm If both an outer and an in-ner @texttt with-compilation-unit[] @text
rm pro-vide a
[25]) [26] [27]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-evaluator
-mode-star.texinfo)) (./debugger.texinfo Chapter 5 [28]
Overfull \hbox (19.3321pt too wide) in paragraph at lines 46--46
 []  @texttt 0: [ABORT   ] Reduce debugger level (leaving debugger, returning t
o toplevel).[] |

(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-invoke-de
bugger-hook-star.texinfo) [29]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-debug-pri
nt-variable-alist-star.texinfo) [30] [31] [32] [33] [34] [35] [36] [37]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-trace.t
exinfo [38])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-untrace
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-i
ndentation-step-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-max-tra
ce-indentation-star.texinfo [39])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-e
ncapsulate-default-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-step.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-disable-debugg
er.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-enable-debugge
r.texinfo)) (./efficiency.texinfo Chapter 6 [40]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-stack-all
ocate-dynamic-extent-star.texinfo [41]) [42] [43]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defglobal.te
xinfo) [44]) (./beyond-ansi.texinfo Chapter 7 [45]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-readtable-norm
alization.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-local-
nicknames.texinfo [46]
Underfull \hbox (badness 10000) in paragraph at lines 15--17
 []@textrm See also: @texttt add-package-local-nickname[]@textrm , @texttt pack
age-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locall
y-nicknamed-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-package-lo
cal-nickname.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 23--25
 []@textrm See also: @texttt package-local-nicknames[]@textrm , @texttt package
-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-package
-local-nickname.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-on-packag
e-variance-star.texinfo [47])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-after-gc-
hooks-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-finalize.texin
fo [48])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-cancel-finaliz
ation.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-weak-poin
ter.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-weak-pointer-v
alue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-gc-run-ti
me-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-bytes-consed-b
etween-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-dynamic-space-
size.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-bytes-cons
ed.texinfo [49])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc-logfile.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-ave
rage-age.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-allocated.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-consed-between-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-min
imum-age-before-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs-before-promotion.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs.texinfo) [50] [51]
Underfull \hbox (badness 10000) in paragraph at lines 399--407
 [][][][]@textrm distinguishing un-bound in-stance al-lo-cated slots from bound
 ones when us-ing
[52]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-length.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-elt.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-elt.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-adjust-se
quence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-like.texinfo) [53]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-emptyp.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-map.texin
fo)
Underfull \hbox (badness 10000) in paragraph at lines 520--524
 @texttt if-not[]@textrm , @texttt sb-sequence:substitute[]@textrm , @texttt sb
-sequence:substitute-if[]@textrm ,

(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-concatena
te.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 543--546
 []@texttt sb-sequence:delete[]@textrm , @texttt sb-sequence:delete-if[]@textrm
 , @texttt sb-sequence:delete-if-not[]@textrm ,
[54]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-merge.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-doseque
nce.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-iterator.texinfo) [55]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator-functions.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
step.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
endp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-iter
ator-element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
index.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
copy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-simp
le-sequence-iterator.texinfo) [56]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-posix-getenv.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-run-program.te
xinfo [57])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-p.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-input.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-output
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-error.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-alive-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-status
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-wait.t
exinfo [58])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-exit-c
ode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-core-d
umped.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-close.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-kill.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-general-ca
tegory.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-class
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-combining-
class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-decimal-va
lue.texinfo [59])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-digit-valu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-numeric-va
lue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-mirrored-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-mirro
ring-glyph.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-age.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hangul-syl
lable-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-east-asian
-width.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-script.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-char-block
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-1-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-proplist-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-cased-p.te
xinfo [60])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-case-ignor
able-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-alphabetic
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-ideographi
c-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-math-p.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-whitespace
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-soft-dotte
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hex-digit-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-default-ig
norable-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-grapheme-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-word-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentence-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-line-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalize-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalized
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase.
texinfo [61])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-titlecase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-casefold.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode=.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-eq
ual.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-confusable
-p.texinfo [62])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-graphemes.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-words.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentences.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lines.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-require.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-module-pr
ovider-functions-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-ed.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-ed-functi
ons-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-muffled-w
arnings-star.texinfo [63])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-make-hash
-table.texinfo [64])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-hash-
table-test.texinfo [65])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-locked-
hash-table.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-syn
chronized-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-wea
kness.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-seed-random-st
ate.texinfo [66])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-array-storage-
vector.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-delete-directo
ry.texinfo [67])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-time-of-da
y.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-wait-for.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-assert-version
-gt=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-purify.texinfo
[68])
(/«PKGBUILDDIR»/doc/manual/docstrings/special-operator-sb-ext-t
ruly-the.texinfo)) (./ffi.texinfo Chapter 8 [69] [70]
Underfull \hbox (badness 10000) in paragraph at lines 210--216
 []@textrm The for-eign type spec-i-fier @texttt (sb-alien:union @textttsl name
 @texttt &rest @textttsl fields@texttt )[] @textrm is sim-i-lar to
[71]
Overfull \hbox (18.01857pt too wide) in paragraph at lines 304--304
 []@texttt (define-alien-routine test int (str (c-string :external-format :ebcd
ic-us)))[] |
[72] [73]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-alien-make-alien
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-make-alien-s
tring.texinfo [74])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-free-alien.t
exinfo) [75] [76]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-load-shared-
object.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-unload-share
d-object.texinfo) [77] [78] [79] [80]
Overfull \hbox (13.58342pt too wide) in paragraph at lines 1140--1140
 []                      @texttt (c-function 5 "another Lisp string" (addr c-st
ruct) ar)))[] |
[81]) (./pathnames.texinfo Chapter 9 [82]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-set-sbcl-sourc
e-location.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-parse-native-n
amestring.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-pathnam
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-namestr
ing.texinfo [83])) (./streams.texinfo Chapter 10 [84] (./encodings.texi-temp
[85] [86])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-stream.texinfo [87])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-input-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-input-stream, fundamenta
l-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-output-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-output-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-binary-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-output-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-output-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 @texttt stream, fundamental-character-stream, fundamental-stream, standard-obj
ect,
[88])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-stream-el
ement-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-close.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-file-p
osition.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
input.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-s
equence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-peek-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-l
ine.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-listen
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-unread
-char.texinfo [89])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-finish
-output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-force-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
sequence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-advanc
e-to-column.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-fresh-
line.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-c
olumn.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-l
ength.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-start-
line-p.texinfo [90])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-terpri
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
char.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-b
yte.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
byte.texinfo) (./gray-streams-examples.texinfo [91] [92] [93])
(/«PKGBUILDDIR»/contrib/sb-simple-streams/sb-simple-streams.tex
info)) (./package-locks.texi-temp Chapter 11 [94]
Underfull \hbox (badness 7685) in paragraph at lines 60--64
[]@textrm Unless ex-plic-itly al-tered by @texttt defpackage[]@textrm , @texttt
 sb-ext:add-implementation-package[]@textrm , or
[95] [96]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
lock-violation.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt package-lock-violation, package-erro
r, error, serious-
[97])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-symbol-p
ackage-locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locked
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-lock-package.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unlock-package
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ented-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ents-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-implementa
tion-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-impleme
ntation-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-without-pack
age-locks.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-unlocke
d-packages.texinfo) [98]) (./threading.texinfo Chapter 12 [99]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-thread.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-thread-star-curren
t-thread-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-list-all-th
reads.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-aliv
e-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-name
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-return-fr
om-thread.texinfo [100])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-abort-threa
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-join-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-yiel
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-interrupt-t
hread.texinfo [101])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-terminate-t
hread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-symbol-valu
e-in-thread.texinfo [102])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-threa
d-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-erro
r-thread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-inter
rupt-thread-error.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt interrupt-thread-error, thread-error
, error, serious-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-join-
thread-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-decf.
texinfo [103])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-incf.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-pop.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-push.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-updat
e.texinfo [104])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-compare-and-
swap.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-cas.texinfo
[105])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-cas-e
xpander.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defcas.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-cas-expans
ion.texinfo) [106]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-mutex.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-mute
x.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-recu
rsive-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-name.
texinfo [107])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-owner
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-value
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-grab-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-release-mut
ex.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-signal-sema
phore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-wait-on-sem
aphore.texinfo [108])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-try-semapho
re.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 6--9
 []@textrm If @texttt notification[] @textrm is given it must be a semaphore no
-ti-fi-ca-tion ob-ject with
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-c
ount.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
otification-status.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-clear-semap
hore-notification.texinfo) [109]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-waitqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-waitqu
eue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-waitqueue-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-w
ait.texinfo [110])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-n
otify.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-b
roadcast.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 295--298
 []@texttt sb-thread:grab-mutex[]@textrm , @texttt sb-thread:release-mutex[]@te
xtrm , @texttt sb-thread:with-mutex[] @textrm and

Underfull \hbox (badness 10000) in paragraph at lines 298--301
 []@texttt sb-thread:signal-semaphore[]@textrm , @texttt sb-thread:try-semaphor
e[] @textrm and @texttt sb-thread:wait-on-
[111]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-barrier.t
exinfo) [112]) (./timers.texinfo Chapter 13 [113]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-ext-timer.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-timer.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-name.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-schedule
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-schedule-timer
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unschedule-tim
er.texinfo [114])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-list-all-timer
s.texinfo))
(/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sb-bsd-sockets.texinfo
Chapter 14 [115]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-sock
et.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-bind.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-accept.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-connect.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-peername.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-receive.texinfo [116])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-send.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-listen.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-open-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-close.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-shutdown.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-make-stream.texinfo [117])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-non-bl
ocking-mode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-reuse-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-keep-alive.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-oob-inline.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-bsd-compatible.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-pass-credentials.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-debug.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-dont-route.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-broadcast.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-tcp-nodelay.texinfo) [118]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
6-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net6-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-pr
otocol-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-loca
l-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-host
-ent.texinfo [119])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-host-e
nt-address.texinfo)) (./profiling.texinfo Chapter 15 [120]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-profile.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-unprofil
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-report.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-reset.texi
nfo) (/«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.texinfo [121]
[122]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-profi
ling.texinfo [123])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-sampl
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-report.texin
fo [124])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-reset.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-start-profil
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-stop-profili
ng.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-profile-call
-counts.texinfo [125])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-unprofile-ca
ll-counts.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-max-sam
ples-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-sample-
interval-star.texinfo))) (./contrib-modules.texinfo Chapter 16 [126] [127]
(/«PKGBUILDDIR»/contrib/sb-aclrepl/sb-aclrepl.texinfo) [128]
(/«PKGBUILDDIR»/contrib/sb-concurrency/sb-concurrency.texinfo
[129]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-que
ue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-dequeu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-enqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-q
ueue-contents.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-q
ueue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queuep
.texinfo) [130]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-mai
lbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-m
ailbox-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
xp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-m
ailbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-pending-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-send-m
essage.texinfo) [131]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-gat
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-close-
gate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-o
pen-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gatep.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-open-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-wait-o
n-gate.texinfo) [132]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-frl
ock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-read.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-write.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-f
rlock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-begin.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-end.texinfo [133])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-grab-f
rlock-write-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-releas
e-frlock-write-lock.texinfo)) [134]
(/«PKGBUILDDIR»/contrib/sb-cover/sb-cover.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-report.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-reset-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-clear-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e-in-file.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage.texinfo [135])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage-from-file.texinfo)) [136]
(/«PKGBUILDDIR»/contrib/sb-grovel/sb-grovel.texinfo [137]
[138]
Overfull \hbox (23.76726pt too wide) in paragraph at lines 189--189
 []                                                     @texttt (argument2 alie
n-type)))[] |

Underfull \hbox (badness 10000) in paragraph at lines 228--234
 []@texttt (setf (mystruct-myint var) new-val)[] @textrm and @texttt (setf (mys
truct-mystring var)
) [139] (/«PKGBUILDDIR»/contrib/sb-md5/sb-md5.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-file.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-sequenc
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-stream.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-string.
texinfo)) [140]
(/«PKGBUILDDIR»/contrib/sb-posix/sb-posix.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor-designator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-file-descrip
tor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename.te
xinfo [141])
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename-de
signator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-filename.tex
info) [142]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-flock.texi
nfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt type[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt whence[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt start[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt len[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-passwd.tex
info
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt name[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 7722) in paragraph at lines 10--11
 []@texttt passwd[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt uid[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt gid[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[143]
Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt gecos[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 22--23
 []@texttt dir[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 25--26
 []@texttt shell[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-stat.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-termios.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt iflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[144]
Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt oflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt cflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt lflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt cc[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-timeval.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt sec[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt usec[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-getcwd.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-readlink.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-syslog.texin
fo)) [145] (/«PKGBUILDDIR»/contrib/sb-queue/sb-queue.texinfo)
[146]
(/«PKGBUILDDIR»/contrib/sb-rotate-byte/sb-rotate-byte.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-rotate-byte-rotate
-byte.texinfo))) (./deprecated.texinfo Chapter 17 [147] [148] [149]
Underfull \hbox (badness 10000) in paragraph at lines 245--250
 @texttt spinlock[]@textrm , @texttt sb-thread::with-recursive-spinlock[]@textr
m , @texttt sb-thread::get-spinlock[]@textrm ,
[150]
Underfull \hbox (badness 10000) in paragraph at lines 268--269
 []@textbf SB-THREAD:JOIN-THREAD-ERROR-THREAD and SB-THREAD:INTERRUPT-
[151]) (./backmatter.texinfo Appendix A [152] Appendix B [153] Appendix C
[154] Appendix D [155] (Colophon) [156]) [157] )
(see the transcript file for additional information)
Output written on sbcl.dvi (160 pages, 526388 bytes).
Transcript written on sbcl.log.
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=etex)
 restricted \write18 enabled.
entering extended mode
(./sbcl.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) (./sbcl.aux)
(./texinfo-macros.texinfo (./docstrings/package-macros.texinfo))
(./variables.texinfo) [1] [2] (./sbcl.toc [-1] [-2] [-3] [-4] [-5]) [-6]
(./support-and-bugs.texinfo Chapter 1 [1]
Underfull \hbox (badness 10000) in paragraph at lines 115--120
 @texttt expr[]@textrm ) and change @texttt #define QSHOW_SIGNAL 0[] @textrm to
 @texttt #define QSHOW_SIGNAL 1[] @textrm in
) (./intro.texinfo Chapter 2 [2] [3] [4] [5] [6] [7] [8]) (./start-stop.texinfo
 Chapter 3 [9]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-exit.texinfo
[10])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-save-lisp-and-
die.texinfo [11])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-save-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-sysinit-p
athname-function-star.texinfo [12])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-userinit-
pathname-function-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-core-path
name-star.texinfo) [13] [14] [15]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-init-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-exit-hook
s-star.texinfo)) (./compiler.texinfo Chapter 4 [16]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-compiler-
print-variable-alist-star.texinfo) [17]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-compiler
-note.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-code-del
etion-note.texinfo)
Overfull \hbox (13.58342pt too wide) in paragraph at lines 211--211
 []@texttt ;   Asserted type NUMBER conflicts with derived type (VALUES SYMBOL 
&OPTIONAL).[] |
[18]
Underfull \hbox (badness 10000) in paragraph at lines 268--276
 []@textrm `@texttt caught WARNING: Asserted type NUMBER conflicts with derived
 type (VALUES SYMBOL
[19] [20] [21] [22] [23]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-describe-compi
ler-policy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-restrict-compi
ler-policy.texinfo [24])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-with-co
mpilation-unit.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 43--46
 []@textrm If both an outer and an in-ner @texttt with-compilation-unit[] @text
rm pro-vide a
[25]) [26] [27]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-evaluator
-mode-star.texinfo)) (./debugger.texinfo Chapter 5 [28]
Overfull \hbox (19.3321pt too wide) in paragraph at lines 46--46
 []  @texttt 0: [ABORT   ] Reduce debugger level (leaving debugger, returning t
o toplevel).[] |

(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-invoke-de
bugger-hook-star.texinfo) [29]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-debug-pri
nt-variable-alist-star.texinfo) [30] [31] [32] [33] [34] [35] [36] [37]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-trace.t
exinfo [38])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-untrace
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-i
ndentation-step-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-max-tra
ce-indentation-star.texinfo [39])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-e
ncapsulate-default-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-step.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-disable-debugg
er.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-enable-debugge
r.texinfo)) (./efficiency.texinfo Chapter 6 [40]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-stack-all
ocate-dynamic-extent-star.texinfo [41]) [42] [43]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defglobal.te
xinfo) [44]) (./beyond-ansi.texinfo Chapter 7 [45]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-readtable-norm
alization.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-local-
nicknames.texinfo [46]
Underfull \hbox (badness 10000) in paragraph at lines 15--17
 []@textrm See also: @texttt add-package-local-nickname[]@textrm , @texttt pack
age-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locall
y-nicknamed-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-package-lo
cal-nickname.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 23--25
 []@textrm See also: @texttt package-local-nicknames[]@textrm , @texttt package
-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-package
-local-nickname.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-on-packag
e-variance-star.texinfo [47])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-after-gc-
hooks-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-finalize.texin
fo [48])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-cancel-finaliz
ation.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-weak-poin
ter.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-weak-pointer-v
alue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-gc-run-ti
me-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-bytes-consed-b
etween-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-dynamic-space-
size.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-bytes-cons
ed.texinfo [49])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc-logfile.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-ave
rage-age.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-allocated.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-consed-between-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-min
imum-age-before-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs-before-promotion.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs.texinfo) [50] [51]
Underfull \hbox (badness 10000) in paragraph at lines 399--407
 [][][][]@textrm distinguishing un-bound in-stance al-lo-cated slots from bound
 ones when us-ing
[52]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-length.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-elt.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-elt.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-adjust-se
quence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-like.texinfo) [53]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-emptyp.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-map.texin
fo)
Underfull \hbox (badness 10000) in paragraph at lines 520--524
 @texttt if-not[]@textrm , @texttt sb-sequence:substitute[]@textrm , @texttt sb
-sequence:substitute-if[]@textrm ,

(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-concatena
te.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 543--546
 []@texttt sb-sequence:delete[]@textrm , @texttt sb-sequence:delete-if[]@textrm
 , @texttt sb-sequence:delete-if-not[]@textrm ,
[54]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-merge.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-doseque
nce.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-iterator.texinfo) [55]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator-functions.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
step.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
endp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-iter
ator-element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
index.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
copy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-simp
le-sequence-iterator.texinfo) [56]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-posix-getenv.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-run-program.te
xinfo [57])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-p.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-input.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-output
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-error.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-alive-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-status
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-wait.t
exinfo [58])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-exit-c
ode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-core-d
umped.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-close.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-kill.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-general-ca
tegory.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-class
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-combining-
class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-decimal-va
lue.texinfo [59])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-digit-valu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-numeric-va
lue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-mirrored-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-mirro
ring-glyph.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-age.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hangul-syl
lable-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-east-asian
-width.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-script.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-char-block
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-1-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-proplist-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-cased-p.te
xinfo [60])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-case-ignor
able-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-alphabetic
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-ideographi
c-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-math-p.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-whitespace
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-soft-dotte
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hex-digit-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-default-ig
norable-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-grapheme-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-word-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentence-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-line-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalize-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalized
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase.
texinfo [61])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-titlecase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-casefold.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode=.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-eq
ual.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-confusable
-p.texinfo [62])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-graphemes.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-words.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentences.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lines.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-require.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-module-pr
ovider-functions-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-ed.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-ed-functi
ons-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-muffled-w
arnings-star.texinfo [63])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-make-hash
-table.texinfo [64])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-hash-
table-test.texinfo [65])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-locked-
hash-table.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-syn
chronized-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-wea
kness.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-seed-random-st
ate.texinfo [66])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-array-storage-
vector.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-delete-directo
ry.texinfo [67])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-time-of-da
y.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-wait-for.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-assert-version
-gt=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-purify.texinfo
[68])
(/«PKGBUILDDIR»/doc/manual/docstrings/special-operator-sb-ext-t
ruly-the.texinfo)) (./ffi.texinfo Chapter 8 [69] [70]
Underfull \hbox (badness 10000) in paragraph at lines 210--216
 []@textrm The for-eign type spec-i-fier @texttt (sb-alien:union @textttsl name
 @texttt &rest @textttsl fields@texttt )[] @textrm is sim-i-lar to
[71]
Overfull \hbox (18.01857pt too wide) in paragraph at lines 304--304
 []@texttt (define-alien-routine test int (str (c-string :external-format :ebcd
ic-us)))[] |
[72] [73]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-alien-make-alien
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-make-alien-s
tring.texinfo [74])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-free-alien.t
exinfo) [75] [76]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-load-shared-
object.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-unload-share
d-object.texinfo) [77] [78] [79] [80]
Overfull \hbox (13.58342pt too wide) in paragraph at lines 1140--1140
 []                      @texttt (c-function 5 "another Lisp string" (addr c-st
ruct) ar)))[] |
[81]) (./pathnames.texinfo Chapter 9 [82]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-set-sbcl-sourc
e-location.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-parse-native-n
amestring.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-pathnam
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-namestr
ing.texinfo [83])) (./streams.texinfo Chapter 10 [84] (./encodings.texi-temp
[85] [86])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-stream.texinfo [87])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-input-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-input-stream, fundamenta
l-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-output-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-output-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-binary-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-output-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-output-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 @texttt stream, fundamental-character-stream, fundamental-stream, standard-obj
ect,
[88])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-stream-el
ement-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-close.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-file-p
osition.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
input.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-s
equence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-peek-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-l
ine.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-listen
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-unread
-char.texinfo [89])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-finish
-output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-force-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
sequence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-advanc
e-to-column.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-fresh-
line.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-c
olumn.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-l
ength.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-start-
line-p.texinfo [90])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-terpri
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
char.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-b
yte.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
byte.texinfo) (./gray-streams-examples.texinfo [91] [92] [93])
(/«PKGBUILDDIR»/contrib/sb-simple-streams/sb-simple-streams.tex
info)) (./package-locks.texi-temp Chapter 11 [94]
Underfull \hbox (badness 7685) in paragraph at lines 60--64
[]@textrm Unless ex-plic-itly al-tered by @texttt defpackage[]@textrm , @texttt
 sb-ext:add-implementation-package[]@textrm , or
[95] [96]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
lock-violation.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt package-lock-violation, package-erro
r, error, serious-
[97])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-symbol-p
ackage-locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locked
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-lock-package.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unlock-package
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ented-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ents-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-implementa
tion-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-impleme
ntation-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-without-pack
age-locks.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-unlocke
d-packages.texinfo) [98]) (./threading.texinfo Chapter 12 [99]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-thread.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-thread-star-curren
t-thread-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-list-all-th
reads.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-aliv
e-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-name
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-return-fr
om-thread.texinfo [100])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-abort-threa
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-join-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-yiel
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-interrupt-t
hread.texinfo [101])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-terminate-t
hread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-symbol-valu
e-in-thread.texinfo [102])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-threa
d-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-erro
r-thread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-inter
rupt-thread-error.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt interrupt-thread-error, thread-error
, error, serious-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-join-
thread-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-decf.
texinfo [103])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-incf.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-pop.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-push.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-updat
e.texinfo [104])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-compare-and-
swap.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-cas.texinfo
[105])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-cas-e
xpander.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defcas.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-cas-expans
ion.texinfo) [106]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-mutex.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-mute
x.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-recu
rsive-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-name.
texinfo [107])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-owner
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-value
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-grab-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-release-mut
ex.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-signal-sema
phore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-wait-on-sem
aphore.texinfo [108])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-try-semapho
re.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 6--9
 []@textrm If @texttt notification[] @textrm is given it must be a semaphore no
-ti-fi-ca-tion ob-ject with
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-c
ount.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
otification-status.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-clear-semap
hore-notification.texinfo) [109]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-waitqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-waitqu
eue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-waitqueue-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-w
ait.texinfo [110])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-n
otify.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-b
roadcast.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 295--298
 []@texttt sb-thread:grab-mutex[]@textrm , @texttt sb-thread:release-mutex[]@te
xtrm , @texttt sb-thread:with-mutex[] @textrm and

Underfull \hbox (badness 10000) in paragraph at lines 298--301
 []@texttt sb-thread:signal-semaphore[]@textrm , @texttt sb-thread:try-semaphor
e[] @textrm and @texttt sb-thread:wait-on-
[111]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-barrier.t
exinfo) [112]) (./timers.texinfo Chapter 13 [113]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-ext-timer.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-timer.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-name.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-schedule
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-schedule-timer
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unschedule-tim
er.texinfo [114])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-list-all-timer
s.texinfo))
(/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sb-bsd-sockets.texinfo
Chapter 14 [115]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-sock
et.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-bind.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-accept.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-connect.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-peername.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-receive.texinfo [116])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-send.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-listen.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-open-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-close.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-shutdown.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-make-stream.texinfo [117])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-non-bl
ocking-mode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-reuse-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-keep-alive.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-oob-inline.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-bsd-compatible.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-pass-credentials.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-debug.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-dont-route.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-broadcast.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-tcp-nodelay.texinfo) [118]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
6-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net6-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-pr
otocol-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-loca
l-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-host
-ent.texinfo [119])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-host-e
nt-address.texinfo)) (./profiling.texinfo Chapter 15 [120]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-profile.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-unprofil
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-report.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-reset.texi
nfo) (/«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.texinfo [121]
[122]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-profi
ling.texinfo [123])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-sampl
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-report.texin
fo [124])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-reset.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-start-profil
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-stop-profili
ng.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-profile-call
-counts.texinfo [125])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-unprofile-ca
ll-counts.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-max-sam
ples-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-sample-
interval-star.texinfo))) (./contrib-modules.texinfo Chapter 16 [126] [127]
(/«PKGBUILDDIR»/contrib/sb-aclrepl/sb-aclrepl.texinfo) [128]
(/«PKGBUILDDIR»/contrib/sb-concurrency/sb-concurrency.texinfo
[129]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-que
ue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-dequeu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-enqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-q
ueue-contents.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-q
ueue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queuep
.texinfo) [130]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-mai
lbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-m
ailbox-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
xp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-m
ailbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-pending-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-send-m
essage.texinfo) [131]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-gat
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-close-
gate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-o
pen-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gatep.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-open-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-wait-o
n-gate.texinfo) [132]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-frl
ock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-read.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-write.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-f
rlock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-begin.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-end.texinfo [133])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-grab-f
rlock-write-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-releas
e-frlock-write-lock.texinfo)) [134]
(/«PKGBUILDDIR»/contrib/sb-cover/sb-cover.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-report.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-reset-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-clear-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e-in-file.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage.texinfo [135])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage-from-file.texinfo)) [136]
(/«PKGBUILDDIR»/contrib/sb-grovel/sb-grovel.texinfo [137]
[138]
Overfull \hbox (23.76726pt too wide) in paragraph at lines 189--189
 []                                                     @texttt (argument2 alie
n-type)))[] |

Underfull \hbox (badness 10000) in paragraph at lines 228--234
 []@texttt (setf (mystruct-myint var) new-val)[] @textrm and @texttt (setf (mys
truct-mystring var)
) [139] (/«PKGBUILDDIR»/contrib/sb-md5/sb-md5.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-file.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-sequenc
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-stream.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-string.
texinfo)) [140]
(/«PKGBUILDDIR»/contrib/sb-posix/sb-posix.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor-designator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-file-descrip
tor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename.te
xinfo [141])
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename-de
signator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-filename.tex
info) [142]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-flock.texi
nfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt type[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt whence[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt start[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt len[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-passwd.tex
info
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt name[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 7722) in paragraph at lines 10--11
 []@texttt passwd[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt uid[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt gid[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[143]
Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt gecos[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 22--23
 []@texttt dir[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 25--26
 []@texttt shell[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-stat.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-termios.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt iflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[144]
Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt oflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt cflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt lflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt cc[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-timeval.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt sec[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt usec[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-getcwd.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-readlink.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-syslog.texin
fo)) [145] (/«PKGBUILDDIR»/contrib/sb-queue/sb-queue.texinfo)
[146]
(/«PKGBUILDDIR»/contrib/sb-rotate-byte/sb-rotate-byte.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-rotate-byte-rotate
-byte.texinfo))) (./deprecated.texinfo Chapter 17 [147] [148] [149]
Underfull \hbox (badness 10000) in paragraph at lines 245--250
 @texttt spinlock[]@textrm , @texttt sb-thread::with-recursive-spinlock[]@textr
m , @texttt sb-thread::get-spinlock[]@textrm ,
[150]
Underfull \hbox (badness 10000) in paragraph at lines 268--269
 []@textbf SB-THREAD:JOIN-THREAD-ERROR-THREAD and SB-THREAD:INTERRUPT-
[151]) (./backmatter.texinfo Appendix A [152] (./sbcl.cps [153]) Appendix B
[154] (./sbcl.fns [155] [156] [157]) Appendix C [158] (./sbcl.vrs) Appendix D
[159] (./sbcl.tps) (Colophon) [160]) [161] )
(see the transcript file for additional information)
Output written on sbcl.dvi (169 pages, 814348 bytes).
Transcript written on sbcl.log.
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=etex)
 restricted \write18 enabled.
entering extended mode
(./sbcl.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) (./sbcl.aux)
(./texinfo-macros.texinfo (./docstrings/package-macros.texinfo))
(./variables.texinfo) [1] [2] (./sbcl.toc [-1] [-2] [-3] [-4] [-5]) [-6]
(./support-and-bugs.texinfo Chapter 1 [1]
Underfull \hbox (badness 10000) in paragraph at lines 115--120
 @texttt expr[]@textrm ) and change @texttt #define QSHOW_SIGNAL 0[] @textrm to
 @texttt #define QSHOW_SIGNAL 1[] @textrm in
) (./intro.texinfo Chapter 2 [2] [3] [4] [5] [6] [7] [8]) (./start-stop.texinfo
 Chapter 3 [9]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-exit.texinfo
[10])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-save-lisp-and-
die.texinfo [11])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-save-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-sysinit-p
athname-function-star.texinfo [12])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-userinit-
pathname-function-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-core-path
name-star.texinfo) [13] [14] [15]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-init-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-exit-hook
s-star.texinfo)) (./compiler.texinfo Chapter 4 [16]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-compiler-
print-variable-alist-star.texinfo) [17]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-compiler
-note.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-code-del
etion-note.texinfo)
Overfull \hbox (13.58342pt too wide) in paragraph at lines 211--211
 []@texttt ;   Asserted type NUMBER conflicts with derived type (VALUES SYMBOL 
&OPTIONAL).[] |
[18]
Underfull \hbox (badness 10000) in paragraph at lines 268--276
 []@textrm `@texttt caught WARNING: Asserted type NUMBER conflicts with derived
 type (VALUES SYMBOL
[19] [20] [21] [22] [23]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-describe-compi
ler-policy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-restrict-compi
ler-policy.texinfo [24])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-with-co
mpilation-unit.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 43--46
 []@textrm If both an outer and an in-ner @texttt with-compilation-unit[] @text
rm pro-vide a
[25]) [26] [27]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-evaluator
-mode-star.texinfo)) (./debugger.texinfo Chapter 5 [28]
Overfull \hbox (19.3321pt too wide) in paragraph at lines 46--46
 []  @texttt 0: [ABORT   ] Reduce debugger level (leaving debugger, returning t
o toplevel).[] |

(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-invoke-de
bugger-hook-star.texinfo) [29]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-debug-pri
nt-variable-alist-star.texinfo) [30] [31] [32] [33] [34] [35] [36] [37]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-trace.t
exinfo [38])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-untrace
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-i
ndentation-step-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-max-tra
ce-indentation-star.texinfo [39])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-e
ncapsulate-default-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-step.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-disable-debugg
er.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-enable-debugge
r.texinfo)) (./efficiency.texinfo Chapter 6 [40]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-stack-all
ocate-dynamic-extent-star.texinfo [41]) [42] [43]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defglobal.te
xinfo) [44]) (./beyond-ansi.texinfo Chapter 7 [45]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-readtable-norm
alization.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-local-
nicknames.texinfo [46]
Underfull \hbox (badness 10000) in paragraph at lines 15--17
 []@textrm See also: @texttt add-package-local-nickname[]@textrm , @texttt pack
age-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locall
y-nicknamed-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-package-lo
cal-nickname.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 23--25
 []@textrm See also: @texttt package-local-nicknames[]@textrm , @texttt package
-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-package
-local-nickname.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-on-packag
e-variance-star.texinfo [47])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-after-gc-
hooks-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-finalize.texin
fo [48])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-cancel-finaliz
ation.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-weak-poin
ter.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-weak-pointer-v
alue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-gc-run-ti
me-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-bytes-consed-b
etween-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-dynamic-space-
size.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-bytes-cons
ed.texinfo [49])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc-logfile.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-ave
rage-age.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-allocated.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-consed-between-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-min
imum-age-before-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs-before-promotion.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs.texinfo) [50] [51]
Underfull \hbox (badness 10000) in paragraph at lines 399--407
 [][][][]@textrm distinguishing un-bound in-stance al-lo-cated slots from bound
 ones when us-ing
[52]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-length.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-elt.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-elt.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-adjust-se
quence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-like.texinfo) [53]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-emptyp.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-map.texin
fo)
Underfull \hbox (badness 10000) in paragraph at lines 520--524
 @texttt if-not[]@textrm , @texttt sb-sequence:substitute[]@textrm , @texttt sb
-sequence:substitute-if[]@textrm ,

(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-concatena
te.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 543--546
 []@texttt sb-sequence:delete[]@textrm , @texttt sb-sequence:delete-if[]@textrm
 , @texttt sb-sequence:delete-if-not[]@textrm ,
[54]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-merge.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-doseque
nce.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-iterator.texinfo) [55]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator-functions.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
step.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
endp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-iter
ator-element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
index.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
copy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-simp
le-sequence-iterator.texinfo) [56]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-posix-getenv.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-run-program.te
xinfo [57])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-p.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-input.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-output
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-error.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-alive-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-status
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-wait.t
exinfo [58])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-exit-c
ode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-core-d
umped.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-close.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-kill.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-general-ca
tegory.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-class
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-combining-
class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-decimal-va
lue.texinfo [59])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-digit-valu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-numeric-va
lue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-mirrored-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-mirro
ring-glyph.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-age.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hangul-syl
lable-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-east-asian
-width.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-script.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-char-block
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-1-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-proplist-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-cased-p.te
xinfo [60])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-case-ignor
able-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-alphabetic
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-ideographi
c-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-math-p.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-whitespace
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-soft-dotte
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hex-digit-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-default-ig
norable-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-grapheme-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-word-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentence-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-line-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalize-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalized
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase.
texinfo [61])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-titlecase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-casefold.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode=.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-eq
ual.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-confusable
-p.texinfo [62])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-graphemes.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-words.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentences.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lines.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-require.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-module-pr
ovider-functions-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-ed.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-ed-functi
ons-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-muffled-w
arnings-star.texinfo [63])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-make-hash
-table.texinfo [64])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-hash-
table-test.texinfo [65])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-locked-
hash-table.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-syn
chronized-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-wea
kness.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-seed-random-st
ate.texinfo [66])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-array-storage-
vector.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-delete-directo
ry.texinfo [67])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-time-of-da
y.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-wait-for.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-assert-version
-gt=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-purify.texinfo
[68])
(/«PKGBUILDDIR»/doc/manual/docstrings/special-operator-sb-ext-t
ruly-the.texinfo)) (./ffi.texinfo Chapter 8 [69] [70]
Underfull \hbox (badness 10000) in paragraph at lines 210--216
 []@textrm The for-eign type spec-i-fier @texttt (sb-alien:union @textttsl name
 @texttt &rest @textttsl fields@texttt )[] @textrm is sim-i-lar to
[71]
Overfull \hbox (18.01857pt too wide) in paragraph at lines 304--304
 []@texttt (define-alien-routine test int (str (c-string :external-format :ebcd
ic-us)))[] |
[72] [73]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-alien-make-alien
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-make-alien-s
tring.texinfo [74])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-free-alien.t
exinfo) [75] [76]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-load-shared-
object.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-unload-share
d-object.texinfo) [77] [78] [79] [80]
Overfull \hbox (13.58342pt too wide) in paragraph at lines 1140--1140
 []                      @texttt (c-function 5 "another Lisp string" (addr c-st
ruct) ar)))[] |
[81]) (./pathnames.texinfo Chapter 9 [82]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-set-sbcl-sourc
e-location.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-parse-native-n
amestring.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-pathnam
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-namestr
ing.texinfo [83])) (./streams.texinfo Chapter 10 [84] (./encodings.texi-temp
[85] [86])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-stream.texinfo [87])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-input-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-input-stream, fundamenta
l-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-output-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-output-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-binary-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-output-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-output-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 @texttt stream, fundamental-character-stream, fundamental-stream, standard-obj
ect,
[88])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-stream-el
ement-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-close.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-file-p
osition.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
input.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-s
equence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-peek-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-l
ine.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-listen
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-unread
-char.texinfo [89])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-finish
-output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-force-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
sequence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-advanc
e-to-column.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-fresh-
line.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-c
olumn.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-l
ength.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-start-
line-p.texinfo [90])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-terpri
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
char.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-b
yte.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
byte.texinfo) (./gray-streams-examples.texinfo [91] [92] [93])
(/«PKGBUILDDIR»/contrib/sb-simple-streams/sb-simple-streams.tex
info)) (./package-locks.texi-temp Chapter 11 [94]
Underfull \hbox (badness 7685) in paragraph at lines 60--64
[]@textrm Unless ex-plic-itly al-tered by @texttt defpackage[]@textrm , @texttt
 sb-ext:add-implementation-package[]@textrm , or
[95] [96]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
lock-violation.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt package-lock-violation, package-erro
r, error, serious-
[97])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-symbol-p
ackage-locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locked
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-lock-package.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unlock-package
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ented-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ents-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-implementa
tion-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-impleme
ntation-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-without-pack
age-locks.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-unlocke
d-packages.texinfo) [98]) (./threading.texinfo Chapter 12 [99]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-thread.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-thread-star-curren
t-thread-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-list-all-th
reads.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-aliv
e-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-name
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-return-fr
om-thread.texinfo [100])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-abort-threa
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-join-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-yiel
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-interrupt-t
hread.texinfo [101])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-terminate-t
hread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-symbol-valu
e-in-thread.texinfo [102])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-threa
d-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-erro
r-thread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-inter
rupt-thread-error.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt interrupt-thread-error, thread-error
, error, serious-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-join-
thread-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-decf.
texinfo [103])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-incf.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-pop.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-push.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-updat
e.texinfo [104])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-compare-and-
swap.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-cas.texinfo
[105])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-cas-e
xpander.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defcas.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-cas-expans
ion.texinfo) [106]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-mutex.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-mute
x.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-recu
rsive-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-name.
texinfo [107])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-owner
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-value
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-grab-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-release-mut
ex.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-signal-sema
phore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-wait-on-sem
aphore.texinfo [108])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-try-semapho
re.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 6--9
 []@textrm If @texttt notification[] @textrm is given it must be a semaphore no
-ti-fi-ca-tion ob-ject with
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-c
ount.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
otification-status.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-clear-semap
hore-notification.texinfo) [109]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-waitqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-waitqu
eue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-waitqueue-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-w
ait.texinfo [110])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-n
otify.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-b
roadcast.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 295--298
 []@texttt sb-thread:grab-mutex[]@textrm , @texttt sb-thread:release-mutex[]@te
xtrm , @texttt sb-thread:with-mutex[] @textrm and

Underfull \hbox (badness 10000) in paragraph at lines 298--301
 []@texttt sb-thread:signal-semaphore[]@textrm , @texttt sb-thread:try-semaphor
e[] @textrm and @texttt sb-thread:wait-on-
[111]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-barrier.t
exinfo) [112]) (./timers.texinfo Chapter 13 [113]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-ext-timer.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-timer.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-name.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-schedule
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-schedule-timer
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unschedule-tim
er.texinfo [114])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-list-all-timer
s.texinfo))
(/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sb-bsd-sockets.texinfo
Chapter 14 [115]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-sock
et.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-bind.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-accept.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-connect.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-peername.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-receive.texinfo [116])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-send.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-listen.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-open-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-close.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-shutdown.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-make-stream.texinfo [117])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-non-bl
ocking-mode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-reuse-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-keep-alive.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-oob-inline.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-bsd-compatible.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-pass-credentials.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-debug.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-dont-route.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-broadcast.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-tcp-nodelay.texinfo) [118]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
6-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net6-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-pr
otocol-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-loca
l-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-host
-ent.texinfo [119])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-host-e
nt-address.texinfo)) (./profiling.texinfo Chapter 15 [120]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-profile.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-unprofil
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-report.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-reset.texi
nfo) (/«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.texinfo [121]
[122]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-profi
ling.texinfo [123])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-sampl
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-report.texin
fo [124])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-reset.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-start-profil
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-stop-profili
ng.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-profile-call
-counts.texinfo [125])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-unprofile-ca
ll-counts.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-max-sam
ples-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-sample-
interval-star.texinfo))) (./contrib-modules.texinfo Chapter 16 [126] [127]
(/«PKGBUILDDIR»/contrib/sb-aclrepl/sb-aclrepl.texinfo) [128]
(/«PKGBUILDDIR»/contrib/sb-concurrency/sb-concurrency.texinfo
[129]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-que
ue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-dequeu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-enqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-q
ueue-contents.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-q
ueue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queuep
.texinfo) [130]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-mai
lbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-m
ailbox-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
xp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-m
ailbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-pending-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-send-m
essage.texinfo) [131]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-gat
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-close-
gate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-o
pen-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gatep.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-open-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-wait-o
n-gate.texinfo) [132]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-frl
ock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-read.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-write.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-f
rlock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-begin.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-end.texinfo [133])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-grab-f
rlock-write-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-releas
e-frlock-write-lock.texinfo)) [134]
(/«PKGBUILDDIR»/contrib/sb-cover/sb-cover.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-report.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-reset-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-clear-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e-in-file.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage.texinfo [135])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage-from-file.texinfo)) [136]
(/«PKGBUILDDIR»/contrib/sb-grovel/sb-grovel.texinfo [137]
[138]
Overfull \hbox (23.76726pt too wide) in paragraph at lines 189--189
 []                                                     @texttt (argument2 alie
n-type)))[] |

Underfull \hbox (badness 10000) in paragraph at lines 228--234
 []@texttt (setf (mystruct-myint var) new-val)[] @textrm and @texttt (setf (mys
truct-mystring var)
) [139] (/«PKGBUILDDIR»/contrib/sb-md5/sb-md5.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-file.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-sequenc
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-stream.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-string.
texinfo)) [140]
(/«PKGBUILDDIR»/contrib/sb-posix/sb-posix.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor-designator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-file-descrip
tor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename.te
xinfo [141])
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename-de
signator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-filename.tex
info) [142]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-flock.texi
nfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt type[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt whence[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt start[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt len[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-passwd.tex
info
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt name[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 7722) in paragraph at lines 10--11
 []@texttt passwd[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt uid[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt gid[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[143]
Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt gecos[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 22--23
 []@texttt dir[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 25--26
 []@texttt shell[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-stat.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-termios.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt iflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[144]
Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt oflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt cflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt lflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt cc[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-timeval.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt sec[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt usec[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-getcwd.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-readlink.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-syslog.texin
fo)) [145] (/«PKGBUILDDIR»/contrib/sb-queue/sb-queue.texinfo)
[146]
(/«PKGBUILDDIR»/contrib/sb-rotate-byte/sb-rotate-byte.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-rotate-byte-rotate
-byte.texinfo))) (./deprecated.texinfo Chapter 17 [147] [148] [149]
Underfull \hbox (badness 10000) in paragraph at lines 245--250
 @texttt spinlock[]@textrm , @texttt sb-thread::with-recursive-spinlock[]@textr
m , @texttt sb-thread::get-spinlock[]@textrm ,
[150]
Underfull \hbox (badness 10000) in paragraph at lines 268--269
 []@textbf SB-THREAD:JOIN-THREAD-ERROR-THREAD and SB-THREAD:INTERRUPT-
[151]) (./backmatter.texinfo Appendix A [152] (./sbcl.cps [153]) Appendix B
[154] (./sbcl.fns [155] [156] [157]) Appendix C [158] (./sbcl.vrs) Appendix D
[159] (./sbcl.tps) (Colophon) [160]) [161] )
(see the transcript file for additional information)
Output written on sbcl.dvi (169 pages, 814348 bytes).
Transcript written on sbcl.log.
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=etex)
 restricted \write18 enabled.
entering extended mode
(./sbcl.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) (./sbcl.aux)
(./texinfo-macros.texinfo (./docstrings/package-macros.texinfo))
(./variables.texinfo) [1] [2] (./sbcl.toc [-1] [-2] [-3] [-4] [-5]) [-6]
(./support-and-bugs.texinfo Chapter 1 [1]
Underfull \hbox (badness 10000) in paragraph at lines 115--120
 @texttt expr[]@textrm ) and change @texttt #define QSHOW_SIGNAL 0[] @textrm to
 @texttt #define QSHOW_SIGNAL 1[] @textrm in
) (./intro.texinfo Chapter 2 [2] [3] [4] [5] [6] [7] [8]) (./start-stop.texinfo
 Chapter 3 [9]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-exit.texinfo
[10])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-save-lisp-and-
die.texinfo [11])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-save-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-sysinit-p
athname-function-star.texinfo [12])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-userinit-
pathname-function-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-core-path
name-star.texinfo) [13] [14] [15]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-init-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-exit-hook
s-star.texinfo)) (./compiler.texinfo Chapter 4 [16]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-compiler-
print-variable-alist-star.texinfo) [17]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-compiler
-note.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-code-del
etion-note.texinfo)
Overfull \hbox (13.58342pt too wide) in paragraph at lines 211--211
 []@texttt ;   Asserted type NUMBER conflicts with derived type (VALUES SYMBOL 
&OPTIONAL).[] |
[18]
Underfull \hbox (badness 10000) in paragraph at lines 268--276
 []@textrm `@texttt caught WARNING: Asserted type NUMBER conflicts with derived
 type (VALUES SYMBOL
[19] [20] [21] [22] [23]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-describe-compi
ler-policy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-restrict-compi
ler-policy.texinfo [24])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-with-co
mpilation-unit.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 43--46
 []@textrm If both an outer and an in-ner @texttt with-compilation-unit[] @text
rm pro-vide a
[25]) [26] [27]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-evaluator
-mode-star.texinfo)) (./debugger.texinfo Chapter 5 [28]
Overfull \hbox (19.3321pt too wide) in paragraph at lines 46--46
 []  @texttt 0: [ABORT   ] Reduce debugger level (leaving debugger, returning t
o toplevel).[] |

(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-invoke-de
bugger-hook-star.texinfo) [29]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-debug-pri
nt-variable-alist-star.texinfo) [30] [31] [32] [33] [34] [35] [36] [37]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-trace.t
exinfo [38])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-untrace
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-i
ndentation-step-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-max-tra
ce-indentation-star.texinfo [39])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-e
ncapsulate-default-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-step.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-disable-debugg
er.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-enable-debugge
r.texinfo)) (./efficiency.texinfo Chapter 6 [40]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-stack-all
ocate-dynamic-extent-star.texinfo [41]) [42] [43]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defglobal.te
xinfo) [44]) (./beyond-ansi.texinfo Chapter 7 [45]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-readtable-norm
alization.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-local-
nicknames.texinfo [46]
Underfull \hbox (badness 10000) in paragraph at lines 15--17
 []@textrm See also: @texttt add-package-local-nickname[]@textrm , @texttt pack
age-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locall
y-nicknamed-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-package-lo
cal-nickname.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 23--25
 []@textrm See also: @texttt package-local-nicknames[]@textrm , @texttt package
-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-package
-local-nickname.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-on-packag
e-variance-star.texinfo [47])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-after-gc-
hooks-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-finalize.texin
fo [48])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-cancel-finaliz
ation.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-weak-poin
ter.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-weak-pointer-v
alue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-gc-run-ti
me-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-bytes-consed-b
etween-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-dynamic-space-
size.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-bytes-cons
ed.texinfo [49])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc-logfile.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-ave
rage-age.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-allocated.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-consed-between-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-min
imum-age-before-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs-before-promotion.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs.texinfo) [50] [51]
Underfull \hbox (badness 10000) in paragraph at lines 399--407
 [][][][]@textrm distinguishing un-bound in-stance al-lo-cated slots from bound
 ones when us-ing
[52]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-length.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-elt.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-elt.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-adjust-se
quence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-like.texinfo) [53]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-emptyp.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-map.texin
fo)
Underfull \hbox (badness 10000) in paragraph at lines 520--524
 @texttt if-not[]@textrm , @texttt sb-sequence:substitute[]@textrm , @texttt sb
-sequence:substitute-if[]@textrm ,

(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-concatena
te.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 543--546
 []@texttt sb-sequence:delete[]@textrm , @texttt sb-sequence:delete-if[]@textrm
 , @texttt sb-sequence:delete-if-not[]@textrm ,
[54]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-merge.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-doseque
nce.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-iterator.texinfo) [55]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator-functions.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
step.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
endp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-iter
ator-element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
index.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
copy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-simp
le-sequence-iterator.texinfo) [56]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-posix-getenv.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-run-program.te
xinfo [57])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-p.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-input.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-output
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-error.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-alive-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-status
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-wait.t
exinfo [58])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-exit-c
ode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-core-d
umped.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-close.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-kill.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-general-ca
tegory.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-class
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-combining-
class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-decimal-va
lue.texinfo [59])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-digit-valu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-numeric-va
lue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-mirrored-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-mirro
ring-glyph.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-age.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hangul-syl
lable-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-east-asian
-width.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-script.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-char-block
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-1-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-proplist-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-cased-p.te
xinfo [60])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-case-ignor
able-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-alphabetic
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-ideographi
c-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-math-p.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-whitespace
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-soft-dotte
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hex-digit-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-default-ig
norable-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-grapheme-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-word-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentence-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-line-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalize-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalized
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase.
texinfo [61])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-titlecase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-casefold.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode=.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-eq
ual.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-confusable
-p.texinfo [62])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-graphemes.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-words.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentences.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lines.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-require.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-module-pr
ovider-functions-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-ed.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-ed-functi
ons-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-muffled-w
arnings-star.texinfo [63])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-make-hash
-table.texinfo [64])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-hash-
table-test.texinfo [65])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-locked-
hash-table.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-syn
chronized-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-wea
kness.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-seed-random-st
ate.texinfo [66])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-array-storage-
vector.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-delete-directo
ry.texinfo [67])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-time-of-da
y.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-wait-for.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-assert-version
-gt=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-purify.texinfo
[68])
(/«PKGBUILDDIR»/doc/manual/docstrings/special-operator-sb-ext-t
ruly-the.texinfo)) (./ffi.texinfo Chapter 8 [69] [70]
Underfull \hbox (badness 10000) in paragraph at lines 210--216
 []@textrm The for-eign type spec-i-fier @texttt (sb-alien:union @textttsl name
 @texttt &rest @textttsl fields@texttt )[] @textrm is sim-i-lar to
[71]
Overfull \hbox (18.01857pt too wide) in paragraph at lines 304--304
 []@texttt (define-alien-routine test int (str (c-string :external-format :ebcd
ic-us)))[] |
[72] [73]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-alien-make-alien
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-make-alien-s
tring.texinfo [74])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-free-alien.t
exinfo) [75] [76]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-load-shared-
object.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-unload-share
d-object.texinfo) [77] [78] [79] [80]
Overfull \hbox (13.58342pt too wide) in paragraph at lines 1140--1140
 []                      @texttt (c-function 5 "another Lisp string" (addr c-st
ruct) ar)))[] |
[81]) (./pathnames.texinfo Chapter 9 [82]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-set-sbcl-sourc
e-location.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-parse-native-n
amestring.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-pathnam
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-namestr
ing.texinfo [83])) (./streams.texinfo Chapter 10 [84] (./encodings.texi-temp
[85] [86])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-stream.texinfo [87])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-input-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-input-stream, fundamenta
l-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-output-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-output-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-binary-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-output-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-output-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 @texttt stream, fundamental-character-stream, fundamental-stream, standard-obj
ect,
[88])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-stream-el
ement-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-close.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-file-p
osition.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
input.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-s
equence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-peek-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-l
ine.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-listen
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-unread
-char.texinfo [89])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-finish
-output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-force-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
sequence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-advanc
e-to-column.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-fresh-
line.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-c
olumn.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-l
ength.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-start-
line-p.texinfo [90])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-terpri
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
char.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-b
yte.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
byte.texinfo) (./gray-streams-examples.texinfo [91] [92] [93])
(/«PKGBUILDDIR»/contrib/sb-simple-streams/sb-simple-streams.tex
info)) (./package-locks.texi-temp Chapter 11 [94]
Underfull \hbox (badness 7685) in paragraph at lines 60--64
[]@textrm Unless ex-plic-itly al-tered by @texttt defpackage[]@textrm , @texttt
 sb-ext:add-implementation-package[]@textrm , or
[95] [96]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
lock-violation.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt package-lock-violation, package-erro
r, error, serious-
[97])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-symbol-p
ackage-locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locked
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-lock-package.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unlock-package
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ented-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ents-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-implementa
tion-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-impleme
ntation-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-without-pack
age-locks.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-unlocke
d-packages.texinfo) [98]) (./threading.texinfo Chapter 12 [99]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-thread.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-thread-star-curren
t-thread-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-list-all-th
reads.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-aliv
e-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-name
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-return-fr
om-thread.texinfo [100])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-abort-threa
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-join-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-yiel
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-interrupt-t
hread.texinfo [101])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-terminate-t
hread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-symbol-valu
e-in-thread.texinfo [102])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-threa
d-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-erro
r-thread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-inter
rupt-thread-error.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt interrupt-thread-error, thread-error
, error, serious-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-join-
thread-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-decf.
texinfo [103])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-incf.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-pop.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-push.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-updat
e.texinfo [104])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-compare-and-
swap.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-cas.texinfo
[105])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-cas-e
xpander.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defcas.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-cas-expans
ion.texinfo) [106]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-mutex.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-mute
x.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-recu
rsive-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-name.
texinfo [107])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-owner
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-value
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-grab-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-release-mut
ex.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-signal-sema
phore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-wait-on-sem
aphore.texinfo [108])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-try-semapho
re.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 6--9
 []@textrm If @texttt notification[] @textrm is given it must be a semaphore no
-ti-fi-ca-tion ob-ject with
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-c
ount.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
otification-status.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-clear-semap
hore-notification.texinfo) [109]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-waitqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-waitqu
eue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-waitqueue-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-w
ait.texinfo [110])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-n
otify.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-b
roadcast.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 295--298
 []@texttt sb-thread:grab-mutex[]@textrm , @texttt sb-thread:release-mutex[]@te
xtrm , @texttt sb-thread:with-mutex[] @textrm and

Underfull \hbox (badness 10000) in paragraph at lines 298--301
 []@texttt sb-thread:signal-semaphore[]@textrm , @texttt sb-thread:try-semaphor
e[] @textrm and @texttt sb-thread:wait-on-
[111]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-barrier.t
exinfo) [112]) (./timers.texinfo Chapter 13 [113]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-ext-timer.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-timer.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-name.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-schedule
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-schedule-timer
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unschedule-tim
er.texinfo [114])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-list-all-timer
s.texinfo))
(/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sb-bsd-sockets.texinfo
Chapter 14 [115]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-sock
et.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-bind.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-accept.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-connect.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-peername.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-receive.texinfo [116])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-send.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-listen.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-open-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-close.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-shutdown.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-make-stream.texinfo [117])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-non-bl
ocking-mode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-reuse-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-keep-alive.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-oob-inline.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-bsd-compatible.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-pass-credentials.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-debug.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-dont-route.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-broadcast.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-tcp-nodelay.texinfo) [118]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
6-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net6-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-pr
otocol-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-loca
l-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-host
-ent.texinfo [119])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-host-e
nt-address.texinfo)) (./profiling.texinfo Chapter 15 [120]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-profile.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-unprofil
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-report.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-reset.texi
nfo) (/«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.texinfo [121]
[122]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-profi
ling.texinfo [123])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-sampl
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-report.texin
fo [124])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-reset.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-start-profil
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-stop-profili
ng.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-profile-call
-counts.texinfo [125])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-unprofile-ca
ll-counts.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-max-sam
ples-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-sample-
interval-star.texinfo))) (./contrib-modules.texinfo Chapter 16 [126] [127]
(/«PKGBUILDDIR»/contrib/sb-aclrepl/sb-aclrepl.texinfo) [128]
(/«PKGBUILDDIR»/contrib/sb-concurrency/sb-concurrency.texinfo
[129]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-que
ue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-dequeu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-enqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-q
ueue-contents.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-q
ueue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queuep
.texinfo) [130]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-mai
lbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-m
ailbox-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
xp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-m
ailbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-pending-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-send-m
essage.texinfo) [131]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-gat
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-close-
gate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-o
pen-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gatep.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-open-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-wait-o
n-gate.texinfo) [132]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-frl
ock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-read.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-write.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-f
rlock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-begin.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-end.texinfo [133])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-grab-f
rlock-write-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-releas
e-frlock-write-lock.texinfo)) [134]
(/«PKGBUILDDIR»/contrib/sb-cover/sb-cover.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-report.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-reset-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-clear-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e-in-file.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage.texinfo [135])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage-from-file.texinfo)) [136]
(/«PKGBUILDDIR»/contrib/sb-grovel/sb-grovel.texinfo [137]
[138]
Overfull \hbox (23.76726pt too wide) in paragraph at lines 189--189
 []                                                     @texttt (argument2 alie
n-type)))[] |

Underfull \hbox (badness 10000) in paragraph at lines 228--234
 []@texttt (setf (mystruct-myint var) new-val)[] @textrm and @texttt (setf (mys
truct-mystring var)
) [139] (/«PKGBUILDDIR»/contrib/sb-md5/sb-md5.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-file.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-sequenc
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-stream.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-string.
texinfo)) [140]
(/«PKGBUILDDIR»/contrib/sb-posix/sb-posix.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor-designator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-file-descrip
tor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename.te
xinfo [141])
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename-de
signator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-filename.tex
info) [142]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-flock.texi
nfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt type[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt whence[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt start[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt len[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-passwd.tex
info
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt name[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 7722) in paragraph at lines 10--11
 []@texttt passwd[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt uid[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt gid[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[143]
Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt gecos[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 22--23
 []@texttt dir[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 25--26
 []@texttt shell[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-stat.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-termios.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt iflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[144]
Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt oflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt cflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt lflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt cc[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-timeval.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt sec[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt usec[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-getcwd.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-readlink.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-syslog.texin
fo)) [145] (/«PKGBUILDDIR»/contrib/sb-queue/sb-queue.texinfo)
[146]
(/«PKGBUILDDIR»/contrib/sb-rotate-byte/sb-rotate-byte.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-rotate-byte-rotate
-byte.texinfo))) (./deprecated.texinfo Chapter 17 [147] [148] [149]
Underfull \hbox (badness 10000) in paragraph at lines 245--250
 @texttt spinlock[]@textrm , @texttt sb-thread::with-recursive-spinlock[]@textr
m , @texttt sb-thread::get-spinlock[]@textrm ,
[150]
Underfull \hbox (badness 10000) in paragraph at lines 268--269
 []@textbf SB-THREAD:JOIN-THREAD-ERROR-THREAD and SB-THREAD:INTERRUPT-
[151]) (./backmatter.texinfo Appendix A [152] (./sbcl.cps [153]) Appendix B
[154] (./sbcl.fns [155] [156] [157]) Appendix C [158] (./sbcl.vrs) Appendix D
[159] (./sbcl.tps) (Colophon) [160]) [161] )
(see the transcript file for additional information)
Output written on sbcl.dvi (169 pages, 814348 bytes).
Transcript written on sbcl.log.
dvips -o sbcl.ps sbcl.dvi
This is dvips(k) 5.994 Copyright 2014 Radical Eye Software (www.radicaleye.com)
' TeX output 2015.06.11:0928' -> sbcl.ps

kpathsea: Running mktexpk --mfmode ljfour --bdpi 600 --mag 1+3/600 --dpi 603 ecrm1095
mktexpk: Running mf-nowin -progname=mf \mode:=ljfour; mag:=1+3/600; nonstopmode; input ecrm1095
This is METAFONT, Version 2.7182818 (TeX Live 2015/dev/Debian) (preloaded base=mf)

(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/ecrm1095.mf
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exbase.mf)
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/ecrm.mf
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exroman.mf
 Ok (/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exaccess.mf
 Ok) (/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/expseudo.mf
 Ok) (/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exruwest.mf
 Ok [192] [193] [194] [195] [196] [197] [198] [199] [200] [201] [202] [203]
[204] [205] [206] [207] [208] [209] [210] [211] [212] [213] [214] [215]
[216] [217] [218] [219] [220] [221] [222] [223])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrlwest.mf
 Ok [224] [225] [226] [227] [228] [229] [230] [231] [232] [233] [234] [235]
[236] [237] [238] [239] [240] [241] [242] [243] [244] [245] [246] [247]
[248] [249] [250] [251] [252] [253] [254] [255])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrueast.mf
 Ok [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139]
[140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151]
[152] [153] [154] [155] [156] [157])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrleast.mf
 Ok [158] [160] [161] [162] [163] [164] [165] [166] [167] [168] [169] [170]
[171] [172] [173] [174] [175] [176] [177] [178] [179] [180] [181] [182]
[183] [184] [185] [186] [187] [188])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exbraces.mf
 Ok [94] [126] [23] [40] [41] [60] [124] [62] [91] [93] [92] [123] [125]
[95] [127] [32])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/expunct.mf
 Ok [14] [15] [19] [20] [13] [18] [33] [39] [42] [43] [44] [46] [47] [58]
[59] [61] [96] [189] [17] [45] [16] [21] [22])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exaccent.mf
 Ok [0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exsign.mf
 Ok [24] [34] [35] [36] [37] [64] [191] [159])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrlig.mf
 Ok [25] [26] [28] [27] [29] [30] [31])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exromp.mf
 Ok [38] [63] [190])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrulett.mf
 Ok [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78]
[79] [80] [81] [82] [83] [84] [85] [86] [87] [88] [89] [90])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrllett.mf
 Ok [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108]
[109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrdigit.mf
 Ok [48] [49] [50] [51] [52] [53] [54] [55] [56] [57])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrligtb.mf
 Ok) ) ) )
(some charht values had to be adjusted by as much as 0.07599pt)
Font metrics written on ecrm1095.tfm.
Output written on ecrm1095.603gf (256 characters, 55528 bytes).
Transcript written on ecrm1095.log.
mktexpk: /«PKGBUILDDIR»/.texmf-var/fonts/pk/ljfour/jknappen/ec/ecrm1095.603pk: successfully generated.

</«PKGBUILDDIR»/.texmf-var/fonts/pk/ljfour/jknappen/ec/ecrm1095.603pk>
kpathsea: Running mktexpk --mfmode ljfour --bdpi 600 --mag 1+3/600 --dpi 603 ecti1095
mktexpk: Running mf-nowin -progname=mf \mode:=ljfour; mag:=1+3/600; nonstopmode; input ecti1095
This is METAFONT, Version 2.7182818 (TeX Live 2015/dev/Debian) (preloaded base=mf)

(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/ecti1095.mf
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exbase.mf)
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/ecti.mf
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/extextit.mf
 Ok (/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exaccess.mf
 Ok) (/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/expseudo.mf
 Ok) (/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exileast.mf
 Ok [158] [160] [161] [162] [163] [164] [165] [166] [167] [168] [169] [170]
[171] [172] [173] [174] [175] [176] [177] [178] [179] [180] [181] [182]
[183] [184] [185] [186] [187] [188])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exilwest.mf
 Ok [224] [225] [226] [227] [228] [229] [230] [231] [232] [233] [234] [235]
[236] [237] [238] [239] [240] [241] [242] [243] [244] [245] [246] [247]
[248] [249] [250] [251] [252] [253] [254] [255])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exruwest.mf
 Ok [192] [193] [194] [195] [196] [197] [198] [199] [200] [201] [202] [203]
[204] [205] [206] [207] [208] [209] [210] [211] [212] [213] [214] [215]
[216] [217] [218] [219] [220] [221] [222] [223])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrueast.mf
 Ok [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139]
[140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151]
[152] [153] [154] [155] [156] [157])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exbraces.mf
 Ok [94] [126] [23] [40] [41] [60] [124] [62] [91] [93] [92] [123] [125]
[95] [127] [32])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/expunct.mf
 Ok [14] [15] [19] [20] [13] [18] [33] [39] [42] [43] [44] [46] [47] [58]
[59] [61] [96] [189] [17] [45] [16] [21] [22])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exaccent.mf
 Ok [0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exsign.mf
 Ok [24] [34] [35] [36] [37] [64] [191] [159])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exilig.mf
 Ok [25] [26] [27] [28] [29] [30] [31])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exitalp.mf
 Ok [38] [63] [190])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exrulett.mf
 Ok [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78]
[79] [80] [81] [82] [83] [84] [85] [86] [87] [88] [89] [90])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exillett.mf
 Ok [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108]
[109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exidigit.mf
 Ok [48] [49] [50] [51] [52] [53] [54] [55] [56] [57])
(/usr/share/texlive/texmf-dist/fonts/source/jknappen/ec/exiligtb.mf
 Ok) ) ) )
(some charht values had to be adjusted by as much as 0.06808pt)
Font metrics written on ecti1095.tfm.
Output written on ecti1095.603gf (256 characters, 57976 bytes).
Transcript written on ecti1095.log.
mktexpk: /«PKGBUILDDIR»/.texmf-var/fonts/pk/ljfour/jknappen/ec/ecti1095.603pk: successfully generated.

</«PKGBUILDDIR»/.texmf-var/fonts/pk/ljfour/jknappen/ec/ecti1095.603pk>
</usr/share/texlive/texmf-dist/dvips/base/tex.pro>
</usr/share/texlive/texmf-dist/dvips/base/texps.pro>. 
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt12.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi7.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsltt10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmb10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt8.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr7.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmbx12.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi12.pfb>[1] 
[2] [-1] [-2] [-3] [-4] [-5] [-6] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 
[11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] 
[26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] 
[41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] 
[56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] 
[71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] 
[86] [87] [88] [89] [90] [91] [92] [93] [94] [95] [96] [97] [98] [99] [100] 
[101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] 
[114] [115] [116] [117] [118] [119] [120] [121] [122] [123] [124] [125] [126] 
[127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] 
[140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151] [152] 
[153] [154] [155] [156] [157] [158] [159] [160] [161] 
texi2dvi -I "docstrings/" -I "../../contrib/" asdf.texinfo
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=etex)
 restricted \write18 enabled.
entering extended mode
(./asdf.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) [1] [2]
[-1] Chapter 1 Cross reference values unknown; you must run TeX again.
Chapter 2 [1] Chapter 3 [2] [3] [4] Chapter 4 [5] [6] [7] Chapter 5 [8]
Underfull \hbox (badness 10000) in paragraph at lines 997--1001
[]@textrm Output from ASDF and ASDF ex-ten-sions are sent to the CL stream

Underfull \hbox (badness 7468) in paragraph at lines 997--1001
@texttt *standard-output*[]@textrm , so re-bind-ing that stream around calls to
 @texttt asdf:operate[]
Chapter 6 [9] [10] [11]
Overfull \hbox (31.97514pt too wide) in paragraph at lines 1291--1291
 []                        @texttt (see $@textsy h$@texttt undefined$@textsy i$
 @texttt [Component types], page $@textsy h$@texttt undefined$@textsy i$@texttt
 )[] |
[12] [13] [14] [15] [16] [17] [18]
Overfull \hbox (14.94176pt too wide) in paragraph at lines 1780--1780
 [] @texttt '(:c2mop :closer-common-lisp :c2cl :closer-common-lisp-user :c2cl-u
ser))[] |

Underfull \hbox (badness 10000) in paragraph at lines 1810--1814
@texttt lil/interface/definition[]@textrm , @texttt lil/interface/base[]@textrm
 , @texttt lil/interface/eq[]@textrm , and
Chapter 7 [19] [20] [21] [22]
Underfull \hbox (badness 7099) in paragraph at lines 2125--2129
 []@textrm NB: @texttt compile-bundle-op[]@textrm , @texttt monolithic-compile-
bundle-op[]@textrm , @texttt load-bundle-op[]@textrm ,

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @texttt monolithic-load-bundle-op[]@textrm , @texttt deliver-asd-op[]@textrm ,
 @texttt monolithic-deliver-asd-op[]

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @textrm were re-spec-tively called @texttt fasl-op[]@textrm , @texttt monolith
ic-fasl-op[]@textrm , @texttt load-fasl-op[]@textrm ,

Underfull \hbox (badness 7256) in paragraph at lines 2130--2135
 []@textrm Once you have cre-ated a fasl with @texttt compile-bundle-op[]@textr
m , you can use
[23]
Overfull \hbox (8.98228pt too wide) in paragraph at lines 2209--2213
 []@textrm ASDF it-self is de-liv-ered as a sin-gle source file this way, us-in
g @texttt monolithic-concatenate-|
[24] [25] [26] [27] [28] [29] [30] [31]
Overfull \hbox (32.18782pt too wide) in paragraph at lines 2876--2876
 []   @texttt (parse-unix-namestring (format nil "~(~A~)/" (asdf:implementation
-type)))[] |
[32] Chapter 8 [33]
Underfull \hbox (badness 10000) in paragraph at lines 3013--3020
 @texttt CONFIG_DIRS/common-lisp/source-registry.conf[] @textrm (which de-fault
s to

Underfull \hbox (badness 7397) in paragraph at lines 3021--3028
 []@textrm The source reg-istry will be con-fig-ured from user con-fig-u-ra-tio
n di-rec-tory

Underfull \hbox (badness 7308) in paragraph at lines 3021--3028
 @texttt $XDG_CONFIG_DIRS/common-lisp/source-registry.conf.d/[] @textrm (which 
de-faults to

Underfull \hbox (badness 10000) in paragraph at lines 3029--3038
 @texttt $XDG_DATA_HOME/common-lisp/systems/[] @textrm (no re-cur-sion, link fa
rm) @texttt $XDG_

Underfull \hbox (badness 10000) in paragraph at lines 3039--3044
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[34] [35] [36]
Overfull \hbox (20.69044pt too wide) in paragraph at lines 3248--3248
 []    @texttt ;; magic, for output-translations source only: paths that are re
lative[] |
[37]
Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm bian pack-ages or some fu-ture ver-sion of @texttt clbuild[] @textrm ma
y then in-clude files

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm such as @texttt /etc/common-lisp/source-registry.conf.d/10-foo.conf[] @
textrm or

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@texttt ~/.config/common-lisp/source-registry.conf.d/10-foo.conf[] @textrm to e
as-ily and
[38] [39] [40] [41] Chapter 9 [42]
Underfull \hbox (badness 10000) in paragraph at lines 3697--3702
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[43] [44] [45] [46] [47] [48] Chapter 10 [49] Chapter 11 [50] [51] [52]
Underfull \hbox (badness 10000) in paragraph at lines 4344--4351
@textttsl encodings.git[] @textrm or @textttsl git clone ssh://common-lisp.net/
project/asdf/git/asdf-
[53] [54] [55] [56] [57] Chapter 12 [58] Chapter 13 [59] [60] [61] [62]
[63]
Underfull \hbox (badness 10000) in paragraph at lines 5106--5119
 @texttt (defmethod source-file-type ((component cl-source-file) (system (eql
[64] [65]
Overfull \hbox (164.40764pt too wide) in paragraph at lines 5269--5269
 []@texttt echo ':disable-cache' > ~/.config/common-lisp/asdf-output-translatio
ns.conf.d/99-disable-cache.conf[] |
[66] [67] [68] [69] [70] (Ongoing Work) [71] (Bibliography) [72] [73]
(Concept Index) [74] (Function and Class Index) [75] (Variable Index) [76]
[77] )
(see the transcript file for additional information)
Output written on asdf.dvi (80 pages, 257656 bytes).
Transcript written on asdf.log.
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=etex)
 restricted \write18 enabled.
entering extended mode
(./asdf.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) (./asdf.aux)
[1] [2] (./asdf.toc [-1] [-2] [-3]) [-4] Chapter 1 Chapter 2 [1] Chapter 3
[2] [3] [4] Chapter 4 [5] [6] [7] Chapter 5 [8]
Underfull \hbox (badness 10000) in paragraph at lines 997--1001
[]@textrm Output from ASDF and ASDF ex-ten-sions are sent to the CL stream

Underfull \hbox (badness 7468) in paragraph at lines 997--1001
@texttt *standard-output*[]@textrm , so re-bind-ing that stream around calls to
 @texttt asdf:operate[]
Chapter 6 [9] [10] [11] [12] [13] [14] [15] [16] [17] [18]
Overfull \hbox (14.94176pt too wide) in paragraph at lines 1780--1780
 [] @texttt '(:c2mop :closer-common-lisp :c2cl :closer-common-lisp-user :c2cl-u
ser))[] |

Underfull \hbox (badness 10000) in paragraph at lines 1810--1814
@texttt lil/interface/definition[]@textrm , @texttt lil/interface/base[]@textrm
 , @texttt lil/interface/eq[]@textrm , and
Chapter 7 [19] [20] [21] [22]
Underfull \hbox (badness 7099) in paragraph at lines 2125--2129
 []@textrm NB: @texttt compile-bundle-op[]@textrm , @texttt monolithic-compile-
bundle-op[]@textrm , @texttt load-bundle-op[]@textrm ,

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @texttt monolithic-load-bundle-op[]@textrm , @texttt deliver-asd-op[]@textrm ,
 @texttt monolithic-deliver-asd-op[]

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @textrm were re-spec-tively called @texttt fasl-op[]@textrm , @texttt monolith
ic-fasl-op[]@textrm , @texttt load-fasl-op[]@textrm ,

Underfull \hbox (badness 7256) in paragraph at lines 2130--2135
 []@textrm Once you have cre-ated a fasl with @texttt compile-bundle-op[]@textr
m , you can use
[23]
Overfull \hbox (8.98228pt too wide) in paragraph at lines 2209--2213
 []@textrm ASDF it-self is de-liv-ered as a sin-gle source file this way, us-in
g @texttt monolithic-concatenate-|
[24] [25] [26] [27] [28] [29] [30] [31]
Overfull \hbox (32.18782pt too wide) in paragraph at lines 2876--2876
 []   @texttt (parse-unix-namestring (format nil "~(~A~)/" (asdf:implementation
-type)))[] |
[32] Chapter 8 [33]
Underfull \hbox (badness 10000) in paragraph at lines 3013--3020
 @texttt CONFIG_DIRS/common-lisp/source-registry.conf[] @textrm (which de-fault
s to

Underfull \hbox (badness 7397) in paragraph at lines 3021--3028
 []@textrm The source reg-istry will be con-fig-ured from user con-fig-u-ra-tio
n di-rec-tory

Underfull \hbox (badness 7308) in paragraph at lines 3021--3028
 @texttt $XDG_CONFIG_DIRS/common-lisp/source-registry.conf.d/[] @textrm (which 
de-faults to

Underfull \hbox (badness 10000) in paragraph at lines 3029--3038
 @texttt $XDG_DATA_HOME/common-lisp/systems/[] @textrm (no re-cur-sion, link fa
rm) @texttt $XDG_

Underfull \hbox (badness 10000) in paragraph at lines 3039--3044
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[34] [35] [36]
Overfull \hbox (20.69044pt too wide) in paragraph at lines 3248--3248
 []    @texttt ;; magic, for output-translations source only: paths that are re
lative[] |
[37]
Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm bian pack-ages or some fu-ture ver-sion of @texttt clbuild[] @textrm ma
y then in-clude files

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm such as @texttt /etc/common-lisp/source-registry.conf.d/10-foo.conf[] @
textrm or

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@texttt ~/.config/common-lisp/source-registry.conf.d/10-foo.conf[] @textrm to e
as-ily and
[38] [39] [40] [41] Chapter 9 [42]
Underfull \hbox (badness 10000) in paragraph at lines 3697--3702
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[43] [44] [45] [46] [47] [48] Chapter 10 [49] Chapter 11 [50] [51] [52]
Underfull \hbox (badness 10000) in paragraph at lines 4344--4351
@textttsl encodings.git[] @textrm or @textttsl git clone ssh://common-lisp.net/
project/asdf/git/asdf-
[53] [54] [55] [56] [57] Chapter 12 [58] Chapter 13 [59] [60] [61] [62]
[63]
Underfull \hbox (badness 10000) in paragraph at lines 5106--5119
 @texttt (defmethod source-file-type ((component cl-source-file) (system (eql
[64] [65]
Overfull \hbox (164.40764pt too wide) in paragraph at lines 5269--5269
 []@texttt echo ':disable-cache' > ~/.config/common-lisp/asdf-output-translatio
ns.conf.d/99-disable-cache.conf[] |
[66] [67] [68] [69] [70] (Ongoing Work) [71] (Bibliography) [72] [73]
(Concept Index) [74] (./asdf.cps) (Function and Class Index) [75] (./asdf.fns)
(Variable Index) [76] (./asdf.vrs) [77] )
(see the transcript file for additional information)
Output written on asdf.dvi (83 pages, 331660 bytes).
Transcript written on asdf.log.
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=etex)
 restricted \write18 enabled.
entering extended mode
(./asdf.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) (./asdf.aux)
[1] [2] (./asdf.toc [-1] [-2] [-3]) [-4] Chapter 1 Chapter 2 [1] Chapter 3
[2] [3] [4] Chapter 4 [5] [6] [7] Chapter 5 [8]
Underfull \hbox (badness 10000) in paragraph at lines 997--1001
[]@textrm Output from ASDF and ASDF ex-ten-sions are sent to the CL stream

Underfull \hbox (badness 7468) in paragraph at lines 997--1001
@texttt *standard-output*[]@textrm , so re-bind-ing that stream around calls to
 @texttt asdf:operate[]
Chapter 6 [9] [10] [11] [12] [13] [14] [15] [16] [17] [18]
Overfull \hbox (14.94176pt too wide) in paragraph at lines 1780--1780
 [] @texttt '(:c2mop :closer-common-lisp :c2cl :closer-common-lisp-user :c2cl-u
ser))[] |

Underfull \hbox (badness 10000) in paragraph at lines 1810--1814
@texttt lil/interface/definition[]@textrm , @texttt lil/interface/base[]@textrm
 , @texttt lil/interface/eq[]@textrm , and
Chapter 7 [19] [20] [21] [22]
Underfull \hbox (badness 7099) in paragraph at lines 2125--2129
 []@textrm NB: @texttt compile-bundle-op[]@textrm , @texttt monolithic-compile-
bundle-op[]@textrm , @texttt load-bundle-op[]@textrm ,

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @texttt monolithic-load-bundle-op[]@textrm , @texttt deliver-asd-op[]@textrm ,
 @texttt monolithic-deliver-asd-op[]

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @textrm were re-spec-tively called @texttt fasl-op[]@textrm , @texttt monolith
ic-fasl-op[]@textrm , @texttt load-fasl-op[]@textrm ,

Underfull \hbox (badness 7256) in paragraph at lines 2130--2135
 []@textrm Once you have cre-ated a fasl with @texttt compile-bundle-op[]@textr
m , you can use
[23]
Overfull \hbox (8.98228pt too wide) in paragraph at lines 2209--2213
 []@textrm ASDF it-self is de-liv-ered as a sin-gle source file this way, us-in
g @texttt monolithic-concatenate-|
[24] [25] [26] [27] [28] [29] [30] [31]
Overfull \hbox (32.18782pt too wide) in paragraph at lines 2876--2876
 []   @texttt (parse-unix-namestring (format nil "~(~A~)/" (asdf:implementation
-type)))[] |
[32] Chapter 8 [33]
Underfull \hbox (badness 10000) in paragraph at lines 3013--3020
 @texttt CONFIG_DIRS/common-lisp/source-registry.conf[] @textrm (which de-fault
s to

Underfull \hbox (badness 7397) in paragraph at lines 3021--3028
 []@textrm The source reg-istry will be con-fig-ured from user con-fig-u-ra-tio
n di-rec-tory

Underfull \hbox (badness 7308) in paragraph at lines 3021--3028
 @texttt $XDG_CONFIG_DIRS/common-lisp/source-registry.conf.d/[] @textrm (which 
de-faults to

Underfull \hbox (badness 10000) in paragraph at lines 3029--3038
 @texttt $XDG_DATA_HOME/common-lisp/systems/[] @textrm (no re-cur-sion, link fa
rm) @texttt $XDG_

Underfull \hbox (badness 10000) in paragraph at lines 3039--3044
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[34] [35] [36]
Overfull \hbox (20.69044pt too wide) in paragraph at lines 3248--3248
 []    @texttt ;; magic, for output-translations source only: paths that are re
lative[] |
[37]
Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm bian pack-ages or some fu-ture ver-sion of @texttt clbuild[] @textrm ma
y then in-clude files

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm such as @texttt /etc/common-lisp/source-registry.conf.d/10-foo.conf[] @
textrm or

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@texttt ~/.config/common-lisp/source-registry.conf.d/10-foo.conf[] @textrm to e
as-ily and
[38] [39] [40] [41] Chapter 9 [42]
Underfull \hbox (badness 10000) in paragraph at lines 3697--3702
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[43] [44] [45] [46] [47] [48] Chapter 10 [49] Chapter 11 [50] [51] [52]
Underfull \hbox (badness 10000) in paragraph at lines 4344--4351
@textttsl encodings.git[] @textrm or @textttsl git clone ssh://common-lisp.net/
project/asdf/git/asdf-
[53] [54] [55] [56] [57] Chapter 12 [58] Chapter 13 [59] [60] [61] [62]
[63]
Underfull \hbox (badness 10000) in paragraph at lines 5106--5119
 @texttt (defmethod source-file-type ((component cl-source-file) (system (eql
[64] [65]
Overfull \hbox (164.40764pt too wide) in paragraph at lines 5269--5269
 []@texttt echo ':disable-cache' > ~/.config/common-lisp/asdf-output-translatio
ns.conf.d/99-disable-cache.conf[] |
[66] [67] [68] [69] [70] (Ongoing Work) [71] (Bibliography) [72] [73]
(Concept Index) [74] (./asdf.cps) (Function and Class Index) [75] (./asdf.fns)
(Variable Index) [76] (./asdf.vrs) [77] )
(see the transcript file for additional information)
Output written on asdf.dvi (83 pages, 331660 bytes).
Transcript written on asdf.log.
dvips -o asdf.ps asdf.dvi
This is dvips(k) 5.994 Copyright 2014 Radical Eye Software (www.radicaleye.com)
' TeX output 2015.06.11:0929' -> asdf.ps
</usr/share/texlive/texmf-dist/dvips/base/tex.pro>
</usr/share/texlive/texmf-dist/dvips/base/texps.pro>. 
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsltt10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmti9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmb10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt12.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmbx12.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr9.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr7.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmmi12.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr10.pfb>[1] 
[2] [-1] [-2] [-3] [-4] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] 
[13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] 
[28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] 
[43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] 
[58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] 
[73] [74] [75] [76] [77] 
texi2dvi -p -I "docstrings/" -I "../../contrib/" sbcl.texinfo
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=pdfetex)
 restricted \write18 enabled.
entering extended mode
(./sbcl.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) (./sbcl.aux)
(./texinfo-macros.texinfo (./docstrings/package-macros.texinfo))
(./variables.texinfo) [1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}]
[2] (./sbcl.toc [-1] [-2] [-3] [-4] [-5]) [-6] (./sbcl.toc) (./sbcl.toc)
(./support-and-bugs.texinfo Chapter 1 [1]
Underfull \hbox (badness 10000) in paragraph at lines 115--120
 @texttt expr[]@textrm ) and change @texttt #define QSHOW_SIGNAL 0[] @textrm to
 @texttt #define QSHOW_SIGNAL 1[] @textrm in
) (./intro.texinfo Chapter 2 [2] [3] [4] [5] [6] [7] [8]) (./start-stop.texinfo
 Chapter 3 [9]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-exit.texinfo
[10])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-save-lisp-and-
die.texinfo [11])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-save-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-sysinit-p
athname-function-star.texinfo [12])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-userinit-
pathname-function-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-core-path
name-star.texinfo) [13] [14] [15]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-init-hook
s-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-exit-hook
s-star.texinfo)) (./compiler.texinfo Chapter 4 [16]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-compiler-
print-variable-alist-star.texinfo) [17]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-compiler
-note.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-code-del
etion-note.texinfo)
Overfull \hbox (13.58342pt too wide) in paragraph at lines 211--211
 []@texttt ;   Asserted type NUMBER conflicts with derived type (VALUES SYMBOL 
&OPTIONAL).[] |
[18]
Underfull \hbox (badness 10000) in paragraph at lines 268--276
 []@textrm `@texttt caught WARNING: Asserted type NUMBER conflicts with derived
 type (VALUES SYMBOL
[19] [20] [21] [22] [23]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-describe-compi
ler-policy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-restrict-compi
ler-policy.texinfo [24])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-with-co
mpilation-unit.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 43--46
 []@textrm If both an outer and an in-ner @texttt with-compilation-unit[] @text
rm pro-vide a
[25]) [26] [27]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-evaluator
-mode-star.texinfo)) (./debugger.texinfo Chapter 5 [28]
Overfull \hbox (19.3321pt too wide) in paragraph at lines 46--46
 []  @texttt 0: [ABORT   ] Reduce debugger level (leaving debugger, returning t
o toplevel).[] |

(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-invoke-de
bugger-hook-star.texinfo) [29]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-debug-pri
nt-variable-alist-star.texinfo) [30] [31] [32] [33] [34] [35] [36] [37]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-trace.t
exinfo [38])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-untrace
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-i
ndentation-step-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-max-tra
ce-indentation-star.texinfo [39])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-debug-star-trace-e
ncapsulate-default-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-common-lisp-step.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-disable-debugg
er.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-enable-debugge
r.texinfo)) (./efficiency.texinfo Chapter 6 [40]
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-stack-all
ocate-dynamic-extent-star.texinfo [41]) [42] [43]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defglobal.te
xinfo) [44]) (./beyond-ansi.texinfo Chapter 7 [45]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-readtable-norm
alization.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-local-
nicknames.texinfo [46]
Underfull \hbox (badness 10000) in paragraph at lines 15--17
 []@textrm See also: @texttt add-package-local-nickname[]@textrm , @texttt pack
age-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locall
y-nicknamed-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-package-lo
cal-nickname.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 23--25
 []@textrm See also: @texttt package-local-nicknames[]@textrm , @texttt package
-locally-nicknamed-by-list[]@textrm ,
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-package
-local-nickname.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-on-packag
e-variance-star.texinfo [47])
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-after-gc-
hooks-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-finalize.texin
fo [48])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-cancel-finaliz
ation.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-weak-poin
ter.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-weak-pointer-v
alue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-gc-run-ti
me-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-bytes-consed-b
etween-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-dynamic-space-
size.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-bytes-cons
ed.texinfo [49])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-gc-logfile.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-ave
rage-age.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-allocated.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-byt
es-consed-between-gcs.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-min
imum-age-before-gc.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs-before-promotion.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-generation-num
ber-of-gcs.texinfo) [50] [51]
Underfull \hbox (badness 10000) in paragraph at lines 399--407
 [][][][]@textrm distinguishing un-bound in-stance al-lo-cated slots from bound
 ones when us-ing
[52]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-length.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-elt.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-elt.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-adjust-se
quence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-like.texinfo) [53]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-emptyp.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-map.texin
fo)
Underfull \hbox (badness 10000) in paragraph at lines 520--524
 @texttt if-not[]@textrm , @texttt sb-sequence:substitute[]@textrm , @texttt sb
-sequence:substitute-if[]@textrm ,

(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-concatena
te.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 543--546
 []@texttt sb-sequence:delete[]@textrm , @texttt sb-sequence:delete-if[]@textrm
 , @texttt sb-sequence:delete-if-not[]@textrm ,
[54]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-merge.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-doseque
nce.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-sequ
ence-iterator.texinfo) [55]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sequence-with-se
quence-iterator-functions.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
step.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
endp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-setf-iter
ator-element.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
index.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-iterator-
copy.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sequence-make-simp
le-sequence-iterator.texinfo) [56]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-posix-getenv.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-run-program.te
xinfo [57])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-p.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-input.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-output
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-error.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-alive-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-status
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-wait.t
exinfo [58])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-exit-c
ode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-core-d
umped.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-close.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-process-kill.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-general-ca
tegory.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-class
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-combining-
class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-decimal-va
lue.texinfo [59])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-digit-valu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-numeric-va
lue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-mirrored-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-bidi-mirro
ring-glyph.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-age.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hangul-syl
lable-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-east-asian
-width.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-script.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-char-block
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-1-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-proplist-p
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-cased-p.te
xinfo [60])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-case-ignor
able-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-alphabetic
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-ideographi
c-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-math-p.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-whitespace
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-soft-dotte
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-hex-digit-
p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-default-ig
norable-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-grapheme-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-word-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentence-b
reak-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-line-break
-class.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalize-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-normalized
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-uppercase.
texinfo [61])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lowercase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-titlecase.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-casefold.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode=.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-eq
ual.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-lt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-unicode-gt
=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-confusable
-p.texinfo [62])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-graphemes.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-words.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-sentences.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-unicode-lines.texi
nfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-require.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-module-pr
ovider-functions-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-ed.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-ed-functi
ons-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-ext-star-muffled-w
arnings-star.texinfo [63])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-make-hash
-table.texinfo [64])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-hash-
table-test.texinfo [65])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-locked-
hash-table.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-syn
chronized-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-hash-table-wea
kness.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-seed-random-st
ate.texinfo [66])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-array-storage-
vector.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-delete-directo
ry.texinfo [67])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-time-of-da
y.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-wait-for.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-assert-version
-gt=.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-purify.texinfo
[68])
(/«PKGBUILDDIR»/doc/manual/docstrings/special-operator-sb-ext-t
ruly-the.texinfo)) (./ffi.texinfo Chapter 8 [69] [70]
Underfull \hbox (badness 10000) in paragraph at lines 210--216
 []@textrm The for-eign type spec-i-fier @texttt (sb-alien:union @textttsl name
 @texttt &rest @textttsl fields@texttt )[] @textrm is sim-i-lar to
[71]
Overfull \hbox (18.01857pt too wide) in paragraph at lines 304--304
 []@texttt (define-alien-routine test int (str (c-string :external-format :ebcd
ic-us)))[] |
[72] [73]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-alien-make-alien
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-make-alien-s
tring.texinfo [74])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-free-alien.t
exinfo) [75] [76]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-load-shared-
object.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-alien-unload-share
d-object.texinfo) [77] [78] [79] [80]
Overfull \hbox (13.58342pt too wide) in paragraph at lines 1140--1140
 []                      @texttt (c-function 5 "another Lisp string" (addr c-st
ruct) ar)))[] |
[81]) (./pathnames.texinfo Chapter 9 [82]
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-set-sbcl-sourc
e-location.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-parse-native-n
amestring.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-pathnam
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-native-namestr
ing.texinfo [83])) (./streams.texinfo Chapter 10 [84] (./encodings.texi-temp
[85] [86])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-stream.texinfo [87])
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-input-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-input-stream, fundamenta
l-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-output-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-output-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-stream.texinfo
Underfull \hbox (badness 7522) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt fundamental-binary-stream, fundament
al-stream, standard-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-binary-output-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-input-stream.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-gray-fundamental
-character-output-stream.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 @texttt stream, fundamental-character-stream, fundamental-stream, standard-obj
ect,
[88])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-stream-el
ement-type.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-common-lisp-close.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-file-p
osition.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
input.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-s
equence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-peek-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-c
har.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-l
ine.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-listen
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-unread
-char.texinfo [89])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-clear-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-finish
-output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-force-
output.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
sequence.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-advanc
e-to-column.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-fresh-
line.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-c
olumn.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-line-l
ength.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-start-
line-p.texinfo [90])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-terpri
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
char.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
string.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-read-b
yte.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-gray-stream-write-
byte.texinfo) (./gray-streams-examples.texinfo [91] [92] [93])
(/«PKGBUILDDIR»/contrib/sb-simple-streams/sb-simple-streams.tex
info)) (./package-locks.texi-temp Chapter 11 [94]
Underfull \hbox (badness 7685) in paragraph at lines 60--64
[]@textrm Unless ex-plic-itly al-tered by @texttt defpackage[]@textrm , @texttt
 sb-ext:add-implementation-package[]@textrm , or
[95] [96]
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
lock-violation.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt package-lock-violation, package-erro
r, error, serious-
[97])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-package-
locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-ext-symbol-p
ackage-locked-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-locked
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-lock-package.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unlock-package
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ented-by-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-package-implem
ents-list.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-add-implementa
tion-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-remove-impleme
ntation-package.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-without-pack
age-locks.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-with-unlocke
d-packages.texinfo) [98]) (./threading.texinfo Chapter 12 [99]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-thread.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-thread-star-curren
t-thread-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-list-all-th
reads.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-aliv
e-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-name
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-main-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-return-fr
om-thread.texinfo [100])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-abort-threa
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-join-thread
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-yiel
d.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-interrupt-t
hread.texinfo [101])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-terminate-t
hread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-symbol-valu
e-in-thread.texinfo [102])
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-threa
d-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-thread-erro
r-thread.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-inter
rupt-thread-error.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 3--4
 []@textrm Class prece-dence list: @texttt interrupt-thread-error, thread-error
, error, serious-
)
(/«PKGBUILDDIR»/doc/manual/docstrings/condition-sb-thread-join-
thread-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-decf.
texinfo [103])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-incf.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-pop.t
exinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-push.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-atomic-updat
e.texinfo [104])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-compare-and-
swap.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-cas.texinfo
[105])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-define-cas-e
xpander.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-ext-defcas.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-get-cas-expans
ion.texinfo) [106]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-mutex.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-mute
x.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-with-recu
rsive-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-name.
texinfo [107])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-owner
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-mutex-value
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-grab-mutex.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-release-mut
ex.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-signal-sema
phore.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-wait-on-sem
aphore.texinfo [108])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-try-semapho
re.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 6--9
 []@textrm If @texttt notification[] @textrm is given it must be a semaphore no
-ti-fi-ca-tion ob-ject with
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-c
ount.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-semaphor
e-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-semaph
ore-notification.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-semaphore-n
otification-status.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-clear-semap
hore-notification.texinfo) [109]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-thread-waitqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-make-waitqu
eue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-waitqueue-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-w
ait.texinfo [110])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-n
otify.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-thread-condition-b
roadcast.texinfo)
Underfull \hbox (badness 10000) in paragraph at lines 295--298
 []@texttt sb-thread:grab-mutex[]@textrm , @texttt sb-thread:release-mutex[]@te
xtrm , @texttt sb-thread:with-mutex[] @textrm and

Underfull \hbox (badness 10000) in paragraph at lines 298--301
 []@texttt sb-thread:signal-semaphore[]@textrm , @texttt sb-thread:try-semaphor
e[] @textrm and @texttt sb-thread:wait-on-
[111]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-thread-barrier.t
exinfo) [112]) (./timers.texinfo Chapter 13 [113]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-ext-timer.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-make-timer.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-name.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-timer-schedule
d-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-schedule-timer
.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-unschedule-tim
er.texinfo [114])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-ext-list-all-timer
s.texinfo))
(/«PKGBUILDDIR»/contrib/sb-bsd-sockets/sb-bsd-sockets.texinfo
Chapter 14 [115]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-sock
et.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-bind.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-accept.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-connect.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-peername.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-receive.texinfo [116])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-send.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-listen.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-open-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-close.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-shutdown.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-make-stream.texinfo [117])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-socket
-error.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-non-bl
ocking-mode.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-reuse-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-keep-alive.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-oob-inline.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-bsd-compatible.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-pass-credentials.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-debug.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-dont-route.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-broadcast.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-sockop
t-tcp-nodelay.texinfo) [118]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-inet
6-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-make-i
net6-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-pr
otocol-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-loca
l-socket.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-bsd-sockets-host
-ent.texinfo [119])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-get-ho
st-by-address.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-bsd-sockets-host-e
nt-address.texinfo)) (./profiling.texinfo Chapter 15 [120]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-profile.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-profile-unprofil
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-report.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-profile-reset.texi
nfo) (/«PKGBUILDDIR»/contrib/sb-sprof/sb-sprof.texinfo [121]
[122]
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-profi
ling.texinfo [123])
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-sprof-with-sampl
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-report.texin
fo [124])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-reset.texinf
o)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-start-profil
ing.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-stop-profili
ng.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-profile-call
-counts.texinfo [125])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-sprof-unprofile-ca
ll-counts.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-max-sam
ples-star.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/var-sb-sprof-star-sample-
interval-star.texinfo))) (./contrib-modules.texinfo Chapter 16 [126] [127]
(/«PKGBUILDDIR»/contrib/sb-aclrepl/sb-aclrepl.texinfo
Underfull \hbox (badness 10000) in paragraph at lines 46--48
[]@textrm Questions, com-ments, or bug re-ports should be sent to Kevin Rosen-b
erg
) [128]
(/«PKGBUILDDIR»/contrib/sb-concurrency/sb-concurrency.texinfo
[129]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-que
ue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-dequeu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-enqueu
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-q
ueue-contents.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-q
ueue.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queue-
name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-queuep
.texinfo) [130]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-mai
lbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-list-m
ailbox-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-count.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-empty-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
x-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-mailbo
xp.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-m
ailbox.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-message-no-hang.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-receiv
e-pending-messages.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-send-m
essage.texinfo) [131]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-gat
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-close-
gate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-n
ame.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gate-o
pen-p.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-gatep.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-open-g
ate.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-wait-o
n-gate.texinfo) [132]
(/«PKGBUILDDIR»/doc/manual/docstrings/struct-sb-concurrency-frl
ock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-read.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/macro-sb-concurrency-frlo
ck-write.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-make-f
rlock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-name.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-begin.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-frlock
-read-end.texinfo [133])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-grab-f
rlock-write-lock.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-concurrency-releas
e-frlock-write-lock.texinfo)) [134]
(/«PKGBUILDDIR»/contrib/sb-cover/sb-cover.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-report.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-reset-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-clear-covera
ge.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-save-coverag
e-in-file.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage.texinfo [135])
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-cover-restore-cove
rage-from-file.texinfo)) [136]
(/«PKGBUILDDIR»/contrib/sb-grovel/sb-grovel.texinfo [137]
[138]
Overfull \hbox (23.76726pt too wide) in paragraph at lines 189--189
 []                                                     @texttt (argument2 alie
n-type)))[] |

Underfull \hbox (badness 10000) in paragraph at lines 228--234
 []@texttt (setf (mystruct-myint var) new-val)[] @textrm and @texttt (setf (mys
truct-mystring var)
) [139] (/«PKGBUILDDIR»/contrib/sb-md5/sb-md5.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-file.te
xinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-sequenc
e.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-stream.
texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-md5-md5sum-string.
texinfo)) [140]
(/«PKGBUILDDIR»/contrib/sb-posix/sb-posix.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-file-descri
ptor-designator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-file-descrip
tor.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename.te
xinfo [141])
(/«PKGBUILDDIR»/doc/manual/docstrings/type-sb-posix-filename-de
signator.texinfo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-filename.tex
info) [142]
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-flock.texi
nfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt type[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt whence[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt start[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt len[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-passwd.tex
info
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt name[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 7722) in paragraph at lines 10--11
 []@texttt passwd[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt uid[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt gid[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[143]
Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt gecos[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 22--23
 []@texttt dir[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 25--26
 []@texttt shell[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-stat.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-termios.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt iflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:
[144]
Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt oflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 13--14
 []@texttt cflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 16--17
 []@texttt lflag[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 19--20
 []@texttt cc[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/class-sb-posix-timeval.te
xinfo
Underfull \hbox (badness 10000) in paragraph at lines 7--8
 []@texttt sec[] @textrm --- ini-targ: [][]; reader: [][]; writer:

Underfull \hbox (badness 10000) in paragraph at lines 10--11
 []@texttt usec[] @textrm --- ini-targ: [][]; reader: [][]; writer:
)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-getcwd.texin
fo)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-readlink.tex
info)
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-posix-syslog.texin
fo)) [145] (/«PKGBUILDDIR»/contrib/sb-queue/sb-queue.texinfo)
[146]
(/«PKGBUILDDIR»/contrib/sb-rotate-byte/sb-rotate-byte.texinfo
(/«PKGBUILDDIR»/doc/manual/docstrings/fun-sb-rotate-byte-rotate
-byte.texinfo))) (./deprecated.texinfo Chapter 17 [147] [148] [149]
Underfull \hbox (badness 10000) in paragraph at lines 245--250
 @texttt spinlock[]@textrm , @texttt sb-thread::with-recursive-spinlock[]@textr
m , @texttt sb-thread::get-spinlock[]@textrm ,
[150]
Underfull \hbox (badness 10000) in paragraph at lines 268--269
 []@textbf SB-THREAD:JOIN-THREAD-ERROR-THREAD and SB-THREAD:INTERRUPT-
[151]) (./backmatter.texinfo Appendix A [152] (./sbcl.cps [153]) Appendix B
[154] (./sbcl.fns [155] [156] [157]) Appendix C [158] (./sbcl.vrs) Appendix D
[159] (./sbcl.tps) (Colophon) [160]) [161] )
(see the transcript file for additional information) </«BUILDDIR»/sbcl-1
.2.12/.texmf-var/fonts/pk/ljfour/jknappen/ec/ecti1095.603pk> </build/sbcl-xMrQj
a/sbcl-1.2.12/.texmf-var/fonts/pk/ljfour/jknappen/ec/ecrm1095.603pk></usr/share
/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmb10.pfb></usr/share/texliv
e/texmf-dist/fonts/type1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texm
f-dist/fonts/type1/public/amsfonts/cm/cmmi10.pfb></usr/share/texlive/texmf-dist
/fonts/type1/public/amsfonts/cm/cmmi12.pfb></usr/share/texlive/texmf-dist/fonts
/type1/public/amsfonts/cm/cmmi7.pfb></usr/share/texlive/texmf-dist/fonts/type1/
public/amsfonts/cm/cmmi9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/
amsfonts/cm/cmr10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfont
s/cm/cmr7.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr
9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl10.pfb>
</usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl9.pfb></usr/s
hare/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsltt10.pfb></usr/share
/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmss10.pfb></usr/share/texli
ve/texmf-dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb></usr/share/texlive/tex
mf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb></usr/share/texlive/texmf-dis
t/fonts/type1/public/amsfonts/cm/cmtt10.pfb></usr/share/texlive/texmf-dist/font
s/type1/public/amsfonts/cm/cmtt12.pfb></usr/share/texlive/texmf-dist/fonts/type
1/public/amsfonts/cm/cmtt8.pfb></usr/share/texlive/texmf-dist/fonts/type1/publi
c/amsfonts/cm/cmtt9.pfb>
Output written on sbcl.pdf (169 pages, 769315 bytes).
Transcript written on sbcl.log.
texi2dvi -p -I "docstrings/" -I "../../contrib/" asdf.texinfo
This is pdfTeX, Version 3.14159265-2.6-1.40.15 (TeX Live 2015/dev/Debian) (preloaded format=pdfetex)
 restricted \write18 enabled.
entering extended mode
(./asdf.texinfo (/usr/share/texmf/tex/texinfo/texinfo.tex
Loading texinfo [version 2013-09-11.11]: pdf, fonts, markup, glyphs,
page headings, tables, conditionals, indexing, sectioning, toc, environments,
defuns, macros, cross references, insertions,
(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, and turning on texinfo input format.) (./asdf.aux)
[1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}] [2] (./asdf.toc [-1]
[-2] [-3]) [-4] (./asdf.toc) (./asdf.toc) Chapter 1 Chapter 2 [1] Chapter 3
[2] [3] [4] Chapter 4 [5] [6] [7] Chapter 5 [8]
Underfull \hbox (badness 10000) in paragraph at lines 997--1001
[]@textrm Output from ASDF and ASDF ex-ten-sions are sent to the CL stream

Underfull \hbox (badness 7468) in paragraph at lines 997--1001
@texttt *standard-output*[]@textrm , so re-bind-ing that stream around calls to
 @texttt asdf:operate[]
Chapter 6 [9] [10] [11] [12] [13] [14] [15] [16] [17] [18]
Overfull \hbox (14.94176pt too wide) in paragraph at lines 1780--1780
 [] @texttt '(:c2mop :closer-common-lisp :c2cl :closer-common-lisp-user :c2cl-u
ser))[] |

Underfull \hbox (badness 10000) in paragraph at lines 1810--1814
@texttt lil/interface/definition[]@textrm , @texttt lil/interface/base[]@textrm
 , @texttt lil/interface/eq[]@textrm , and
Chapter 7 [19] [20] [21] [22]
Underfull \hbox (badness 7099) in paragraph at lines 2125--2129
 []@textrm NB: @texttt compile-bundle-op[]@textrm , @texttt monolithic-compile-
bundle-op[]@textrm , @texttt load-bundle-op[]@textrm ,

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @texttt monolithic-load-bundle-op[]@textrm , @texttt deliver-asd-op[]@textrm ,
 @texttt monolithic-deliver-asd-op[]

Underfull \hbox (badness 10000) in paragraph at lines 2125--2129
 @textrm were re-spec-tively called @texttt fasl-op[]@textrm , @texttt monolith
ic-fasl-op[]@textrm , @texttt load-fasl-op[]@textrm ,

Underfull \hbox (badness 7256) in paragraph at lines 2130--2135
 []@textrm Once you have cre-ated a fasl with @texttt compile-bundle-op[]@textr
m , you can use
[23]
Overfull \hbox (8.98228pt too wide) in paragraph at lines 2209--2213
 []@textrm ASDF it-self is de-liv-ered as a sin-gle source file this way, us-in
g @texttt monolithic-concatenate-|
[24] [25] [26] [27] [28] [29] [30] [31]
Overfull \hbox (32.18782pt too wide) in paragraph at lines 2876--2876
 []   @texttt (parse-unix-namestring (format nil "~(~A~)/" (asdf:implementation
-type)))[] |
[32] Chapter 8 [33]
Underfull \hbox (badness 10000) in paragraph at lines 3013--3020
 @texttt CONFIG_DIRS/common-lisp/source-registry.conf[] @textrm (which de-fault
s to

Underfull \hbox (badness 7397) in paragraph at lines 3021--3028
 []@textrm The source reg-istry will be con-fig-ured from user con-fig-u-ra-tio
n di-rec-tory

Underfull \hbox (badness 7308) in paragraph at lines 3021--3028
 @texttt $XDG_CONFIG_DIRS/common-lisp/source-registry.conf.d/[] @textrm (which 
de-faults to

Underfull \hbox (badness 10000) in paragraph at lines 3029--3038
 @texttt $XDG_DATA_HOME/common-lisp/systems/[] @textrm (no re-cur-sion, link fa
rm) @texttt $XDG_

Underfull \hbox (badness 10000) in paragraph at lines 3039--3044
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[34] [35] [36]
Overfull \hbox (20.69044pt too wide) in paragraph at lines 3248--3248
 []    @texttt ;; magic, for output-translations source only: paths that are re
lative[] |
[37]
Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm bian pack-ages or some fu-ture ver-sion of @texttt clbuild[] @textrm ma
y then in-clude files

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@textrm such as @texttt /etc/common-lisp/source-registry.conf.d/10-foo.conf[] @
textrm or

Underfull \hbox (badness 10000) in paragraph at lines 3292--3299
@texttt ~/.config/common-lisp/source-registry.conf.d/10-foo.conf[] @textrm to e
as-ily and
[38] [39] [40] [41] Chapter 9 [42]
Underfull \hbox (badness 10000) in paragraph at lines 3697--3702
 []@textrm The source reg-istry will be con-fig-ured from sys-tem con-fig-u-ra-
tion file
[43] [44] [45] [46] [47] [48] Chapter 10 [49] Chapter 11 [50] [51] [52]
Underfull \hbox (badness 10000) in paragraph at lines 4344--4351
@textttsl encodings.git[] @textrm or @textttsl git clone ssh://common-lisp.net/
project/asdf/git/asdf-
[53] [54] [55] [56] [57] Chapter 12 [58] Chapter 13 [59] [60] [61] [62]
[63]
Underfull \hbox (badness 10000) in paragraph at lines 5106--5119
 @texttt (defmethod source-file-type ((component cl-source-file) (system (eql
[64] [65]
Overfull \hbox (164.40764pt too wide) in paragraph at lines 5269--5269
 []@texttt echo ':disable-cache' > ~/.config/common-lisp/asdf-output-translatio
ns.conf.d/99-disable-cache.conf[] |
[66] [67] [68] [69] [70] (Ongoing Work) [71] (Bibliography) [72] [73]
(Concept Index) [74] (./asdf.cps) (Function and Class Index) [75] (./asdf.fns)
(Variable Index) [76] (./asdf.vrs) [77] )
(see the transcript file for additional information)</usr/share/texlive/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmb10.pfb></usr/share/texlive/texmf-dist/fon
ts/type1/public/amsfonts/cm/cmbx12.pfb></usr/share/texlive/texmf-dist/fonts/typ
e1/public/amsfonts/cm/cmmi10.pfb></usr/share/texlive/texmf-dist/fonts/type1/pub
lic/amsfonts/cm/cmmi12.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/am
sfonts/cm/cmmi9.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/
cm/cmr10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr7
.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmr9.pfb></u
sr/share/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl10.pfb></usr/sha
re/texlive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl9.pfb></usr/share/texl
ive/texmf-dist/fonts/type1/public/amsfonts/cm/cmsltt10.pfb></usr/share/texlive/
texmf-dist/fonts/type1/public/amsfonts/cm/cmss10.pfb></usr/share/texlive/texmf-
dist/fonts/type1/public/amsfonts/cm/cmsy10.pfb></usr/share/texlive/texmf-dist/f
onts/type1/public/amsfonts/cm/cmti10.pfb></usr/share/texlive/texmf-dist/fonts/t
ype1/public/amsfonts/cm/cmti9.pfb></usr/share/texlive/texmf-dist/fonts/type1/pu
blic/amsfonts/cm/cmtt10.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/a
msfonts/cm/cmtt12.pfb></usr/share/texlive/texmf-dist/fonts/type1/public/amsfont
s/cm/cmtt9.pfb>
Output written on asdf.pdf (83 pages, 471375 bytes).
Transcript written on asdf.log.
makeinfo --no-split -I "docstrings/" -I "../../contrib/" sbcl.texinfo
sbcl.texinfo:10: warning: multiple @settitle
./intro.texinfo:117: warning: @ref node name should not contain `:'
./intro.texinfo:335: warning: @xref node name should not contain `:'
./beyond-ansi.texinfo:911: warning: @ref node name should not contain `:'
makeinfo --no-split -I "docstrings/" -I "../../contrib/" asdf.texinfo
makeinfo -I "docstrings/" -I "../../contrib/" --html --no-split --css-include=style-single.css sbcl.texinfo
sbcl.texinfo:10: warning: multiple @settitle
makeinfo --html --no-split --css-include=style-single.css asdf.texinfo
touch html-stamp
rm sbcl.dvi asdf.dvi
make[1]: Leaving directory '/«PKGBUILDDIR»/doc/manual'
touch build-indep-stamp
dh_testdir
dh_testroot
dh_prep
	rm -f debian/sbcl.substvars
	rm -f debian/sbcl.*.debhelper
	rm -rf debian/sbcl/
	rm -f debian/sbcl-doc.substvars
	rm -f debian/sbcl-doc.*.debhelper
	rm -rf debian/sbcl-doc/
	rm -f debian/sbcl-source.substvars
	rm -f debian/sbcl-source.*.debhelper
	rm -rf debian/sbcl-source/
dh_installdirs
	install -d debian/sbcl
	install -d debian/sbcl/usr/share/binfmts
	install -d debian/sbcl-doc
	install -d debian/sbcl-doc/usr/share/doc/sbcl-doc debian/sbcl-doc/usr/share/lintian/overrides
	install -d debian/sbcl-source
	install -d debian/sbcl-source/usr/share/sbcl-source debian/sbcl-source/usr/share/lintian/overrides
INSTALL_ROOT="/«PKGBUILDDIR»/debian/tmp/usr" sh install.sh
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/asdf'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//uiop.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//asdf.fasl "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/asdf'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-aclrepl.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-aclrepl.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-aclrepl'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-bsd-sockets.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-bsd-sockets.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-bsd-sockets'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cltl2.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cltl2.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cltl2'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-concurrency.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-concurrency.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-concurrency'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-cover'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cover.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-cover.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-cover'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-executable'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-executable.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-executable'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-gmp'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-gmp.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-gmp.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-gmp'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-grovel'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-grovel.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-grovel.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-grovel'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-introspect'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-introspect.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-introspect.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-introspect'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-md5'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-md5.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-md5.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-md5'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-mpfr.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-mpfr.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-mpfr'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-posix'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-posix.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-posix.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-posix'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-queue'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-queue.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-queue.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-queue'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rotate-byte.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rotate-byte.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rotate-byte'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-rt'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rt.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-rt.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-rt'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-simple-streams.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-simple-streams.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-simple-streams'
make[1]: Entering directory '/«PKGBUILDDIR»/contrib/sb-sprof'
cp /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.fasl /«PKGBUILDDIR»/obj/sbcl-home/contrib//sb-sprof.asd "/«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/contrib/"
make[1]: Leaving directory '/«PKGBUILDDIR»/contrib/sb-sprof'

SBCL has been installed:
 binary /«PKGBUILDDIR»/debian/tmp/usr/bin/sbcl
 core and contribs in /«PKGBUILDDIR»/debian/tmp/usr/lib/sbcl/

Documentation:
 man /«PKGBUILDDIR»/debian/tmp/usr/share/man/man1/sbcl.1
 info /«PKGBUILDDIR»/debian/tmp/usr/share/info/asdf.info [/«PKGBUILDDIR»/debian/tmp/usr/share/info/dir] (could not add to system catalog)
 info /«PKGBUILDDIR»/debian/tmp/usr/share/info/sbcl.info [/«PKGBUILDDIR»/debian/tmp/usr/share/info/dir] (could not add to system catalog)
 pdf /«PKGBUILDDIR»/debian/tmp/usr/share/doc/sbcl/asdf.pdf
 pdf /«PKGBUILDDIR»/debian/tmp/usr/share/doc/sbcl/sbcl.pdf
 html /«PKGBUILDDIR»/debian/tmp/usr/share/doc/sbcl/sbcl.html
 html /«PKGBUILDDIR»/debian/tmp/usr/share/doc/sbcl/asdf.html
dh_install
	install -d debian/sbcl//usr/bin
	cp --reflink=auto -a debian/tmp/usr/bin/sbcl debian/sbcl//usr/bin/
	install -d debian/sbcl//usr/lib
	cp --reflink=auto -a debian/tmp/usr/lib/sbcl debian/sbcl//usr/lib/
	cp --reflink=auto -a debian/tmp/usr/lib/sbcl/sbcl.core debian/sbcl//usr/lib/sbcl/
	install -d debian/sbcl//usr/share/man/man1
	cp --reflink=auto -a debian/tmp/usr/share/man/man1/sbcl.1 debian/sbcl//usr/share/man/man1/
	install -d debian/sbcl//etc
	cp --reflink=auto -a ./debian/sbcl.rc debian/sbcl//etc/
	cp --reflink=auto -a ./debian/install-clc.lisp debian/sbcl//usr/lib/sbcl//
	cp --reflink=auto -a debian/tmp/usr/share/doc/sbcl/html debian/sbcl-doc//usr/share/doc/sbcl-doc//
	cp --reflink=auto -a debian/tmp/usr/share/doc/sbcl/sbcl.html debian/sbcl-doc//usr/share/doc/sbcl-doc/html//
	cp --reflink=auto -a debian/tmp/usr/share/doc/sbcl/sbcl.pdf debian/sbcl-doc//usr/share/doc/sbcl-doc//
	cp --reflink=auto -a ./doc/internals/sbcl-internals debian/sbcl-doc//usr/share/doc/sbcl-doc/html/
	cp --reflink=auto -a ./doc/internals/sbcl-internals.pdf debian/sbcl-doc//usr/share/doc/sbcl-doc//
	cp --reflink=auto -a ./src debian/sbcl-source//usr/share/sbcl-source//
	cp --reflink=auto -a ./contrib debian/sbcl-source//usr/share/sbcl-source//
cp debian/binfmt debian/sbcl/usr/share/binfmts/sbcl
cp debian/sbcl-run debian/sbcl/usr/lib/sbcl
chmod a+x debian/sbcl/usr/lib/sbcl/sbcl-run
find debian/sbcl/usr/lib/sbcl/ -type f -name \*.c -exec chmod -x '{}' \;
dh_installinfo -psbcl-doc /«PKGBUILDDIR»/debian/tmp/usr/share/info/sbcl.info 
	install -d debian/sbcl-doc/usr/share/info
	cp --reflink=auto /«PKGBUILDDIR»/debian/tmp/usr/share/info/sbcl.info debian/sbcl-doc/usr/share/info
	chmod -R go=rX debian/sbcl-doc/usr/share/info/
	chmod -R u\+rw debian/sbcl-doc/usr/share/info/
rm /«PKGBUILDDIR»/debian/tmp/usr/share/info/asdf.info /«PKGBUILDDIR»/debian/tmp/usr/share/info/sbcl.info
rm /«PKGBUILDDIR»/debian/tmp/usr/share/doc/sbcl/asdf.pdf
cp debian/index-docs.html \
	debian/sbcl-doc/usr/share/doc/sbcl-doc/html/index.html
rm -f debian/sbcl-source/usr/share/sbcl-source/contrib/asdf-install/asdf-install	
rm -f debian/sbcl-source/usr/share/sbcl-source/contrib/asdf/LICENSE
find debian/sbcl-source/usr/share/sbcl-source -type f -name \*.fasl -or -name \*.o -or -name \*.log \
	-or -name \*.so -or -name a.out | xargs rm
find debian/sbcl-source/usr/share/sbcl-source/ -type f -name \*.c -exec chmod -x '{}' \;
rm debian/sbcl-source/usr/share/sbcl-source/src/runtime/sbcl  
rm debian/sbcl-source/usr/share/sbcl-source/src/runtime/sbcl.nm 
dh_testdir -a
dh_testroot -a
dh_installchangelogs -a
	install -d debian/sbcl/usr/share/doc/sbcl
	install -p -m0644 debian/changelog debian/sbcl/usr/share/doc/sbcl/changelog.Debian
	install -p -m0644 debian/NEWS debian/sbcl/usr/share/doc/sbcl/NEWS.Debian
dh_installdocs -a
	cp --reflink=auto -a BUGS debian/sbcl/usr/share/doc/sbcl
	cp --reflink=auto -a CREDITS debian/sbcl/usr/share/doc/sbcl
	cp --reflink=auto -a NEWS debian/sbcl/usr/share/doc/sbcl
	cp --reflink=auto -a PRINCIPLES debian/sbcl/usr/share/doc/sbcl
	cp --reflink=auto -a README debian/sbcl/usr/share/doc/sbcl
	cp --reflink=auto -a TODO debian/sbcl/usr/share/doc/sbcl
	chown -R 0:0 debian/sbcl/usr/share/doc
	chmod -R go=rX debian/sbcl/usr/share/doc
	chmod -R u\+rw debian/sbcl/usr/share/doc
	install -p -m0644 debian/README.Debian debian/sbcl/usr/share/doc/sbcl/README.Debian
	install -p -m0644 debian/copyright debian/sbcl/usr/share/doc/sbcl/copyright
dh_installexamples -a
dh_installman -a
	man --recode UTF-8 ./sbcl\.1 > sbcl\.1\.new
	chmod 644 sbcl.1.new
	mv -f sbcl.1.new sbcl.1
dh_strip -a
	strip --remove-section=.comment --remove-section=.note debian/sbcl/usr/bin/sbcl
dh_link -a
dh_lintian -a
	install -d debian/sbcl/usr/share/lintian/overrides
	install -p -m0644 debian/sbcl.lintian-overrides debian/sbcl/usr/share/lintian/overrides/sbcl
dh_compress -a
	cd debian/sbcl
	chmod a-x usr/share/man/man1/sbcl.1 usr/share/doc/sbcl/changelog.Debian usr/share/doc/sbcl/NEWS.Debian usr/share/doc/sbcl/CREDITS usr/share/doc/sbcl/NEWS usr/share/doc/sbcl/PRINCIPLES usr/share/doc/sbcl/TODO
	gzip -9nf usr/share/man/man1/sbcl.1 usr/share/doc/sbcl/changelog.Debian usr/share/doc/sbcl/NEWS.Debian usr/share/doc/sbcl/CREDITS usr/share/doc/sbcl/NEWS usr/share/doc/sbcl/PRINCIPLES usr/share/doc/sbcl/TODO
	cd '/«PKGBUILDDIR»'
dh_fixperms -a
	find debian/sbcl  -print0 2>/dev/null | xargs -0r chown --no-dereference 0:0
	find debian/sbcl ! -type l  -print0 2>/dev/null | xargs -0r chmod go=rX,u+rw,a-s
	find debian/sbcl/usr/share/doc -type f  ! -regex 'debian/sbcl/usr/share/doc/[^/]*/examples/.*' -print0 2>/dev/null | xargs -0r chmod 0644
	find debian/sbcl/usr/share/doc -type d  -print0 2>/dev/null | xargs -0r chmod 0755
	find debian/sbcl/usr/share/man debian/sbcl/usr/man/ debian/sbcl/usr/X11*/man/ -type f  -print0 2>/dev/null | xargs -0r chmod 0644
	find debian/sbcl -perm -5 -type f \( -name '*.so.*' -or -name '*.so' -or -name '*.la' -or -name '*.a' \)  -print0 2>/dev/null | xargs -0r chmod 0644
	find debian/sbcl/usr/include -type f  -print0 2>/dev/null | xargs -0r chmod 0644
	find debian/sbcl/usr/share/applications -type f  -print0 2>/dev/null | xargs -0r chmod 0644
	find debian/sbcl -perm -5 -type f \( -name '*.cmxs' \)  -print0 2>/dev/null | xargs -0r chmod 0644
	find debian/sbcl/usr/lib/arm-linux-gnueabihf/perl5/5.20 debian/sbcl/usr/share/perl5 -type f -perm -5 -name '*.pm'  -print0 2>/dev/null | xargs -0r chmod a-X
	find debian/sbcl/usr/bin -type f  -print0 2>/dev/null | xargs -0r chmod a+x
	find debian/sbcl/usr/lib -type f -name '*.ali'  -print0 2>/dev/null | xargs -0r chmod uga-w
	find debian/sbcl/usr/share/lintian/overrides -type f  -print0 2>/dev/null | xargs -0r chmod 0644
dh_lisp sbcl
dh_installdeb -a
	install -d debian/sbcl/DEBIAN
	sed s/#DEBHELPER#// < debian/postinst > debian/sbcl/DEBIAN/postinst
	chown 0:0 debian/sbcl/DEBIAN/postinst
	chmod 0755 debian/sbcl/DEBIAN/postinst
	sed s/#DEBHELPER#// < debian/prerm > debian/sbcl/DEBIAN/prerm
	chown 0:0 debian/sbcl/DEBIAN/prerm
	chmod 0755 debian/sbcl/DEBIAN/prerm
	find debian/sbcl/etc -type f -printf '/etc/%P
' | LC_ALL=C sort >> debian/sbcl/DEBIAN/conffiles
	chmod 0644 debian/sbcl/DEBIAN/conffiles
dh_shlibdeps -a
	dpkg-shlibdeps -Tdebian/sbcl.substvars debian/sbcl/usr/bin/sbcl
stage1/bin/sbcl --load "debian/fasl-version.lisp"
This is SBCL 1.2.12.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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.
STYLE-WARNING:
   Character decoding error in a ;-comment at position 250 reading source stream #<FORM-TRACKING-STREAM
                                                                                   for "file /«PKGBUILDDIR»/debian/fasl-version.lisp"
                                                                                   {51B1DB49}>, resyncing.
dh_gencontrol -a
	echo misc:Depends= >> debian/sbcl.substvars
	echo misc:Pre-Depends= >> debian/sbcl.substvars
	dpkg-gencontrol -psbcl -ldebian/changelog -Tdebian/sbcl.substvars -Pdebian/sbcl
dpkg-gencontrol: warning: File::FcntlLock not available; using flock which is not NFS-safe
	chmod 0644 debian/sbcl/DEBIAN/control
	chown 0:0 debian/sbcl/DEBIAN/control
dh_md5sums -a
	(cd debian/sbcl >/dev/null ; find . -type f ! -path "./etc/sbcl.rc"  ! -regex './DEBIAN/.*' -printf '%P\0' | LC_ALL=C sort -z | xargs -r0 md5sum > DEBIAN/md5sums) >/dev/null
	chmod 0644 debian/sbcl/DEBIAN/md5sums
	chown 0:0 debian/sbcl/DEBIAN/md5sums
dh_builddeb -a
	dpkg-deb --build debian/sbcl ..
dpkg-deb: building package `sbcl' in `../sbcl_1.2.12-1_armhf.deb'.
 dpkg-genchanges -B -mRaspbian wandboard test autobuilder <root@raspbian.org> >../sbcl_1.2.12-1_armhf.changes
dpkg-genchanges: binary-only arch-specific upload (source code and arch-indep packages not included)
 dpkg-source --after-build sbcl-1.2.12
dpkg-buildpackage: binary-only upload (no source included)
────────────────────────────────────────────────────────────────────────────────
Build finished at 20150611-0937

Finished
────────

I: Built successfully

┌──────────────────────────────────────────────────────────────────────────────┐
│ Post Build Chroot                                                            │
└──────────────────────────────────────────────────────────────────────────────┘


┌──────────────────────────────────────────────────────────────────────────────┐
│ Changes                                                                      │
└──────────────────────────────────────────────────────────────────────────────┘


sbcl_1.2.12-1_armhf.changes:
────────────────────────────

Format: 1.8
Date: Fri, 05 Jun 2015 13:43:29 +0200
Source: sbcl
Binary: sbcl sbcl-doc sbcl-source
Architecture: armhf
Version: 2:1.2.12-1
Distribution: stretch-staging
Urgency: medium
Maintainer: Raspbian wandboard test autobuilder <root@raspbian.org>
Changed-By: Christoph Egger <christoph@debian.org>
Description:
 sbcl       - Common Lisp compiler and development system
 sbcl-doc   - Documentation for Steel Bank Common Lisp
 sbcl-source - Source code files for SBCL
Changes:
 sbcl (2:1.2.12-1) unstable; urgency=medium
 .
   * New upstream version
     changes in sbcl-1.2.12 relative to sbcl-1.2.11:
       * minor incompatible change: the SB-C::*POLICY* variable is no longer
         a list. Code which manipulated it as such (including but not limited
         to non-bundled releases of ASDF) will need to be revised.
       * enhancement: The input stream for COMPILE-FILE implements
         STREAM-LINE-COLUMN.
       * enhancement: EVAL errors that occur by way of LOAD report the starting
         line and column number of the erring toplevel form. (lp#565247)
       * optimization: better MAP and MAP-INTO on known vector result types.
       * bug fix: Read/modify/write macros accessing a place which is a
         composition of CAR+CDR operations, such as (SHIFTF (CADR X) (ELT V 0)),
         do not access subforms more than once. (lp#1450968)
       * bug fix: short form of DEFSETF no longer allows trailing junk.
       * bug fix: DEFINE-MODIFY-MACRO respects the provisions of CLHS 5.1.3
         regarding argument evaluation order. (lp#1452539)
       * bug fix: POP works as specified in CLHS if the setter for its
         argument has a side-effect on the existing CAR value. (lp#1454021)
       * bug fix: Reading "#()" with a positive numeric argument signals a
         reader error. As specified, reading "#1()" has undefined consequences,
         so correct portable code should be indifferent to this. (lp#1252100)
       * bug fix: Malformed reader conditionals such as "(#-no-such-feature)"
         and "(#+sbcl)" no longer parse as NIL. (lp#1454400)
Checksums-Sha1:
 40ea989e236f146c27c2321d39a30c0c495f237a 8208196 sbcl_1.2.12-1_armhf.deb
Checksums-Sha256:
 95d40345ab3ad67d4fb3e7355eb38bbf36988ea50d0d919d7638d015c863f979 8208196 sbcl_1.2.12-1_armhf.deb
Files:
 b8b19a742ef9c6ef36d7ddd1e186d6bc 8208196 lisp optional sbcl_1.2.12-1_armhf.deb

┌──────────────────────────────────────────────────────────────────────────────┐
│ Package contents                                                             │
└──────────────────────────────────────────────────────────────────────────────┘


sbcl_1.2.12-1_armhf.deb
───────────────────────

 new debian package, version 2.0.
 size 8208196 bytes: control archive=3360 bytes.
      13 bytes,     1 lines      conffiles            
    1148 bytes,    26 lines      control              
    3576 bytes,    53 lines      md5sums              
     983 bytes,    42 lines   *  postinst             #!/bin/sh
    1029 bytes,    40 lines   *  prerm                #!/bin/sh
 Package: sbcl
 Version: 2:1.2.12-1
 Architecture: armhf
 Maintainer: Debian Common Lisp Team <pkg-common-lisp-devel@lists.alioth.debian.org>
 Installed-Size: 52684
 Depends: libc6 (>= 2.4), zlib1g (>= 1:1.1.4)
 Recommends: binfmt-support (>= 1.1.2)
 Suggests: sbcl-doc, sbcl-source, slime
 Breaks: cl-asdf (<= 2:1.502), cl-clx-sbcl (<= 0.7.0-1), common-lisp-controller (<< 6.18)
 Provides: lisp-compiler, sbcl-fasl-loader-78
 Section: lisp
 Priority: optional
 Homepage: http://www.sbcl.org
 Description: Common Lisp compiler and development system
  SBCL is a development environment for the ANSI Common Lisp language.
  It provides a native-code compiler and an integrated debugger, as well
  as all the features in the ANSI specification.
  .
  SBCL also contains other extensions to the ANSI specification, including
  a foreign-function interface, a pseudo-server API, user-extensible
  stream functionality, a Meta-Object Protocol, and an ability to run
  external processes.
  .
  To browse SBCL source definitions with development environments,
  install the sbcl-source package. For documentation on SBCL's usage
  and internals, the package sbcl-doc is provided.

drwxr-xr-x root/root         0 2015-06-11 09:33 ./
drwxr-xr-x root/root         0 2015-06-11 09:33 ./etc/
-rw-r--r-- root/root       311 2014-10-24 16:31 ./etc/sbcl.rc
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/bin/
-rwxr-xr-x root/root    175988 2015-06-11 09:33 ./usr/bin/sbcl
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/lib/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/lib/sbcl/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/lib/sbcl/contrib/
-rw-r--r-- root/root   1450225 2015-06-11 09:33 ./usr/lib/sbcl/contrib/asdf.fasl
-rw-r--r-- root/root        46 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-aclrepl.asd
-rw-r--r-- root/root    430100 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-aclrepl.fasl
-rw-r--r-- root/root        50 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-bsd-sockets.asd
-rw-r--r-- root/root    732216 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-bsd-sockets.fasl
-rw-r--r-- root/root        44 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-cltl2.asd
-rw-r--r-- root/root     97070 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-cltl2.fasl
-rw-r--r-- root/root        50 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-concurrency.asd
-rw-r--r-- root/root    148009 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-concurrency.fasl
-rw-r--r-- root/root        44 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-cover.asd
-rw-r--r-- root/root    142190 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-cover.fasl
-rw-r--r-- root/root        49 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-executable.asd
-rw-r--r-- root/root     19736 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-executable.fasl
-rw-r--r-- root/root        42 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-gmp.asd
-rw-r--r-- root/root    339979 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-gmp.fasl
-rw-r--r-- root/root        45 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-grovel.asd
-rw-r--r-- root/root    195873 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-grovel.fasl
-rw-r--r-- root/root        49 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-introspect.asd
-rw-r--r-- root/root    153623 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-introspect.fasl
-rw-r--r-- root/root        42 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-md5.asd
-rw-r--r-- root/root     76070 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-md5.fasl
-rw-r--r-- root/root        43 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-mpfr.asd
-rw-r--r-- root/root    805414 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-mpfr.fasl
-rw-r--r-- root/root        44 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-posix.asd
-rw-r--r-- root/root    751703 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-posix.fasl
-rw-r--r-- root/root        44 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-queue.asd
-rw-r--r-- root/root      1828 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-queue.fasl
-rw-r--r-- root/root        50 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-rotate-byte.asd
-rw-r--r-- root/root     40544 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-rotate-byte.fasl
-rw-r--r-- root/root        41 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-rt.asd
-rw-r--r-- root/root     60709 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-rt.fasl
-rw-r--r-- root/root        53 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-simple-streams.asd
-rw-r--r-- root/root   1052266 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-simple-streams.fasl
-rw-r--r-- root/root        44 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-sprof.asd
-rw-r--r-- root/root    315566 2015-06-11 09:33 ./usr/lib/sbcl/contrib/sb-sprof.fasl
-rw-r--r-- root/root   1148642 2015-06-11 09:33 ./usr/lib/sbcl/contrib/uiop.fasl
-rw-r--r-- root/root      1045 2014-10-24 16:31 ./usr/lib/sbcl/install-clc.lisp
-rwxr-xr-x root/root       467 2015-06-11 09:33 ./usr/lib/sbcl/sbcl-run
-rw-r--r-- root/root  45563932 2015-06-11 09:33 ./usr/lib/sbcl/sbcl.core
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/lib/sbcl/site-systems/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/binfmts/
-rw-r--r-- root/root       237 2015-06-11 09:33 ./usr/share/binfmts/sbcl
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/doc/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/doc/sbcl/
-rw-r--r-- root/root       638 2015-05-30 05:47 ./usr/share/doc/sbcl/BUGS
-rw-r--r-- root/root     12946 2015-05-30 05:47 ./usr/share/doc/sbcl/CREDITS.gz
-rw-r--r-- root/root       273 2014-10-24 16:31 ./usr/share/doc/sbcl/NEWS.Debian.gz
-rw-r--r-- root/root    141373 2015-05-30 05:47 ./usr/share/doc/sbcl/NEWS.gz
-rw-r--r-- root/root      4431 2015-05-30 05:47 ./usr/share/doc/sbcl/PRINCIPLES.gz
-rw-r--r-- root/root      1195 2015-05-30 05:47 ./usr/share/doc/sbcl/README
-rw-r--r-- root/root       632 2014-10-24 16:31 ./usr/share/doc/sbcl/README.Debian
-rw-r--r-- root/root      3248 2015-05-30 05:47 ./usr/share/doc/sbcl/TODO.gz
-rw-r--r-- root/root     66312 2015-06-05 11:43 ./usr/share/doc/sbcl/changelog.Debian.gz
-rw-r--r-- root/root       922 2014-10-24 16:31 ./usr/share/doc/sbcl/copyright
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/lintian/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/lintian/overrides/
-rw-r--r-- root/root       250 2014-10-24 16:31 ./usr/share/lintian/overrides/sbcl
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/man/
drwxr-xr-x root/root         0 2015-06-11 09:33 ./usr/share/man/man1/
-rw-r--r-- root/root      7669 2015-06-11 09:33 ./usr/share/man/man1/sbcl.1.gz

du: cannot read directory `/«CHROOT»/«PKGBUILDDIR»/stage1': Permission denied

┌──────────────────────────────────────────────────────────────────────────────┐
│ Post Build                                                                   │
└──────────────────────────────────────────────────────────────────────────────┘


┌──────────────────────────────────────────────────────────────────────────────┐
│ Cleanup                                                                      │
└──────────────────────────────────────────────────────────────────────────────┘

Purging /«BUILDDIR»
Not cleaning session: cloned chroot in use

┌──────────────────────────────────────────────────────────────────────────────┐
│ Summary                                                                      │
└──────────────────────────────────────────────────────────────────────────────┘

Build Architecture: armhf
Build-Space: 436564
Build-Time: 9497
Distribution: stretch-staging
Host Architecture: armhf
Install-Time: 878
Job: sbcl_2:1.2.12-1
Machine Architecture: armhf
Package: sbcl
Package-Time: 10442
Source-Version: 2:1.2.12-1
Space: 436564
Status: successful
Version: 2:1.2.12-1
────────────────────────────────────────────────────────────────────────────────
Finished at 20150611-0937
Build needed 02:54:02, 436564k disc space