==> Synchronizing chroot copy [/home/alhp/workspace/chroot/root] -> [build_ad979899-c726-4048-a499-5f24e4407667]...done ==> Making package: nyxt 3.12.0-1.1 (Thu Apr 30 09:50:56 2026) ==> Retrieving sources... -> Downloading nyxt-3.12.0.tar.xz... % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 17.25M 30 5.29M 0 0 3.85M 0 00:04 00:01 00:03 5.29M 80 17.25M 80 13.92M 0 0 5.86M 0 00:02 00:02 6.96M 100 17.25M 100 17.25M 0 0 6.20M 0 00:02 00:02 6.96M 100 17.25M 100 17.25M 0 0 6.20M 0 00:02 00:02 6.96M 100 17.25M 100 17.25M 0 0 6.20M 0 00:02 00:02 6.96M ==> Validating source files with sha512sums... nyxt-3.12.0.tar.xz ... Passed ==> Validating source files with b2sums... nyxt-3.12.0.tar.xz ... Passed ==> Making package: nyxt 3.12.0-1.1 (Thu Apr 30 07:51:06 2026) ==> Checking runtime dependencies... ==> Installing missing dependencies... resolving dependencies... :: There are 11 providers available for ttf-font: :: Repository extra 1) gnu-free-fonts 2) noto-fonts 3) ttf-bitstream-vera 4) ttf-croscore 5) ttf-dejavu 6) ttf-droid 7) ttf-ibm-plex 8) ttf-input 9) ttf-input-nerd 10) ttf-liberation 11) ttf-roboto Enter a number (default=1): looking for conflicting packages... Package (123) New Version Net Change extra/adwaita-cursors 50.0-1 11.41 MiB extra/adwaita-fonts 50.0-1 7.29 MiB extra/adwaita-icon-theme 50.0-1 1.19 MiB extra/adwaita-icon-theme-legacy 46.2-3 2.23 MiB extra/aom 3.13.3-1 9.16 MiB extra/at-spi2-core 2.60.2-1 4.02 MiB extra/avahi 1:0.9rc4-1 2.00 MiB extra/bubblewrap 0.11.2-1 0.09 MiB extra/cairo 1.18.4-1 1.59 MiB extra/dav1d 1.5.3-1 1.78 MiB extra/dconf 0.49.0-1 0.45 MiB extra/default-cursors 3-1 0.00 MiB extra/desktop-file-utils 0.28-1 0.18 MiB extra/duktape 2.7.0-7 0.78 MiB extra/fontconfig 2:2.17.1-1 1.12 MiB extra/freetype2 2.14.3-1 1.66 MiB extra/fribidi 1.0.16-2 0.24 MiB extra/gdk-pixbuf2 2.44.6-2 2.96 MiB extra/giflib 6.1.3-1 0.33 MiB extra/glycin 2.1.1-1 17.50 MiB extra/gnu-free-fonts 20120503-9 6.65 MiB extra/gperftools 2.18.1-1 2.01 MiB extra/graphene 1.10.8-2 0.98 MiB extra/graphite 1:1.3.14-6 0.20 MiB extra/gsettings-system-schemas 50.1-1 0.02 MiB extra/gssdp 1.6.4-1 0.24 MiB extra/gst-plugins-bad-libs 1.28.2-1 14.52 MiB extra/gst-plugins-base-libs 1.28.2-1 12.70 MiB extra/gstreamer 1.28.2-1 11.81 MiB extra/gtest 1.17.0-2 1.63 MiB extra/gtk-update-icon-cache 1:4.22.3-1 0.04 MiB extra/gtk3 1:3.24.52-1 52.96 MiB extra/gupnp 1:1.6.9-1 0.70 MiB extra/gupnp-igd 1.6.0-2 0.11 MiB extra/harfbuzz 14.2.0-1 4.74 MiB extra/harfbuzz-icu 14.2.0-1 0.02 MiB extra/hidapi 0.15.0-1 0.13 MiB extra/highway 1.4.0-1 10.04 MiB extra/hyphen 2.8.8-6 0.03 MiB extra/iso-codes 4.20.1-1 22.30 MiB extra/jbigkit 2.1-8 0.16 MiB extra/json-glib 1.10.8-1 1.01 MiB extra/lcms2 2.19-1 0.68 MiB extra/libavif 1.4.1-1 0.84 MiB extra/libcloudproviders 0.4.0-1 0.32 MiB extra/libcolord 1.4.8-1 1.24 MiB extra/libcups 2:2.4.19-1 0.77 MiB extra/libdaemon 0.14-6 0.06 MiB extra/libdatrie 0.2.14-1 0.49 MiB extra/libdeflate 1.25-1 0.14 MiB extra/libdrm 2.4.131-1 1.28 MiB core/libedit 20251016_3.1-1 0.26 MiB extra/libepoxy 1.5.10-3 2.64 MiB extra/libevdev 1.13.6-1 0.21 MiB extra/libgirepository 1.86.0-2 1.52 MiB extra/libglvnd 1.7.0-3 3.34 MiB extra/libgudev 238-3 0.38 MiB extra/libjpeg-turbo 3.1.4.1-1 2.43 MiB extra/libjxl 0.11.2-2 9.65 MiB extra/libmanette 0.2.13-2 0.40 MiB extra/libnice 0.1.23-1 1.81 MiB extra/libpciaccess 0.19-1 0.06 MiB extra/libpng 1.6.58-1 0.58 MiB extra/libproxy 0.5.12-1 0.10 MiB extra/librsvg 2:2.62.1-1 10.25 MiB extra/libsoup3 3.6.6-2 1.96 MiB extra/libstemmer 3.0.1-1 0.60 MiB extra/libthai 0.1.30-1 1.24 MiB extra/libtiff 4.7.1-2 1.26 MiB extra/libunwind 1.8.2-1 0.29 MiB extra/libva 2.23.0-1 0.98 MiB extra/libwebp 1.6.0-2 1.04 MiB extra/libx11 1.8.13-1 9.78 MiB extra/libxau 1.0.12-1 0.02 MiB extra/libxcb 1.17.0-1 3.87 MiB extra/libxcomposite 0.4.7-1 0.02 MiB extra/libxcursor 1.2.3-1 0.07 MiB extra/libxdamage 1.1.7-1 0.02 MiB extra/libxdmcp 1.1.5-2 0.13 MiB extra/libxext 1.3.7-1 0.30 MiB extra/libxfixes 6.0.2-1 0.04 MiB extra/libxft 2.3.9-1 0.13 MiB extra/libxi 1.8.2-1 0.48 MiB extra/libxinerama 1.1.6-1 0.02 MiB extra/libxkbcommon 1.13.1-1 1.03 MiB extra/libxkbcommon-x11 1.13.1-1 0.10 MiB extra/libxrandr 1.5.5-1 0.07 MiB extra/libxrender 0.9.12-1 0.09 MiB extra/libxshmfence 1.3.3-1 0.02 MiB extra/libxslt 1.1.45-2 0.78 MiB extra/libxtst 1.2.5-1 0.11 MiB extra/libxv 1.0.13-1 0.06 MiB extra/libxxf86vm 1.1.7-1 0.03 MiB extra/libyuv r2426+464c51a03-1 1.82 MiB extra/llvm-libs 22.1.3-1 160.11 MiB extra/lm_sensors 1:3.6.2-1 0.48 MiB core/lzo 2.10-5 0.38 MiB extra/mesa 1:26.0.5-1 50.73 MiB extra/openjpeg2 2.5.4-1 13.37 MiB extra/orc 0.4.42-1 1.36 MiB extra/pango 1:1.57.1-1 2.33 MiB extra/pixman 0.46.4-1 0.74 MiB extra/rav1e 0.8.1-2 7.61 MiB extra/shared-mime-info 2.4-3 4.58 MiB extra/spirv-tools 1:1.4.341.0-2 7.59 MiB extra/svt-av1 4.1.0-1 5.24 MiB extra/tinysparql 3.11.1-1 3.88 MiB extra/vmaf 3.1.0-1 6.53 MiB extra/vulkan-icd-loader 1.4.341.0-1 0.58 MiB extra/wayland 1.25.0-1 0.84 MiB extra/woff2 1.0.2-6 0.17 MiB extra/xcb-proto 1.17.0-4 1.03 MiB extra/xdg-dbus-proxy 0.1.7-1 0.06 MiB extra/xkeyboard-config 2.47-1 10.23 MiB extra/xorg-xprop 1.2.8-1 0.05 MiB extra/xorgproto 2025.1-1 1.47 MiB extra/enchant 2.8.15-2 0.27 MiB extra/glib-networking 1:2.80.1-1 0.65 MiB extra/gobject-introspection-runtime 1.86.0-2 0.15 MiB extra/gsettings-desktop-schemas 50.1-1 6.08 MiB extra/hicolor-icon-theme 0.18-1 0.05 MiB extra/libfixposix 0.5.1-2 0.09 MiB extra/webkit2gtk-4.1 2.52.3-1 132.84 MiB Total Installed Size: 694.27 MiB :: Proceed with installation? [Y/n] checking keyring... checking package integrity... loading package files... checking for file conflicts... :: Processing package changes... installing hicolor-icon-theme... installing enchant... Optional dependencies for enchant aspell: for aspell based spell checking support hspell: for hspell based spell checking support hunspell: for hunspell based spell checking support libvoikko: for libvoikko based spell checking support nuspell: for nuspell based spell checking support installing dconf... installing gsettings-system-schemas... installing duktape... installing libproxy... installing glib-networking... installing libgirepository... installing gobject-introspection-runtime... installing adwaita-fonts... installing gsettings-desktop-schemas... installing libfixposix... installing xcb-proto... installing xorgproto... installing libxdmcp... installing libxau... installing libxcb... installing libx11... installing libxext... installing libxfixes... installing libxi... installing libxtst... installing xorg-xprop... installing at-spi2-core... installing bubblewrap... installing libpng... installing freetype2... Optional dependencies for freetype2 harfbuzz: Improved autohinting [pending] installing fontconfig... Creating fontconfig configuration... Rebuilding fontconfig cache... installing libxrender... installing lzo... installing pixman... installing cairo... installing libjpeg-turbo... Optional dependencies for libjpeg-turbo java-runtime>11: for TurboJPEG Java wrapper installing jbigkit... installing libdeflate... installing libwebp... Optional dependencies for libwebp libwebp-utils: WebP conversion and inspection tools installing libtiff... Optional dependencies for libtiff freeglut: for using tiffgt installing lcms2... installing giflib... installing libunwind... installing gperftools... installing gtest... Optional dependencies for gtest python: gmock generator installing highway... installing libjxl... Optional dependencies for libjxl java-runtime: for JNI bindings installing dav1d... Optional dependencies for dav1d dav1d-doc: HTML documentation installing graphite... Optional dependencies for graphite graphite-docs: Documentation installing harfbuzz... Optional dependencies for harfbuzz harfbuzz-utils: utilities installing fribidi... installing libdatrie... installing libthai... installing libxft... installing pango... installing librsvg... installing glycin... Optional dependencies for glycin libheif: Load .avif, .heic and .heif installing shared-mime-info... installing gdk-pixbuf2... Optional dependencies for gdk-pixbuf2 libheif: Load .avif, .heic and .heif libopenraw: Load .arw, .cr2, .crw, .dng, .erf, .mrw, .nef, .orf, .pef and .raf libwmf: Load .apm and .wmf installing gstreamer... Optional dependencies for gstreamer python: gst-plugins-doc-cache-generator installing graphene... installing iso-codes... installing libpciaccess... installing libdrm... Optional dependencies for libdrm cairo: needed for modetest tool [installed] installing libxshmfence... installing libxxf86vm... installing libedit... installing llvm-libs... installing lm_sensors... Optional dependencies for lm_sensors rrdtool: for logging with sensord perl: for sensor detection and configuration convert [installed] installing spirv-tools... installing default-cursors... Optional dependencies for default-cursors adwaita-cursors: default cursor theme [pending] installing wayland... installing mesa... Optional dependencies for mesa opengl-man-pages: for the OpenGL API man pages installing libglvnd... installing libgudev... installing libxv... installing orc... installing gst-plugins-base-libs... installing libsoup3... Optional dependencies for libsoup3 samba: Windows Domain SSO installing gssdp... Optional dependencies for gssdp gtk4: gssdp-device-sniffer installing gupnp... Optional dependencies for gupnp python: gupnp-binding-tool installing gupnp-igd... installing libnice... Optional dependencies for libnice gstreamer: "nice" GStreamer plugin [installed] installing libva... Optional dependencies for libva intel-media-driver: backend for Intel GPUs (>= Broadwell) libva-intel-driver: backend for Intel GPUs (<= Haswell) libva-mesa-driver: backend for AMD and NVIDIA GPUs [installed] installing xkeyboard-config... installing libxkbcommon... Optional dependencies for libxkbcommon libxkbcommon-x11: xkbcli interactive-x11 [pending] wayland: xkbcli interactive-wayland [installed] installing libxkbcommon-x11... installing vulkan-icd-loader... Optional dependencies for vulkan-icd-loader vulkan-driver: packaged vulkan driver installing vmaf... installing gst-plugins-bad-libs... installing adwaita-icon-theme-legacy... installing adwaita-cursors... installing adwaita-icon-theme... installing desktop-file-utils... installing libcloudproviders... installing libcolord... installing libdaemon... installing avahi... Optional dependencies for avahi gtk3: avahi-discover, avahi-discover-standalone, bshell, bssh, bvnc [pending] libevent: libevent bindings [installed] nss-mdns: NSS support for mDNS python-dbus: avahi-bookmarks, avahi-discover python-gobject: avahi-bookmarks, avahi-discover python-twisted: avahi-bookmarks installing libcups... installing libepoxy... installing libxcomposite... installing libxcursor... installing libxdamage... installing libxinerama... installing libxrandr... installing json-glib... installing libstemmer... installing tinysparql... installing gtk-update-icon-cache... installing gtk3... Optional dependencies for gtk3 evince: Default print preview command installing harfbuzz-icu... installing hyphen... installing aom... installing libyuv... installing rav1e... installing svt-av1... installing libavif... installing hidapi... Optional dependencies for hidapi libusb: for hidapi-libusb [installed] installing libevdev... installing libmanette... installing libxslt... Optional dependencies for libxslt python: Python bindings installing openjpeg2... installing gnu-free-fonts... installing woff2... installing xdg-dbus-proxy... installing webkit2gtk-4.1... Optional dependencies for webkit2gtk-4.1 geoclue: Geolocation support gst-libav: nonfree media decoding gst-plugins-bad: media decoding gst-plugins-good: media decoding :: Running post-transaction hooks... ( 1/13) Creating system user accounts... Creating group 'avahi' with GID 969. Creating user 'avahi' (Avahi mDNS/DNS-SD daemon) with UID 969 and GID 969. ( 2/13) Reloading system manager configuration... Skipped: Current root is not booted. ( 3/13) Reloading user manager configuration... Skipped: Current root is not booted. ( 4/13) Updating the MIME type database... ( 5/13) Arming ConditionNeedsUpdate... ( 6/13) Updating fontconfig configuration... ( 7/13) Reloading system bus configuration... Skipped: Current root is not booted. ( 8/13) Updating fontconfig cache... ( 9/13) Updating GIO module cache... (10/13) Compiling GSettings XML schema files... (11/13) Probing GTK3 input method modules... (12/13) Updating icon theme caches... (13/13) Updating the desktop file MIME type cache... ==> Checking buildtime dependencies... ==> Installing missing dependencies... :: There are 3 providers available for cl-asdf: :: Repository extra 1) ecl 2) sbcl :: Repository multilib 3) cmucl Enter a number (default=1): resolving dependencies... looking for conflicting packages... Package (7) New Version Net Change extra/perl-error 0.17030-3 0.04 MiB extra/perl-mailtools 2.22-3 0.10 MiB extra/perl-timedate 2.35-1 0.15 MiB extra/zlib-ng 2.3.3-1 0.28 MiB extra/ecl 26.3.27-1 15.95 MiB extra/git 2.54.0-1 30.26 MiB extra/sbcl 2.6.3-2 63.31 MiB Total Installed Size: 110.08 MiB :: Proceed with installation? [Y/n] checking keyring... checking package integrity... loading package files... checking for file conflicts... :: Processing package changes... installing perl-error... installing perl-timedate... installing perl-mailtools... installing zlib-ng... installing git... Optional dependencies for git git-zsh-completion: upstream zsh completion tk: gitk and git gui openssh: ssh transport and crypto man: show help with `git command --help` perl-libwww: git svn perl-term-readkey: git svn and interactive.singlekey setting perl-io-socket-ssl: git send-email TLS support perl-authen-sasl: git send-email TLS support perl-cgi: gitweb (web interface) support python: git svn & git p4 subversion: git svn org.freedesktop.secrets: keyring credential helper libsecret: libsecret credential helper [installed] less: the default pager for git installing sbcl... installing ecl... :: Running post-transaction hooks... (1/4) Creating system user accounts... Creating group 'git' with GID 968. Creating user 'git' (git daemon user) with UID 968 and GID 968. (2/4) Reloading system manager configuration... Skipped: Current root is not booted. (3/4) Arming ConditionNeedsUpdate... (4/4) Updating the info directory file... ==> Retrieving sources... -> Found nyxt-3.12.0.tar.xz ==> WARNING: Skipping all source file integrity checks. ==> Extracting sources... -> Extracting nyxt-3.12.0.tar.xz with bsdtar ==> Starting build()... sbcl --dynamic-space-size 3072 --no-userinit --non-interactive --eval '(require "asdf")' --eval '(when (string= "true" "true") (setf asdf:*default-source-registries* (list (quote asdf/source-registry:environment-source-registry))) (asdf:clear-configuration) (asdf:load-asd "/startdir/src//libraries/nasdf/nasdf.asd") (asdf:load-asd "/startdir/src//nyxt.asd") (asdf:load-system :nyxt/submodules))' --eval '(asdf:load-asd "/startdir/src//libraries/nasdf/nasdf.asd")' --eval '(asdf:load-asd "/startdir/src//nyxt.asd")' --eval '(asdf:load-system :nyxt/gi-gtk-application)' \ --eval '(asdf:make :nyxt/gi-gtk-application)' \ --eval '(uiop:quit)' || (printf "\n%s\n%s\n" "Compilation failed, see the above stacktrace." && exit 1) This is SBCL 2.6.3, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. ; compiling file "/startdir/src/libraries/nasdf/package.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/package-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/libraries/nasdf/log.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/log-tmpAAURSO1.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/libraries/nasdf/nasdf.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/nasdf-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/libraries/nasdf/install.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/install-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/libraries/nasdf/submodules.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/submodules-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/libraries/nasdf/systems.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/systems-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/libraries/nasdf/tests.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/tests-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/libraries/nasdf/compilation-tests.lisp" (written 20 OCT 2024 03:54:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/libraries/nasdf/compilation-tests-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.023 ; running ("git" "-C" "/startdir/src/" "submodule" "update" "--init" "--force" "--jobs" "4") ; CL_SOURCE_REGISTRY: "/startdir/src/_build//:/startdir/src/:" WARNING: System definition file #P"/startdir/src/_build/trivial-garbage/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file. WARNING: System definition file #P"/startdir/src/_build/calispel/calispel.asd" contains definition for system "calispel-test". Please only define "calispel" and secondary systems with a name starting with "calispel/" (e.g. "calispel/test") in that file. WARNING: System definition file #P"/startdir/src/_build/cl-ppcre/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file. WARNING: System definition file #P"/startdir/src/_build/flexi-streams/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file. WARNING: System definition file #P"/startdir/src/_build/cl-ppcre/cl-ppcre-unicode.asd" contains definition for system "cl-ppcre-unicode-test". Please only define "cl-ppcre-unicode" and secondary systems with a name starting with "cl-ppcre-unicode/" (e.g. "cl-ppcre-unicode/test") in that file. WARNING: System definition file #P"/startdir/src/_build/s-xml/s-xml.asd" contains definition for system "s-xml.test". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file. WARNING: System definition file #P"/startdir/src/_build/s-xml/s-xml.asd" contains definition for system "s-xml.examples". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file. ; compiling file "/startdir/src/_build/trivial-features/src/tf-sbcl.lisp" (written 20 OCT 2024 03:57:51 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-features/src/tf-sbcl-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/package.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/package-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/definitions.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/definitions-tmpQ371UGST.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/binding.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/binding-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/strings.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/strings-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/conditions.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/conditions-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/symbols.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/symbols-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/macros.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/macros-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.049 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/functions.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/functions-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/lists.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/lists-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/types.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/types-tmpOPCILR65.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/io.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/io-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/hash-tables.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/hash-tables-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/control-flow.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/control-flow-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/arrays.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/arrays-tmp10401X32.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/sequences.lisp" (written 20 OCT 2024 03:56:16 PM): ; file: /startdir/src/_build/alexandria/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/sequences-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/numbers.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/numbers-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/alexandria/alexandria-1/features.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-1/features-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/alexandria/alexandria-2/package.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-2/package-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/alexandria/alexandria-2/arrays.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-2/arrays-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/alexandria/alexandria-2/control-flow.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-2/control-flow-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/alexandria/alexandria-2/sequences.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-2/sequences-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/alexandria/alexandria-2/lists.lisp" (written 20 OCT 2024 03:56:16 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/alexandria/alexandria-2/lists-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/babel/src/packages.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/packages-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/babel/src/encodings.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/encodings-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/babel/src/enc-ascii.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-ascii-tmp8065ESJT.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/babel/src/enc-ebcdic.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-ebcdic-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/babel/src/enc-ebcdic-int.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-ebcdic-int-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/babel/src/enc-iso-8859.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-iso-8859-tmpE0PA0714.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/babel/src/enc-unicode.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-unicode-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.060 ; compiling file "/startdir/src/_build/babel/src/enc-cp437.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-cp437-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/babel/src/enc-cp1251.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-cp1251-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/babel/src/enc-cp1252.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-cp1252-tmp267Y2N80.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/babel/src/jpn-table.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/jpn-table-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/babel/src/enc-jpn.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-jpn-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/babel/src/enc-gbk.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-gbk-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/babel/src/enc-koi8.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/enc-koi8-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/babel/src/external-format.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/external-format-tmpOHM494YR.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/babel/src/strings.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/strings-tmpOVFB07XF.fasl ; compilation finished in 0:00:01.026 ; compiling file "/startdir/src/_build/babel/src/gbk-map.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/gbk-map-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/babel/src/sharp-backslash.lisp" (written 20 OCT 2024 03:56:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/babel/src/sharp-backslash-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cffi/src/package.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/package-tmpGW0QV22K.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cffi/src/sys-utils.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/sys-utils-tmp2K9J0HSR.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cffi/src/cffi-sbcl.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/cffi-sbcl-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/cffi/src/utils.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/utils-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cffi/src/libraries.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/libraries-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cffi/src/early-types.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/early-types-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/cffi/src/types.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/types-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.183 ; compiling file "/startdir/src/_build/cffi/src/enum.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/enum-tmpLM57P5P.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cffi/src/strings.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/strings-tmpZE69DN33.fasl ; compilation finished in 0:00:00.870 ; compiling file "/startdir/src/_build/cffi/src/structures.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/structures-tmpG8099TO3.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cffi/src/functions.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/functions-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/cffi/src/foreign-vars.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/foreign-vars-tmp35U57IV6.fasl ; compilation finished in 0:00:00.140 ; compiling file "/startdir/src/_build/cffi/src/features.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/src/features-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cffi/toolchain/package.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/toolchain/package-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cffi/toolchain/c-toolchain.lisp" (written 20 OCT 2024 03:56:21 PM): ; file: /startdir/src/_build/cffi/toolchain/c-toolchain.lisp ; in: DEFUN DEFAULT-TOOLCHAIN-PARAMETERS ; '("-m32") ; ; note: deleting unreachable code ; (OR (UIOP/OS:GETENVP "CC") "cc" "gcc") ; --> IF LET IF ; ==> ; "gcc" ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/toolchain/c-toolchain-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cffi/toolchain/static-link.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/toolchain/static-link-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cffi/grovel/package.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/grovel/package-tmpD68Q8WCA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cffi/grovel/grovel.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/grovel/grovel-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.140 ; compiling file "/startdir/src/_build/cffi/grovel/asdf.lisp" (written 20 OCT 2024 03:56:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cffi/grovel/asdf-tmpJJ71X849.fasl ; compilation finished in 0:00:00.020 ; file: /startdir/src/_build/babel/src/enc-ebcdic.lisp ; in: DEFUN BABEL-ENCODINGS::EBCDIC-FI-ENCODER ; (BABEL-ENCODINGS::HANDLE-ERROR) ; ; caught STYLE-WARNING: ; undefined function: BABEL-ENCODINGS::HANDLE-ERROR ; ; compilation unit finished ; Undefined function: ; BABEL-ENCODINGS::HANDLE-ERROR ; caught 1 STYLE-WARNING condition ; printed 3 notes ; compiling file "/startdir/src/_build/iolib/src/base/asdf.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/asdf-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/iolib/src/conf/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/conf/pkgdcl-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/iolib/src/conf/requires.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/conf/requires-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/iolib/src/new-cl/conduits.lisp" (written 20 OCT 2024 03:57:06 PM): ; file: /startdir/src/_build/iolib/src/new-cl/conduits.lisp ; in: DEFUN CLONE-PACKAGES-TO-PACKAGE ; (FIRST IOLIB/INTERNAL/CONDUITS::E) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (PUSH IOLIB/INTERNAL/CONDUITS::E IOLIB/INTERNAL/CONDUITS::ALIASES) ; ; note: deleting unreachable code ; (SETF (IOLIB/INTERNAL/CONDUITS::HP-ALIAS-MAP IOLIB/INTERNAL/CONDUITS::TO) ; (NREVERSE IOLIB/INTERNAL/CONDUITS::ALIASES)) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/new-cl/conduits-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/iolib/src/new-cl/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/new-cl/pkgdcl-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.003 WARNING: IOLIB/COMMON-LISP also exports the following symbols: (LONG-FLOAT-NEGATIVE-EPSILON QUOTE DEFINE-SETF-EXPANDER SORT DELETE-DUPLICATES SETF WITH-OUTPUT-TO-STRING COERCE AREF WITH-CONDITION-RESTARTS COND NRECONC MAKE-INSTANCE DECLARATION EVAL-WHEN BIT BUTLAST OPEN-STREAM-P BOOLE STABLE-SORT MACHINE-TYPE SYMBOL-PLIST LOOP POP COUNT-IF DESTRUCTURING-BIND NUMBERP DEFPACKAGE CDDR ARRAY-ROW-MAJOR-INDEX LDB LOGTEST FUNCTION-KEYWORDS CHAR-GREATERP CLOSE INTERNAL-TIME-UNITS-PER-SECOND CDAR PATHNAME CONCATENATED-STREAM-STREAMS PHASE INVOKE-RESTART-INTERACTIVELY PARSE-ERROR COMPLEXP FDEFINITION DIGIT-CHAR /= TYPEP DO* ARRAY-DISPLACEMENT MIN FMAKUNBOUND LONG-FLOAT-EPSILON TREE-EQUAL LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT NBUTLAST BLOCK *DEBUG-IO* PPRINT-EXIT-IF-LIST-EXHAUSTED WITH-OPEN-STREAM FLOATING-POINT-UNDERFLOW INVOKE-RESTART REMOVE UNBOUND-VARIABLE NSUBST-IF CDDAAR REMOVE-IF MAKE-SYNONYM-STREAM GETF COMPLEX REVERSE REMOVE-DUPLICATES FIND PRINT-NOT-READABLE-OBJECT END-OF-FILE CAR CADADR LET FROUND CODE-CHAR HANDLER-CASE ED BOOLE-ORC2 FLET STRING>= RESTART-CASE FLOATING-POINT-OVERFLOW ARRAY-RANK WRITE-STRING MULTIPLE-VALUE-SETQ UNREAD-CHAR CONCATENATE *MACROEXPAND-HOOK* LOGIOR STRING-STREAM GO &KEY EQUAL KEYWORDP MAKE-CONCATENATED-STREAM CLEAR-INPUT NSUBLIS LOGANDC2 FLOAT-DIGITS ASINH FLOAT-SIGN REINITIALIZE-INSTANCE *BREAK-ON-SIGNALS* PRINT-NOT-READABLE MOST-NEGATIVE-LONG-FLOAT SET-PPRINT-DISPATCH HASH-TABLE-COUNT *** STRING-NOT-GREATERP STRING-RIGHT-TRIM *COMPILE-FILE-TRUENAME* CASE REMOVE-METHOD ROUND MAPLIST MACROLET DRIBBLE COMPILE-FILE-PATHNAME EVERY *PRINT-RADIX* SEARCH CADDAR UNTRACE LEAST-POSITIVE-LONG-FLOAT SIMPLE-ERROR FUNCALL NULL BIT-NOT COMPUTE-RESTARTS &ENVIRONMENT THROW REALPART *PRINT-BASE* CHANGE-CLASS CIS CLASS-NAME PACKAGE-NAME *DEBUGGER-HOOK* HANDLER-BIND BIT-VECTOR CONSTANTP READTABLEP STANDARD-CHAR-P *ERROR-OUTPUT* MEMBER DISASSEMBLE NCONC COMPILE-FILE TYPE-ERROR-DATUM BIT-AND FILE-STREAM DEFMETHOD SIXTH ECHO-STREAM-OUTPUT-STREAM STRING-EQUAL CONSTANTLY ACONS MOST-POSITIVE-SINGLE-FLOAT ARRAY-DIMENSION DIGIT-CHAR-P ALPHA-CHAR-P STYLE-WARNING READTABLE MAKE-PATHNAME *READ-DEFAULT-FLOAT-FORMAT* *PRINT-GENSYM* STRING> FUNCTION-LAMBDA-EXPRESSION MOST-NEGATIVE-DOUBLE-FLOAT STANDARD-GENERIC-FUNCTION RETURN-FROM NSTRING-DOWNCASE BIT-EQV PUSH ASSOC SIMPLE-CONDITION-FORMAT-ARGUMENTS SIMPLE-STRING MAKE-RANDOM-STATE LOGNOR CELL-ERROR ELT LOGORC1 FILE-POSITION TRANSLATE-PATHNAME FIND-CLASS ARRAY-RANK-LIMIT ROTATEF INTEGER-LENGTH CDDDDR FRESH-LINE BASE-CHAR ASSOC-IF FLOATING-POINT-INVALID-OPERATION DEPOSIT-FIELD REVAPPEND VECTOR-PUSH-EXTEND SUBSTITUTE-IF PUSHNEW SIMPLE-BIT-VECTOR SET RASSOC SYMBOL-VALUE WRITE-SEQUENCE VECTOR STRING-DOWNCASE FOURTH NUMBER PROG1 READ-PRESERVING-WHITESPACE *PRINT-LENGTH* NUMERATOR UPDATE-INSTANCE-FOR-DIFFERENT-CLASS FCEILING FILE-STRING-LENGTH DEFGENERIC CAADDR *READ-BASE* MAKE-TWO-WAY-STREAM SOME WITH-INPUT-FROM-STRING PARSE-INTEGER BOOLE-EQV SET-DISPATCH-MACRO-CHARACTER CHAR-UPCASE CCASE ASIN READ *STANDARD-OUTPUT* TYPE-ERROR-EXPECTED-TYPE ADJUST-ARRAY SYNONYM-STREAM RESTART-NAME LOGNAND TANH LCM PATHNAME-DEVICE CONTINUE PAIRLIS EXPORT // INTEGERP NTHCDR *PRINT-PPRINT-DISPATCH* SET-EXCLUSIVE-OR *READ-EVAL* DO-SYMBOLS PRINT PROVIDE SET-DIFFERENCE CHARACTERP BIT-XOR NAMESTRING COMPILE GET-INTERNAL-RUN-TIME INITIALIZE-INSTANCE DEFINE-COMPILER-MACRO ISQRT STREAM-EXTERNAL-FORMAT COPY-READTABLE DEFCLASS < INLINE APPEND ASSOC-IF-NOT NEXT-METHOD-P STRING-CAPITALIZE LEAST-NEGATIVE-LONG-FLOAT WITH-ACCESSORS PROCLAIM ARITHMETIC-ERROR-OPERANDS SHIFTF GET-SETF-EXPANSION LISP-IMPLEMENTATION-TYPE LONG-FLOAT UPPER-CASE-P CDR ETYPECASE OPEN STORAGE-CONDITION FLOAT-PRECISION METHOD-COMBINATION MACHINE-VERSION *PRINT-LINES* BIT-ORC1 SIGNAL DECODE-UNIVERSAL-TIME CHAR-CODE-LIMIT IGNORE CDADR MACRO-FUNCTION SPECIAL-OPERATOR-P TAGBODY RANDOM MISMATCH NOTINLINE SHADOW CONS CADAAR SUBLIS CHAR-INT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT DIRECTORY-NAMESTRING ACOS DEFINE-CONDITION TRACE LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT LIST SCHAR EQL MAKE-HASH-TABLE ECASE SLOT-EXISTS-P GENSYM MOST-NEGATIVE-SINGLE-FLOAT COPY-STRUCTURE FUNCTIONP ERROR FLOATING-POINT-INEXACT HOST-NAMESTRING BOOLE-CLR &OPTIONAL PATHNAMEP PATHNAME-TYPE ATOM PRIN1-TO-STRING LEAST-NEGATIVE-DOUBLE-FLOAT SEQUENCE *PACKAGE* PPRINT-LOGICAL-BLOCK RETURN BOOLE-C1 = DOCUMENTATION BOOLE-ORC1 PROGN IN-PACKAGE DECLAIM EVAL LOAD-TIME-VALUE DELETE-PACKAGE CHAR> STORE-VALUE GENTEMP BIGNUM FIRST DECODE-FLOAT BOOLE-2 READ-CHAR-NO-HANG FILE-LENGTH MEMBER-IF-NOT BUILT-IN-CLASS NSUBSTITUTE-IF PATHNAME-DIRECTORY DOTIMES THIRD SYMBOL-FUNCTION NSET-EXCLUSIVE-OR LOGANDC1 LET* NSUBSTITUTE-IF-NOT BROADCAST-STREAM FLOAT-RADIX CONJUGATE CERROR FINISH-OUTPUT ALLOCATE-INSTANCE GET-OUTPUT-STREAM-STRING READ-BYTE *READ-SUPPRESS* MOST-NEGATIVE-FIXNUM MEMBER-IF DIVISION-BY-ZERO SIMPLE-CONDITION-FORMAT-CONTROL MULTIPLE-VALUES-LIMIT MAPCAR REMHASH LEAST-NEGATIVE-SHORT-FLOAT SAFETY MAKE-ECHO-STREAM PATHNAME-HOST BOOLE-XOR CALL-METHOD SUBST-IF KEYWORD DEBUG BIT-ANDC1 TAILP WRITE-CHAR STRING-TRIM IDENTITY WRITE SETQ TENTH *LOAD-TRUENAME* BYTE-POSITION ENCODE-UNIVERSAL-TIME *COMPILE-FILE-PATHNAME* SYMBOL BOOLE-SET VECTORP MAPHASH VECTOR-POP MACHINE-INSTANCE COPY-TREE MACROEXPAND-1 DPB METHOD MAKE-BROADCAST-STREAM CATCH ROW-MAJOR-AREF COUNT-IF-NOT FTYPE SYMBOL-PACKAGE SHORT-SITE-NAME BOTH-CASE-P TYPECASE NOT CAAAAR DIRECTORY NSTRING-UPCASE SIMPLE-WARNING SIMPLE-BIT-VECTOR-P RATIONAL CALL-ARGUMENTS-LIMIT OR RASSOC-IF-NOT SHADOWING-IMPORT SIGNUM SINH MERGE-PATHNAMES FILE-NAMESTRING STRING-NOT-EQUAL GET-DISPATCH-MACRO-CHARACTER CHARACTER LEAST-POSITIVE-SINGLE-FLOAT ADD-METHOD STRING-LEFT-TRIM CADR INSPECT / SPECIAL DOUBLE-FLOAT-EPSILON INCF ARRAY-DIMENSIONS COUNT PPRINT-FILL LEAST-POSITIVE-SHORT-FLOAT WITH-COMPILATION-UNIT GETHASH EXPT SUBSETP FUNCTION CADDR MAKE-PACKAGE INTERN LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT ADJOIN PROGV BOOLE-AND *COMPILE-VERBOSE* + TRUNCATE STRING-NOT-LESSP REMF MAX NO-APPLICABLE-METHOD CDADAR * EVENP READ-FROM-STRING SLEEP ATAN LEAST-NEGATIVE-SINGLE-FLOAT > DECF SIMPLE-CONDITION MAPCAN WHEN LISP-IMPLEMENTATION-VERSION CLASS CHAR-NOT-LESSP PROBE-FILE T ASH INTERACTIVE-STREAM-P APPLY MAKE-STRING SIMPLE-BASE-STRING STANDARD-METHOD IMPORT POSITION-IF NINTH MOST-POSITIVE-FIXNUM APROPOS-LIST SHORT-FLOAT-EPSILON COMPUTE-APPLICABLE-METHODS BOOLE-NOR GCD READ-LINE VALUES-LIST STRINGP BOOLE-ANDC2 RESTART CDDAR SLOT-BOUNDP MUFFLE-WARNING CEILING READTABLE-CASE LDIFF HASH-TABLE-TEST BIT-ORC2 LAMBDA MULTIPLE-VALUE-CALL CAAAR 1- DELETE-IF *QUERY-IO* UNDEFINED-FUNCTION STRUCTURE PROG* FIND-ALL-SYMBOLS SIN YES-OR-NO-P TWO-WAY-STREAM-OUTPUT-STREAM PARSE-NAMESTRING *READTABLE* <= CHAR-LESSP DEFPARAMETER UNBOUND-SLOT /// CDAAAR DOUBLE-FLOAT-NEGATIVE-EPSILON STANDARD-CHAR LOCALLY MOST-POSITIVE-LONG-FLOAT LOGICAL-PATHNAME STANDARD IF OTHERWISE TWO-WAY-STREAM PPRINT-INDENT STREAM-ELEMENT-TYPE MASK-FIELD FILE-AUTHOR COPY-PPRINT-DISPATCH CADDDR COPY-ALIST FTRUNCATE DO-EXTERNAL-SYMBOLS >= READ-DELIMITED-LIST PPRINT-NEWLINE FIND-PACKAGE BIT-IOR MAP-INTO ARRAY-HAS-FILL-POINTER-P MINUSP DELETE SIMPLE-VECTOR STREAMP CTYPECASE CHAR= DO-ALL-SYMBOLS SIGNED-BYTE RATIO CDDDAR FIND-RESTART POSITION ARRAYP *RANDOM-STATE* DOUBLE-FLOAT LOGXOR LOAD-LOGICAL-PATHNAME-TRANSLATIONS SOFTWARE-VERSION CHAR-NAME SINGLE-FLOAT-EPSILON OPTIMIZE SLOT-MAKUNBOUND LAST LAMBDA-LIST-KEYWORDS ASSERT PRIN1 CLRHASH REMOVE-IF-NOT PACKAGE-SHADOWING-SYMBOLS SEVENTH BOOLE-1 MAKE-ARRAY MAKE-METHOD STRUCTURE-CLASS NSUBST-IF-NOT CHAR<= CLEAR-OUTPUT PEEK-CHAR PRINT-OBJECT COPY-SYMBOL COMPILER-MACRO-FUNCTION SYMBOL-NAME WITH-SLOTS CHAR-CODE CONSP ENSURE-GENERIC-FUNCTION WITH-PACKAGE-ITERATOR DEFMACRO VARIABLE FLOAT SCALE-FLOAT LIST* EIGHTH SHORT-FLOAT TYPE-OF NSET-DIFFERENCE CAADAR MAKE-CONDITION READ-CHAR CHAR>= ECHO-STREAM-INPUT-STREAM EXTENDED-CHAR CONDITION ABS MAKE-STRING-OUTPUT-STREAM FIND-METHOD BYTE DEFINE-MODIFY-MACRO STRING-LESSP Y-OR-N-P LENGTH GET-UNIVERSAL-TIME PRINT-UNREADABLE-OBJECT PLUSP ARRAY-ELEMENT-TYPE UNUSE-PACKAGE PPRINT-TAB GET-DECODED-TIME RENAME-PACKAGE ARITHMETIC-ERROR-OPERATION TERPRI ROOM ENDP STANDARD-CLASS LISTP FFLOOR CLASS-OF ALPHANUMERICP +++ STRING< LDB-TEST &ALLOW-OTHER-KEYS BIT-NOR MAPL DOLIST MERGE RPLACD IGNORE-ERRORS PACKAGE-NICKNAMES AND DEFTYPE MACROEXPAND CHECK-TYPE LOGNOT PPRINT USER-HOMEDIR-PATHNAME FILE-WRITE-DATE CDDDR ENSURE-DIRECTORIES-EXIST BREAK DEFUN WILD-PATHNAME-P MULTIPLE-VALUE-LIST SATISFIES FORCE-OUTPUT UPGRADED-ARRAY-ELEMENT-TYPE REMPROP UNEXPORT CONTROL-ERROR GET-PROPERTIES ACOSH LONG-SITE-NAME WITH-STANDARD-IO-SYNTAX DEFSETF SECOND BOOLE-IOR RENAME-FILE LOGBITP DEFINE-METHOD-COMBINATION INTERSECTION BIT-NAND SIMPLE-TYPE-ERROR SET-SYNTAX-FROM-CHAR TIME MAKE-SEQUENCE TAN CHAR-EQUAL FILL SUBTYPEP *PRINT-PRETTY* WRITE-TO-STRING NUNION INVOKE-DEBUGGER IMAGPART PPRINT-TABULAR WRITE-BYTE *PRINT-RIGHT-MARGIN* ++ *PRINT-LEVEL* RANDOM-STATE-P DENOMINATOR HASH-TABLE-REHASH-SIZE CELL-ERROR-NAME FILL-POINTER REAL LOGICAL-PATHNAME-TRANSLATIONS &BODY MOST-NEGATIVE-SHORT-FLOAT DEFVAR NSTRING-CAPITALIZE CHAR-NOT-GREATERP PATHNAME-NAME SXHASH SIMPLE-VECTOR-P FIND-IF-NOT FIND-SYMBOL GENERIC-FUNCTION BIT-ANDC2 CONCATENATED-STREAM BOOLE-ANDC1 SOFTWARE-TYPE *PRINT-ESCAPE* WARN TRANSLATE-LOGICAL-PATHNAME GRAPHIC-CHAR-P *LOAD-VERBOSE* GET LOG *TERMINAL-IO* RATIONALP *LOAD-PATHNAME* EQUALP SINGLE-FLOAT-NEGATIVE-EPSILON *PRINT-READABLY* COMPILED-FUNCTION-P CHAR MAKE-STRING-INPUT-STREAM METHOD-QUALIFIERS &AUX WARNING FLOATP MAPCON LOOP-FINISH ATANH STEP DO STRING/= TRUENAME INPUT-STREAM-P MAKE-INSTANCES-OBSOLETE SPEED FILE-ERROR-PATHNAME POSITION-IF-NOT MOST-POSITIVE-DOUBLE-FLOAT MAKE-SYMBOL BOUNDP *PRINT-MISER-WIDTH* PPRINT-POP LOGCOUNT *PRINT-ARRAY* PRINC-TO-STRING PPRINT-LINEAR NSUBSTITUTE USE-VALUE MAKE-LIST FIND-IF COPY-SEQ SET-MACRO-CHARACTER REDUCE CDADDR SUBSEQ CDAAR PACKAGE NTH RANDOM-STATE SIMPLE-STRING-P SQRT SYNONYM-STREAM-SYMBOL THE PACKAGE-USE-LIST *LOAD-PRINT* FBOUNDP REQUIRE CHAR-NOT-EQUAL CADAR NAME-CHAR RESTART-BIND WITH-HASH-TABLE-ITERATOR IGNORABLE DESCRIBE-OBJECT LIST-LENGTH STRING-GREATERP NREVERSE BOOLE-NAND CHAR-DOWNCASE COMPLEMENT PATHNAME-VERSION PROG *PRINT-CIRCLE* ARRAY-TOTAL-SIZE-LIMIT METHOD-COMBINATION-ERROR PSETQ UNBOUND-SLOT-INSTANCE LEAST-POSITIVE-DOUBLE-FLOAT PSETF REPLACE PACKAGE-ERROR NOTEVERY CHAR< ADJUSTABLE-ARRAY-P WITH-SIMPLE-RESTART SLOT-MISSING STREAM PROGRAM-ERROR COMPILATION-SPEED *TRACE-OUTPUT* STRING-UPCASE *FEATURES* EXP STRUCTURE-OBJECT PACKAGEP REM CAAR BROADCAST-STREAM-STREAMS MAKUNBOUND TWO-WAY-STREAM-INPUT-STREAM ECHO-STREAM READ-SEQUENCE MAPC &REST ENOUGH-NAMESTRING MOST-POSITIVE-SHORT-FLOAT SLOT-UNBOUND FORMATTER UNWIND-PROTECT WITH-OPEN-FILE COS LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT CHAR/= UNSIGNED-BYTE COSH LABELS ARRAY LOGAND NSUBST NTH-VALUE SYMBOLP &WHOLE VECTOR-PUSH STANDARD-OBJECT SHORT-FLOAT-NEGATIVE-EPSILON ODDP DEFSTRUCT DECLARE LIST-ALL-PACKAGES TYPE VALUES DESCRIBE ** SINGLE-FLOAT DELETE-FILE STRING<= STREAM-ERROR BASE-STRING LOWER-CASE-P LISTEN FIXNUM COPY-LIST ARITHMETIC-ERROR SLOT-VALUE SUBSTITUTE-IF-NOT TYPE-ERROR CALL-NEXT-METHOD LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT *COMPILE-PRINT* HASH-TABLE-SIZE MAKE-LOAD-FORM INTEGER-DECODE-FLOAT ARRAY-DIMENSION-LIMIT ARRAY-IN-BOUNDS-P MULTIPLE-VALUE-PROG1 READER-ERROR HASH-TABLE-P MAKE-LOAD-FORM-SAVING-SLOTS DYNAMIC-EXTENT *DEFAULT-PATHNAME-DEFAULTS* STRING= SERIOUS-CONDITION PATHNAME-MATCH-P GET-MACRO-CHARACTER LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT *GENSYM-COUNTER* RASSOC-IF MULTIPLE-VALUE-BIND 1+ INVALID-METHOD-ERROR ZEROP *MODULES* PI GET-INTERNAL-REAL-TIME FILE-ERROR *STANDARD-INPUT* LAMBDA-PARAMETERS-LIMIT BIT-VECTOR-P - SUBST SUBSTITUTE USE-PACKAGE MOD STRING INTEGER UNLESS SPACE UNINTERN FLOOR ARRAY-TOTAL-SIZE CAAADR OUTPUT-STREAM-P APROPOS NOTANY COMPILED-FUNCTION UPDATE-INSTANCE-FOR-REDEFINED-CLASS DEFINE-SYMBOL-MACRO UPGRADED-COMPLEX-PART-TYPE MAP BOOLE-C2 SBIT LOGORC2 NO-NEXT-METHOD EQ SVREF LEAST-POSITIVE-NORMALIZED-LONG-FLOAT PRINC HASH-TABLE-REHASH-THRESHOLD LOGEQV SIMPLE-ARRAY FORMAT SHARED-INITIALIZE LOAD CAADR PPRINT-DISPATCH BYTE-SIZE SUBST-IF-NOT ABORT MAKE-DISPATCH-MACRO-CHARACTER REALP STREAM-ERROR-STREAM RATIONALIZE PACKAGE-USED-BY-LIST WRITE-LINE PROG2 PACKAGE-ERROR-PACKAGE DELETE-IF-NOT RPLACA CDDADR *PRINT-CASE* UNION CDAADR NINTERSECTION FIFTH HASH-TABLE REST SYMBOL-MACROLET NIL COMPILER-MACRO) See also: The ANSI Standard, Macro COMMON-LISP:DEFPACKAGE The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE* ; compiling file "/startdir/src/_build/iolib/src/new-cl/gray-streams.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/new-cl/gray-streams-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/iolib/src/new-cl/definitions.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/new-cl/definitions-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iolib/src/new-cl/types.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/new-cl/types-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/split-sequence/package.lisp" (written 20 OCT 2024 03:57:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/split-sequence/package-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/split-sequence/vector.lisp" (written 20 OCT 2024 03:57:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/split-sequence/vector-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/split-sequence/list.lisp" (written 20 OCT 2024 03:57:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/split-sequence/list-tmpULDB0RG.fasl ; compilation finished in 0:00:00.153 ; compiling file "/startdir/src/_build/split-sequence/extended-sequence.lisp" (written 20 OCT 2024 03:57:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/split-sequence/extended-sequence-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/split-sequence/api.lisp" (written 20 OCT 2024 03:57:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/split-sequence/api-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.119 ; compiling file "/startdir/src/_build/split-sequence/documentation.lisp" (written 20 OCT 2024 03:57:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/split-sequence/documentation-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/iolib/src/base/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/pkgdcl-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.003 WARNING: IOLIB/BASE also exports the following symbols: (MOST-NEGATIVE-SINGLE-FLOAT PPRINT-TABULAR RESTART-BIND LOAD-LOGICAL-PATHNAME-TRANSLATIONS ALEXANDRIA:POSITIVE-INTEGER SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT FCEILING ALEXANDRIA:NON-POSITIVE-DOUBLE-FLOAT ADJOIN HANDLER-CASE RESTART-NAME LOAD-TIME-VALUE CHAR= / MOST-POSITIVE-DOUBLE-FLOAT 1- MOST-POSITIVE-FIXNUM STRING-NOT-LESSP TYPECASE DEFCLASS ALEXANDRIA:MAP-PERMUTATIONS NOTEVERY ALEXANDRIA:MAP-IOTA MAKE-PACKAGE CONSTANTLY POSITION INVOKE-RESTART-INTERACTIVELY BIT-AND DECODE-FLOAT SLOT-BOUNDP CHAR-INT SYMBOL-FUNCTION CHAR-EQUAL PEEK-CHAR LOGNOT FUNDAMENTAL-BINARY-OUTPUT-STREAM ALEXANDRIA:MAPPEND ATAN PAIRLIS READ-LINE &REST ALEXANDRIA:DELETEF *PRINT-LENGTH* NAMESTRING CONJUGATE CDDAAR DIGIT-CHAR NUMBER SOME BOOLE-NAND PATHNAME-VERSION LCM COPY-TREE ALEXANDRIA:OF-TYPE READ-BYTE ALEXANDRIA:POSITIVE-RATIONAL ALEXANDRIA:POSITIVE-REAL UNION SPECIAL ALEXANDRIA:NTH-VALUE-OR MACHINE-TYPE UNBOUND-VARIABLE DELETE-DUPLICATES BOOLE-EQV FIND PRINC LOOP 1+ LOGIOR ARRAY-IN-BOUNDS-P CADAAR ALEXANDRIA:POSITIVE-LONG-FLOAT SHADOW STREAM-ERROR-STREAM FLOATING-POINT-UNDERFLOW AND TYPE-ERROR-DATUM LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT PACKAGE-USE-LIST STREAM MAKUNBOUND LOGAND *PRINT-ARRAY* UPGRADED-ARRAY-ELEMENT-TYPE SET FLOOR STRING< OUTPUT-STREAM-P COMPILE DEFINE-METHOD-COMBINATION READ-CHAR FDEFINITION ALEXANDRIA:MAXF FLOAT-PRECISION DELETE STRING/= ALEXANDRIA:EXTREMUM ALEXANDRIA:POSITIVE-FIXNUM-P GET-MACRO-CHARACTER ROTATEF OPEN-STREAM-P DECLARATION COPY-PPRINT-DISPATCH FLOATING-POINT-INVALID-OPERATION REALPART SINH MOST-NEGATIVE-LONG-FLOAT +++ HASH-TABLE-TEST INPUT-STREAM-P ASIN COPY-SYMBOL USE-PACKAGE SYNONYM-STREAM-SYMBOL ALEXANDRIA:MAPHASH-VALUES ALEXANDRIA:MAPHASH-KEYS CASE CCASE READ-DELIMITED-LIST *DEFAULT-PATHNAME-DEFAULTS* *PRINT-MISER-WIDTH* PPRINT RASSOC-IF ALEXANDRIA:NON-POSITIVE-SHORT-FLOAT-P SUBSEQ STREAM-READ-LINE ALEXANDRIA:NON-POSITIVE-RATIONAL-P ALEXANDRIA:DELETE-FROM-PLIST ALEXANDRIA:NON-POSITIVE-FLOAT-P NOTANY LISTEN STANDARD-CLASS ALEXANDRIA:CIRCULAR-TREE-P NSET-EXCLUSIVE-OR ARRAY-RANK-LIMIT ALEXANDRIA:WRITE-STRING-INTO-FILE CHECK-TYPE MAKE-BROADCAST-STREAM CDDDAR WITH-INPUT-FROM-STRING STREAM-TERPRI ARRAY-TOTAL-SIZE SIMPLE-CONDITION-FORMAT-ARGUMENTS SEARCH NSUBSTITUTE-IF WRITE-TO-STRING ALEXANDRIA:CIRCULAR-LIST PPRINT-NEWLINE ASINH WITH-SIMPLE-RESTART ALEXANDRIA:IF-LET FILL NREVERSE PACKAGE-USED-BY-LIST ECHO-STREAM-OUTPUT-STREAM MAKE-SEQUENCE LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT CADDAR RATIONALIZE SIMPLE-BIT-VECTOR MAPLIST SINGLE-FLOAT-NEGATIVE-EPSILON ECASE FUNCTION-LAMBDA-EXPRESSION LEAST-POSITIVE-SHORT-FLOAT REQUIRE LEAST-NEGATIVE-DOUBLE-FLOAT BASE-STRING ALEXANDRIA:PROPER-SEQUENCE STRING>= PATHNAME-DIRECTORY ARITHMETIC-ERROR ALEXANDRIA:SIMPLE-READER-ERROR STREAM-UNREAD-CHAR ALEXANDRIA:READ-STREAM-CONTENT-INTO-STRING SUBST ARRAYP CDAADR ALEXANDRIA:MAP-PRODUCT BIT CLOSE ALEXANDRIA:SIMPLE-STYLE-WARNING STORE-VALUE *PRINT-CIRCLE* FTRUNCATE ALEXANDRIA:STARTS-WITH-SUBSEQ PROCLAIM CDAR ALEXANDRIA:NEGATIVE-RATIONAL-P ASSOC STRUCTURE SORT PACKAGE-ERROR-PACKAGE REDUCE SPLIT-SEQUENCE:SPLIT-SEQUENCE ALEXANDRIA:ENSURE-CONS BOOLE-C1 FIND-ALL-SYMBOLS BOOLE-ORC2 MAKE-HASH-TABLE ALEXANDRIA:SWITCH FIRST &ENVIRONMENT IMAGPART NSUBLIS *GENSYM-COUNTER* SLOT-UNBOUND PATHNAME-TYPE RESTART CDAAAR STRING-UPCASE LABELS METHOD-COMBINATION-ERROR CLRHASH ALEXANDRIA:COPY-HASH-TABLE FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ALPHA-CHAR-P RPLACD GETHASH ISQRT ALEXANDRIA:POSITIVE-LONG-FLOAT-P COUNT DECF ALEXANDRIA:STANDARD-DEVIATION SLOT-MISSING FUNDAMENTAL-STREAM WITH-ACCESSORS CHAR-UPCASE STRING-DOWNCASE ALEXANDRIA:POSITIVE-FLOAT-P ASSOC-IF-NOT BOOLE SIMPLE-CONDITION-FORMAT-CONTROL TIME CAAAAR CAAAR SINGLE-FLOAT-EPSILON BIT-NOT FUNDAMENTAL-CHARACTER-STREAM COMPLEX STREAM-FINISH-OUTPUT ADJUSTABLE-ARRAY-P LOGEQV REST ALEXANDRIA:NON-NEGATIVE-RATIONAL ATANH NSUBST-IF PRINT-NOT-READABLE-OBJECT DIRECTORY FORMAT CONTROL-ERROR LET* INTERN ALEXANDRIA:MAP-DERANGEMENTS FUNDAMENTAL-OUTPUT-STREAM LOGICAL-PATHNAME DIVISION-BY-ZERO CERROR INITIALIZE-INSTANCE LDB-TEST IGNORE STYLE-WARNING ALEXANDRIA:DEFINE-CONSTANT CHAR-DOWNCASE FUNCTIONP ALEXANDRIA:WITH-UNIQUE-NAMES STRING<= MAKE-METHOD LONG-FLOAT-NEGATIVE-EPSILON ALEXANDRIA:SIMPLE-PARSE-ERROR *READ-DEFAULT-FLOAT-FORMAT* ALEXANDRIA:NON-NEGATIVE-FIXNUM DISASSEMBLE TYPEP VECTOR INSPECT PATHNAMEP CAAR MERGE COSH ALEXANDRIA:EMPTYP UNUSE-PACKAGE INTEGER SLOT-EXISTS-P DELETE-IF-NOT FORMATTER ALEXANDRIA:NEGATIVE-RATIONAL *MACROEXPAND-HOOK* ALEXANDRIA:PLIST-ALIST STRING= ENSURE-GENERIC-FUNCTION ALEXANDRIA:FIRST-ELT PRINT-UNREADABLE-OBJECT ALEXANDRIA:PROPER-LIST-LENGTH CADDDR RESTART-CASE ALEXANDRIA:WRITE-BYTE-VECTOR-INTO-FILE FIND-CLASS IDENTITY MAP-INTO CLASS-NAME PRINT-NOT-READABLE REMOVE APROPOS-LIST UNBOUND-SLOT *COMPILE-FILE-PATHNAME* ALEXANDRIA:NON-POSITIVE-REAL COMPUTE-RESTARTS DEFINE-SYMBOL-MACRO SCALE-FLOAT TAILP SIXTH BOOLE-CLR SUBSTITUTE ADJUST-ARRAY LDB TERPRI FIFTH WITH-OPEN-FILE STABLE-SORT METHOD-COMBINATION WARNING SAFETY LOGXOR COUNT-IF-NOT ALEXANDRIA:SYMBOLICATE REM THE SUBLIS CHAR RANDOM-STATE-P VECTORP ALEXANDRIA:ALIST-HASH-TABLE PPRINT-EXIT-IF-LIST-EXHAUSTED SET-DISPATCH-MACRO-CHARACTER STRING-RIGHT-TRIM CLEAR-INPUT SHARED-INITIALIZE DEFPACKAGE ALEXANDRIA:COPY-STREAM CHAR-LESSP COMPILER-MACRO-FUNCTION ALEXANDRIA:SETP ALEXANDRIA:LASTCAR MULTIPLE-VALUE-CALL LOAD MAPHASH ALEXANDRIA:STRING-DESIGNATOR > NINTH MAPCON ALEXANDRIA:REMOVEF STEP ALEXANDRIA:POSITIVE-FLOAT AREF APPLY ALEXANDRIA:NON-NEGATIVE-REAL-P PPRINT-TAB CADADR LAMBDA-PARAMETERS-LIMIT NINTERSECTION LOGCOUNT PACKAGEP NSUBSTITUTE-IF-NOT ALEXANDRIA:UNIONF USE-VALUE ALEXANDRIA:MEAN RASSOC ROUND BROADCAST-STREAM-STREAMS ATOM COMPILER-MACRO SEQUENCE CALL-ARGUMENTS-LIMIT LOGORC2 SIGNED-BYTE ALEXANDRIA:NON-NEGATIVE-SINGLE-FLOAT ALEXANDRIA:ENSURE-CAR INTERSECTION ALEXANDRIA:ARRAY-INDEX DPB MEMBER STRUCTURE-OBJECT NUNION UNLESS VECTOR-POP MAPCAN APROPOS ALEXANDRIA:NEGATIVE-SHORT-FLOAT-P MAX SPACE CEILING NULL STREAM-ADVANCE-TO-COLUMN FUNCALL PROG STREAM-WRITE-SEQUENCE LISP-IMPLEMENTATION-TYPE ASSERT WRITE-CHAR SYNONYM-STREAM COERCE ALEXANDRIA:ENSURE-FUNCTIONF TANH LOG EXTENDED-CHAR DEFCONSTANT READ FILL-POINTER HASH-TABLE-P SUBSTITUTE-IF-NOT ALEXANDRIA:WITH-OUTPUT-TO-FILE MULTIPLE-VALUE-BIND HASH-TABLE-COUNT PROGN DRIBBLE ALEXANDRIA:BINOMIAL-COEFFICIENT ALEXANDRIA:NON-POSITIVE-FIXNUM-P ALEXANDRIA:COPY-ARRAY DEFGENERIC STORAGE-CONDITION ALEXANDRIA:DELETE-FROM-PLISTF BIT-NOR COUNT-IF CDADDR ALEXANDRIA:NON-NEGATIVE-SHORT-FLOAT-P TAGBODY ALEXANDRIA:MINF ALEXANDRIA:SEQUENCE-OF-LENGTH-P NUMBERP CODE-CHAR MAKE-LIST EVAL GET-DECODED-TIME >= ALEXANDRIA:POSITIVE-SHORT-FLOAT ALEXANDRIA:NON-POSITIVE-LONG-FLOAT-P CLASS PI FILE-NAMESTRING TRIVIAL-GRAY-STREAM-MIXIN BIT-ORC2 TAN FROUND ALEXANDRIA:REQUIRED-ARGUMENT CDDDR INCF FIXNUM GET-INTERNAL-RUN-TIME FLOATING-POINT-INEXACT SOFTWARE-VERSION ALEXANDRIA:NON-NEGATIVE-FLOAT COS PRINC-TO-STRING SPECIAL-OPERATOR-P SIN FUNCTION LOGBITP PATHNAME-DEVICE CONDITION CALL-NEXT-METHOD ALEXANDRIA:NEGATIVE-LONG-FLOAT-P LEAST-NEGATIVE-SHORT-FLOAT STREAM-ELEMENT-TYPE ALEXANDRIA:READ-STREAM-CONTENT-INTO-BYTE-VECTOR ALEXANDRIA:HASH-TABLE-KEYS VECTOR-PUSH-EXTEND ALEXANDRIA:NON-NEGATIVE-LONG-FLOAT-P &BODY PACKAGE-NAME PROVIDE ECHO-STREAM-INPUT-STREAM LIST* ALEXANDRIA:GAUSSIAN-RANDOM STREAM-READ-SEQUENCE DO* CELL-ERROR-NAME &KEY ALEXANDRIA:NEGATIVE-LONG-FLOAT NSET-DIFFERENCE ALEXANDRIA:NON-NEGATIVE-SINGLE-FLOAT-P ALEXANDRIA:APPENDF DO-ALL-SYMBOLS ROW-MAJOR-AREF ENOUGH-NAMESTRING REVAPPEND LAMBDA-LIST-KEYWORDS ALEXANDRIA:MAP-COMBINATIONS WITH-CONDITION-RESTARTS SIMPLE-TYPE-ERROR &OPTIONAL *MODULES* TYPE PACKAGE-SHADOWING-SYMBOLS SYMBOL-NAME INTEGER-LENGTH ALEXANDRIA:DESTRUCTURING-CASE REMPROP ENDP UPGRADED-COMPLEX-PART-TYPE ALEXANDRIA:NON-POSITIVE-DOUBLE-FLOAT-P SYMBOL-VALUE *ERROR-OUTPUT* ALEXANDRIA:SIMPLE-PROGRAM-ERROR ALEXANDRIA:SUBFACTORIAL ++ PPRINT-POP SHIFTF LOGNOR SET-SYNTAX-FROM-CHAR *PRINT-PPRINT-DISPATCH* ALEXANDRIA:NEGATIVE-DOUBLE-FLOAT STRING> FLOAT-DIGITS FILE-ERROR-PATHNAME ALEXANDRIA:IGNORE-SOME-CONDITIONS SIMPLE-VECTOR-P SLEEP BOOLE-SET *LOAD-PATHNAME* PACKAGE ERROR *PRINT-LEVEL* RASSOC-IF-NOT *COMPILE-FILE-TRUENAME* UPPER-CASE-P ALEXANDRIA:RANDOM-ELT WHEN ALEXANDRIA:READ-FILE-INTO-STRING REMOVE-DUPLICATES ZEROP SIMPLE-ARRAY IGNORABLE SECOND FUNDAMENTAL-CHARACTER-INPUT-STREAM GENTEMP // ACOS ALEXANDRIA:NEGATIVE-INTEGER-P SIMPLE-BASE-STRING INTEGER-DECODE-FLOAT SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF CHAR>= ALEXANDRIA:NEGATIVE-INTEGER CAADDR CLASS-OF DO REMOVE-IF-NOT ARRAY-DIMENSIONS DO-EXTERNAL-SYMBOLS ALEXANDRIA:HASH-TABLE-VALUES SVREF ALEXANDRIA:VARIANCE COMPILE-FILE-PATHNAME FLOATP ALEXANDRIA:POSITIVE-SHORT-FLOAT-P SERIOUS-CONDITION BOOLE-NOR PATHNAME-MATCH-P REAL DOUBLE-FLOAT-NEGATIVE-EPSILON MACROEXPAND REMHASH ALEXANDRIA:NON-NEGATIVE-FIXNUM-P CDADAR FILE-ERROR *PRINT-READABLY* FILE-STREAM *** PLUSP BIT-ANDC2 ALEXANDRIA:MAKE-CIRCULAR-LIST MOST-POSITIVE-LONG-FLOAT ALEXANDRIA:UNWIND-PROTECT-CASE CHAR-CODE-LIMIT FLOAT BOTH-CASE-P ALEXANDRIA:NON-POSITIVE-SINGLE-FLOAT-P TRUNCATE LIST-LENGTH SUBST-IF-NOT CLEAR-OUTPUT STREAM-CLEAR-INPUT DYNAMIC-EXTENT NO-APPLICABLE-METHOD NO-NEXT-METHOD *PRINT-RADIX* MAPCAR CONS OPTIMIZE STREAM-EXTERNAL-FORMAT COMPLEMENT *PRINT-RIGHT-MARGIN* ARRAY-RANK PRIN1-TO-STRING CHAR<= DELETE-IF LOWER-CASE-P DENOMINATOR SUBSETP ALEXANDRIA:DOPLIST ALEXANDRIA:PROPER-LIST REPLACE ALEXANDRIA:NEGATIVE-REAL-P SET-DIFFERENCE PUSH ALEXANDRIA:WHEN-LET WITH-SLOTS MAKE-INSTANCES-OBSOLETE SIGNUM DEFINE-MODIFY-MACRO COMPILED-FUNCTION PROBE-FILE COMPILATION-SPEED STANDARD-CHAR MAKE-INSTANCE STRING-LEFT-TRIM BIT-VECTOR-P MACRO-FUNCTION ALEXANDRIA:CONJOIN WITH-OPEN-STREAM MAKE-STRING-INPUT-STREAM SIMPLE-ERROR VALUES SIGNAL ALEXANDRIA:READ-FILE-INTO-BYTE-VECTOR CAADR TRANSLATE-LOGICAL-PATHNAME *LOAD-TRUENAME* NSUBST-IF-NOT OR NSTRING-CAPITALIZE IN-PACKAGE GET PPRINT-LINEAR LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT COMPUTE-APPLICABLE-METHODS BROADCAST-STREAM UNSIGNED-BYTE *STANDARD-OUTPUT* INTEGERP EQL UNDEFINED-FUNCTION ACOSH READ-CHAR-NO-HANG BOOLE-ANDC2 REALP COPY-SEQ READTABLE SYMBOL-PACKAGE MAKE-CONCATENATED-STREAM PRINT THIRD SIMPLE-BIT-VECTOR-P CONCATENATED-STREAM-STREAMS *COMPILE-PRINT* COPY-STRUCTURE ALEXANDRIA:PARSE-BODY INVALID-METHOD-ERROR ** MOST-NEGATIVE-FIXNUM LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ALEXANDRIA:REMOVE-FROM-PLISTF READER-ERROR ALEXANDRIA:WHICHEVER LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT STREAM-WRITE-STRING MULTIPLE-VALUE-LIST BOOLE-C2 ALEXANDRIA:NEGATIVE-FLOAT UNEXPORT DECLAIM LEAST-NEGATIVE-SINGLE-FLOAT CDDR NBUTLAST LENGTH ROOM ALEXANDRIA:NON-POSITIVE-FIXNUM DEFTYPE LISP-IMPLEMENTATION-VERSION WITH-OUTPUT-TO-STRING LAMBDA YES-OR-NO-P CHAR< PSETQ SYMBOL-PLIST ARRAY-HAS-FILL-POINTER-P METHOD FILE-WRITE-DATE ALEXANDRIA:CLAMP ALEXANDRIA:NEGATIVE-FIXNUM-P HASH-TABLE-SIZE PROGRAM-ERROR EVENP *PRINT-BASE* PATHNAME-NAME NSTRING-UPCASE CHAR/= ALEXANDRIA:MEDIAN LET PSETF BOOLE-2 ALEXANDRIA:NUNIONF FUNCTION-KEYWORDS ALEXANDRIA:REMOVE-FROM-PLIST END-OF-FILE CIS DEFSETF ALEXANDRIA:NEGATIVE-SINGLE-FLOAT EQUALP ALEXANDRIA:MAKE-GENSYM-LIST ALEXANDRIA:WITH-GENSYMS NUMERATOR SUBTYPEP GET-INTERNAL-REAL-TIME ALEXANDRIA:REVERSEF ALEXANDRIA:ARRAY-LENGTH EVAL-WHEN *PRINT-LINES* SETF ALEXANDRIA:FORMAT-SYMBOL VARIABLE TYPE-OF CHAR-NAME ALEXANDRIA:FLATTEN CDR CHAR> PPRINT-LOGICAL-BLOCK SOFTWARE-TYPE GET-DISPATCH-MACRO-CHARACTER *READTABLE* ABORT EIGHTH ALEXANDRIA:ENSURE-LIST STREAM-READ-CHAR-NO-HANG EXPT NOTINLINE CDADR DESCRIBE SIMPLE-WARNING ARITHMETIC-ERROR-OPERATION BIT-NAND WRITE-BYTE ALEXANDRIA:NON-POSITIVE-REAL-P STREAM-WRITE-BYTE ALEXANDRIA:COERCEF CHAR-GREATERP SEVENTH ALEXANDRIA:CURRY ALEXANDRIA:IOTA PPRINT-FILL *TRACE-OUTPUT* BYTE-SIZE STRING-TRIM MAKE-LOAD-FORM-SAVING-SLOTS *RANDOM-STATE* ALEXANDRIA:NON-POSITIVE-LONG-FLOAT ALEXANDRIA:HASH-TABLE-ALIST UPDATE-INSTANCE-FOR-DIFFERENT-CLASS STREAM-LINE-COLUMN ALEXANDRIA:NREVERSEF NRECONC KEYWORDP DOUBLE-FLOAT *DEBUG-IO* ACONS SIMPLE-CONDITION FUNDAMENTAL-BINARY-INPUT-STREAM MACROLET SATISFIES ALEXANDRIA:LENGTH= FMAKUNBOUND ALEXANDRIA:CIRCULAR-LIST-P ABS COPY-LIST COMPILE-FILE MEMBER-IF-NOT - RPLACA ALEXANDRIA:COUNT-PERMUTATIONS TRACE DESCRIBE-OBJECT STREAM-FORCE-OUTPUT ALEXANDRIA:PLIST-HASH-TABLE ALEXANDRIA:LERP ALEXANDRIA:NON-NEGATIVE-REAL ARITHMETIC-ERROR-OPERANDS MACHINE-INSTANCE ETYPECASE ALEXANDRIA:MAKE-KEYWORD WITH-PACKAGE-ITERATOR SPEED SUBST-IF MISMATCH LIST-ALL-PACKAGES *LOAD-VERBOSE* BIGNUM SETQ ALEXANDRIA:NON-NEGATIVE-SHORT-FLOAT ALEXANDRIA:LAST-ELT DECODE-UNIVERSAL-TIME LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT CHAR-NOT-EQUAL READ-PRESERVING-WHITESPACE GET-PROPERTIES STRINGP STANDARD-GENERIC-FUNCTION *BREAK-ON-SIGNALS* WRITE-LINE GET-UNIVERSAL-TIME DEFINE-SETF-EXPANDER SYMBOL VALUES-LIST CAR SYMBOL-MACROLET BLOCK METHOD-QUALIFIERS WRITE ALEXANDRIA:ALIST-PLIST PPRINT-DISPATCH GO LONG-FLOAT-EPSILON SINGLE-FLOAT MAKE-STRING-OUTPUT-STREAM FLOAT-RADIX ARRAY-DISPLACEMENT ALEXANDRIA:COPY-FILE USER-HOMEDIR-PATHNAME ALLOCATE-INSTANCE PROG* NTH-VALUE CHAR-NOT-GREATERP INVOKE-DEBUGGER ALEXANDRIA:NON-NEGATIVE-LONG-FLOAT ALEXANDRIA:WITH-INPUT-FROM-FILE NSTRING-DOWNCASE TYPE-ERROR-EXPECTED-TYPE DIRECTORY-NAMESTRING STRING-NOT-EQUAL VECTOR-PUSH ED SHORT-FLOAT LONG-SITE-NAME CAADAR BUILT-IN-CLASS MAPC BIT-ORC1 RATIONAL GET-SETF-EXPANSION KEYWORD LOCALLY ALEXANDRIA:ONCE-ONLY ALEXANDRIA:ENSURE-GETHASH NOT EQUAL DECLARE CDDDDR SET-PPRINT-DISPATCH = ALEXANDRIA:RCURRY NSUBST TRUENAME PROG1 SUBSTITUTE-IF INTERNAL-TIME-UNITS-PER-SECOND CONCATENATE PARSE-ERROR SHORT-SITE-NAME ALEXANDRIA:PROPER-LIST-P *READ-EVAL* RETURN-FROM MINUSP DOUBLE-FLOAT-EPSILON ALEXANDRIA:NAMED-LAMBDA ALEXANDRIA:NON-POSITIVE-INTEGER-P DELETE-FILE TWO-WAY-STREAM-OUTPUT-STREAM MEMBER-IF NSUBSTITUTE SBIT PROG2 READ-SEQUENCE CDDADR INTERACTIVE-STREAM-P STRING-LESSP ENSURE-DIRECTORIES-EXIST BIT-IOR LOGORC1 PPRINT-INDENT RENAME-PACKAGE ALPHANUMERICP CONSP ASSOC-IF DO-SYMBOLS DOTIMES APPEND MAP FILE-STRING-LENGTH GCD MULTIPLE-VALUE-PROG1 ARRAY-TOTAL-SIZE-LIMIT UNTRACE MAKE-RANDOM-STATE ALEXANDRIA:NEGATIVE-FLOAT-P ALEXANDRIA:POSITIVE-INTEGER-P NAME-CHAR CADAR CAAADR COND CELL-ERROR ENCODE-UNIVERSAL-TIME STRING-STREAM ALEXANDRIA:POSITIVE-DOUBLE-FLOAT ALEXANDRIA:POSITIVE-FIXNUM ALEXANDRIA:WHEN-LET* MAKE-PATHNAME NTHCDR ALEXANDRIA:SET-EQUAL ARRAY SXHASH CADR EQ SET-EXCLUSIVE-OR *QUERY-IO* LOGANDC2 IF CALL-METHOD RENAME-FILE STRING *DEBUGGER-HOOK* DEBUG ALEXANDRIA:NON-NEGATIVE-INTEGER MOD BOOLE-1 READTABLE-CASE BIT-XOR ALEXANDRIA:POSITIVE-REAL-P STANDARD-METHOD STREAM-LISTEN FILE-LENGTH FIND-METHOD *TERMINAL-IO* MACHINE-VERSION *PRINT-CASE* *PACKAGE* DOCUMENTATION ALEXANDRIA:ASSOC-VALUE BOOLEAN ALEXANDRIA:NON-POSITIVE-FLOAT LISTP ALEXANDRIA:NON-POSITIVE-INTEGER SLOT-MAKUNBOUND SLOT-VALUE + BYTE CHAR-CODE STANDARD-OBJECT ALEXANDRIA:NCONCF ALEXANDRIA:ENDS-WITH-SUBSEQ STREAM-FILE-POSITION COPY-READTABLE /// DEFVAR MACROEXPAND-1 PRINT-OBJECT DEFSTRUCT UPDATE-INSTANCE-FOR-REDEFINED-CLASS RANDOM-STATE DEPOSIT-FIELD &AUX STREAM-FRESH-LINE ALEXANDRIA:MULTIPLE-VALUE-COMPOSE BOOLE-ORC1 TRANSLATE-PATHNAME CATCH SHORT-FLOAT-NEGATIVE-EPSILON MAPL <= BOOLE-AND MUFFLE-WARNING READ-FROM-STRING *STANDARD-INPUT* NTH POP LOGICAL-PATHNAME-TRANSLATIONS ALEXANDRIA:ENSURE-FUNCTION STRUCTURE-CLASS PHASE THROW STANDARD CONTINUE SIMPLE-VECTOR ALEXANDRIA:POSITIVE-RATIONAL-P ALEXANDRIA:NON-POSITIVE-RATIONAL BYTE-POSITION RATIONALP MULTIPLE-VALUE-SETQ &ALLOW-OTHER-KEYS PRIN1 FILE-POSITION LDIFF WITH-STANDARD-IO-SYNTAX IGNORE-ERRORS ALEXANDRIA:PARSE-ORDINARY-LAMBDA-LIST TWO-WAY-STREAM FILE-AUTHOR FUNDAMENTAL-INPUT-STREAM CDAAR ALEXANDRIA:ENDS-WITH WILD-PATHNAME-P LEAST-POSITIVE-SINGLE-FLOAT NCONC ADD-METHOD HASH-TABLE ALEXANDRIA:POSITIVE-SINGLE-FLOAT-P FRESH-LINE CADDR HANDLER-BIND *READ-BASE* ALEXANDRIA:NON-POSITIVE-SHORT-FLOAT OTHERWISE HASH-TABLE-REHASH-THRESHOLD RATIO CHANGE-CLASS MIN QUOTE MAKE-DISPATCH-MACRO-CHARACTER ALEXANDRIA:COPY-SEQUENCE ELT FBOUNDP REMF EVERY DESTRUCTURING-BIND REMOVE-IF ALEXANDRIA:DESTRUCTURING-ECASE STRING-GREATERP ARRAY-ROW-MAJOR-INDEX OPEN ALEXANDRIA:NON-NEGATIVE-RATIONAL-P FIND-SYMBOL LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT ALEXANDRIA:TYPE= ALEXANDRIA:NEGATIVE-DOUBLE-FLOAT-P BIT-ANDC1 TWO-WAY-STREAM-INPUT-STREAM PACKAGE-ERROR *COMPILE-VERBOSE* FUNDAMENTAL-BINARY-STREAM WRITE-SEQUENCE ECHO-STREAM WRITE-STRING ALEXANDRIA:CSWITCH WITH-HASH-TABLE-ITERATOR READTABLEP MERGE-PATHNAMES BOOLE-IOR FIND-IF-NOT MAKE-LOAD-FORM TREE-EQUAL DEFINE-CONDITION CONCATENATED-STREAM PARSE-INTEGER STREAMP SQRT ALEXANDRIA:XOR HOST-NAMESTRING /= FINISH-OUTPUT STREAM-START-LINE-P GENSYM SHORT-FLOAT-EPSILON LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT TENTH * ASH PUSHNEW TYPE-ERROR FLOAT-SIGN BIT-EQV MAKE-STRING FIND-IF DIGIT-CHAR-P STRING-CAPITALIZE Y-OR-N-P STRING-EQUAL PATHNAME *LOAD-PRINT* ALEXANDRIA:MAKE-GENSYM ALEXANDRIA:DESTRUCTURING-CCASE < EXPORT *PRINT-PRETTY* DELETE-PACKAGE LIST DOLIST CHAR-NOT-LESSP POSITION-IF-NOT &WHOLE FTYPE MAKE-SYMBOL MAKE-SYNONYM-STREAM MULTIPLE-VALUES-LIMIT BIT-VECTOR ALEXANDRIA:NEGATIVE-SINGLE-FLOAT-P ALEXANDRIA:NEGATIVE-SHORT-FLOAT REINITIALIZE-INSTANCE MAKE-CONDITION GET-OUTPUT-STREAM-STRING UNBOUND-SLOT-INSTANCE MOST-NEGATIVE-SHORT-FLOAT FLOATING-POINT-OVERFLOW CHARACTER MAKE-TWO-WAY-STREAM REMOVE-METHOD BOOLE-XOR GETF LEAST-NEGATIVE-LONG-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT STREAM-ERROR RANDOM CTYPECASE MOST-POSITIVE-SINGLE-FLOAT WARN FLET FIND-PACKAGE UNINTERN SHADOWING-IMPORT ALEXANDRIA:POSITIVE-SINGLE-FLOAT ALEXANDRIA:MULTIPLE-VALUE-PROG2 LOGNAND T BOUNDP LONG-FLOAT COPY-ALIST LAST ALEXANDRIA:NON-NEGATIVE-FLOAT-P UNREAD-CHAR ALEXANDRIA:ENSURE-SYMBOL PARSE-NAMESTRING ALEXANDRIA:DISJOIN SYMBOLP CHARACTERP ALEXANDRIA:FEATUREP ODDP ARRAY-DIMENSION ALEXANDRIA:COMPOSE NEXT-METHOD-P LOOP-FINISH MAKE-ECHO-STREAM MOST-NEGATIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT PROGV LOGANDC1 ALEXANDRIA:NON-NEGATIVE-DOUBLE-FLOAT BOOLE-ANDC1 BUTLAST MASK-FIELD ALEXANDRIA:RASSOC-VALUE ALEXANDRIA:HASH-TABLE-PLIST COMPILED-FUNCTION-P REVERSE ARRAY-ELEMENT-TYPE PATHNAME-HOST FIND-RESTART ALEXANDRIA:NEGATIVE-FIXNUM ALEXANDRIA:NON-NEGATIVE-INTEGER-P ALEXANDRIA:SHUFFLE STREAM-READ-BYTE POSITION-IF STREAM-CLEAR-OUTPUT COMPLEXP FOURTH GENERIC-FUNCTION BREAK STREAM-WRITE-CHAR *PRINT-ESCAPE* ALEXANDRIA:POSITIVE-DOUBLE-FLOAT-P *FEATURES* SET-MACRO-CHARACTER GRAPHIC-CHAR-P PACKAGE-NICKNAMES *PRINT-GENSYM* STRING-NOT-GREATERP SIMPLE-STRING-P DEFPARAMETER HASH-TABLE-REHASH-SIZE SCHAR WITH-COMPILATION-UNIT ARRAY-DIMENSION-LIMIT MOST-POSITIVE-SHORT-FLOAT ALEXANDRIA:NON-POSITIVE-SINGLE-FLOAT STANDARD-CHAR-P FFLOOR FORCE-OUTPUT INVOKE-RESTART ALEXANDRIA:NON-NEGATIVE-DOUBLE-FLOAT-P EXP IMPORT STREAM-READ-CHAR UNWIND-PROTECT ALEXANDRIA:FACTORIAL RETURN ALEXANDRIA:ESWITCH SIMPLE-STRING ALEXANDRIA:NEGATIVE-REAL LOGTEST *READ-SUPPRESS* BASE-CHAR MAKE-ARRAY ALEXANDRIA:STARTS-WITH INLINE ALEXANDRIA:ROTATE STREAM-PEEK-CHAR CDDAR NIL) See also: The ANSI Standard, Macro COMMON-LISP:DEFPACKAGE The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE* ; compiling file "/startdir/src/_build/iolib/src/base/return-star.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/return-star-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/iolib/src/base/types.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/types-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/iolib/src/base/debug.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/debug-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/base/conditions.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/conditions-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/base/defalias.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/defalias-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/iolib/src/base/deffoldable.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/deffoldable-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/iolib/src/base/defobsolete.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/defobsolete-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/iolib/src/base/reader.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/reader-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/iolib/src/base/sequence.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/sequence-tmpRJTU435C.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/iolib/src/base/matching.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/matching-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/iolib/src/base/time.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/time-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/base/dynamic-buffer.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/base/dynamic-buffer-tmp319UV2V8.fasl ; compilation finished in 0:00:00.053 ; ; compilation unit finished ; printed 4 notes WARNING: System definition file #P"/startdir/src/_build/montezuma/montezuma.asd" contains definition for system "montezuma-tests". Please only define "montezuma" and secondary systems with a name starting with "montezuma/" (e.g. "montezuma/test") in that file. WARNING: The CL-Containers system would enjoy having asdf-system-connections around. See http://www.cliki.net/asdf-system-connections for details and download instructions. ; compiling file "/startdir/src/_build/bordeaux-threads/src/pkgdcl.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/bordeaux-threads/src/pkgdcl-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/bordeaux-threads/src/bordeaux-threads.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/bordeaux-threads/src/bordeaux-threads-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/bordeaux-threads/src/impl-sbcl.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/bordeaux-threads/src/impl-sbcl-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/bordeaux-threads/src/default-implementations.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/bordeaux-threads/src/default-implementations-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/iterate/package.lisp" (written 20 OCT 2024 03:57:10 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iterate/package-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iterate/iterate.lisp" (written 20 OCT 2024 03:57:10 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iterate/iterate-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.640 ; compiling file "/startdir/src/_build/trivial-garbage/trivial-garbage.lisp" (written 20 OCT 2024 03:57:53 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-garbage/trivial-garbage-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/package.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/package-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/init.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/init-tmp8S0II570.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/typelib.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/typelib-tmpJE88A12F.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/types.lisp" (written 20 OCT 2024 03:56:32 PM): ; file: /startdir/src/_build/cl-gobject-introspection/src/types.lisp ; in: DEFUN ARGUMENT->LISP-VALUE ; 'GIR::V-ULONG ; ; note: deleting unreachable code ; 'GIR::V-LONG ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/types-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/baseinfo.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/baseinfo-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/repository.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/repository-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.243 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/ffi.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/ffi-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/function.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/function-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.160 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/field.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/field-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/object.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/object-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/gvalue.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/gvalue-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.093 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/trampoline.lisp" (written 20 OCT 2024 03:56:32 PM): ; file: /startdir/src/_build/cl-gobject-introspection/src/trampoline.lisp ; in: CFFI:DEFCALLBACK DESTROY-TRAMPOLINE ; (GIR:DESTROY-TRAMPOLINE GIR::PTR) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/trampoline-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/signal.lisp" (written 20 OCT 2024 03:56:32 PM): ; file: /startdir/src/_build/cl-gobject-introspection/src/signal.lisp ; in: CFFI:DEFCALLBACK MARSHAL ; (APPLY GIR::LISP-FUNC GIR::LISP-PARAMS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; LISP-FUNC is not known to be a function ; (GIR:TRAMPOLINE-GET-FUNCTION GIR::CLOSURE) ; ; note: doing SAP to pointer coercion (cost 20) ; (GIR::GVALUE-GET GIR::GVALUE) ; ; note: doing SAP to pointer coercion (cost 20) ; (GIR::GVALUE-SET RETURN GIR::RES) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK FREE-CLOSURE ; (GIR:DESTROY-TRAMPOLINE GIR::CLOSURE) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/signal-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/properties.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/properties-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/enum.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/enum-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/struct.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/struct-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-gobject-introspection/src/utilities.lisp" (written 20 OCT 2024 03:56:32 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gobject-introspection/src/utilities-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.package-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.init-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.stable-pointer.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/glib/glib.stable-pointer.lisp ; in: DEFCALLBACK STABLE-POINTER-DESTROY-NOTIFY-CB ; (GLIB::FREE-STABLE-POINTER GLIB::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.stable-pointer-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.version.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.version-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.quark.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.quark-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.misc.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.misc-tmp3BPE71HR.fasl ; compilation finished in 0:00:00.079 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.error.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.error-tmp758YUXMV.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.convert.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.convert-tmpGMQXK1HK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.main-loop.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/glib/glib.main-loop.lisp ; in: DEFCALLBACK CALL-TIMEOUT-FROM-MAIN-LOOP-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GLIB::DATA)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (GLIB:GET-STABLE-POINTER-VALUE GLIB::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.main-loop-tmp49Q238TW.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.utils.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.utils-tmpMXPMJ5KG.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.option-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/glib/glib.option-group.lisp ; in: DEFCALLBACK G-TRANSLATE-FUNC-CB ; (FUNCALL GLIB::FN GLIB::STR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GLIB::G-TRANSLATE-FUNC-CB ; (:STRING :FREE-FROM-FOREIGN NIL) ; ((GLIB::STR :STRING) (GLIB::DATA :POINTER)) ; (LET ((GLIB::FN (GLIB:GET-STABLE-POINTER-VALUE GLIB::DATA))) ; (RESTART-CASE (FUNCALL GLIB::FN GLIB::STR) ; (GLIB::RETURN-FROM-G-TRANSLATE-FUNC-CB NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GLIB::STR #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GLIB::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.option-group-tmpB69313KI.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.key-value.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.key-value-tmp9ZT99EEA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.random.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.random-tmpW045U8V2.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/closer-mop/closer-mop-packages.lisp" (written 20 OCT 2024 03:56:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/closer-mop/closer-mop-packages-tmp6XOIRI3N.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/closer-mop/closer-mop-shared.lisp" (written 20 OCT 2024 03:56:44 PM): ; file: /startdir/src/_build/closer-mop/closer-mop-shared.lisp ; in: DEFUN GET-EMF ; (SUBSEQ CLOSER-MOP::ARGS 0 CLOSER-MOP::NOF-REQUIRED-ARGS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN ONLY-STANDARD-METHODS ; (TYPEP CLOSER-MOP::GF SB-MOP:SPECIALIZER) ; ; note: unable to optimize because: can't open-code test of non-constant type ; (EQL (SB-MOP:EQL-SPECIALIZER-OBJECT SB-MOP:SPECIALIZER) CLOSER-MOP::GF) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN METHODS-ALL-THE-SAME-SPECIALIZERS ; (EQL (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC1) ; (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC2)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN COMPUTE-DISCRIMINATOR ; (FUNCALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; COMPUTE-NATIVE-DISCRIMINATOR is not known to be a function ; (TYPEP CLOSER-MOP::ARG CLOSER-MOP::SPEC) ; ; note: unable to optimize because: can't open-code test of non-constant type ; (FUNCALL CLOSER-MOP::COMPUTE-NATIVE-DISCRIMINATOR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; COMPUTE-NATIVE-DISCRIMINATOR is not known to be a function ; (EQL CLOSER-MOP::ARG (SB-MOP:EQL-SPECIALIZER-OBJECT CLOSER-MOP::SPEC)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/closer-mop/closer-mop-shared-tmp9ZHTLHSG.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/closer-mop/closer-sbcl.lisp" (written 20 OCT 2024 03:56:44 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/closer-mop/closer-sbcl-tmpRW73Q691.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.package-tmp4TM0ME1F.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.init-tmpU2IL9N4.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.object-function.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.object-function-tmpOPW41KDL.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.glib-defcallback.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.glib-defcallback-tmpIPVWLON2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.generating.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.generating-tmpO0LCOIDS.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.type-info.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.type-info-tmpP264WQ6O.fasl ; compilation finished in 0:00:00.100 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.g-value.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.g-value-tmpESC43OCR.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.enumeration.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.enumeration-tmpWCAM54ZJ.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.boxed-lisp.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gobject/gobject.boxed-lisp.lisp ; in: DEFMETHOD PARSE-G-VALUE-FOR-TYPE ; (CLOSER-MOP:DEFMETHOD GOBJECT::PARSE-G-VALUE-FOR-TYPE ; (GOBJECT::GVALUE-PTR (GOBJECT::TYPE-NUMERIC (EQL (GOBJECT:GTYPE "GBoxed")))) ; (DECLARE (IGNORE GOBJECT::PARSE-KIND)) ; (IF (GOBJECT::G-TYPE= (GOBJECT:G-VALUE-TYPE GOBJECT::GVALUE-PTR) ; (GOBJECT::G-TYPE-STRV)) ; (CFFI:CONVERT-FROM-FOREIGN ; (GOBJECT::G-VALUE-GET-BOXED GOBJECT::GVALUE-PTR) ; '(GLIB:G-STRV :FREE-FROM-FOREIGN NIL)) ; (LET ((GOBJECT::BOXED-TYPE #)) ; (GOBJECT::BOXED-PARSE-G-VALUE GOBJECT::GVALUE-PTR ; GOBJECT::BOXED-TYPE)))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 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* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.)) ; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.)) ; (DECLARE (IGNORE GOBJECT::PARSE-KIND)) ; (LOCALLY ; (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #)) ; (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (BLOCK GOBJECT::PARSE-G-VALUE-FOR-TYPE ; (IF # ; # ; #))))) ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: PARSE-KIND ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.boxed-lisp-tmpVTMW561L.fasl ; compilation finished in 0:00:00.173 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.boxed.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.boxed-tmpUNNGT9CF.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.variant-type.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.variant-type-tmp4L3W83SU.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/cl-cffi-gtk/glib/glib.variant.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/glib/glib.variant-tmpGE7QNNEE.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.param-spec.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.param-spec-tmp9B0UZGT4.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.param.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.param-tmpAJ5U325P.fasl ; compilation finished in 0:00:00.169 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.gobject-class.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.gobject-class-tmpAOF1CYAS.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.base.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gobject/gobject.base.lisp ; in: DEFCALLBACK GOBJECT-WEAK-REF-FINALIZED ; (CFFI:DEFCALLBACK GOBJECT::GOBJECT-WEAK-REF-FINALIZED ; :VOID ; ((GOBJECT::DATA :POINTER) (GOBJECT::POINTER :POINTER)) ; (DECLARE (IGNORE GOBJECT::DATA)) ; (GOBJECT::LOG-FOR :GC "~A is weak-ref-finalized with ~A refs~%" ; GOBJECT::POINTER (GOBJECT::REF-COUNT GOBJECT::POINTER)) ; (BORDEAUX-THREADS:WITH-RECURSIVE-LOCK-HELD (GOBJECT::*FOREIGN-GOBJECTS-LOCK*) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; (WHEN ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (WARN ; "GObject at ~A was weak-ref-finalized while still holding lisp-side ~ ; strong reference to it" ; GOBJECT::POINTER) ; (GOBJECT::LOG-FOR :GC ; "GObject at ~A was weak-ref-finalized while still holding ~ ; lisp-side strong reference to it" ; GOBJECT::POINTER)) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET DEREF ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of SAP-REF-SAP ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) ; in: DEFCALLBACK G-TOGGLE-NOTIFY ; (CFFI:DEFCALLBACK GOBJECT::G-TOGGLE-NOTIFY ; :VOID ; ((GOBJECT::DATA :POINTER) (GOBJECT::OBJECT :POINTER) ; (GOBJECT::IS-LAST-REF :BOOLEAN)) ; (DECLARE (IGNORE GOBJECT::DATA)) ; (GOBJECT::LOG-FOR :GC "~A is now ~A with ~A refs~%" GOBJECT::OBJECT ; (IF GOBJECT::IS-LAST-REF ; "weak pointer" ; "strong pointer") ; (GOBJECT::REF-COUNT GOBJECT::OBJECT)) ; (BORDEAUX-THREADS:WITH-RECURSIVE-LOCK-HELD (GOBJECT::*FOREIGN-GOBJECTS-LOCK*) ; (GOBJECT::LOG-FOR :GC "obj: ~A~%" ; (OR (GETHASH # GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (GETHASH # GOBJECT::*FOREIGN-GOBJECTS-WEAK*))) ; (IF GOBJECT::IS-LAST-REF ; (LET* (# #) ; (IF GOBJECT::OBJ ; # ; #)) ; (LET* (# #) ; (UNLESS GOBJECT::OBJ # #) ; (REMHASH GOBJECT::OBJ-ADR GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; (SETF #))))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET DEREF ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of SAP-REF-SAP ; (CFFI-SYS:POINTER-ADDRESS GOBJECT::OBJECT) ; --> BLOCK ; ==> ; (SB-SYS:SAP-INT CFFI-SYS::PTR) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of SAP-INT ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of SAP-INT ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::OBJECT) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT::OBJECT) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; ; note: doing unsigned word to integer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.base-tmpIXCQTSHA.fasl ; compilation finished in 0:00:00.106 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.closures.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.closures-tmp5E6VIEMS.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.signals.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gobject/gobject.signals.lisp ; in: DEFCALLBACK LISP-CLOSURE-MARSHAL ; (CFFI:DEFCALLBACK GOBJECT::LISP-CLOSURE-MARSHAL ; :VOID ; ((GOBJECT::CLOSURE (:POINTER (:STRUCT GOBJECT::LISP-CLOSURE))) ; (GOBJECT::RETURN-VALUE (:POINTER (:STRUCT GOBJECT:G-VALUE))) ; (GOBJECT::COUNT-OF-ARGS :UINT) ; (GOBJECT::ARGS (:POINTER (:STRUCT GOBJECT:G-VALUE))) ; (GOBJECT::INVOCATION-HINT :POINTER) (GOBJECT::MARSHAL-DATA :POINTER)) ; (DECLARE (IGNORE GOBJECT::INVOCATION-HINT GOBJECT::MARSHAL-DATA)) ; (LET* ((GOBJECT::ARGS ; (GOBJECT::PARSE-CLOSURE-ARGUMENTS GOBJECT::COUNT-OF-ARGS ; GOBJECT::ARGS)) ; (GOBJECT::FUNCTION-ID ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE '# :FUNCTION-ID)) ; (GOBJECT::ADDR (CFFI-SYS:POINTER-ADDRESS #)) ; (GOBJECT::OBJECT (OR # #)) ; (GOBJECT::RETURN-TYPE (AND # #)) ; (GOBJECT::FN ; (GOBJECT::RETRIEVE-HANDLER-FROM-OBJECT GOBJECT::OBJECT ; GOBJECT::FUNCTION-ID)) ; (GOBJECT::FN-RESULT ; (GOBJECT::CALL-WITH-RESTARTS GOBJECT::FN GOBJECT::ARGS))) ; (WHEN GOBJECT::RETURN-TYPE ; (GOBJECT:SET-G-VALUE GOBJECT::RETURN-VALUE GOBJECT::FN-RESULT ; GOBJECT::RETURN-TYPE :G-VALUE-INIT NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY ; ==> ; (LET ((GOBJECT::CLOSURE GOBJECT::CLOSURE) ; (GOBJECT::RETURN-VALUE GOBJECT::RETURN-VALUE) ; (GOBJECT::COUNT-OF-ARGS GOBJECT::COUNT-OF-ARGS) ; (GOBJECT::ARGS GOBJECT::ARGS) ; (GOBJECT::INVOCATION-HINT GOBJECT::INVOCATION-HINT) ; (GOBJECT::MARSHAL-DATA GOBJECT::MARSHAL-DATA)) ; (DECLARE (IGNORE GOBJECT::INVOCATION-HINT GOBJECT::MARSHAL-DATA)) ; (BLOCK GOBJECT::LISP-CLOSURE-MARSHAL ; (LET* ((GOBJECT::ARGS #) ; (GOBJECT::FUNCTION-ID #) ; (GOBJECT::ADDR #) ; (GOBJECT::OBJECT #) ; (GOBJECT::RETURN-TYPE #) ; (GOBJECT::FN #) ; (GOBJECT::FN-RESULT #)) ; (WHEN GOBJECT::RETURN-TYPE ; (GOBJECT:SET-G-VALUE GOBJECT::RETURN-VALUE GOBJECT::FN-RESULT ; GOBJECT::RETURN-TYPE :G-VALUE-INIT NIL))))) ; ; note: doing SAP to pointer coercion (cost 20) to RETURN-VALUE ; (GOBJECT::PARSE-CLOSURE-ARGUMENTS GOBJECT::COUNT-OF-ARGS GOBJECT::ARGS) ; ; note: doing SAP to pointer coercion (cost 20) ; (LET* ((GOBJECT::ARGS ; (GOBJECT::PARSE-CLOSURE-ARGUMENTS GOBJECT::COUNT-OF-ARGS ; GOBJECT::ARGS)) ; (GOBJECT::FUNCTION-ID ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; '(:STRUCT GOBJECT::LISP-CLOSURE) ; :FUNCTION-ID)) ; (GOBJECT::ADDR ; (CFFI-SYS:POINTER-ADDRESS ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE '# :OBJECT))) ; (GOBJECT::OBJECT ; (OR (GETHASH GOBJECT::ADDR GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (GETHASH GOBJECT::ADDR GOBJECT::*FOREIGN-GOBJECTS-WEAK*))) ; (GOBJECT::RETURN-TYPE ; (AND (NOT #) (GOBJECT:G-VALUE-TYPE GOBJECT::RETURN-VALUE))) ; (GOBJECT::FN ; (GOBJECT::RETRIEVE-HANDLER-FROM-OBJECT GOBJECT::OBJECT ; GOBJECT::FUNCTION-ID)) ; (GOBJECT::FN-RESULT ; (GOBJECT::CALL-WITH-RESTARTS GOBJECT::FN GOBJECT::ARGS))) ; (WHEN GOBJECT::RETURN-TYPE ; (GOBJECT:SET-G-VALUE GOBJECT::RETURN-VALUE GOBJECT::FN-RESULT ; GOBJECT::RETURN-TYPE :G-VALUE-INIT NIL))) ; ; note: doing unsigned word to integer coercion (cost 20) to ADDR ; in: DEFCALLBACK LISP-CLOSURE-FINALIZE ; (GOBJECT::FINALIZE-LISP-CLOSURE GOBJECT::CLOSURE) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.signals-tmpI0PODGVV.fasl ; compilation finished in 0:00:00.190 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.utils.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.utils-tmp1Z95I17K.fasl ; compilation finished in 0:00:00.096 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gobject/gobject.foreign-gobject-subclassing.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gobject/gobject.foreign-gobject-subclassing.lisp ; in: DEFCALLBACK C-INSTANCE-INIT ; (GOBJECT::INSTANCE-INIT GOBJECT::INSTANCE CLASS) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK C-CLASS-INIT ; (GOBJECT::CLASS-INIT CLASS GOBJECT::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK C-INTERFACE-INIT ; (GOBJECT::INTERFACE-INIT GOBJECT::IFACE GOBJECT::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK C-OBJECT-PROPERTY-GET ; (GOBJECT::OBJECT-PROPERTY-GET GOBJECT::OBJECT GOBJECT::PROPERTY-ID ; GOBJECT::VALUE GOBJECT::PSPEC) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK C-OBJECT-PROPERTY-SET ; (GOBJECT::OBJECT-PROPERTY-SET GOBJECT::OBJECT GOBJECT::PROPERTY-ID ; GOBJECT::VALUE GOBJECT::PSPEC) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gobject/gobject.foreign-gobject-subclassing-tmpCFVK1AC1.fasl ; compilation finished in 0:00:00.096 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.package-tmpHHRR8E8N.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.init-tmpWWJ02E3I.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.file.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.file-tmpONTOHUJ2.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.tls-connection.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.tls-connection-tmpQT9APWMH.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.content-type.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.content-type-tmp6LYQXY0L.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.app-info.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.app-info-tmpNKVDR0J1.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.icon.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.icon-tmp6F83SDCV.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.themed-icon.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.themed-icon-tmpEJNPPMJY.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.emblemed-icon.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.emblemed-icon-tmp31RWPSX2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.emblem.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.emblem-tmp1HKLMSTH.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.action.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.action-tmpEWG5XJ53.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.action-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.action-group-tmpXHL60MUV.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.action-map.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.action-map-tmpB7NPDQCW.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.simple-action.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.simple-action-tmpGZ70QILE.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.simple-action-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.simple-action-group-tmpKYD38Q95.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.application.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.application-tmpV4YQ0HKA.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.menu-model.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.menu-model-tmpJXWE1HN2.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.menu.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.menu-tmpMNC5LX5B.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.list-model.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.list-model-tmp4RNSVVC1.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gio/gio.list-store.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gio/gio.list-store.lisp ; in: DEFCALLBACK G-COMPARE-DATA-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GIO::DATA) GIO::A GIO::B) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GIO::G-COMPARE-DATA-FUNC-CALLBACK ; :INT ; ((GIO::A GOBJECT:G-OBJECT) (GIO::B GOBJECT:G-OBJECT) (GIO::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GIO::DATA) GIO::A ; GIO::B) ; (RETURN NIL -1))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GIO::A ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GIO::B ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GIO::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gio/gio.list-store-tmpN626KU7B.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.package-tmpOO0K1B0C.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.init-tmpVFL7JAFK.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.version.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.version-tmpU45RTF.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.structure.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.structure-tmpZTS6G7ND.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.load.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.load-tmp5TNBATEG.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.save.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.save-tmpJL6JXW7Z.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.memory.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.memory-tmp5PQ00DH7.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.scaling.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.scaling-tmp5R1KP4O2.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.utilities.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.utilities-tmpXQDKKJYI.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.animation.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.animation-tmpGJ3P31TF.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.loader.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.loader-tmpT2P2LFJI.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.interface.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk-pixbuf/gdk-pixbuf.interface-tmpKOV75BS9.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.package-tmpP07HWIXP.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.init-tmpURW0SA3C.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.version.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.version-tmp627QKRZN.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.matrix.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.matrix-tmpK8OFNZFV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.status.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.status-tmpRMCY5COB.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.types.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.types-tmp9TN1FOJ6.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.regions.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.regions-tmpEID7NJG3.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.device.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.device-tmp8CJLVG9R.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.surface.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.surface-tmpZCJK45JG.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.image-surface.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.image-surface-tmpQC4TENAZ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.png-surface.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.png-surface-tmp4HJFFDY3.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.pattern.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.pattern-tmp78H81ZL.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.context.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.context-tmp86K6JU7V.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.transformations.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.transformations-tmp2L6X9BVQ.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.paths.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.paths-tmpES5DCUFN.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.font-face.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.font-face-tmpDVKOEP6R.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.font-options.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.font-options-tmp4TWTKS75.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.scaled-font.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.scaled-font-tmpXSOQ2I78.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/cairo/cairo.text.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/cairo/cairo.text-tmpUA03GLW1.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.package-tmpO0OW34V4.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.init-tmpU8KQLETJ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.version.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.version-tmpLBWGBOTB.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.attributes.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.attributes-tmpRX2XGI9U.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.tab-array.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.tab-array-tmpT2A3PQL9.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.fonts.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.fonts-tmpOVHYA3BO.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.layout.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.layout-tmpLT3TYWCE.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.script.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.script-tmp3YF2HENI.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.bidirectional.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.bidirectional-tmp9EEV8FN4.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.renderer.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.renderer-tmpDK25NJJO.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.context.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.context-tmpNMZ5RT9R.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.cairo-render.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.cairo-render-tmp8K51P1O1.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/pango/pango.glyph.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/pango/pango.glyph-tmpXAVJ8WEV.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.package-tmpOZHFIU2N.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.init-tmpJD9SCIW3.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.rectangle.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.rectangle-tmpICVK4HSI.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.threads.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gdk/gdk.threads.lisp ; in: DEFCALLBACK SOURCE-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GDK::DATA)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (GLIB:GET-STABLE-POINTER-VALUE GDK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.threads-tmpA5CK3QHN.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.properties.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.properties-tmp5KE6HXAY.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.event-structures.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.event-structures-tmp5UBS1APN.fasl ; compilation finished in 0:00:00.290 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.cursor.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.cursor-tmpSI9E4AQB.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.device.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.device-tmpID7X8UGC.fasl ; compilation finished in 0:00:00.073 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.device-pad.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.device-pad-tmpFYN8G5D1.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.device-manager.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.device-manager-tmpG1VNK6NW.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.screen.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.screen-tmpV4YWE7CS.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.visual.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.visual-tmpC487WU3K.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.color.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.color-tmpKMQH3GP.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.rgba.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.rgba-tmp8N0WO2QA.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.display.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.display-tmpZ9QI367A.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.display-manager.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.display-manager-tmpRD10QMAI.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.monitor.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.monitor-tmp2L2R3A8M.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.pixbuf.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.pixbuf-tmp1CJ2OZ96.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.seat.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gdk/gdk.seat.lisp ; in: DEFCALLBACK GDK-SEAT-GRAB-PREPARE-FUNC-CB ; (FUNCALL GDK::FN GDK::SEAT GDK::WINDOW) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GDK::GDK-SEAT-GRAB-PREPARE-FUNC-CB ; :VOID ; ((GDK::SEAT (GOBJECT:G-OBJECT GDK::GDK-SEAT)) ; (GDK::WINDOW (GOBJECT:G-OBJECT GDK::GDK-WINDOW)) ; (GDK::USER-DATA :POINTER)) ; (LET ((GDK::FN (GLIB:GET-STABLE-POINTER-VALUE GDK::USER-DATA))) ; (FUNCALL GDK::FN GDK::SEAT GDK::WINDOW))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GDK::SEAT ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GDK::WINDOW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GDK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.seat-tmpDKS9KGUG.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.window.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gdk/gdk.window.lisp ; in: DEFCALLBACK GDK-WINDOW-INVALIDATE-MAYBE-RECURSE-CB ; (FUNCALL GDK::FN GDK::WINDOW) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GDK::GDK-WINDOW-INVALIDATE-MAYBE-RECURSE-CB ; :BOOLEAN ; ((GDK::WINDOW (GOBJECT:G-OBJECT GDK::GDK-WINDOW)) ; (GDK::USER-DATA :POINTER)) ; (LET ((GDK::FN (GLIB:GET-STABLE-POINTER-VALUE GDK::USER-DATA))) ; (FUNCALL GDK::FN GDK::WINDOW))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GDK::WINDOW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GDK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.window-tmp3E37X9HX.fasl ; compilation finished in 0:00:00.260 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.frame-timings.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.frame-timings-tmpXPWOLC8S.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.frame-clock.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.frame-clock-tmpUSWNVC8E.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.gl-context.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.gl-context-tmp68FKQK8H.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.events.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gdk/gdk.events.lisp ; in: DEFCALLBACK GDK-EVENT-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GDK::USER-DATA) GDK::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GDK::GDK-EVENT-FUNC-CALLBACK ; :VOID ; ((GDK::EVENT (GOBJECT:G-BOXED-FOREIGN GDK:GDK-EVENT)) ; (GDK::USER-DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GDK::USER-DATA) ; GDK::EVENT) ; (GDK::RETURN-FROM-CALLBACK NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GDK::EVENT ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GDK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.events-tmpMU3D23G2.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.general.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.general-tmpP7RRFRW4.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.key-values.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.key-values-tmp11AFZINB.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.selections.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.selections-tmpN84Z1F4D.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.drag-and-drop.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.drag-and-drop-tmpHX0IAQ8A.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.app.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.app-tmp8MQVZGT.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.pango.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.pango-tmp88LUAVGW.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.cairo.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.cairo-tmpM5RP096T.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gdk/gdk.x11window.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gdk/gdk.x11window-tmpRHTB3TH1.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.package-tmp4YJPLPB8.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.child-properties.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.child-properties-tmp6202QBVV.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.version.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.version-tmp8COQHEZO.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.enumerations.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.enumerations-tmpQYBBS7QC.fasl ; compilation finished in 0:00:00.076 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.main-loop.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.main-loop-tmpAMQ7AMSJ.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.accel-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.accel-group-tmpQSC8Z7I4.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.accel-map.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.accel-map-tmpNGMCS43U.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.selections.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.selections-tmp5EM0MAXI.fasl ; compilation finished in 0:00:00.086 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.drag-and-drop.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.drag-and-drop-tmpPO1KM2UM.fasl ; compilation finished in 0:00:00.073 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.stock-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.stock-item-tmp9MJ8K0GA.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.clipboard.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.clipboard.lisp ; in: DEFCALLBACK GTK-CLIPBOARD-TEXT-RECEIVED-FUNC-CB ; (FUNCALL GTK::FN GTK::CLIPBOARD GTK::TEXT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-CLIPBOARD-TEXT-RECEIVED-FUNC-CB ; :VOID ; ((GTK::CLIPBOARD (GOBJECT:G-OBJECT GTK::GTK-CLIPBOARD)) ; (GTK::TEXT :STRING) (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (RESTART-CASE (FUNCALL GTK::FN GTK::CLIPBOARD GTK::TEXT) ; (GTK::RETURN-FROM-GTK-CLIPBOARD-TEXT-RECEIVED-FUNC-CB NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CLIPBOARD ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TEXT #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-CLIPBOARD-IMAGE-RECEIVED-FUNC-CB ; (FUNCALL GTK::FN GTK::CLIPBOARD GTK::PIXBUF) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-CLIPBOARD-IMAGE-RECEIVED-FUNC-CB ; :VOID ; ((GTK::CLIPBOARD (GOBJECT:G-OBJECT GTK::GTK-CLIPBOARD)) ; (GTK::PIXBUF (GOBJECT:G-OBJECT GDK-PIXBUF:GDK-PIXBUF)) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (RESTART-CASE (FUNCALL GTK::FN GTK::CLIPBOARD GTK::PIXBUF) ; (GTK::RETURN-FROM-GTK-CLIPBOARD-IMAGE-RECEIVED-FUNC-CB NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CLIPBOARD ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PIXBUF ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-CLIPBOARD-GET-FUNC-CB ; (FUNCALL GTK::FN GTK::CLIPBOARD GTK::SELECTION-DATA GTK::INFO) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-CLIPBOARD-GET-FUNC-CB ; :VOID ; ((GTK::CLIPBOARD (GOBJECT:G-OBJECT GTK::GTK-CLIPBOARD)) ; (GTK::SELECTION-DATA (GOBJECT:G-BOXED-FOREIGN GTK:GTK-SELECTION-DATA)) ; (GTK::INFO :UINT) (GTK::DATA :POINTER)) ; (LET ((GTK::FN (CAR #))) ; (RESTART-CASE (FUNCALL GTK::FN GTK::CLIPBOARD GTK::SELECTION-DATA ; GTK::INFO) ; (GTK::RETURN-FROM-GTK-CLIPBOARD-GET-FUNC-CB NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CLIPBOARD ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SELECTION-DATA ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-CLIPBOARD-CLEAR-FUNC-CB ; (FUNCALL GTK::FN GTK::CLIPBOARD) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-CLIPBOARD-CLEAR-FUNC-CB ; :VOID ; ((GTK::CLIPBOARD (GOBJECT:G-OBJECT GTK::GTK-CLIPBOARD)) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (CDR #))) ; (GLIB::FREE-STABLE-POINTER GTK::DATA) ; (RESTART-CASE (FUNCALL GTK::FN GTK::CLIPBOARD) ; (GTK::RETURN-FROM-GTK-CLIPBOARD-CLEAR-FUNC-CB NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CLIPBOARD ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY ; ==> ; (LET ((GTK::CLIPBOARD ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CLIPBOARD ; #)) ; (GTK::DATA GTK::DATA)) ; (BLOCK GTK::GTK-CLIPBOARD-CLEAR-FUNC-CB ; (LET ((GTK::FN #)) ; (GLIB::FREE-STABLE-POINTER GTK::DATA) ; (RESTART-CASE (FUNCALL GTK::FN GTK::CLIPBOARD) ; (GTK::RETURN-FROM-GTK-CLIPBOARD-CLEAR-FUNC-CB NIL NIL))))) ; ; note: doing SAP to pointer coercion (cost 20) to DATA ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.clipboard-tmpDNAAZUQ1.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.settings.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.settings-tmpSFHGUSI2.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.bindings.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.bindings-tmpJEMJHCAQ.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.mount-operation.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.mount-operation-tmpJV5SBQ61.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.buildable.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.buildable-tmpFHSB04A0.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.builder.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.builder.lisp ; in: DEFCALLBACK BUILDER-CONNECT-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::BUILDER GTK::OBJECT ; GTK::SIGNAL-NAME GTK::HANDLER-NAME GTK::CONNECT-OBJECT GTK::FLAGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::BUILDER-CONNECT-FUNC-CALLBACK ; :VOID ; ((GTK::BUILDER (GOBJECT:G-OBJECT GTK::GTK-BUILDER)) ; (GTK::OBJECT GOBJECT:G-OBJECT) ; (GTK::SIGNAL-NAME (:STRING :FREE-FROM-FOREIGN NIL)) ; (GTK::HANDLER-NAME (:STRING :FREE-FROM-FOREIGN NIL)) ; (GTK::CONNECT-OBJECT GOBJECT:G-OBJECT) (GTK::FLAGS GTK::CONNECT-FLAGS) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::BUILDER GTK::OBJECT GTK::SIGNAL-NAME ; GTK::HANDLER-NAME GTK::CONNECT-OBJECT GTK::FLAGS) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::BUILDER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::OBJECT ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SIGNAL-NAME ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::HANDLER-NAME ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CONNECT-OBJECT ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.builder-tmpQQZWJZI3.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/atk.implementor-iface.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/atk.implementor-iface-tmpPHMA69WA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.orientable.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.orientable-tmpXFTEJBZU.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.activatable.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.activatable-tmpXHDS9JD.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scrollable.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scrollable-tmp7DVUZNNP.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.actionable.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.actionable-tmpSLELCKLF.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.stock-images.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.stock-images-tmpRFCZGW36.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.widget-path.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.widget-path-tmpQPTRRFAI.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style-context.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style-context-tmpVZ9V8GEH.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style-provider.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style-provider-tmpI0YDSDVA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style-properties.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style-properties-tmpKLR0OPN5.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.theming-engine.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.theming-engine-tmpQNILNMER.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.css-provider.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.css-provider-tmpMAMO3XGR.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.icon-theme.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.icon-theme-tmp4CBIDXQU.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.style-tmp4M6Z7O9T.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.numerable-icon.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.numerable-icon-tmp3RKO0O0S.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.widget.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.widget-tmpJNADND61.fasl ; compilation finished in 0:00:00.236 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.misc.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.misc-tmpKEV7GFR4.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.container.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.container.lisp ; in: DEFCALLBACK GTK-CONTAINER-FOREACH-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::WIDGET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-CONTAINER-FOREACH-CB ; :VOID ; ((GTK::WIDGET (GOBJECT:G-OBJECT GTK:GTK-WIDGET)) (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::WIDGET) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::WIDGET ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.container-tmp13EJYBWB.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.bin.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.bin-tmp93YER753.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.range.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.range-tmpB50UYUD7.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-shell.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-shell-tmpXO9X6PIG.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.im-context.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.im-context-tmpBULZPU0U.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.box.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.box-tmp7R9QD7N9.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.table.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.table-tmpGP8R3FTA.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.grid.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.grid-tmp121QKS9N.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.layout.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.layout-tmp2JF031K4.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.fixed.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.fixed-tmpX1DK061H.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.notebook.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.notebook-tmp4FJCN3GX.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.paned.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.paned-tmpWO4JLIQB.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.expander.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.expander-tmpHBCFHPPX.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.alignment.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.alignment-tmp8ZEXUD27.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.button-box.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.button-box-tmp95B25LCL.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.header-bar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.header-bar-tmpAMNCEZSG.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.overlay.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.overlay-tmpVQGQLFW2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.action-bar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.action-bar-tmpXATIMY4E.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.flow-box.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.flow-box.lisp ; in: DEFCALLBACK GTK-FLOW-BOX-FILTER-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::CHILD) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-FLOW-BOX-FILTER-FUNC-CALLBACK ; :BOOLEAN ; ((GTK::CHILD (GOBJECT:G-OBJECT GTK::GTK-FLOW-BOX-CHILD)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::CHILD) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CHILD ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-FLOW-BOX-SORT-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::CHILD1 GTK::CHILD2) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-FLOW-BOX-SORT-FUNC-CALLBACK ; :INT ; ((GTK::CHILD1 (GOBJECT:G-OBJECT GTK::GTK-FLOW-BOX-CHILD)) ; (GTK::CHILD2 (GOBJECT:G-OBJECT GTK::GTK-FLOW-BOX-CHILD)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::CHILD1 GTK::CHILD2) ; (RETURN NIL -1))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CHILD1 ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CHILD2 ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-FLOW-BOX-CREATE-WIDGET-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ITEM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-FLOW-BOX-CREATE-WIDGET-FUNC-CALLBACK ; (GOBJECT:G-OBJECT GTK:GTK-WIDGET) ; ((GTK::ITEM GOBJECT:G-OBJECT) (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ITEM) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ITEM ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.flow-box-tmp3LJ5VTJR.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.list-box.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.list-box.lisp ; in: DEFCALLBACK GTK-LIST-BOX-FOREACH-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::BOX GTK::ROW) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-LIST-BOX-FOREACH-FUNC-CALLBACK ; :BOOLEAN ; ((GTK::BOX (GOBJECT:G-OBJECT GTK::GTK-LIST-BOX)) ; (GTK::ROW (GOBJECT:G-OBJECT GTK::GTK-LIST-BOX-ROW)) (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::BOX ; GTK::ROW) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::BOX ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ROW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-LIST-BOX-FILTER-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ROW) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-LIST-BOX-FILTER-FUNC-CALLBACK ; :BOOLEAN ; ((GTK::ROW (GOBJECT:G-OBJECT GTK::GTK-LIST-BOX-ROW)) (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ROW) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ROW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-LIST-BOX-UPDATE-HEADER-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ROW GTK::BEFORE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-LIST-BOX-UPDATE-HEADER-FUNC-CALLBACK ; :VOID ; ((GTK::ROW (GOBJECT:G-OBJECT GTK::GTK-LIST-BOX-ROW)) ; (GTK::BEFORE (GOBJECT:G-OBJECT GTK::GTK-LIST-BOX-ROW)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ROW ; GTK::BEFORE) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ROW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::BEFORE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-LIST-BOX-SORT-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ROW1 GTK::ROW2) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-LIST-BOX-SORT-FUNC-CALLBACK ; :INT ; ((GTK::ROW1 (GOBJECT:G-OBJECT GTK::GTK-LIST-BOX-ROW)) ; (GTK::ROW2 (GOBJECT:G-OBJECT GTK::GTK-LIST-BOX-ROW)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ROW1 ; GTK::ROW2) ; (RETURN NIL -1))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ROW1 ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ROW2 ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-LIST-BOX-CREATE-WIDGET-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ITEM) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-LIST-BOX-CREATE-WIDGET-FUNC-CALLBACK ; (GOBJECT:G-OBJECT GTK:GTK-WIDGET) ; ((GTK::ITEM GOBJECT:G-OBJECT) (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ITEM) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ITEM ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.list-box-tmp8VUWAF03.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.revealer.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.revealer-tmpJUI0JWVS.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.stack.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.stack-tmpHNA3KE33.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.separator.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.separator-tmp9QACGPOH.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.frame.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.frame-tmpST69PK2Q.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.aspect-frame.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.aspect-frame-tmpYAKMHP3C.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scrollbar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scrollbar-tmpT250CJEH.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scrolled-window.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scrolled-window-tmpZ5LLIZWU.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.window.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.window-tmpK87BOA56.fasl ; compilation finished in 0:00:00.083 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.dialog-tmpRL4WWIL2.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.invisible.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.invisible-tmp9PRKYPOC.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.message-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.message-dialog-tmp747V57QS.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.window-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.window-group-tmpK7KF0QEZ.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.about-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.about-dialog-tmp7L3QASG.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.assistant.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.assistant.lisp ; in: DEFINE-CB-METHODS GTK-ASSISTANT-PAGE-FUNC ; (GOBJECT:DEFINE-CB-METHODS GTK::GTK-ASSISTANT-PAGE-FUNC :INT ; ((GTK::CURRENT-PAGE :INT))) ; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP ; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF ; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET BLOCK LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP ; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF ; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET BLOCK LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI:FOREIGN-SLOT-VALUE #:DATA3 '(:STRUCT GOBJECT::OBJECT-FUNC-REF) ; :OBJECT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP ; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET LOCALLY LET BLOCK LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI:FOREIGN-SLOT-VALUE #:DATA3 '(:STRUCT GOBJECT::OBJECT-FUNC-REF) ; :OBJECT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.assistant-tmpSU9OHSB9.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.offscreen-window.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.offscreen-window-tmpTEZ5J20P.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.label.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.label-tmp7EQWE70T.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.accel-label.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.accel-label-tmp83ON8YFR.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.image.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.image-tmpEOOWYRL6.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.progress-bar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.progress-bar-tmpFDZ5SF8C.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.statusbar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.statusbar-tmp6MGXO15Y.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.level-bar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.level-bar-tmpSWPNJISY.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.info-bar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.info-bar-tmpUXH28IAQ.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.status-icon.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.status-icon-tmpRZXAYVZS.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.spinner.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.spinner-tmpFVBAZC5N.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.button-tmpEN1U5236.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toggle-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toggle-button-tmpWKFFHE0Z.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.check-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.check-button-tmpHCGNQVX4.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-button-tmpNZ1LR6KM.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.link-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.link-button-tmpPQVFZD5C.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scale-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scale-button-tmpE8JTPSGT.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.volume-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.volume-button-tmpXLGMUBFO.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.switch.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.switch-tmp85XVAH0V.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-button-tmpE4QSJJPV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.lock-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.lock-button-tmpW9VXJCU5.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-tag.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-tag-tmpIF3QWIV6.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-iter.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-iter.lisp ; in: DEFCALLBACK GTK-TEXT-CHAR-PREDICATE ; (FUNCALL FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNCTION is not known to be a function ; (GLIB:GET-STABLE-POINTER-VALUE GTK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-iter-tmp9BHJXQOA.fasl ; compilation finished in 0:00:00.166 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-mark.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-mark-tmp8MZGKR5X.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-buffer.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-buffer.lisp ; in: DEFCALLBACK GTK-TEXT-BUFFER-DESERIALIZE-CB ; (FUNCALL GTK::FN GTK::REGISTER-BUFFER GTK::CONTENT-BUFFER ITERATE:ITER ; GTK::BYTES GTK::CREATE-TAGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TEXT-BUFFER-DESERIALIZE-CB ; :BOOLEAN ; ((GTK::REGISTER-BUFFER (GOBJECT:G-OBJECT GTK::GTK-TEXT-BUFFER)) ; (GTK::CONTENT-BUFFER (GOBJECT:G-OBJECT GTK::GTK-TEXT-BUFFER)) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TEXT-ITER)) ; (GTK::DATA :POINTER) (LENGTH GLIB:G-SIZE) (GTK::CREATE-TAGS :BOOLEAN) ; (GTK::USER-DATA :POINTER) (ERROR :POINTER)) ; (GLIB:WITH-CATCHING-TO-G-ERROR (ERROR) ; (LET ((GTK::FN #)) ; (RESTART-CASE (LET # ; #) ; (GTK::RETURN-FROM-GTK-TEXT-BUFFER-DESERIALIZE-CB NIL #))))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::REGISTER-BUFFER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CONTENT-BUFFER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:WITH-CATCHING-TO-G-ERROR (ERROR) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::USER-DATA))) ; (RESTART-CASE (LET (#) ; (PROGN # T)) ; (GTK::RETURN-FROM-GTK-TEXT-BUFFER-DESERIALIZE-CB NIL ; (ERROR 'GTK::G-ERROR-CONDITION :DOMAIN "cl-gtk2" :CODE 0 :MESSAGE ; "'return-from-gtk-text-buffer-deserialize-cb' restart was called"))))) ; --> SB-INT:DX-FLET FLET #:FUN3 BLOCK PROGN ; ==> ; (GLIB::%G-SET-ERROR-LITERAL ERROR (GLIB::G-ERROR-CONDITION-DOMAIN GLIB::E) ; (GLIB::G-ERROR-CONDITION-CODE GLIB::E) ; (GLIB::G-ERROR-CONDITION-MESSAGE GLIB::E)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-TEXT-BUFFER-SERIALIZE-CB ; (FUNCALL GTK::FN GTK::REGISTER-BUFFER GTK::CONTENT-BUFFER GTK::START-ITER ; GTK::END-ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (LENGTH GTK::BYTES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ITERATE:ITER ; (ITERATE:FOR GTK::I GTK::FROM 0 GTK::BELOW (LENGTH GTK::BYTES)) ; (SETF (CFFI:MEM-AREF GTK::BYTES-PTR :UINT8 GTK::I) ; (AREF GTK::BYTES GTK::I))) ; --> BLOCK BLOCK TAGBODY PROGN PROGN LET* AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (CFFI:DEFCALLBACK GTK::GTK-TEXT-BUFFER-SERIALIZE-CB ; :POINTER ; ((GTK::REGISTER-BUFFER (GOBJECT:G-OBJECT GTK::GTK-TEXT-BUFFER)) ; (GTK::CONTENT-BUFFER (GOBJECT:G-OBJECT GTK::GTK-TEXT-BUFFER)) ; (GTK::START-ITER (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TEXT-ITER)) ; (GTK::END-ITER (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TEXT-ITER)) ; (LENGTH (:POINTER GLIB:G-SIZE)) (GTK::USER-DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::USER-DATA))) ; (RESTART-CASE (LET* (# #) ; (SETF #) ; (ITERATE:ITER ; # ; #) ; GTK::BYTES-PTR) ; (GTK::RETURN-FROM-GTK-TEXT-BUFFER-SERIALIZE-CB NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::REGISTER-BUFFER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CONTENT-BUFFER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::START-ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::END-ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-buffer-tmp54PLG5WT.fasl ; compilation finished in 0:00:00.133 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-tag-table.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-tag-table.lisp ; in: DEFCALLBACK GTK-TEXT-TAG-TABLE-FOREACH-FUNCTION ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::TAG) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TEXT-TAG-TABLE-FOREACH-FUNCTION ; :VOID ; ((GTK::TAG (GOBJECT:G-OBJECT GTK:GTK-TEXT-TAG)) (GTK::DATA :POINTER)) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::TAG)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TAG ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-tag-table-tmpGJ7DBMK8.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-view.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.text-view-tmp7O4V59Z5.fasl ; compilation finished in 0:00:00.063 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model.lisp ; in: DEFINE-VTABLE ("GtkTreeModel" GTK-TREE-MODEL) ; (GOBJECT:DEFINE-VTABLE ("GtkTreeModel" GTK::GTK-TREE-MODEL) ; (:SKIP GTK::G-IFACE (:STRUCT GOBJECT:G-TYPE-INTERFACE)) ; (:SKIP GTK::TREE-MODEL-ROW-CHANGED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROW-INSERTED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROW-HAS-CHILD-TOGGLED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROW-DELETED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROWS-REORDERED :POINTER) ; (GTK::GET-FLAGS ; (GTK::GTK-TREE-MODEL-FLAGS (GTK::TREE-MODEL GOBJECT:G-OBJECT))) ; (GTK::GET-N-COLUMNS (:INT (GTK::TREE-MODEL GOBJECT:G-OBJECT))) ; (GTK::GET-COLUMN-TYPE ; (GOBJECT:G-TYPE (GTK::TREE-MODEL GOBJECT:G-OBJECT) (GTK::INDEX :INT))) ; (GTK::GET-ITER ; (:BOOLEAN (GTK::TREE-MODEL GOBJECT:G-OBJECT) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK::GTK-TREE-ITER)) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK::GTK-TREE-PATH)))) ; ...) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN ; --> RETURN-FROM GTK::GTK-TREE-MODEL-GET-ITER-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-113" :IN GTK::GTK-TREE-MODEL-GET-ITER-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-110" :IN GTK::GTK-TREE-MODEL-GET-ITER-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-110) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-113) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; --> CFFI:TRANSLATE-TO-FOREIGN BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; --> CFFI:TRANSLATE-TO-FOREIGN BLOCK LET UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY ; --> RESTART-BIND LET PROGN RETURN-FROM GTK::GTK-TREE-MODEL-GET-PATH-IMPL ; --> PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-140" :IN GTK::GTK-TREE-MODEL-GET-PATH-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; --> CFFI:TRANSLATE-TO-FOREIGN BLOCK LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-140) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; --> CFFI:TRANSLATE-TO-FOREIGN BLOCK LET UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY ; --> RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GOBJECT:SET-G-VALUE GTK::VALUE GTK::V TYPE) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-168" :IN GTK::GTK-TREE-MODEL-GET-VALUE-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; (GOBJECT:DEFINE-VTABLE ("GtkTreeModel" GTK::GTK-TREE-MODEL) ; (:SKIP GTK::G-IFACE (:STRUCT GOBJECT:G-TYPE-INTERFACE)) ; (:SKIP GTK::TREE-MODEL-ROW-CHANGED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROW-INSERTED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROW-HAS-CHILD-TOGGLED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROW-DELETED :POINTER) ; (:SKIP GTK::TREE-MODEL-ROWS-REORDERED :POINTER) ; (GTK::GET-FLAGS ; (GTK::GTK-TREE-MODEL-FLAGS (GTK::TREE-MODEL GOBJECT:G-OBJECT))) ; (GTK::GET-N-COLUMNS (:INT (GTK::TREE-MODEL GOBJECT:G-OBJECT))) ; (GTK::GET-COLUMN-TYPE ; (GOBJECT:G-TYPE (GTK::TREE-MODEL GOBJECT:G-OBJECT) (GTK::INDEX :INT))) ; (GTK::GET-ITER ; (:BOOLEAN (GTK::TREE-MODEL GOBJECT:G-OBJECT) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK::GTK-TREE-ITER)) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK::GTK-TREE-PATH)))) ; ...) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-168) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY ; --> RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN RETURN-FROM ; --> GTK::GTK-TREE-MODEL-ITER-NEXT-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-192" :IN GTK::GTK-TREE-MODEL-ITER-NEXT-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-192) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN RETURN-FROM ; --> GTK::GTK-TREE-MODEL-ITER-PREVIOUS-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-219" :IN GTK::GTK-TREE-MODEL-ITER-PREVIOUS-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-219) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PARENT ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN ; --> RETURN-FROM GTK::GTK-TREE-MODEL-ITER-CHILDREN-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-250" :IN GTK::GTK-TREE-MODEL-ITER-CHILDREN-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-247" :IN GTK::GTK-TREE-MODEL-ITER-CHILDREN-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-247) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-250) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN RETURN-FROM ; --> GTK::GTK-TREE-MODEL-ITER-HAS-CHILD-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-277" :IN GTK::GTK-TREE-MODEL-ITER-HAS-CHILD-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-277) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET BLOCK LET ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN RETURN-FROM ; --> GTK::GTK-TREE-MODEL-ITER-N-CHILDREN-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-304" :IN GTK::GTK-TREE-MODEL-ITER-N-CHILDREN-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET BLOCK LET ; --> UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-304) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET BLOCK LET ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PARENT ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN ; --> RETURN-FROM GTK::GTK-TREE-MODEL-ITER-NTH-CHILD-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-337" :IN GTK::GTK-TREE-MODEL-ITER-NTH-CHILD-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-334" :IN GTK::GTK-TREE-MODEL-ITER-NTH-CHILD-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-334) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-337) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CHILD ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN ; --> RETURN-FROM GTK::GTK-TREE-MODEL-ITER-PARENT-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-368" :IN GTK::GTK-TREE-MODEL-ITER-PARENT-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-365" :IN GTK::GTK-TREE-MODEL-ITER-PARENT-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-365) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-368) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY ; --> RESTART-BIND LET PROGN RETURN-FROM GTK::GTK-TREE-MODEL-REF-NODE-IMPL ; --> PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-394" :IN GTK::GTK-TREE-MODEL-REF-NODE-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-394) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY ; --> RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY ; --> RESTART-BIND LET PROGN RETURN-FROM GTK::GTK-TREE-MODEL-UNREF-NODE-IMPL ; --> PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-415" :IN GTK::GTK-TREE-MODEL-UNREF-NODE-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-415) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK LET UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY ; --> RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-TREE-MODEL-FOREACH-CB ; (FUNCALL GTK::FN GTK::MODEL GTK::PATH ITERATE:ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-MODEL-FOREACH-CB ; :BOOLEAN ; ((GTK::MODEL GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK::GTK-TREE-PATH)) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK::GTK-TREE-ITER)) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (RESTART-CASE (FUNCALL GTK::FN GTK::MODEL GTK::PATH ITERATE:ITER) ; (GTK::STOP-TREE-MODEL-ITERATION NIL T) ; (GTK::SKIP-TREE-MODEL-CURRENT NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model-tmpY90L99EZ.fasl ; compilation finished in 0:00:00.160 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-layout.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-layout.lisp ; in: DEFCALLBACK GTK-CELL-LAYOUT-CELL-DATA-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::CELL-LAYOUT GTK::CELL ; GTK::TREE-MODEL ITERATE:ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-CELL-LAYOUT-CELL-DATA-FUNC-CALLBACK ; :VOID ; ((GTK::CELL-LAYOUT GOBJECT:G-OBJECT) (GTK::CELL GOBJECT:G-OBJECT) ; (GTK::TREE-MODEL GOBJECT:G-OBJECT) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-ITER)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::CELL-LAYOUT GTK::CELL GTK::TREE-MODEL ; ITERATE:ITER) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CELL-LAYOUT ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CELL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-layout-tmpXZJKL4Z8.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-sortable.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-sortable.lisp ; in: DEFINE-VTABLE ("GtkTreeSortable" GTK-TREE-SORTABLE) ; (GOBJECT:DEFINE-VTABLE ("GtkTreeSortable" GTK::GTK-TREE-SORTABLE) ; (:SKIP GTK::G-IFACE (:STRUCT GOBJECT:G-TYPE-INTERFACE)) ; (:SKIP GTK::SORT-COLUMNS-CHANGED :POINTER) ; (GTK::GET-SORT-COLUMN-ID ; (:BOOLEAN (GTK::SORTABLE (GOBJECT:G-OBJECT GTK::GTK-TREE-SORTABLE)) ; (GTK::SORT-COLUMN-ID (:POINTER :INT)) ; (GTK::ORDER (:POINTER GTK:GTK-SORT-TYPE))) ; :IMPL-CALL ; ((GTK::SORTABLE) ; (MULTIPLE-VALUE-BIND (GTK::SORTED-P GTK::R-SORT-COLUMN-ID GTK::R-ORDER) ; (GTK::GTK-TREE-SORTABLE-GET-SORT-COLUMN-ID-IMPL GTK::SORTABLE) ; (UNLESS # #) ; (UNLESS # #) ; GTK::SORTED-P))) ; (GTK::SET-SORT-COLUMN-ID ; (:VOID (GTK::SORTABLE (GOBJECT:G-OBJECT GTK::GTK-TREE-SORTABLE)) ; (GTK::SORT-COLUMN-ID :INT) (GTK::ORDER GTK:GTK-SORT-TYPE))) ; (GTK::SET-SORT-FUNC ; (:VOID (GTK::SORTABLE (GOBJECT:G-OBJECT GTK::GTK-TREE-SORTABLE)) ; (GTK::SORT-COLUMN-ID :INT) (GTK::FUNC :POINTER) (GTK::DATA :POINTER) ; (GTK::DESTROY-NOTIFY :POINTER))) ; (GTK::SET-DEFAULT-SORT-FUNC ; (:VOID (GTK::SORTABLE (GOBJECT:G-OBJECT GTK::GTK-TREE-SORTABLE)) ; (GTK::FUNC :POINTER) (GTK::DATA :POINTER) (GTK::DESTROY-NOTIFY :POINTER))) ; (GTK::HAS-DEFAULT-SORT-FUNC ; (:BOOLEAN (GTK::SORTABLE (GOBJECT:G-OBJECT GTK::GTK-TREE-SORTABLE))))) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SORTABLE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SORTABLE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SORTABLE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET ; --> PROGN RETURN-FROM ; ==> ; (GTK::GTK-TREE-SORTABLE-SET-SORT-FUNC-IMPL GTK::SORTABLE GTK::SORT-COLUMN-ID ; GTK::FUNC GTK::DATA ; GTK::DESTROY-NOTIFY) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SORTABLE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET BLOCK RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET ; --> PROGN RETURN-FROM ; ==> ; (GTK::GTK-TREE-SORTABLE-SET-DEFAULT-SORT-FUNC-IMPL GTK::SORTABLE GTK::FUNC ; GTK::DATA ; GTK::DESTROY-NOTIFY) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SORTABLE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-sortable-tmpHXNPA9C2.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view-drag-and-drop.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view-drag-and-drop.lisp ; in: DEFINE-VTABLE ("GtkTreeDragSource" GTK-TREE-DRAG-SOURCE) ; (GOBJECT:DEFINE-VTABLE ("GtkTreeDragSource" GTK::GTK-TREE-DRAG-SOURCE) ; (:SKIP GTK::G-IFACE (:STRUCT GOBJECT:G-TYPE-INTERFACE)) ; (GTK::ROW-DRAGGABLE ; (:BOOLEAN (GTK::TREE-DRAG-SOURCE GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)))) ; (GTK:DRAG-DATA-GET ; (:BOOLEAN (GTK::TREE-DRAG-SOURCE GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)) ; (GTK::SELECTION-DATA (GOBJECT:G-BOXED-FOREIGN GTK:GTK-SELECTION-DATA)))) ; (GTK:DRAG-DATA-DELETE ; (:BOOLEAN (GTK::TREE-DRAG-SOURCE GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH))))) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-DRAG-SOURCE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN RETURN-FROM ; --> GTK::GTK-TREE-DRAG-SOURCE-ROW-DRAGGABLE-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-8" :IN GTK::GTK-TREE-DRAG-SOURCE-ROW-DRAGGABLE-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-8) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-DRAG-SOURCE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SELECTION-DATA ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN ; --> RETURN-FROM GTK::GTK-TREE-DRAG-SOURCE-DRAG-DATA-GET-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-39" :IN GTK::GTK-TREE-DRAG-SOURCE-DRAG-DATA-GET-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-36" :IN GTK::GTK-TREE-DRAG-SOURCE-DRAG-DATA-GET-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-36) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-39) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-DRAG-SOURCE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN RETURN-FROM ; --> GTK::GTK-TREE-DRAG-SOURCE-DRAG-DATA-DELETE-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-66" :IN GTK::GTK-TREE-DRAG-SOURCE-DRAG-DATA-DELETE-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-66) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFINE-VTABLE ("GtkTreeDragDest" GTK-TREE-DRAG-DEST) ; (GOBJECT:DEFINE-VTABLE ("GtkTreeDragDest" GTK::GTK-TREE-DRAG-DEST) ; (:SKIP GTK::G-IFACE (:STRUCT GOBJECT:G-TYPE-INTERFACE)) ; (GTK:DRAG-DATA-RECEIVED ; (:BOOLEAN (GTK::TREE-DRAG-DEST GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)) ; (GTK::SELECTION-DATA (GOBJECT:G-BOXED-FOREIGN GTK:GTK-SELECTION-DATA)))) ; (GTK::ROW-DROP-POSSIBLE ; (:BOOLEAN (GTK::TREE-DRAG-DEST GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)) ; (GTK::SELECTION-DATA (GOBJECT:G-BOXED-FOREIGN GTK:GTK-SELECTION-DATA))))) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-DRAG-DEST ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SELECTION-DATA ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN ; --> RETURN-FROM GTK::GTK-TREE-DRAG-DEST-DRAG-DATA-RECEIVED-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-12" :IN GTK::GTK-TREE-DRAG-DEST-DRAG-DATA-RECEIVED-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-9" :IN GTK::GTK-TREE-DRAG-DEST-DRAG-DATA-RECEIVED-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-9) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-12) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-DRAG-DEST ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SELECTION-DATA ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET PROGN ; --> RETURN-FROM GTK::GTK-TREE-DRAG-DEST-ROW-DROP-POSSIBLE-IMPL PROGN ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-43" :IN GTK::GTK-TREE-DRAG-DEST-ROW-DROP-POSSIBLE-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (SB-C::%FUNCALL ; #'(FLET "CLEANUP-FUN-40" :IN GTK::GTK-TREE-DRAG-DEST-ROW-DROP-POSSIBLE-CALLBACK)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-40) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK LOCALLY ; ==> ; (#:CLEANUP-FUN-43) ; ; note: doing SAP to pointer coercion (cost 20) ; --> GOBJECT::GLIB-DEFCALLBACK CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK ; --> SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK ; --> LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM ; --> PROGN LET UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN RESTART-CASE BLOCK LET TAGBODY RETURN-FROM FUNCALL ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view-drag-and-drop-tmp6W89DJAF.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model-sort.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model-sort-tmp7RAVZUSP.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model-filter.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model-filter.lisp ; in: DEFCALLBACK GTK-TREE-MODEL-FILTER-VISIBLE-FUNC-CALLBACK ; (FUNCALL GTK::FN GTK::TREE-MODEL ITERATE:ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-MODEL-FILTER-VISIBLE-FUNC-CALLBACK ; :BOOLEAN ; ((GTK::TREE-MODEL GOBJECT:G-OBJECT) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-ITER)) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (RESTART-CASE (FUNCALL GTK::FN GTK::TREE-MODEL ITERATE:ITER) ; (GTK::RETURN-TRUE NIL T) ; (GTK::RETURN-FALSE NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-model-filter-tmpKR50OG05.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view.lisp ; in: DEFCALLBACK GTK-TREE-VIEW-COLUMN-DROP-FUNC-CB ; (FUNCALL GTK::FN GTK::TREE-VIEW GTK::COLUMN GTK::PREV-COLUMN GTK::NEXT-COLUMN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-VIEW-COLUMN-DROP-FUNC-CB ; :BOOLEAN ; ((GTK::TREE-VIEW GOBJECT:G-OBJECT) (GTK::COLUMN GOBJECT:G-OBJECT) ; (GTK::PREV-COLUMN GOBJECT:G-OBJECT) (GTK::NEXT-COLUMN GOBJECT:G-OBJECT) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (FUNCALL GTK::FN GTK::TREE-VIEW GTK::COLUMN GTK::PREV-COLUMN ; GTK::NEXT-COLUMN))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-VIEW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::COLUMN ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PREV-COLUMN ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::NEXT-COLUMN ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-TREE-VIEW-MAPPING-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::TREE-VIEW GTK::PATH) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-VIEW-MAPPING-FUNC-CB ; :VOID ; ((GTK::TREE-VIEW GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)) ; (GTK::DATA :POINTER)) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::TREE-VIEW ; GTK::PATH)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-VIEW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-TREE-VIEW-SEARCH-EQUAL-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::MODEL GTK::COLUMN ; GTK::KEY ITERATE:ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-VIEW-SEARCH-EQUAL-FUNC-CB ; :BOOLEAN ; ((GTK::MODEL GOBJECT:G-OBJECT) (GTK::COLUMN :INT) ; (GTK::KEY (:STRING :FREE-FROM-FOREIGN NIL)) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-ITER)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::MODEL ; GTK::COLUMN GTK::KEY ITERATE:ITER) ; (GTK::RETURN-TRUE NIL T) ; (GTK::RETURN-FALSE NIL T))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::KEY #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-TREE-VIEW-SEARCH-POSITION-FUNC ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::TREE-VIEW ; GTK::SEARCH-DIALOG) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-VIEW-SEARCH-POSITION-FUNC ; :VOID ; ((GTK::TREE-VIEW GOBJECT:G-OBJECT) (GTK::SEARCH-DIALOG GOBJECT:G-OBJECT) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::TREE-VIEW GTK::SEARCH-DIALOG) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-VIEW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SEARCH-DIALOG ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-TREE-VIEW-ROW-SEPARATOR-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::TREE-MODEL ; ITERATE:ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-VIEW-ROW-SEPARATOR-FUNC-CALLBACK ; :BOOLEAN ; ((GTK::TREE-MODEL GOBJECT:G-OBJECT) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-ITER)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::TREE-MODEL ITERATE:ITER) ; (GTK::RETURN-TRUE NIL T) ; (GTK::RETURN-FALSE NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view-tmpTLRJZ1UR.fasl ; compilation finished in 0:00:00.156 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view-column.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view-column.lisp ; in: DEFCALLBACK GTK-TREE-CELL-DATA-FUNC-CB ; (FUNCALL GTK::FN GTK::TREE-COLUMN GTK::CELL GTK::TREE-MODEL ITERATE:ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-CELL-DATA-FUNC-CB ; :VOID ; ((GTK::TREE-COLUMN (GOBJECT:G-OBJECT GTK::GTK-TREE-VIEW-COLUMN)) ; (GTK::CELL (GOBJECT:G-OBJECT GTK::GTK-CELL-RENDERER)) ; (GTK::TREE-MODEL (GOBJECT:G-OBJECT GTK:GTK-TREE-MODEL)) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-ITER)) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (RESTART-CASE (FUNCALL GTK::FN GTK::TREE-COLUMN GTK::CELL GTK::TREE-MODEL ; ITERATE:ITER) ; (GTK::RETURN-FROM-GTK-TREE-CELL-DATA-FUNC-CB NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-COLUMN ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CELL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::TREE-MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-view-column-tmpTJFR94DB.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-store.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-store-tmp12QLR4GC.fasl ; compilation finished in 0:00:00.060 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-selection.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-selection.lisp ; in: DEFCALLBACK GTK-TREE-SELECTION-SELECT-FUNCTION-CB ; (FUNCALL GTK::FN GTK::SELECTION GTK::MODEL GTK::PATH ; GTK::PATH-CURRENTLY-SELECTED) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-SELECTION-SELECT-FUNCTION-CB ; :BOOLEAN ; ((GTK::SELECTION GOBJECT:G-OBJECT) (GTK::MODEL GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)) ; (GTK::PATH-CURRENTLY-SELECTED :BOOLEAN) (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (RESTART-CASE (FUNCALL GTK::FN GTK::SELECTION GTK::MODEL GTK::PATH ; GTK::PATH-CURRENTLY-SELECTED) ; (GTK::RETURN-TRUE NIL T) ; (GTK::RETURN-FALSE NIL NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::SELECTION ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GTK-TREE-SELECTION-FOREACH-CB ; (FUNCALL GTK::FN GTK::MODEL GTK::PATH ITERATE:ITER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TREE-SELECTION-FOREACH-CB ; :VOID ; ((GTK::MODEL GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-ITER)) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (FUNCALL GTK::FN GTK::MODEL GTK::PATH ITERATE:ITER))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::MODEL ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tree-selection-tmpHNON3GN3.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-editable.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-editable-tmpUL4IFWT3.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-tmpOKX06099.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-text.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-text-tmp3PQWDVVX.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-pixbuf.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-pixbuf-tmpFJAR440P.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-progress.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-progress-tmpM2X5AGVD.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-accel.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-accel-tmpV9XLLI3F.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-combo.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-combo-tmpCNL9LF4O.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-spin.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-spin-tmpA2MZF3D.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-toggle.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-toggle-tmp820USYC0.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-spinner.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-renderer-spinner-tmpAP7D2UW2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-area.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-area-tmpU93Z06A.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-area-box.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-area-box-tmpL3K5PO5H.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-area-context.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-area-context-tmpPP843P2R.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-view.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.cell-view-tmpBK2QBAFY.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.icon-view.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.icon-view.lisp ; in: DEFCALLBACK GTK-ICON-VIEW-FOREACH-FUNC-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::ICON-VIEW GTK::PATH) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-ICON-VIEW-FOREACH-FUNC-CALLBACK ; :VOID ; ((GTK::ICON-VIEW GOBJECT:G-OBJECT) ; (GTK::PATH (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-PATH)) ; (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::ICON-VIEW GTK::PATH) ; (RETURN NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::ICON-VIEW ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.icon-view-tmpAHPKJ6EW.fasl ; compilation finished in 0:00:00.103 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.list-store.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.list-store-tmpJJIXGGXK.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.array-list-store.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.array-list-store-tmpMYEEYI7L.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.editable.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.editable-tmp2OZ1RF2X.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.entry.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.entry-tmpMABYFPD4.fasl ; compilation finished in 0:00:00.073 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.entry-buffer.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.entry-buffer-tmpO0782EL2.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.entry-completion.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.entry-completion.lisp ; in: DEFINE-CB-METHODS GTK-ENTRY-COMPLETION-MATCH-FUNC ; (GOBJECT:DEFINE-CB-METHODS GTK::GTK-ENTRY-COMPLETION-MATCH-FUNC :BOOLEAN ; ((GTK::COMPLETION ; (GOBJECT:G-OBJECT GTK:GTK-ENTRY-COMPLETION)) ; (GTK::KEY :STRING) ; (ITERATE:ITER ; (GOBJECT:G-BOXED-FOREIGN GTK:GTK-TREE-ITER)))) ; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP ; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF ; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP ; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF ; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::COMPLETION ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::KEY #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ITERATE:ITER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP ; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF ; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET IF BLOCK LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI:FOREIGN-SLOT-VALUE #:DATA3 '(:STRUCT GOBJECT::OBJECT-FUNC-REF) ; :OBJECT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP ; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET LOCALLY LET BLOCK LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI:FOREIGN-SLOT-VALUE #:DATA3 '(:STRUCT GOBJECT::OBJECT-FUNC-REF) ; :OBJECT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.entry-completion-tmpFXGDO0E3.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scale.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.scale-tmpLCE8PO0U.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.spin-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.spin-button-tmpS48VDGU2.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.search-entry.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.search-entry-tmp5LF2452A.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.search-bar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.search-bar-tmpTSFGDAZ7.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-item-tmpGJFUKHN2.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu.lisp ; in: DEFCALLBACK GTK-MENU-POSITION-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::MENU) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-MENU-POSITION-FUNC-CB ; :VOID ; ((GTK::MENU GOBJECT:G-OBJECT) (GTK::X :POINTER) (GTK::Y :POINTER) ; (GTK::PUSH-IN :POINTER) (GTK::DATA :POINTER)) ; (RESTART-CASE (MULTIPLE-VALUE-BIND (GTK::RX GTK::RY GTK::RPUSH-IN) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::MENU) ; (SETF # GTK::RX ; # GTK::RY ; # GTK::RPUSH-IN)) ; (GTK::RETURN-ZERO NIL ; (SETF # 0 ; # 0 ; # NIL)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::MENU ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-tmpRLWVC93J.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-bar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-bar-tmpLJXQSCJY.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.check-menu-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.check-menu-item-tmp4OLR0J6X.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-menu-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-menu-item-tmp6XXQRAHN.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.image-menu-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.image-menu-item-tmpGO08YVIW.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.separator-menu-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.separator-menu-item-tmpW4V46RST.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tearoff-menu-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tearoff-menu-item-tmp3OJ639ET.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.combo-box.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.combo-box-tmpB4L1425D.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.combo-box-text.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.combo-box-text-tmpFG7U3LX.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-shell.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-shell-tmpRB2S59DB.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-item-tmpU1JZ7FXZ.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-item-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-item-group-tmp2DUJ9I.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toolbar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toolbar-tmpU602JQSD.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-palette.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-palette-tmp5O3OCPXW.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.separator-tool-item.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.separator-tool-item-tmpOLTFAEPG.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tool-button-tmpUZ4MPL4A.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toggle-tool-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toggle-tool-button-tmpBQS2IZ67.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-tool-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-tool-button-tmpDEX1AB43.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-tool-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.menu-tool-button-tmpXEL4GRQG.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.popover.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.popover-tmpBLHHY8QV.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-chooser.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-chooser-tmpGMYRLBUL.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-button-tmpLT3BCQID.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-chooser-widget.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-chooser-widget-tmp7AGUJ6PJ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-chooser-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-chooser-dialog-tmpADFMBTPY.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-selection.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-selection.lisp ; in: DEFUN GTK-COLOR-SELECTION-PALETTE-FROM-STRING ; (ITERATE:ITER ; (ITERATE:WITH GTK::COLORS-AR = (CFFI:MEM-REF GTK::COLORS :POINTER)) ; (ITERATE:FOR GTK::I GTK::FROM 0 GTK::BELOW ; (CFFI:MEM-REF GTK::N-COLORS :INT)) ; (ITERATE:FOR GTK::COLOR-PTR = ; (CFFI-SYS:INC-POINTER GTK::COLORS-AR ; (* GTK::I ; (CFFI:FOREIGN-TYPE-SIZE ; 'GDK::GDK-COLOR-CSTRUCT)))) ; (ITERATE:FOR GTK::COLOR = ; (CFFI:CONVERT-FROM-FOREIGN GTK::COLOR-PTR ; '(GOBJECT:G-BOXED-FOREIGN GDK:GDK-COLOR))) ; (ITERATE:COLLECT GTK::COLOR) ; (ITERATE:FINALLY (GLIB:G-FREE GTK::COLORS-AR))) ; --> BLOCK BLOCK TAGBODY PROGN SETQ CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::GDK-COLOR-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER ; (:STRUCT ; GDK::GDK-COLOR-CSTRUCT)) or (:STRUCT ; GDK::GDK-COLOR-CSTRUCT) instead. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-selection-tmpJ65DAF15.fasl ; compilation finished in 0:00:00.023 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-selection-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.color-selection-dialog-tmpIXT65XFP.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.hsv.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.hsv-tmpAJ0SGYIK.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser-tmpJ2HJZECB.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser-widget.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser-widget-tmpXY4FGAPA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser-button-tmp1MDGH4SW.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-chooser-dialog-tmpV8WTFLZM.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-filter.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.file-filter-tmpX2YW1LTJ.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-chooser.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-chooser.lisp ; in: DEFCALLBACK GTK-FONT-FILTER-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::FAMILY GTK::FACE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-FONT-FILTER-FUNC-CB ; :BOOLEAN ; ((GTK::FAMILY (GOBJECT:G-OBJECT PANGO:PANGO-FONT-FAMILY)) ; (GTK::FACE (GOBJECT:G-OBJECT PANGO:PANGO-FONT-FACE)) ; (GTK::DATA :POINTER)) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::FAMILY GTK::FACE)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::FAMILY ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::FACE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-chooser-tmpLB88W1T5.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-button-tmp3F80YMF6.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-chooser-widget.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-chooser-widget-tmpJJORT7HU.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-chooser-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-chooser-dialog-tmp5DBB8JTB.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-selection.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-selection-tmpZSBL0HHQ.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-selection-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.font-selection-dialog-tmpV1RXKPB.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.places-sidebar.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.places-sidebar-tmp3SZ0XWQD.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.adjustment.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.adjustment-tmp9YHAVVS9.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.arrow.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.arrow-tmp92WUBED1.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.calendar.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.calendar.lisp ; in: DEFCALLBACK GTK-CALENDAR-DETAIL-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::CALENDAR GTK::YEAR ; GTK::MONTH GTK::DAY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-CALENDAR-DETAIL-FUNC-CB ; (GLIB:G-STRING :FREE-TO-FOREIGN NIL :FREE-FROM-FOREIGN NIL) ; ((GTK::CALENDAR (GOBJECT:G-OBJECT GTK::GTK-CALENDAR)) (GTK::YEAR :UINT) ; (GTK::MONTH :UINT) (GTK::DAY :UINT) (GTK::DATA :POINTER)) ; (RESTART-CASE (OR ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; GTK::CALENDAR GTK::YEAR GTK::MONTH GTK::DAY) ; (CFFI-SYS:NULL-POINTER)) ; (GTK::RETURN-NULL NIL (CFFI-SYS:NULL-POINTER)))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::CALENDAR ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; (CFFI-SYS:NULL-POINTER) ; --> BLOCK ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.calendar-tmpAHBBVXUF.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.drawing-area.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.drawing-area-tmpFIDDIIG7.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.event-box.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.event-box-tmpB1G5I0B3.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.handle-box.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.handle-box-tmp6W3P1H2J.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.im-context-simple.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.im-context-simple-tmpGOHEOA1Y.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.im-multicontext.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.im-multicontext-tmpT2G5POAL.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.size-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.size-group-tmpT5NQ1VS1.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tooltip.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.tooltip-tmpZVTPRQAR.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.viewport.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.viewport-tmpTWZBZGN3.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.gl-area.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.gl-area-tmpVLA2P6BV.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.plug.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.plug-tmpC1S9JRL9.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.socket.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.socket-tmpYZ5WO3E4.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-manager.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-manager-tmpHJA5IVPZ.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser.lisp ; in: DEFCALLBACK GTK-RECENT-SORT-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::A GTK::B) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-RECENT-SORT-FUNC-CB ; :INT ; ((GTK::A (GOBJECT:G-BOXED-FOREIGN GTK:GTK-RECENT-INFO)) ; (GTK::B (GOBJECT:G-BOXED-FOREIGN GTK:GTK-RECENT-INFO)) ; (GTK::DATA :POINTER)) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::A GTK::B)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::A ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::B ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser-tmp3WS4A21E.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser-dialog-tmpPQ4U054N.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser-menu.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser-menu-tmpC8SA9SZN.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser-widget.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-chooser-widget-tmpWC0QU1SK.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-filter.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-filter.lisp ; in: DEFCALLBACK GTK-RECENT-FILTER-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::FILTER-INFO) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::FILTER-INFO) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-filter-tmpQQZMKNNN.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.ui-manager.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.ui-manager-tmpIDPPBBFN.fasl ; compilation finished in 0:00:00.083 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.action.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.action-tmp9FP9ZO2K.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.action-group.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.action-group.lisp ; in: DEFCALLBACK GTK-TRANSLATE-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::PATH) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-TRANSLATE-FUNC-CB ; (:STRING :FREE-TO-FOREIGN NIL :FREE-FROM-FOREIGN NIL) ; ((GTK::PATH (:STRING :FREE-FROM-FOREIGN NIL)) (GTK::DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::PATH) ; (GTK::RETURN-UNTRANSLATED NIL GTK::PATH))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PATH #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.action-group-tmpTHQO2IGY.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toggle-action.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.toggle-action-tmpXGCY36O9.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-action.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.radio-action-tmpAZECCWRG.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-action.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.recent-action-tmpG300S9SF.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser-tmp809IFK9M.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser-button.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser-button-tmpSB12JM8J.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser-dialog-tmpBPQSLJ17.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser-widget.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.app-chooser-widget-tmpTAX50JN7.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-operation.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-operation.lisp ; in: DEFCALLBACK GTK-PAGE-SETUP-DONE-FUNC-CB ; (FUNCALL GTK::FN GTK::PAGE-SETUP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-PAGE-SETUP-DONE-FUNC-CB ; :VOID ; ((GTK::PAGE-SETUP (GOBJECT:G-OBJECT GTK::GTK-PAGE-SETUP)) ; (GTK::DATA :POINTER)) ; (LET ((GTK::FN (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA))) ; (FUNCALL GTK::FN GTK::PAGE-SETUP))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PAGE-SETUP ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-operation-tmpLPRKFQ4F.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-context.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-context-tmp8VQNX3K0.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.paper-size.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.paper-size-tmpD0G9A1XR.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-settings.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-settings-tmp94C6TZKL.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.page-setup.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.page-setup-tmpVSFQJ80K.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-unix-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-unix-dialog-tmpPLK5HVAF.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.page-setup-unix-dialog.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.page-setup-unix-dialog-tmp5FHTGX61.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.printer.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.printer.lisp ; in: DEFCALLBACK GTK-PRINTER-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::PRINTER) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-PRINTER-FUNC-CB ; :BOOLEAN ; ((GTK::PRINTER (GOBJECT:G-OBJECT GTK::GTK-PRINTER)) (GTK::DATA :POINTER)) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::PRINTER)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PRINTER ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.printer-tmpKUF556D3.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-job.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-job.lisp ; in: DEFCALLBACK GTK-PRINT-JOB-COMPLETE-FUNC-CB ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::PRINT-JOB ERROR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CFFI:DEFCALLBACK GTK::GTK-PRINT-JOB-COMPLETE-FUNC-CB ; :VOID ; ((GTK::PRINT-JOB (GOBJECT:G-OBJECT GTK::GTK-PRINT-JOB)) ; (GTK::DATA :POINTER) (ERROR :POINTER)) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::PRINT-JOB ERROR)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GTK::PRINT-JOB ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) GTK::PRINT-JOB ERROR) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.print-job-tmpS8HGASGU.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.application.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.application-tmpLXEY4I7N.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.application-window.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.application-window-tmp1PA6XKV0.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.resource-files.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.resource-files-tmpEW48DPG8.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-cffi-gtk/gtk/gtk.init.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-cffi-gtk/gtk/gtk.init.lisp ; in: DEFCALLBACK CALL-FROM-MAIN-LOOP-CALLBACK ; (FUNCALL (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (GLIB:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cffi-gtk/gtk/gtk.init-tmp4ULRYCDK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.package.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.package-tmpV4ITDAY7.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/util.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/util-tmpTU3G94ZX.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/translate.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/translate-tmp135V1U5P.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/macros.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/macros-tmpCWE62HDI.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/callback.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/callback-tmpS0IX89E9.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/gerror.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/gerror-tmpYZNO705I.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/libsoup.message-headers.lisp" (written 20 OCT 2024 03:56:41 PM): ; file: /startdir/src/_build/cl-webkit/webkit2/libsoup.message-headers.lisp ; in: DEFCALLBACK COLLECT-HEADER-NAMES ; (CFFI:DEFCALLBACK CL-WEBKIT2::COLLECT-HEADER-NAMES ; :VOID ; ((CL-WEBKIT2::NAME :STRING) (CL-WEBKIT2::VALUE :STRING) ; (CL-WEBKIT2::USER-DATA :POINTER)) ; (DECLARE (IGNORE CL-WEBKIT2::USER-DATA)) ; (PUSHNEW (CONS CL-WEBKIT2::NAME CL-WEBKIT2::VALUE) ; CL-WEBKIT2::*HEADER-NAMES* :TEST #'STRING-EQUAL :KEY #'FIRST)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN CL-WEBKIT2::NAME ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN CL-WEBKIT2::VALUE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/libsoup.message-headers-tmpZCDMKLMV.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.init.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.init-tmp8PPPCD7W.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.error.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.error-tmp9XWMC5IU.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.authentication-request.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.authentication-request-tmpHZ96ZBZW.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.back-forward-list-item.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.back-forward-list-item-tmpBGQALD1G.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.back-forward-list.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.back-forward-list-tmp2DOYW25X.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.cookie-manager.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.cookie-manager-tmp9030DGPL.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.context-menu-item.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.context-menu-item-tmpU3EEB71F.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.context-menu.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.context-menu-tmpY35TOM58.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.download.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.download-tmp2N9C8E1O.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.favicon-database.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.favicon-database-tmpK6PVYHW5.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.color-chooser-request.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.color-chooser-request-tmpQ4PVTQY4.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.file-chooser-request.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.file-chooser-request-tmpQ5W1BFSI.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.find-controller.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.find-controller-tmpKFZB7CG6.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.form-submission-request.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.form-submission-request-tmpEBQXHK8C.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.hit-test-result.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.hit-test-result-tmpWFVO1741.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.permission-request.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.permission-request-tmpEGBHF4JG.fasl ; compilation finished in 0:00:00.106 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.plugin.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.plugin-tmpDMKZ90UH.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.print-operation.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.print-operation-tmpI4CB9XP0.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.script-world.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.script-world-tmpB6CZFPOR.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.frame.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.frame-tmpR0HRL6AF.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkitdom.dom-object.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkitdom.dom-object-tmpJW9LMMDM.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/jscore.js-value-ref.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/jscore.js-value-ref-tmp5AU4YXDC.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-exception.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-exception-tmpGYUJ95L8.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-context.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-context-tmpSX2NSBN5.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-class.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-class-tmpGSOGECKD.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-value.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/jscore.jsc-value-tmpFADXA8WA.fasl ; compilation finished in 0:00:00.076 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.security-manager.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.security-manager-tmpN3NRP2FJ.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.settings.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.settings-tmpWFHX3XN3.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-request.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-request-tmp47S258KN.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-response.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-response-tmpE4V4F8OD.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.policy-decision.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.policy-decision-tmpLCU5UNL8.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.navigation-policy-decision.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.navigation-policy-decision-tmpYY5JG2YX.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.response-policy-decision.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.response-policy-decision-tmpK2OIRK3I.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.navigation-action.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.navigation-action-tmpLMNSRE4F.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.user-content.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.user-content-tmpFH2B6ZC1.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.user-content-filter-store.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.user-content-filter-store-tmp9ESR3THZ.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.user-content-manager.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.user-content-manager-tmpEP9DKHA4.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.network-proxy-settings.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.network-proxy-settings-tmp6GNWGQ69.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.web-context.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.web-context-tmpTOEVPV91.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.web-page.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.web-page-tmpJKXRXFYA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.web-resource.lisp" (written 20 OCT 2024 03:56:41 PM): ; file: /startdir/src/_build/cl-webkit/webkit2/webkit2.web-resource.lisp ; in: DEFCALLBACK RESOURCE-DATA-RECEIVED ; (FUNCALL (CL-WEBKIT2::CALLBACK-ERROR-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::C) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FUNCALL (CL-WEBKIT2::CALLBACK-FUNCTION CFFI:CALLBACK) ; (CFFI:FOREIGN-ARRAY-TO-LISP CL-WEBKIT2::RESULT ; `(:ARRAY :INT ; ,(CFFI:MEM-REF LENGTH :INT)))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: doing unsigned word to integer coercion (cost 20) ; (CL-WEBKIT2::WEBKIT-WEB-RESOURCE-GET-DATA-FINISH CL-WEBKIT2::SOURCE-OBJECT ; CL-WEBKIT2::RESULT LENGTH) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.web-resource-tmpKW802XDA.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.website-data-manager.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.website-data-manager-tmpO26O9DBY.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.web-inspector.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.web-inspector-tmpYLEULPBM.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.web-view.lisp" (written 20 OCT 2024 03:56:41 PM): ; file: /startdir/src/_build/cl-webkit/webkit2/webkit2.web-view.lisp ; in: DEFCALLBACK JAVASCRIPT-EVALUATION-COMPLETE ; (FUNCALL (CL-WEBKIT2::CALLBACK-ERROR-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::C) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FUNCALL (CL-WEBKIT2::CALLBACK-FUNCTION CFFI:CALLBACK) ; (CL-WEBKIT2::JSC-VALUE-TO-LISP CL-WEBKIT2::VALUE) CL-WEBKIT2::VALUE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: doing unsigned word to integer coercion (cost 20) ; (CL-WEBKIT2::WEBKIT-WEB-VIEW-RUN-JAVASCRIPT-FINISH ; (CL-WEBKIT2::CALLBACK-WEB-VIEW CFFI:CALLBACK) CL-WEBKIT2::RESULT) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK CAN-EXECUTE-COMMAND-CHECKED ; (FUNCALL (CL-WEBKIT2::CALLBACK-ERROR-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::C) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FUNCALL (CL-WEBKIT2::CALLBACK-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::REPLY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: doing unsigned word to integer coercion (cost 20) ; (CL-WEBKIT2::WEBKIT-WEB-VIEW-CAN-EXECUTE-EDITING-COMMAND-FINISH ; CL-WEBKIT2::SOURCE-OBJECT CL-WEBKIT2::RESULT) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK MESSAGE-REPLIED-TO ; (FUNCALL (CL-WEBKIT2::CALLBACK-ERROR-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::C) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (DELETE CFFI:CALLBACK CL-WEBKIT2::CALLBACKS) ; ; note: unable to ; convert to EQ test ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; (FUNCALL (CL-WEBKIT2::CALLBACK-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::REPLY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: doing unsigned word to integer coercion (cost 20) ; (CL-WEBKIT2::WEBKIT-WEB-VIEW-SEND-MESSAGE-TO-PAGE-FINISH ; CL-WEBKIT2::SOURCE-OBJECT CL-WEBKIT2::RESULT) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.web-view-tmpF9PT7DQ2.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.g-input-stream.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.g-input-stream-tmpZVXJSSK9.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-scheme-response.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-scheme-response-tmpHE83XZ7O.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-scheme-request.lisp" (written 20 OCT 2024 03:56:41 PM): ; file: /startdir/src/_build/cl-webkit/webkit2/webkit2.uri-scheme-request.lisp ; in: DEFCALLBACK URI-SCHEME-PROCESSED ; (FUNCALL (CL-WEBKIT2::CALLBACK-ERROR-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::C) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (CL-WEBKIT2::CALLBACK-FUNCTION CFFI:CALLBACK) CL-WEBKIT2::REQUEST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH CL-WEBKIT2::BODY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CFFI:DEFCALLBACK CL-WEBKIT2::URI-SCHEME-PROCESSED ; :VOID ; ((CL-WEBKIT2::REQUEST ; (GOBJECT:G-OBJECT CL-WEBKIT2::WEBKIT-URI-SCHEME-REQUEST)) ; (CL-WEBKIT2::USER-DATA :POINTER)) ; (GOBJECT:G-OBJECT-REF (GOBJECT:POINTER CL-WEBKIT2::REQUEST)) ; (BORDEAUX-THREADS:MAKE-THREAD ; (LAMBDA () ; (LET (#) ; (WHEN # #))))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN CL-WEBKIT2::REQUEST ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; (LAMBDA () ; (LET ((CFFI:CALLBACK ; (FIND # CL-WEBKIT2::CALLBACKS :KEY #'CL-WEBKIT2::CALLBACK-ID))) ; (WHEN (CL-WEBKIT2::CALLBACK-FUNCTION CFFI:CALLBACK) ; (DESTRUCTURING-BIND ; (CL-WEBKIT2::DATA ; &OPTIONAL # # CL-WEBKIT2::HEADERS-ALIST CL-WEBKIT2::STATUS-REASON) ; (MULTIPLE-VALUE-LIST #) ; (HANDLER-CASE # #))))) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; (FIND (CFFI-SYS:POINTER-ADDRESS CL-WEBKIT2::USER-DATA) CL-WEBKIT2::CALLBACKS ; :KEY #'CL-WEBKIT2::CALLBACK-ID) ; ; note: doing unsigned word to integer coercion (cost 20) ; (CFFI-SYS:NULL-POINTER) ; --> BLOCK ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-scheme-request-tmpU3H21CW4.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.window-properties.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.window-properties-tmp6L9FXRGE.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-utilities.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.uri-utilities-tmp4SNFF0M5.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.user-message.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.user-message-tmpCM27R9AJ.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.web-extension.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.web-extension-tmp46E7TEHY.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/jsc-utils.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/jsc-utils-tmpMW4DE87N.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/cl-webkit/webkit2/webkit2.notification.lisp" (written 20 OCT 2024 03:56:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-webkit/webkit2/webkit2.notification-tmp2JNAKTBR.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-jpl-util/package.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/package-tmpMR8VKH1U.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-jpl-util/types.lisp" (written 20 OCT 2024 03:56:34 PM): ; file: /startdir/src/_build/cl-jpl-util/types.lisp ; in: DEFUN DESIGNATED-FUNCTION ; (ERROR "~S designates a ~S, not a function." JPL-UTIL::EXTENDED-DESIGNATOR ; (TYPE-OF JPL-UTIL::DEFINITION)) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/types-tmp4HP247ND.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-jpl-util/gensyms.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/gensyms-tmpCBPA3J2K.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-jpl-util/accumulators.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/accumulators-tmpUKEKWS3E.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-jpl-util/iterators.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/iterators-tmpP1N1L2FE.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-jpl-util/jpl-util.lisp" (written 20 OCT 2024 03:56:34 PM): ; file: /startdir/src/_build/cl-jpl-util/jpl-util.lisp ; in: DEFINE-COMPILER-MACRO COMPOSE ; (DEFINE-COMPILER-MACRO JPL-UTIL:COMPOSE ; (&REST JPL-UTIL::FUNCTION-EXPRS) ; (FLET ((JPL-UTIL::FUNCTION-CALL-EXPR ; (JPL-UTIL::FUNC-EXPR JPL-UTIL::ARGS-EXPR) ; #<(SIMPLE-ARRAY CHARACTER ; (223)) Given an expression of a function designator, and an ; expression of multiple values to be used as multiple arguments to that ; function, returns an expression of a call to the designated function ; with th... {1200DD0C4F}> ; `(MULTIPLE-VALUE-CALL ,JPL-UTIL::FUNC-EXPR ,JPL-UTIL::ARGS-EXPR))) ; (JPL-UTIL:WITH-GENSYMS (JPL-UTIL::ARGS%) ; `(LAMBDA (&REST ,JPL-UTIL::ARGS%) ; ,(REDUCE #'JPL-UTIL::FUNCTION-CALL-EXPR JPL-UTIL::FUNCTION-EXPRS ; :INITIAL-VALUE `# :FROM-END T))))) ; --> EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO 'JPL-UTIL:COMPOSE ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; JPL-UTIL:COMPOSE) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (&REST JPL-UTIL::FUNCTION-EXPRS))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; JPL-UTIL:COMPOSE ; . DEFINE-COMPILER-MACRO) ; (&REST JPL-UTIL::FUNCTION-EXPRS) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (DECLARE ; (SB-C::CONSTANT-VALUE ; JPL-UTIL::FUNCTION-EXPRS) ; (SB-C::NO-COMPILER-MACRO JPL-UTIL:COMPOSE)) ; (BLOCK JPL-UTIL:COMPOSE ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; 1 call to JPL-UTIL:COMPOSE 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: DEFUN INTEGER-DIGITS ; (TRUNCATE JPL-UTIL::N JPL-UTIL::RADIX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (INTEGER 2), not a FIXNUM. ; (DEFUN JPL-UTIL:INTEGER-DIGITS (JPL-UTIL::INT &OPTIONAL (JPL-UTIL::RADIX 10)) ; "Expresses the given non-negative integer as a fresh list of digits ; in the given radix. The list of digits is ordered most-significant ; first. When INT is 0, a list with just 0 is returned." ; (DECLARE (TYPE (INTEGER 0) JPL-UTIL::INT) ; (TYPE (INTEGER 2) JPL-UTIL::RADIX) ; (OPTIMIZE SPEED)) ; (LET ((JPL-UTIL::DIGITS 'NIL)) ; (COND ((ZEROP JPL-UTIL::INT) (PUSH 0 JPL-UTIL::DIGITS)) ; (T ; (LOOP JPL-UTIL::WITH JPL-UTIL::N = JPL-UTIL::INT ; JPL-UTIL::UNTIL # ; JPL-UTIL::DOING #))) ; JPL-UTIL::DIGITS)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND IF ; --> PROGN SB-KERNEL:THE* #:G5 ; ==> ; 1 ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND IF THE ; --> PROGN SB-KERNEL:THE* #:G6 ; ==> ; 1 ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN INTEGER-DIGIT-COUNT ; (TRUNCATE JPL-UTIL::LB JPL-UTIL::RADIX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL (1)), not a INTEGER. ; The second argument is a (INTEGER 2), not a FIXNUM. ; (DEFUN JPL-UTIL:INTEGER-DIGIT-COUNT ; (JPL-UTIL::N &OPTIONAL (JPL-UTIL::RADIX 10)) ; "Returns the number of digits required to represent the given ; non-negative integer in RADIX. ; ; (integer-digit-count N RADIX) == (length (integer-digits N RADIX))" ; (DECLARE (TYPE (INTEGER 0) JPL-UTIL::N) ; (TYPE (INTEGER 2) JPL-UTIL::RADIX) ; (OPTIMIZE SPEED)) ; (LABELS ((JPL-UTIL::TRY-ESTIMATE (JPL-UTIL::DIGITS) ; (LET* # ; #)) ; (JPL-UTIL::TRY-ESTIMATE/DESCENDING (JPL-UTIL::DIGITS JPL-UTIL::LB) ; (IF # ; # ; JPL-UTIL::DIGITS)) ; (JPL-UTIL::TRY-NEXT-LOWER (JPL-UTIL::DIGITS JPL-UTIL::LB) ; (JPL-UTIL::TRY-ESTIMATE/DESCENDING # #)) ; (JPL-UTIL::TRY-ESTIMATE/ASCENDING (JPL-UTIL::DIGITS JPL-UTIL::UB) ; (IF # ; # ; JPL-UTIL::DIGITS)) ; (JPL-UTIL::TRY-NEXT-HIGHER (JPL-UTIL::DIGITS JPL-UTIL::UB) ; (JPL-UTIL::TRY-ESTIMATE/ASCENDING # #))) ; (IF (ZEROP JPL-UTIL::N) ; 1 ; (JPL-UTIL::TRY-ESTIMATE ; (IF # ; 1 ; #))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND IF ; --> PROGN SB-KERNEL:THE* #:G1 ; ==> ; 1 ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND IF THE ; --> PROGN SB-KERNEL:THE* #:G2 ; ==> ; 1 ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (1+ (FLOOR (LOG JPL-UTIL::N JPL-UTIL::RADIX))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER * 4611685743549480960) ; (INTEGER 4611686018427387904)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER * 4611685743549480961) ; (INTEGER 4611686018427387905)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * 4611685743549480960) ; (INTEGER 4611686018427387904)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER * 4611685743549480961) ; (INTEGER 4611686018427387905)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (1- JPL-UTIL::DIGITS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER * 4611685743549480961) ; (INTEGER 4611686018427387905)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER * 4611685743549480960) ; (INTEGER 4611686018427387904)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * 4611685743549480961) ; (INTEGER 4611686018427387905)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER * 4611685743549480960) ; (INTEGER 4611686018427387904)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* JPL-UTIL::RADIX JPL-UTIL::LB) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; The second argument is a (RATIONAL 0), not a FIXNUM. ; The result is a (VALUES (RATIONAL 0) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 2), not a (UNSIGNED-BYTE 64). ; The second argument is a (RATIONAL 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (RATIONAL 0) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (< JPL-UTIL::N JPL-UTIL::LB) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a (RATIONAL 0), not a FIXNUM. ; (>= JPL-UTIL::N JPL-UTIL::UB) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a (RATIONAL 0), not a FIXNUM. ; (1+ JPL-UTIL::DIGITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (* JPL-UTIL::UB JPL-UTIL::RADIX) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (INTEGER 2), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER 2), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- JPL-UTIL::DIGITS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (< JPL-UTIL::N JPL-UTIL::LB) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/jpl-util-tmpJZ1AFCDQ.fasl ; compilation finished in 0:00:00.243 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/cl-jpl-util/vector-delete.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/vector-delete-tmpE2RDUEQF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-jpl-util/subtypecase.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/subtypecase-tmpB4PWHQTJ.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-jpl-util/alists-and-plists.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/alists-and-plists-tmpX1YMGP2L.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-jpl-util/option-clause.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/option-clause-tmp10W3LB9F.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-jpl-util/defclass-star.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/defclass-star-tmpK2B1ODJ1.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-jpl-util/order.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-jpl-util/order-tmp5C6SBQY7.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/jpl-queues/package.lisp" (written 20 OCT 2024 03:57:11 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/jpl-queues/package-tmpQJDP3B3H.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/jpl-queues/interface.lisp" (written 20 OCT 2024 03:57:11 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/jpl-queues/interface-tmpT6PBJ345.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/jpl-queues/bounded-fifo.lisp" (written 20 OCT 2024 03:57:11 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/jpl-queues/bounded-fifo-tmpP7KOSV72.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/jpl-queues/lossy-bounded-fifo.lisp" (written 20 OCT 2024 03:57:11 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/jpl-queues/lossy-bounded-fifo-tmpFERHD10F.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/jpl-queues/unbounded-fifo.lisp" (written 20 OCT 2024 03:57:11 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/jpl-queues/unbounded-fifo-tmpTVXHO5TD.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/jpl-queues/unbounded-random.lisp" (written 20 OCT 2024 03:57:11 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/jpl-queues/unbounded-random-tmp6XR5LAPW.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/jpl-queues/synchronized.lisp" (written 20 OCT 2024 03:57:11 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/jpl-queues/synchronized-tmpGEPT0T15.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/calispel/package.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/calispel/package-tmpMKX5S6TB.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/calispel/null-queue.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/calispel/null-queue-tmpT1R329DD.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/calispel/core.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/calispel/core-tmpYV9QWBE7.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/calispel/basic.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/calispel/basic-tmpY7Z87FVE.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/calispel/alt.lisp" (written 20 OCT 2024 03:56:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/calispel/alt-tmpZD0W6AUM.fasl ; compilation finished in 0:00:00.120 ; compiling file "/startdir/src/_build/cl-base64/package.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-base64/package-tmpRVZ12GJ7.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-base64/encode.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-base64/encode.lisp ; in: DEFUN ROUND-NEXT-MULTIPLE ; (MOD CL-BASE64::X CL-BASE64::N) ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; in: DEF-*-TO-BASE64-* :STRING ; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; 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-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 1 ; ; note: unable to ; optimize ; 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-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; 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-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 1 ; ; note: unable to ; optimize ; 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-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEF-*-TO-BASE64-* :USB8-ARRAY ; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; in: DEFUN INTEGER-TO-BASE64-STRING ; (MOD CL-BASE64::PADDED-BITS 24) ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (/ CL-BASE64::PADDING-BITS 6) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; The result is a (VALUES (OR FLOAT (RATIONAL 0 4)) &OPTIONAL), not a (VALUES ; INTEGER ; &REST T). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES INTEGER &REST T). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (/ CL-BASE64::PADDING-BITS 3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 0 24), not a INTEGER. ; The result is a (VALUES (RATIONAL 0 8) &OPTIONAL), not a (VALUES INTEGER ; &REST T). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 0 24), not a INTEGER. ; (INTEGER-LENGTH CL-BASE64::INPUT) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (RATIONAL 0 24), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a (RATIONAL 0 24), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* CL-BASE64::COLUMNS (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS)) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (RATIONAL 0 8), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (RATIONAL 0 8), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (LOGAND CL-BASE64::INT 63) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; in: DEFUN INTEGER-TO-BASE64-STREAM ; (MOD CL-BASE64::PADDED-BITS 24) ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (/ CL-BASE64::PADDING-BITS 6) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; The result is a (VALUES (OR FLOAT (RATIONAL 0 4)) &OPTIONAL), not a (VALUES ; INTEGER ; &REST T). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES INTEGER &REST T). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (/ CL-BASE64::PADDING-BITS 3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 0 24), not a INTEGER. ; The result is a (VALUES (RATIONAL 0 8) &OPTIONAL), not a (VALUES INTEGER ; &REST T). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 0 24), not a INTEGER. ; (INTEGER-LENGTH CL-BASE64::INPUT) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (- CL-BASE64::STRLEN CL-BASE64::PADDING-CHARS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 4)), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387908 4611686018427387903)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 4)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387908 4611686018427387903)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (RATIONAL 0 8), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (RATIONAL 0 8), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (LOGAND CL-BASE64::INT 63) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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 LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-base64/encode-tmp4T72OGWB.fasl ; compilation finished in 0:00:00.083 ; compiling file "/startdir/src/_build/cl-base64/decode.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/cl-base64/decode.lisp ; in: DEFINE-BASE64-DECODER :STRING ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :INTEGER) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> COND IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF IF ; --> IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> COND IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF IF ; --> IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF ; --> IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF ; --> IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> COND IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF IF IF ; --> IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> COND IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF IF IF ; --> IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFINE-BASE64-DECODER :STREAM ; (CL-BASE64::DEFINE-BASE64-DECODER :STREAM :INTEGER) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY ; --> PROGN COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 256)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY ; --> PROGN COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 256)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-base64/decode-tmp30O6M23N.fasl ; compilation finished in 0:00:00.166 ; compiling file "/startdir/src/_build/cl-ppcre/packages.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/packages-tmp523JK0GJ.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-ppcre/specials.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/specials-tmp2T656F3Z.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-ppcre/util.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/util-tmpU8E6U186.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-ppcre/errors.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/errors-tmpUVEMO1OX.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-ppcre/charset.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (LOGAND MOST-POSITIVE-FIXNUM (+ CL-PPCRE::CODE CL-PPCRE::HASH)) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED (cost 10) ; 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. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; 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 (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; 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. ; 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. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/charset-tmpPDN0DF20.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-ppcre/charmap.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM31) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; 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. ; 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. ; (1- CL-PPCRE::END) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM31) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; 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. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/charmap-tmp1SCDPCYF.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-ppcre/chartest.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; 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. ; 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. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/chartest-tmp31LDQ8IW.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-ppcre/lexer.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/lexer.lisp ; in: DEFUN NEXT-CHAR ; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN GET-NUMBER ; (+ (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) (THE FIXNUM CL-PPCRE::MAX-LENGTH)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN MAKE-CHAR-FROM-CODE ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS ; "No character for hex-code ~X." NUMBER) ; ; note: deleting unreachable code ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/lexer-tmpXQHFS7J0.fasl ; compilation finished in 0:00:00.173 ; compiling file "/startdir/src/_build/cl-ppcre/parser.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/parser.lisp ; in: DEFUN GROUP ; (+ CL-PPCRE::OPEN-PAREN-POS 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/parser-tmpZU3XIPN7.fasl ; compilation finished in 0:00:00.019 ; compiling file "/startdir/src/_build/cl-ppcre/regex-class.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/regex-class-tmpOLPZFU22.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-ppcre/regex-class-util.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; 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. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/regex-class-util-tmpE8NZG6A8.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/cl-ppcre/convert.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; ==> ; (REPLACE #:SEQUENCE #:NEW2 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/convert-tmpKRRUKJSC.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/cl-ppcre/optimize.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; 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. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/optimize-tmpU2ISN61U.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/cl-ppcre/closures.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/closures-tmpJVKJGHUO.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/cl-ppcre/repetition-closures.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/repetition-closures-tmpRFLT88I5.fasl ; compilation finished in 0:00:00.156 ; compiling file "/startdir/src/_build/cl-ppcre/scanner.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/scanner-tmp9OPB60VM.fasl ; compilation finished in 0:00:00.280 ; compiling file "/startdir/src/_build/cl-ppcre/api.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-ppcre/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {120D6A4E4F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {120DA4881F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {120DBBC3CF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {120DD45C6F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE ; --> COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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 (COMPLEX SINGLE-FLOAT). ; etc. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (INCF CL-PPCRE::COUNTER) ; ==> ; (+ 1 CL-PPCRE::COUNTER) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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 (COMPLEX SINGLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (NOT NULL), not a FIXNUM. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-ARRAY. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-ARRAY. ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-ARRAY. ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-ARRAY. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (1+ CL-PPCRE::TOKEN) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE ; --> COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) ; (NOT (SIMPLE-ARRAY CHARACTER))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1206C68DBF}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-BASE-STRING ; 221) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1206C6916F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {12070B5B4F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-BASE-STRING ; 216) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {12070B5F5F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/api-tmpSVDN4TBO.fasl ; compilation finished in 0:00:00.303 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/parse-number/parse-number.lisp" (written 20 OCT 2024 03:57:32 PM): ; file: /startdir/src/_build/parse-number/parse-number.lisp ; in: DEFUN PARSE-INTEGER-AND-PLACES ; (CHAR STRING ORG.MAPCAR.PARSE-NUMBER::POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (- ORG.MAPCAR.PARSE-NUMBER::END-POS ORG.MAPCAR.PARSE-NUMBER::START ; (LOOP :FOR ORG.MAPCAR.PARSE-NUMBER::POS :FROM (- ; ORG.MAPCAR.PARSE-NUMBER::END-POS ; 1) :DOWNTO ORG.MAPCAR.PARSE-NUMBER::START ; :WHILE (MEMBER (CHAR STRING ORG.MAPCAR.PARSE-NUMBER::POS) ; ORG.MAPCAR.PARSE-NUMBER::*WHITE-SPACE-CHARACTERS*) ; :COUNT 1)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN PARSE-INTEGERS ; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING ; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::END :RADIX ; ORG.MAPCAR.PARSE-NUMBER::RADIX) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET - ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING ; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::RIGHT :RADIX ; ORG.MAPCAR.PARSE-NUMBER::RADIX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING ; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::END :RADIX ; ORG.MAPCAR.PARSE-NUMBER::RADIX) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET - ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/parse-number/parse-number-tmpF5QPE831.fasl ; compilation finished in 0:00:00.086 ; compiling file "/startdir/src/_build/cl-colors2/package.lisp" (written 20 OCT 2024 03:56:27 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-colors2/package-tmpLAAFHLHW.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-colors2/colors.lisp" (written 20 OCT 2024 03:56:27 PM): ; file: /startdir/src/_build/cl-colors2/colors.lisp ; in: DEFINE-COMPILER-MACRO AS-RGB ; (DEFINE-COMPILER-MACRO CL-COLORS2:AS-RGB ; (&WHOLE CL-COLORS2::FORM CL-COLORS2::COLOR &KEY CL-COLORS2::COLORS-LIST ; CL-COLORS2::ERRORP) ; (DECLARE (NOTINLINE CL-COLORS2:AS-RGB)) ; (IF (AND (CONSTANTP CL-COLORS2::COLOR) (NOT CL-COLORS2::COLORS-LIST)) ; (LET ((CL-COLORS2::RESULTS #)) ; (OR CL-COLORS2::RESULTS CL-COLORS2::FORM)) ; CL-COLORS2::FORM)) ; --> EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO 'CL-COLORS2:AS-RGB ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; CL-COLORS2:AS-RGB) ; (#:EXPR #:ENV &AUX ; (CL-COLORS2::FORM #:EXPR)) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (CL-COLORS2::COLOR &KEY ; CL-COLORS2::COLORS-LIST ; CL-COLORS2::ERRORP))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; CL-COLORS2:AS-RGB ; . DEFINE-COMPILER-MACRO) ; (CL-COLORS2::COLOR &KEY ; CL-COLORS2::COLORS-LIST ; CL-COLORS2::ERRORP) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (DECLARE ; (SB-C::CONSTANT-VALUE CL-COLORS2::COLOR ; CL-COLORS2::COLORS-LIST ; CL-COLORS2::ERRORP) ; (SB-C::NO-COMPILER-MACRO ; CL-COLORS2:AS-RGB)) ; (DECLARE (NOTINLINE CL-COLORS2:AS-RGB)) ; (BLOCK CL-COLORS2:AS-RGB ; (IF # ; # ; CL-COLORS2::FORM))))) ; ; caught STYLE-WARNING: ; 2 calls to CL-COLORS2:AS-RGB 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. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-colors2/colors-tmpBYA9SD1Y.fasl ; compilation finished in 0:00:00.110 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/cl-colors2/colornames-x11.lisp" (written 20 OCT 2024 03:56:27 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-colors2/colornames-x11-tmpFLAO1CYQ.fasl ; compilation finished in 0:00:00.150 ; compiling file "/startdir/src/_build/cl-colors2/colornames-svg.lisp" (written 20 OCT 2024 03:56:27 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-colors2/colornames-svg-tmpSKUEHB49.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-colors2/colornames-gdk.lisp" (written 20 OCT 2024 03:56:27 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-colors2/colornames-gdk-tmpDHXMA9ET.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-colors2/hexcolors.lisp" (written 20 OCT 2024 03:56:27 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-colors2/hexcolors-tmpXPODQDBQ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-colors2/print.lisp" (written 20 OCT 2024 03:56:27 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-colors2/print-tmpON3EBOWQ.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/usocket/package.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/usocket/package-tmp5DE7FWXL.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/usocket/usocket.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/usocket/usocket-tmpNR0FXTOU.fasl ; compilation finished in 0:00:00.080 ; compiling file "/startdir/src/_build/usocket/condition.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/usocket/condition-tmpIS216RW.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/usocket/backend/sbcl.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/usocket/backend/sbcl-tmp11752V0C.fasl ; compilation finished in 0:00:00.063 ; compiling file "/startdir/src/_build/usocket/option.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/usocket/option-tmpONM4L97G.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/trivial-gray-streams/package.lisp" (written 20 OCT 2024 03:57:54 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-gray-streams/package-tmpR4BLTE1D.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivial-gray-streams/streams.lisp" (written 20 OCT 2024 03:57:54 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-gray-streams/streams-tmpONQ4LJWF.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/flexi-streams/packages.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/packages-tmpFPHBYJPO.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/flexi-streams/mapping.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/mapping-tmpXKL3NHA4.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/flexi-streams/ascii.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/ascii-tmp3KKXCXYY.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/flexi-streams/koi8-r.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/koi8-r-tmpVACGDARV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/flexi-streams/iso-8859.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/iso-8859-tmpYII9B406.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/flexi-streams/enc-cn-tbl.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/enc-cn-tbl-tmpA2CNLB7.fasl ; compilation finished in 0:00:00.096 ; compiling file "/startdir/src/_build/flexi-streams/code-pages.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/code-pages-tmpG5J7KPU1.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/flexi-streams/specials.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/specials-tmp981UY8DC.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/flexi-streams/util.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/util.lisp ; in: DEFUN MAKE-OCTET-BUFFER ; (MAKE-ARRAY FLEXI-STREAMS::SIZE :ELEMENT-TYPE 'FLEXI-STREAMS:OCTET) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; in: DEFUN GET-MULTIBYTE-MAPPER ; (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 0) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 1) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/util-tmpZ1XIHDCA.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/flexi-streams/conditions.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/conditions-tmpSXW96VDS.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/flexi-streams/external-format.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/external-format.lisp ; in: DEFUN EXTERNAL-FORMAT-EQUAL ; (EQL (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF1) ; (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF2)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/external-format-tmpJOZ4RWJ2.fasl ; compilation finished in 0:00:00.093 ; compiling file "/startdir/src/_build/flexi-streams/length.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/length.lisp ; in: DEFMETHOD ENCODING-FACTOR (FLEXI-CRLF-MIXIN) ; (* 1.02d0 (CALL-NEXT-METHOD)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (OR DOUBLE-FLOAT (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (OR DOUBLE-FLOAT (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) ; &OPTIONAL). ; in: DEFGENERIC CHECK-END ; (- FLEXI-STREAMS::I FLEXI-STREAMS::END) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-8-BIT-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-MIXIN T T T) ; (SEARCH #(13 10) SEQUENCE :START2 FLEXI-STREAMS::I :END2 FLEXI-STREAMS::END ; :TEST #'=) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-8-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-8-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-UTF-16-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-16-LE-FORMAT T T T) ; (AREF SEQUENCE (1+ FLEXI-STREAMS::I)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-16-BE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-16-LE-FORMAT T T T) ; (AREF SEQUENCE (1+ FLEXI-STREAMS::I)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-16-BE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF SEQUENCE (1+ FLEXI-STREAMS::I)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-GBK-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-GBK-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-UTF-32-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-LE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (= FLEXI-STREAMS:OCTET (AREF SEQUENCE FLEXI-STREAMS::J)) ; ; note: unable to open code because: The operands might not be the same type. ; (DECF LENGTH) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-BE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (= FLEXI-STREAMS:OCTET (AREF SEQUENCE FLEXI-STREAMS::J)) ; ; note: unable to open code because: The operands might not be the same type. ; (DECF LENGTH) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-8-BIT-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-GBK-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-GBK-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-8-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-8-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-16-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-16-LE-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-16-BE-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-32-FORMAT T T T) ; (* 4 (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER -36893488147419103228 -4) (INTEGER 0 0) ; (INTEGER 4 36893488147419103228)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER -36893488147419103228 -4) (INTEGER 0 0) ; (INTEGER 4 36893488147419103228)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-MIXIN T T T) ; (+ (CALL-NEXT-METHOD) ; (* ; (CASE (FLEXI-STREAMS:EXTERNAL-FORMAT-NAME FORMAT) ; (:UTF-32 4) ; (OTHERWISE 1)) ; (COUNT #\Newline STRING :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :TEST #'CHAR=))) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFMETHOD CHARACTER-LENGTH :AROUND (FLEXI-CRLF-MIXIN (EQL #\Newline)) ; (+ (CALL-NEXT-METHOD FORMAT FLEXI-STREAMS::+CR+) ; (CALL-NEXT-METHOD FORMAT FLEXI-STREAMS::+LF+)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/length-tmpBECHKCQ0.fasl ; compilation finished in 0:00:00.093 ; compiling file "/startdir/src/_build/flexi-streams/encode.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/encode.lisp ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT ; FLEXI-CRLF-LATIN-1-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 255) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 255) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 255) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ; FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ; FLEXI-CRLF-8-BIT-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH ; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH)) ; FORMAT ; (LET ((FLEXI-STREAMS:OCTET #)) ; (UNLESS FLEXI-STREAMS:OCTET ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH ; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH)) ; FORMAT ; (LET ((FLEXI-STREAMS:OCTET #)) ; (UNLESS FLEXI-STREAMS:OCTET ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH ; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH)) ; FORMAT ; (LET ((FLEXI-STREAMS:OCTET #)) ; (UNLESS FLEXI-STREAMS:OCTET ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET ; --> GETHASH ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET ; --> UNLESS IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET GETHASH ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET UNLESS IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET GETHASH ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET UNLESS IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ; FLEXI-CRLF-UTF-8-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (TAGBODY ; (COND (# # #) (# # #) (# # #) (T #)) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::TWO ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ONE ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ZERO))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (TAGBODY ; (COND (# # #) (# # #) (# # #) (T #)) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::TWO ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ONE ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ZERO))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (TAGBODY ; (COND (# # #) (# # #) (# # #) (T #)) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::TWO ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ONE ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ZERO))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT ; FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET IF FLET COND IF IF THE LET IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET IF FLET COND IF IF ; --> THE LET IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET IF FLET COND IF IF ; --> THE LET IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::LOGAND* 65280 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 65280 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (FLEXI-STREAMS::LOGAND* 255 FLEXI-STREAMS::WORD) ; ==> ; (LOGAND 255 FLEXI-STREAMS::WORD) ; ; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10) ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-CRLF-UTF-32-LE-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-CRLF-UTF-32-BE-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF ; --> SB-C::WITH-SOURCE-FORM AREF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE LOOP ; --> BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a (OR NULL BIT-VECTOR). ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF SB-C::WITH-SOURCE-FORM ; --> FLEXI-STREAMS:FLEXI-STREAM-COLUMN LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/encode-tmpOYQY6WIA.fasl ; compilation finished in 0:00:00.783 ; compiling file "/startdir/src/_build/flexi-streams/decode.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT ; FLEXI-CRLF-LATIN-1-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; FLEXI-STREAMS::OCTET-GETTER) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> 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 SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 ; --> LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 ; --> LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 ; --> LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ; FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> 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 SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ; FLEXI-CRLF-8-BIT-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> 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 SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ; FLEXI-CRLF-UTF-8-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> 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 SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.") ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.") ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-8 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.") ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-16 sequence.")) ; ; note: deleting unreachable code ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; in: ; DEFINE-CHAR-DECODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT ; FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> 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 SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET WHEN ; --> IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET PROGN ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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 WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE COND IF FLEXI-STREAMS::ITERATE FLET LOOP BLOCK ; --> TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER 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* LOOP BLOCK LET TAGBODY SETF ; --> SB-C::WITH-SOURCE-FORM SCHAR SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM21 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM146 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM163 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM126 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM436 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM453 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM416 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM741 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM704 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM724 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM21 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM146 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM163 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM126 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM436 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM453 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM416 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM704 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM741 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ==> ; (+ #:SUM724 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (OR FLEXI-STREAMS::OCTET-GETTER ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "End of data while in UTF-32 sequence."))) ; (T (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL)))) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/decode-tmp50O9T7IY.fasl ; compilation finished in 0:00:01.700 ; compiling file "/startdir/src/_build/flexi-streams/in-memory.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/in-memory.lisp ; in: DEFMETHOD PEEK-BYTE (VECTOR-INPUT-STREAM) ; (= BYTE FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP BYTE) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (LOOP :FOR BYTE = (READ-BYTE STREAM FLEXI-STREAMS::EOF-ERROR-P :EOF) ; :FOR FLEXI-STREAMS::NEW-INDEX :FROM FLEXI-STREAMS::INDEX ; :UNTIL (COND ((EQ BYTE :EOF) (RETURN FLEXI-STREAMS::EOF-VALUE)) ; ((NULL FLEXI-STREAMS::PEEK-TYPE)) ; ((EQ FLEXI-STREAMS::PEEK-TYPE 'T) (PLUSP BYTE)) ; ((= BYTE FLEXI-STREAMS::PEEK-TYPE))) ; :FINALLY ...) ; --> LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFMETHOD PEEK-BYTE (LIST-INPUT-STREAM) ; (= BYTE FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP BYTE) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFMETHOD TRANSFORM-OCTET (IN-MEMORY-STREAM T) ; (FUNCALL (OR (FLEXI-STREAMS::IN-MEMORY-STREAM-TRANSFORMER STREAM) #'IDENTITY) ; FLEXI-STREAMS:OCTET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD STREAM-READ-SEQUENCE (LIST-INPUT-STREAM T T T) ; (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TRANSFORMER is not known to be a function ; (ELT SEQUENCE FLEXI-STREAMS::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFMETHOD STREAM-READ-BYTE (VECTOR-INPUT-STREAM) ; (AREF VECTOR FLEXI-STREAMS::CURRENT-INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFMETHOD STREAM-READ-SEQUENCE (VECTOR-INPUT-STREAM T T T) ; (AREF VECTOR FLEXI-STREAMS::VECTOR-INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TRANSFORMER is not known to be a function ; (ELT SEQUENCE FLEXI-STREAMS::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFMETHOD STREAM-WRITE-BYTE (VECTOR-OUTPUT-STREAM T) ; (VECTOR-PUSH-EXTEND (FLEXI-STREAMS::TRANSFORM-OCTET STREAM BYTE) VECTOR) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD STREAM-WRITE-SEQUENCE (VECTOR-OUTPUT-STREAM T T T) ; (ELT SEQUENCE FLEXI-STREAMS::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (VECTOR-PUSH-EXTEND ; (FLEXI-STREAMS::TRANSFORM-OCTET STREAM (ELT SEQUENCE FLEXI-STREAMS::INDEX)) ; VECTOR) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-INPUT-STREAM) ; (<= 0 FLEXI-STREAMS::POSITION-SPEC FLEXI-STREAMS::END) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN MAKE-OUTPUT-VECTOR ; (MAKE-ARRAY 0 :ADJUSTABLE T :FILL-POINTER 0 :ELEMENT-TYPE ; FLEXI-STREAMS::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; in: DEFMETHOD GET-OUTPUT-STREAM-SEQUENCE (IN-MEMORY-OUTPUT-STREAM) ; (COERCE VECTOR 'LIST) ; ; note: unable to ; optimize ; because: ; upgraded array element type not known at compile time ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/in-memory-tmpGZL21UBE.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/flexi-streams/stream.lisp" (written 20 OCT 2024 03:56:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/stream-tmpAKRW6QK6.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/flexi-streams/output.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/output.lisp ; in: DEFMETHOD STREAM-WRITE-CHAR :AFTER (FLEXI-OUTPUT-STREAM T) ; (INCF (THE INTEGER FLEXI-STREAMS::COLUMN)) ; ==> ; (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-COLUMN #:G913))) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-WRITE-STRING (FLEXI-OUTPUT-STREAM T) ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/output-tmp8J071LEX.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/flexi-streams/input.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/input.lisp ; in: DEFMETHOD READ-BYTE* (FLEXI-INPUT-STREAM) ; (>= POSITION FLEXI-STREAMS::BOUND) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; (INCF POSITION) ; ==> ; (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G1214))) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (DECF POSITION) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-LISTEN (FLEXI-INPUT-STREAM) ; (>= POSITION FLEXI-STREAMS::BOUND) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; in: DEFUN UNREAD-CHAR% ; (DECF POSITION FLEXI-STREAMS::COUNTER) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-READ-CHAR (FLEXI-INPUT-STREAM) ; (OR (CODE-CHAR CHAR-CODE) CHAR-CODE) ; --> IF ; ==> ; CHAR-CODE ; ; note: deleting unreachable code ; in: DEFMETHOD STREAM-READ-SEQUENCE (FLEXI-INPUT-STREAM T T T) ; (MIN FLEXI-STREAMS::END ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (REPLACE SEQUENCE FLEXI-STREAMS::OCTET-STACK :START1 FLEXI-STREAMS::START ; :END1 FLEXI-STREAMS::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; CHARACTER ; (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (LENGTH FLEXI-STREAMS::OCTET-STACK) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT SEQUENCE (1- FLEXI-STREAMS::INDEX)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (ARRAY CHARACTER)) VECTOR ; (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (- FLEXI-STREAMS::BOUND POSITION) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -4611686018427387904 4611686018427387902), not a (UNSIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MIN FLEXI-STREAMS::END ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)) ; ==> ; (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START) ; (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G2852)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -4611686018427387902 4611703610613432319), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -4611686018427387902 4611703610613432319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; in: DEFMETHOD STREAM-UNREAD-CHAR (FLEXI-INPUT-STREAM T) ; (= (CHAR-CODE CHAR) FLEXI-STREAMS::LAST-CHAR-CODE) ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD UNREAD-BYTE (T FLEXI-INPUT-STREAM) ; (= BYTE FLEXI-STREAMS::LAST-OCTET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (DECF (THE INTEGER POSITION)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFMETHOD PEEK-BYTE (FLEXI-INPUT-STREAM) ; (= FLEXI-STREAMS:OCTET FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP FLEXI-STREAMS:OCTET) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/input-tmp9EISPCFY.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/flexi-streams/io.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/io.lisp ; in: DEFMETHOD RESET-INPUT-STATE (FLEXI-IO-STREAM) ; (LENGTH FLEXI-STREAMS::OCTET-STACK) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD WRITE-BYTE* :AFTER (T FLEXI-IO-STREAM) ; (INCF POSITION) ; ==> ; (+ 1 (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G79)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/io-tmpRZ31FVZM.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/flexi-streams/strings.lisp" (written 20 OCT 2024 03:56:58 PM): ; file: /startdir/src/_build/flexi-streams/strings.lisp ; in: DEFUN STRING-TO-OCTETS ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN OCTETS-TO-STRING ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN OCTET-LENGTH ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CHAR-LENGTH ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/flexi-streams/strings-tmpT7RFXS2O.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/puri/src.lisp" (written 20 OCT 2024 03:57:36 PM): ; file: /startdir/src/_build/puri/src.lisp ; in: DEFMETHOD POSITION-CHAR (T STRING T T) ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN PARSE-URI ; (PLUSP PURI::PORT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (STRING= "/" PURI::PATH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (PLUSP PURI::PORT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; in: DEFUN PARSE-URI-STRING ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR STRING PURI::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (SUBSEQ STRING PURI::SINDEX PURI::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN ESCAPE-P ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN DECODE-ESCAPED-ENCODING ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (COPY-SEQ STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR STRING (INCF PURI::I)) ; ; note: unable to ; optimize ; 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-ARRAY. ; in: DEFUN RENDER-URI ; (CONCATENATE 'STRING ; (WHEN PURI::SCHEME ; (PURI::ENCODE-ESCAPED-ENCODING ; (STRING-DOWNCASE (SYMBOL-NAME PURI::SCHEME)) ; PURI::*RESERVED-CHARACTERS* PURI::ESCAPE)) ; (WHEN PURI::SCHEME ":") ; (WHEN (OR PURI::HOST (EQ :FILE PURI::SCHEME)) "//") ; (WHEN PURI::IS-IP6 "[") ; (WHEN PURI::HOST ; (PURI::ENCODE-ESCAPED-ENCODING PURI::HOST ; PURI::*RESERVED-AUTHORITY-CHARACTERS* PURI::ESCAPE)) ; (WHEN PURI::IS-IP6 "]") (WHEN PURI::PORT ":") ; (WHEN PURI::PORT (FORMAT NIL "~D" PURI::PORT)) ; (PURI::ENCODE-ESCAPED-ENCODING (OR PURI::PATH "/") NIL ; PURI::ESCAPE) ; (WHEN PURI::QUERY "?") ...) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFUN RENDER-URN ; (CONCATENATE 'STRING "urn:" PURI::NID ":" PURI::NSS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFUN ENCODE-ESCAPED-ENCODING ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR STRING PURI::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (ELT PURI::*ESCAPED-ENCODING* PURI::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (ELT PURI::*ESCAPED-ENCODING* PURI::R) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: DEFMETHOD MERGE-URIS (URI URI) ; (STRING= PURI::A ; (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B PURI::ELSE ; (CAR PURI::B))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= "." (CAR LAST)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= "." (CAAR LAST)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= ".." ; (LET ((PURI::L (CAR #))) ; (PURI::IF* (ATOM PURI::L) PURI::THEN PURI::L PURI::ELSE ; (CAR PURI::L)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (POSITION ".." PURI::NPL :TEST ; #'(LAMBDA (PURI::A PURI::B) ; (STRING= PURI::A ; (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B ; PURI::ELSE (CAR PURI::B))))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (STRING= PURI::A PURI::B) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; in: DEFMETHOD URI= (URI URI) ; (STRING= (PURI:URI-PATH PURI::URI1) (PURI:URI-PATH PURI::URI2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (PURI:URI-QUERY PURI::URI1) (PURI:URI-QUERY PURI::URI2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (PURI:URI-FRAGMENT PURI::URI1) (PURI:URI-FRAGMENT PURI::URI2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT) ; (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN URN-NSS-EQUAL ; (LENGTH PURI::NSS1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (LENGTH PURI::NSS2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CHAR PURI::NSS1 PURI::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR PURI::NSS2 PURI::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-NOT-EQUAL PURI::C1 PURI::C2) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/puri/src-tmpALSWN3ZO.fasl ; compilation finished in 0:00:00.206 ; compiling file "/startdir/src/_build/chunga/packages.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/packages-tmp8525G5XJ.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/chunga/specials.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/specials-tmpNBWMKLPF.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/chunga/util.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/util-tmpZ7NED271.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/chunga/known-words.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/known-words-tmpVAWG08RM.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/chunga/conditions.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/conditions-tmp29JNO94I.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/chunga/read.lisp" (written 20 OCT 2024 03:56:24 PM): ; file: /startdir/src/_build/chunga/read.lisp ; in: DEFUN TRIM-WHITESPACE ; (CHAR STRING CHUNGA::I) ; ; note: unable to ; optimize ; 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-ARRAY. ; ; note: unable to ; optimize ; 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-ARRAY. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/read-tmp9HJS3WPK.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/chunga/streams.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/streams-tmp6OWTJDXT.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/chunga/input.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/input-tmpERQILLDF.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/chunga/output.lisp" (written 20 OCT 2024 03:56:24 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chunga/output-tmpYZQK9040.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/chipz/package.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/package-tmpMV6W92GO.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/chipz/constants.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/constants-tmp886ACX8P.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/chipz/types-and-tables.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/types-and-tables-tmp34OPD42E.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/chipz/crc32.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/crc32-tmpG6RL7DFQ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/chipz/adler32.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/adler32-tmp523HMA4J.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/chipz/conditions.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/conditions-tmp7QUN41F9.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/chipz/dstate.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/dstate-tmp6435NPRK.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/chipz/inflate-state.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/inflate-state-tmpHHG39W7F.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/chipz/gzip.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/gzip-tmpIV07R04M.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/chipz/zlib.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/zlib-tmp2ANY66A8.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/chipz/inflate.lisp" (written 20 OCT 2024 03:56:23 PM): ; file: /startdir/src/_build/chipz/inflate.lisp ; in: DEFUN %INFLATE-STATE-MACHINE ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (31))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (31))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-CRC32 CHIPZ::CRC32)) ; ; note: unable to open code because: The operands might not be the same type. ; (COERCE (FUNCALL CHIPZ::SLOT CHIPZ::HEADER) '(VECTOR (UNSIGNED-BYTE 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (AND VECTOR (NOT (ARRAY (UNSIGNED-BYTE 8)))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (ARRAY (UNSIGNED-BYTE 8)))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND VECTOR (NOT (ARRAY (UNSIGNED-BYTE 8)))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (FUNCALL (CHIPZ::INFLATE-STATE-STATE CHIPZ::STATE) CHIPZ::STATE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (ZEROP CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * ; 9.223372036854809d18)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * ; 9.223372036854809d18)), not a DOUBLE-FLOAT. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) ; 32767)), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) ; 32767)), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) ; (RATIONAL (0))), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) ; (RATIONAL (0))), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (ZEROP CHIPZ::BITS) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-ADLER32 CHIPZ::ADLER32)) ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> LET WHEN IF ; ==> ; (= #:TEMP45 #:TEMP46) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::INFLATE-STATE-N-VALUES-READ #:STATE42)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; ==> ; (+ CHIPZ::LEN (CHIPZ::INFLATE-STATE-N-VALUES-READ #:STATE44)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> LET WHEN IF ; ==> ; (= #:TEMP45 #:TEMP46) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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 (COMPLEX SINGLE-FLOAT). ; etc. ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; note: forced to do GENERIC-* (cost 30) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE)) ; CHIPZ::DISTANCE-EXTRA) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a T, not a FIXNUM. ; (- CHIPZ::INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR (FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT (-4.611686e18)) ; (RATIONAL (-4611686018427387903))), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT (-4.611686e18)) ; (RATIONAL (-4611686018427387903))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) (- CHIPZ::INDEX CHIPZ::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -4611686018427387903 ; 4611686018427387903), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)), not a FIXNUM. ; etc. ; (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (RATIONAL 0 (9223372036854808573)) ; (SINGLE-FLOAT 0.0 9.223372e18) ; (DOUBLE-FLOAT 0.0d0 9.223372036854809d18)), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (RATIONAL 0 (9223372036854808573)) ; (SINGLE-FLOAT 0.0 9.223372e18) ; (DOUBLE-FLOAT 0.0d0 9.223372036854809d18)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR ; (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR ; (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a DOUBLE-FLOAT. ; etc. ; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT * 32768.0) (RATIONAL * (32768))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT * 32768.0) (RATIONAL * (32768))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT * 32768.0) (RATIONAL * (32768))), not a FIXNUM. ; The result is a (VALUES ; (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) ; (RATIONAL (0))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT * 32768.0) (RATIONAL * (32768))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) ; (RATIONAL (0))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) ; (RATIONAL (0))), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) ; (RATIONAL (0))), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a DOUBLE-FLOAT. ; etc. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427387904))), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427387904))), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) ; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE)) ; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a T, not a FIXNUM. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -4611686018427387903 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/inflate-tmpX4XJNZSN.fasl ; compilation finished in 0:00:00.076 ; compiling file "/startdir/src/_build/chipz/bzip2.lisp" (written 20 OCT 2024 03:56:23 PM): ; file: /startdir/src/_build/chipz/bzip2.lisp ; in: DEFUN %BZIP2-STATE-MACHINE ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE) ; (1+ (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::BZIP2-STATE-N-BLOCKS-USED #:STATE335)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER #:STATE37)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (LOGBITP (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) CHIPZ::IN-USE-16) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: forced to do GENERIC-* (cost 30) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::BZIP2-STATE-I #:STATE67)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::BZIP2-STATE-J #:STATE90)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: forced to do full call ; 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. ; 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. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::BZIP2-STATE-I #:STATE95)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; 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. ; 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. ; etc. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::BZIP2-STATE-I #:STATE137)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (CHIPZ::BZIP2-STATE-J #:STATE139)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; (MAX CHIPZ::MAXLEN CHIPZ::XY) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (OR (FLOAT 0.0) (RATIONAL 0)), not a FIXNUM. ; (MIN CHIPZ::MINLEN CHIPZ::XY) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (REAL * 255), not a FIXNUM. ; (ERROR 'CHIPZ:INVALID-BZIP2-DATA) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/bzip2-tmp349SZV56.fasl ; compilation finished in 0:00:00.333 ; compiling file "/startdir/src/_build/chipz/decompress.lisp" (written 20 OCT 2024 03:56:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/decompress-tmpIFTUZKCX.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/chipz/stream.lisp" (written 20 OCT 2024 03:56:23 PM): ; file: /startdir/src/_build/chipz/stream.lisp ; in: DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/chipz/stream-tmpJ3BP3DY8.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/config.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/config-tmp9NC1M3HR.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/package.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/package-tmpCQV7SEDP.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/reload.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/reload-tmpOD15IJQ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/ffi.lisp" (written 20 OCT 2024 03:56:35 PM): ; file: /startdir/src/_build/cl-plus-ssl/src/ffi.lisp ; in: DEFMACRO DEFCFUN-LATE-BOUND ; (LENGTH CL+SSL::NAME-AND-OPTIONS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLeay" CL+SSL::SSL-EAY) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-EAY ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-EAY ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OpenSSL_version_num" CL+SSL::OPENSSL-VERSION-NUM) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-VERSION-NUM ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-VERSION-NUM ; (CFFI-SYS:%FOREIGN-FUNCALL "OpenSSL_version_num" (:LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFUN ENCODE-OPENSSL-VERSION-IMPL ; (POSITION CL+SSL::PATCH CL+SSL::+OPENSSL-VERSION-PATCH-CHARACTERS+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (POSITION CL+SSL::STATUS CL+SSL::+OPENSSL-VERSION-STATUS-STRINGS+ :TEST ; #'STRING=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20) (ASH CL+SSL::FIX 12) ; (ASH CL+SSL::PATCH-INT 4) CL+SSL::STATUS-INT) ; ; note: forced to do full call ; 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 ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ENCODE-OPENSSL-VERSION ; (>= CL+SSL::MAJOR 3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; in: DEFUN OPENSSL-IS-AT-LEAST ; (>= (CL+SSL::COMPAT-OPENSSL-VERSION) ; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR ; CL+SSL::PATCH-OR-FIX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; in: DEFUN OPENSSL-IS-NOT-EVEN ; (< (CL+SSL::COMPAT-OPENSSL-VERSION) ; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR ; CL+SSL::PATCH-OR-FIX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN LIBRESSLP ; (= 536870912 (CL+SSL::COMPAT-OPENSSL-VERSION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_get_version" CL+SSL::SSL-GET-VERSION) ; :STRING ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_client_method" CL+SSL::SSL-V23-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_server_method" CL+SSL::SSL-V23-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_method" CL+SSL::SSL-V23-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_client_method" CL+SSL::SSL-V3-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_server_method" CL+SSL::SSL-V3-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_method" CL+SSL::SSL-V3-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_client_method" CL+SSL::SSL-TLSV1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_server_method" CL+SSL::SSL-TLSV1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_client_method" CL+SSL::SSL-TLSV1-1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_server_method" CL+SSL::SSL-TLSV1-1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_client_method" CL+SSL::SSL-TLSV1-2-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_server_method" CL+SSL::SSL-TLSV1-2-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_method" CL+SSL::SSL-TLSV1-2-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.1.0") ; ("TLS_method" CL+SSL::TLS-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::TLS-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::TLS-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLS_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW) ; CL+SSL::SSL-CTX ; (METHOD CL+SSL::SSL-METHOD)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-NEW ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_new" CL+SSL::SSL-NEW) ; CL+SSL::SSL-POINTER ; (CL+SSL::CTX CL+SSL::SSL-CTX)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW ; (CL+SSL::CTX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-NEW ; (LET ((#:G1 CL+SSL::CTX)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_ctrl" CL+SSL::BIO-SET-FD) ; :LONG ; (CL+SSL::BIO :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD ; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-SET-FD ; (LET ((#:G1 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET) ; :POINTER ; (CL+SSL::FD :INT) ; (CL+SSL::CLOSE-FLAG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET ; (CL+SSL::FD CL+SSL::CLOSE-FLAG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW-SOCKET ; (LET ((#:G1 CL+SSL::FD)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new" CL+SSL::BIO-NEW) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_free" CL+SSL::BIO-FREE) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-FREE ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-FREE ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_free" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("BIO_meth_new" CL+SSL::BIO-METH-NEW) ; :POINTER ; (TYPE :INT) ; (CL+SSL::NAME :STRING)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-METH-NEW ; (TYPE CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-METH-NEW ; (LET ((#:G0 TYPE)) ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME #) ; (UNWIND-PROTECT # #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ERR_get_error" CL+SSL::ERR-GET-ERROR) ; :UNSIGNED-LONG) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ERR-GET-ERROR ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ERR_error_string" CL+SSL::ERR-ERROR-STRING) ; :STRING ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::BUF :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_error_string" ; (:UNSIGNED-LONG #:G1 :POINTER #:G2 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL) ; :LONG ; (CL+SSL::CTX CL+SSL::SSL-CTX) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :UNSIGNED-LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL ; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-CTRL ; (LET ((#:G1 CL+SSL::CTX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_ctrl" CL+SSL::SSL-CTRL) ; :LONG ; (CL+SSL::SSL :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL ; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTRL ; (LET ((#:G1 CL+SSL::SSL)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFUN SSL-CTX-SET-OPTIONS ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-OPTIONS+ CL+SSL::OPTIONS ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN SSL-CTX-SET-MIN-PROTO-VERSION ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MIN-PROTO-VERSION+ ; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN SSL-CTX-SET-MAX-PROTO-VERSION ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MAX-PROTO-VERSION+ ; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: ; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_load_client_CA_file" CL+SSL::SSL-LOAD-CLIENT-CA-FILE) ; CL+SSL::SSL-POINTER ; (CL+SSL::FILE :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (CL+SSL::FILE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_get_verify_result" CL+SSL::SSL-GET-VERIFY-RESULT) ; :LONG ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT ; (LET ((#:G1 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result" ; (:POINTER #:G1 :LONG) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "3.0.0") ; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "3.0.0") ; ("SSL_get1_peer_certificate" CL+SSL::SSL-GET1-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get1_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_oneline" CL+SSL::X509-NAME-ONELINE) ; :POINTER ; (CL+SSL::X509-NAME :POINTER) ; (CL+SSL::BUF :POINTER) ; (CL+SSL::SIZE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE ; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ONELINE ; (LET ((#:G1 CL+SSL::X509-NAME)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_get_entry" CL+SSL::X509-NAME-GET-ENTRY) ; :POINTER ; (CL+SSL::NAME :POINTER) ; (LOG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY ; (CL+SSL::NAME LOG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-GET-ENTRY ; (LET ((#:G1 CL+SSL::NAME)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_ENTRY_get_data" CL+SSL::X509-NAME-ENTRY-GET-DATA) ; :POINTER ; (CL+SSL::NAME-ENTRY :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA ; (CL+SSL::NAME-ENTRY) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA ; (LET ((#:G1 CL+SSL::NAME-ENTRY)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_issuer_name" CL+SSL::X509-GET-ISSUER-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-ISSUER-NAME ; (LET ((#:G1 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_subject_name" CL+SSL::X509-GET-SUBJECT-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME ; (LET ((#:G1 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notBefore" CL+SSL::X509-GET0-NOT-BEFORE) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-BEFORE ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-BEFORE ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notBefore" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notAfter" CL+SSL::X509-GET0-NOT-AFTER) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-AFTER ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-AFTER ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notAfter" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I) ; :POINTER ; (CL+SSL::CERT :POINTER) ; (CL+SSL::NID :INT) ; (CL+SSL::CRIT :POINTER) ; (CL+SSL::IDX :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I ; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-EXT-D2I ; (LET ((#:G1 CL+SSL::CERT)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("d2i_X509" CL+SSL::D2I-X509) ; :POINTER ; (CL+SSL::*PX :POINTER) ; (CL+SSL::IN :POINTER) ; (CL+SSL::LEN :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509 ; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::D2I-X509 ; (LET ((#:G1 CL+SSL::*PX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("PEM_read_bio_X509" CL+SSL::PEM-READ-X509) ; :POINTER ; (CL+SSL::BIO :POINTER) ; (CL+SSL::X509 :INT) ; (CL+SSL::CALLBACK :INT) ; (CL+SSL::PASSPHRASE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::PEM-READ-X509 ; (CL+SSL::BIO CL+SSL::X509 CL+SSL::CALLBACK CL+SSL::PASSPHRASE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::PEM-READ-X509 ; (LET ((#:G1 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("EVP_get_digestbyname" CL+SSL::EVP-GET-DIGEST-BY-NAME) ; :POINTER ; (CL+SSL::NAME :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::EVP-GET-DIGEST-BY-NAME ; (CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::EVP-GET-DIGEST-BY-NAME ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("sk_value" CL+SSL::SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OPENSSL_sk_value" CL+SSL::OPENSSL-SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_value" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN SK-GENERAL-NAME-VALUE ; (DEFUN CL+SSL::SK-GENERAL-NAME-VALUE (CL+SSL::NAMES CL+SSL::INDEX) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-VALUE ; (CL+SSL::NAMES CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-VALUE ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)))) ; ; note: Type assertion too complex to check efficiently: ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &REST T). ; It allows an unknown number of values, consider using ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL). ; in: DEFUN SK-GENERAL-NAME-NUM ; (DEFUN CL+SSL::SK-GENERAL-NAME-NUM (CL+SSL::NAMES) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-NUM ; (CL+SSL::NAMES) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-NUM ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES)))) ; ; note: Type assertion too complex to check efficiently: ; (VALUES FIXNUM &REST T). ; It allows an unknown number of values, consider using ; (VALUES FIXNUM &OPTIONAL). ; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA) ; :POINTER ; (CL+SSL::ASN1-STRING :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA ; (CL+SSL::ASN1-STRING) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ASN1-STRING-DATA ; (LET ((#:G1 CL+SSL::ASN1-STRING)) ; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY) ; :POINTER ; (CL+SSL::NUM :INT) ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::CALLBACK :POINTER) ; (CL+SSL::OPT :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY ; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::RSA-GENERATE-KEY ; (LET ((#:G1 CL+SSL::NUM)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSL_CTX_set_tmp_rsa_callback" CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK) ; :POINTER ; (CL+SSL::CTX :POINTER) ; (CL+SSL::CALLBACK :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (CL+SSL::CTX CL+SSL::CALLBACK) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (LET ((#:G0 CL+SSL::CTX)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" # ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN SSL-CTX-SET-SESSION-CACHE-MODE ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL_CTRL_SET_SESS_CACHE_MODE+ ; CL+SSL::MODE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/ffi-tmpGB8XX1TU.fasl ; compilation finished in 0:00:00.156 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/bio.lisp" (written 20 OCT 2024 03:56:35 PM): ; file: /startdir/src/_build/cl-plus-ssl/src/bio.lisp ; in: CFFI:DEFCALLBACK LISP-WRITE ; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK LISP-READ ; (CFFI:DEFCALLBACK CL+SSL::LISP-READ ; :INT ; ((CL+SSL::BIO :POINTER) (CL+SSL::BUF :POINTER) (CL+SSL::N :INT)) ; (HANDLER-CASE ; (LET ((CL+SSL::I 0)) ; (HANDLER-CASE (PROGN # # #) (END-OF-FILE NIL #)) ; (IF (= 0 CL+SSL::I) ; -1 ; CL+SSL::I)) ; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY ; ==> ; (LET ((CL+SSL::BIO CL+SSL::BIO) ; (CL+SSL::BUF CL+SSL::BUF) ; (CL+SSL::N CL+SSL::N)) ; (BLOCK CL+SSL::LISP-READ ; (HANDLER-CASE ; (LET (#) ; (HANDLER-CASE # #) ; (IF # ; -1 ; CL+SSL::I)) ; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1)))) ; ; note: doing SAP to pointer coercion (cost 20) to BIO ; in: CFFI:DEFCALLBACK LISP-GETS ; (CFFI:DEFCALLBACK CL+SSL::LISP-GETS ; :INT ; ((CL+SSL::BIO :POINTER) (CL+SSL::BUF :POINTER) (CL+SSL::N :INT)) ; (HANDLER-CASE ; (LET ((CL+SSL::I 0) (CL+SSL::MAX-CHARS #)) ; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; (HANDLER-CASE ; (LOOP CL+SSL::WITH CHAR ; AND CL+SSL::EXIT = NIL ; CL+SSL::WHILE # ; DO # # ...) ; (END-OF-FILE NIL #)) ; (SETF # 0) ; CL+SSL::I) ; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY ; ==> ; (LET ((CL+SSL::BIO CL+SSL::BIO) ; (CL+SSL::BUF CL+SSL::BUF) ; (CL+SSL::N CL+SSL::N)) ; (BLOCK CL+SSL::LISP-GETS ; (HANDLER-CASE ; (LET (# #) ; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; (HANDLER-CASE # #) ; (SETF #) ; CL+SSL::I) ; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1)))) ; ; note: doing SAP to pointer coercion (cost 20) to BIO ; in: CFFI:DEFCALLBACK LISP-PUTS ; (CFFI:DEFCALLBACK CL+SSL::LISP-PUTS ; :INT ; ((CL+SSL::BIO :POINTER) (CL+SSL::BUF :STRING)) ; (HANDLER-CASE ; (PROGN ; (WRITE-LINE CL+SSL::BUF ; (FLEXI-STREAMS:MAKE-FLEXI-STREAM CL+SSL::*BIO-SOCKET* ; :EXTERNAL-FORMAT :ASCII)) ; (1+ (LENGTH CL+SSL::BUF))) ; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN CL+SSL::BUF #) ; ; note: doing SAP to pointer coercion (cost 20) ; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK LISP-CTRL ; (ZEROP (CL+SSL::COMPAT-BIO-TEST-FLAGS CL+SSL::BIO CL+SSL::+BIO_FLAGS_IN_EOF+)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (CL+SSL::COMPAT-BIO-TEST-FLAGS CL+SSL::BIO CL+SSL::+BIO_FLAGS_IN_EOF+) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK LISP-CREATE-OPAQUE ; (CFFI:DEFCALLBACK CL+SSL::LISP-CREATE-OPAQUE ; :INT ; ((CL+SSL::BIO :POINTER)) ; (HANDLER-CASE ; (PROGN ; (CL+SSL::BIO-SET-INIT CL+SSL::BIO 1) ; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; 1) ; (SERIOUS-CONDITION (CL+SSL::C) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY ; ==> ; (LET ((CL+SSL::BIO CL+SSL::BIO)) ; (BLOCK CL+SSL::LISP-CREATE-OPAQUE ; (HANDLER-CASE ; (PROGN ; (CL+SSL::BIO-SET-INIT CL+SSL::BIO 1) ; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) ; 1) ; (SERIOUS-CONDITION (CL+SSL::C) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0)))) ; ; note: doing SAP to pointer coercion (cost 20) to BIO ; in: CFFI:DEFCALLBACK LISP-DESTROY-OPAQUE ; (CFFI:DEFCALLBACK CL+SSL::LISP-DESTROY-OPAQUE ; :INT ; ((CL+SSL::BIO :POINTER)) ; (HANDLER-CASE ; (COND ((CFFI-SYS:NULL-POINTER-P CL+SSL::BIO) 0) ; (T (CL+SSL::BIO-SET-INIT CL+SSL::BIO 0) ; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) 1)) ; (SERIOUS-CONDITION (CL+SSL::C) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0))) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET SETF SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY ; ==> ; (LET ((CL+SSL::BIO CL+SSL::BIO)) ; (BLOCK CL+SSL::LISP-DESTROY-OPAQUE ; (HANDLER-CASE (COND (# 0) (T # # 1)) ; (SERIOUS-CONDITION (CL+SSL::C) ; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0)))) ; ; note: doing SAP to pointer coercion (cost 20) to BIO ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/bio-tmpMU5GUFP8.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/conditions.lisp" (written 20 OCT 2024 03:56:35 PM): ; file: /startdir/src/_build/cl-plus-ssl/src/conditions.lisp ; in: DEFUN SSL-SIGNAL-ERROR ; 'CL+SSL::SSL-ERROR-ZERO-RETURN ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/conditions-tmpBP201KII.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/ssl-funcall.lisp" (written 20 OCT 2024 03:56:35 PM): ; file: /startdir/src/_build/cl-plus-ssl/src/ssl-funcall.lisp ; in: DEFUN SECONDS-UNTIL-DEADLINE ; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES INTEGER &REST T). ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ENSURE-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; SUCCESS-TEST is not known to be a function ; in: DEFUN NONBLOCKING-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; SUCCESS-TEST is not known to be a function ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/ssl-funcall-tmp6LJFJXCQ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/init.lisp" (written 20 OCT 2024 03:56:35 PM): ; file: /startdir/src/_build/cl-plus-ssl/src/init.lisp ; in: CFFI:DEFCALLBACK TMP-RSA-CALLBACK ; (CL+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER) ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ; (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR))) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; CHARACTER ; (*))). ; in: DEFUN INIT-PRNG ; (LENGTH CL+SSL::SEED-BYTE-SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT CL+SSL::SEED-BYTE-SEQUENCE CL+SSL::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (CL+SSL::RAND-SEED CL+SSL::PTR LENGTH) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK LOCKING-CALLBACK ; (ELT CL+SSL::*LOCKS* CL+SSL::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; in: CFFI:DEFCALLBACK THREADID-CALLBACK ; (INCF CL+SSL::*THREAD-COUNTER*) ; ==> ; (+ 1 CL+SSL::*THREAD-COUNTER*) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFUN INITIALIZE ; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS) ; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK)) ; --> LET CEILING ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (FUNCALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS) ; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK)) ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/init-tmpCXNAFKK5.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/ffi-buffer-all.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/ffi-buffer-all-tmpAG4HDK79.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/ffi-buffer.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/ffi-buffer-tmpTX55LUC3.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/streams.lisp" (written 20 OCT 2024 03:56:35 PM): ; file: /startdir/src/_build/cl-plus-ssl/src/streams.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (SSL-STREAM) ; (CL+SSL::MAKE-BUFFER CL+SSL::OUTPUT-BUFFER-SIZE) ; --> BLOCK CFFI-SYS:MAKE-SHAREABLE-BYTE-VECTOR BLOCK MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; (CL+SSL::MAKE-BUFFER CL+SSL::INPUT-BUFFER-SIZE) ; --> BLOCK CFFI-SYS:MAKE-SHAREABLE-BYTE-VECTOR BLOCK MAKE-ARRAY ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER ; (CONS INTEGER ; NULL)). ; in: DEFMETHOD CLOSE (SSL-STREAM) ; (FUNCALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (COMPLEMENT #'MINUSP) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM) ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM) ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T) ; (PLUSP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * ; 1.7592186044415d13)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * ; 1.7592186044415d13)), not a DOUBLE-FLOAT. ; (< CL+SSL::START CL+SSL::END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (ELT CL+SSL::SEQ CL+SSL::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL+SSL::S/B-REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START :END1 ; (+ CL+SSL::START CL+SSL::READ-BYTES)) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (OR SIMPLE-BASE-STRING NULL). ; (< CL+SSL::START CL+SSL::END) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (PLUSP LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM. ; etc. ; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T) ; (CL+SSL::BUFFER-ELT CL+SSL::BUF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; --> BLOCK SETF SB-C::WITH-SOURCE-FORM ELT ; ==> ; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM7)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-WRITE-SEQUENCE (SSL-STREAM T T T) ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) :START2 ; CL+SSL::START :END2 CL+SSL::END) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &OPTIONAL). ; etc. ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) ; (- CL+SSL::END CL+SSL::START)) ; ==> ; (+ (- CL+SSL::END CL+SSL::START) ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM45)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-FORCE-OUTPUT (SSL-STREAM) ; (PLUSP CL+SSL::FILL-PTR) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFUN X509-CERTIFICATE-NAMES ; (CFFI-SYS:WITH-FOREIGN-POINTER (CL+SSL::BUF 1024) ; (LET ((CL+SSL::ISSUER-NAME ; (CL+SSL::X509-GET-ISSUER-NAME CL+SSL::X509-CERTIFICATE)) ; (CL+SSL::SUBJECT-NAME ; (CL+SSL::X509-GET-SUBJECT-NAME CL+SSL::X509-CERTIFICATE))) ; (VALUES ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::ISSUER-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF)) ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::SUBJECT-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF))))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; in: DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS ; (CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS CL+SSL::*SSL-GLOBAL-CONTEXT* ; CL+SSL::CAFILE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN MAKE-SSL-CLIENT-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (1- CL+SSL::LEN) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &OPTIONAL). ; 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 &OPTIONAL). ; etc. ; in: DEFUN MAKE-SSL-SERVER-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; in: DEFUN GET-SELECTED-ALPN-PROTOCOL ; (CL+SSL::SSL-GET0-ALPN-SELECTED ; (CL+SSL::SSL-STREAM-HANDLE CL+SSL::SSL-STREAM) CL+SSL::PTR CL+SSL::LEN) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; (CFFI:FOREIGN-STRING-TO-LISP (CFFI:MEM-REF CL+SSL::PTR :POINTER) :COUNT ; (CFFI:MEM-REF CL+SSL::LEN :INT)) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/streams-tmpOFPBS7B8.fasl ; compilation finished in 0:00:00.109 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/x509.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/x509-tmpN94P6QHO.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/random.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/random-tmp7PI54QD2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/context.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/context-tmp2KPVYDA8.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-plus-ssl/src/verify-hostname.lisp" (written 20 OCT 2024 03:56:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-plus-ssl/src/verify-hostname-tmp96FLK53O.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/drakma/packages.lisp" (written 20 OCT 2024 03:56:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/packages-tmpVXGJXF6B.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/drakma/specials.lisp" (written 20 OCT 2024 03:56:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/specials-tmp6TIYUV96.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/drakma/conditions.lisp" (written 20 OCT 2024 03:56:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/conditions-tmpSE0QLD5B.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/drakma/util.lisp" (written 20 OCT 2024 03:56:50 PM): ; file: /startdir/src/_build/drakma/util.lisp ; in: DEFUN USER-AGENT-STRING ; (OR (LISP-IMPLEMENTATION-TYPE) "Common Lisp") ; --> IF ; ==> ; "Common Lisp" ; ; note: deleting unreachable code ; (OR (LISP-IMPLEMENTATION-VERSION) "") ; --> IF ; ==> ; "" ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/util-tmp65JBUOWY.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/drakma/read.lisp" (written 20 OCT 2024 03:56:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/read-tmpE8RY5GCJ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/drakma/cookies.lisp" (written 20 OCT 2024 03:56:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/cookies-tmpK6B9YU0C.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/drakma/encoding.lisp" (written 20 OCT 2024 03:56:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/encoding-tmp6RAYVCZW.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/drakma/request.lisp" (written 20 OCT 2024 03:56:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/drakma/request-tmpA61ZVGEL.fasl ; compilation finished in 0:00:00.076 ; compiling file "/startdir/src/_build/cl-utilities/package.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/package-tmp4RW61Z3D.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-utilities/split-sequence.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/split-sequence-tmpLUSCH4I7.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-utilities/with-unique-names.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/with-unique-names-tmp7IXFX52H.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-utilities/once-only.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/once-only-tmp2R82LQR0.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-utilities/extremum.lisp" (written 20 OCT 2024 03:56:40 PM): ; file: /startdir/src/_build/cl-utilities/extremum.lisp ; in: DEFUN COMPARATOR ; (FUNCALL CL-UTILITIES::TEST (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; in: DEFUN EXTREMUM ; (DEFUN CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE ; &KEY (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; #<(SIMPLE-ARRAY CHARACTER ; (225)) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {120CC1169F}> ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE ; (CL-UTILITIES::COMPARATOR CL-UTILITIES::PREDICATE CL-UTILITIES::KEY) ; SEQUENCE :START CL-UTILITIES::START :END CL-UTILITIES::END))) ; ==> ; (SB-IMPL::%DEFUN 'CL-UTILITIES:EXTREMUM ; (SB-INT:NAMED-LAMBDA CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE &KEY ; (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-BASE-STRING ; 225) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {120CC11A5F}> ; (BLOCK CL-UTILITIES:EXTREMUM ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE ; CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE # SEQUENCE :START CL-UTILITIES::START :END ; CL-UTILITIES::END))))) ; ; caught STYLE-WARNING: ; Call to CL-UTILITIES::ZERO-LENGTH-P 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: DEFUN EXTREMUM-FASTKEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::X) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::PREDICATE CL-UTILITIES::X-KEY ; CL-UTILITIES::SMALLEST-KEY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PREDICATE is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF >= OR LET IF ; ==> ; (LENGTH #:SEQUENCE1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> IF OR LET IF ; ==> ; (>= #:START2 (OR #:END3 (LENGTH #:SEQUENCE1))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (ELT SEQUENCE 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF ; ==> ; (>= #:START2 (OR #:END3 (LENGTH #:SEQUENCE1))) ; ; note: forced to do full call ; 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. ; 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. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/extremum-tmpN3B5JWXT.fasl ; compilation finished in 0:00:00.030 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/cl-utilities/read-delimited.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/read-delimited-tmp5K3D12M0.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-utilities/expt-mod.lisp" (written 20 OCT 2024 03:56:40 PM): ; file: /startdir/src/_build/cl-utilities/expt-mod.lisp ; in: DEFUN EXPT-MOD ; (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) ; ; note: unable to ; optimize ; due to type uncertainty: ; 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 REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; 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 REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR RATIONAL (COMPLEX RATIONAL)). ; The second argument is a NUMBER, not a INTEGER. ; (MOD (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) CL-UTILITIES::MODULUS) ; ; 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 FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a FIXNUM. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/expt-mod-tmpYZS9ORGN.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-utilities/compose.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/compose-tmpKA4LL4BN.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-utilities/collecting.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/collecting-tmpKRR1J698.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-utilities/rotate-byte.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/rotate-byte-tmp570ISN87.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-utilities/copy-array.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-utilities/copy-array-tmpIPPJG5IK.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/quri/src/port.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/port-tmpCY2HPI62.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/quri/src/uri.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/uri-tmpL4PLYSMQ.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/quri/src/error.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/error-tmp90WIGG8R.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/quri/src/util.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/util-tmpPHN42PM1.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/quri/src/encode.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/encode-tmpFXGWJOII.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/quri/src/decode.lisp" (written 20 OCT 2024 03:57:37 PM): ; file: /startdir/src/_build/quri/src/decode.lisp ; in: DEFUN URL-DECODE ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::PARSING ; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32) ; (QURI.UTIL:REDO)) ; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO)))) ; (QURI.DECODE::PARSING-ENCODED-PART ; (SETQ QURI.DECODE::PARSING-ENCODED-PART CHAR) (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-ENCODED-PART-SECOND ; (HANDLER-BIND ((QURI.ERROR:URL-DECODING-ERROR #)) ; (QURI.DECODE::WRITE-TO-BUFFER (+ # #))) ; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL) ; (QURI.UTIL:GOTO QURI.DECODE::PARSING)) ; (:EOF ; (WHEN QURI.DECODE::PARSING-ENCODED-PART ; (ERROR 'QURI.ERROR:URL-DECODING-ERROR)))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; --> SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (- QURI.DECODE::END QURI.DECODE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (QURI.UTIL:REDO) ; --> LOCALLY INCF SETQ ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (QURI.UTIL:GONEXT) ; --> LOCALLY INCF SETQ ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (INCF QURI.DECODE::I) ; --> THE ; ==> ; (+ 1 QURI.DECODE::I) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; --> INCF SETQ ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFUN URL-DECODE-PARAMS ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P) ; (IF QURI.DECODE::LENIENT ; (COND (# # #) (# #)) ; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING))) ; (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-FIELD ; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (QURI.DECODE::PARSING-VALUE ; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (:EOF ; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)) ; (QURI.DECODE::START-MARK ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P))))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING-VALUE) ; --> SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ IF FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; --> LOCALLY SETQ IF AREF ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/decode-tmp61U154E8.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/quri/src/uri/ftp.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/uri/ftp-tmpJL840EJB.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/quri/src/uri/http.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/uri/http-tmpP6WT67MY.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/quri/src/uri/ldap.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/uri/ldap-tmpHKLMC92Z.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/quri/src/uri/file.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/uri/file-tmpI2PYUEMW.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/quri/src/etld.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/etld-tmpOKTALX52.fasl ; compilation finished in 0:00:01.659 ; compiling file "/startdir/src/_build/quri/src/domain.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/domain-tmpGJIHCBMO.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/quri/src/parser.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/parser-tmp59XTDCD6.fasl ; compilation finished in 0:00:00.213 ; compiling file "/startdir/src/_build/quri/src/quri.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/quri/src/quri-tmp1Z52HZRL.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-gopher/cl-gopher-package.lisp" (written 20 OCT 2024 03:56:33 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gopher/cl-gopher-package-tmp24DFEJ91.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-gopher/cl-gopher.lisp" (written 20 OCT 2024 03:56:33 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gopher/cl-gopher-tmpIGJ98JSU.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/cl-gopher/client.lisp" (written 20 OCT 2024 03:56:33 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-gopher/client-tmpP7GRL47U.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-difflib/package.lisp" (written 20 OCT 2024 03:56:30 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-difflib/package-tmp6WQCTWZY.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-difflib/difflib.lisp" (written 20 OCT 2024 03:56:30 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-difflib/difflib-tmp1RW346KS.fasl ; compilation finished in 0:00:00.093 ; compiling file "/startdir/src/_build/cl-html-diff/html-diff.lisp" (written 20 OCT 2024 03:56:33 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-html-diff/html-diff-tmpDHMOASYF.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-json/src/package.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/package-tmpLV9XXT6H.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-json/src/common.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/common-tmp49ODV8UF.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-json/src/objects.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/objects-tmpCGWUF3C1.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-json/src/camel-case.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/camel-case-tmpWYLQBKV1.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-json/src/decoder.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/decoder-tmpQZJT0GSW.fasl ; compilation finished in 0:00:00.123 ; compiling file "/startdir/src/_build/cl-json/src/encoder.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/encoder-tmp80IHNYG7.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/cl-json/src/utils.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/utils-tmp4W6239QB.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-json/src/json-rpc.lisp" (written 20 OCT 2024 03:56:34 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-json/src/json-rpc-tmpPLIY2OU6.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/cl-unicode/packages.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/packages-tmpDQVK0IID.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-unicode/specials.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/specials-tmp4IEM0NNS.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-unicode/util.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/util-tmpIBGLG2RO.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-unicode/build/util.lisp" (written 20 OCT 2024 03:56:40 PM): ; file: /startdir/src/_build/cl-unicode/build/util.lisp ; in: DEFVAR *THIS-FILE* ; (OR #P"/startdir/src/_build/cl-unicode/build/util.lisp" *LOAD-PATHNAME*) ; --> IF ; ==> ; *LOAD-PATHNAME* ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/build/util-tmpEGCLAL00.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-unicode/build/char-info.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/build/char-info-tmpSZHJVKDY.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-unicode/build/read.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/build/read-tmpUAHIESL5.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-unicode/build/dump.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/build/dump-tmpW9B68D3X.fasl ; compilation finished in 0:00:00.016 ;;; Parsing Unicode file UnicodeData.txt ;;; Parsing Unicode file Scripts.txt ;;; Parsing Unicode file Blocks.txt ;;; Parsing Unicode file WordBreakProperty.txt ;;; Parsing Unicode file PropList.txt ;;; Parsing Unicode file DerivedAge.txt ;;; Parsing Unicode file BidiMirroring.txt ;;; Parsing Unicode file Jamo.txt ;;; Parsing Unicode file PropertyAliases.txt ;;; Building hash tables ;;; Writing source file methods.lisp ;;; Writing source file hash-tables.lisp ;;; Writing source file lists.lisp ;;; Writing source file derived-properties ;;; Parsing Unicode file DerivedCoreProperties.txt ; compiling file "/startdir/src/_build/cl-unicode/conditions.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/conditions-tmpIEKBGFG3.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-unicode/lists.lisp" (written 30 APR 2026 07:51:53 AM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/lists-tmpK26E5ZH.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-unicode/hash-tables.lisp" (written 30 APR 2026 07:51:53 AM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/hash-tables-tmpVCL2WD00.fasl ; compilation finished in 0:00:00.616 ;;; Computing Hangul syllable names ; compiling file "/startdir/src/_build/cl-unicode/api.lisp" (written 20 OCT 2024 03:56:40 PM): ; file: /startdir/src/_build/cl-unicode/api.lisp ; in: DEFUN LIST-ALL-CHARACTERS ; (IF CL-UNICODE::WANT-CODE-POINT-P ; CL-UNICODE:+CODE-POINT-LIMIT+ ; CHAR-CODE-LIMIT) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/api-tmpZQ9PPEAP.fasl ; compilation finished in 0:00:00.063 ; compiling file "/startdir/src/_build/cl-unicode/methods.lisp" (written 30 APR 2026 07:51:53 AM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/methods-tmpNRJPZMRB.fasl ; compilation finished in 0:00:00.113 ; compiling file "/startdir/src/_build/cl-unicode/test-functions.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/test-functions-tmpPP68IXIC.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-unicode/derived.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/derived-tmpR43VJ9D9.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-unicode/alias.lisp" (written 20 OCT 2024 03:56:40 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-unicode/alias-tmpRFKXLIA4.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-ppcre/cl-ppcre-unicode/packages.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/cl-ppcre-unicode/packages-tmpULFHDN08.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-ppcre/cl-ppcre-unicode/resolver.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-ppcre/cl-ppcre-unicode/resolver-tmpOPRDPHFK.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/moptilities/dev/moptilities.lisp" (written 20 OCT 2024 03:57:19 PM): ; file: /startdir/src/_build/moptilities/dev/moptilities.lisp ; in: DEFUN CARE-WHEN-FINALIZED ; (FINALIZE METABANG.MOPTILITIES::OBJECT 'METABANG.MOPTILITIES:WHEN-FINALIZED) ; ; caught STYLE-WARNING: ; The function WHEN-FINALIZED is called by SB-EXT:FINALIZE with zero arguments, but wants exactly one. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/moptilities/dev/moptilities-tmp8WFA6KMU.fasl ; compilation finished in 0:00:00.090 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/s-xml/src/package.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-xml/src/package-tmpZIM0NZGF.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/s-xml/src/xml.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-xml/src/xml-tmp3R1UUX74.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/s-xml/src/dom.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-xml/src/dom-tmpJE96SV6A.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/s-xml/src/lxml-dom.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-xml/src/lxml-dom-tmpM126WEAV.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/s-xml/src/sxml-dom.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-xml/src/sxml-dom-tmpS2HNWOVW.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/s-xml/src/xml-struct-dom.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-xml/src/xml-struct-dom-tmpR3PRZE8Z.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/usocket/server.lisp" (written 20 OCT 2024 03:57:59 PM): ; file: /startdir/src/_build/usocket/server.lisp ; in: DEFUN SOCKET-SERVER ; (DEFUN USOCKET:SOCKET-SERVER ; (USOCKET::HOST USOCKET::PORT FUNCTION ; &OPTIONAL USOCKET::ARGUMENTS ; &KEY USOCKET::IN-NEW-THREAD (USOCKET::PROTOCOL :STREAM) ; (USOCKET::TIMEOUT 1) ; (USOCKET::MAX-BUFFER-SIZE USOCKET:+MAX-DATAGRAM-PACKET-SIZE+) ; USOCKET::ELEMENT-TYPE (USOCKET::REUSE-ADDRESS T) ...) ; (LET* ((USOCKET::REAL-HOST (OR USOCKET::HOST USOCKET:*WILDCARD-HOST*)) ; (USOCKET:SOCKET (ECASE USOCKET::PROTOCOL # #))) ; (LABELS ((USOCKET::REAL-CALL # ; #)) ; (IF USOCKET::IN-NEW-THREAD ; (VALUES # USOCKET:SOCKET) ; (PROGN # #))))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA USOCKET:SOCKET-SERVER ; (USOCKET::HOST USOCKET::PORT FUNCTION &OPTIONAL USOCKET::ARGUMENTS &KEY ; USOCKET::IN-NEW-THREAD (USOCKET::PROTOCOL :STREAM) ; (USOCKET::TIMEOUT 1) ; (USOCKET::MAX-BUFFER-SIZE USOCKET:+MAX-DATAGRAM-PACKET-SIZE+) ; USOCKET::ELEMENT-TYPE (USOCKET::REUSE-ADDRESS T) ...) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK USOCKET:SOCKET-SERVER ; (LET* ((USOCKET::REAL-HOST #) (USOCKET:SOCKET #)) ; (LABELS (#) ; (IF USOCKET::IN-NEW-THREAD ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (HOST PORT FUNCTION &OPTIONAL ; ARGUMENTS &KEY IN-NEW-THREAD ; (PROTOCOL STREAM) ; (TIMEOUT 1) ; (MAX-BUFFER-SIZE ; +MAX-DATAGRAM-PACKET-SIZE+) ; ELEMENT-TYPE ; (REUSE-ADDRESS T) ; MULTI-THREADING NAME) ; in: DEFUN UDP-EVENT-LOOP ; (DEFUN USOCKET::UDP-EVENT-LOOP ; (USOCKET:SOCKET FUNCTION ; &OPTIONAL USOCKET::ARGUMENTS ; &KEY USOCKET::TIMEOUT USOCKET::MAX-BUFFER-SIZE) ; (LET ((USOCKET::BUFFER ; (MAKE-ARRAY USOCKET::MAX-BUFFER-SIZE :ELEMENT-TYPE '# ; :INITIAL-ELEMENT 0)) ; (USOCKET::SOCKETS (LIST USOCKET:SOCKET))) ; (UNWIND-PROTECT (LOOP DO (MULTIPLE-VALUE-BIND # # # #)) ; (USOCKET:SOCKET-CLOSE USOCKET:SOCKET) ; (VALUES)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA USOCKET::UDP-EVENT-LOOP ; (USOCKET:SOCKET FUNCTION &OPTIONAL USOCKET::ARGUMENTS &KEY ; USOCKET::TIMEOUT USOCKET::MAX-BUFFER-SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK USOCKET::UDP-EVENT-LOOP ; (LET ((USOCKET::BUFFER #) (USOCKET::SOCKETS #)) ; (UNWIND-PROTECT (LOOP DO #) ; (USOCKET:SOCKET-CLOSE USOCKET:SOCKET) ; (VALUES))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (SOCKET FUNCTION &OPTIONAL ; ARGUMENTS &KEY ; TIMEOUT ; MAX-BUFFER-SIZE) ; in: DEFUN TCP-EVENT-LOOP ; (DEFUN USOCKET::TCP-EVENT-LOOP ; (USOCKET:SOCKET FUNCTION ; &OPTIONAL USOCKET::ARGUMENTS ; &KEY USOCKET::ELEMENT-TYPE USOCKET::MULTI-THREADING) ; (LET ((USOCKET::REAL-FUNCTION #'(LAMBDA # #))) ; (UNWIND-PROTECT (LOOP DO (BLOCK CONTINUE #)) ; (USOCKET:SOCKET-CLOSE USOCKET:SOCKET) ; (VALUES)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA USOCKET::TCP-EVENT-LOOP ; (USOCKET:SOCKET FUNCTION &OPTIONAL USOCKET::ARGUMENTS &KEY ; USOCKET::ELEMENT-TYPE USOCKET::MULTI-THREADING) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK USOCKET::TCP-EVENT-LOOP ; (LET ((USOCKET::REAL-FUNCTION #'#)) ; (UNWIND-PROTECT (LOOP DO #) ; (USOCKET:SOCKET-CLOSE USOCKET:SOCKET) ; (VALUES))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (SOCKET FUNCTION &OPTIONAL ; ARGUMENTS &KEY ; ELEMENT-TYPE ; MULTI-THREADING) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/usocket/server-tmpBE4ZJXFG.fasl ; compilation finished in 0:00:00.016 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/s-sysdeps/src/package.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-sysdeps/src/package-tmpICLLCELY.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/s-sysdeps/src/sysdeps.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/s-sysdeps/src/sysdeps-tmpGJJYZTZA.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-prevalence/src/package.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/package-tmpO5YPH4GB.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-prevalence/src/serialization/serialization.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/serialization/serialization-tmpCVBSS8KL.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-prevalence/src/serialization/xml.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/serialization/xml-tmpWOI7FLUF.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/cl-prevalence/src/serialization/sexp.lisp" (written 20 OCT 2024 03:56:36 PM): ; file: /startdir/src/_build/cl-prevalence/src/serialization/sexp.lisp ; in: DEFGENERIC SERIALIZE-SEXP-INTERNAL ; (CLOSER-MOP:DEFGENERIC S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL ; (S-SERIALIZATION::OBJECT STREAM S-SERIALIZATION::SERIALIZATION-STATE) ; (:DOCUMENTATION ; "Write a serialized version of object to stream using s-expressions")) ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (DEFGENERIC S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL ; (S-SERIALIZATION::OBJECT STREAM S-SERIALIZATION::SERIALIZATION-STATE) ; (:DOCUMENTATION ; "Write a serialized version of object to stream using s-expressions"))) ; ; caught STYLE-WARNING: ; redefining S-SERIALIZATION::SERIALIZE-SEXP-INTERNAL in DEFGENERIC ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/serialization/sexp-tmpYSK53869.fasl ; compilation finished in 0:00:00.033 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/cl-prevalence/src/prevalence.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/prevalence-tmpUIKNFBUS.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/cl-prevalence/src/managed-prevalence.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/managed-prevalence-tmpEEFFEPQ0.fasl ; compilation finished in 0:00:00.026 WARNING: redefining CL-PREVALENCE:GET-ID in DEFGENERIC ; compiling file "/startdir/src/_build/cl-prevalence/src/master-slave.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/master-slave-tmpXUIGXRCX.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-prevalence/src/blob.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-prevalence/src/blob-tmp5WEDM9IY.fasl ; compilation finished in 0:00:00.013 WARNING: redefining CL-PREVALENCE:GET-NAME in DEFGENERIC WARNING: redefining (COMMON-LISP:SETF CL-PREVALENCE:GET-NAME) in DEFGENERIC WARNING: redefining CL-PREVALENCE:GET-SIZE in DEFGENERIC WARNING: redefining CL-PREVALENCE:GET-MIME-TYPE in DEFGENERIC WARNING: redefining (COMMON-LISP:SETF CL-PREVALENCE:GET-MIME-TYPE) in DEFGENERIC WARNING: redefining CL-PREVALENCE:GET-KEYWORDS in DEFGENERIC WARNING: redefining (COMMON-LISP:SETF CL-PREVALENCE:GET-KEYWORDS) in DEFGENERIC ; compiling file "/startdir/src/_build/salza2/package.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/package-tmpG3DC7RC6.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/salza2/reset.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/reset-tmp7RSTX2RJ.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/salza2/specials.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/specials-tmpMYAZIBWI.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/salza2/types.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/types-tmp93L20JIY.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/salza2/checksum.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/checksum-tmpTC0DH7S0.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/salza2/adler32.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/adler32-tmpC2C32579.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/salza2/crc32.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/crc32-tmpK1GRILVK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/salza2/chains.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/chains-tmpDO67TKN4.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/salza2/bitstream.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/bitstream-tmpABZ5EEBJ.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/salza2/matches.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/matches-tmp2E3UPG8J.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/salza2/compress.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/compress-tmpJ9Q6NV59.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/salza2/huffman.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/huffman-tmpAD6DHN5B.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/salza2/closures.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/closures-tmpEV76XDJ7.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/salza2/utilities.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/utilities-tmp6NE9XUCB.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/salza2/compressor.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/compressor-tmpHG4AAN1T.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/salza2/zlib.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/zlib-tmp6TLO0BDD.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/salza2/gzip.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/gzip-tmpDAM8R5KO.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/salza2/user.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/user-tmp4TY0DSV3.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/salza2/stream.lisp" (written 20 OCT 2024 03:57:37 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/salza2/stream-tmp1EP92JDZ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/zpng/package.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/zpng/package-tmpN31RJKRX.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/zpng/specials.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/zpng/specials-tmpVUDMB0W.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/zpng/utils.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/zpng/utils-tmpX006N2E0.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/zpng/chunk.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/zpng/chunk-tmp2P9ZYT3W.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/zpng/conditions.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/zpng/conditions-tmpIRDHF4NY.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/zpng/png.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/zpng/png-tmpZQGFPZZG.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/cl-qrencode/packages.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/packages-tmpD8ZAKKTH.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-qrencode/utils/util.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/utils/util-tmpXFX3XZA7.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-qrencode/rs-ecc/galois.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/rs-ecc/galois-tmpC7LYFQGW.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-qrencode/rs-ecc/bch-ecc.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/rs-ecc/bch-ecc-tmpOP8PI1I.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-qrencode/rs-ecc/rs-ecc.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/rs-ecc/rs-ecc-tmp5WHUATJM.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/modes.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/modes-tmpYMPY11OZ.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/qrspec.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/qrspec-tmpI40JKAEZ.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/input.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/input-tmpCKVV7OOP.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/bstream.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/bstream-tmpXM4X27TT.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/codeword.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/codeword-tmpS3BJFVDU.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/matrix.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/matrix-tmpY7P0ERFD.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/mask.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/mask-tmp9VCTZ4SY.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-qrencode/qrencode/encode.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/qrencode/encode-tmpN5GQHUKR.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-qrencode/image/png.lisp" (written 20 OCT 2024 03:56:36 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-qrencode/image/png-tmpOYM2VSHB.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/cl-tld/package.lisp" (written 20 OCT 2024 03:56:39 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-tld/package-tmpRE46TLRG.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-tld/cl-tld.lisp" (written 20 OCT 2024 03:56:39 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-tld/cl-tld-tmp6CGZHV5D.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/cl-tld/test.lisp" (written 20 OCT 2024 03:56:39 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-tld/test-tmp2AYMYUTU.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/dissect/package.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dissect/package-tmpUSI527R.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/dissect/toolkit.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dissect/toolkit-tmpHX59HQXM.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/dissect/interface.lisp" (written 20 OCT 2024 03:56:48 PM): ; file: /startdir/src/_build/dissect/interface.lisp ; in: DEFUN RESTARTS ; (DEFUN DISSECT:RESTARTS (&OPTIONAL CONDITION)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA DISSECT:RESTARTS ; (&OPTIONAL CONDITION) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK DISSECT:RESTARTS)) ; ; caught STYLE-WARNING: ; The variable CONDITION is defined but never used. ; in: DECLAIM (INLINE CAPTURE-ENVIRONMENT) ; (DECLAIM (INLINE DISSECT:CAPTURE-ENVIRONMENT)) ; ==> ; (SB-C::%PROCLAIM '(INLINE DISSECT:CAPTURE-ENVIRONMENT) (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming DISSECT:CAPTURE-ENVIRONMENT 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. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dissect/interface-tmpL3F4361.fasl ; compilation finished in 0:00:00.030 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/dissect/backend/sbcl.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dissect/backend/sbcl-tmpCAD6Q7RY.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/dissect/documentation.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dissect/documentation-tmpG2IW63VD.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/proc-parse/src/proc-parse.lisp" (written 20 OCT 2024 03:57:35 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/proc-parse/src/proc-parse-tmpL5C81NPH.fasl ; compilation finished in 0:00:00.096 ; compiling file "/startdir/src/_build/xsubseq/src/xsubseq.lisp" (written 20 OCT 2024 03:57:59 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/xsubseq/src/xsubseq-tmpUSWSVFQ8.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/smart-buffer/src/smart-buffer.lisp" (written 20 OCT 2024 03:57:41 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/smart-buffer/src/smart-buffer-tmpSWSOKXO5.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/fast-http/src/http.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-http/src/http-tmp7RN5HHAD.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/fast-http/src/error.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-http/src/error-tmp1KNNC72G.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/fast-http/src/byte-vector.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-http/src/byte-vector-tmpDJLL20WM.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/fast-http/src/util.lisp" (written 20 OCT 2024 03:56:56 PM): ; file: /startdir/src/_build/fast-http/src/util.lisp ; in: DEFUN NUMBER-STRING-P ; (RETURN-FROM FAST-HTTP.UTIL:NUMBER-STRING-P NIL) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-http/src/util-tmpVH74E143.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/fast-http/src/parser.lisp" (written 20 OCT 2024 03:56:56 PM): ; file: /startdir/src/_build/fast-http/src/parser.lisp ; in: DEFUN-SPEEDY PARSE-HEADER-VALUE ; (PROC-PARSE:WITH-OCTETS-PARSING (FAST-HTTP.PARSER::DATA :START ; FAST-HTTP.PARSER::START :END ; FAST-HTTP.PARSER::END) ; (PROC-PARSE:SKIP* (NOT #\Return)) ; (PROC-PARSE:ADVANCE) ; (PROC-PARSE:SKIP #\Newline) ; (WHEN FAST-HTTP.PARSER::FIELD-START ; (FAST-HTTP.PARSER::CALLBACK-DATA :HEADER-FIELD FAST-HTTP.HTTP:HTTP ; FAST-HTTP.PARSER:CALLBACKS ; FAST-HTTP.PARSER::DATA ; FAST-HTTP.PARSER::FIELD-START ; FAST-HTTP.PARSER::FIELD-END)) ; (FAST-HTTP.PARSER::CALLBACK-DATA :HEADER-VALUE FAST-HTTP.HTTP:HTTP ; FAST-HTTP.PARSER:CALLBACKS ; FAST-HTTP.PARSER::DATA ; FAST-HTTP.PARSER::START ; (- (PROC-PARSE:POS) 2)) ; (PROC-PARSE:POS)) ; --> LET OR LET IF ; ==> ; (LENGTH #:DATA5) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN-SPEEDY PARSE-HEADER-VALUE-CONTENT-LENGTH ; (* 10 FAST-HTTP.PARSER::CONTENT-LENGTH) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -10) (INTEGER 0 0) (INTEGER 10)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -10) (INTEGER 0 0) (INTEGER 10)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ (* 10 FAST-HTTP.PARSER::CONTENT-LENGTH) ; (FAST-HTTP.BYTE-VECTOR:DIGIT-BYTE-CHAR-TO-INTEGER (PROC-PARSE:CURRENT))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -10) (INTEGER 0 0) (INTEGER 10)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -10) (INTEGER 0 0) (INTEGER 10)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-SPEEDY PARSE-HEADER-LINE ; (<= FAST-HTTP.PARSER::END FAST-HTTP.PARSER::START) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; in: DEFUN-SPEEDY READ-BODY-DATA ; (- FAST-HTTP.PARSER::END FAST-HTTP.PARSER::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (<= (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP) ; FAST-HTTP.PARSER::READABLE-COUNT) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; (+ FAST-HTTP.PARSER::START ; (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DECF (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP) ; FAST-HTTP.PARSER::READABLE-COUNT) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-http/src/parser-tmpCEJA5HFB.fasl ; compilation finished in 0:00:03.536 ; compiling file "/startdir/src/_build/fast-http/src/multipart-parser.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-http/src/multipart-parser-tmp6GEAK2GT.fasl ; compilation finished in 0:00:00.073 ; compiling file "/startdir/src/_build/fast-http/src/fast-http.lisp" (written 20 OCT 2024 03:56:56 PM): ; file: /startdir/src/_build/fast-http/src/fast-http.lisp ; in: DEFUN-CAREFUL MAKE-PARSER ; (STRING= FAST-HTTP::PARSING-HEADER-FIELD "set-cookie") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (SIMPLE-ARRAY CHARACTER ; (*))), not a (SIMPLE-ARRAY CHARACTER (*)). ; (CONCATENATE 'STRING (THE SIMPLE-STRING FAST-HTTP::PREVIOUS-VALUE) ", " ; FAST-HTTP::HEADER-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-http/src/fast-http-tmp1WEO8P7C.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/static-vectors/src/pkgdcl.lisp" (written 20 OCT 2024 03:57:45 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/static-vectors/src/pkgdcl-tmp8QS36HP2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/static-vectors/src/constantp.lisp" (written 20 OCT 2024 03:57:45 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/static-vectors/src/constantp-tmpV83UE4D2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/static-vectors/src/impl-sbcl.lisp" (written 20 OCT 2024 03:57:45 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/static-vectors/src/impl-sbcl-tmpUECJMKRU.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/static-vectors/src/constructor.lisp" (written 20 OCT 2024 03:57:45 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/static-vectors/src/constructor-tmpBIKN0GEV.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/static-vectors/src/cffi-type-translator.lisp" (written 20 OCT 2024 03:57:45 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/static-vectors/src/cffi-type-translator-tmpN9OLPRYR.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/fast-io/src/package.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-io/src/package-tmp7J8EIAY6.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/fast-io/src/types.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-io/src/types-tmpNHY1ORP1.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/fast-io/src/io.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-io/src/io-tmpGLFY77HZ.fasl ; compilation finished in 0:00:00.180 ; compiling file "/startdir/src/_build/fast-io/src/gray.lisp" (written 20 OCT 2024 03:56:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fast-io/src/gray-tmpZJMS8UWP.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/local-time/src/package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/local-time/src/package-tmp8RMUI7L9.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/local-time/src/local-time.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/local-time/src/local-time.lisp ; in: DEFPARAMETER *DEFAULT-TIMEZONE-REPOSITORY-PATH* ; (OR #P"/startdir/src/_build/local-time/src/local-time.lisp" *LOAD-TRUENAME*) ; --> IF ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; in: DEFUN TIMESTAMP-MINIMIZE-PART ; (IF LOCAL-TIME::TIMEZONE ; NIL ; LOCAL-TIME::OFFSET) ; ; note: deleting unreachable code ; in: DEFUN TIMESTAMP-MAXIMIZE-PART ; (IF LOCAL-TIME::TIMEZONE ; NIL ; LOCAL-TIME::OFFSET) ; ; note: deleting unreachable code ; in: %DEFCOMPARATOR TIMESTAMP<= ; (LOCAL-TIME::%DEFCOMPARATOR LOCAL-TIME:TIMESTAMP<= ; (NOT ; (NULL ; (MEMBER ; (LOCAL-TIME::%TIMESTAMP-COMPARE LOCAL-TIME::TIME-A LOCAL-TIME::TIME-B) ; '(< =))))) ; --> DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO 'LOCAL-TIME:TIMESTAMP<= ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; LOCAL-TIME:TIMESTAMP<=) ; (#:EXPR #:ENV) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (&REST LOCAL-TIME::TIMES))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO ; LOCAL-TIME:TIMESTAMP<= ; . DEFINE-COMPILER-MACRO) ; (&REST LOCAL-TIME::TIMES) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (DECLARE ; (SB-C::CONSTANT-VALUE LOCAL-TIME::TIMES) ; (SB-C::NO-COMPILER-MACRO ; LOCAL-TIME:TIMESTAMP<=)) ; (BLOCK LOCAL-TIME:TIMESTAMP<= ; (LET # ; `#))))) ; ; caught STYLE-WARNING: ; 1 call to LOCAL-TIME:TIMESTAMP<= 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: DEFUN %SPLIT-TIMESTRING ; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 4) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 2) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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. ; (POSITION #\0 LOCAL-TIME::TIME-STRING :TEST-NOT #'EQL :START ; LOCAL-TIME::START :END LOCAL-TIME::END :FROM-END T) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFUN %CONSTRUCT-TIMESTRING ; (AREF LOCAL-TIME:+MONTH-NAMES+ LOCAL-TIME::MONTH) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF LOCAL-TIME:+SHORT-MONTH-NAMES+ LOCAL-TIME::MONTH) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF LOCAL-TIME:+DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF LOCAL-TIME:+SHORT-DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF LOCAL-TIME::+MINIMAL-DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (MINUSP LOCAL-TIME::VAL) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (ABS LOCAL-TIME::VAL) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT (0.0)) (RATIONAL (0))) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT * (0.0)) (RATIONAL * (0))), not a SINGLE-FLOAT. ; The result is a (VALUES (OR (FLOAT (0.0)) (RATIONAL (0))) &OPTIONAL), not a (VALUES ; SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/local-time/src/local-time-tmpWRPFNKSS.fasl ; compilation finished in 0:00:00.413 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/cl-cookie/src/cl-cookie.lisp" (written 20 OCT 2024 03:56:29 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-cookie/src/cl-cookie-tmpDMRVPJ4B.fasl ; compilation finished in 0:00:01.390 ; compiling file "/startdir/src/_build/trivial-mimes/mime-types.lisp" (written 20 OCT 2024 03:57:56 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-mimes/mime-types-tmp2VDU9LRH.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/dexador/src/encoding.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/encoding-tmpLRLV5H3Y.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/dexador/src/connection-cache.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/connection-cache-tmpV35RW8JI.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/dexador/src/decoding-stream.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/decoding-stream-tmpT00M9MI3.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/dexador/src/keep-alive-stream.lisp" (written 20 OCT 2024 03:56:48 PM): ; file: /startdir/src/_build/dexador/src/keep-alive-stream.lisp ; in: DEFMETHOD STREAM-READ-SEQUENCE (KEEP-ALIVE-STREAM T T T) ; (MIN (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::START) ; (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (<= (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (MIN (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::START) ; (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; etc. ; (+ DEXADOR.KEEP-ALIVE-STREAM::START DEXADOR.KEEP-ALIVE-STREAM::TO-READ) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &OPTIONAL). ; etc. ; (DECF (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM) ; (- DEXADOR.KEEP-ALIVE-STREAM::N DEXADOR.KEEP-ALIVE-STREAM::START)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/keep-alive-stream-tmp7CJ2FZWD.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/dexador/src/util.lisp" (written 20 OCT 2024 03:56:48 PM): ; file: /startdir/src/_build/dexador/src/util.lisp ; in: DEFUN-SPEEDY %ASCII-STRING-TO-OCTETS ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (AREF STRING DEXADOR.UTIL::I) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; in: DEFPARAMETER *DEFAULT-USER-AGENT* ; (OR (LISP-IMPLEMENTATION-TYPE) "Common Lisp") ; --> IF ; ==> ; "Common Lisp" ; ; note: deleting unreachable code ; (OR (LISP-IMPLEMENTATION-VERSION) "") ; --> IF ; ==> ; "" ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/util-tmpTPL3ZK3D.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/dexador/src/body.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/body-tmp8LOSL08L.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/dexador/src/error.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/error-tmpSO5QX98F.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/dexador/src/backend/usocket.lisp" (written 20 OCT 2024 03:56:48 PM): ; file: /startdir/src/_build/dexador/src/backend/usocket.lisp ; in: DEFUN-SPEEDY MULTIPART-CONTENT-LENGTH ; (+ 2 DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH 2 ; (LENGTH ; (THE SIMPLE-STRING ; (DEXADOR.BACKEND.USOCKET::CONTENT-DISPOSITION ; DEXADOR.BACKEND.USOCKET::KEY DEXADOR.BACKEND.USOCKET::VAL))) ; (IF (PATHNAMEP DEXADOR.BACKEND.USOCKET::VAL) ; (+ 14 (LENGTH (THE SIMPLE-STRING #)) 2) ; 0) ; 2 ; (TYPECASE DEXADOR.BACKEND.USOCKET::VAL ; (PATHNAME ; (WITH-OPEN-FILE ; (DEXADOR.BACKEND.USOCKET::IN DEXADOR.BACKEND.USOCKET::VAL) ; (FILE-LENGTH DEXADOR.BACKEND.USOCKET::IN))) ; (STRING (LENGTH (THE DEXADOR.UTIL:OCTETS #))) ; (SYMBOL (LENGTH (THE DEXADOR.UTIL:OCTETS #))) ; (OTHERWISE (LENGTH (PRINC-TO-STRING DEXADOR.BACKEND.USOCKET::VAL)))) ; 2) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 8) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (LOOP DEXADOR.BACKEND.USOCKET::FOR (DEXADOR.BACKEND.USOCKET::KEY ; . DEXADOR.BACKEND.USOCKET::VAL) DEXADOR.BACKEND.USOCKET::IN DEXADOR.BACKEND.USOCKET::CONTENT ; DEXADOR.BACKEND.USOCKET::SUM (+ 2 ; DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH ; 2 ; (LENGTH ; (THE SIMPLE-STRING ; (DEXADOR.BACKEND.USOCKET::CONTENT-DISPOSITION ; DEXADOR.BACKEND.USOCKET::KEY ; DEXADOR.BACKEND.USOCKET::VAL))) ; (IF (PATHNAMEP ; DEXADOR.BACKEND.USOCKET::VAL) ; (+ 14 (LENGTH #) 2) ; 0) ; 2 ; (TYPECASE DEXADOR.BACKEND.USOCKET::VAL ; (PATHNAME (WITH-OPEN-FILE # #)) ; (STRING (LENGTH #)) ; (SYMBOL (LENGTH #)) ; (OTHERWISE (LENGTH #))) ; 2)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a FIXNUM. ; The second argument is a (INTEGER 8), not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER 8), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ ; (LOOP DEXADOR.BACKEND.USOCKET::FOR (DEXADOR.BACKEND.USOCKET::KEY ; . DEXADOR.BACKEND.USOCKET::VAL) DEXADOR.BACKEND.USOCKET::IN DEXADOR.BACKEND.USOCKET::CONTENT ; DEXADOR.BACKEND.USOCKET::SUM (+ 2 ; DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH ; 2 (LENGTH (THE SIMPLE-STRING #)) ; (IF (PATHNAMEP ; DEXADOR.BACKEND.USOCKET::VAL) ; (+ 14 # 2) ; 0) ; 2 ; (TYPECASE DEXADOR.BACKEND.USOCKET::VAL ; (PATHNAME #) ; (STRING #) ; (SYMBOL #) ; (OTHERWISE #)) ; 2)) ; 2 DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH 2 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 6 6) (INTEGER 14)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 6 6) (INTEGER 14)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 6 6) (INTEGER 14)), not a FIXNUM. ; The result is a (VALUES (INTEGER 6) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 6 6) (INTEGER 14)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER 6) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-CAREFUL REQUEST ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (FIND :CONTENT-TYPE DEXADOR.BACKEND.USOCKET::HEADERS :KEY #'CAR :TEST ; #'STRING-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (STRING= DEXADOR.BACKEND.USOCKET::CONTENT-TYPE "multipart/form-data") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; "application/x-www-form-urlencoded") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.1) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "http") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (QURI.URI:URI-SCHEME DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-SCHEME DEXADOR.BACKEND.USOCKET::URI)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (QURI.URI:URI-HOST DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-HOST DEXADOR.BACKEND.USOCKET::URI)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "socks5") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "http") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "https") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; (DOTIMES (DEXADOR.BACKEND.USOCKET::I DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH) ; (LOOP DEXADOR.BACKEND.USOCKET::UNTIL (READ-BYTE ; DEXADOR.BACKEND.USOCKET::BODY NIL ; NIL))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (EQL (QURI.URI:URI-PORT DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-PORT DEXADOR.BACKEND.USOCKET::URI)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (EQL ; (DEXADOR.BACKEND.USOCKET::USOCKET-WRAPPED-STREAM-STREAM ; DEXADOR.BACKEND.USOCKET::ORIGINAL-USER-SUPPLIED-STREAM) ; STREAM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (EQL DEXADOR.BACKEND.USOCKET::ORIGINAL-USER-SUPPLIED-STREAM STREAM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (AND (NOT USOCKET-WRAPPED-STREAM) (NOT NULL)), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (AND (NOT USOCKET-WRAPPED-STREAM) (NOT NULL)), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/backend/usocket-tmpK3U30K2D.fasl ; compilation finished in 0:00:00.176 ; compiling file "/startdir/src/_build/dexador/src/dexador.lisp" (written 20 OCT 2024 03:56:48 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/dexador/src/dexador-tmpS7SAFHYW.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/cl-enchant/enchant.lisp" (written 20 OCT 2024 03:56:31 PM): ; file: /startdir/src/_build/cl-enchant/enchant.lisp ; in: CFFI:DEFCALLBACK BROKER-DESCRIBE-FN ; (CFFI:DEFCALLBACK ENCHANT::BROKER-DESCRIBE-FN ; :VOID ; ((ENCHANT::NAME :STRING) (ENCHANT::DESC :STRING) (ENCHANT::FILE :STRING)) ; (PUSH (LIST ENCHANT::NAME ENCHANT::DESC ENCHANT::FILE) ; ENCHANT::*CALLBACK-DATA*)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ENCHANT::NAME ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ENCHANT::DESC ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ENCHANT::FILE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK DICT-DESCRIBE-FN ; (CFFI:DEFCALLBACK ENCHANT::DICT-DESCRIBE-FN ; :VOID ; ((ENCHANT::LANG :STRING) (ENCHANT::NAME :STRING) (ENCHANT::DESC :STRING) ; (ENCHANT::FILE :STRING)) ; (PUSH (LIST ENCHANT::LANG ENCHANT::NAME ENCHANT::DESC ENCHANT::FILE) ; ENCHANT::*CALLBACK-DATA*)) ; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA ; --> SB-ALIEN::%ALIEN-CALLBACK-ALIEN SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION ; --> LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ENCHANT::LANG ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ENCHANT::NAME ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ENCHANT::DESC ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ENCHANT::FILE ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-enchant/enchant-tmpH0L3YQ4I.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/cl-custom-hash-table/package.lisp" (written 20 OCT 2024 03:56:30 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-custom-hash-table/package-tmpQ0KFB7RE.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/cl-custom-hash-table/custom-hash-table.lisp" (written 20 OCT 2024 03:56:30 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-custom-hash-table/custom-hash-table-tmpMX2KGORB.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/nclasses/source/package.lisp" (written 20 OCT 2024 03:57:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nclasses/source/package-tmpGX7XANK9.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/nclasses/source/duplicates.lisp" (written 20 OCT 2024 03:57:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nclasses/source/duplicates-tmpOSW501LG.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/nclasses/source/defclass-star.lisp" (written 20 OCT 2024 03:57:20 PM): ; file: /startdir/src/_build/nclasses/source/defclass-star.lisp ; in: DEFUN SLOT-NAME-PACKAGE ; (CASE NCLASSES::*ACCESSOR-NAME-PACKAGE* ; (:SLOT-NAME (SYMBOL-PACKAGE NCLASSES::NAME)) ; (:DEFAULT *PACKAGE*) ; (T *PACKAGE*)) ; --> COND IF IF THE ; ==> ; *PACKAGE* ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nclasses/source/defclass-star-tmp6NW8AU5W.fasl ; compilation finished in 0:00:00.060 ; compiling file "/startdir/src/_build/trivial-package-local-nicknames/trivial-package-local-nicknames.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-package-local-nicknames/trivial-package-local-nicknames-tmpNCTFFFEY.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/history-tree/package.lisp" (written 20 OCT 2024 03:57:01 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/history-tree/package-tmp23SSZ451.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/history-tree/history-tree.lisp" (written 20 OCT 2024 03:57:01 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/history-tree/history-tree-tmp1VV63JBA.fasl ; compilation finished in 0:00:00.210 ; compiling file "/startdir/src/_build/idna/package.lisp" (written 20 OCT 2024 03:57:04 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/idna/package-tmpOH84MHBK.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/idna/encode.lisp" (written 20 OCT 2024 03:57:04 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/idna/encode-tmp6447RAHO.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/idna/decode.lisp" (written 20 OCT 2024 03:57:04 PM): ; file: /startdir/src/_build/idna/decode.lisp ; in: DEFUN PUNYCODE-DECODE ; (SETF (AREF IDNA::CASE-FLAGS IDNA::OUTPUT-LENGTH) (< (- CHAR-CODE 65) 26)) ; ; note: deleting unreachable code ; (SETF IDNA::CASE-FLAGS ; (NCONC (SUBSEQ IDNA::CASE-FLAGS 0 IDNA::I) (LIST (< # 26)) ; (SUBSEQ IDNA::CASE-FLAGS IDNA::I))) ; ; note: deleting unreachable code ; (LOOP IDNA::WITH IDNA::LEN = IDNA::OUTPUT-LENGTH ; IDNA::FOR IDNA::I IDNA::FROM 0 IDNA::BELOW IDNA::LEN ; DO ...) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/idna/decode-tmpZH9EMI5U.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/iolib/src/syscalls/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/pkgdcl-tmp66ZYEZK6.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/syscalls/unix-syscall-path-strings.lisp" (written 20 OCT 2024 03:57:06 PM): ; file: /startdir/src/_build/iolib/src/syscalls/unix-syscall-path-strings.lisp ; in: DEFUN SSTRING-TO-CSTRING ; (LENGTH IOLIB/SYSCALLS::SSTRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CHAR IOLIB/SYSCALLS::SSTRING IOLIB/SYSCALLS::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR IOLIB/SYSCALLS::SSTRING (INCF IOLIB/SYSCALLS::I)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN COUNT-SSTRING-OCTETS ; (LENGTH IOLIB/SYSCALLS::SSTRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CHAR IOLIB/SYSCALLS::SSTRING IOLIB/SYSCALLS::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (LOOP :WITH IOLIB/SYSCALLS::LEN := (LENGTH IOLIB/SYSCALLS::SSTRING) ; :WITH IOLIB/SYSCALLS::END-OFFSET := (1- IOLIB/SYSCALLS::LEN) ; :FOR IOLIB/SYSCALLS::I :BELOW ...) ; --> LET LET LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM2 ; (COND ; ((ZEROP IOLIB/SYSCALLS::CODE) ; (WHEN (< IOLIB/SYSCALLS::I IOLIB/SYSCALLS::END-OFFSET) ; (INCF IOLIB/SYSCALLS::I)) ; 1) ; ((< IOLIB/SYSCALLS::CODE 128) 1) ((< IOLIB/SYSCALLS::CODE 2048) 2) ; ((< IOLIB/SYSCALLS::CODE 65536) 3) ((< IOLIB/SYSCALLS::CODE 1114112) 4))) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/unix-syscall-path-strings-tmpZUNRT40W.fasl ; compilation finished in 0:00:00.050 ; pkg-config libfixposix --cflags -D_XOPEN_SOURCE=700 -D_GNU_SOURCE=1 ; cc -o /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel-tmpQVO2POWH.o -c -march=x86-64 -mtune=generic -O2 -pipe -fno-plt -fexceptions -Wp,-D_FORTIFY_SOURCE=3 -Wformat -Werror=format-security -fstack-clash-protection -fcf-protection -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -g -ffile-prefix-map=/build/sbcl/src=/usr/src/debug/sbcl -flto=auto -D_GNU_SOURCE -fno-omit-frame-pointer -DSBCL_HOME=/usr/lib/sbcl -g -Wall -Wundef -Wsign-compare -Wpointer-arith -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -Wunused-parameter -fno-omit-frame-pointer -momit-leaf-frame-pointer -D_XOPEN_SOURCE=700 -D_GNU_SOURCE=1 -fPIC -I/startdir/src/_build/cffi/ /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.c In file included from /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.c:15: /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.c: In function ‘main’: /startdir/src/_build/cffi/grovel/common.h:19:54: warning: comparison between pointer and integer 19 | #define _64_BIT_VALUE_FITS_SIGNED_P(value) ( (value) <= 0x7FFFFFFFFFFFFFFFLL ) | ^~ /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.c:6036:6: note: in expansion of macro ‘_64_BIT_VALUE_FITS_SIGNED_P’ 6036 | if(_64_BIT_VALUE_FITS_SIGNED_P(SIG_IGN)) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ /startdir/src/_build/cffi/grovel/common.h:19:54: warning: comparison between pointer and integer 19 | #define _64_BIT_VALUE_FITS_SIGNED_P(value) ( (value) <= 0x7FFFFFFFFFFFFFFFLL ) | ^~ /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.c:6050:6: note: in expansion of macro ‘_64_BIT_VALUE_FITS_SIGNED_P’ 6050 | if(_64_BIT_VALUE_FITS_SIGNED_P(SIG_DFL)) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ /startdir/src/_build/cffi/grovel/common.h:19:54: warning: comparison between pointer and integer 19 | #define _64_BIT_VALUE_FITS_SIGNED_P(value) ( (value) <= 0x7FFFFFFFFFFFFFFFLL ) | ^~ /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.c:6291:6: note: in expansion of macro ‘_64_BIT_VALUE_FITS_SIGNED_P’ 6291 | if(_64_BIT_VALUE_FITS_SIGNED_P(MAP_FAILED)) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.c:18:7: warning: unused variable ‘autotype_tmp’ [-Wunused-variable] 18 | int autotype_tmp; | ^~~~~~~~~~~~ ; cc -o /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel-tmpXDLMMPAG -Wl,-O1 -Wl,--sort-common -Wl,--as-needed -Wl,-z,relro -Wl,-z,now -Wl,-z,pack-relative-relocs -flto=auto -g -Wl,--export-dynamic /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.o ; /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix__grovel.grovel-tmp.lisp ; compiling file "/build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix.processed-grovel-file" (written 30 APR 2026 07:52:05 AM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-types-unix-tmpOA0LDZ1R.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/iolib/src/syscalls/conditions.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/conditions-tmpT7LX7L0V.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/iolib/src/syscalls/os-conditions-unix.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/os-conditions-unix-tmpLZIBU9E4.fasl ; compilation finished in 0:00:00.116 ; compiling file "/startdir/src/_build/iolib/src/syscalls/designators.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/designators-tmpITJ5MSZ0.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/iolib/src/syscalls/early.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/early-tmp7VYMS369.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/iolib/src/syscalls/ffi-functions-unix.lisp" (written 20 OCT 2024 03:57:06 PM): ; file: /startdir/src/_build/iolib/src/syscalls/ffi-functions-unix.lisp ; in: DEFENTRYPOINT STRERROR ; (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS::BUFSIZ) ; 1024) ; (IOLIB/SYSCALLS::%STRERROR IOLIB/SYSCALLS:ERRNO IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS::BUFSIZ)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD PRINT-OBJECT ; (IOLIB/SYSCALLS:STRERROR IOLIB/SYSCALLS::CODE) ; --> BLOCK MACROLET LET CFFI:WITH-FOREIGN-POINTER-AS-STRING ; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET ; --> LET LET SYMBOL-MACROLET LET PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCFUN (MEMSET "memset") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMSET "memset") ; :POINTER ; "Fill the first COUNT bytes of BUFFER with the constant VALUE." ; (IOLIB/SYSCALLS::BUFFER :POINTER) ; (IOLIB/SYSCALLS::VALUE :INT) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMSET ; (IOLIB/SYSCALLS::BUFFER IOLIB/SYSCALLS::VALUE COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Fill the first COUNT bytes of BUFFER with the constant VALUE." ; (BLOCK IOLIB/SYSCALLS:MEMSET ; (LET ((#:G0 IOLIB/SYSCALLS::BUFFER)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFCFUN (MEMCPY "memcpy") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMCPY "memcpy") ; :POINTER ; "Copy COUNT octets from SRC to DEST. ; The two memory areas must not overlap." ; (IOLIB/SYSCALLS::DEST :POINTER) ; (IOLIB/SYSCALLS::SRC :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMCPY ; (IOLIB/SYSCALLS::DEST IOLIB/SYSCALLS::SRC COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Copy COUNT octets from SRC to DEST. ; The two memory areas must not overlap." ; (BLOCK IOLIB/SYSCALLS:MEMCPY ; (LET ((#:G0 IOLIB/SYSCALLS::DEST)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFCFUN (MEMMOVE "memmove") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMMOVE "memmove") ; :POINTER ; "Copy COUNT octets from SRC to DEST. ; The two memory areas may overlap." ; (IOLIB/SYSCALLS::DEST :POINTER) ; (IOLIB/SYSCALLS::SRC :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMMOVE ; (IOLIB/SYSCALLS::DEST IOLIB/SYSCALLS::SRC COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Copy COUNT octets from SRC to DEST. ; The two memory areas may overlap." ; (BLOCK IOLIB/SYSCALLS:MEMMOVE ; (LET ((#:G0 IOLIB/SYSCALLS::DEST)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFSYSCALL (LSEEK "lfp_lseek") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:LSEEK "lfp_lseek") ; (IOLIB/SYSCALLS:OFF-T :HANDLE IOLIB/SYSCALLS:FD) ; "Reposition the offset of the open file associated with the file descriptor FD ; to the argument OFFSET according to the directive WHENCE." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T) ; (IOLIB/SYSCALLS::WHENCE :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:LSEEK ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS::WHENCE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Reposition the offset of the open file associated with the file descriptor FD ; to the argument OFFSET according to the directive WHENCE." ; (BLOCK IOLIB/SYSCALLS:LSEEK ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (%READLINK "readlink") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%READLINK "readlink") ; IOLIB/SYSCALLS:SSIZE-T ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::%READLINK ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS::%READLINK ; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM6) ; (CFFI:TRANSLATE-TO-FOREIGN IOLIB/SYSCALLS::PATH ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM6))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFENTRYPOINT READLINK ; (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS::BUF COUNT) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (%REALPATH "realpath") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%REALPATH "realpath") ; IOLIB/SYSCALLS::SSTRING ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING) ; (IOLIB/SYSCALLS::RESOLVED-PATH :POINTER)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "realpath" (:POINTER #:G0 :POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT REALPATH ; (IOLIB/SYSCALLS::%REALPATH IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::BUF) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT ; --> FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "realpath" (:POINTER #:G0 :POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (READ "read") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:READ "read") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Read at most COUNT bytes from FD into the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:READ ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Read at most COUNT bytes from FD into the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:READ ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (WRITE "write") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:WRITE "write") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Write at most COUNT bytes to FD from the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:WRITE ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Write at most COUNT bytes to FD from the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:WRITE ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (READV "readv") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:READV "readv") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Read from FD into the first IOVCNT buffers of the IOV array." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::IOV :POINTER) ; (IOLIB/SYSCALLS::IOVCNT :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:READV ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::IOV IOLIB/SYSCALLS::IOVCNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Read from FD into the first IOVCNT buffers of the IOV array." ; (BLOCK IOLIB/SYSCALLS:READV ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (WRITEV "writev") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:WRITEV "writev") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Writes to FD the first IOVCNT buffers of the IOV array." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::IOV :POINTER) ; (IOLIB/SYSCALLS::IOVCNT :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:WRITEV ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::IOV IOLIB/SYSCALLS::IOVCNT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Writes to FD the first IOVCNT buffers of the IOV array." ; (BLOCK IOLIB/SYSCALLS:WRITEV ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (PREAD "lfp_pread") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:PREAD "lfp_pread") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Read at most COUNT bytes from FD at offset OFFSET into the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:PREAD ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT IOLIB/SYSCALLS::OFFSET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Read at most COUNT bytes from FD at offset OFFSET into the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:PREAD ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (PWRITE "lfp_pwrite") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:PWRITE "lfp_pwrite") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD) ; "Write at most COUNT bytes to FD at offset OFFSET from the foreign area BUF." ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::BUF :POINTER) ; (COUNT IOLIB/SYSCALLS:SIZE-T) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:PWRITE ; (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT IOLIB/SYSCALLS::OFFSET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Write at most COUNT bytes to FD at offset OFFSET from the foreign area BUF." ; (BLOCK IOLIB/SYSCALLS:PWRITE ; (LET ((#:G0 IOLIB/SYSCALLS:FD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (SENDFILE "lfp_sendfile") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::SENDFILE "lfp_sendfile") ; (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS::INFD :HANDLE2 ; IOLIB/SYSCALLS::OUTFD) ; (IOLIB/SYSCALLS::INFD :INT) ; (IOLIB/SYSCALLS::OUTFD :INT) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T) ; (IOLIB/SYSCALLS::NBYTES IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::SENDFILE ; (IOLIB/SYSCALLS::INFD IOLIB/SYSCALLS::OUTFD IOLIB/SYSCALLS::OFFSET ; IOLIB/SYSCALLS::NBYTES) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS::SENDFILE ; (LET ((#:G0 IOLIB/SYSCALLS::INFD)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-C-STRUCT-WRAPPER STAT ; (CFFI:DEFINE-C-STRUCT-WRAPPER IOLIB/SYSCALLS:STAT NIL) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> 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 LABELS LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 ; --> SB-PCL::PV-ENV LOCALLY LET BLOCK LET SYMBOL-MACROLET ; --> SB-C::WITH-SOURCE-FORM SLOT-VALUE SB-PCL::OPTIMIZED-SET-SLOT-VALUE LET ; --> SB-PCL::INSTANCE-WRITE SB-PCL::ACCESSOR-SET-SLOT-VALUE ; --> SB-PCL::SET-SLOT-VALUE ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing unsigned word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFENTRYPOINT FUNCALL-STAT ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::BUF) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::BUF '(:STRUCT IOLIB/SYSCALLS:STAT)) ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::BUF) ; (MAKE-INSTANCE 'IOLIB/SYSCALLS:STAT :POINTER IOLIB/SYSCALLS::BUF)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; in: DEFENTRYPOINT STAT ; (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%STAT IOLIB/SYSCALLS::PATH) ; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> MAKE-INSTANCE ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT FSTAT ; (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%FSTAT IOLIB/SYSCALLS:FD) ; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> MAKE-INSTANCE ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT LSTAT ; (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%LSTAT IOLIB/SYSCALLS::PATH) ; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> MAKE-INSTANCE ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT MKSTEMP ; (CONCATENATE 'STRING IOLIB/SYSCALLS::TEMPLATE "XXXXXX") ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFENTRYPOINT MKOSTEMP ; (CONCATENATE 'STRING IOLIB/SYSCALLS::TEMPLATE "XXXXXX") ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFSYSCALL (%GETCWD "getcwd") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%GETCWD "getcwd") ; :POINTER ; (IOLIB/SYSCALLS::BUF :POINTER) ; (IOLIB/SYSCALLS:SIZE IOLIB/SYSCALLS:SIZE-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::%GETCWD ; (IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS:SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS::%GETCWD ; (LET ((#:G0 IOLIB/SYSCALLS::BUF)) ; (LET (#) ; (LET* # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFENTRYPOINT GETCWD ; (IOLIB/SYSCALLS:WITH-CSTRING-TO-SSTRING (IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS:+CSTRING-PATH-MAX+ ; IOLIB/SYSCALLS::BUFSIZE) ; (IOLIB/SYSCALLS::%GETCWD IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN ; ==> ; (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS::BUFSIZE) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (%MKDTEMP "mkdtemp") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%MKDTEMP "mkdtemp") ; IOLIB/SYSCALLS::SSTRING ; (IOLIB/SYSCALLS::TEMPLATE IOLIB/SYSCALLS::SSTRING)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET* CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "mkdtemp" (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT MKDTEMP ; (CONCATENATE 'STRING IOLIB/SYSCALLS::TEMPLATE "XXXXXX") ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (IOLIB/SYSCALLS::%MKDTEMP IOLIB/SYSCALLS::TEMPLATE) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT ; --> FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET* ; --> CFFI:CONVERT-FROM-FOREIGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "mkdtemp" (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFSYSCALL (FD-CLOEXEC-P "lfp_is_fd_cloexec") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-CLOEXEC-P "lfp_is_fd_cloexec") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFSYSCALL (FD-NONBLOCK-P "lfp_is_fd_nonblock") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-NONBLOCK-P "lfp_is_fd_nonblock") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFSYSCALL (FD-OPEN-P "lfp_is_fd_open") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-OPEN-P "lfp_is_fd_open") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFSYSCALL (FD-TTY-P "isatty") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-TTY-P "isatty") ; IOLIB/SYSCALLS:BOOL-DESIGNATOR ; (IOLIB/SYSCALLS:FD :INT)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF MINUSP ; ==> ; 1 ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFENTRYPOINT PTSNAME ; (CFFI:FOREIGN-STRING-TO-LISP IOLIB/SYSCALLS::BUF) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCFUN (CMSG.FIRSTHDR "lfp_cmsg_firsthdr") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.FIRSTHDR "lfp_cmsg_firsthdr") ; :POINTER ; (IOLIB/SYSCALLS::MSGH :POINTER)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.FIRSTHDR ; (IOLIB/SYSCALLS::MSGH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.FIRSTHDR ; (LET ((#:G0 IOLIB/SYSCALLS::MSGH)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_firsthdr" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFCFUN (CMSG.NXTHDR "lfp_cmsg_nxthdr") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.NXTHDR "lfp_cmsg_nxthdr") ; :POINTER ; (IOLIB/SYSCALLS::MSGH :POINTER) ; (IOLIB/SYSCALLS::CMSG :POINTER)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.NXTHDR ; (IOLIB/SYSCALLS::MSGH IOLIB/SYSCALLS::CMSG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.NXTHDR ; (LET ((#:G0 IOLIB/SYSCALLS::MSGH)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_nxthdr" # :CONVENTION :CDECL ; :LIBRARY :DEFAULT))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFCFUN (CMSG.SPACE "lfp_cmsg_space") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.SPACE "lfp_cmsg_space") ; IOLIB/SYSCALLS:SIZE-T ; (LENGTH IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.SPACE ; (LENGTH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.SPACE ; (LET ((#:G0 LENGTH)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_space" ; (:UNSIGNED-LONG #:G0 :UNSIGNED-LONG) ; :CONVENTION :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFCFUN (CMSG.LEN "lfp_cmsg_len") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.LEN "lfp_cmsg_len") ; IOLIB/SYSCALLS:SIZE-T ; (LENGTH IOLIB/SYSCALLS:SIZE-T)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.LEN ; (LENGTH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.LEN ; (LET ((#:G0 LENGTH)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_len" ; (:UNSIGNED-LONG #:G0 :UNSIGNED-LONG) ; :CONVENTION :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFCFUN (CMSG.DATA "lfp_cmsg_data") ; (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.DATA "lfp_cmsg_data") ; :POINTER ; (IOLIB/SYSCALLS::CMSG :POINTER)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.DATA ; (IOLIB/SYSCALLS::CMSG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CMSG.DATA ; (LET ((#:G0 IOLIB/SYSCALLS::CMSG)) ; (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_data" (:POINTER #:G0 :POINTER) ; :CONVENTION :CDECL :LIBRARY :DEFAULT)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFSYSCALL (OPENDIR "opendir") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:OPENDIR "opendir") ; :POINTER ; "Open directory PATH for listing of its contents." ; (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:OPENDIR ; (IOLIB/SYSCALLS::PATH) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Open directory PATH for listing of its contents." ; (BLOCK IOLIB/SYSCALLS:OPENDIR ; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM4) ; (CFFI:TRANSLATE-TO-FOREIGN IOLIB/SYSCALLS::PATH ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM4))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFENTRYPOINT READDIR ; (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS:NAME) ; ; note: doing SAP to pointer coercion (cost 20) ; (VALUES (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS:NAME) TYPE ; IOLIB/SYSCALLS:FILENO) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the third argument of PUSH-VALUES ; in: DEFSYSCALL (TELLDIR "telldir") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:TELLDIR "telldir") ; IOLIB/SYSCALLS:OFF-T ; "Return the current location in directory DIR." ; (IOLIB/SYSCALLS::DIRP :POINTER)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:TELLDIR ; (IOLIB/SYSCALLS::DIRP) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return the current location in directory DIR." ; (BLOCK IOLIB/SYSCALLS:TELLDIR ; (LET ((#:G0 IOLIB/SYSCALLS::DIRP)) ; (LET* (# #) ; (IF # ; # ; #:RETVAL1))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFSYSCALL (MMAP "lfp_mmap") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:MMAP "lfp_mmap") ; (:POINTER :HANDLE IOLIB/SYSCALLS:FD) ; #<(SIMPLE-ARRAY CHARACTER ; (284)) Map file referenced by FD at offset OFFSET into address space of the ; calling process at address ADDR and length LENGTH. ; PROT describes the desired memory protection of the mapping. ; FLAGS determines wh... {120C9B495F}> ; (IOLIB/SYSCALLS::ADDR :POINTER) ; (LENGTH IOLIB/SYSCALLS:SIZE-T) ; (IOLIB/SYSCALLS::PROT :INT) ; (IOLIB/SYSCALLS::FLAGS :INT) ; (IOLIB/SYSCALLS:FD :INT) ; (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)) ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MMAP ; (IOLIB/SYSCALLS::ADDR LENGTH IOLIB/SYSCALLS::PROT IOLIB/SYSCALLS::FLAGS ; IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::OFFSET) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-BASE-STRING ; 284) Map file referenced by FD at offset OFFSET into address space of the ; calling process at address ADDR and length LENGTH. ; PROT describes the desired memory protection of the mapping. ; FLAGS determines wh... {120C9B65FF}> ; (BLOCK IOLIB/SYSCALLS:MMAP ; (LET ((#:G0 IOLIB/SYSCALLS::ADDR)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFENTRYPOINT GETRLIMIT ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GETRLIMIT ; (IOLIB/SYSCALLS::RESOURCE) ; "Return soft and hard limit of system resource RESOURCE." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RL ; '(:STRUCT IOLIB/SYSCALLS:RLIMIT)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:CUR MAX) IOLIB/SYSCALLS::RL ; (:STRUCT IOLIB/SYSCALLS:RLIMIT)) ; (IOLIB/SYSCALLS::%GETRLIMIT IOLIB/SYSCALLS::RESOURCE IOLIB/SYSCALLS::RL) ; (VALUES IOLIB/SYSCALLS:CUR MAX)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GETRLIMIT ; (IOLIB/SYSCALLS::RESOURCE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return soft and hard limit of system resource RESOURCE." ; (BLOCK IOLIB/SYSCALLS:GETRLIMIT ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RL '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFENTRYPOINT GETRUSAGE ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GETRUSAGE ; (IOLIB/SYSCALLS::WHO) ; "Return resource usage measures of WHO." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RU ; '(:STRUCT IOLIB/SYSCALLS:RUSAGE)) ; (IOLIB/SYSCALLS::%GETRUSAGE IOLIB/SYSCALLS::WHO IOLIB/SYSCALLS::RU) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:MAXRSS IOLIB/SYSCALLS:IXRSS ; IOLIB/SYSCALLS:IDRSS IOLIB/SYSCALLS:ISRSS ; IOLIB/SYSCALLS:MINFLT IOLIB/SYSCALLS:MAJFLT ; IOLIB/SYSCALLS:NSWAP IOLIB/SYSCALLS:INBLOCK ; IOLIB/SYSCALLS::OUBLOCK IOLIB/SYSCALLS:MSGSND ; IOLIB/SYSCALLS:MSGRCV IOLIB/SYSCALLS:NSIGNALS ; ...) ; IOLIB/SYSCALLS::RU ; (:STRUCT IOLIB/SYSCALLS:RUSAGE)) ; (VALUES (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:SEC) ; (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:USEC) ; (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:SEC) ; (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:USEC) ; IOLIB/SYSCALLS:MAXRSS IOLIB/SYSCALLS:IXRSS IOLIB/SYSCALLS:IDRSS ; IOLIB/SYSCALLS:ISRSS IOLIB/SYSCALLS:MINFLT ; IOLIB/SYSCALLS:MAJFLT IOLIB/SYSCALLS:NSWAP ...)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GETRUSAGE ; (IOLIB/SYSCALLS::WHO) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return resource usage measures of WHO." ; (BLOCK IOLIB/SYSCALLS:GETRUSAGE ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RU '#) ; (IOLIB/SYSCALLS::%GETRUSAGE IOLIB/SYSCALLS::WHO IOLIB/SYSCALLS::RU) ; (CFFI:WITH-FOREIGN-SLOTS # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFENTRYPOINT CLOCK-GETRES ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-GETRES ; (IOLIB/SYSCALLS::CLOCK-ID) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS ; '(:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC) ; IOLIB/SYSCALLS::TS ; (:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (IOLIB/SYSCALLS::%CLOCK-GETRES IOLIB/SYSCALLS::CLOCK-ID ; IOLIB/SYSCALLS::TS) ; (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-GETRES ; (IOLIB/SYSCALLS::CLOCK-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK IOLIB/SYSCALLS:CLOCK-GETRES ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFENTRYPOINT CLOCK-GETTIME ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-GETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; "Returns the time of the clock CLOCKID." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS ; '(:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC) ; IOLIB/SYSCALLS::TS ; (:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (IOLIB/SYSCALLS::%CLOCK-GETTIME IOLIB/SYSCALLS::CLOCK-ID ; IOLIB/SYSCALLS::TS) ; (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-GETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Returns the time of the clock CLOCKID." ; (BLOCK IOLIB/SYSCALLS:CLOCK-GETTIME ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFENTRYPOINT CLOCK-SETTIME ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-SETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; "Sets the time of the clock CLOCKID." ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS ; '(:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC) ; IOLIB/SYSCALLS::TS ; (:STRUCT IOLIB/SYSCALLS:TIMESPEC)) ; (IOLIB/SYSCALLS::%CLOCK-SETTIME IOLIB/SYSCALLS::CLOCK-ID ; IOLIB/SYSCALLS::TS) ; (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-SETTIME ; (IOLIB/SYSCALLS::CLOCK-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Sets the time of the clock CLOCKID." ; (BLOCK IOLIB/SYSCALLS:CLOCK-SETTIME ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#) ; (CFFI:WITH-FOREIGN-SLOTS # ; # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFENTRYPOINT GET-MONOTONIC-TIME ; (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GET-MONOTONIC-TIME ; NIL ; "Gets current time in seconds from a system's monotonic clock." ; (MULTIPLE-VALUE-BIND (IOLIB/SYSCALLS::SECONDS IOLIB/SYSCALLS::NANOSECONDS) ; (IOLIB/SYSCALLS:CLOCK-GETTIME IOLIB/SYSCALLS:CLOCK-MONOTONIC) ; (+ IOLIB/SYSCALLS::SECONDS (/ IOLIB/SYSCALLS::NANOSECONDS 1.0d9)))) ; --> IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GET-MONOTONIC-TIME ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Gets current time in seconds from a system's monotonic clock." ; (BLOCK IOLIB/SYSCALLS:GET-MONOTONIC-TIME ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (MULTIPLE-VALUE-BIND ; (IOLIB/SYSCALLS::SECONDS IOLIB/SYSCALLS::NANOSECONDS) ; (IOLIB/SYSCALLS:CLOCK-GETTIME IOLIB/SYSCALLS:CLOCK-MONOTONIC) ; (+ IOLIB/SYSCALLS::SECONDS #))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; in: DEFSYSCALL (OS-ENVIRON "lfp_get_environ") ; (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:OS-ENVIRON "lfp_get_environ") ; :POINTER ; "Return a pointer to the current process environment.") ; --> CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:OS-ENVIRON ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Return a pointer to the current process environment." ; (BLOCK IOLIB/SYSCALLS:OS-ENVIRON ; (LET* ((#:RETVAL0 #) (#:ERRNO1 #)) ; (IF (CFFI-SYS:NULL-POINTER-P #:RETVAL0) ; (IOLIB/SYSCALLS:SIGNAL-SYSCALL-ERROR #:ERRNO1 "lfp_get_environ" ; NIL NIL) ; #:RETVAL0)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFENTRYPOINT GETENV ; (CFFI:FOREIGN-FUNCALL "getenv" :STRING IOLIB/SYSCALLS:NAME :STRING) ; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "getenv" (:POINTER #:G3 :POINTER) :CONVENTION ; :CDECL :LIBRARY :DEFAULT) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT CLEARENV ; (POSITION #\= STRING) ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (SUBSEQ STRING 0 (POSITION #\= STRING)) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CFFI:MEM-AREF IOLIB/SYSCALLS::ENVPTR :STRING IOLIB/SYSCALLS::I) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%MEM-REF IOLIB/SYSCALLS::ENVPTR :POINTER (* IOLIB/SYSCALLS::I 8)) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT GETHOSTNAME ; (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::CSTR ; IOLIB/SYSCALLS:SIZE) ; 256) ; (IOLIB/SYSCALLS::%GETHOSTNAME IOLIB/SYSCALLS::CSTR IOLIB/SYSCALLS:SIZE)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT GETDOMAINNAME ; (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::CSTR ; IOLIB/SYSCALLS:SIZE) ; 256) ; (IOLIB/SYSCALLS::%GETDOMAINNAME IOLIB/SYSCALLS::CSTR IOLIB/SYSCALLS:SIZE)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> PROGN VALUES ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFENTRYPOINT UNAME ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::BUF ; '(:STRUCT IOLIB/SYSCALLS:UTSNAME)) ; (IOLIB/SYSCALLS:BZERO IOLIB/SYSCALLS::BUF ; (IOLIB/SYSCALLS:SIZEOF '(:STRUCT IOLIB/SYSCALLS:UTSNAME))) ; (IOLIB/SYSCALLS::%UNAME IOLIB/SYSCALLS::BUF) ; (MACROLET ((IOLIB/SYSCALLS::UTSNAME-SLOT (IOLIB/SYSCALLS:NAME) ; `(CFFI:FOREIGN-STRING-TO-LISP #))) ; (VALUES (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:SYSNAME) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:NODENAME) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:RELEASE) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:VERSION) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:MACHINE)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; ==> ; (LET ((#:VAR3 ; (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#))) ; (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# ; #:VAR3) ; (SYMBOL-MACROLET ((#:ALIEN2 (SB-ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR3))) ; (LET ((#:SIZE1 390) (IOLIB/SYSCALLS::BUF #)) ; (DECLARE (IGNORABLE #:SIZE1)) ; (IOLIB/SYSCALLS:BZERO IOLIB/SYSCALLS::BUF (IOLIB/SYSCALLS:SIZEOF '#)) ; (IOLIB/SYSCALLS::%UNAME IOLIB/SYSCALLS::BUF) ; (MACROLET (#) ; (VALUES # # # # #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR3 ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:NODENAME) ; ; note: doing SAP to pointer coercion (cost 20) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:RELEASE) ; ; note: doing SAP to pointer coercion (cost 20) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:VERSION) ; ; note: doing SAP to pointer coercion (cost 20) ; (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:MACHINE) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN FUNCALL-GETPW ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI-SYS:WITH-FOREIGN-POINTER (IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS:+CSTRING-PATH-MAX+ ; IOLIB/SYSCALLS::BUFSIZE) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD ; IOLIB/SYSCALLS:UID IOLIB/SYSCALLS:GID ; IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR ; IOLIB/SYSCALLS:SHELL) ; IOLIB/SYSCALLS::PW ; (:STRUCT IOLIB/SYSCALLS:PASSWD)) ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP) ; (IF (CFFI-SYS:NULL-POINTER-P (CFFI:MEM-REF IOLIB/SYSCALLS::PWP :POINTER)) ; NIL ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:UID ; IOLIB/SYSCALLS:GID IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR ; IOLIB/SYSCALLS:SHELL)))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:UID ; IOLIB/SYSCALLS:GID IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR ; IOLIB/SYSCALLS:SHELL) ; --> CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 0) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 8) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 24) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 32) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 40) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN FUNCALL-GETGR ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI-SYS:WITH-FOREIGN-POINTER (IOLIB/SYSCALLS::BUF ; IOLIB/SYSCALLS:+CSTRING-PATH-MAX+ ; IOLIB/SYSCALLS::BUFSIZE) ; (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD ; IOLIB/SYSCALLS:GID) ; IOLIB/SYSCALLS::GR (:STRUCT IOLIB/SYSCALLS:GROUP)) ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP) ; (IF (CFFI-SYS:NULL-POINTER-P (CFFI:MEM-REF IOLIB/SYSCALLS::GRP :POINTER)) ; NIL ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD ; IOLIB/SYSCALLS:GID)))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR ; IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:GID) ; --> CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 0) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 8) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/syscalls/ffi-functions-unix-tmp5Q6ZRDL4.fasl ; compilation finished in 0:00:00.380 ; compiling file "/startdir/src/_build/iolib/src/multiplex/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/pkgdcl-tmpIDW0CJD0.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iolib/src/multiplex/utils.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/utils-tmpXJRCDLJG.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iolib/src/multiplex/timers.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/timers-tmpFRGGGIXR.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/iolib/src/multiplex/queue.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/queue-tmpCL3LCYM4.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/iolib/src/multiplex/scheduler.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/scheduler-tmpDSNY4TUY.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/multiplex/fd-entry.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/fd-entry-tmpOTT8O73E.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/iolib/src/multiplex/multiplexer.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/multiplexer-tmpONUWTQ1T.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/iolib/src/multiplex/event-loop.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/event-loop-tmp65D7UMZD.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/iolib/src/multiplex/fd-wait.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/fd-wait-tmpH4TA0R9Q.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/iolib/src/multiplex/backend-select.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/backend-select-tmpVGDD1OUM.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/iolib/src/multiplex/backend-epoll.lisp" (written 20 OCT 2024 03:57:06 PM): ; file: /startdir/src/_build/iolib/src/multiplex/backend-epoll.lisp ; in: DEFMETHOD HARVEST-EVENTS ; (IOLIB/MULTIPLEX::EPOLL-SLOT IOLIB/SYSCALLS:DATA) ; --> CFFI:CONVERT-FROM-FOREIGN CFFI-SYS:INC-POINTER ; ==> ; (CFFI:MEM-AREF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; IOLIB/MULTIPLEX::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. ; --> CFFI:CONVERT-FROM-FOREIGN CFFI-SYS:INC-POINTER CFFI:MEM-AREF ; ==> ; (CFFI:MEM-REF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; (* IOLIB/MULTIPLEX::I 12)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. ; (IOLIB/MULTIPLEX::EPOLL-SLOT IOLIB/SYSCALLS:EVENTS) ; --> CFFI:MEM-REF CFFI-SYS:%MEM-REF SB-SYS:SAP-REF-32 ; ==> ; (CFFI:MEM-AREF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; IOLIB/MULTIPLEX::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. ; --> CFFI:MEM-REF CFFI-SYS:%MEM-REF SB-SYS:SAP-REF-32 CFFI:MEM-AREF ; ==> ; (CFFI:MEM-REF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT ; (* IOLIB/MULTIPLEX::I 12)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/backend-epoll-tmpDNLRFQPE.fasl ; compilation finished in 0:00:00.043 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/iolib/src/multiplex/detect.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/multiplex/detect-tmpXDSZMY7Y.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/iolib/src/streams/gray/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/streams/gray/pkgdcl-tmpIUYTKQWI.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iolib/src/streams/gray/classes.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/streams/gray/classes-tmpWH1U2SXK.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/iolib/src/streams/gray/conditions.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/streams/gray/conditions-tmpPVY6L5K8.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iolib/src/streams/gray/buffer.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/streams/gray/buffer-tmpO136LLQA.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/iolib/src/streams/gray/fd-mixin.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/streams/gray/fd-mixin-tmpFYSDUMW9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/iolib/src/streams/gray/io-helpers.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/streams/gray/io-helpers-tmp9LLBKYJN.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/iolib/src/streams/gray/gray-stream-methods.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/streams/gray/gray-stream-methods-tmpCPGQ173X.fasl ; compilation finished in 0:00:00.093 ; compiling file "/startdir/src/_build/swap-bytes/package.lisp" (written 20 OCT 2024 03:57:46 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/swap-bytes/package-tmpOQNJ4O4W.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/swap-bytes/sbcl-defknowns.lisp" (written 20 OCT 2024 03:57:46 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/swap-bytes/sbcl-defknowns-tmp8JOHSR6V.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/swap-bytes/sbcl-vops.lisp" (written 20 OCT 2024 03:57:46 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/swap-bytes/sbcl-vops-tmpG9JS6P0L.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/swap-bytes/sbcl.lisp" (written 20 OCT 2024 03:57:46 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/swap-bytes/sbcl-tmpBH391FAR.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/swap-bytes/network.lisp" (written 20 OCT 2024 03:57:46 PM): ; file: /startdir/src/_build/swap-bytes/network.lisp ; in: DEFUN HTONQ ; (DEFUN SWAP-BYTES:HTONQ (INTEGER) ; "Convert (unsigned-byte 64) from host order(little- or big-endian) ; to network order(always big-endian)." ; (DECLARE (TYPE (UNSIGNED-BYTE 64) INTEGER) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0))) ; (SWAP-BYTES:SWAP-BYTES-64 INTEGER)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SWAP-BYTES:HTONQ ; (INTEGER) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert (unsigned-byte 64) from host order(little- or big-endian) ; to network order(always big-endian)." ; (DECLARE (TYPE (UNSIGNED-BYTE 64) INTEGER) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0))) ; (BLOCK SWAP-BYTES:HTONQ (SWAP-BYTES:SWAP-BYTES-64 INTEGER))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFUN NTOHQ ; (DEFUN SWAP-BYTES:NTOHQ (INTEGER) ; "Convert (unsigned-byte 64) from network order(always big-endian) to ; host order(little- or big-endian)." ; (DECLARE (TYPE (UNSIGNED-BYTE 64) INTEGER) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0))) ; (SWAP-BYTES:SWAP-BYTES-64 INTEGER)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SWAP-BYTES:NTOHQ ; (INTEGER) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Convert (unsigned-byte 64) from network order(always big-endian) to ; host order(little- or big-endian)." ; (DECLARE (TYPE (UNSIGNED-BYTE 64) INTEGER) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0))) ; (BLOCK SWAP-BYTES:NTOHQ (SWAP-BYTES:SWAP-BYTES-64 INTEGER))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/swap-bytes/network-tmpDWGDA1DB.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/swap-bytes/endianness.lisp" (written 20 OCT 2024 03:57:46 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/swap-bytes/endianness-tmpDWWL7U9A.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/iolib/src/sockets/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/pkgdcl-tmpK9W9TG61.fasl ; compilation finished in 0:00:00.003 ; cc -o /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel-tmpT7IH33XC.o -c -march=x86-64 -mtune=generic -O2 -pipe -fno-plt -fexceptions -Wp,-D_FORTIFY_SOURCE=3 -Wformat -Werror=format-security -fstack-clash-protection -fcf-protection -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -g -ffile-prefix-map=/build/sbcl/src=/usr/src/debug/sbcl -flto=auto -D_GNU_SOURCE -fno-omit-frame-pointer -DSBCL_HOME=/usr/lib/sbcl -g -Wall -Wundef -Wsign-compare -Wpointer-arith -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -Wunused-parameter -fno-omit-frame-pointer -momit-leaf-frame-pointer -fPIC -I/startdir/src/_build/cffi/ /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel.c /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel.c: In function ‘main’: /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel.c:23:7: warning: unused variable ‘autotype_tmp’ [-Wunused-variable] 23 | int autotype_tmp; | ^~~~~~~~~~~~ ; cc -o /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel-tmpYQK06QBT -Wl,-O1 -Wl,--sort-common -Wl,--as-needed -Wl,-z,relro -Wl,-z,now -Wl,-z,pack-relative-relocs -flto=auto -g -Wl,--export-dynamic /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel.o ; /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel__grovel.grovel-tmp.lisp ; compiling file "/build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel.processed-grovel-file" (written 30 APR 2026 07:52:07 AM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/grovel-tmpZX12TH3A.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/iolib/src/sockets/conditions.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/conditions-tmpZ9C0LGPC.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/iolib/src/sockets/bsd.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/bsd-tmpHLJT4UKM.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/iolib/src/sockets/common.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/common-tmp9VLX0LH.fasl ; compilation finished in 0:00:00.073 ; compiling file "/startdir/src/_build/iolib/src/sockets/config.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/config-tmpP1I4F559.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/iolib/src/sockets/iface.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/iface-tmpVUHDQSHK.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/iolib/src/sockets/address.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/address-tmpODT9XID6.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/iolib/src/sockets/address-predicates.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/address-predicates-tmp1S1MPN2B.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/iolib/src/sockets/address-arithmetic.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/address-arithmetic-tmpNZ36D2WU.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/iolib/src/sockets/base-sockets.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/base-sockets-tmpERKY5O63.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/iolib/src/sockets/socket-options.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/socket-options-tmp44UO16YE.fasl ; compilation finished in 0:00:00.120 ; compiling file "/startdir/src/_build/iolib/src/sockets/namedb/etc-files.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/namedb/etc-files-tmpGXZFGN2H.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iolib/src/sockets/namedb/file-monitor.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/namedb/file-monitor-tmp1IR1Z7KA.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/sockets/namedb/protocols.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/namedb/protocols-tmpKZIE1H1L.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/iolib/src/sockets/namedb/services.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/namedb/services-tmp5T7K2Z7B.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/iolib/src/sockets/namedb/hosts.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/namedb/hosts-tmp485QROYU.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/iolib/src/sockets/socket-methods.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/socket-methods-tmp3XRRIE0I.fasl ; compilation finished in 0:00:00.276 ; compiling file "/startdir/src/_build/iolib/src/sockets/make-socket.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/make-socket-tmp38WAOQDN.fasl ; compilation finished in 0:00:00.183 ; compiling file "/startdir/src/_build/iolib/src/sockets/dns/common.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/dns/common-tmpZBCMPGTH.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/iolib/src/sockets/dns/nameservers.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/dns/nameservers-tmpP8Z0P6ZO.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/sockets/dns/message.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/dns/message-tmp6PVI74GL.fasl ; compilation finished in 0:00:00.156 ; compiling file "/startdir/src/_build/iolib/src/sockets/dns/query.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/dns/query-tmpEZH07OH2.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/iolib/src/sockets/dns/conditions.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/dns/conditions-tmp8DW6YM43.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/sockets/dns/lookup.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/sockets/dns/lookup-tmp8OV1C9Z0.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/iolib/src/iolib/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/iolib/pkgdcl-tmpGLCBRI5S.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/iolib/src/pathnames/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/pathnames/pkgdcl-tmpP09PI686.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/iolib/src/pathnames/file-path.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/pathnames/file-path-tmpM30U2CCH.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/iolib/src/pathnames/file-path-unix.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/pathnames/file-path-unix-tmp8DI2449D.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/iolib/src/os/pkgdcl.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/pkgdcl-tmp5U5KKZL9.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/iolib/src/os/os-unix.lisp" (written 20 OCT 2024 03:57:06 PM): ; file: /startdir/src/_build/iolib/src/os/os-unix.lisp ; in: DEFUN (SETF ENVIRONMENT-VARIABLE) ; (IOLIB/BASE:DEFUN (SETF IOLIB/OS:ENVIRONMENT-VARIABLE) ; (IOLIB/OS::VALUE IOLIB/OS::NAME &OPTIONAL IOLIB/OS::ENV &KEY ; (IOLIB/OS::OVERWRITE T)) ; "SETF ENVIRONMENT-VARIABLE sets the environment variable ; identified by NAME to VALUE. Both NAME and VALUE can be either a ; symbols or strings. Signals an error on failure." ; (LET ((IOLIB/OS::VALUE (STRING IOLIB/OS::VALUE)) ; (IOLIB/OS::NAME (STRING IOLIB/OS::NAME))) ; (ETYPECASE IOLIB/OS::ENV ; (NULL ; (IOLIB/SYSCALLS:SETENV IOLIB/OS::NAME IOLIB/OS::VALUE ; IOLIB/OS::OVERWRITE)) ; (IOLIB/OS:ENVIRONMENT ; (IOLIB/OS::%OBJ-SETENV IOLIB/OS::ENV IOLIB/OS::NAME IOLIB/OS::VALUE ; IOLIB/OS::OVERWRITE))) ; IOLIB/OS::VALUE)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SETF IOLIB/OS:ENVIRONMENT-VARIABLE) ; (IOLIB/OS::VALUE IOLIB/OS::NAME &OPTIONAL IOLIB/OS::ENV &KEY ; (IOLIB/OS::OVERWRITE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "SETF ENVIRONMENT-VARIABLE sets the environment variable ; identified by NAME to VALUE. Both NAME and VALUE can be either a ; symbols or strings. Signals an error on failure." ; (BLOCK IOLIB/OS:ENVIRONMENT-VARIABLE ; (MACROLET ((IOLIB/BASE:RETURN* # ; `#)) ; (LET (# #) ; (ETYPECASE IOLIB/OS::ENV # #) ; IOLIB/OS::VALUE)))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (VALUE NAME &OPTIONAL ENV &KEY (OVERWRITE T)) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/os-unix-tmp8WGMHWCD.fasl ; compilation finished in 0:00:00.120 WARNING: Lisp compilation had style-warnings while compiling # ; pkg-config libfixposix --cflags -D_XOPEN_SOURCE=700 -D_GNU_SOURCE=1 ; cc -o /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel-tmpDJNP097B.o -c -march=x86-64 -mtune=generic -O2 -pipe -fno-plt -fexceptions -Wp,-D_FORTIFY_SOURCE=3 -Wformat -Werror=format-security -fstack-clash-protection -fcf-protection -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -g -ffile-prefix-map=/build/sbcl/src=/usr/src/debug/sbcl -flto=auto -D_GNU_SOURCE -fno-omit-frame-pointer -DSBCL_HOME=/usr/lib/sbcl -g -Wall -Wundef -Wsign-compare -Wpointer-arith -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -Wunused-parameter -fno-omit-frame-pointer -momit-leaf-frame-pointer -D_XOPEN_SOURCE=700 -D_GNU_SOURCE=1 -fPIC -I/startdir/src/_build/cffi/ /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel.c /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel.c: In function ‘main’: /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel.c:11:7: warning: unused variable ‘autotype_tmp’ [-Wunused-variable] 11 | int autotype_tmp; | ^~~~~~~~~~~~ ; cc -o /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel-tmpWSGU3P1Q -Wl,-O1 -Wl,--sort-common -Wl,--as-needed -Wl,-z,relro -Wl,-z,now -Wl,-z,pack-relative-relocs -flto=auto -g -Wl,--export-dynamic /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel.o ; /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix__grovel.grovel-tmp.lisp ; compiling file "/build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix.processed-grovel-file" (written 30 APR 2026 07:52:09 AM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-types-unix-tmp1QPKE8UT.fasl ; compilation finished in 0:00:00.006 WARNING: No definition for LFP-SPAWN-SETUID WARNING: No definition for LFP-SPAWN-SETGID ; compiling file "/startdir/src/_build/iolib/src/os/ffi-functions-unix.lisp" (written 20 OCT 2024 03:57:06 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/ffi-functions-unix-tmpR8QOHXL8.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/iolib/src/os/create-process-unix.lisp" (written 20 OCT 2024 03:57:06 PM): ; file: /startdir/src/_build/iolib/src/os/create-process-unix.lisp ; in: DEFUN CALL-WITH-LFP-SPAWN-ARGUMENTS ; (CFFI:WITH-FOREIGN-OBJECTS ((IOLIB/OS::ATTRIBUTES 'IOLIB/OS::LFP-SPAWNATTR-T) ; (IOLIB/OS::FILE-ACTIONS ; 'IOLIB/OS::LFP-SPAWN-FILE-ACTIONS-T)) ; (LET ((IOLIB/OS::SPAWNATTR-INITIALIZED-P NIL) ; (IOLIB/OS::FILE-ACTIONS-INITIALIZED-P NIL)) ; (UNWIND-PROTECT ; (PROGN ; (SETF #) ; (SETF #) ; (FUNCALL IOLIB/OS::THUNK IOLIB/OS::ATTRIBUTES ; IOLIB/OS::FILE-ACTIONS)) ; (WHEN IOLIB/OS::SPAWNATTR-INITIALIZED-P ; (IOLIB/OS::LFP-SPAWNATTR-DESTROY IOLIB/OS::ATTRIBUTES)) ; (WHEN IOLIB/OS::FILE-ACTIONS-INITIALIZED-P ; (IOLIB/OS::LFP-SPAWN-FILE-ACTIONS-DESTROY IOLIB/OS::FILE-ACTIONS))))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LFP-SPAWNATTR-T)) or (:STRUCT LFP-SPAWNATTR-T) instead. ; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET ; --> LET LET SYMBOL-MACROLET LET CFFI:WITH-FOREIGN-OBJECTS ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (IOLIB/OS::FILE-ACTIONS ; 'IOLIB/OS::LFP-SPAWN-FILE-ACTIONS-T) ; (CFFI:WITH-FOREIGN-OBJECTS NIL ; (LET ((IOLIB/OS::SPAWNATTR-INITIALIZED-P NIL) ; (IOLIB/OS::FILE-ACTIONS-INITIALIZED-P NIL)) ; (UNWIND-PROTECT (PROGN # # #) ; (WHEN IOLIB/OS::SPAWNATTR-INITIALIZED-P #) ; (WHEN IOLIB/OS::FILE-ACTIONS-INITIALIZED-P #))))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LFP-SPAWN-FILE-ACTIONS-T)) or (:STRUCT LFP-SPAWN-FILE-ACTIONS-T) instead. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/iolib/src/os/create-process-unix-tmpLXWSZGLI.fasl ; compilation finished in 0:00:00.136 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/trivial-indent/indent.lisp" (written 20 OCT 2024 03:57:55 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-indent/indent-tmpAI9VPSDP.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/LASS/package.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/package-tmpRR980T86.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/LASS/readable-list.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/readable-list-tmpMI5C9NR7.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/LASS/compiler.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/compiler-tmpI922RX95.fasl ; compilation finished in 0:00:00.106 ; compiling file "/startdir/src/_build/LASS/property-funcs.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/property-funcs-tmpTKV9R2ZZ.fasl ; compilation finished in 0:00:00.026 WARNING: redefining CONSUME-ITEM (# #) in DEFMETHOD ; compiling file "/startdir/src/_build/LASS/writer.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/writer-tmpTB3XZLQ5.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/LASS/lass.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/lass-tmpBG4AU53J.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/LASS/special.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/special-tmpA19H8413.fasl ; compilation finished in 0:00:00.180 ; compiling file "/startdir/src/_build/LASS/asdf.lisp" (written 20 OCT 2024 03:56:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/LASS/asdf-tmpJXX2RMDJ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/lparallel/src/util/package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/util/package-tmpDSB77UY2.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/lparallel/src/util/config.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/util/config-tmp3NR258RV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/lparallel/src/util/misc.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/util/misc-tmpAPBXSI36.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/lparallel/src/util/defmacro.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/util/defmacro-tmp1ZGUMF5G.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/lparallel/src/util/defun.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/util/defun-tmp3SW332WG.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/lparallel/src/util/defslots.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/util/defslots-tmpVR23AMKK.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/lparallel/src/util/defpair.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/util/defpair-tmpATZ3B5D0.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/lparallel/src/thread-util.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/thread-util-tmpCXJO6DQ6.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/lparallel/src/raw-queue.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/raw-queue-tmpTGIXOAXR.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/lparallel/src/cons-queue.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/lparallel/src/cons-queue.lisp ; in: DEFUN %TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ; (LPARALLEL.THREAD-UTIL::WITH-COUNTDOWN (LPARALLEL.CONS-QUEUE::TIMEOUT) ; (LPARALLEL.CONS-QUEUE::WITH-CONS-QUEUE-SLOTS (LPARALLEL.CONS-QUEUE::IMPL ; LPARALLEL.CONS-QUEUE::LOCK ; LPARALLEL.CONS-QUEUE::CVAR) ; LPARALLEL.CONS-QUEUE::QUEUE ; (LOOP ; (MULTIPLE-VALUE-BIND ; (LPARALLEL.CONS-QUEUE::VALUE LPARALLEL.CONS-QUEUE::PRESENTP) ; (LPARALLEL.RAW-QUEUE:POP-RAW-QUEUE LPARALLEL.CONS-QUEUE::IMPL) ; (WHEN LPARALLEL.CONS-QUEUE::PRESENTP #) ; (LET # ; #))))) ; --> LET LPARALLEL.THREAD-UTIL::GET-REAL-TIME-IN-SECONDS BLOCK ; ==> ; (/ (GET-INTERNAL-REAL-TIME) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES (RATIONAL 0 2305843009213693951/1000000) ; &OPTIONAL), not a (VALUES INTEGER &REST T). ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-CONS-QUEUE ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-CONS-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cons-queue-tmpY3GYQYF1.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/lparallel/src/vector-queue.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/lparallel/src/vector-queue.lisp ; in: DEFUN %TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ; (LPARALLEL.THREAD-UTIL::WITH-COUNTDOWN (LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; (LPARALLEL.VECTOR-QUEUE::WITH-VECTOR-QUEUE-SLOTS (LPARALLEL.VECTOR-QUEUE::IMPL ; LPARALLEL.VECTOR-QUEUE::LOCK ; LPARALLEL.VECTOR-QUEUE::NOTIFY-PUSH ; LPARALLEL.VECTOR-QUEUE::NOTIFY-POP) ; LPARALLEL.VECTOR-QUEUE::QUEUE ; (LOOP ; (MULTIPLE-VALUE-BIND ; (LPARALLEL.VECTOR-QUEUE::VALUE LPARALLEL.VECTOR-QUEUE::PRESENTP) ; (LPARALLEL.VECTOR-QUEUE::POP-RAW-QUEUE LPARALLEL.VECTOR-QUEUE::IMPL) ; (WHEN LPARALLEL.VECTOR-QUEUE::PRESENTP # #) ; (LET # ; #))))) ; --> LET LPARALLEL.THREAD-UTIL::GET-REAL-TIME-IN-SECONDS BLOCK ; ==> ; (/ (GET-INTERNAL-REAL-TIME) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES (RATIONAL 0 2305843009213693951/1000000) ; &OPTIONAL), not a (VALUES INTEGER &REST T). ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-VECTOR-QUEUE ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/vector-queue-tmpIET2DQ4C.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/lparallel/src/queue.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/queue-tmpEJX7RYJ.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/lparallel/src/counter.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/counter-tmpKMSN3Q0W.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/lparallel/src/spin-queue/package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/spin-queue/package-tmpEZEVNFXM.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/lparallel/src/spin-queue/cas-spin-queue.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/spin-queue/cas-spin-queue-tmp6SKHAK7D.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/lparallel/src/kernel/package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/package-tmpPNUBFPTH.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/lparallel/src/kernel/specials.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/specials-tmpBK4KB7HQ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/lparallel/src/kernel/handling.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/handling-tmp3O7TUPX9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/lparallel/src/kernel/classes.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/classes-tmp1EN4SMVQ.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/lparallel/src/kernel/stealing-scheduler.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/lparallel/src/kernel/stealing-scheduler.lisp ; in: DEFUN/TYPE MAYBE-WAKE-A-WORKER ; (INCF LPARALLEL.KERNEL::NOTIFY-COUNT) ; ==> ; (+ 1 (LPARALLEL.KERNEL::%%%%.SCHEDULER.NOTIFY-COUNT #:INSTANCE02)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; in: DEFUN/TYPE NEXT-TASK ; (DECF LPARALLEL.KERNEL::NOTIFY-COUNT) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; unable to do inline fixnum arithmetic (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 ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/stealing-scheduler-tmp2GTLLNQ8.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/lparallel/src/kernel/kill.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/kill-tmpU1AON428.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/lparallel/src/kernel/core.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/core-tmp3MFAIBTU.fasl ; compilation finished in 0:00:00.063 ; compiling file "/startdir/src/_build/lparallel/src/kernel/timeout.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel/timeout-tmpX86UO7H8.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/lparallel/src/kernel-util.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/lparallel/src/kernel-util.lisp ; in: DEFUN RECEIVE-RESULTS ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK LET CEILING ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> BLOCK LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/kernel-util-tmpDE3JRH6R.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/lparallel/src/promise.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/promise-tmpIO9QR2K3.fasl ; compilation finished in 0:00:00.066 ; compiling file "/startdir/src/_build/lparallel/src/ptree.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/lparallel/src/ptree.lisp ; in: DEFUN/TYPE COMPUTE-PTREE ; (DECF LPARALLEL.PTREE::PENDING) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; (INCF LPARALLEL.PTREE::PENDING) ; ==> ; (+ 1 (LPARALLEL.PTREE::%%%%.PTREE.PENDING #:INSTANCE03)) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/ptree-tmpJEDMWJ65.fasl ; compilation finished in 0:00:00.076 ; compiling file "/startdir/src/_build/lparallel/src/slet.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/slet-tmpTDS87BRE.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/lparallel/src/defpun.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/defpun-tmp60SK3VUI.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/lparallel/src/cognate/package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/package-tmpECK8MPRP.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/lparallel/src/cognate/util.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/lparallel/src/cognate/util.lisp ; in: DEFUN ITEM-PREDICATE ; (EQL LPARALLEL.COGNATE::ITEM LPARALLEL.COGNATE::X) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/util-tmpLHX9FJJD.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/lparallel/src/cognate/option.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/option-tmpMEGQ00UU.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/lparallel/src/cognate/subdivide.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/subdivide-tmpVOZ7V04Y.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/lparallel/src/cognate/pandor.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/pandor-tmpVECTQ92X.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/lparallel/src/cognate/plet.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/plet-tmp7DXDD7T0.fasl ; compilation finished in 0:00:00.029 ; compiling file "/startdir/src/_build/lparallel/src/cognate/pmap.lisp" (written 20 OCT 2024 03:57:14 PM): ; file: /startdir/src/_build/lparallel/src/cognate/pmap.lisp ; in: DEFUN MAP-ITERATE ; (DEFUN LPARALLEL.COGNATE::MAP-ITERATE ; (MAP LPARALLEL.COGNATE::SIZE LPARALLEL.COGNATE::FN ; LPARALLEL.COGNATE::SEQS) ; "A variation of (map nil ...)/mapc/mapl with size constrained. ; Without a result to delineate sublist boundaries, we must enforce them ; manually." ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (BLOCK LPARALLEL.COGNATE::MAP-ITERATE ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM MAP-ITERATE NIL). Use GO/RETURN-FROM with SAFETY 0, or declare the ; exit function DYNAMIC-EXTENT to avoid. ; (INCF LPARALLEL.UTIL:INDEX) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 ; &OPTIONAL). ; 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 ; &OPTIONAL). ; etc. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/pmap-tmpMNGG2LGI.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/lparallel/src/cognate/pmap-open-coded.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/pmap-open-coded-tmpI1QAQLO.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/lparallel/src/cognate/pdotimes.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/pdotimes-tmpJ65NNQX4.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/lparallel/src/cognate/pquantifier.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/pquantifier-tmpE152WQVC.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/lparallel/src/cognate/preduce.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/preduce-tmpWCSB2KG9.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/lparallel/src/cognate/premove.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/premove-tmp4LEYOSF4.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/lparallel/src/cognate/pfind.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/pfind-tmpUVTKACUL.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/lparallel/src/cognate/pcount.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/pcount-tmp5GZZJPRK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/lparallel/src/cognate/psort.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/cognate/psort-tmpLYC37TUD.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/lparallel/src/package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lparallel/src/package-tmp7964ROT9.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/log4cl/src/impl-package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/impl-package-tmpKJHIHSB0.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/log4cl/src/defs.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/defs-tmpZT1CAKFZ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/log4cl/src/naming.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/naming-tmpRVG1S99Y.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/log4cl/src/naming-sbcl.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/naming-sbcl-tmp827K1UUG.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/log4cl/src/hierarchy-base.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/hierarchy-base-tmpIYTW11MH.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/log4cl/src/hierarchy.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/hierarchy-tmpQCXBXEIU.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/log4cl/src/logger.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/logger-tmpCIWNIBG0.fasl ; compilation finished in 0:00:00.136 ; compiling file "/startdir/src/_build/log4cl/src/logging-macros.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/logging-macros-tmpYAH9KG9Z.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/log4cl/src/self-logger.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/self-logger-tmp5AOA6BZ6.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/log4cl/src/appender/layout.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/appender/layout-tmpB84XF88N.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/log4cl/src/appender/simple-layout.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/appender/simple-layout-tmpHMTJ60G6.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/log4cl/src/appender/pattern-layout.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/appender/pattern-layout-tmpRZAQRADX.fasl ; compilation finished in 0:00:00.130 ; compiling file "/startdir/src/_build/log4cl/src/appender/appender-base.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/appender/appender-base-tmp98WD6PCQ.fasl ; compilation finished in 0:00:00.006 WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC ; compiling file "/startdir/src/_build/log4cl/src/appender/appender.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/appender/appender-tmpVZQ0K75V.fasl ; compilation finished in 0:00:00.090 ; compiling file "/startdir/src/_build/log4cl/src/configurator.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/configurator-tmpAK5V1TEI.fasl ; compilation finished in 0:00:00.156 ; compiling file "/startdir/src/_build/log4cl/src/property-parser.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/property-parser-tmp1UCE5B3Z.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/log4cl/src/property-configurator.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/property-configurator-tmpPLNJVGWK.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/log4cl/src/watcher.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/watcher-tmpCGXX7YT8.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/log4cl/src/package.lisp" (written 20 OCT 2024 03:57:14 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/log4cl/src/package-tmpQW3N2FY2.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/cl-fad/packages.lisp" (written 20 OCT 2024 03:56:31 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-fad/packages-tmpHHBP22LD.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/cl-fad/fad.lisp" (written 20 OCT 2024 03:56:31 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-fad/fad-tmpGPLRDOCO.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/cl-fad/path.lisp" (written 20 OCT 2024 03:56:31 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-fad/path-tmpRP5C88WS.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/cl-fad/temporary-files.lisp" (written 20 OCT 2024 03:56:31 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/cl-fad/temporary-files-tmp8Z0V4HZM.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/montezuma/src/package.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/package-tmpNODNJSW5.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/util/while.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/while-tmpRRQ0GNP9.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/montezuma/src/util/porter-stemmer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/porter-stemmer-tmp8L9GWNMQ.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/montezuma/src/util/streams.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/streams-tmp62OV4Z6O.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/util/pipes.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/pipes-tmpTSK6XCCM.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/montezuma/src/util/mop.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/mop-tmp5258AHPS.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/util/priority-queue.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/priority-queue-tmpF2LWWO55.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/montezuma/src/util/strings.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/strings-tmpMHWWCP6U.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/montezuma/src/util/tables.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/tables-tmpHJPUUYHK.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/montezuma/src/util/bit-vector.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/bit-vector-tmp6NR774GH.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/util/files.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/files-tmpK61NZZKX.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/util/comparable.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/comparable-tmpHTKYNOGG.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/montezuma/src/util/parser.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/parser-tmp47NXGFAK.fasl ; compilation finished in 0:00:00.076 ; compiling file "/startdir/src/_build/montezuma/src/util/utilities.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/util/utilities-tmpZE2KI6PW.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/store/api.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/store/api-tmp1KL6BM16.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/store/directory.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/store/directory-tmpQXHZI42C.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/store/index-io.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/store/index-io-tmp9ZOM9B9P.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/montezuma/src/store/buffered-index-io.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/store/buffered-index-io-tmpWLDE6L74.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/montezuma/src/store/ram-store.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/store/ram-store-tmpB4U2IPVX.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/montezuma/src/store/fs-store.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/store/fs-store-tmpF0RV4QG9.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/montezuma/src/document/field.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/document/field-tmpTAKTYJEO.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/montezuma/src/document/document.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/document/document-tmpSNJJGAZB.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/montezuma/src/analysis/token.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/analysis/token-tmpP1WIC9UM.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/montezuma/src/analysis/token-stream.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/analysis/token-stream-tmpMIC9L2C4.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/montezuma/src/analysis/token-filters.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/analysis/token-filters-tmpADUI8MTK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/montezuma/src/analysis/tokenizers.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/analysis/tokenizers-tmpRQLBT02C.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/montezuma/src/analysis/standard-tokenizer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/analysis/standard-tokenizer-tmpQLBFBAM7.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/analysis/analyzers.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/analysis/analyzers-tmpY1HUS9ED.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/montezuma/src/index/api.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/api-tmpX2J1E8VV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/index/index-filenames.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/index-filenames-tmpZ0TZB7LP.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/index/term.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-tmpD9HF6ZB2.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/montezuma/src/index/term-info.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-info-tmpDIN9NC4D.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/index/term-buffer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-buffer-tmpWDB4LKR2.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/montezuma/src/index/field-infos.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/field-infos-tmpOBLSNE9E.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/montezuma/src/index/term-enum.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-enum-tmpVIWRVBZC.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/index/term-doc-enum.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-doc-enum-tmpQ1EV24M5.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/montezuma/src/index/term-infos-io.lisp" (written 20 OCT 2024 03:57:19 PM): ; file: /startdir/src/_build/montezuma/src/index/term-infos-io.lisp ; in: DEFMETHOD WRITE-TERM (TERM-INFOS-WRITER T) ; (LENGTH (- (LENGTH MONTEZUMA::TERM-TEXT) MONTEZUMA::START)) ; ; caught STYLE-WARNING: ; The variable LENGTH is defined but never used. ; in: DEFMETHOD GET-POSITION (TERM-INFOS-READER T) ; (MONTEZUMA::GET-INDEX-OFFSET MONTEZUMA::TERM) ; ; caught STYLE-WARNING: ; The function GET-INDEX-OFFSET is called with one argument, but wants exactly two. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-infos-io-tmpIJNR2PGN.fasl ; compilation finished in 0:00:00.026 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/montezuma/src/index/multiple-term-doc-pos-enum.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/multiple-term-doc-pos-enum-tmpGJAAR83D.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/montezuma/src/index/term-vector-offset-info.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-vector-offset-info-tmpROAS81KQ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/index/segment-term-vector.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/segment-term-vector-tmpICLML0UW.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/index/term-vectors-io.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/term-vectors-io-tmpBVS1KKLB.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/montezuma/src/index/segment-term-enum.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/segment-term-enum-tmp70SAGCZU.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/montezuma/src/index/fields-io.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/fields-io-tmpX6AZX3HK.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/montezuma/src/index/compound-file-io.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/compound-file-io-tmpD2C868JX.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/montezuma/src/index/segment-merge-info.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/segment-merge-info-tmp6AHZ5LW5.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/index/segment-merge-queue.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/segment-merge-queue-tmpS50E0M0H.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/index/segment-infos.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/segment-infos-tmpLDALFMLL.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/montezuma/src/index/index-reader.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/index-reader-tmpYY7D816H.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/montezuma/src/index/segment-reader.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/segment-reader-tmp3PBYMW93.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/montezuma/src/index/multi-reader.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/multi-reader-tmp6OUWB4GY.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/montezuma/src/index/index-writer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/index-writer-tmpSDEEC7GZ.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/montezuma/src/index/document-writer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/document-writer-tmp1A9PYSBZ.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/montezuma/src/index/segment-merger.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/segment-merger-tmpXD71DVOD.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/montezuma/src/index/index.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/index/index-tmpRTJUJNCZ.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/montezuma/src/search/api.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/api-tmpOE1UXHS3.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/similarity.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/similarity-tmp3B1EKTL9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/montezuma/src/search/boolean-clause.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/boolean-clause-tmp7PGZ8E1U.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/search/scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/scorer-tmpTELYQNWQ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/score-doc.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/score-doc-tmpSBQYNXYS.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/score-doc-comparator.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/score-doc-comparator-tmpYZRD0422.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/filter.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/filter-tmp2KG3THMQ.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/montezuma/src/search/weight.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/weight-tmpJ2K745XA.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/montezuma/src/search/hit-queue.lisp" (written 20 OCT 2024 03:57:19 PM): ; file: /startdir/src/_build/montezuma/src/search/hit-queue.lisp ; in: DEFMETHOD LESS-THAN (FIELD-SORTED-HIT-QUEUE T T) ; (MONTEZUMA::HIT-DOCUMENT-VALUE (MONTEZUMA::HIT MONTEZUMA::VALUE) ; (LET ((MONTEZUMA:FIELD (MONTEZUMA:DOCUMENT-FIELD # MONTEZUMA::VALUE))) ; (AND MONTEZUMA:FIELD (MONTEZUMA:FIELD-DATA MONTEZUMA:FIELD)))) ; ; caught STYLE-WARNING: ; The variable HIT is defined but never used. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/hit-queue-tmpALGSKGD5.fasl ; compilation finished in 0:00:00.006 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/montezuma/src/search/query.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/query-tmpFT8EAHJ2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/term-query.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/term-query-tmp475AMU57.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/montezuma/src/search/boolean-query.lisp" (written 20 OCT 2024 03:57:19 PM): ; file: /startdir/src/_build/montezuma/src/search/boolean-query.lisp ; in: DEFMETHOD SUM-OF-SQUARED-WEIGHTS (BOOLEAN-WEIGHT) ; (MONTEZUMA::CLAUSE (ELT (MONTEZUMA::CLAUSES MONTEZUMA::QUERY) MONTEZUMA::I)) ; ; caught STYLE-WARNING: ; The variable CLAUSE is defined but never used. ; in: DEFMETHOD NORMALIZE-WEIGHT (BOOLEAN-WEIGHT T) ; (MONTEZUMA::CLAUSE (ELT (MONTEZUMA::CLAUSES MONTEZUMA::QUERY) MONTEZUMA::I)) ; ; caught STYLE-WARNING: ; The variable CLAUSE is defined but never used. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/boolean-query-tmpTMAZE5CM.fasl ; compilation finished in 0:00:00.043 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/montezuma/src/search/term-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/term-scorer-tmpCIV9Z3JK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/montezuma/src/search/disjunction-sum-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/disjunction-sum-scorer-tmpM75U6XLW.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/montezuma/src/search/conjunction-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/conjunction-scorer-tmpNSNCWXLV.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/montezuma/src/search/req-opt-sum-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/req-opt-sum-scorer-tmpDB4O1KDZ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/req-excl-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/req-excl-scorer-tmpBHN1J3ET.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/non-matching-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/non-matching-scorer-tmp1CTJRGVW.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/montezuma/src/search/boolean-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/boolean-scorer-tmp396720WG.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/montezuma/src/search/filtered-term-enum.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/filtered-term-enum-tmpH99NAMAH.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/search/multi-term-query.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/multi-term-query-tmpIX3FZK5F.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/search/wildcard-query.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/wildcard-query-tmp5LSWBD96.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/wildcard-term-enum.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/wildcard-term-enum-tmpGHGL1JEL.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/search/phrase-query.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/phrase-query-tmpISXAPRSG.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/montezuma/src/search/range-query.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/range-query-tmpON7WZKSG.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/montezuma/src/search/match-all-query.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/match-all-query-tmpJHBN0FWX.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/montezuma/src/search/top-docs.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/top-docs-tmpANF853H3.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/search/index-searcher.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/index-searcher-tmpBS9K76ND.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/montezuma/src/search/sort-field.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/sort-field-tmpURKEPEVO.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/search/sort.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/sort-tmp3RZMNOJU.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/phrase-positions.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/phrase-positions-tmpXPU6AMBA.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/montezuma/src/search/phrase-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/phrase-scorer-tmp28LLJ4NO.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/montezuma/src/search/sloppy-phrase-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/sloppy-phrase-scorer-tmp73QCHOA2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/search/exact-phrase-scorer.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/search/exact-phrase-scorer-tmp87L90UXT.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/montezuma/src/query-parser/query-parser.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/montezuma/src/query-parser/query-parser-tmpFK4H21YG.fasl ; compilation finished in 0:00:00.113 ; compiling file "/startdir/src/_build/trivial-custom-debugger/trivial-custom-debugger.lisp" (written 20 OCT 2024 03:57:50 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-custom-debugger/trivial-custom-debugger-tmp9L7RCIOO.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/ndebug/package.lisp" (written 20 OCT 2024 03:57:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/ndebug/package-tmpE19DJRZJ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/ndebug/stream.lisp" (written 20 OCT 2024 03:57:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/ndebug/stream-tmp6J73PGHY.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/ndebug/ndebug.lisp" (written 20 OCT 2024 03:57:21 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/ndebug/ndebug-tmpJ4TVTHJX.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/trivia/level0/package.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level0/package-tmpLOALXF8J.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/trivia/level0/impl.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level0/impl-tmpEZ3CFIOD.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/trivia/level1/package.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level1/package-tmpU8U7G7ZA.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivia/level1/impl.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level1/impl-tmpSZESAKTO.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/lisp-namespace/src/package.lisp" (written 20 OCT 2024 03:57:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lisp-namespace/src/package-tmpZO1RO1O.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/lisp-namespace/src/namespace.lisp" (written 20 OCT 2024 03:57:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lisp-namespace/src/namespace-tmpJN5UT9ER.fasl ; compilation finished in 0:00:00.023 ; compiling file "/startdir/src/_build/lisp-namespace/src/namespace-let.lisp" (written 20 OCT 2024 03:57:13 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/lisp-namespace/src/namespace-let-tmpQ42UXYO9.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/trivial-cltl2/cltl2.lisp" (written 20 OCT 2024 03:57:49 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-cltl2/cltl2-tmp8WGDKMZP.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivia/level2/package.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/package-tmpPE8HHEX5.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/trivia/level2/impl.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/impl-tmpUJ297K5N.fasl ; compilation finished in 0:00:00.110 ; compiling file "/startdir/src/_build/trivia/level2/sugars.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/sugars-tmpMNY4ILMM.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/trivia/level2/derived.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/derived-tmp8G6LO3RG.fasl ; compilation finished in 0:00:00.100 ; compiling file "/startdir/src/_build/trivia/level2/derived-class.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/derived-class-tmpT2RJ6GJ0.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/trivia/level2/derived2.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/derived2-tmpHAVNHS65.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/trivia/level2/derived3.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/derived3-tmpNOY33GPO.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/trivia/level2/derived-numbers.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/derived-numbers-tmp973QHB1X.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/trivia/level2/arrays.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/arrays-tmpO63QF2IY.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/trivia/level2/inline-pattern.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/level2/inline-pattern-tmpTFNAF5IY.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/introspect-environment/package.lisp" (written 20 OCT 2024 03:57:05 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/introspect-environment/package-tmpRJO5OW0B.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/introspect-environment/expander.lisp" (written 20 OCT 2024 03:57:05 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/introspect-environment/expander-tmpF1C61L2A.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/introspect-environment/sbcl.lisp" (written 20 OCT 2024 03:57:05 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/introspect-environment/sbcl-tmpKWLEQZZ2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/introspect-environment/doc.lisp" (written 20 OCT 2024 03:57:05 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/introspect-environment/doc-tmpJFVKEC2V.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/type-i/src/package.lisp" (written 20 OCT 2024 03:57:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/type-i/src/package-tmpC8AHO1ZT.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/type-i/src/infer-typep.lisp" (written 20 OCT 2024 03:57:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/type-i/src/infer-typep-tmpAYT75TUR.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/type-i/src/infer-unary.lisp" (written 20 OCT 2024 03:57:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/type-i/src/infer-unary-tmpOYUE5NQZ.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/type-i/src/infer-derived.lisp" (written 20 OCT 2024 03:57:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/type-i/src/infer-derived-tmpUG115M66.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/type-i/src/infer-constants.lisp" (written 20 OCT 2024 03:57:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/type-i/src/infer-constants-tmp7YPIHXIT.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/type-i/src/infer-compound.lisp" (written 20 OCT 2024 03:57:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/type-i/src/infer-compound-tmpD8P3EGYD.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/type-i/src/infer-numbers.lisp" (written 20 OCT 2024 03:57:58 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/type-i/src/infer-numbers-tmpR7K5EAY7.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/trivia/balland2006/package.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/balland2006/package-tmp8RERY3DX.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivia/balland2006/optimizer.lisp" (written 20 OCT 2024 03:57:47 PM): ; file: /startdir/src/_build/trivia/balland2006/optimizer.lisp ; in: DEFOPTIMIZER :BALLAND2006 ; (ALEXANDRIA:COMPOSE #'LENGTH #'FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/balland2006/optimizer-tmpB8CQUMJW.fasl ; compilation finished in 0:00:00.153 ; compiling file "/startdir/src/_build/trivia/balland2006/column-swapping.lisp" (written 20 OCT 2024 03:57:47 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivia/balland2006/column-swapping-tmp3MHGUYS5.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/string-case/string-case.lisp" (written 20 OCT 2024 03:57:45 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/string-case/string-case-tmpXFUFLAW1.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/parse-declarations/parse-declarations.lisp" (written 20 OCT 2024 03:57:30 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/parse-declarations/parse-declarations-tmpR5VLLL7A.fasl ; compilation finished in 0:00:00.116 ; compiling file "/startdir/src/_build/global-vars/global-vars.lisp" (written 20 OCT 2024 03:57:00 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/global-vars/global-vars-tmpK9048J3S.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/trivial-file-size/package.lisp" (written 20 OCT 2024 03:57:52 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-file-size/package-tmpXUHSP6J7.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivial-file-size/trivial-file-size.lisp" (written 20 OCT 2024 03:57:52 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-file-size/trivial-file-size-tmpOPF2ACLV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/trivial-macroexpand-all/package.lisp" (written 20 OCT 2024 03:57:55 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-macroexpand-all/package-tmpX06AQN2P.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/trivial-macroexpand-all/trivial-macroexpand-all.lisp" (written 20 OCT 2024 03:57:55 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-macroexpand-all/trivial-macroexpand-all-tmpPG05GUP1.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/serapeum/package.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/package-tmp7I3U3RUS.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/serapeum/portability.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/portability-tmpZP2HCA9Q.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/serapeum/macro-tools.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/macro-tools-tmp7Q4BFWPF.fasl ; compilation finished in 0:00:00.109 ; compiling file "/startdir/src/_build/serapeum/types.lisp" (written 20 OCT 2024 03:57:38 PM): ; file: /startdir/src/_build/serapeum/types.lisp ; in: DEFMACRO WITH-TYPE-DISPATCH ; (OR) ; ; note: deleting unreachable code ; (LOOP SERAPEUM::FOR TYPE SERAPEUM:IN SERAPEUM::TYPES ; SERAPEUM::COLLECT `(,TYPE ; (LOCALLY ; (DECLARE (TYPE ,TYPE ,SERAPEUM::VAR)) ; (SERAPEUM:WITH-READ-ONLY-VARS (,SERAPEUM::VAR) ; (SERAPEUM::WITH-VREF ,TYPE ; ,@SERAPEUM::BODY))))) ; ; note: deleting unreachable code ; (LOOP SERAPEUM::FOR TYPE SERAPEUM:IN SERAPEUM::TYPES ; SERAPEUM::COLLECT `(,TYPE ; (LET ((,SERAPEUM::VAR ,SERAPEUM::VAR)) ; (DECLARE (TYPE ,TYPE ,SERAPEUM::VAR)) ; (SERAPEUM:WITH-READ-ONLY-VARS (,SERAPEUM::VAR) ; (SERAPEUM::WITH-VREF ,TYPE ; ,@SERAPEUM::BODY))))) ; ; note: deleting unreachable code ; in: DEFUN PROPER-LIST? ; (RETURN NIL) ; ; note: deleting unreachable code ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/types-tmpBXETCH4P.fasl ; compilation finished in 0:00:00.166 ; compiling file "/startdir/src/_build/serapeum/iter.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/iter-tmp83MJ8GCF.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/serapeum/threads.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/threads-tmpA0BV118U.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/serapeum/defining-types.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/defining-types-tmpMP7QB3YS.fasl ; compilation finished in 0:00:00.053 ; compiling file "/startdir/src/_build/serapeum/definitions.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/definitions-tmpKDPB0S0R.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/serapeum/binding.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/binding-tmpJH4ADCJS.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/serapeum/control-flow.lisp" (written 20 OCT 2024 03:57:38 PM): ; file: /startdir/src/_build/serapeum/control-flow.lisp ; in: DEFMACRO NIX ; (DEFMACRO SERAPEUM:NIX (&REST SERAPEUM::PLACES) ; #<(SIMPLE-ARRAY CHARACTER ; (243)) Set PLACES to nil and return the old value(s) of PLACES. ; ; If there is more than one PLACE, return their old values as multiple values. ; ; This may be more efficient than (shiftf place nil), because it o... {120C743C1F}> ; `(VALUES ; ,@(LOOP SERAPEUM::FOR SERAPEUM::PLACE SERAPEUM:IN SERAPEUM::PLACES ; SERAPEUM::COLLECT `(SERAPEUM::NIX-1 ,SERAPEUM::PLACE)))) ; --> EVAL-WHEN ; ==> ; (SB-C::%DEFMACRO 'SERAPEUM:NIX ; (SB-INT:NAMED-LAMBDA (MACRO-FUNCTION SERAPEUM:NIX) ; (#:EXPR #:ENV) ; #<(SIMPLE-BASE-STRING ; 243) Set PLACES to nil and return the old value(s) of PLACES. ; ; If there is more than one PLACE, return their old values as multiple values. ; ; This may be more efficient than (shiftf place nil), because it o... {120C74405F}> ; (DECLARE (SB-C::LAMBDA-LIST (&REST SERAPEUM::PLACES))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:NIX . DEFMACRO) ; (&REST SERAPEUM::PLACES) ; (CDR #:EXPR) ; (DECLARE (SB-C::CONSTANT-VALUE SERAPEUM::PLACES)) ; (BLOCK SERAPEUM:NIX `(VALUES ,@#)))) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; NIX is being redefined as a macro when it was previously assumed to be a function. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/control-flow-tmpFCS1OP9D.fasl ; compilation finished in 0:00:00.103 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/serapeum/conditions.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/conditions-tmpBBWZ23SG.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/serapeum/op.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/op-tmpZBFOQSZH.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/serapeum/functions.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/functions-tmpNJLY9TW0.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/serapeum/trees.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/trees-tmp5UEK9VLK.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/serapeum/hash-tables.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/hash-tables-tmpDXVZZCCD.fasl ; compilation finished in 0:00:00.076 ; compiling file "/startdir/src/_build/serapeum/files.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/files-tmpPGVLTO6P.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/serapeum/symbols.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/symbols-tmpCBDSBDHA.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/serapeum/arrays.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/arrays-tmp4EPGTUH2.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/serapeum/queue.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/queue-tmpFHOTLA5D.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/serapeum/box.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/box-tmpARCFMUHO.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/serapeum/numbers.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/numbers-tmpNOB4664T.fasl ; compilation finished in 0:00:00.050 ; compiling file "/startdir/src/_build/serapeum/octets.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/octets-tmpRNPRBD54.fasl ; compilation finished in 0:00:00.040 ; compiling file "/startdir/src/_build/serapeum/time.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/time-tmpTEWGPYSQ.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/serapeum/clos.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/clos-tmpRPD6W4S8.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/serapeum/hooks.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/hooks-tmpE8JYE5V6.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/serapeum/fbind.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/fbind-tmpLCNOZRNY.fasl ; compilation finished in 0:00:00.096 ; compiling file "/startdir/src/_build/serapeum/static-let.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/static-let-tmpA29X4FCE.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/serapeum/reader.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/reader-tmp9H8J82T0.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/serapeum/packages.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/packages-tmp5ZG7YLBD.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/serapeum/heap.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/heap-tmpHT47DW1V.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/serapeum/lists.lisp" (written 20 OCT 2024 03:57:38 PM): ; file: /startdir/src/_build/serapeum/lists.lisp ; in: DEFUN LIST-MAP-FROM-END/BORDEAUX ; (SERAPEUM::LIST+LENGTH LIST SERAPEUM::START SERAPEUM::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFUN STABLE-SET-DIFFERENCE ; (DEFUN SERAPEUM:STABLE-SET-DIFFERENCE ; (SERAPEUM::LIST1 SERAPEUM::LIST2 ; &KEY SERAPEUM::KEY SERAPEUM::TEST SERAPEUM::TEST-NOT) ; "Like `set-difference', but preserve the order of LIST1's elements." ; (DECLARE (LIST SERAPEUM::LIST1 SERAPEUM::LIST2)) ; (SERAPEUM:WITH-MEMBER-TEST (SERAPEUM::MEM :KEY SERAPEUM::KEY :TEST ; SERAPEUM::TEST :TEST-NOT SERAPEUM::TEST-NOT) ; (IF SERAPEUM::LIST2 ; (SERAPEUM:COLLECTING ; (DOLIST # #)) ; SERAPEUM::LIST1))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SERAPEUM:STABLE-SET-DIFFERENCE ; (SERAPEUM::LIST1 SERAPEUM::LIST2 &KEY SERAPEUM::KEY SERAPEUM::TEST ; SERAPEUM::TEST-NOT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Like `set-difference', but preserve the order of LIST1's elements." ; (DECLARE (LIST SERAPEUM::LIST1 SERAPEUM::LIST2)) ; (BLOCK SERAPEUM:STABLE-SET-DIFFERENCE ; (SERAPEUM:WITH-MEMBER-TEST (SERAPEUM::MEM :KEY SERAPEUM::KEY :TEST ; SERAPEUM::TEST :TEST-NOT SERAPEUM::TEST-NOT) ; (IF SERAPEUM::LIST2 ; (SERAPEUM:COLLECTING ; #) ; SERAPEUM::LIST1)))) ; ; caught STYLE-WARNING: ; The variable TEST-NOT is defined but never used. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/lists-tmp4PAKN0YQ.fasl ; compilation finished in 0:00:00.066 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/serapeum/sequences.lisp" (written 20 OCT 2024 03:57:38 PM): ; file: /startdir/src/_build/serapeum/sequences.lisp ; in: DEFUN CANONICALIZE-TEST ; #'EQL ; ; note: deleting unreachable code ; in: DEFUN SPLICE-LIST ; (DEFUN SERAPEUM::SPLICE-LIST ; (LIST SERAPEUM::NEW SERAPEUM::START SERAPEUM::END) ; (DECLARE (OPTIMIZE SPEED)) ; (DECLARE (TYPE LIST LIST)) ; (DECLARE (TYPE SEQUENCE SERAPEUM::NEW)) ; (DECLARE (TYPE ALEXANDRIA:ARRAY-INDEX SERAPEUM::START SERAPEUM::END)) ; (LET ((SERAPEUM:QUEUE (SERAPEUM:QUEUE))) ; (DECLARE (DYNAMIC-EXTENT SERAPEUM:QUEUE)) ; (LOOP SERAPEUM::REPEAT SERAPEUM::START ; DO (SERAPEUM:ENQ (POP LIST) SERAPEUM:QUEUE)) ; (SERAPEUM:DO-EACH (SERAPEUM::NEW-ELT SERAPEUM::NEW) ; (SERAPEUM:ENQ SERAPEUM::NEW-ELT SERAPEUM:QUEUE)) ; (SERAPEUM:QCONC SERAPEUM:QUEUE ; (NTHCDR (- SERAPEUM::END SERAPEUM::START) LIST)) ; (SERAPEUM:QLIST SERAPEUM:QUEUE))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/sequences-tmpHRGHZGV.fasl ; compilation finished in 0:00:02.163 ; compiling file "/startdir/src/_build/serapeum/strings.lisp" (written 20 OCT 2024 03:57:38 PM): ; file: /startdir/src/_build/serapeum/strings.lisp ; in: DEFMACRO DO-STRINGS ; (DEFMACRO SERAPEUM::DO-STRINGS ; ((SERAPEUM::S SERAPEUM::MORE?) &BODY SERAPEUM::BODY)) ; --> EVAL-WHEN SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA SB-INT:NAMED-DS-BIND ; --> SB-INT:BINDING* ; ==> ; (LET* ((#:G0 ; (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1 ; '(# # &BODY SERAPEUM::BODY))) ; (#:G1 ; (SB-C::CHECK-DS-LIST (POP #:G0) 2 2 ; '(# SERAPEUM::S SERAPEUM::MORE?))) ; (SERAPEUM::S (POP #:G1)) ; (SERAPEUM::MORE? (POP #:G1)) ; (SERAPEUM::BODY #:G0)) ; (DECLARE (SB-C::CONSTANT-VALUE SERAPEUM::S SERAPEUM::MORE? SERAPEUM::BODY)) ; (BLOCK SERAPEUM::DO-STRINGS)) ; ; caught STYLE-WARNING: ; The variable S is defined but never used. ; ; caught STYLE-WARNING: ; The variable MORE? is defined but never used. ; ; caught STYLE-WARNING: ; The variable BODY is defined but never used. ; file: /startdir/src/_build/serapeum/strings.lisp ; in: DEFMACRO DO-STRINGS ; (DEFMACRO SERAPEUM::DO-STRINGS ; ((SERAPEUM::S SERAPEUM::MORE?) &BODY SERAPEUM::BODY)) ; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* ; ==> ; (LET* ((#:G0 ; (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1 ; '(# # &BODY SERAPEUM::BODY))) ; (#:G1 ; (SB-C::CHECK-DS-LIST (POP #:G0) 2 2 ; '(# SERAPEUM::S SERAPEUM::MORE?))) ; (SERAPEUM::S (POP #:G1)) ; (SERAPEUM::MORE? (POP #:G1)) ; (SERAPEUM::BODY #:G0)) ; (DECLARE (SB-C::CONSTANT-VALUE SERAPEUM::S SERAPEUM::MORE? SERAPEUM::BODY)) ; (BLOCK SERAPEUM::DO-STRINGS)) ; ; caught STYLE-WARNING: ; The variable S is defined but never used. ; ; caught STYLE-WARNING: ; The variable MORE? is defined but never used. ; ; caught STYLE-WARNING: ; The variable BODY is defined but never used. ; in: DEFUN STRING-JOIN ; (SERAPEUM::DO-STRINGS (SERAPEUM::S SERAPEUM::MORE?) ; (ETYPECASE SERAPEUM::S ; (STRING (INCF SERAPEUM::LEN (LENGTH SERAPEUM::S))) ; (CHARACTER (INCF SERAPEUM::LEN 1)) ; (SYMBOL (INCF SERAPEUM::LEN (LENGTH #)))) ; (SERAPEUM:BOOLEAN-WHEN SERAPEUM::SEPARATOR? ; (WHEN SERAPEUM::MORE? (INCF SERAPEUM::LEN SERAPEUM::SEP-LEN)))) ; --> LET MAX ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; (SERAPEUM::DO-STRINGS (SERAPEUM::S SERAPEUM::MORE?) ; (SERAPEUM:NLET SERAPEUM::REC ; (SERAPEUM::S) ; (ETYPECASE SERAPEUM::S ; (STRING ; (SERAPEUM:WITH-STRING-DISPATCH NIL ; SERAPEUM::S ; # ; #)) ; (CHARACTER (SETF #) (INCF SERAPEUM::START)) ; (SYMBOL (SERAPEUM::REC #)))) ; (SERAPEUM:BOOLEAN-WHEN SERAPEUM::SEPARATOR? ; (WHEN SERAPEUM::MORE? ; (REPLACE SERAPEUM::RESULT SERAPEUM::SEPARATOR :START1 SERAPEUM::START) ; (INCF SERAPEUM::START SERAPEUM::SEP-LEN)))) ; --> LET MAX ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; (SERAPEUM::DO-STRINGS (SERAPEUM::S SERAPEUM::MORE?) ; (ETYPECASE SERAPEUM::S ; (STRING (INCF SERAPEUM::LEN (LENGTH SERAPEUM::S))) ; (CHARACTER (INCF SERAPEUM::LEN 1)) ; (SYMBOL (INCF SERAPEUM::LEN (LENGTH #)))) ; (SERAPEUM:BOOLEAN-WHEN SERAPEUM::SEPARATOR? ; (WHEN SERAPEUM::MORE? (INCF SERAPEUM::LEN SERAPEUM::SEP-LEN)))) ; --> LET MAX ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (AND ATOM (NOT NULL)), not a (NOT ; SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFUN DIGIT-LENGTH ; (TRUNCATE SERAPEUM::N SERAPEUM::BASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a REAL, not a FIXNUM. ; in: DEFINE-COMPILER-MACRO STRING+ ; (DEFINE-COMPILER-MACRO SERAPEUM:STRING+ ; (&WHOLE SERAPEUM::CALL &ENVIRONMENT SERAPEUM::ENV &REST ; SERAPEUM::ORIG-ARGS) ; (IF (NULL SERAPEUM::ORIG-ARGS) ; "" ; (LET ((SERAPEUM::ARGS #)) ; (IF (= # 1) ; (IF # ; `# ; `#) ; (IF # ; SERAPEUM::CALL ; `#))))) ; --> EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:STRING+ ; (SB-INT:NAMED-LAMBDA (COMPILER-MACRO ; SERAPEUM:STRING+) ; (#:EXPR SERAPEUM::ENV &AUX ; (SERAPEUM::CALL #:EXPR)) ; (DECLARE ; (SB-C::LAMBDA-LIST ; (&REST SERAPEUM::ORIG-ARGS))) ; (SB-INT:NAMED-DS-BIND (:MACRO ; SERAPEUM:STRING+ ; . DEFINE-COMPILER-MACRO) ; (&REST SERAPEUM::ORIG-ARGS) ; (SB-C::COMPILER-MACRO-ARGS #:EXPR) ; (DECLARE ; (SB-C::CONSTANT-VALUE SERAPEUM::ORIG-ARGS) ; (SB-C::NO-COMPILER-MACRO SERAPEUM:STRING+)) ; (BLOCK SERAPEUM:STRING+ ; (IF # ; "" ; #))))) ; ; caught STYLE-WARNING: ; 1 call to SERAPEUM: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. ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/strings-tmpI20JAS5Z.fasl ; compilation finished in 0:00:00.286 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/serapeum/vectors.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/vectors-tmp1NG3ULZM.fasl ; compilation finished in 0:00:00.146 ; compiling file "/startdir/src/_build/serapeum/exporting.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/exporting-tmpI1DAD0AT.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/serapeum/vector=.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/vector=-tmpEG5MZLER.fasl ; compilation finished in 0:00:00.063 ; compiling file "/startdir/src/_build/serapeum/mop.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/mop-tmpO7Q65F5W.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/serapeum/internal-definitions.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/internal-definitions-tmpLAUSW243.fasl ; compilation finished in 0:00:00.116 ; compiling file "/startdir/src/_build/serapeum/tree-case.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/tree-case-tmpUEHF04VV.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/serapeum/dispatch-case.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/dispatch-case-tmpCXXDR04Q.fasl ; compilation finished in 0:00:00.046 ; compiling file "/startdir/src/_build/serapeum/range.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/range-tmpPJ9A3514.fasl ; compilation finished in 0:00:00.116 ; compiling file "/startdir/src/_build/serapeum/generalized-arrays.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/generalized-arrays-tmpHDGFMZ4K.fasl ; compilation finished in 0:00:00.063 ; compiling file "/startdir/src/_build/serapeum/units.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/units-tmpZ1RQAL5P.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/serapeum/contrib/hooks.lisp" (written 20 OCT 2024 03:57:38 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/serapeum/contrib/hooks-tmpNAIN3Z3F.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/trivial-types/src/package.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-types/src/package-tmpJOYFBDFY.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivial-types/src/specials.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-types/src/specials-tmpGD2E67HG.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivial-types/src/lists.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-types/src/lists-tmpDC83MSNK.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/trivial-types/src/designators.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-types/src/designators-tmpSD3SJCX4.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivial-types/src/streams.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-types/src/streams-tmpKCH12F4H.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/trivial-types/src/combinators.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-types/src/combinators-tmpYA7ZJRRS.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/trivial-types/src/typespecs.lisp" (written 20 OCT 2024 03:57:57 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/trivial-types/src/typespecs-tmpD7PXAE8D.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/nfiles/pathname-helpers.lisp" (written 20 OCT 2024 03:57:22 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nfiles/pathname-helpers-tmpISBPWWA0.fasl ; compilation finished in 0:00:00.036 ; compiling file "/startdir/src/_build/nfiles/package.lisp" (written 20 OCT 2024 03:57:22 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nfiles/package-tmp5WKQEUUI.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/nfiles/conditions.lisp" (written 20 OCT 2024 03:57:22 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nfiles/conditions-tmpPTRBMKFF.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/nfiles/gpg.lisp" (written 20 OCT 2024 03:57:22 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nfiles/gpg-tmpWMYAGR60.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/nfiles/nfiles.lisp" (written 20 OCT 2024 03:57:22 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nfiles/nfiles-tmp7WO8PZAA.fasl ; compilation finished in 0:00:00.303 ; compiling file "/startdir/src/_build/njson/package.lisp" (written 20 OCT 2024 03:57:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/njson/package-tmpAQ9OBGVF.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/njson/conditions.lisp" (written 20 OCT 2024 03:57:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/njson/conditions-tmp2G6ZXASJ.fasl ; compilation finished in 0:00:00.020 ; compiling file "/startdir/src/_build/njson/njson.lisp" (written 20 OCT 2024 03:57:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/njson/njson-tmpLLD7Z9ZL.fasl ; compilation finished in 0:00:00.016 ; compiling file "/startdir/src/_build/njson/functions.lisp" (written 20 OCT 2024 03:57:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/njson/functions-tmpPS4UN029.fasl ; compilation finished in 0:00:00.073 ; compiling file "/startdir/src/_build/njson/macros.lisp" (written 20 OCT 2024 03:57:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/njson/macros-tmpMIMLVTPU.fasl ; compilation finished in 0:00:00.070 ; compiling file "/startdir/src/_build/njson/aliases.lisp" (written 20 OCT 2024 03:57:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/njson/aliases-tmpLELW7MPA.fasl ; compilation finished in 0:00:00.006 ; compiling file "/startdir/src/_build/njson/backend/cl-json.lisp" (written 20 OCT 2024 03:57:23 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/njson/backend/cl-json-tmpCDR3RFTK.fasl ; compilation finished in 0:00:00.026 WARNING: redefining JSON::READ-JSON-TOKEN in DEFUN WARNING: redefining JSON::PEEK-JSON-TOKEN in DEFUN WARNING: redefining ENCODE-TO-STRING (#) in DEFMETHOD ; compiling file "/startdir/src/_build/nhooks/package.lisp" (written 20 OCT 2024 03:57:22 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nhooks/package-tmp42H9AWE3.fasl ; compilation finished in 0:00:00.000 ; compiling file "/startdir/src/_build/nhooks/nhooks.lisp" (written 20 OCT 2024 03:57:22 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/nhooks/nhooks-tmpQQBQN8KM.fasl ; compilation finished in 0:00:00.089 WARNING: redefining SERAPEUM:RUN-HOOK in DEFGENERIC ; compiling file "/startdir/src/_build/misc-extensions/src/defs.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/defs-tmpI3PG02SV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/misc-extensions/src/new-let.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/new-let-tmpNVYFELO8.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/misc-extensions/src/gmap.lisp" (written 20 OCT 2024 03:57:19 PM): ; file: /startdir/src/_build/misc-extensions/src/gmap.lisp ; in: DEF-GMAP-ARG-TYPE INDEX ; (GMAP:DEF-GMAP-ARG-TYPE GMAP:INDEX ; (&OPTIONAL (GMAP::START 0) GMAP::STOP &KEY (GMAP::INCR 1) ; (GMAP::FIXNUMS? T)) ; #<(SIMPLE-ARRAY CHARACTER ; (550)) Yields integers in the interval [`start', `stop') if `incr' (which defaults ; to 1) is positive; or in the interval [`stop', `start') if `incr' is negative. ; Specifically, in the upward case, the values ... {1210AB0C2F}> ; (NEW-LET:LET ((GMAP::INCR-TEMP (GENSYM "INCR-")) ; (GMAP::STOP-TEMP (GENSYM "STOP-"))) ; `(,(IF (NUMBERP GMAP::INCR) ; (IF # ; # ; GMAP::START) ; `(IF # ; ,# ; ,GMAP::START)) ; ,(AND GMAP::STOP ; (IF # ; # ; `#'#)) ; NIL ; #'(LAMBDA (GMAP::VAL) ; ,(IF GMAP::FIXNUMS? ; `# ; `#)) ; (,@(AND # `#) ,@(AND GMAP::STOP `#))))) ; --> DEFUN PROGN SB-IMPL::%DEFUN ; ==> ; (SB-INT:NAMED-LAMBDA #:ARG-TYPE-EXPANDER-0 ; (&OPTIONAL (GMAP::START 0) GMAP::STOP &KEY (GMAP::INCR 1) ; (GMAP::FIXNUMS? T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK #:ARG-TYPE-EXPANDER-0 ; (NEW-LET:LET ((GMAP::INCR-TEMP #) (GMAP::STOP-TEMP #)) ; `(,(IF # ; # ; `#) ; ,(AND GMAP::STOP #) NIL #'(LAMBDA # ,#) (,@# ,@#))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL (START 0) STOP ; &KEY (INCR 1) (FIXNUMS? T)) ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/gmap-tmp211IWK73.fasl ; compilation finished in 0:00:00.180 ; compiling file "/startdir/src/_build/misc-extensions/src/fn.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/fn-tmp6JTPY57B.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/misc-extensions/src/tests.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/tests-tmpUW8YM4S2.fasl ; compilation finished in 0:00:00.156 ; compiling file "/startdir/src/_build/misc-extensions/src/rev-fun-bind.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/rev-fun-bind-tmpRIK6JCTJ.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/misc-extensions/src/contexts.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/contexts-tmp27FCTV3I.fasl ; compilation finished in 0:00:00.080 ; compiling file "/startdir/src/_build/misc-extensions/src/context-tests.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/misc-extensions/src/context-tests-tmpFYA4QG0Y.fasl ; compilation finished in 0:00:00.013 ; compiling file "/startdir/src/_build/mt19937/mt19937.lisp" (written 20 OCT 2024 03:57:19 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/mt19937/mt19937-tmpSAO6B53D.fasl ; compilation finished in 0:00:00.033 ; compiling file "/startdir/src/_build/named-readtables/src/package.lisp" (written 20 OCT 2024 03:57:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/named-readtables/src/package-tmpIVRFQU2G.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/named-readtables/src/utils.lisp" (written 20 OCT 2024 03:57:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/named-readtables/src/utils-tmpUT6AIM1D.fasl ; compilation finished in 0:00:00.026 ; compiling file "/startdir/src/_build/named-readtables/src/define-api.lisp" (written 20 OCT 2024 03:57:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/named-readtables/src/define-api-tmpCSSJMG8Q.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/named-readtables/src/cruft.lisp" (written 20 OCT 2024 03:57:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/named-readtables/src/cruft-tmpHFYCDE53.fasl ; compilation finished in 0:00:00.030 ; compiling file "/startdir/src/_build/named-readtables/src/named-readtables.lisp" (written 20 OCT 2024 03:57:20 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/named-readtables/src/named-readtables-tmpBZRH7J0U.fasl ; compilation finished in 0:00:00.056 ; compiling file "/startdir/src/_build/fset/Code/defs.lisp" (written 20 OCT 2024 03:57:00 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fset/Code/defs-tmpBHZMBVKR.fasl ; compilation finished in 0:00:00.003 ; compiling file "/startdir/src/_build/fset/Code/port.lisp" (written 20 OCT 2024 03:57:00 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fset/Code/port-tmpDNQ5MVBL.fasl ; compilation finished in 0:00:00.010 ; compiling file "/startdir/src/_build/fset/Code/macros.lisp" (written 20 OCT 2024 03:57:00 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fset/Code/macros-tmpRA5DWJSD.fasl ; compilation finished in 0:00:00.043 ; compiling file "/startdir/src/_build/fset/Code/order.lisp" (written 20 OCT 2024 03:57:00 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fset/Code/order-tmpPLH4973G.fasl ; compilation finished in 0:00:00.229 ; compiling file "/startdir/src/_build/fset/Code/wb-trees.lisp" (written 20 OCT 2024 03:57:00 PM): ; file: /startdir/src/_build/fset/Code/wb-trees.lisp ; in: ; DECLAIM (FTYPE (FUNCTION (SIMPLE-VECTOR T) FIXNUM) VECTOR-SET-BINARY-SEARCH-LO) ; (DECLAIM ; (FTYPE (FUNCTION (SIMPLE-VECTOR T) FIXNUM) ; FSET::VECTOR-SET-BINARY-SEARCH-LO)) ; ==> ; (SB-C::%PROCLAIM ; '(FTYPE (FUNCTION (SIMPLE-VECTOR T) FIXNUM) ; FSET::VECTOR-SET-BINARY-SEARCH-LO) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The new FTYPE proclamation for FSET::VECTOR-SET-BINARY-SEARCH-LO ; (FUNCTION (SIMPLE-VECTOR T) FIXNUM) ; does not match the derived return type ; (FUNCTION (SIMPLE-VECTOR T) ; (VALUES (INTEGER -4611686018427387904 4611686018427387904) &OPTIONAL)) ; in: ; DECLAIM (FTYPE (FUNCTION (WB-BAG-TREE) INTEGER) WB-BAG-TREE-TOTAL-COUNT) ; (DECLAIM ; (FTYPE (FUNCTION (FSET::WB-BAG-TREE) INTEGER) FSET::WB-BAG-TREE-TOTAL-COUNT)) ; ==> ; (SB-C::%PROCLAIM ; '(FTYPE (FUNCTION (FSET::WB-BAG-TREE) INTEGER) ; FSET::WB-BAG-TREE-TOTAL-COUNT) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The new FTYPE proclamation for FSET::WB-BAG-TREE-TOTAL-COUNT ; (FUNCTION (FSET::WB-BAG-TREE) INTEGER) ; does not match the derived return type ; (FUNCTION ((OR LIST FSET::WB-BAG-TREE-NODE)) *) ; in: DEFUN WB-SEQ-TREE-TO-LIST ; (COERCE FSET::TREE 'LIST) ; ; note: unable to ; optimize ; because: ; upgraded array element type not known at compile time ; ; note: unable to ; optimize ; because: ; upgraded array element type not known at compile time ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fset/Code/wb-trees-tmpQFP18SLN.fasl ; compilation finished in 0:00:00.586 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/startdir/src/_build/fset/Code/reader.lisp" (written 20 OCT 2024 03:57:00 PM): ; wrote /build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fset/Code/reader-tmp2N9QJSQU.fasl ; compilation finished in 0:00:00.140 Unhandled SIMPLE-ERROR in thread #: Bug in readtable iterators or concurrent access? Backtrace for: # 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK # # :QUIT T) 1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #) 2: (INVOKE-DEBUGGER #) 3: (ERROR #) 4: (SB-KERNEL:WITH-SIMPLE-CONDITION-RESTARTS ERROR NIL #) 5: (SB-KERNEL:ASSERT-ERROR EDITOR-HINTS.NAMED-READTABLES::FROM-FN NIL "Bug in readtable iterators or concurrent access?") 6: (EDITOR-HINTS.NAMED-READTABLES::CHECK-READER-MACRO-CONFLICT # # #\Nul NIL) 7: (EDITOR-HINTS.NAMED-READTABLES:MERGE-READTABLES-INTO # :STANDARD) 8: ("top level form") [toplevel] 9: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM # :TABLE #(435 #1="/startdir/src/_build/fset/Code/reader.lisp" # SET MACRO-FUNCTION (MACRO-FUNCTION SET) #(8 79 2 36 32 9 0 1 103 39 1 1 ...) #() &REST ARGS (&REST ARGS) #<(SIMPLE-BASE-STRING 332) Constructs a set of the default implementation according to the supplied argument subforms. Each argument subform can be an expression, whose value will be a member of the result set; or a list of th... {120DD602DF}> ...) :STACK #(0 # *FSET-READTABLE* #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING #1# :INDICES 753665) "A copy of the standard readtable with FSet reader macros installed." |rereading-#{-reader| |rereading-#[-reader| |rereading-#~-reader| FSET-SETUP-REREADING-READTABLE *FSET-REREADING-READTABLE* #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING #1# :INDICES 917505) "A copy of the standard readtable with the rereading FSet reader macros installed. This readtable can be used to read structure printed by the FSet print functions." ...) :NAME-BUFFER #("" "%BOUNDPADTABLEG-READTABLE*ABLE") :PRINT NIL :CODEBLOBS NIL :PARTIAL-SOURCE-INFO #S(SB-C::DEBUG-SOURCE :NAMESTRING #1# :CREATED 3938428620 :START-POSITIONS NIL :PLIST NIL))) 10: ((LAMBDA NIL :IN SB-FASL::LOAD-AS-FASL)) 11: (SB-IMPL::CALL-WITH-LOADER-PACKAGE-NAMES #) 12: (SB-FASL::LOAD-AS-FASL # NIL NIL) 13: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) # T) 14: (SB-FASL::CALL-WITH-LOAD-BINDINGS # # T #) 15: (LOAD #P"/build/.cache/common-lisp/sbcl-2.6.3-linux-x64/startdir/src/_build/fset/Code/reader.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT) 16: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS # ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS))) 17: ((SB-PCL::EMF ASDF/ACTION:PERFORM) # # # #) 18: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 19: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) # #) [fast-method] 20: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) # #) [fast-method] 21: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #) [fast-method] 22: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 23: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #) [fast-method] 24: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) # # :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 25: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # # #) 26: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 27: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) # #) [fast-method] 28: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # ASDF/LISP-ACTION:LOAD-OP :NYXT/GI-GTK-APPLICATION) 29: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 30: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :NYXT/GI-GTK-APPLICATION) [fast-method] 31: (ASDF/SESSION:CALL-WITH-ASDF-SESSION # :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 32: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 33: (ASDF/SESSION:CALL-WITH-ASDF-SESSION # :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 34: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :NYXT/GI-GTK-APPLICATION) [fast-method] 35: (ASDF/OPERATE:LOAD-SYSTEM :NYXT/GI-GTK-APPLICATION) 36: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:LOAD-SYSTEM :NYXT/GI-GTK-APPLICATION) #) 37: (EVAL (ASDF/OPERATE:LOAD-SYSTEM :NYXT/GI-GTK-APPLICATION)) 38: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require \"asdf\")") (:EVAL . #<(SIMPLE-BASE-STRING 298) (when (string= "true" "true") (setf asdf:*default-source-registries* (list (quote asdf/source-registry:environment-source-registry))) (asdf:clear-configuration) (asdf:load-asd "/startdir/src//librarie... {1201F4785F}>) (:EVAL . "(asdf:load-asd \"/startdir/src//libraries/nasdf/nasdf.asd\")") (:EVAL . "(asdf:load-asd \"/startdir/src//nyxt.asd\")") (:EVAL . "(asdf:load-system :nyxt/gi-gtk-application)") (:EVAL . "(asdf:make :nyxt/gi-gtk-application)") (:EVAL . "(uiop:quit)") (:QUIT))) 39: (SB-IMPL::TOPLEVEL-INIT) 40: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 41: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 42: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 43 STYLE-WARNING conditions ; printed 3008 notes Compilation failed, see the above stacktrace. make: *** [makefile:43: nyxt] Error 1 ==> ERROR: A failure occurred in build(). Aborting... ==> ERROR: Build failed, check /home/alhp/workspace/chroot/build_ad979899-c726-4048-a499-5f24e4407667/build