Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 836699 Details for
Bug 882935
x11-wm/stumpwm-22.05_p20220818[doc]: ==> Fatal error occurred, no output PDF file produced!
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
stumpwm-22.05:20221125-083233.log
stumpwm-22.05:20221125-083233.log (text/plain), 868.34 KB, created by
Joonas Niilola
on 2022-11-25 12:34:45 UTC
(
hide
)
Description:
stumpwm-22.05:20221125-083233.log
Filename:
MIME Type:
Creator:
Joonas Niilola
Created:
2022-11-25 12:34:45 UTC
Size:
868.34 KB
patch
obsolete
> * Package: x11-wm/stumpwm-22.05:0 > * Repository: gentoo > * USE: abi_x86_64 amd64 doc elibc_glibc emacs kernel_linux userland_GNU > * FEATURES: network-sandbox preserve-libs sandbox userpriv usersandbox > >>>> Unpacking source... >>>> Unpacking stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2.tar.gz to /var/tmp/portage/x11-wm/stumpwm-22.05/work >>>> Source unpacked in /var/tmp/portage/x11-wm/stumpwm-22.05/work >>>> Preparing source in /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2 ... > * Running eautoreconf in '/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2' ... > * Running 'aclocal --system-acdir=/var/tmp/portage/x11-wm/stumpwm-22.05/temp/aclocal' ... > [ ok ] > * Running 'autoconf --force' ... > [ ok ] > * Running elibtoolize in: stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/ >>>> Source prepared. >>>> Configuring source in /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2 ... > * econf: updating stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/config.sub with /usr/share/gnuconfig/config.sub > * econf: updating stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/config.guess with /usr/share/gnuconfig/config.guess >./configure --prefix=/usr --build=x86_64-pc-linux-gnu --host=x86_64-pc-linux-gnu --mandir=/usr/share/man --infodir=/usr/share/info --datadir=/usr/share --sysconfdir=/etc --localstatedir=/var/lib --docdir=/usr/share/doc/stumpwm-22.05 --htmldir=/usr/share/doc/stumpwm-22.05/html --libdir=/usr/lib64 --with-lisp=sbcl >checking for sbcl... /usr/bin/sbcl >configure: Using sbcl at /usr/bin/sbcl >checking for makeinfo... yes >configure: creating ./config.status >config.status: creating Makefile >configure: creating ./config.status >config.status: creating Makefile >config.status: creating make-image.lisp >configure: creating ./config.status >config.status: creating Makefile >config.status: creating make-image.lisp >config.status: creating load-stumpwm.lisp >>>> Source configured. >>>> Compiling source in /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2 ... >make -j32 >/usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load ./make-image.lisp >This is SBCL 2.2.10, an implementation of ANSI Common Lisp. >More information about SBCL is available at <http://www.sbcl.org/>. > >SBCL is free software, provided as is, with absolutely no warranty. >It is mostly in the public domain; some portions are provided under >BSD-style licenses. See the CREDITS and COPYING files in the >distribution for more information. >/usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" >This is SBCL 2.2.10, an implementation of ANSI Common Lisp. >More information about SBCL is available at <http://www.sbcl.org/>. > >SBCL is free software, provided as is, with absolutely no warranty. >It is mostly in the public domain; some portions are provided under >BSD-style licenses. See the CREDITS and COPYING files in the >distribution for more information. >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpGHU3ALSV.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 23 NOV 2022 07:08:21 AM): >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpGHU3ALSW.fasl >; compilation finished in 0:00:00.000 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmpAAURSO1.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmpAAURSO2.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmp5GEXGEG5.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmp5GEXGEG6.fasl >; compilation finished in 0:00:00.008 > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpAR3FSGEY.fasl >; compilation finished in 0:00:00.000 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 23 NOV 2022 07:08:21 AM): >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpAR3FSGEY.fasl >; compilation finished in 0:00:00.000 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmpJAIDFZTC.fasl >; compilation finished in 0:00:00.012 > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmpJAIDFZTD.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 23 NOV 2022 07:08:20 AM): >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp8V3J6PE9.fasl >; compilation finished in 0:00:00.008 > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp8V3J6PEA.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 23 NOV 2022 07:08:20 AM): >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9V47YWQF.fasl > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9V47YWQG.fasl >; compilation finished in 0:00:00.040 >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 23 NOV 2022 07:08:20 AM): >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp9BN22RMA.fasl >; compilation finished in 0:00:00.036 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp9BN22RMB.fasl >; compilation finished in 0:00:00.048 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmp1CXFJSK9.fasl >; compilation finished in 0:00:00.064 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmp1CXFJSKA.fasl >; compilation finished in 0:00:00.064 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpX4BRKI0R.fasl >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpX4BRKI0S.fasl >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmpQ371UGST.fasl >; compilation finished in 0:00:00.056 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmpQ371UGSU.fasl >; compilation finished in 0:00:00.076 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp2OWI3Q7U.fasl >; compilation finished in 0:00:00.044 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmp9KKTJMYV.fasl >; compilation finished in 0:00:00.028 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 23 NOV 2022 07:08:20 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpJU0JWO19.fasl >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp2OWI3Q7V.fasl >; compilation finished in 0:00:00.052 >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 23 NOV 2022 07:08:20 AM): >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmp9KKTJMYV.fasl >; compilation finished in 0:00:00.024 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 23 NOV 2022 07:08:20 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpJU0JWO19.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 23 NOV 2022 07:08:20 AM): > >; file: /usr/share/common-lisp/source/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. > >; file: /usr/share/common-lisp/source/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. > >; in: DEFUN MAP-DERANGEMENTS >; (MAKE-ARRAY ALEXANDRIA::SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) >; >; note: could not stack allocate: >; (MAKE-ARRAY SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpZX2WN8N4.fasl >; compilation finished in 0:00:00.100 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 23 NOV 2022 07:08:21 AM): > >; in: DEFUN MAP-DERANGEMENTS >; (MAKE-ARRAY ALEXANDRIA::SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) >; >; note: could not stack allocate: >; (MAKE-ARRAY SIZE :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpZX2WN8N5.fasl >; compilation finished in 0:00:00.108 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpOU81XRV0.fasl >; compilation finished in 0:00:00.064 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpY2ML9CFA.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 23 NOV 2022 07:08:22 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpX2JYJDQE.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpOPCILR65.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpRV9F8A9A.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpK2ZAJT4I.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpOU81XRV1.fasl >; compilation finished in 0:00:00.060 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpY2ML9CFA.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 23 NOV 2022 07:08:22 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpX2JYJDQE.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 23 NOV 2022 07:08:21 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmpUX5S4ADN.fasl >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpOPCILR65.fasl >; compilation finished in 0:00:00.032 >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 23 NOV 2022 07:08:21 AM): >; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 23 NOV 2022 07:08:31 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/packages-tmp10401X32.fasl >; compilation finished in 0:00:00.000 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 23 NOV 2022 07:08:32 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpRV9F8A9A.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpK2ZAJT4I.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 23 NOV 2022 07:08:21 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/specials-tmpZ7CBRM0G.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 23 NOV 2022 07:08:32 AM): > >; file: /usr/share/common-lisp/source/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 (SIMPLE-ARRAY * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a STRING, not a SIMPLE-BASE-STRING. > >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/util-tmp9OZEQ0G2.fasl >; compilation finished in 0:00:00.032 > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmpUX5S4ADN.fasl >; compilation finished in 0:00:00.036 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 23 NOV 2022 07:08:31 AM): >; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 23 NOV 2022 07:08:31 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/packages-tmp10401X32.fasl >; compilation finished in 0:00:00.000 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 23 NOV 2022 07:08:32 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/errors-tmpB2JTL1W9.fasl >; compilation finished in 0:00:00.012 > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/specials-tmpZ7CBRM0G.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 23 NOV 2022 07:08:32 AM): >; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp >; in: DEFUN MIX >; (+ CL-PPCRE::CODE CL-PPCRE::HASH) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 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. > >; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FLOAT. >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a RATIONAL. > >; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FLOAT. >; >; note: unable to open code because: The operands might not be the same type. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; note: forced to do GENERIC-< (cost 10) >; unable to do inline fixnum comparison (cost 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. >; >; 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. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 2) because: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FIXNUM. >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387900) >; (9223372036854775798))) >; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; unable to do inline (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a (SIGNED-BYTE >; 64). >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387900) >; (9223372036854775798))) >; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). >; etc. >; >; note: forced to do GENERIC-> (cost 10) >; unable to do inline fixnum comparison (cost 3) because: >; The first argument is a (RATIONAL (-4611686018427387900) >; (9223372036854775798)), not a FIXNUM. >; unable to do inline fixnum comparison (cost 4) because: >; The first argument is a (RATIONAL (-4611686018427387900) >; (9223372036854775798)), not a FIXNUM. >; etc. >; >; note: forced to do GENERIC-< (cost 10) >; unable to do inline fixnum comparison (cost 3) because: >; The first argument is a (RATIONAL (-4611686018427387899) >; (9223372036854775798)), not a FIXNUM. >; unable to do inline fixnum comparison (cost 4) because: >; The first argument is a (RATIONAL (-4611686018427387899) >; (9223372036854775798)), not a FIXNUM. >; etc. > >; (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 (-4611686018427387899) >; (4611686018427387899))), not a FIXNUM. >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387898) >; (4611686018427387900))) >; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; unable to do inline fixnum arithmetic (cost 2) because: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FIXNUM. >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387898) >; (4611686018427387900))) >; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; etc. > >; file: /usr/share/common-lisp/source/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 (SIMPLE-ARRAY * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a STRING, not a SIMPLE-BASE-STRING. > >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/util-tmp9OZEQ0G2.fasl >; compilation finished in 0:00:00.028 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 23 NOV 2022 07:08:31 AM): > >; in: DEFUN %ADD-TO-CHARSET/EXPAND >; (* 2 CL-PPCRE::NEW-SIZE) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; convert x*2^k to shift >; due to type uncertainty: >; The first argument is a NUMBER, not a INTEGER. >; >; note: unable to >; associate */(* /) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (>= CL-PPCRE::NEW-SIZE 371370) >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR (RATIONAL * 371370) (SINGLE-FLOAT * 371370.0) >; (DOUBLE-FLOAT * 371370.0d0)), not a FLOAT. >; >; note: unable to open code because: The operands might not be the same type. > >; (TAGBODY >; :RETRY >; (MULTIPLE-VALUE-BIND (CL-PPCRE::NEW-DEPTH CL-PPCRE::NEW-VECTOR) >; (IF (>= CL-PPCRE::NEW-SIZE 371370) >; (VALUES 0 (CL-PPCRE::MAKE-CHAR-VECTOR CHAR-CODE-LIMIT)) >; (VALUES CL-PPCRE::+PROBE-DEPTH+ >; (CL-PPCRE::MAKE-CHAR-VECTOR CL-PPCRE::NEW-SIZE))) >; (SETF (CL-PPCRE::CHARSET-DEPTH SET) CL-PPCRE::NEW-DEPTH >; (CL-PPCRE::CHARSET-VECTOR SET) CL-PPCRE::NEW-VECTOR) >; (FLET ((CL-PPCRE::TRY-ADD # >; #)) >; (CL-PPCRE::TRY-ADD CHAR) >; (DOTIMES (CL-PPCRE::I #) >; (LET # >; #))))) >; >; note: Allocating a value-cell at runtime for checking possibly out of extent exit via >; (GO :RETRY). Use GO/RETURN-FROM with SAFETY 0, or declare the exit function >; DYNAMIC-EXTENT to avoid. > >; (* 2 CL-PPCRE::NEW-SIZE) >; >; note: forced to do GENERIC-* (cost 30) >; 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::NEW-SIZE 371370) >; >; 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. > >; (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)) > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/errors-tmpB2JTL1W9.fasl >; compilation finished in 0:00:00.004 >; >; note: doing unsigned word to integer coercion (cost 20), for: >; the first result of inline ASH >; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 23 NOV 2022 07:08:31 AM): > >; 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 >; (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 >= >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/charset-tmpP3BI68WQ.fasl >; compilation finished in 0:00:00.048 > >; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp >; in: DEFUN MIX >; (+ CL-PPCRE::CODE CL-PPCRE::HASH) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 23 NOV 2022 07:08:31 AM): >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 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. > >; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FLOAT. >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a RATIONAL. > >; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FLOAT. >; >; note: unable to open code because: The operands might not be the same type. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; note: forced to do GENERIC-< (cost 10) >; unable to do inline fixnum comparison (cost 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. >; >; 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. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 2) because: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FIXNUM. >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387900) >; (9223372036854775798))) >; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; unable to do inline (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a (SIGNED-BYTE >; 64). >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387900) >; (9223372036854775798))) >; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). >; etc. >; >; note: forced to do GENERIC-> (cost 10) >; unable to do inline fixnum comparison (cost 3) because: >; The first argument is a (RATIONAL (-4611686018427387900) >; (9223372036854775798)), not a FIXNUM. >; unable to do inline fixnum comparison (cost 4) because: >; The first argument is a (RATIONAL (-4611686018427387900) >; (9223372036854775798)), not a FIXNUM. >; etc. >; >; note: forced to do GENERIC-< (cost 10) >; unable to do inline fixnum comparison (cost 3) because: >; The first argument is a (RATIONAL (-4611686018427387899) >; (9223372036854775798)), not a FIXNUM. >; unable to do inline fixnum comparison (cost 4) because: >; The first argument is a (RATIONAL (-4611686018427387899) >; (9223372036854775798)), not a FIXNUM. >; etc. > >; (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 (-4611686018427387899) >; (4611686018427387899))), not a FIXNUM. >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387898) >; (4611686018427387900))) >; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; unable to do inline fixnum arithmetic (cost 2) because: >; The first argument is a (OR FLOAT >; (RATIONAL (-4611686018427387899) >; (4611686018427387899))), not a FIXNUM. >; The result is a (VALUES >; (OR FLOAT >; (RATIONAL (-4611686018427387898) >; (4611686018427387900))) >; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; etc. > >; in: DEFUN %ADD-TO-CHARSET/EXPAND >; (* 2 CL-PPCRE::NEW-SIZE) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; convert x*2^k to shift >; due to type uncertainty: >; The first argument is a NUMBER, not a INTEGER. >; >; note: unable to >; associate */(* /) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (>= CL-PPCRE::NEW-SIZE 371370) >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR (RATIONAL * 371370) (SINGLE-FLOAT * 371370.0) >; (DOUBLE-FLOAT * 371370.0d0)), not a FLOAT. >; >; note: unable to open code because: The operands might not be the same type. > >; (TAGBODY >; :RETRY >; (MULTIPLE-VALUE-BIND (CL-PPCRE::NEW-DEPTH CL-PPCRE::NEW-VECTOR) >; (IF (>= CL-PPCRE::NEW-SIZE 371370) >; (VALUES 0 (CL-PPCRE::MAKE-CHAR-VECTOR CHAR-CODE-LIMIT)) >; (VALUES CL-PPCRE::+PROBE-DEPTH+ >; (CL-PPCRE::MAKE-CHAR-VECTOR CL-PPCRE::NEW-SIZE))) >; (SETF (CL-PPCRE::CHARSET-DEPTH SET) CL-PPCRE::NEW-DEPTH >; (CL-PPCRE::CHARSET-VECTOR SET) CL-PPCRE::NEW-VECTOR) >; (FLET ((CL-PPCRE::TRY-ADD # >; #)) >; (CL-PPCRE::TRY-ADD CHAR) >; (DOTIMES (CL-PPCRE::I #) >; (LET # >; #))))) >; >; note: Allocating a value-cell at runtime for checking possibly out of extent exit via >; (GO :RETRY). Use GO/RETURN-FROM with SAFETY 0, or declare the exit function >; DYNAMIC-EXTENT to avoid. > >; (* 2 CL-PPCRE::NEW-SIZE) >; >; note: forced to do GENERIC-* (cost 30) >; 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::NEW-SIZE 371370) >; >; 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. > >; (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)) >; >; note: doing unsigned word to integer coercion (cost 20), for: >; the first result of inline ASH > >; 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. > >; file: /usr/share/common-lisp/source/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-CHARSET-FROM-TEST-FUNCTION >; (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 >= >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/charset-tmpP3BI68WR.fasl >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 23 NOV 2022 07:08:31 AM): > >; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION >; (1- CL-PPCRE::END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. > >; (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 #:LOOP-LIMIT-23) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 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 >= >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; (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 #:LOOP-LIMIT-23) >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpQDARA81Z.fasl >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp >; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION >; (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 >= >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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 >; convert division by 2^k to shift >; due to type uncertainty: >; The first argument is a REAL, not a INTEGER. >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (SIGNED-BYTE 64). >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (UNSIGNED-BYTE 64). >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), not a 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 REAL, not a FLOAT. > >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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 >; convert division by 2^k to shift >; due to type uncertainty: >; The first argument is a REAL, not a INTEGER. >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (SIGNED-BYTE 64). >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (UNSIGNED-BYTE 64). >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), not a 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 REAL, not a FLOAT. > >; (- 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. > >; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) >; >; 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. >; >; 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. > >; (- 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. > >; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) >; >; 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. >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/chartest-tmpYEMMM7SE.fasl >; compilation finished in 0:00:00.020 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 >; (1- CL-PPCRE::END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. > >; (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 #:LOOP-LIMIT-23) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 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 >= >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; (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 #:LOOP-LIMIT-23) >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpQDARA820.fasl >; compilation finished in 0:00:00.044 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp >; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION >; (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 >= >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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 >; convert division by 2^k to shift >; due to type uncertainty: >; The first argument is a REAL, not a INTEGER. >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (SIGNED-BYTE 64). >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (UNSIGNED-BYTE 64). >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), not a 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 REAL, not a FLOAT. > >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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. > >; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp >; in: DEFUN NEXT-CHAR >; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) >; >; >; note: unable to >; note: doing signed word to integer coercion (cost 20), for: >; optimize >; the first result of inline (signed-byte 64) arithmetic >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; >; 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 >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (SIGNED-BYTE 64). >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (UNSIGNED-BYTE 64). >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT (RATIONAL (-2) (2))), not a 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 REAL, not a FLOAT. > >; (- 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. > >; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) >; >; 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. >; >; 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. > >; (- 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. > >; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) >; >; 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. >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/chartest-tmpYEMMM7SE.fasl >; compilation finished in 0:00:00.020 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 23 NOV 2022 07:08:31 AM): > >; in: DEFUN GET-NUMBER >; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) >; CL-PPCRE::END-POS >; CL-PPCRE::LEXER-LEN) >; >; note: doing signed word to integer coercion (cost 20) > >; 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. > >; file: /usr/share/common-lisp/source/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 >; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) >; CL-PPCRE::END-POS >; CL-PPCRE::LEXER-LEN) >; >; note: doing signed word to integer coercion (cost 20) > >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/lexer-tmp73HU0RPK.fasl >; compilation finished in 0:00:00.132 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/parser-tmpIO5N7K88.fasl >; compilation finished in 0:00:00.016 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 23 NOV 2022 07:08:31 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/lexer-tmp73HU0RPL.fasl >; compilation finished in 0:00:00.120 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; file: /usr/share/common-lisp/source/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 > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmpCM21U60Z.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to open code because: The operands might not be the same type. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/parser-tmpIO5N7K88.fasl >; compilation finished in 0:00:00.016 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; (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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmpCM21U60Z.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to open code because: The operands might not be the same type. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 SINGLE-FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (COMPLEX (INTEGER 1 1)) >; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) >; (COMPLEX >; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a 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 (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (COMPLEX (INTEGER 1 1)) >; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) >; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (OR >; (COMPLEX >; SINGLE-FLOAT) >; (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 (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 (COMPLEX DOUBLE-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 >; ==> >; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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 DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; etc. > >; in: DEFMETHOD REGEX-LENGTH (REPETITION) >; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to open code because: The operands might not be the same type. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 SINGLE-FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (COMPLEX (INTEGER 1 1)) >; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) >; (COMPLEX >; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a 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 (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (COMPLEX (INTEGER 1 1)) >; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) >; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (OR >; (COMPLEX >; SINGLE-FLOAT) >; (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 (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (OR (INTEGER 1 1) (SINGLE-FLOAT 1.0 1.0) >; (DOUBLE-FLOAT 1.0d0 1.0d0) >; (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 (COMPLEX DOUBLE-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 >; ==> >; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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-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 >; ==> >; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. > >; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) >; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; >; open-code float conversion in mixed numeric operation >; note: unable to >; due to type uncertainty: >; open-code float conversion in mixed numeric operation >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; due to type uncertainty: >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; >; note: unable to >; note: unable to >; open-code float conversion in mixed numeric operation >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; The second 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 (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; note: unable to open code because: The operands might not be the same type. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; 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 DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; note: unable to >; etc. >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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-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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; 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 < IF >; ==> >; (< #:LOOP-MAXMIN-TEMP-9 #:LOOP-MAXMIN-8) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. > >; in: DEFMETHOD REGEX-LENGTH (REPETITION) >; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; note: unable to >; The first argument is a NUMBER, not a RATIONAL. >; open-code FLOAT to RATIONAL comparison >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; due to type uncertainty: >; (COMPLEX DOUBLE-FLOAT)). >; The first argument is a REAL, not a FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, 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 second argument is a REAL, not a SINGLE-FLOAT. >; note: unable to >; unable to do inline float comparison (cost 3) because: >; open-code float conversion in mixed numeric operation >; The first argument is a REAL, not a DOUBLE-FLOAT. >; due to type uncertainty: >; The second argument is a REAL, not a DOUBLE-FLOAT. >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; etc. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) >; &OPTIONAL). >; 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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) >; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) >; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) >; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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 DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; etc. > >; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) >; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (* 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; >; 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; >; 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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. > >; 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 >; ==> >; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 < IF >; ==> >; (< #:LOOP-MAXMIN-TEMP-9 #:LOOP-MAXMIN-8) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 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. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp9DT7SEFG.fasl >; compilation finished in 0:00:00.104 > >; 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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) >; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) >; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. >; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 23 NOV 2022 07:08:31 AM): > >; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) >; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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 DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a (NOT NULL), not a (COMPLEX DOUBLE-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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; etc. > >; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) >; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (* 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; >; 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; >; 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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. > >; file: /usr/share/common-lisp/source/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 > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp9DT7SEFH.fasl >; compilation finished in 0:00:00.100 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 23 NOV 2022 07:08:31 AM): > >; in: DEFUN MAYBE-SPLIT-REPETITION >; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) >; >; note: doing signed word to integer coercion (cost 20) > >; in: DEFUN MAYBE-ACCUMULATE >; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) >; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) >; (CL-PPCRE::LEN CL-PPCRE::STR))) >; (CL-PPCRE::STR CL-PPCRE::STR) >; (CL-PPCRE::SKIP CL-PPCRE::STR) T) >; --> SETF LET* >; ==> >; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES >; (SIMPLE-ARRAY * (*)) >; &REST T). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. >; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). >; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING >; &REST T). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). >; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. >; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES >; (SIMPLE-ARRAY CHARACTER >; (*)) >; &REST T). > >; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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-PPCRE::LEN CL-PPCRE::STARTS-WITH) (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. > >; file: /usr/share/common-lisp/source/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: 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: DEFUN MAYBE-SPLIT-REPETITION >; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) >; >; note: doing signed word to integer coercion (cost 20) > >; in: DEFUN MAYBE-ACCUMULATE >; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) >; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) >; (CL-PPCRE::LEN CL-PPCRE::STR))) >; (CL-PPCRE::STR CL-PPCRE::STR) >; (CL-PPCRE::SKIP CL-PPCRE::STR) T) >; --> SETF LET* >; ==> >; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES >; (SIMPLE-ARRAY * (*)) >; &REST T). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. >; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). >; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING >; &REST T). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). >; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. >; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES >; (SIMPLE-ARRAY CHARACTER >; (*)) >; &REST T). > >; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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-PPCRE::LEN CL-PPCRE::STARTS-WITH) (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 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 :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 :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 STRING. >; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) >; CHARACTER), not a STRING. >; >; 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 (NOT NULL) 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 (AND (NOT NULL) SYMBOL) >; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). > >; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). > >; (1- CL-PPCRE::BACKREF-NUMBER) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). > >; (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 (SIGNED-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: 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 STRING. >; The second argument is a (OR STRING (AND (NOT NULL) SYMBOL) >; CHARACTER), not a STRING. >; >; 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 (NOT NULL) 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 (AND (NOT NULL) SYMBOL) >; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). > >; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). > >; (1- CL-PPCRE::BACKREF-NUMBER) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). > >; (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 (SIGNED-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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/convert-tmp8065ESJT.fasl >; compilation finished in 0:00:00.144 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 (SIMPLE-ARRAY * (*)), not a SIMPLE-BASE-STRING. > >; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) >; --> THE >; ==> >; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) >; &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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; 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 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. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/convert-tmp8065ESJU.fasl >; compilation finished in 0:00:00.144 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 23 NOV 2022 07:08:31 AM): > >; 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to open code because: The operands might not be the same type. > >; (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 (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. > >; (CHAR CL-PPCRE::STR CL-PPCRE::I) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; file: /usr/share/common-lisp/source/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 (SIMPLE-ARRAY * (*)), not a SIMPLE-BASE-STRING. > >; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) >; --> THE >; ==> >; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; 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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; 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 < IF >; ==> >; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; 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 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 COMPUTE-MIN-REST (STR T) >; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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. > >; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) >; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) >; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (+ CL-PPCRE::CURRENT-MIN-REST >; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) >; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (* (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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to open code because: The operands might not be the same type. > >; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) >; (1+ CL-PPCRE::CURRENT-MIN-REST) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/optimize-tmp7S8Z6FGF.fasl >; compilation finished in 0:00:00.064 > >; 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to open code because: The operands might not be the same type. > >; (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 (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. >; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 23 NOV 2022 07:08:31 AM): > >; (CHAR CL-PPCRE::STR CL-PPCRE::I) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; 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 < IF >; ==> >; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, 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 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. >; >; note: forced to do GENERIC-= (cost 10) >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; unable to do inline float comparison (cost 3) because: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a SINGLE-FLOAT. > >; in: DEFMETHOD COMPUTE-MIN-REST (STR T) >; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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. > >; file: /usr/share/common-lisp/source/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. > >; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) >; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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. > >; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) >; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) >; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (+ CL-PPCRE::CURRENT-MIN-REST >; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) >; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (* (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 (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a T, not a (SIGNED-BYTE 64). >; The second argument is a T, not a (SIGNED-BYTE 64). >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/optimize-tmp7S8Z6FGG.fasl >; compilation finished in 0:00:00.064 > >; 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 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 23 NOV 2022 07:08:31 AM): > >; 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 > >; file: /usr/share/common-lisp/source/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. > >; 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. > >; (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 >; ==> >; 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. > >; (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 >; ==> >; 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. > >; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) > >; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) >; (- 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 >; >; 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. > >; (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 >; ==> >; 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. > >; (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 >; ==> >; 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. > >; (+ 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 >; ==> >; 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. > >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/closures-tmpSIT3QPKP.fasl >; compilation finished in 0:00:00.164 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 23 NOV 2022 07:08:31 AM): > >; 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 >; ==> >; 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. > >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/closures-tmpSIT3QPKQ.fasl >; compilation finished in 0:00:00.168 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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. >; 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 >; ==> >; 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. >; 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), not a FIXNUM. > >; (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). >; >; 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. > >; (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). >; >; 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. > >; (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). >; >; 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. > >; (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). >; >; 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. > >; --> 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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). >; >; 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. > >; (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: 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), not a FIXNUM. > >; (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). >; >; 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. > >; --> 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 > >; file: /usr/share/common-lisp/source/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. >; 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 >; ==> >; 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. >; 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), not a FIXNUM. > >; (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). >; >; 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. > >; (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). >; >; 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. > >; (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). >; >; 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. > >; (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). >; >; 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. > >; --> 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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). >; >; 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. > >; (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: 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), not a FIXNUM. > >; (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). >; >; 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. > >; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; --> 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-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 >; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) >; --> SETF LET* FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 >; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) >; --> SETF LET* FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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. >; 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 >; ==> >; 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. >; 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). >; >; 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. > >; (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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; --> 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-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. >; 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 >; ==> >; 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. >; 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). >; >; 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. > >; (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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; (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 -13835058055282163709 >; 13835058055282163712), not a FIXNUM. >; The second argument is a (INTEGER -9223372036854775808 >; 9223372036854775806), 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). >; >; 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. > >; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; --> 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-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 >; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) >; --> SETF LET* FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 >; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) >; --> SETF LET* FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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. > >; (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 >; ==> >; 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. > >; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 >; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) >; --> SETF LET* FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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. > >; (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 >; ==> >; 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. > >; 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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 (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (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 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 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 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 NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; 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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpE0PA0714.fasl >; compilation finished in 0:00:00.312 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 23 NOV 2022 07:08:31 AM): > >; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. > >; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 >; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) >; --> SETF LET* FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 * (*)). >; >; note: unable to >; avoid runtime dispatch on array element type >; 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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 (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (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 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 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 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 NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; 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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpE0PA0715.fasl >; compilation finished in 0:00:00.304 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 23 NOV 2022 07:08:31 AM): > >; file: /usr/share/common-lisp/source/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 >; ==> >; 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. > >; (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 THE AND IF >; --> CHAR-EQUAL >; ==> >; 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. > >; file: /usr/share/common-lisp/source/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 >; ==> >; 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. > >; (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 THE AND IF >; --> CHAR-EQUAL >; ==> >; 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. > >; 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) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). > >; 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) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (CL-PPCRE::INSERT-ADVANCE-FN >; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) >; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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 fixnum comparison (cost 4) because: >; The second argument is a REAL, not a FIXNUM. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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. >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: forced to do GENERIC-< (cost 10) >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; unable to do inline fixnum comparison (cost 4) because: >; The first argument is a NUMBER, not a FIXNUM. >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF AND IF < >PROGN LET COND IF IF AND IF < >; ==> >; ==> >; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) >; >; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) >; note: unable to >; >; open-code float conversion in mixed numeric operation >; note: forced to do GENERIC-+ (cost 10) >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; unable to do inline float arithmetic (cost 2) because: >; The second argument is a NUMBER, not a FLOAT. >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. > >; --> 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. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). > >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 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. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; --> 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: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; --> 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 FLOAT. > >; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY >; --> PROGN LET COND IF IF INCF SETQ THE >; ==> >; (+ 1 CL-PPCRE::*END-STRING-POS*) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (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. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; note: unable to open code because: The operands might not be the same type. > >; (CL-PPCRE::INSERT-ADVANCE-FN >; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) >; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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 fixnum comparison (cost 4) because: >; The second argument is a REAL, not a FIXNUM. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 WHEN IF PROGN UNLESS IF AND IF <= >; ==> >; 1 >; >; 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. > >; --> 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 float arithmetic (cost 2) because: >; The first argument is a T, not a DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT >; &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 THE >; ==> >; (+ 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 > >; (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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/scanner-tmpJRWHHVG0.fasl >; compilation finished in 0:00:00.540 >; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 23 NOV 2022 07:08:30 AM): > >; file: /usr/share/common-lisp/source/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. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/scanner-tmpJRWHHVG1.fasl >; compilation finished in 0:00:00.536 > >; 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 FLOAT. >; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 23 NOV 2022 07:08:30 AM): > >; (= 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; file: /usr/share/common-lisp/source/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 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; 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 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 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 FLOAT. >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (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 (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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; 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. > >; 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; 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. > >; 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. ... {1004CF51AF}> >; (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-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. ... {1004E89B2F}> >; (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, >; ... {10011BF54F}> >; (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... {100134439F}> >; (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... {100155100F}> >; (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: 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, >; ... {100130C23F}> >; (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... {100149142F}> >; (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: 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 THE 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF >; ==> >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; etc. > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), not a FIXNUM. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; etc. > >; 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... {100204DA7F}> >; (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-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 THE >; --> 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK >; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE >; --> IF >; ==> >; (= #:MATCH-START2 #:MATCH-END3) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK >; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE >; --> IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK >; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE >; --> IF >; ==> >; (= #:MATCH-START2 #:MATCH-END3) >; >; 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-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 THE >; --> IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), not a FIXNUM. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; etc. > >; 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 THE 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF >; ==> >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; etc. > >; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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 THE >; --> 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK >; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE >; --> IF >; ==> >; (= #:MATCH-START2 #:MATCH-END3) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK >; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE >; --> IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK >; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE >; --> IF >; ==> >; (= #:MATCH-START2 #:MATCH-END3) >; >; 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-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 THE >; --> IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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 THE 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (COMPLEX DOUBLE-FLOAT). >; The second 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 (OR REAL COMPLEX), not a 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 COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (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 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 LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF >; ==> >; 1 >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (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 THE IF >; ==> >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. > >; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) >; >; note: unable to open code because: The operands might not be the same type. > >; (= 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-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 (OR REAL COMPLEX), not a DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (OR REAL COMPLEX), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-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) >; --> THE >; ==> >; (+ 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. > >; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) >; >; 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 (OR (RATIONAL (0)) (SINGLE-FLOAT (0.0)) >; (DOUBLE-FLOAT (0.0d0))), not a FIXNUM. > >; (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 THE 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 DOUBLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; etc. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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 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 THE 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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 conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (COMPLEX DOUBLE-FLOAT). >; The second 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 (OR REAL COMPLEX), not a 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 COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (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 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 LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF >; ==> >; 1 >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (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 THE IF >; ==> >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a SINGLE-FLOAT. >; The second argument is a REAL, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a REAL, not a DOUBLE-FLOAT. >; The second 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 FLOAT. >; The second argument is a REAL, not a RATIONAL. > >; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) >; >; note: unable to open code because: The operands might not be the same type. > >; (= 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-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 (OR REAL COMPLEX), not a DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (OR REAL COMPLEX), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-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) >; --> THE >; ==> >; (+ 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. > >; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) >; >; 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 (OR (RATIONAL (0)) (SINGLE-FLOAT (0.0)) >; (DOUBLE-FLOAT (0.0d0))), not a FIXNUM. > >; (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 THE 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 DOUBLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; etc. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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 >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR CL-PPCRE::TO) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; 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 >; because: >; Upgraded element type of array is not known at compile time. > >; (< 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 REAL, 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 INTEGER NULL), 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 INTEGER NULL), 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 STRING-CASE-MODIFIER >; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR CL-PPCRE::TO) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) >; >; note: unable to >; optimize >; because: >; Upgraded element type of array is not known at compile time. > >; in: DEFUN BUILD-REPLACEMENT >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; --> MAKE-ARRAY >; ==> >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) >; >; note: unable to >; optimize >; because: >; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START >; CL-PPCRE::MATCH-END) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > >; (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 > >; (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: >; callable expression is not known to be a function > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START >; CL-PPCRE::MATCH-END) >; --> MAKE-ARRAY >; ==> >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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: >; callable expression is not known to be a function > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; --> MAKE-ARRAY >; ==> >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START >; CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; ==> >; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE >; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE >; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; ==> >; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE >; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE >; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > >; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; (LOOP CL-PPCRE::FOR CL-PPCRE::TOKEN CL-PPCRE::IN CL-PPCRE::REPLACEMENT-TEMPLATE >; DO (TYPECASE CL-PPCRE::TOKEN >; (STRING (WRITE-STRING CL-PPCRE::TOKEN CL-PPCRE::S)) >; (INTEGER (WHEN # #) (WHEN # #)) >; (FUNCTION (WRITE-STRING # CL-PPCRE::S)) >; (SYMBOL (CASE CL-PPCRE::TOKEN # # # # #))))) >; --> LET >; ==> >; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; >; note: could not stack allocate: >; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) >; (LOOP FOR TOKEN IN REPLACEMENT-TEMPLATE >; DO (TYPECASE TOKEN >; (STRING (WRITE-STRING TOKEN S)) >; (INTEGER >; (WHEN (>= TOKEN REG-BOUND) >; (SIGNAL-INVOCATION-ERROR >; "Reference to non-existent register ~A in replacement string." >; (1+ TOKEN))) >; (WHEN (SVREF REG-STARTS TOKEN) >; (WRITE-STRING TARGET-STRING S :START >; (SVREF REG-STARTS TOKEN) :END >; (SVREF REG-ENDS TOKEN)))) >; (FUNCTION >; (WRITE-STRING >; (COND >; (SIMPLE-CALLS >; (APPLY TOKEN >; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) >; (MAP 'LIST >; (LAMBDA (REG-START REG-END) >; (AND REG-START >; (NSUBSEQ TARGET-STRING REG-START >; REG-END))) >; REG-STARTS REG-ENDS))) >; (T >; (FUNCALL TOKEN TARGET-STRING START END MATCH-START >; MATCH-END REG-STARTS REG-ENDS))) >; S)) >; (SYMBOL >; (CASE TOKEN >; ((:BACKSLASH) (WRITE-CHAR #\\ S)) >; ((:MATCH) >; (WRITE-STRING TARGET-STRING S :START MATCH-START :END >; MATCH-END)) >; ((:BEFORE-MATCH) >; (WRITE-STRING TARGET-STRING S :START START :END >; MATCH-START)) >; ((:AFTER-MATCH) >; (WRITE-STRING TARGET-STRING S :START MATCH-END :END >; END)) >; (OTHERWISE >; (WRITE-STRING >; (COND >; (SIMPLE-CALLS >; (APPLY TOKEN >; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) >; (MAP 'LIST >; (LAMBDA (REG-START REG-END) >; (AND REG-START >; (NSUBSEQ TARGET-STRING REG-START >; REG-END))) >; REG-STARTS REG-ENDS))) >; (T >; (FUNCALL TOKEN TARGET-STRING START END MATCH-START >; MATCH-END REG-STARTS REG-ENDS))) >; S))))))) > >; (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. > >; --> MAKE-ARRAY >; ==> >; (- 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. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; --> MAKE-ARRAY >; ==> >; (- 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 (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. > >; 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 >; because: >; Upgraded element type of array is not known at compile time. > >; in: DEFUN REPLACE-AUX >; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; (LOOP CL-PPCRE::FOR (CL-PPCRE::FROM CL-PPCRE::TO) CL-PPCRE::ON (APPEND >; (LIST >; CL-PPCRE::START) >; CL-PPCRE::POS-LIST >; (LIST >; CL-PPCRE::END)) >; CL-PPCRE::FOR REPLACE = NIL CL-PPCRE::THEN (AND (NOT REPLACE) >; CL-PPCRE::TO) >; CL-PPCRE::FOR ...)) >; --> LET >; ==> >; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; >; note: could not stack allocate: >; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) >; (LOOP FOR (FROM TO) ON (APPEND (LIST START) POS-LIST (LIST END)) >; FOR REPLACE = NIL THEN (AND (NOT REPLACE) TO) >; FOR REG-STARTS = (IF REPLACE >; (POP REG-LIST) >; NIL) >; FOR REG-ENDS = (IF REPLACE >; (POP REG-LIST) >; NIL) >; FOR CURR-REPLACEMENT = (IF REPLACE >; (BUILD-REPLACEMENT >; REPLACEMENT-TEMPLATE TARGET-STRING >; START END FROM TO REG-STARTS >; REG-ENDS SIMPLE-CALLS ELEMENT-TYPE) >; NIL) >; WHILE TO >; IF REPLACE >; DO (WRITE-STRING >; (IF PRESERVE-CASE >; (FUNCALL >; (STRING-CASE-MODIFIER TARGET-STRING FROM TO START END) >; CURR-REPLACEMENT) >; CURR-REPLACEMENT) >; S) ELSE >; DO (WRITE-STRING TARGET-STRING S :START FROM :END TO))) > >; (< 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 REAL, 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 INTEGER NULL), 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 INTEGER NULL), 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 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 BUILD-REPLACEMENT >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; --> MAKE-ARRAY >; ==> >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) >; >; note: unable to >; optimize >; because: >; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START >; CL-PPCRE::MATCH-END) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > >; (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 > >; (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: >; callable expression is not known to be a function > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START >; CL-PPCRE::MATCH-END) >; --> MAKE-ARRAY >; ==> >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (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: >; callable expression is not known to be a function > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; --> MAKE-ARRAY >; ==> >; (- CL-PPCRE::END CL-PPCRE::START) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START >; CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. >; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; The second argument is a NUMBER, not a RATIONAL. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a NUMBER, not a SINGLE-FLOAT. > >; ==> >; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE >; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE >; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; ==> >; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE >; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE >; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > >; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; (LOOP CL-PPCRE::FOR CL-PPCRE::TOKEN CL-PPCRE::IN CL-PPCRE::REPLACEMENT-TEMPLATE >; DO (TYPECASE CL-PPCRE::TOKEN >; (STRING (WRITE-STRING CL-PPCRE::TOKEN CL-PPCRE::S)) >; (INTEGER (WHEN # #) (WHEN # #)) >; (FUNCTION (WRITE-STRING # CL-PPCRE::S)) >; (SYMBOL (CASE CL-PPCRE::TOKEN # # # # #))))) >; --> LET >; ==> >; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; >; note: could not stack allocate: >; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) >; (LOOP FOR TOKEN IN REPLACEMENT-TEMPLATE >; DO (TYPECASE TOKEN >; (STRING (WRITE-STRING TOKEN S)) >; (INTEGER >; (WHEN (>= TOKEN REG-BOUND) >; (SIGNAL-INVOCATION-ERROR >; "Reference to non-existent register ~A in replacement string." >; (1+ TOKEN))) >; (WHEN (SVREF REG-STARTS TOKEN) >; (WRITE-STRING TARGET-STRING S :START >; (SVREF REG-STARTS TOKEN) :END >; (SVREF REG-ENDS TOKEN)))) >; (FUNCTION >; (WRITE-STRING >; (COND >; (SIMPLE-CALLS >; (APPLY TOKEN >; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) >; (MAP 'LIST >; (LAMBDA (REG-START REG-END) >; (AND REG-START >; (NSUBSEQ TARGET-STRING REG-START >; REG-END))) >; REG-STARTS REG-ENDS))) >; (T >; (FUNCALL TOKEN TARGET-STRING START END MATCH-START >; MATCH-END REG-STARTS REG-ENDS))) >; S)) >; (SYMBOL >; (CASE TOKEN >; ((:BACKSLASH) (WRITE-CHAR #\\ S)) >; ((:MATCH) >; (WRITE-STRING TARGET-STRING S :START MATCH-START :END >; MATCH-END)) >; ((:BEFORE-MATCH) >; (WRITE-STRING TARGET-STRING S :START START :END >; MATCH-START)) >; ((:AFTER-MATCH) >; (WRITE-STRING TARGET-STRING S :START MATCH-END :END >; END)) >; (OTHERWISE >; (WRITE-STRING >; (COND >; (SIMPLE-CALLS >; (APPLY TOKEN >; (NSUBSEQ TARGET-STRING MATCH-START MATCH-END) >; (MAP 'LIST >; (LAMBDA (REG-START REG-END) >; (AND REG-START >; (NSUBSEQ TARGET-STRING REG-START >; REG-END))) >; REG-STARTS REG-ENDS))) >; (T >; (FUNCALL TOKEN TARGET-STRING START END MATCH-START >; MATCH-END REG-STARTS REG-ENDS))) >; S))))))) > >; (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. > > >; --> MAKE-ARRAY >; ==> >; in: DEFUN REGEX-REPLACE-ALL >; (- CL-PPCRE::END CL-PPCRE::START) >; (LENGTH CL-PPCRE::TARGET-STRING) >; >; >; note: forced to do GENERIC-- (cost 10) >; unable to do inline fixnum arithmetic (cost 2) because: >; note: unable to >; The first argument is a T, not a FIXNUM. >; optimize >; The second argument is a T, not a FIXNUM. >; due to type uncertainty: >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; The first argument is a SEQUENCE, not a VECTOR. >; 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-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. > >; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START >; CL-PPCRE::REG-END) >; --> MAKE-ARRAY >; ==> >; (- 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 (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. > >; --> BLOCK LET* SETQ THE 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; 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: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF >; ==> >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; (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 THE 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; etc. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), not a FIXNUM. >; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). >; etc. > >; in: DEFUN REPLACE-AUX >; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; (LOOP CL-PPCRE::FOR (CL-PPCRE::FROM CL-PPCRE::TO) CL-PPCRE::ON (APPEND >; (LIST >; CL-PPCRE::START) >; CL-PPCRE::POS-LIST >; (LIST >; CL-PPCRE::END)) >; CL-PPCRE::FOR REPLACE = NIL CL-PPCRE::THEN (AND (NOT REPLACE) >; CL-PPCRE::TO) >; CL-PPCRE::FOR ...)) >; --> LET >; ==> >; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) >; >; note: could not stack allocate: >; (WITH-OUTPUT-TO-STRING (S NIL :ELEMENT-TYPE ELEMENT-TYPE) >; (LOOP FOR (FROM TO) ON (APPEND (LIST START) POS-LIST (LIST END)) >; FOR REPLACE = NIL THEN (AND (NOT REPLACE) TO) >; FOR REG-STARTS = (IF REPLACE >; (POP REG-LIST) >; NIL) >; FOR REG-ENDS = (IF REPLACE >; (POP REG-LIST) >; NIL) >; FOR CURR-REPLACEMENT = (IF REPLACE >; (BUILD-REPLACEMENT >; REPLACEMENT-TEMPLATE TARGET-STRING >; START END FROM TO REG-STARTS >; REG-ENDS SIMPLE-CALLS ELEMENT-TYPE) >; NIL) >; WHILE TO >; IF REPLACE >; DO (WRITE-STRING >; (IF PRESERVE-CASE >; (FUNCALL >; (STRING-CASE-MODIFIER TARGET-STRING FROM TO START END) >; CURR-REPLACEMENT) >; CURR-REPLACEMENT) >; S) ELSE >; DO (WRITE-STRING TARGET-STRING S :START FROM :END TO))) > >; 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 THE 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 (NOT (SIMPLE-ARRAY CHARACTER (*))) >; (NOT SIMPLE-BASE-STRING) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a (OR LIST >; (AND (NOT SIMPLE-BASE-STRING) >; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF >; ==> >; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a DOUBLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a DOUBLE-FLOAT. >; The second argument is a NUMBER, not a SINGLE-FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a SINGLE-FLOAT. >; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). >; The second 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 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 (OR (COMPLEX SINGLE-FLOAT) >; (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. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a (OR REAL COMPLEX), not a RATIONAL. > >; (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 THE 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 DOUBLE-FLOAT. >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; unable to do inline float comparison (cost 3) because: >; The first argument is a (NOT NULL), not a (COMPLEX DOUBLE-FLOAT). >; The second argument is a T, not a (COMPLEX DOUBLE-FLOAT). >; etc. > >; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND >; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ >; ==> >; 1 >; >; note: forced to do GENERIC-+ (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a (OR REAL COMPLEX), 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 (OR REAL COMPLEX), 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... {10011577DF}> >; (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-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... {10011577DF}> >; (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 ... {10020CF70F}> >; (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-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 ... {10020CF70F}> >; (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)) > >; 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... {100127EBFF}> >; (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-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... {100127EBFF}> >; (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)) > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/api-tmp4WZVROCX.fasl >; compilation finished in 0:00:00.336 >WARNING: > Lisp compilation had style-warnings while > compiling #<CL-SOURCE-FILE "cl-ppcre" "api"> > >; 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 ... {1002209A3F}> >; (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-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 ... {1002209A3F}> >; (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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/cl-ppcre/api-tmp4WZVROCY.fasl >; compilation finished in 0:00:00.340 >WARNING: > Lisp compilation had style-warnings while > compiling #<CL-SOURCE-FILE "cl-ppcre" "api"> >; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/package-tmpA0I3UKX8.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 23 NOV 2022 07:08:26 AM): >; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/package-tmpA0I3UKX8.fasl >; compilation finished in 0:00:00.004 >; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 23 NOV 2022 07:08:26 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/depdefs-tmp267Y2N80.fasl >; compilation finished in 0:00:00.124 >; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 23 NOV 2022 07:08:26 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/depdefs-tmp267Y2N81.fasl >; compilation finished in 0:00:00.128 >; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 23 NOV 2022 07:08:26 AM): > >; file: /usr/share/common-lisp/source/clx/clx.lisp >; in: DEFUN ENCODE-EVENT-MASK >; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) >; >; note: deleting unreachable code > >; in: DEFUN ENCODE-DEVICE-EVENT-MASK >; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) >; >; note: deleting unreachable code > >; in: DEFUN ENCODE-MODIFIER-MASK >; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) >; >; note: deleting unreachable code > >; in: DEFUN ENCODE-STATE-MASK >; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK >; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) >; >; note: deleting unreachable code > >; in: DEFUN ENCODE-POINTER-EVENT-MASK >; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) >; >; note: deleting unreachable code > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/clx-tmpOUPE5FSK.fasl >; compilation finished in 0:00:00.588 > >; file: /usr/share/common-lisp/source/clx/clx.lisp >; in: DEFUN ENCODE-EVENT-MASK >; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) >; >; note: deleting unreachable code > >; in: DEFUN ENCODE-DEVICE-EVENT-MASK >; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) >; >; note: deleting unreachable code >; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 23 NOV 2022 07:08:26 AM): > >; in: DEFUN ENCODE-MODIFIER-MASK >; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) >; >; note: deleting unreachable code > >; in: DEFUN ENCODE-STATE-MASK >; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK >; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) >; >; note: deleting unreachable code > >; in: DEFUN ENCODE-POINTER-EVENT-MASK >; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) >; >; note: deleting unreachable code > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/clx-tmpOUPE5FSJ.fasl >; compilation finished in 0:00:00.620 >; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 23 NOV 2022 07:08:26 AM): > >; file: /usr/share/common-lisp/source/clx/dependent.lisp >; in: DEFMACRO HOLDING-LOCK >; (DEFMACRO XLIB::HOLDING-LOCK >; ( >; (XLIB::LOCK >; XLIB:DISPLAY >; &OPTIONAL >; (XLIB::WHOSTATE "CLX wait") >; &KEY >; XLIB::TIMEOUT) >; &BODY XLIB::BODY) >; (DECLARE (IGNORE XLIB:DISPLAY XLIB::WHOSTATE)) >; (IF XLIB::TIMEOUT >; `(IF ,XLIB::TIMEOUT >; (HANDLER-CASE >; (WITH-TIMEOUT ,XLIB::TIMEOUT >; #) >; (TIMEOUT NIL NIL)) >; (SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK) >; ,@XLIB::BODY)) >; `(SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK) >; ,@XLIB::BODY))) >; >; caught STYLE-WARNING: >; &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL >; (WHOSTATE CLX wait) &KEY >; TIMEOUT) > >; file: /usr/share/common-lisp/source/clx/dependent.lisp >; in: DEFMACRO HOLDING-LOCK >; (DEFMACRO XLIB::HOLDING-LOCK >; ( >; (XLIB::LOCK >; XLIB:DISPLAY >; &OPTIONAL >; (XLIB::WHOSTATE "CLX wait") >; &KEY >; XLIB::TIMEOUT) >; &BODY XLIB::BODY) >; (DECLARE (IGNORE XLIB:DISPLAY XLIB::WHOSTATE)) >; (IF XLIB::TIMEOUT >; `(IF ,XLIB::TIMEOUT >; (HANDLER-CASE >; (WITH-TIMEOUT ,XLIB::TIMEOUT >; #) >; (TIMEOUT NIL NIL)) >; (SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK) >; ,@XLIB::BODY)) >; `(SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK) >; ,@XLIB::BODY))) >; >; caught STYLE-WARNING: >; &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL >; (WHOSTATE CLX wait) &KEY >; TIMEOUT) > >; in: DEFMACRO READ-IMAGE-LOAD-BYTE >; (SETQ POSITION (- 7 POSITION)) >; >; note: deleting unreachable code > >; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES >; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) >; >; note: deleting unreachable code > >; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE >; (- XLIB::INTEGER-SIZE 8 POSITION) >; >; note: deleting unreachable code > >; in: DEFMACRO READ-IMAGE-LOAD-BYTE >; (SETQ POSITION (- 7 POSITION)) >; >; note: deleting unreachable code > >; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES >; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) >; >; note: deleting unreachable code > >; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES >; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) >; >; note: deleting unreachable code > >; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE >; (- XLIB::INTEGER-SIZE 8 POSITION) >; >; note: deleting unreachable code > >; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES >; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) >; >; note: deleting unreachable code > >; in: DEFUN FAST-READ-PIXARRAY >; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X >; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE >; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) >; >; note: deleting unreachable code > >; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT >; (ARRAY-DIMENSION XLIB:PIXARRAY 1) >; >; note: unable to >; optimize >; because: >; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. > >; in: DEFUN FAST-READ-PIXARRAY >; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X >; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE >; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) >; >; note: deleting unreachable code > >; in: DEFUN FAST-WRITE-PIXARRAY >; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X >; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE >; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) >; >; note: deleting unreachable code > >; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT >; (ARRAY-DIMENSION XLIB:PIXARRAY 1) >; >; note: unable to >; optimize >; because: >; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/dependent-tmpIGHCU6ZA.fasl >; compilation finished in 0:00:00.184 >WARNING: > Lisp compilation had style-warnings while > compiling #<CLX-SOURCE-FILE "clx" "dependent"> > >; in: DEFUN FAST-WRITE-PIXARRAY >; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X >; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE >; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) >; >; note: deleting unreachable code >; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 23 NOV 2022 07:08:27 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/dependent-tmpIGHCU6ZB.fasl >; compilation finished in 0:00:00.180 >WARNING: > Lisp compilation had style-warnings while > compiling #<CLX-SOURCE-FILE "clx" "dependent"> >; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 23 NOV 2022 07:08:27 AM): > >; file: /usr/share/common-lisp/source/clx/macros.lisp >; in: DEFMACRO DEFINE-ACCESSOR >; (THIRD XLIB::GET-PUT-MACROS) >; >; note: deleting unreachable code > >; file: /usr/share/common-lisp/source/clx/macros.lisp >; in: DEFMACRO DEFINE-ACCESSOR >; (THIRD XLIB::GET-PUT-MACROS) >; >; note: deleting unreachable code > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/macros-tmpBO0TUGLK.fasl >; compilation finished in 0:00:00.340 >; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 23 NOV 2022 07:08:25 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/macros-tmpBO0TUGLL.fasl >; compilation finished in 0:00:00.336 >; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 23 NOV 2022 07:08:25 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/bufmac-tmpIIXPIQNW.fasl >; compilation finished in 0:00:00.024 >; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 23 NOV 2022 07:08:25 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/bufmac-tmpIIXPIQNX.fasl >; compilation finished in 0:00:00.024 >; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 23 NOV 2022 07:08:25 AM): > >; file: /usr/share/common-lisp/source/clx/buffer.lisp >; in: DEFUN WITH-BUFFER-FUNCTION >; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) >; (FUNCALL FUNCTION)) >; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE FLET #:FORM-FUN-3 BLOCK PROGN >; --> WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF >; ==> >; (> SB-IMPL::EXPIRES 0) >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; 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. > >; file: /usr/share/common-lisp/source/clx/buffer.lisp >; in: DEFUN WITH-BUFFER-FUNCTION >; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) >; (FUNCALL FUNCTION)) >; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE FLET #:FORM-FUN-3 BLOCK PROGN >; --> WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF >; ==> >; (> SB-IMPL::EXPIRES 0) >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a REAL, not a FLOAT. >; >; 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 READ-VECTOR-CARD8 >; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM >; (SETF (AREF XLIB::DATA XLIB::J) >; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD8 >; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM >; (SETF (AREF XLIB::DATA XLIB::J) >; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD16 >; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM >; (SETF (AREF XLIB::DATA XLIB::J) >; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD16 >; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM >; (SETF (AREF XLIB::DATA XLIB::J) >; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD32 >; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > > >; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM >; in: DEFUN READ-VECTOR-CARD32 >; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) >; (SETF (AREF XLIB::DATA XLIB::J) >; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) >; --> FUNCALL >; ==> >; 1 >; --> FUNCALL >; >; ==> >; note: unable to >; 1 >; optimize >; due to type uncertainty: >; >; The first argument is a VECTOR, not a SIMPLE-STRING. >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM >; (SETF (AREF XLIB::DATA XLIB::J) >; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD8 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD8 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD16 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD16 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-INT16 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-INT16 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > > >; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM >; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; (AREF XLIB::DATA XLIB::INDEX) >; >; >; note: unable to >; note: unable to >; optimize >; optimize >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; >; note: unable to >; note: unable to >; avoid runtime dispatch on array element type >; avoid runtime dispatch on array element type >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD32 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CARD32 >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > > >; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM >; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; (AREF XLIB::DATA XLIB::INDEX) >; >; >; note: unable to >; note: unable to >; optimize >; optimize >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; >; note: unable to >; note: unable to >; avoid runtime dispatch on array element type >; avoid runtime dispatch on array element type >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CHAR2B >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CHAR2B >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM >; (AREF XLIB::DATA XLIB::INDEX) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/buffer-tmpOHM494YR.fasl >; compilation finished in 0:00:00.708 > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/buffer-tmpOHM494YS.fasl >; compilation finished in 0:00:00.700 >; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 23 NOV 2022 07:08:26 AM): >; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 23 NOV 2022 07:08:26 AM): > >; file: /usr/share/common-lisp/source/clx/display.lisp >; in: DEFUN DISPLAY-CONNECT >; (LENGTH XLIB::AUTHORIZATION-NAME) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH XLIB::AUTHORIZATION-DATA) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH XLIB::AUTHORIZATION-NAME) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; file: /usr/share/common-lisp/source/clx/display.lisp >; in: DEFUN DISPLAY-CONNECT >; (LENGTH XLIB::AUTHORIZATION-NAME) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH XLIB::AUTHORIZATION-DATA) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH XLIB::AUTHORIZATION-NAME) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/display-tmpOVFB07XG.fasl >; compilation finished in 0:00:00.184 > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/display-tmpOVFB07XF.fasl >; compilation finished in 0:00:00.184 >; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 23 NOV 2022 07:08:26 AM): >; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 23 NOV 2022 07:08:26 AM): > >; file: /usr/share/common-lisp/source/clx/gcontext.lisp >; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) >; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) >; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) >; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) >; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::.VALUE.) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH XLIB::LOCAL-DASH) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR CONS VECTOR >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) >; (LENGTH XLIB::LOCAL-DASH)) >; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) >; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::LOCAL-DASH) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR CONS VECTOR >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. > >; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION)) >; XLIB:GCONTEXT XLIB::LOCAL) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) >; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) >; >; 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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; etc. > >; file: /usr/share/common-lisp/source/clx/gcontext.lisp >; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) >; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) >; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) >; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) >; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::.VALUE.) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH XLIB::LOCAL-DASH) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR CONS VECTOR >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) >; (LENGTH XLIB::LOCAL-DASH)) >; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) >; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::LOCAL-DASH) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR CONS VECTOR >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. > >; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION)) >; XLIB:GCONTEXT XLIB::LOCAL) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) >; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) >; >; 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 DOUBLE-FLOAT. >; The second argument is a T, not a DOUBLE-FLOAT. >; 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. >; etc. > >; in: DEFUN COPY-GCONTEXT-LOCAL-STATE >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) >; --> XLIB::WITH-BUFFER PROGN FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: unable to >; Eliminate %negate/%negate of rationals >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a LIST. > >; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC >; (SVREF XLIB::LOCAL-STATE >; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: forced to do GENERIC-NEGATE (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a NUMBER, not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline (signed-byte 64) arithmetic (cost 2) because: >; The first argument is a NUMBER, not a (SIGNED-BYTE 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) >; >; note: forced to do full call >; unable to do inline ASH (cost 3) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 4) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE >; 64) >; &OPTIONAL). >; etc. > >; (ASH BIT -1) >; >; note: forced to do full call >; unable to do inline ASH (cost 2) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 3) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE >; 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: unable to >; Eliminate %negate/%negate of rationals >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT >; (SVREF XLIB::LOCAL-STATE XLIB::I)) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: forced to do GENERIC-NEGATE (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a NUMBER, not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline (signed-byte 64) arithmetic (cost 2) because: >; The first argument is a NUMBER, not a (SIGNED-BYTE 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) >; >; note: forced to do full call >; unable to do inline ASH (cost 3) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 4) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE >; 64) >; &OPTIONAL). >; etc. > >; (ASH BIT -1) >; >; note: forced to do full call >; unable to do inline ASH (cost 2) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 3) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE >; 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; in: DEFUN COPY-GCONTEXT-LOCAL-STATE >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) >; --> XLIB::WITH-BUFFER PROGN FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: unable to >; Eliminate %negate/%negate of rationals >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a LIST. > >; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC >; (SVREF XLIB::LOCAL-STATE >; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: forced to do GENERIC-NEGATE (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a NUMBER, not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline (signed-byte 64) arithmetic (cost 2) because: >; The first argument is a NUMBER, not a (SIGNED-BYTE 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) >; >; note: forced to do full call >; unable to do inline ASH (cost 3) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 4) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE >; 64) >; &OPTIONAL). >; etc. > >; (ASH BIT -1) >; >; note: forced to do full call >; unable to do inline ASH (cost 2) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 3) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE >; 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: unable to >; Eliminate %negate/%negate of rationals >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT >; (SVREF XLIB::LOCAL-STATE XLIB::I)) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (- XLIB::*GCONTEXT-DATA-LENGTH*) >; >; note: forced to do GENERIC-NEGATE (cost 10) >; unable to do inline fixnum arithmetic (cost 1) because: >; The first argument is a NUMBER, not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline (signed-byte 64) arithmetic (cost 2) because: >; The first argument is a NUMBER, not a (SIGNED-BYTE 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (SIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) >; >; note: forced to do full call >; unable to do inline ASH (cost 3) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 4) because: >; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). >; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE >; 64) >; &OPTIONAL). >; etc. > >; (ASH BIT -1) >; >; note: forced to do full call >; unable to do inline ASH (cost 2) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline ASH (cost 3) because: >; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE >; 64). >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES >; (UNSIGNED-BYTE 64) >; &OPTIONAL). >; etc. > >; in: DEFUN CREATE-GCONTEXT >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN CREATE-GCONTEXT >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN COPY-GCONTEXT-COMPONENTS >; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY >; #'XLIB::GCONTEXT-EXTENSION-NAME) >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a SEQUENCE, not a (OR LIST VECTOR). > >; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC >; XLIB::DST >; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) >; (XLIB::INDEX+ >; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) >; XLIB::*GCONTEXT-DATA-LENGTH*))) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a SEQUENCE, not a (OR LIST VECTOR). > >; in: DEFUN COPY-GCONTEXT-COMPONENTS >; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY >; #'XLIB::GCONTEXT-EXTENSION-NAME) >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a SEQUENCE, not a (OR LIST VECTOR). > >; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC >; XLIB::DST >; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) >; (XLIB::INDEX+ >; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) >; XLIB::*GCONTEXT-DATA-LENGTH*))) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a SEQUENCE, not a (OR LIST VECTOR). > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/gcontext-tmpG6VFGMYQ.fasl >; compilation finished in 0:00:00.572 >; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 23 NOV 2022 07:08:27 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/gcontext-tmpG6VFGMYP.fasl >; compilation finished in 0:00:00.584 >; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 23 NOV 2022 07:08:27 AM): > >; file: /usr/share/common-lisp/source/clx/input.lisp >; in: DEFUN READ-INPUT >; (CONS NIL NIL) >; >; note: deleting unreachable code > >; file: /usr/share/common-lisp/source/clx/input.lisp >; in: DEFUN READ-INPUT >; (CONS NIL NIL) >; >; note: deleting unreachable code > >; in: DEFUN QUEUE-EVENT >; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY >; XLIB::ARGS) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN QUEUE-EVENT >; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY >; XLIB::ARGS) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > > >; in: DECLARE-EVENT :CLIENT-MESSAGE >; in: DECLARE-EVENT :CLIENT-MESSAGE >; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE >; (XLIB::DATA FORMAT) >; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE >; (XLIB:CARD16 SEQUENCE) >; (XLIB::DATA FORMAT) >; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) >; (XLIB:CARD16 SEQUENCE) >; (KEYWORD TYPE) >; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) >; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) >; (KEYWORD TYPE) >; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) >; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* >; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* >; --> FUNCALL >FUNCALL >; ==> >; ==> >; 1 >; 1 >; >; >; note: unable to >; optimize >; note: unable to >; due to type uncertainty: >; optimize >; due to type uncertainty: >; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. >; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. >; >; >; note: unable to >; note: unable to >; avoid runtime dispatch on array element type >; avoid runtime dispatch on array element type >; because: >; because: >; Upgraded element type of array is not known at compile time. >; Upgraded element type of array is not known at compile time. >; >; >; note: unable to >; note: unable to >; optimize >; optimize >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. >; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. >; >; >; note: unable to >; note: unable to >; avoid runtime dispatch on array element type >; avoid runtime dispatch on array element type >; because: >; because: >; Upgraded element type of array is not known at compile time. >; Upgraded element type of array is not known at compile time. >; >; >; note: unable to >; note: unable to >; optimize >; optimize >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. >; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. >; >; >; note: unable to >; note: unable to >; avoid runtime dispatch on array element type >; avoid runtime dispatch on array element type >; because: >; because: >; Upgraded element type of array is not known at compile time. >; Upgraded element type of array is not known at compile time. >; >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. >; note: unable to optimize because: ELEMENT-TYPE is not constant. > > >; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE >; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE >; --> ECASE LET COND IF PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN >; ==> >ECASE LET COND IF PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN >; 1 >; ==> >; 1 >; >; >; note: unable to >; note: unable to >; optimize >; optimize >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. >; The first argument is a SEQUENCE, not a VECTOR. > > >; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE >; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE >; --> ECASE LET COND IF IF PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 >; --> ECASE LET COND IF IF PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 >; --> MIN >MIN >; ==> >; ==> >; 1 >; >; 1 >; >; note: unable to >; optimize >; note: unable to >; due to type uncertainty: >; optimize >; The first argument is a SEQUENCE, not a VECTOR. >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > > >; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE >; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE >; --> ECASE LET COND IF IF IF PROGN XLIB::SEQUENCE-PUT >; --> ECASE LET COND IF IF IF PROGN XLIB::SEQUENCE-PUT >; --> XLIB::WRITE-SEQUENCE-CARD32 MIN >XLIB::WRITE-SEQUENCE-CARD32 MIN >; ==> >; ==> >; 1 >; 1 >; >; >; note: unable to >; note: unable to >; optimize >; optimize >; due to type uncertainty: >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN MAKE-ERROR >; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN MAKE-ERROR >; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/input-tmp4QIPRMOF.fasl >; compilation finished in 0:00:00.932 > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/input-tmp4QIPRMOG.fasl >; compilation finished in 0:00:00.924 >; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 23 NOV 2022 07:08:27 AM): >; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 23 NOV 2022 07:08:27 AM): > >; file: /usr/share/common-lisp/source/clx/requests.lisp >; in: DEFUN CREATE-WINDOW >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) >; (XLIB::DATA XLIB::DEPTH) >; (XLIB:RESOURCE-ID XLIB::WID) >; (XLIB:WINDOW XLIB::PARENT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) >; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) >; (XLIB:RESOURCE-ID >; (COND ((EQ XLIB::VISUAL :COPY) 0) >; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) >; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) >; (XLIB::MASK >; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP >; XLIB::BORDER-PIXEL) >; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) >; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) >; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) >; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) >; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) >; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) >; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) >; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE >; ==> >; (LOGIOR XLIB::%MASK 2048) >; >; note: forced to do full call >; unable to do inline fixnum arithmetic (cost 1) because: >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline fixnum arithmetic (cost 2) because: >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; etc. > >; ==> >; (LOGIOR XLIB::%MASK 4096) >; >; note: forced to do full call >; 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. > >; ==> >; (LOGIOR XLIB::%MASK 8192) >; >; note: forced to do full call >; 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. > >; ==> >; (LOGIOR XLIB::%MASK 16384) >; >; note: forced to do full call >; 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. > >; file: /usr/share/common-lisp/source/clx/requests.lisp >; in: DEFUN CREATE-WINDOW >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) >; (XLIB::DATA XLIB::DEPTH) >; (XLIB:RESOURCE-ID XLIB::WID) >; (XLIB:WINDOW XLIB::PARENT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) >; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) >; (XLIB:RESOURCE-ID >; (COND ((EQ XLIB::VISUAL :COPY) 0) >; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) >; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) >; (XLIB::MASK >; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP >; XLIB::BORDER-PIXEL) >; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) >; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) >; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) >; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) >; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) >; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) >; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) >; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE >; ==> >; (LOGIOR XLIB::%MASK 2048) >; >; note: forced to do full call >; unable to do inline fixnum arithmetic (cost 1) because: >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; unable to do inline fixnum arithmetic (cost 2) because: >; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM >; &OPTIONAL). >; etc. > >; ==> >; (LOGIOR XLIB::%MASK 4096) >; >; note: forced to do full call >; 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. > >; ==> >; (LOGIOR XLIB::%MASK 8192) >; >; note: forced to do full call >; 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. > >; ==> >; (LOGIOR XLIB::%MASK 16384) >; >; note: forced to do full call >; 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 SEND-EVENT >; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) >; XLIB:DISPLAY XLIB::ARGS) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN SEND-EVENT >; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) >; XLIB:DISPLAY XLIB::ARGS) >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN CREATE-PIXMAP >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN CREATE-PIXMAP >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN CREATE-COLORMAP >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN COPY-COLORMAP-AND-FREE >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN CREATE-COLORMAP >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN COPY-COLORMAP-AND-FREE >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN FREE-COLORS >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) >; XLIB::+X-FREECOLORS+) >; (XLIB:COLORMAP XLIB:COLORMAP) >; (XLIB:CARD32 XLIB::PLANE-MASK) >; (SEQUENCE XLIB::PIXELS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::PIXELS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN FREE-COLORS >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) >; XLIB::+X-FREECOLORS+) >; (XLIB:COLORMAP XLIB:COLORMAP) >; (XLIB:CARD32 XLIB::PLANE-MASK) >; (SEQUENCE XLIB::PIXELS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::PIXELS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN QUERY-COLORS >; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL >; :SIZES (8 16)) >; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) >; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) >; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) >; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) >; (SETF # #) >; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) >; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::PIXELS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH SEQUENCE) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. > >; (SETF (ELT SEQUENCE XLIB::I) >; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN >; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. > >; in: DEFUN QUERY-COLORS >; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL >; :SIZES (8 16)) >; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) >; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) >; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) >; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) >; (SETF # #) >; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) >; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::PIXELS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (LENGTH SEQUENCE) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. > >; (SETF (ELT SEQUENCE XLIB::I) >; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN >; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. > >; in: DEFUN CREATE-CURSOR >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN CREATE-GLYPH-CURSOR >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN CREATE-CURSOR >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN CREATE-GLYPH-CURSOR >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN SET-POINTER-MAPPING >; (LENGTH MAP) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY >; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) >; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) >; (VALUES (XLIB::BOOLEAN-GET 1))) >; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH MAP) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN SET-POINTER-MAPPING >; (LENGTH MAP) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY >; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) >; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) >; (VALUES (XLIB::BOOLEAN-GET 1))) >; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN >; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* >; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH MAP) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN CHANGE-ACCESS-HOST >; (LENGTH XLIB::ADDRESS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) >; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) >; (XLIB:CARD8 >; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) >; XLIB::FAMILY)) >; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) >; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::ADDRESS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN ACCESS-HOSTS >; (SETF (ELT SEQUENCE XLIB::I) >; (CONS >; (IF (< XLIB::FAMILY 3) >; (SVREF '# XLIB::FAMILY) >; XLIB::FAMILY) >; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 >; :RESULT-TYPE 'LIST :INDEX >; (+ XLIB::BUFFER-BOFFSET 4)))) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. > >; in: DEFUN CHANGE-ACCESS-HOST >; (LENGTH XLIB::ADDRESS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) >; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) >; (XLIB:CARD8 >; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) >; XLIB::FAMILY)) >; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) >; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::ADDRESS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN ACCESS-HOSTS >; (SETF (ELT SEQUENCE XLIB::I) >; (CONS >; (IF (< XLIB::FAMILY 3) >; (SVREF '# XLIB::FAMILY) >; XLIB::FAMILY) >; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 >; :RESULT-TYPE 'LIST :INDEX >; (+ XLIB::BUFFER-BOFFSET 4)))) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY >; * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) >; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/requests-tmpGW0QV22K.fasl >; compilation finished in 0:00:01.300 >; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 23 NOV 2022 07:08:26 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/requests-tmpGW0QV22L.fasl >; compilation finished in 0:00:01.312 >; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 23 NOV 2022 07:08:26 AM): > >; file: /usr/share/common-lisp/source/clx/fonts.lisp >; in: DEFUN OPEN-FONT >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN OPEN-FONT-INTERNAL >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; (LENGTH XLIB::NAME-STRING) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING NULL), not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) >; (XLIB:RESOURCE-ID XLIB::ID) >; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) >; (XLIB::PAD16 NIL) >; (STRING XLIB::NAME-STRING)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET >; ==> >; (LENGTH XLIB::NAME-STRING) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING NULL), not a VECTOR. > >; file: /usr/share/common-lisp/source/clx/fonts.lisp >; in: DEFUN OPEN-FONT >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; in: DEFUN OPEN-FONT-INTERNAL >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK 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 > >; (LENGTH XLIB::NAME-STRING) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING NULL), not a VECTOR. > >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) >; (XLIB:RESOURCE-ID XLIB::ID) >; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) >; (XLIB::PAD16 NIL) >; (STRING XLIB::NAME-STRING)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET >; ==> >; (LENGTH XLIB::NAME-STRING) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING NULL), not a VECTOR. > >; in: DEFUN SET-FONT-PATH >; (CEILING XLIB::REQUEST-LENGTH 4) >; >; 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 >; convert division by 2^k to shift >; due to type uncertainty: >; The first argument is a REAL, not a INTEGER. >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (SIGNED-BYTE 64). >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (UNSIGNED-BYTE 64). >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT (RATIONAL (-4) (4))), not a 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 REAL, not a FLOAT. > >; (ELT XLIB::PATHS XLIB::I) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a LIST. > >; (STRING (ELT XLIB::PATHS XLIB::I)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. > >; (CEILING XLIB::REQUEST-LENGTH 4) >; >; 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. >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/fonts-tmp2K9J0HSR.fasl >; compilation finished in 0:00:00.152 >; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 23 NOV 2022 07:08:27 AM): > >; in: DEFUN SET-FONT-PATH >; (CEILING XLIB::REQUEST-LENGTH 4) >; >; 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 >; convert division by 2^k to shift >; due to type uncertainty: >; The first argument is a REAL, not a INTEGER. >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (SIGNED-BYTE 64). >; >; note: unable to >; convert integer division to multiplication >; due to type uncertainty: >; The first argument is a REAL, not a (UNSIGNED-BYTE 64). >; >; note: unable to >; open-code FLOAT to RATIONAL comparison >; due to type uncertainty: >; The first argument is a (OR FLOAT (RATIONAL (-4) (4))), not a 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 REAL, not a FLOAT. > >; (ELT XLIB::PATHS XLIB::I) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a LIST. > >; (STRING (ELT XLIB::PATHS XLIB::I)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. > >; (CEILING XLIB::REQUEST-LENGTH 4) >; >; 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. >; >; 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 /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/fonts-tmp2K9J0HSS.fasl >; compilation finished in 0:00:00.144 >; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 23 NOV 2022 07:08:27 AM): > >; file: /usr/share/common-lisp/source/clx/graphics.lisp >; in: DEFUN DRAW-POINTS >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) >; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::POINTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; file: /usr/share/common-lisp/source/clx/graphics.lisp >; in: DEFUN DRAW-POINTS >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) >; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::POINTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN DRAW-LINES >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) >; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::POINTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN FILL-POLYGON >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) >; (BOOLEAN XLIB::RELATIVE-P) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::POINTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN DRAW-SEGMENTS >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::SEGMENTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN DRAW-LINES >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) >; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::POINTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN DRAW-RECTANGLES >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; (IF XLIB::FILL-P >; XLIB::+X-POLYFILLRECTANGLE+ >; XLIB::+X-POLYRECTANGLE+) >; :GC-FORCE XLIB:GCONTEXT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::RECTANGLES) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN FILL-POLYGON >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) >; (BOOLEAN XLIB::RELATIVE-P) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::POINTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN DRAW-SEGMENTS >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::SEGMENTS) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN DRAW-RECTANGLES >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; (IF XLIB::FILL-P >; XLIB::+X-POLYFILLRECTANGLE+ >; XLIB::+X-POLYRECTANGLE+) >; :GC-FORCE XLIB:GCONTEXT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::RECTANGLES) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN DRAW-ARCS-VECTOR >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN DRAW-ARCS-VECTOR >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-STRING. >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a VECTOR, not a SIMPLE-ARRAY. > >; in: DEFUN PUT-RAW-IMAGE >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) >; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) >; (XLIB::PAD16 NIL) >; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::DATA) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/graphics-tmpP44I4E0Y.fasl >; compilation finished in 0:00:00.308 >; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 23 NOV 2022 07:08:27 AM): > >; in: DEFUN PUT-RAW-IMAGE >; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) >; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) >; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) >; (XLIB::PAD16 NIL) >; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::DATA) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; file: /usr/share/common-lisp/source/clx/text.lisp >; in: DEFUN TEXT-EXTENTS >; (LENGTH SEQUENCE) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/graphics-tmpP44I4E0Z.fasl >; compilation finished in 0:00:00.332 >; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 23 NOV 2022 07:08:27 AM): > >; in: DEFUN TEXT-WIDTH >; (LENGTH SEQUENCE) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (INCF XLIB::WIDTH >; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) >; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) >; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END >; :WIDTH-ONLY) >; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END))) >; --> THE >; ==> >; (+ >; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) >; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) >; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END >; :WIDTH-ONLY) >; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) >; XLIB::WIDTH) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; 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. >; unable to do inline (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a NUMBER, not a (SIGNED-BYTE 64). >; etc. > >; file: /usr/share/common-lisp/source/clx/text.lisp >; in: DEFUN TEXT-EXTENTS >; (LENGTH SEQUENCE) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFUN TEXT-WIDTH >; (LENGTH SEQUENCE) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; (INCF XLIB::WIDTH >; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) >; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) >; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END >; :WIDTH-ONLY) >; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END))) >; --> THE >; ==> >; (+ >; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) >; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) >; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END >; :WIDTH-ONLY) >; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) >; XLIB::WIDTH) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; 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. >; unable to do inline (signed-byte 64) arithmetic (cost 4) because: >; The first argument is a NUMBER, not a (SIGNED-BYTE 64). >; etc. > >; in: DEFUN DRAW-GLYPHS8 >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE >; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (PROGN >; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) >; (DO* (# >; # >; # >; # >; # >; #) >; (# # # # # #) >; (DECLARE # >; # >; #) >; (SETQ #) >; (MULTIPLE-VALUE-BIND # # # # # # #))))) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET >; ==> >; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK () >; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT) >; (MULTIPLE-VALUE-PROG1 >; (XLIB::WITHOUT-ABORTS >; #) >; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.)))) >; (DECLARE >; (SB-INT:TRULY-DYNAMIC-EXTENT >; (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))) >; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK >; (XLIB::BUFFER-LOCK XLIB::.DISPLAY.) T >; NIL)) >; >; note: doing unsigned word to integer coercion (cost 20), for: >; the second argument of CLOSURE-INIT > >; in: DEFUN DRAW-GLYPHS8 >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE >; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (PROGN >; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) >; (DO* (# >; # >; # >; # >; # >; #) >; (# # # # # #) >; (DECLARE # >; # >; #) >; (SETQ #) >; (MULTIPLE-VALUE-BIND # # # # # # #))))) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET >; ==> >; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK () >; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT) >; (MULTIPLE-VALUE-PROG1 >; (XLIB::WITHOUT-ABORTS >; #) >; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.)))) >; (DECLARE >; (SB-INT:TRULY-DYNAMIC-EXTENT >; (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))) >; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK >; (XLIB::BUFFER-LOCK XLIB::.DISPLAY.) T >; NIL)) >; >; note: doing unsigned word to integer coercion (cost 20), for: >; the second argument of CLOSURE-INIT > >; in: DEFUN DRAW-GLYPHS16 >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE >; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (PROGN >; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) >; (DO* (# >; # >; # >; # >; # >; #) >; (# # # # # #) >; (DECLARE # >; # >; #) >; (SETQ #) >; (MULTIPLE-VALUE-BIND # # # # # # # #))))) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET >; ==> >; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK () >; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT) >; (MULTIPLE-VALUE-PROG1 >; (XLIB::WITHOUT-ABORTS >; #) >; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.)))) >; (DECLARE >; (SB-INT:TRULY-DYNAMIC-EXTENT >; (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))) >; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK >; (XLIB::BUFFER-LOCK XLIB::.DISPLAY.) T >; NIL)) >; >; note: doing unsigned word to integer coercion (cost 20), for: >; the second argument of CLOSURE-INIT > >; in: DEFUN DRAW-GLYPHS16 >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE >; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) >; (XLIB:DRAWABLE XLIB:DRAWABLE) >; (XLIB:GCONTEXT XLIB:GCONTEXT) >; (XLIB:INT16 XLIB::X XLIB::Y) >; (PROGN >; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) >; (DO* (# >; # >; # >; # >; # >; #) >; (# # # # # #) >; (DECLARE # >; # >; #) >; (SETQ #) >; (MULTIPLE-VALUE-BIND # # # # # # # #))))) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET >; ==> >; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK () >; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT) >; (MULTIPLE-VALUE-PROG1 >; (XLIB::WITHOUT-ABORTS >; #) >; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.)))) >; (DECLARE >; (SB-INT:TRULY-DYNAMIC-EXTENT >; (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))) >; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK >; (XLIB::BUFFER-LOCK XLIB::.DISPLAY.) T >; NIL)) >; >; note: doing unsigned word to integer coercion (cost 20), for: >; the second argument of CLOSURE-INIT > >; in: DEFUN CHANGE-KEYBOARD-MAPPING >; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. > >; in: DEFUN KEYBOARD-MAPPING >; (1+ XLIB::I) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. > >; (1+ XLIB::I) >; >; 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 CHANGE-KEYBOARD-MAPPING >; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/text-tmp63LQ7EX6.fasl >; compilation finished in 0:00:00.328 >; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 23 NOV 2022 07:08:25 AM): > >; in: DEFUN KEYBOARD-MAPPING >; (1+ XLIB::I) >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a FLOAT. >; >; note: unable to >; open-code float conversion in mixed numeric operation >; due to type uncertainty: >; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) >; (COMPLEX DOUBLE-FLOAT)). >; >; note: unable to >; associate +/(+ -) of constants >; due to type uncertainty: >; The first argument is a NUMBER, not a RATIONAL. > >; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) >; --> FUNCALL >; ==> >; 1 >; >; note: unable to >; avoid runtime dispatch on array element type >; due to type uncertainty: >; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. > >; (1+ XLIB::I) >; >; 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. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/text-tmp63LQ7EX7.fasl >; compilation finished in 0:00:00.312 >; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 23 NOV 2022 07:08:25 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/attributes-tmp86F1A8FB.fasl >; compilation finished in 0:00:00.180 >; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/attributes-tmp86F1A8FC.fasl >; compilation finished in 0:00:00.200 >; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/translate-tmpH7D4HL98.fasl >; compilation finished in 0:00:00.108 >; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/keysyms-tmpCDM7YXYI.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/translate-tmpH7D4HL99.fasl >; compilation finished in 0:00:00.112 >; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/keysyms-tmpCDM7YXYI.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/manager-tmpLM57P5P.fasl >; compilation finished in 0:00:00.496 >; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 23 NOV 2022 07:08:27 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/manager-tmpLM57P5Q.fasl >; compilation finished in 0:00:00.508 >; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 23 NOV 2022 07:08:27 AM): > >; file: /usr/share/common-lisp/source/clx/image.lisp >; in: DEFUN GET-IMAGE >; (FIND XLIB::DEPTH (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY) :KEY >; #'XLIB:PIXMAP-FORMAT-DEPTH) >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a SEQUENCE, not a (OR LIST VECTOR). > >; file: /usr/share/common-lisp/source/clx/image.lisp >; in: DEFUN GET-IMAGE >; (FIND XLIB::DEPTH (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY) :KEY >; #'XLIB:PIXMAP-FORMAT-DEPTH) >; >; note: unable to >; optimize >; due to type uncertainty: >; The second argument is a SEQUENCE, not a (OR LIST VECTOR). > >; in: DEFUN COPY-PIXARRAY >; (MAKE-ARRAY (LIST XLIB::HEIGHT XLIB::PADDED-WIDTH) :ELEMENT-TYPE >; (ARRAY-ELEMENT-TYPE ARRAY)) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > >; in: DEFUN COPY-PIXARRAY >; (MAKE-ARRAY (LIST XLIB::HEIGHT XLIB::PADDED-WIDTH) :ELEMENT-TYPE >; (ARRAY-ELEMENT-TYPE ARRAY)) >; >; note: unable to optimize because: ELEMENT-TYPE is not constant. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/image-tmpZE69DN33.fasl >; compilation finished in 0:00:00.992 >; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 23 NOV 2022 07:08:27 AM): > >; file: /usr/share/common-lisp/source/clx/resource.lisp >; in: DEFUN DELETE-RESOURCE-INTERNAL >; (SETQ XLIB::LOOSE-P NIL) >; >; note: deleting unreachable code > >; in: DEFUN MAP-RESOURCE >; (XLIB::MAP-RESOURCE-INTERNAL XLIB::RESOURCE FUNCTION XLIB::ARGS XLIB::NAME) >; >; note: could not stack allocate FUNCTION in: >; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) >; >; note: could not stack allocate FUNCTION in: >; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/image-tmpZE69DN34.fasl >; compilation finished in 0:00:00.980 >; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 23 NOV 2022 07:08:27 AM): > >; file: /usr/share/common-lisp/source/clx/resource.lisp >; in: DEFUN DELETE-RESOURCE-INTERNAL >; (SETQ XLIB::LOOSE-P NIL) >; >; note: deleting unreachable code > >; in: DEFUN MAP-RESOURCE >; (XLIB::MAP-RESOURCE-INTERNAL XLIB::RESOURCE FUNCTION XLIB::ARGS XLIB::NAME) >; >; note: could not stack allocate FUNCTION in: >; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) >; >; note: could not stack allocate FUNCTION in: >; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/resource-tmpG8099TO3.fasl >; compilation finished in 0:00:00.144 >; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 23 NOV 2022 07:08:29 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/shape.lisp >; in: DEFUN SHAPE-RECTANGLES >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY >; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) >; (XLIB::DATA 1) >; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) >; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) >; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) >; (XLIB:CARD8 0) >; (XLIB:WINDOW XLIB:WINDOW) >; (XLIB:INT16 XLIB::X-OFFSET) >; (XLIB:INT16 XLIB::Y-OFFSET) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::RECTANGLES) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/resource-tmpG8099TO4.fasl >; compilation finished in 0:00:00.140 >; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 23 NOV 2022 07:08:29 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/shape.lisp >; in: DEFUN SHAPE-RECTANGLES >; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY >; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) >; (XLIB::DATA 1) >; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) >; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) >; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) >; (XLIB:CARD8 0) >; (XLIB:WINDOW XLIB:WINDOW) >; (XLIB:INT16 XLIB::X-OFFSET) >; (XLIB:INT16 XLIB::Y-OFFSET) >; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 >; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL >; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET >; ==> >; (LENGTH XLIB::RECTANGLES) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/shape-tmpTASQCYAW.fasl >; compilation finished in 0:00:00.084 >; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 23 NOV 2022 07:08:30 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/big-requests-tmp35U57IV6.fasl >; compilation finished in 0:00:00.008 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 23 NOV 2022 07:08:30 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/shape-tmpTASQCYAX.fasl >; compilation finished in 0:00:00.084 >; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 23 NOV 2022 07:08:30 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/big-requests-tmp35U57IV6.fasl >; compilation finished in 0:00:00.028 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 23 NOV 2022 07:08:30 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/xvidmode.lisp >; in: DEFUN XFREE86-VIDMODE-GET-GAMMA >; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 8) 0)) 10000.0) >; >; note: unable to >; convert to multiplication by reciprocal >; because: >; 10000.0 does not have an exact reciprocal > >; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 12) 0)) 10000.0) >; >; note: unable to >; convert to multiplication by reciprocal >; because: >; 10000.0 does not have an exact reciprocal > >; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 16) 0)) 10000.0) >; >; note: unable to >; convert to multiplication by reciprocal >; because: >; 10000.0 does not have an exact reciprocal > >; file: /usr/share/common-lisp/source/clx/extensions/xvidmode.lisp >; in: DEFUN XFREE86-VIDMODE-GET-GAMMA >; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 8) 0)) 10000.0) >; >; note: unable to >; convert to multiplication by reciprocal >; because: >; 10000.0 does not have an exact reciprocal > >; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 12) 0)) 10000.0) >; >; note: unable to >; convert to multiplication by reciprocal >; because: >; 10000.0 does not have an exact reciprocal > >; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 16) 0)) 10000.0) >; >; note: unable to >; convert to multiplication by reciprocal >; because: >; 10000.0 does not have an exact reciprocal > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpTZOONXRW.fasl >; compilation finished in 0:00:00.360 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 23 NOV 2022 07:08:29 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpTZOONXRX.fasl >; compilation finished in 0:00:00.332 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xrender-tmpWN0UKDSW.fasl >; compilation finished in 0:00:00.896 >; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 23 NOV 2022 07:08:29 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp >; in: DECLARE-EVENT :GLX-PBUFFER-CLOBBER >; (XLIB:DECLARE-EVENT :GLX-PBUFFER-CLOBBER >; (XLIB:CARD16 SEQUENCE) >; (XLIB:CARD16 XLIB/GLX::EVENT-TYPE) >; (XLIB:CARD16 XLIB/GLX::DRAW-TYPE) >; (XLIB:RESOURCE-ID XLIB:DRAWABLE) >; (XLIB:CARD32 XLIB/GLX::BUFFER-MASK) >; (XLIB:CARD16 XLIB/GLX::AUX-BUFFER) >; (XLIB:CARD16 XLIB/GLX::X XLIB/GLX::Y XLIB/GLX::WIDTH XLIB/GLX::HEIGHT >; COUNT)) >; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES >; ==> >; 1 >; >; note: could not stack allocate #:G52 in: >; (DECLARE-EVENT :GLX-PBUFFER-CLOBBER >; (CARD16 SEQUENCE) >; (CARD16 EVENT-TYPE) >; (CARD16 DRAW-TYPE) >; (RESOURCE-ID DRAWABLE) >; (CARD32 BUFFER-MASK) >; (CARD16 AUX-BUFFER) >; (CARD16 X Y WIDTH HEIGHT COUNT)) > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xrender-tmpWN0UKDSV.fasl >; compilation finished in 0:00:00.980 >; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 23 NOV 2022 07:08:29 AM): > >; in: DEFUN MAKE-CONTEXT >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp >; in: DECLARE-EVENT :GLX-PBUFFER-CLOBBER >; (XLIB:DECLARE-EVENT :GLX-PBUFFER-CLOBBER >; (XLIB:CARD16 SEQUENCE) >; (XLIB:CARD16 XLIB/GLX::EVENT-TYPE) >; (XLIB:CARD16 XLIB/GLX::DRAW-TYPE) >; (XLIB:RESOURCE-ID XLIB:DRAWABLE) >; (XLIB:CARD32 XLIB/GLX::BUFFER-MASK) >; (XLIB:CARD16 XLIB/GLX::AUX-BUFFER) >; (XLIB:CARD16 XLIB/GLX::X XLIB/GLX::Y XLIB/GLX::WIDTH XLIB/GLX::HEIGHT >; COUNT)) >; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA >; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES >; ==> >; 1 >; >; note: could not stack allocate #:G52 in: >; (DECLARE-EVENT :GLX-PBUFFER-CLOBBER >; (CARD16 SEQUENCE) >; (CARD16 EVENT-TYPE) >; (CARD16 DRAW-TYPE) >; (RESOURCE-ID DRAWABLE) >; (CARD32 BUFFER-MASK) >; (CARD16 AUX-BUFFER) >; (CARD16 X Y WIDTH HEIGHT COUNT)) > >; in: DEFUN MAKE-CONTEXT >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN GET-VISUAL-CONFIGS >; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) >; 2) >; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) >; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. >; >; note: forced to do GENERIC-> (cost 10) >; unable to do inline fixnum comparison (cost 3) because: >; The first argument is a (RATIONAL 0 (1)), not a FIXNUM. >; unable to do inline fixnum comparison (cost 4) because: >; The first argument is a (RATIONAL 0 (1)), not a FIXNUM. >; etc. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/glx-tmpBF3HHBTQ.fasl >; compilation finished in 0:00:00.220 >; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 23 NOV 2022 07:08:29 AM): > >; in: DEFUN GET-VISUAL-CONFIGS >; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) >; 2) >; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) >; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. >; >; note: forced to do GENERIC-> (cost 10) >; unable to do inline fixnum comparison (cost 3) because: >; The first argument is a (RATIONAL 0 (1)), not a FIXNUM. >; unable to do inline fixnum comparison (cost 4) because: >; The first argument is a (RATIONAL 0 (1)), not a FIXNUM. >; etc. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/glx-tmpBF3HHBTR.fasl >; compilation finished in 0:00:00.216 >; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 23 NOV 2022 07:08:29 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp >; in: DEFINE-SEQUENCE-SETTER INT8 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp >; in: DEFINE-SEQUENCE-SETTER INT8 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER INT16 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER INT16 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER INT32 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER BOOL >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER CARD8 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER INT32 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER CARD16 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER BOOL >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER CARD8 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER CARD32 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER CARD16 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER FLOAT32 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER CARD32 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER FLOAT64 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER FLOAT32 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; in: DEFINE-SEQUENCE-SETTER FLOAT64 >; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > >; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK >; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR >; ==> >; (LENGTH XLIB/GL::SEQ) >; >; note: unable to >; optimize >; due to type uncertainty: >; The first argument is a SEQUENCE, not a VECTOR. > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/gl-tmpGYUNPZCY.fasl >; compilation finished in 0:00:00.904 >; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 23 NOV 2022 07:08:29 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/gl-tmpGYUNPZCZ.fasl >; compilation finished in 0:00:00.940 > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/dpms-tmpD68Q8WCA.fasl >; compilation finished in 0:00:00.060 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 23 NOV 2022 07:08:29 AM): >; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xtest-tmp7MK9KM9C.fasl >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/screensaver-tmpJJ71X849.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/dpms-tmpD68Q8WCA.fasl >; compilation finished in 0:00:00.068 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xtest-tmp7MK9KM9C.fasl >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/screensaver-tmpJJ71X849.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/randr-tmp1VUK6SR2.fasl >; compilation finished in 0:00:00.484 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 23 NOV 2022 07:08:30 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/xinerama.lisp >; in: DEFUN XINERAMA-QUERY-SCREENS >; (INCF XLIB/XINERAMA::INDEX 8) >; >; note: doing unsigned word to integer coercion (cost 20) to INDEX > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xinerama-tmpR2FIHSUG.fasl >; compilation finished in 0:00:00.040 >; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 23 NOV 2022 07:08:30 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/randr-tmp1VUK6SR3.fasl >; compilation finished in 0:00:00.480 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 23 NOV 2022 07:08:30 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp >; in: DEFUN CREATE-BACK-BUFFER >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; file: /usr/share/common-lisp/source/clx/extensions/xinerama.lisp >; in: DEFUN XINERAMA-QUERY-SCREENS >; (INCF XLIB/XINERAMA::INDEX 8) >; >; note: doing unsigned word to integer coercion (cost 20) to INDEX > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xinerama-tmpR2FIHSUG.fasl >; compilation finished in 0:00:00.039 >; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 23 NOV 2022 07:08:30 AM): > >; in: DEFUN DBE-GET-VISUAL-INFO >; (LOOP :FOR XLIB::I :FROM 1 :TO (XLIB::CARD32-GET XLIB::NEXT) >; :FOR XLIB::OFF := (+ XLIB::NEXT 4) :THEN ...) >; >; note: doing unsigned word to integer coercion (cost 20) to OFF >; >; note: doing unsigned word to integer coercion (cost 20) to OFF > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/dbe-tmp8PYELRKX.fasl >; compilation finished in 0:00:00.120 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpEHTOKYT0.fasl >; compilation finished in 0:00:00.012 >; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 23 NOV 2022 07:08:29 AM): > >; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp >; in: DEFUN CREATE-BACK-BUFFER >; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) >; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK >; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET >; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL >; ==> >; 1 >; >; note: unable to >; optimize away possible call to FDEFINITION at runtime >; because: >; callable expression is not known to be a function > >; in: DEFUN DBE-GET-VISUAL-INFO >; (LOOP :FOR XLIB::I :FROM 1 :TO (XLIB::CARD32-GET XLIB::NEXT) >; :FOR XLIB::OFF := (+ XLIB::NEXT 4) :THEN ...) >; >; note: doing unsigned word to integer coercion (cost 20) to OFF >; >; note: doing unsigned word to integer coercion (cost 20) to OFF > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/dbe-tmp8PYELRKY.fasl >; compilation finished in 0:00:00.120 >; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpEHTOKYT0.fasl >; compilation finished in 0:00:00.016 >; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/dri2-tmpS6U1VHI9.fasl >; compilation finished in 0:00:00.132 >; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/dri2-tmpS6U1VHIA.fasl >; compilation finished in 0:00:00.064 >; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 23 NOV 2022 07:08:29 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/composite-tmpVTFK6ZJW.fasl >; compilation finished in 0:00:00.048 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/package.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/package-tmp75WVSJEW.fasl >; compilation finished in 0:00:00.000 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/dynamic-mixins.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/dynamic-mixins-tmpBU5UM3S4.fasl >; compilation finished in 0:00:00.016 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/package.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/package-tmpOBHVA3CD.fasl >; compilation finished in 0:00:00.000 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/debug.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/usr/share/common-lisp/source/clx/extensions/composite-tmpVTFK6ZJX.fasl >; compilation finished in 0:00:00.080 > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/debug-tmpJ6ELVFLF.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/primitives.lisp" (written 18 AUG 2022 07:04:11 AM): >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/package.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/package-tmp75WVSJEW.fasl >; compilation finished in 0:00:00.000 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/dynamic-mixins.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-mixins/src/dynamic-mixins-tmpBU5UM3S4.fasl >; compilation finished in 0:00:00.020 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/package.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/package-tmpOBHVA3CD.fasl >; compilation finished in 0:00:00.004 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/debug.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/debug-tmpJ6ELVFLF.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/primitives.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/primitives-tmpULDB0RG.fasl >; compilation finished in 0:00:00.184 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wrappers.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/primitives-tmpULDB0RH.fasl >; compilation finished in 0:00:00.180 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wrappers.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wrappers-tmpUTZ0UUTE.fasl >; compilation finished in 0:00:00.092 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/pathnames.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/pathnames-tmpOOSRA8PZ.fasl >; compilation finished in 0:00:00.004 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/font-rendering.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wrappers-tmpUTZ0UUTF.fasl >; compilation finished in 0:00:00.048 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/pathnames.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/pathnames-tmpOOSRA8PZ.fasl >; compilation finished in 0:00:00.004 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/font-rendering.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/font-rendering-tmpDMIL0RVK.fasl >; compilation finished in 0:00:00.028 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keysyms.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/font-rendering-tmpDMIL0RVL.fasl >; compilation finished in 0:00:00.064 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keysyms.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keysyms-tmp8MR9IMIO.fasl >; compilation finished in 0:00:00.088 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keytrans.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keytrans-tmpJQDKAVAY.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/kmap.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keysyms-tmp8MR9IMIP.fasl >; compilation finished in 0:00:00.096 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keytrans.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/keytrans-tmpJQDKAVAY.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/kmap.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/kmap-tmp3I8CEEQY.fasl >; compilation finished in 0:00:00.072 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/input.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/kmap-tmp3I8CEEQZ.fasl >; compilation finished in 0:00:00.072 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/input.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/input-tmpA3RHFLWZ.fasl >; compilation finished in 0:00:00.208 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/core.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/core-tmpYZIB7VXO.fasl >; compilation finished in 0:00:00.004 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/command.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/command.lisp >; in: DEFUN COMMAND-ACTIVE-P >; 'STUMPWM::DYNAMIC-GROUP >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/input-tmpA3RHFLX0.fasl >; compilation finished in 0:00:00.220 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/core.lisp" (written 18 AUG 2022 07:04:11 AM): > >; in: DEFUN ARGUMENT-POP >; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH >; STUMPWM::INPUT) >; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) >; DO ...) >; --> LET LET TAGBODY >; ==> >; NIL >; >; caught STYLE-WARNING: >; The binding of I is not a REAL: >; NIL >; See also: >; The SBCL Manual, Node "Handling of Types" > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/core-tmpYZIB7VXO.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/command.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/command.lisp >; in: DEFUN COMMAND-ACTIVE-P >; 'STUMPWM::DYNAMIC-GROUP >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > >; in: DEFUN ARGUMENT-POP >; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH >; STUMPWM::INPUT) >; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) >; DO ...) >; --> LET LET TAGBODY >; ==> >; NIL >; >; caught STYLE-WARNING: >; The binding of I is not a REAL: >; NIL >; See also: >; The SBCL Manual, Node "Handling of Types" > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/command-tmpR8PK79V8.fasl >; compilation finished in 0:00:00.168 >WARNING: > Lisp compilation had style-warnings while > compiling #<CL-SOURCE-FILE "stumpwm" "command"> >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-declarations.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-declarations-tmpN1ZVB1HZ.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-definitions.lisp" (written 18 AUG 2022 07:04:11 AM): > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/command-tmpR8PK79V9.fasl >; compilation finished in 0:00:00.168 >WARNING: > Lisp compilation had style-warnings while > compiling #<CL-SOURCE-FILE "stumpwm" "command"> >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-declarations.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-declarations-tmpN1ZVB1HZ.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-definitions.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-definitions-tmpZGRRPISB.fasl >; compilation finished in 0:00:00.072 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/screen.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/menu-definitions-tmpZGRRPISC.fasl >; compilation finished in 0:00:00.072 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/screen.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/screen-tmpFNKDE5XP.fasl >; compilation finished in 0:00:00.076 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/head.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/head-tmpRJTU435C.fasl >; compilation finished in 0:00:00.020 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/screen-tmpFNKDE5XQ.fasl >; compilation finished in 0:00:00.040 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/head.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/head-tmpRJTU435C.fasl >; compilation finished in 0:00:00.044 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/group-tmpI9WG87JK.fasl >; compilation finished in 0:00:00.064 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/bindings.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/bindings-tmpYDE6I9E6.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/events.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/events.lisp >; in: DEFUN TOP-MAPS >; 'STUMPWM::DYNAMIC-GROUP >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/group-tmpI9WG87JL.fasl >; compilation finished in 0:00:00.060 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/bindings.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/bindings-tmpYDE6I9E6.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/events.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/events.lisp >; in: DEFUN TOP-MAPS >; 'STUMPWM::DYNAMIC-GROUP >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > >; in: DEFUN MAYBE-MAP-WINDOW >; 'STUMPWM::TILE-WINDOW >; >; note: can't open-code test of unknown type TILE-WINDOW > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/events-tmp319UV2V8.fasl >; compilation finished in 0:00:00.112 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; in: DEFUN MAYBE-MAP-WINDOW >; 'STUMPWM::TILE-WINDOW >; >; note: can't open-code test of unknown type TILE-WINDOW > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/events-tmp319UV2V9.fasl >; compilation finished in 0:00:00.120 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window-tmpLYQINFYS.fasl >; compilation finished in 0:00:00.220 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/floating-group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window-tmpLYQINFYT.fasl >; compilation finished in 0:00:00.224 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/floating-group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/floating-group-tmpGA31XWNO.fasl >; compilation finished in 0:00:00.092 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/floating-group-tmpGA31XWNP.fasl >; compilation finished in 0:00:00.096 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-window-tmp5HT23M6C.fasl >; compilation finished in 0:00:00.120 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-window-tmp5HT23M6D.fasl >; compilation finished in 0:00:00.116 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-group.lisp >; in: DEFUN UNFLOAT-WINDOW >; (TYPECASE STUMPWM:GROUP >; (STUMPWM::DYNAMIC-GROUP >; (STUMPWM::DYNAMIC-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) >; (STUMPWM::TILE-GROUP >; (STUMPWM::TILE-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) >; --> COND IF >; ==> >; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > >; in: DEFUN FLOAT-WINDOW >; (TYPECASE STUMPWM:GROUP >; (STUMPWM::DYNAMIC-GROUP >; (STUMPWM::DYNAMIC-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) >; (STUMPWM::TILE-GROUP >; (STUMPWM::TILE-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) >; --> COND IF >; ==> >; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-group-tmpA60KLDKY.fasl >; compilation finished in 0:00:00.200 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window-placement.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window-placement-tmpD801X3GJ.fasl >; compilation finished in 0:00:00.028 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/message-window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-group.lisp >; in: DEFUN UNFLOAT-WINDOW >; (TYPECASE STUMPWM:GROUP >; (STUMPWM::DYNAMIC-GROUP >; (STUMPWM::DYNAMIC-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) >; (STUMPWM::TILE-GROUP >; (STUMPWM::TILE-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) >; --> COND IF >; ==> >; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > >; in: DEFUN FLOAT-WINDOW >; (TYPECASE STUMPWM:GROUP >; (STUMPWM::DYNAMIC-GROUP >; (STUMPWM::DYNAMIC-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) >; (STUMPWM::TILE-GROUP >; (STUMPWM::TILE-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) >; --> COND IF >; ==> >; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) >; >; note: can't open-code test of unknown type DYNAMIC-GROUP > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/tile-group-tmpA60KLDKZ.fasl >; compilation finished in 0:00:00.224 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window-placement.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/window-placement-tmpD801X3GJ.fasl >; compilation finished in 0:00:00.024 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/message-window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/message-window-tmpGOW1GC70.fasl >; compilation finished in 0:00:00.100 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/selection.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/selection-tmpPQ1X28TL.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/module.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/module-tmpE92ECU7O.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/ioloop.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/message-window-tmpGOW1GC71.fasl >; compilation finished in 0:00:00.096 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/selection.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/selection-tmpPQ1X28TL.fasl >; compilation finished in 0:00:00.016 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/module.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/module-tmpE92ECU7O.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/ioloop.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/ioloop-tmp8S0II570.fasl >; compilation finished in 0:00:00.216 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/timers.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/timers-tmpJE88A12F.fasl >; compilation finished in 0:00:00.024 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/stumpwm.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/stumpwm.lisp >; in: DEFMETHOD HANDLE-TOP-LEVEL-CONDITION (SERIOUS-CONDITION) >; (TYPEP STUMPWM:*CURRENT-IO-CHANNEL* >; '(OR STUMPWM::STUMPWM-TIMER-CHANNEL STUMPWM::DISPLAY-CHANNEL >; STUMPWM::REQUEST-CHANNEL)) >; >; note: can't open-code test of unknown type REQUEST-CHANNEL >; >; note: can't open-code test of unknown type DISPLAY-CHANNEL > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/ioloop-tmp8S0II571.fasl >; compilation finished in 0:00:00.216 > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/stumpwm-tmpA5FNLPLT.fasl >; compilation finished in 0:00:00.056 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/timers.lisp" (written 18 AUG 2022 07:04:11 AM): >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/user.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/timers-tmpJE88A12F.fasl >; compilation finished in 0:00:00.024 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/stumpwm.lisp" (written 18 AUG 2022 07:04:11 AM): > >; file: /var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/stumpwm.lisp >; in: DEFMETHOD HANDLE-TOP-LEVEL-CONDITION (SERIOUS-CONDITION) >; (TYPEP STUMPWM:*CURRENT-IO-CHANNEL* >; '(OR STUMPWM::STUMPWM-TIMER-CHANNEL STUMPWM::DISPLAY-CHANNEL >; STUMPWM::REQUEST-CHANNEL)) >; >; note: can't open-code test of unknown type REQUEST-CHANNEL >; >; note: can't open-code test of unknown type DISPLAY-CHANNEL > > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/stumpwm-tmpA5FNLPLT.fasl >; compilation finished in 0:00:00.060 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/user.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/user-tmpHKCV9TP8.fasl >; compilation finished in 0:00:00.092 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/interactive-keymap.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/interactive-keymap-tmpZ18MA7XE.fasl >; compilation finished in 0:00:00.016 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/iresize.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/iresize-tmp6LQJ9T0C.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/help.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/user-tmpHKCV9TP9.fasl >; compilation finished in 0:00:00.096 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/interactive-keymap.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/interactive-keymap-tmpZ18MA7XE.fasl >; compilation finished in 0:00:00.016 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/iresize.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/iresize-tmp6LQJ9T0C.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/help.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/help-tmpTX7OA81T.fasl >; compilation finished in 0:00:00.088 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/fdump.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/fdump-tmpWOTC3PB7.fasl >; compilation finished in 0:00:00.060 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/time.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/help-tmpTX7OA81U.fasl >; compilation finished in 0:00:00.092 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/fdump.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/time-tmpHQE95SAC.fasl >; compilation finished in 0:00:00.028 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line-tmpO87FP9NR.fasl >; compilation finished in 0:00:00.044 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line-formatters.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/fdump-tmpWOTC3PB7.fasl >; compilation finished in 0:00:00.060 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/time.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/time-tmpHQE95SAC.fasl >; compilation finished in 0:00:00.028 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line-formatters-tmpP6A3E92I.fasl >; compilation finished in 0:00:00.056 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/color.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line-tmpO87FP9NR.fasl >; compilation finished in 0:00:00.044 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line-formatters.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/mode-line-formatters-tmpP6A3E92I.fasl >; compilation finished in 0:00:00.032 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/color.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/color-tmpUSHT8RIL.fasl >; compilation finished in 0:00:00.068 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wse.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wse-tmp7YCPD44Y.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-window-tmpQXR7SNXD.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/color-tmpUSHT8RIM.fasl >; compilation finished in 0:00:00.084 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wse.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/wse-tmp7YCPD44Y.fasl >; compilation finished in 0:00:00.016 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-window.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-window-tmpQXR7SNXD.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-group.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-group-tmp6FLI1OC3.fasl >; compilation finished in 0:00:00.284 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/remap-keys.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/remap-keys-tmpWBK8JTS9.fasl >; compilation finished in 0:00:00.008 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/manual.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/manual-tmpUVEUD2ZN.fasl >; compilation finished in 0:00:00.024 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/minor-modes.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/dynamic-group-tmp6FLI1OC4.fasl >; compilation finished in 0:00:00.288 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/remap-keys.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/remap-keys-tmpWBK8JTS9.fasl >; compilation finished in 0:00:00.012 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/manual.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/manual-tmpUVEUD2ZN.fasl >; compilation finished in 0:00:00.028 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/minor-modes.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/minor-modes-tmpOWNJOEU.fasl >; compilation finished in 0:00:00.244 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/replace-class.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/replace-class-tmpVT5BMTA5.fasl >; compilation finished in 0:00:00.020 >WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/version.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/version-tmpN3CFVWZF.fasl >; compilation finished in 0:00:00.004 >; >; compilation unit finished >; caught 8 STYLE-WARNING conditions >; printed 1147 notes > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/minor-modes-tmpOWNJOEV.fasl >; compilation finished in 0:00:00.236 >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/replace-class.lisp" (written 18 AUG 2022 07:04:11 AM): > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/replace-class-tmpVT5BMTA5.fasl >; compilation finished in 0:00:00.016 >WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC >; compiling file "/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/version.lisp" (written 18 AUG 2022 07:04:11 AM): >test "makeinfo" = "no" || makeinfo stumpwm.texi > >; wrote /var/tmp/portage/x11-wm/stumpwm-22.05/homedir/.cache/common-lisp/sbcl-2.2.10-linux-x64/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2/version-tmpN3CFVWZF.fasl >; compilation finished in 0:00:00.008 >; >; compilation unit finished >; caught 8 STYLE-WARNING conditions >; printed 1147 notes >[undoing binding stack and other enclosing state... done] >[performing final GC... done] >[defragmenting immobile space... (inst,fdefn,code,sym)=1066+22399+23152+27857... done] >[saving current Lisp image into stumpwm: >writing 1680 bytes from the static space at 0x50000000 >writing 25952256 bytes from the dynamic space at 0x1000000000 >writing 8959968 bytes from the read-only space at 0xfff770000 >writing 2203648 bytes from the fixedobj space at 0x50100000 >writing 14864384 bytes from the text space at 0x52a00000 >done] >>>> Source compiled. >>>> Test phase [not enabled]: x11-wm/stumpwm-22.05 > >>>> Install x11-wm/stumpwm-22.05 into /var/tmp/portage/x11-wm/stumpwm-22.05/image >This is pdfTeX, Version 3.141592653-2.6-1.40.22 (TeX Live 2021 Gentoo Linux) (preloaded format=pdfetex) > restricted \write18 enabled. >entering extended mode >(./stumpwm.texi.in (/usr/share/texmf-dist/tex/texinfo/texinfo.tex >Loading texinfo [version 2021-02-20.11]: pdf, fonts, glyphs, page headings, >tables, conditionals, indexing, sectioning, toc, environments, defuns, macros, >cross references, insertions, (/usr/share/texmf-dist/tex/generic/epsf/epsf.tex >This is `epsf.tex' v2.7.4 <14 February 2011> >) localization, formatting, and turning on texinfo input format.) [1{/var/lib/t >exmf/fonts/map/pdftex/updmap/pdftex.map}] [2] Chapter 1 >Cross reference values unknown; you must run TeX again. [1] [2] [3] [4] >[5] [6] Chapter 2 [7] [8] [9] [10] [11] [12] [13] [14] Chapter 3 [15] [16] >[17] [18] [19] >Overfull \hbox (60.93126pt too wide) in paragraph at lines 1495--1495 > [] @texttt (loop ; gather all the directions in which there's a neigh >bouring frame[] | >[20] Chapter 4 [21] [22] [23] Chapter 5 [24] [25] Chapter 6 [26] [27] >Chapter 7 [28] >Underfull \hbox (badness 10000) in paragraph at lines 2064--2073 >[]@textrm ### *mode-line-position* ### *mode-line-border-width* ### *mode- > >Underfull \hbox (badness 10000) in paragraph at lines 2064--2073 >@textrm line-highlight-template* ### *mode-line-pad-x* ### *mode-line-pad-y* ## ># >[29] >Overfull \hbox (43.6852pt too wide) in paragraph at lines 2101--2101 > []@texttt (register-ml-on-click-id :ml-on-click-focus-window #'ml-on-click-foc >us-window)[] | > >Overfull \hbox (20.69044pt too wide) in paragraph at lines 2138--2138 > []@texttt "^(:on-click :ml-on-click-focus-window 308242)window text^(:on-click >-end)"[] | >[30] Chapter 8 [31] [32] Chapter 9 [33] [34] Chapter 10 [35] [36] [37] [38] >[39] [40] [41] Chapter 11 [42] Chapter 12 [43] [44] Chapter 13 [45] [46] >Chapter 14 [47] [48] [49] [50] >Writing index file stumpwm.texi.fn >Chapter 15 [51] [52] [53] Chapter 16 [54] >Underfull \hbox (badness 8094) in paragraph at lines 3113--3143 >@textrm $$$ *event-processing-hook* $$$ *pre-command-hook* $$$ *post-command-ho >ok* > >Underfull \hbox (badness 10000) in paragraph at lines 3113--3143 >@textrm $$$ *menu-selection-hook* $$$ *new-head-hook* $$$ *command-mode-end-hoo >k* >Chapter 17 [55] [56] >Overfull \hbox (14.94176pt too wide) in paragraph at lines 3156--3156 > []@texttt git clone git@github.com:stumpwm/stumpwm-contrib.git ~/.stumpwm.d/mo >dules[] | > >Overfull \hbox (198.89977pt too wide) in paragraph at lines 3185--3185 > []@texttt (quickproject:make-project #p"~/.stumpwm.d/modules/new-module" :depe >nds-on '(stumpwm) :name "new-module")[] | >[57] Chapter 18 [58] [59] [60] [61] Chapter 19 [62] >Underfull \hbox (badness 10000) in paragraph at lines 3564--3585 >@textrm !!! loadrc ### *ignore-wm-inc-hints* ### *max-last-message-size* ### > >Underfull \hbox (badness 10000) in paragraph at lines 3564--3585 >@textrm *module-dir* @ set-module-dir ### *mouse-focus-policy* ### *resize-hide >s- >(Command and Function Index) [63] [64] >No file stumpwm.texi.fns. >(Variable Index) [65] [66] >No file stumpwm.texi.vrs. >[67] ) > >kpathsea: Running mktexpk --mfmode / --bdpi 600 --mag 1+60/600 --dpi 660 feymr10 > * ACCESS DENIED: mkdir: /var/cache/fonts/pk > * ACCESS DENIED: mkdir: /var/cache/fonts/pk >mkdir: cannot create directory â././var/cache/fonts/pkâ: Permission denied >mktexpk: /usr/share/texmf-dist/web2c/mktexdir /var/cache/fonts/pk/ljfour/public/eurosym failed. >kpathsea: Appending font creation commands to missfont.log. >(see the transcript file for additional information) >!pdfTeX error: pdfetex (file feymr10): Font feymr10 at 660 not found > ==> Fatal error occurred, no output PDF file produced! >This is pdfTeX, Version 3.141592653-2.6-1.40.22 (TeX Live 2021 Gentoo Linux) (preloaded format=pdfetex) > restricted \write18 enabled. >entering extended mode >(./stumpwm.texi.in (/usr/share/texmf-dist/tex/texinfo/texinfo.tex >Loading texinfo [version 2021-02-20.11]: pdf, fonts, glyphs, page headings, >tables, conditionals, indexing, sectioning, toc, environments, defuns, macros, >cross references, insertions, (/usr/share/texmf-dist/tex/generic/epsf/epsf.tex >This is `epsf.tex' v2.7.4 <14 February 2011> >) localization, formatting, and turning on texinfo input format.) [1{/var/lib/t >exmf/fonts/map/pdftex/updmap/pdftex.map}] [2] Chapter 1 >(/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467 >de9bbbf5eafd2/stumpwm.texi.aux) [1] [2] [3] [4] [5] [6] Chapter 2 [7] [8] >[9] [10] [11] [12] [13] [14] Chapter 3 [15] [16] [17] [18] [19] >Overfull \hbox (60.93126pt too wide) in paragraph at lines 1495--1495 > [] @texttt (loop ; gather all the directions in which there's a neigh >bouring frame[] | >[20] Chapter 4 [21] [22] [23] Chapter 5 [24] [25] Chapter 6 [26] [27] >Chapter 7 [28] >Underfull \hbox (badness 10000) in paragraph at lines 2064--2073 >[]@textrm ### *mode-line-position* ### *mode-line-border-width* ### *mode- > >Underfull \hbox (badness 10000) in paragraph at lines 2064--2073 >@textrm line-highlight-template* ### *mode-line-pad-x* ### *mode-line-pad-y* ## ># >[29] >Overfull \hbox (43.6852pt too wide) in paragraph at lines 2101--2101 > []@texttt (register-ml-on-click-id :ml-on-click-focus-window #'ml-on-click-foc >us-window)[] | > >Overfull \hbox (20.69044pt too wide) in paragraph at lines 2138--2138 > []@texttt "^(:on-click :ml-on-click-focus-window 308242)window text^(:on-click >-end)"[] | >[30] Chapter 8 [31] [32] Chapter 9 [33] [34] Chapter 10 [35] [36] [37] [38] >[39] [40] [41] Chapter 11 [42] Chapter 12 [43] [44] Chapter 13 [45] [46] >Chapter 14 [47] [48] [49] [50] >Writing index file stumpwm.texi.fn >Chapter 15 [51] [52] [53] Chapter 16 [54] >Underfull \hbox (badness 8094) in paragraph at lines 3113--3143 >@textrm $$$ *event-processing-hook* $$$ *pre-command-hook* $$$ *post-command-ho >ok* > >Underfull \hbox (badness 10000) in paragraph at lines 3113--3143 >@textrm $$$ *menu-selection-hook* $$$ *new-head-hook* $$$ *command-mode-end-hoo >k* >Chapter 17 [55] [56] >Overfull \hbox (14.94176pt too wide) in paragraph at lines 3156--3156 > []@texttt git clone git@github.com:stumpwm/stumpwm-contrib.git ~/.stumpwm.d/mo >dules[] | > >Overfull \hbox (198.89977pt too wide) in paragraph at lines 3185--3185 > []@texttt (quickproject:make-project #p"~/.stumpwm.d/modules/new-module" :depe >nds-on '(stumpwm) :name "new-module")[] | >[57] Chapter 18 [58] [59] [60] [61] Chapter 19 [62] >Underfull \hbox (badness 10000) in paragraph at lines 3564--3585 >@textrm !!! loadrc ### *ignore-wm-inc-hints* ### *max-last-message-size* ### > >Underfull \hbox (badness 10000) in paragraph at lines 3564--3585 >@textrm *module-dir* @ set-module-dir ### *mouse-focus-policy* ### *resize-hide >s- >(Command and Function Index) [63] [64] >(/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467 >de9bbbf5eafd2/stumpwm.texi.fns) (Variable Index) [65] [66] >No file stumpwm.texi.vrs. >[67] ) > >kpathsea: Running mktexpk --mfmode / --bdpi 600 --mag 1+60/600 --dpi 660 feymr10 > * ACCESS DENIED: mkdir: /var/cache/fonts/pk > * ACCESS DENIED: mkdir: /var/cache/fonts/pk >mkdir: cannot create directory â././var/cache/fonts/pkâ: Permission denied >mktexpk: /usr/share/texmf-dist/web2c/mktexdir /var/cache/fonts/pk/ljfour/public/eurosym failed. >kpathsea: Appending font creation commands to missfont.log. >(see the transcript file for additional information) >!pdfTeX error: pdfetex (file feymr10): Font feymr10 at 660 not found > ==> Fatal error occurred, no output PDF file produced! >/usr/bin/texi2dvi: pdfetex exited with bad status, quitting. > * ERROR: x11-wm/stumpwm-22.05::gentoo failed (install phase): > * (no error message) > * > * Call stack: > * ebuild.sh, line 122: Called src_install > * environment, line 2464: Called install_docs > * environment, line 1836: Called die > * The specific snippet of code: > * texi2pdf -o "${pdffile}" "${PN}.texi.in" && dodoc "${pdffile}" || die; > * > * If you need support, post the output of `emerge --info '=x11-wm/stumpwm-22.05::gentoo'`, > * the complete build log and the output of `emerge -pqv '=x11-wm/stumpwm-22.05::gentoo'`. > * The complete build log is located at '/var/tmp/portage/vbslogs/build/x11-wm/stumpwm-22.05:20221125-083233.log'. > * For convenience, a symlink to the build log is located at '/var/tmp/portage/x11-wm/stumpwm-22.05/temp/build.log'. > * The ebuild environment file is located at '/var/tmp/portage/x11-wm/stumpwm-22.05/temp/environment'. > * Working directory: '/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2' > * S: '/var/tmp/portage/x11-wm/stumpwm-22.05/work/stumpwm-740e945d742d85aef36e0ed9467de9bbbf5eafd2' > * ----------------------- SANDBOX ACCESS VIOLATION SUMMARY ----------------------- > * LOG FILE: "/var/tmp/portage/x11-wm/stumpwm-22.05/temp/sandbox.log" > * >VERSION 1.0 >FORMAT: F - Function called >FORMAT: S - Access Status >FORMAT: P - Path as passed to function >FORMAT: A - Absolute Path (not canonical) >FORMAT: R - Canonical Path >FORMAT: C - Command Line > >F: mkdir >S: deny >P: ././var/cache/fonts/pk >A: /var/cache/fonts/pk >R: /var/cache/fonts/pk >C: mkdir ././var/cache/fonts/pk > >F: mkdir >S: deny >P: ././var/cache/fonts/pk >A: /var/cache/fonts/pk >R: /var/cache/fonts/pk >C: mkdir ././var/cache/fonts/pk > >F: mkdir >S: deny >P: ././var/cache/fonts/pk >A: /var/cache/fonts/pk >R: /var/cache/fonts/pk >C: mkdir ././var/cache/fonts/pk > >F: mkdir >S: deny >P: ././var/cache/fonts/pk >A: /var/cache/fonts/pk >R: /var/cache/fonts/pk >C: mkdir ././var/cache/fonts/pk > * -------------------------------------------------------------------------------- >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 882935
: 836699